diff --git a/GI/Gtk.hs b/GI/Gtk.hs --- a/GI/Gtk.hs +++ b/GI/Gtk.hs @@ -32,9 +32,9 @@ import GI.Gtk.Objects import GI.Gtk.Structs -import Prelude () 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 diff --git a/GI/Gtk/Callbacks.hs b/GI/Gtk/Callbacks.hs --- a/GI/Gtk/Callbacks.hs +++ b/GI/Gtk/Callbacks.hs @@ -563,9 +563,9 @@ ) where -import Prelude () 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 diff --git a/GI/Gtk/Constants.hs b/GI/Gtk/Constants.hs --- a/GI/Gtk/Constants.hs +++ b/GI/Gtk/Constants.hs @@ -273,9 +273,9 @@ ) where -import Prelude () 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 diff --git a/GI/Gtk/Enums.hs b/GI/Gtk/Enums.hs --- a/GI/Gtk/Enums.hs +++ b/GI/Gtk/Enums.hs @@ -121,9 +121,9 @@ ) where -import Prelude () 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 diff --git a/GI/Gtk/Flags.hs b/GI/Gtk/Flags.hs --- a/GI/Gtk/Flags.hs +++ b/GI/Gtk/Flags.hs @@ -36,9 +36,9 @@ ) where -import Prelude () 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 @@ -93,8 +93,8 @@ foreign import ccall "gtk_ui_manager_item_type_get_type" c_gtk_ui_manager_item_type_get_type :: IO GType -instance BoxedEnum UIManagerItemType where - boxedEnumType _ = c_gtk_ui_manager_item_type_get_type +instance BoxedFlags UIManagerItemType where + boxedFlagsType _ = c_gtk_ui_manager_item_type_get_type instance IsGFlag UIManagerItemType @@ -118,8 +118,8 @@ foreign import ccall "gtk_tree_model_flags_get_type" c_gtk_tree_model_flags_get_type :: IO GType -instance BoxedEnum TreeModelFlags where - boxedEnumType _ = c_gtk_tree_model_flags_get_type +instance BoxedFlags TreeModelFlags where + boxedFlagsType _ = c_gtk_tree_model_flags_get_type instance IsGFlag TreeModelFlags @@ -143,8 +143,8 @@ foreign import ccall "gtk_tool_palette_drag_targets_get_type" c_gtk_tool_palette_drag_targets_get_type :: IO GType -instance BoxedEnum ToolPaletteDragTargets where - boxedEnumType _ = c_gtk_tool_palette_drag_targets_get_type +instance BoxedFlags ToolPaletteDragTargets where + boxedFlagsType _ = c_gtk_tool_palette_drag_targets_get_type instance IsGFlag ToolPaletteDragTargets @@ -171,8 +171,8 @@ foreign import ccall "gtk_text_search_flags_get_type" c_gtk_text_search_flags_get_type :: IO GType -instance BoxedEnum TextSearchFlags where - boxedEnumType _ = c_gtk_text_search_flags_get_type +instance BoxedFlags TextSearchFlags where + boxedFlagsType _ = c_gtk_text_search_flags_get_type instance IsGFlag TextSearchFlags @@ -202,8 +202,8 @@ foreign import ccall "gtk_target_flags_get_type" c_gtk_target_flags_get_type :: IO GType -instance BoxedEnum TargetFlags where - boxedEnumType _ = c_gtk_target_flags_get_type +instance BoxedFlags TargetFlags where + boxedFlagsType _ = c_gtk_target_flags_get_type instance IsGFlag TargetFlags @@ -260,8 +260,8 @@ foreign import ccall "gtk_state_flags_get_type" c_gtk_state_flags_get_type :: IO GType -instance BoxedEnum StateFlags where - boxedEnumType _ = c_gtk_state_flags_get_type +instance BoxedFlags StateFlags where + boxedFlagsType _ = c_gtk_state_flags_get_type instance IsGFlag StateFlags @@ -297,8 +297,8 @@ foreign import ccall "gtk_region_flags_get_type" c_gtk_region_flags_get_type :: IO GType -instance BoxedEnum RegionFlags where - boxedEnumType _ = c_gtk_region_flags_get_type +instance BoxedFlags RegionFlags where + boxedFlagsType _ = c_gtk_region_flags_get_type instance IsGFlag RegionFlags @@ -334,8 +334,8 @@ foreign import ccall "gtk_recent_filter_flags_get_type" c_gtk_recent_filter_flags_get_type :: IO GType -instance BoxedEnum RecentFilterFlags where - boxedEnumType _ = c_gtk_recent_filter_flags_get_type +instance BoxedFlags RecentFilterFlags where + boxedFlagsType _ = c_gtk_recent_filter_flags_get_type instance IsGFlag RecentFilterFlags @@ -365,8 +365,8 @@ foreign import ccall "gtk_rc_flags_get_type" c_gtk_rc_flags_get_type :: IO GType -instance BoxedEnum RcFlags where - boxedEnumType _ = c_gtk_rc_flags_get_type +instance BoxedFlags RcFlags where + boxedFlagsType _ = c_gtk_rc_flags_get_type instance IsGFlag RcFlags @@ -393,8 +393,8 @@ foreign import ccall "gtk_places_open_flags_get_type" c_gtk_places_open_flags_get_type :: IO GType -instance BoxedEnum PlacesOpenFlags where - boxedEnumType _ = c_gtk_places_open_flags_get_type +instance BoxedFlags PlacesOpenFlags where + boxedFlagsType _ = c_gtk_places_open_flags_get_type instance IsGFlag PlacesOpenFlags @@ -439,8 +439,8 @@ foreign import ccall "gtk_junction_sides_get_type" c_gtk_junction_sides_get_type :: IO GType -instance BoxedEnum JunctionSides where - boxedEnumType _ = c_gtk_junction_sides_get_type +instance BoxedFlags JunctionSides where + boxedFlagsType _ = c_gtk_junction_sides_get_type instance IsGFlag JunctionSides @@ -488,8 +488,8 @@ foreign import ccall "gtk_input_hints_get_type" c_gtk_input_hints_get_type :: IO GType -instance BoxedEnum InputHints where - boxedEnumType _ = c_gtk_input_hints_get_type +instance BoxedFlags InputHints where + boxedFlagsType _ = c_gtk_input_hints_get_type instance IsGFlag InputHints @@ -534,8 +534,8 @@ foreign import ccall "gtk_icon_lookup_flags_get_type" c_gtk_icon_lookup_flags_get_type :: IO GType -instance BoxedEnum IconLookupFlags where - boxedEnumType _ = c_gtk_icon_lookup_flags_get_type +instance BoxedFlags IconLookupFlags where + boxedFlagsType _ = c_gtk_icon_lookup_flags_get_type instance IsGFlag IconLookupFlags @@ -565,8 +565,8 @@ foreign import ccall "gtk_file_filter_flags_get_type" c_gtk_file_filter_flags_get_type :: IO GType -instance BoxedEnum FileFilterFlags where - boxedEnumType _ = c_gtk_file_filter_flags_get_type +instance BoxedFlags FileFilterFlags where + boxedFlagsType _ = c_gtk_file_filter_flags_get_type instance IsGFlag FileFilterFlags @@ -593,8 +593,8 @@ foreign import ccall "gtk_dialog_flags_get_type" c_gtk_dialog_flags_get_type :: IO GType -instance BoxedEnum DialogFlags where - boxedEnumType _ = c_gtk_dialog_flags_get_type +instance BoxedFlags DialogFlags where + boxedFlagsType _ = c_gtk_dialog_flags_get_type instance IsGFlag DialogFlags @@ -624,8 +624,8 @@ foreign import ccall "gtk_dest_defaults_get_type" c_gtk_dest_defaults_get_type :: IO GType -instance BoxedEnum DestDefaults where - boxedEnumType _ = c_gtk_dest_defaults_get_type +instance BoxedFlags DestDefaults where + boxedFlagsType _ = c_gtk_dest_defaults_get_type instance IsGFlag DestDefaults @@ -703,8 +703,8 @@ foreign import ccall "gtk_debug_flag_get_type" c_gtk_debug_flag_get_type :: IO GType -instance BoxedEnum DebugFlag where - boxedEnumType _ = c_gtk_debug_flag_get_type +instance BoxedFlags DebugFlag where + boxedFlagsType _ = c_gtk_debug_flag_get_type instance IsGFlag DebugFlag @@ -743,8 +743,8 @@ foreign import ccall "gtk_cell_renderer_state_get_type" c_gtk_cell_renderer_state_get_type :: IO GType -instance BoxedEnum CellRendererState where - boxedEnumType _ = c_gtk_cell_renderer_state_get_type +instance BoxedFlags CellRendererState where + boxedFlagsType _ = c_gtk_cell_renderer_state_get_type instance IsGFlag CellRendererState @@ -777,8 +777,8 @@ foreign import ccall "gtk_calendar_display_options_get_type" c_gtk_calendar_display_options_get_type :: IO GType -instance BoxedEnum CalendarDisplayOptions where - boxedEnumType _ = c_gtk_calendar_display_options_get_type +instance BoxedFlags CalendarDisplayOptions where + boxedFlagsType _ = c_gtk_calendar_display_options_get_type instance IsGFlag CalendarDisplayOptions @@ -805,8 +805,8 @@ foreign import ccall "gtk_attach_options_get_type" c_gtk_attach_options_get_type :: IO GType -instance BoxedEnum AttachOptions where - boxedEnumType _ = c_gtk_attach_options_get_type +instance BoxedFlags AttachOptions where + boxedFlagsType _ = c_gtk_attach_options_get_type instance IsGFlag AttachOptions @@ -836,8 +836,8 @@ foreign import ccall "gtk_application_inhibit_flags_get_type" c_gtk_application_inhibit_flags_get_type :: IO GType -instance BoxedEnum ApplicationInhibitFlags where - boxedEnumType _ = c_gtk_application_inhibit_flags_get_type +instance BoxedFlags ApplicationInhibitFlags where + boxedFlagsType _ = c_gtk_application_inhibit_flags_get_type instance IsGFlag ApplicationInhibitFlags @@ -864,8 +864,8 @@ foreign import ccall "gtk_accel_flags_get_type" c_gtk_accel_flags_get_type :: IO GType -instance BoxedEnum AccelFlags where - boxedEnumType _ = c_gtk_accel_flags_get_type +instance BoxedFlags AccelFlags where + boxedFlagsType _ = c_gtk_accel_flags_get_type instance IsGFlag AccelFlags diff --git a/GI/Gtk/Functions.hs b/GI/Gtk/Functions.hs --- a/GI/Gtk/Functions.hs +++ b/GI/Gtk/Functions.hs @@ -650,9 +650,9 @@ ) where -import Prelude () 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 @@ -670,7 +670,7 @@ -- function gtk_true -- Args : [] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -690,7 +690,7 @@ -- function gtk_tree_set_row_drag_data -- Args : [Arg {argCName = "selection_data", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tree_model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -722,7 +722,7 @@ -- function gtk_tree_get_row_drag_data -- Args : [Arg {argCName = "selection_data", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tree_model", argType = TInterface "Gtk" "TreeModel", direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -760,7 +760,7 @@ -- function gtk_test_widget_wait_for_draw -- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -781,15 +781,15 @@ -- function gtk_test_widget_send_key --- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keyval", argType = TBasicType TUInt32, 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}] +-- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", 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 : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_test_widget_send_key" gtk_test_widget_send_key :: Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - Word32 -> -- keyval : TBasicType TUInt32 + Word32 -> -- keyval : TBasicType TUInt CUInt -> -- modifiers : TInterface "Gdk" "ModifierType" IO CInt @@ -810,15 +810,15 @@ -- function gtk_test_widget_click --- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button", argType = TBasicType TUInt32, 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}] +-- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", 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}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_test_widget_click" gtk_test_widget_click :: Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - Word32 -> -- button : TBasicType TUInt32 + Word32 -> -- button : TBasicType TUInt CUInt -> -- modifiers : TInterface "Gdk" "ModifierType" IO CInt @@ -841,7 +841,7 @@ -- function gtk_test_text_set -- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -868,7 +868,7 @@ -- function gtk_test_text_get -- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -892,15 +892,15 @@ -- function gtk_test_spin_button_click --- Args : [Arg {argCName = "spinner", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "upwards", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "spinner", argType = TInterface "Gtk" "SpinButton", 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 = "upwards", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_test_spin_button_click" gtk_test_spin_button_click :: Ptr SpinButton -> -- spinner : TInterface "Gtk" "SpinButton" - Word32 -> -- button : TBasicType TUInt32 + Word32 -> -- button : TBasicType TUInt CInt -> -- upwards : TBasicType TBoolean IO CInt @@ -923,7 +923,7 @@ -- function gtk_test_slider_set_perc -- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "percentage", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -949,7 +949,7 @@ -- function gtk_test_slider_get_value -- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -973,7 +973,7 @@ -- function gtk_test_register_all_types -- Args : [] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -990,14 +990,14 @@ -- function gtk_test_list_all_types --- Args : [Arg {argCName = "n_types", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "n_types", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TCArray True (-1) 0 (TBasicType TGType) +-- returnType : Just (TCArray True (-1) 0 (TBasicType TGType)) -- throws : False -- Skip return : False foreign import ccall "gtk_test_list_all_types" gtk_test_list_all_types :: - Ptr Word32 -> -- n_types : TBasicType TUInt32 + Ptr Word32 -> -- n_types : TBasicType TUInt IO (Ptr CGType) @@ -1017,7 +1017,7 @@ -- function gtk_test_find_widget -- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label_pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -1049,7 +1049,7 @@ -- function gtk_test_find_sibling -- Args : [Arg {argCName = "base_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -1077,7 +1077,7 @@ -- function gtk_test_find_label -- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label_pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -1106,7 +1106,7 @@ -- function gtk_test_create_simple_window -- Args : [Arg {argCName = "window_title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dialog_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -1133,15 +1133,15 @@ -- function gtk_targets_include_uri --- Args : [Arg {argCName = "targets", argType = TCArray False (-1) 1 (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : TBasicType TBoolean +-- Args : [Arg {argCName = "targets", argType = TCArray False (-1) 1 (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 : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_targets_include_uri" gtk_targets_include_uri :: Ptr (Ptr Gdk.Atom) -> -- targets : TCArray False (-1) 1 (TInterface "Gdk" "Atom") - Int32 -> -- n_targets : TBasicType TInt32 + Int32 -> -- n_targets : TBasicType TInt IO CInt @@ -1161,15 +1161,15 @@ -- function gtk_targets_include_text --- Args : [Arg {argCName = "targets", argType = TCArray False (-1) 1 (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : TBasicType TBoolean +-- Args : [Arg {argCName = "targets", argType = TCArray False (-1) 1 (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 : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_targets_include_text" gtk_targets_include_text :: Ptr (Ptr Gdk.Atom) -> -- targets : TCArray False (-1) 1 (TInterface "Gdk" "Atom") - Int32 -> -- n_targets : TBasicType TInt32 + Int32 -> -- n_targets : TBasicType TInt IO CInt @@ -1189,15 +1189,15 @@ -- function gtk_targets_include_rich_text --- Args : [Arg {argCName = "targets", argType = TCArray False (-1) 1 (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : TBasicType TBoolean +-- Args : [Arg {argCName = "targets", argType = TCArray False (-1) 1 (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},Arg {argCName = "buffer", argType = TInterface "Gtk" "TextBuffer", 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 : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_targets_include_rich_text" gtk_targets_include_rich_text :: Ptr (Ptr Gdk.Atom) -> -- targets : TCArray False (-1) 1 (TInterface "Gdk" "Atom") - Int32 -> -- n_targets : TBasicType TInt32 + Int32 -> -- n_targets : TBasicType TInt Ptr TextBuffer -> -- buffer : TInterface "Gtk" "TextBuffer" IO CInt @@ -1221,15 +1221,15 @@ -- function gtk_targets_include_image --- Args : [Arg {argCName = "targets", argType = TCArray False (-1) 1 (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "writable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : TBasicType TBoolean +-- Args : [Arg {argCName = "targets", argType = TCArray False (-1) 1 (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},Arg {argCName = "writable", argType = TBasicType TBoolean, 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 : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_targets_include_image" gtk_targets_include_image :: Ptr (Ptr Gdk.Atom) -> -- targets : TCArray False (-1) 1 (TInterface "Gdk" "Atom") - Int32 -> -- n_targets : TBasicType TInt32 + Int32 -> -- n_targets : TBasicType TInt CInt -> -- writable : TBasicType TBoolean IO CInt @@ -1252,15 +1252,15 @@ -- function gtk_target_table_new_from_list --- Args : [Arg {argCName = "list", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : TCArray False (-1) 1 (TInterface "Gtk" "TargetEntry") +-- Args : [Arg {argCName = "list", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_targets", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [Arg {argCName = "n_targets", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- returnType : Just (TCArray False (-1) 1 (TInterface "Gtk" "TargetEntry")) -- throws : False -- Skip return : False foreign import ccall "gtk_target_table_new_from_list" gtk_target_table_new_from_list :: Ptr TargetList -> -- list : TInterface "Gtk" "TargetList" - Ptr Int32 -> -- n_targets : TBasicType TInt32 + Ptr Int32 -> -- n_targets : TBasicType TInt IO (Ptr TargetEntry) @@ -1283,15 +1283,15 @@ -- function gtk_target_table_free --- Args : [Arg {argCName = "targets", argType = TCArray False (-1) 1 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : TBasicType TVoid +-- Args : [Arg {argCName = "targets", argType = TCArray False (-1) 1 (TInterface "Gtk" "TargetEntry"), 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 "gtk_target_table_free" gtk_target_table_free :: Ptr TargetEntry -> -- targets : TCArray False (-1) 1 (TInterface "Gtk" "TargetEntry") - Int32 -> -- n_targets : TBasicType TInt32 + Int32 -> -- n_targets : TBasicType TInt IO () @@ -1310,16 +1310,16 @@ -- function gtk_stock_set_translate_func --- Args : [Arg {argCName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TranslateFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, 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}] +-- Args : [Arg {argCName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TranslateFunc", 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 = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_stock_set_translate_func" gtk_stock_set_translate_func :: CString -> -- domain : TBasicType TUTF8 FunPtr TranslateFuncC -> -- func : TInterface "Gtk" "TranslateFunc" - Ptr () -> -- data : TBasicType TVoid + Ptr () -> -- data : TBasicType TPtr FunPtr GLib.DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify" IO () @@ -1342,7 +1342,7 @@ -- function gtk_stock_lookup -- Args : [Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface "Gtk" "StockItem", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1369,7 +1369,7 @@ -- function gtk_stock_list_ids -- Args : [] -- Lengths : [] --- returnType : TGSList (TBasicType TUTF8) +-- returnType : Just (TGSList (TBasicType TUTF8)) -- throws : False -- Skip return : False @@ -1382,7 +1382,6 @@ m [T.Text] -- result stockListIds = liftIO $ do result <- gtk_stock_list_ids - checkUnexpectedReturnNULL "gtk_stock_list_ids" result result' <- unpackGSList result result'' <- mapM cstringToText result' mapGSList freeMem result @@ -1391,15 +1390,15 @@ -- function gtk_stock_add_static --- Args : [Arg {argCName = "items", argType = TCArray False (-1) 1 (TInterface "Gtk" "StockItem"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_items", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "n_items", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : TBasicType TVoid +-- Args : [Arg {argCName = "items", argType = TCArray False (-1) 1 (TInterface "Gtk" "StockItem"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_items", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "n_items", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_stock_add_static" gtk_stock_add_static :: Ptr StockItem -> -- items : TCArray False (-1) 1 (TInterface "Gtk" "StockItem") - Word32 -> -- n_items : TBasicType TUInt32 + Word32 -> -- n_items : TBasicType TUInt IO () {-# DEPRECATED stockAddStatic ["(Since version 3.10)"]#-} @@ -1418,15 +1417,15 @@ -- function gtk_stock_add --- Args : [Arg {argCName = "items", argType = TCArray False (-1) 1 (TInterface "Gtk" "StockItem"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_items", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "n_items", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : TBasicType TVoid +-- Args : [Arg {argCName = "items", argType = TCArray False (-1) 1 (TInterface "Gtk" "StockItem"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_items", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "n_items", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_stock_add" gtk_stock_add :: Ptr StockItem -> -- items : TCArray False (-1) 1 (TInterface "Gtk" "StockItem") - Word32 -> -- n_items : TBasicType TUInt32 + Word32 -> -- n_items : TBasicType TUInt IO () {-# DEPRECATED stockAdd ["(Since version 3.10)"]#-} @@ -1447,7 +1446,7 @@ -- function gtk_show_uri -- Args : [Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, 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 : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -1483,14 +1482,14 @@ -- function gtk_set_debug_flags --- Args : [Arg {argCName = "flags", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "flags", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_set_debug_flags" gtk_set_debug_flags :: - Word32 -> -- flags : TBasicType TUInt32 + Word32 -> -- flags : TBasicType TUInt IO () @@ -1506,7 +1505,7 @@ -- function gtk_selection_remove_all -- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1529,7 +1528,7 @@ -- function gtk_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 = "widget", argType = TInterface "Gtk" "Widget", 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}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1546,9 +1545,9 @@ a -- display -> Maybe (b) -- widget -> Gdk.Atom -- selection - -> Word32 -- time + -> Word32 -- time_ -> m Bool -- result -selectionOwnerSetForDisplay display widget selection time = liftIO $ do +selectionOwnerSetForDisplay display widget selection time_ = liftIO $ do let display' = unsafeManagedPtrCastPtr display maybeWidget <- case widget of Nothing -> return nullPtr @@ -1556,7 +1555,7 @@ let jWidget' = unsafeManagedPtrCastPtr jWidget return jWidget' let selection' = unsafeManagedPtrGetPtr selection - result <- gtk_selection_owner_set_for_display display' maybeWidget selection' time + result <- gtk_selection_owner_set_for_display display' maybeWidget selection' time_ let result' = (/= 0) result touchManagedPtr display whenJust widget touchManagedPtr @@ -1567,7 +1566,7 @@ -- function gtk_selection_owner_set -- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", 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}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1582,16 +1581,16 @@ (MonadIO m, WidgetK a) => Maybe (a) -- widget -> Gdk.Atom -- selection - -> Word32 -- time + -> Word32 -- time_ -> m Bool -- result -selectionOwnerSet widget selection time = liftIO $ do +selectionOwnerSet widget selection time_ = liftIO $ do maybeWidget <- case widget of Nothing -> return nullPtr Just jWidget -> do let jWidget' = unsafeManagedPtrCastPtr jWidget return jWidget' let selection' = unsafeManagedPtrGetPtr selection - result <- gtk_selection_owner_set maybeWidget selection' time + result <- gtk_selection_owner_set maybeWidget selection' time_ let result' = (/= 0) result whenJust widget touchManagedPtr touchManagedPtr selection @@ -1601,7 +1600,7 @@ -- function gtk_selection_convert -- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", 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 : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1618,13 +1617,13 @@ a -- widget -> Gdk.Atom -- selection -> Gdk.Atom -- target - -> Word32 -- time + -> Word32 -- time_ -> m Bool -- result -selectionConvert widget selection target time = liftIO $ do +selectionConvert widget selection target time_ = liftIO $ do let widget' = unsafeManagedPtrCastPtr widget let selection' = unsafeManagedPtrGetPtr selection let target' = unsafeManagedPtrGetPtr target - result <- gtk_selection_convert widget' selection' target' time + result <- gtk_selection_convert widget' selection' target' time_ let result' = (/= 0) result touchManagedPtr widget touchManagedPtr selection @@ -1635,7 +1634,7 @@ -- function gtk_selection_clear_targets -- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1660,9 +1659,9 @@ -- function gtk_selection_add_targets --- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", 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 = "targets", argType = TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ntargets", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "ntargets", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : TBasicType TVoid +-- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", 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 = "targets", argType = TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ntargets", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "ntargets", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1670,7 +1669,7 @@ Ptr Widget -> -- widget : TInterface "Gtk" "Widget" Ptr Gdk.Atom -> -- selection : TInterface "Gdk" "Atom" Ptr TargetEntry -> -- targets : TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry") - Word32 -> -- ntargets : TBasicType TUInt32 + Word32 -> -- ntargets : TBasicType TUInt IO () @@ -1695,9 +1694,9 @@ -- function gtk_selection_add_target --- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", 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 = "info", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", 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 = "info", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1705,7 +1704,7 @@ Ptr Widget -> -- widget : TInterface "Gtk" "Widget" Ptr Gdk.Atom -> -- selection : TInterface "Gdk" "Atom" Ptr Gdk.Atom -> -- target : TInterface "Gdk" "Atom" - Word32 -> -- info : TBasicType TUInt32 + Word32 -> -- info : TBasicType TUInt IO () @@ -1730,7 +1729,7 @@ -- function gtk_rgb_to_hsv -- Args : [Arg {argCName = "r", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "g", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "b", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "h", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "s", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "v", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1773,7 +1772,7 @@ -- function gtk_render_slider -- Args : [Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", 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},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 = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1815,7 +1814,7 @@ -- function gtk_render_option -- Args : [Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", 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},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 = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1854,7 +1853,7 @@ -- function gtk_render_line -- Args : [Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", 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},Arg {argCName = "x0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1893,7 +1892,7 @@ -- function gtk_render_layout -- Args : [Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", 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},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 = "layout", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1928,9 +1927,9 @@ -- function gtk_render_insertion_cursor --- Args : [Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", 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},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 = "layout", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "direction", argType = TInterface "Pango" "Direction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", 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},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 = "layout", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "direction", argType = TInterface "Pango" "Direction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1940,7 +1939,7 @@ CDouble -> -- x : TBasicType TDouble CDouble -> -- y : TBasicType TDouble Ptr Pango.Layout -> -- layout : TInterface "Pango" "Layout" - Int32 -> -- index : TBasicType TInt32 + Int32 -> -- index : TBasicType TInt CUInt -> -- direction : TInterface "Pango" "Direction" IO () @@ -1972,7 +1971,7 @@ -- function gtk_render_icon_surface -- Args : [Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", 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},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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2007,16 +2006,16 @@ -- function gtk_render_icon_pixbuf --- Args : [Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : False -- Skip return : False foreign import ccall "gtk_render_icon_pixbuf" gtk_render_icon_pixbuf :: Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext" Ptr IconSource -> -- source : TInterface "Gtk" "IconSource" - Int32 -> -- size : TBasicType TInt32 + Int32 -> -- size : TBasicType TInt IO (Ptr GdkPixbuf.Pixbuf) {-# DEPRECATED renderIconPixbuf ["(Since version 3.10)","Use gtk_icon_theme_load_icon() instead."]#-} @@ -2040,7 +2039,7 @@ -- function gtk_render_icon -- Args : [Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", 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},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 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2077,7 +2076,7 @@ -- function gtk_render_handle -- Args : [Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", 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},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 = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2116,7 +2115,7 @@ -- function gtk_render_frame_gap -- Args : [Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", 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},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 = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gap_side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xy0_gap", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xy1_gap", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2164,7 +2163,7 @@ -- function gtk_render_frame -- Args : [Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", 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},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 = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2203,7 +2202,7 @@ -- function gtk_render_focus -- Args : [Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", 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},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 = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2242,7 +2241,7 @@ -- function gtk_render_extension -- Args : [Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", 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},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 = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gap_side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2284,7 +2283,7 @@ -- function gtk_render_expander -- Args : [Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", 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},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 = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2323,7 +2322,7 @@ -- function gtk_render_check -- Args : [Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", 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},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 = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2362,7 +2361,7 @@ -- function gtk_render_background -- Args : [Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", 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},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 = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2401,7 +2400,7 @@ -- function gtk_render_arrow -- Args : [Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", 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},Arg {argCName = "angle", argType = TBasicType TDouble, 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 = "size", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2440,7 +2439,7 @@ -- function gtk_render_activity -- Args : [Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", 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},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 = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2479,7 +2478,7 @@ -- function gtk_rc_set_default_files -- Args : [Arg {argCName = "filenames", argType = TCArray True (-1) (-1) (TBasicType TFileName), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2503,7 +2502,7 @@ -- function gtk_rc_reset_styles -- Args : [Arg {argCName = "settings", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2526,7 +2525,7 @@ -- function gtk_rc_reparse_all_for_settings -- Args : [Arg {argCName = "settings", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "force_load", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2553,7 +2552,7 @@ -- function gtk_rc_reparse_all -- Args : [] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2573,7 +2572,7 @@ -- function gtk_rc_parse_string -- Args : [Arg {argCName = "rc_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2596,7 +2595,7 @@ -- function gtk_rc_parse_state -- Args : [Arg {argCName = "scanner", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TUInt32 +-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -2624,7 +2623,7 @@ -- function gtk_rc_parse_priority -- Args : [Arg {argCName = "scanner", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "priority", argType = TInterface "Gtk" "PathPriorityType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt32 +-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -2650,7 +2649,7 @@ -- function gtk_rc_parse_color_full -- Args : [Arg {argCName = "scanner", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "style", argType = TInterface "Gtk" "RcStyle", direction = DirectionIn, mayBeNull = True, 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 : TBasicType TUInt32 +-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -2684,7 +2683,7 @@ -- function gtk_rc_parse_color -- Args : [Arg {argCName = "scanner", argType = TInterface "GLib" "Scanner", 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 : TBasicType TUInt32 +-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -2710,7 +2709,7 @@ -- function gtk_rc_parse -- Args : [Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2733,7 +2732,7 @@ -- function gtk_rc_get_theme_dir -- Args : [] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -2755,7 +2754,7 @@ -- function gtk_rc_get_style_by_paths -- Args : [Arg {argCName = "settings", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "class_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Style" +-- returnType : Just (TInterface "Gtk" "Style") -- throws : False -- Skip return : False @@ -2773,7 +2772,7 @@ -> Maybe (T.Text) -- widgetPath -> Maybe (T.Text) -- classPath -> GType -- type_ - -> m Style -- result + -> m (Maybe Style) -- result rcGetStyleByPaths settings widgetPath classPath type_ = liftIO $ do let settings' = unsafeManagedPtrCastPtr settings maybeWidgetPath <- case widgetPath of @@ -2788,18 +2787,19 @@ return jClassPath' let type_' = gtypeToCGType type_ result <- gtk_rc_get_style_by_paths settings' maybeWidgetPath maybeClassPath type_' - checkUnexpectedReturnNULL "gtk_rc_get_style_by_paths" result - result' <- (newObject Style) result + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (newObject Style) result' + return result'' touchManagedPtr settings freeMem maybeWidgetPath freeMem maybeClassPath - return result' + return maybeResult -- function gtk_rc_get_style -- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Style" +-- returnType : Just (TInterface "Gtk" "Style") -- throws : False -- Skip return : False @@ -2824,7 +2824,7 @@ -- function gtk_rc_get_module_dir -- Args : [] -- Lengths : [] --- returnType : TBasicType TFileName +-- returnType : Just (TBasicType TFileName) -- throws : False -- Skip return : False @@ -2846,7 +2846,7 @@ -- function gtk_rc_get_im_module_path -- Args : [] -- Lengths : [] --- returnType : TBasicType TFileName +-- returnType : Just (TBasicType TFileName) -- throws : False -- Skip return : False @@ -2868,7 +2868,7 @@ -- function gtk_rc_get_im_module_file -- Args : [] -- Lengths : [] --- returnType : TBasicType TFileName +-- returnType : Just (TBasicType TFileName) -- throws : False -- Skip return : False @@ -2890,7 +2890,7 @@ -- function gtk_rc_get_default_files -- Args : [] -- Lengths : [] --- returnType : TCArray True (-1) (-1) (TBasicType TFileName) +-- returnType : Just (TCArray True (-1) (-1) (TBasicType TFileName)) -- throws : False -- Skip return : False @@ -2911,7 +2911,7 @@ -- function gtk_rc_find_pixmap_in_path -- Args : [Arg {argCName = "settings", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scanner", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixmap_file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TFileName +-- returnType : Just (TBasicType TFileName) -- throws : False -- Skip return : False @@ -2945,7 +2945,7 @@ -- function gtk_rc_find_module_in_path -- Args : [Arg {argCName = "module_file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TFileName +-- returnType : Just (TBasicType TFileName) -- throws : False -- Skip return : False @@ -2971,7 +2971,7 @@ -- function gtk_rc_add_default_file -- Args : [Arg {argCName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2994,7 +2994,7 @@ -- function gtk_propagate_event -- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3019,9 +3019,9 @@ -- function gtk_print_run_page_setup_dialog_async --- Args : [Arg {argCName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_setup", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "settings", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "done_cb", argType = TInterface "Gtk" "PageSetupDoneFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_setup", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "settings", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "done_cb", argType = TInterface "Gtk" "PageSetupDoneFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3030,7 +3030,7 @@ Ptr PageSetup -> -- page_setup : TInterface "Gtk" "PageSetup" Ptr PrintSettings -> -- settings : TInterface "Gtk" "PrintSettings" FunPtr PageSetupDoneFuncC -> -- done_cb : TInterface "Gtk" "PageSetupDoneFunc" - Ptr () -> -- data : TBasicType TVoid + Ptr () -> -- data : TBasicType TPtr IO () @@ -3067,7 +3067,7 @@ -- function gtk_print_run_page_setup_dialog -- Args : [Arg {argCName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_setup", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "settings", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "PageSetup" +-- returnType : Just (TInterface "Gtk" "PageSetup") -- throws : False -- Skip return : False @@ -3106,14 +3106,14 @@ -- function gtk_parse_args --- Args : [Arg {argCName = "argc", argType = TBasicType TInt32, 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 TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : TBasicType TBoolean +-- 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 "gtk_parse_args" gtk_parse_args :: - Ptr Int32 -> -- argc : TBasicType TInt32 + Ptr Int32 -> -- argc : TBasicType TInt Ptr (Ptr CString) -> -- argv : TCArray False (-1) 0 (TBasicType TUTF8) IO CInt @@ -3142,9 +3142,9 @@ -- function gtk_paint_vline --- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", 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},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y1_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y2_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", 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},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y1_", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y2_", 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}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3154,9 +3154,9 @@ CUInt -> -- state_type : TInterface "Gtk" "StateType" Ptr Widget -> -- widget : TInterface "Gtk" "Widget" CString -> -- detail : TBasicType TUTF8 - Int32 -> -- y1_ : TBasicType TInt32 - Int32 -> -- y2_ : TBasicType TInt32 - Int32 -> -- x : TBasicType TInt32 + Int32 -> -- y1_ : TBasicType TInt + Int32 -> -- y2_ : TBasicType TInt + Int32 -> -- x : TBasicType TInt IO () {-# DEPRECATED paintVline ["(Since version 3.0)","Use gtk_render_line() instead"]#-} @@ -3167,11 +3167,11 @@ -> StateType -- stateType -> Maybe (b) -- widget -> Maybe (T.Text) -- detail - -> Int32 -- y1 - -> Int32 -- y2 + -> Int32 -- y1_ + -> Int32 -- y2_ -> Int32 -- x -> m () -- result -paintVline style cr stateType widget detail y1 y2 x = liftIO $ do +paintVline style cr stateType widget detail y1_ y2_ x = liftIO $ do let style' = unsafeManagedPtrCastPtr style let cr' = unsafeManagedPtrGetPtr cr let stateType' = (fromIntegral . fromEnum) stateType @@ -3185,7 +3185,7 @@ Just jDetail -> do jDetail' <- textToCString jDetail return jDetail' - gtk_paint_vline style' cr' stateType' maybeWidget maybeDetail y1 y2 x + gtk_paint_vline style' cr' stateType' maybeWidget maybeDetail y1_ y2_ x touchManagedPtr style touchManagedPtr cr whenJust widget touchManagedPtr @@ -3194,9 +3194,9 @@ -- function gtk_paint_tab --- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", 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},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", 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},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3207,10 +3207,10 @@ CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType" Ptr Widget -> -- widget : TInterface "Gtk" "Widget" CString -> -- detail : TBasicType TUTF8 - Int32 -> -- x : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 + Int32 -> -- x : TBasicType TInt + Int32 -> -- y : TBasicType TInt + Int32 -> -- width : TBasicType TInt + Int32 -> -- height : TBasicType TInt IO () {-# DEPRECATED paintTab ["(Since version 3.0)","Use cairo instead"]#-} @@ -3251,9 +3251,9 @@ -- function gtk_paint_spinner --- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", 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},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "step", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", 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},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "step", argType = TBasicType TUInt, 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3263,11 +3263,11 @@ CUInt -> -- state_type : TInterface "Gtk" "StateType" Ptr Widget -> -- widget : TInterface "Gtk" "Widget" CString -> -- detail : TBasicType TUTF8 - Word32 -> -- step : TBasicType TUInt32 - Int32 -> -- x : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 + Word32 -> -- step : TBasicType TUInt + Int32 -> -- x : TBasicType TInt + Int32 -> -- y : TBasicType TInt + Int32 -> -- width : TBasicType TInt + Int32 -> -- height : TBasicType TInt IO () {-# DEPRECATED paintSpinner ["(Since version 3.0)","Use gtk_render_activity() instead"]#-} @@ -3307,9 +3307,9 @@ -- function gtk_paint_slider --- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", 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},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", 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},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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},Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3320,10 +3320,10 @@ CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType" Ptr Widget -> -- widget : TInterface "Gtk" "Widget" CString -> -- detail : TBasicType TUTF8 - Int32 -> -- x : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 + Int32 -> -- x : TBasicType TInt + Int32 -> -- y : TBasicType TInt + Int32 -> -- width : TBasicType TInt + Int32 -> -- height : TBasicType TInt CUInt -> -- orientation : TInterface "Gtk" "Orientation" IO () @@ -3367,9 +3367,9 @@ -- function gtk_paint_shadow_gap --- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", 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},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gap_side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gap_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gap_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", 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},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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},Arg {argCName = "gap_side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gap_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gap_width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3380,13 +3380,13 @@ CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType" Ptr Widget -> -- widget : TInterface "Gtk" "Widget" CString -> -- detail : TBasicType TUTF8 - Int32 -> -- x : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 + Int32 -> -- x : TBasicType TInt + Int32 -> -- y : TBasicType TInt + Int32 -> -- width : TBasicType TInt + Int32 -> -- height : TBasicType TInt CUInt -> -- gap_side : TInterface "Gtk" "PositionType" - Int32 -> -- gap_x : TBasicType TInt32 - Int32 -> -- gap_width : TBasicType TInt32 + Int32 -> -- gap_x : TBasicType TInt + Int32 -> -- gap_width : TBasicType TInt IO () {-# DEPRECATED paintShadowGap ["(Since version 3.0)","Use gtk_render_frame_gap() instead"]#-} @@ -3431,9 +3431,9 @@ -- function gtk_paint_shadow --- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", 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},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", 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},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3444,10 +3444,10 @@ CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType" Ptr Widget -> -- widget : TInterface "Gtk" "Widget" CString -> -- detail : TBasicType TUTF8 - Int32 -> -- x : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 + Int32 -> -- x : TBasicType TInt + Int32 -> -- y : TBasicType TInt + Int32 -> -- width : TBasicType TInt + Int32 -> -- height : TBasicType TInt IO () {-# DEPRECATED paintShadow ["(Since version 3.0)","Use gtk_render_frame() instead"]#-} @@ -3488,9 +3488,9 @@ -- function gtk_paint_resize_grip --- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", 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},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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 = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", 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},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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 = "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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3501,10 +3501,10 @@ Ptr Widget -> -- widget : TInterface "Gtk" "Widget" CString -> -- detail : TBasicType TUTF8 CUInt -> -- edge : TInterface "Gdk" "WindowEdge" - Int32 -> -- x : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 + Int32 -> -- x : TBasicType TInt + Int32 -> -- y : TBasicType TInt + Int32 -> -- width : TBasicType TInt + Int32 -> -- height : TBasicType TInt IO () {-# DEPRECATED paintResizeGrip ["(Since version 3.0)","Use gtk_render_handle() instead"]#-} @@ -3545,9 +3545,9 @@ -- function gtk_paint_option --- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", 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},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", 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},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3558,10 +3558,10 @@ CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType" Ptr Widget -> -- widget : TInterface "Gtk" "Widget" CString -> -- detail : TBasicType TUTF8 - Int32 -> -- x : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 + Int32 -> -- x : TBasicType TInt + Int32 -> -- y : TBasicType TInt + Int32 -> -- width : TBasicType TInt + Int32 -> -- height : TBasicType TInt IO () {-# DEPRECATED paintOption ["(Since version 3.0)","Use gtk_render_option() instead"]#-} @@ -3602,9 +3602,9 @@ -- function gtk_paint_layout --- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", 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},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_text", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "layout", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", 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},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_text", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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 = "layout", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3615,8 +3615,8 @@ CInt -> -- use_text : TBasicType TBoolean Ptr Widget -> -- widget : TInterface "Gtk" "Widget" CString -> -- detail : TBasicType TUTF8 - Int32 -> -- x : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 + Int32 -> -- x : TBasicType TInt + Int32 -> -- y : TBasicType TInt Ptr Pango.Layout -> -- layout : TInterface "Pango" "Layout" IO () @@ -3659,9 +3659,9 @@ -- function gtk_paint_hline --- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", 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},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x1", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x2", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", 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},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x1", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x2", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3671,9 +3671,9 @@ CUInt -> -- state_type : TInterface "Gtk" "StateType" Ptr Widget -> -- widget : TInterface "Gtk" "Widget" CString -> -- detail : TBasicType TUTF8 - Int32 -> -- x1 : TBasicType TInt32 - Int32 -> -- x2 : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 + Int32 -> -- x1 : TBasicType TInt + Int32 -> -- x2 : TBasicType TInt + Int32 -> -- y : TBasicType TInt IO () {-# DEPRECATED paintHline ["(Since version 3.0)","Use gtk_render_line() instead"]#-} @@ -3711,9 +3711,9 @@ -- function gtk_paint_handle --- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", 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},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", 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},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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},Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3724,10 +3724,10 @@ CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType" Ptr Widget -> -- widget : TInterface "Gtk" "Widget" CString -> -- detail : TBasicType TUTF8 - Int32 -> -- x : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 + Int32 -> -- x : TBasicType TInt + Int32 -> -- y : TBasicType TInt + Int32 -> -- width : TBasicType TInt + Int32 -> -- height : TBasicType TInt CUInt -> -- orientation : TInterface "Gtk" "Orientation" IO () @@ -3771,9 +3771,9 @@ -- function gtk_paint_focus --- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", 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},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", 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},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3783,10 +3783,10 @@ CUInt -> -- state_type : TInterface "Gtk" "StateType" Ptr Widget -> -- widget : TInterface "Gtk" "Widget" CString -> -- detail : TBasicType TUTF8 - Int32 -> -- x : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 + Int32 -> -- x : TBasicType TInt + Int32 -> -- y : TBasicType TInt + Int32 -> -- width : TBasicType TInt + Int32 -> -- height : TBasicType TInt IO () {-# DEPRECATED paintFocus ["(Since version 3.0)","Use gtk_render_focus() instead"]#-} @@ -3825,9 +3825,9 @@ -- function gtk_paint_flat_box --- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", 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},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", 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},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3838,10 +3838,10 @@ CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType" Ptr Widget -> -- widget : TInterface "Gtk" "Widget" CString -> -- detail : TBasicType TUTF8 - Int32 -> -- x : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 + Int32 -> -- x : TBasicType TInt + Int32 -> -- y : TBasicType TInt + Int32 -> -- width : TBasicType TInt + Int32 -> -- height : TBasicType TInt IO () {-# DEPRECATED paintFlatBox ["(Since version 3.0)","Use gtk_render_frame() and gtk_render_background() instead"]#-} @@ -3882,9 +3882,9 @@ -- function gtk_paint_extension --- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", 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},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gap_side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", 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},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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},Arg {argCName = "gap_side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3895,10 +3895,10 @@ CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType" Ptr Widget -> -- widget : TInterface "Gtk" "Widget" CString -> -- detail : TBasicType TUTF8 - Int32 -> -- x : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 + Int32 -> -- x : TBasicType TInt + Int32 -> -- y : TBasicType TInt + Int32 -> -- width : TBasicType TInt + Int32 -> -- height : TBasicType TInt CUInt -> -- gap_side : TInterface "Gtk" "PositionType" IO () @@ -3942,9 +3942,9 @@ -- function gtk_paint_expander --- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", 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},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expander_style", argType = TInterface "Gtk" "ExpanderStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", 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},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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 = "expander_style", argType = TInterface "Gtk" "ExpanderStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3954,8 +3954,8 @@ CUInt -> -- state_type : TInterface "Gtk" "StateType" Ptr Widget -> -- widget : TInterface "Gtk" "Widget" CString -> -- detail : TBasicType TUTF8 - Int32 -> -- x : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 + Int32 -> -- x : TBasicType TInt + Int32 -> -- y : TBasicType TInt CUInt -> -- expander_style : TInterface "Gtk" "ExpanderStyle" IO () @@ -3995,9 +3995,9 @@ -- function gtk_paint_diamond --- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", 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},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", 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},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4008,10 +4008,10 @@ CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType" Ptr Widget -> -- widget : TInterface "Gtk" "Widget" CString -> -- detail : TBasicType TUTF8 - Int32 -> -- x : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 + Int32 -> -- x : TBasicType TInt + Int32 -> -- y : TBasicType TInt + Int32 -> -- width : TBasicType TInt + Int32 -> -- height : TBasicType TInt IO () {-# DEPRECATED paintDiamond ["(Since version 3.0)","Use cairo instead"]#-} @@ -4052,9 +4052,9 @@ -- function gtk_paint_check --- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", 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},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", 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},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4065,10 +4065,10 @@ CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType" Ptr Widget -> -- widget : TInterface "Gtk" "Widget" CString -> -- detail : TBasicType TUTF8 - Int32 -> -- x : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 + Int32 -> -- x : TBasicType TInt + Int32 -> -- y : TBasicType TInt + Int32 -> -- width : TBasicType TInt + Int32 -> -- height : TBasicType TInt IO () {-# DEPRECATED paintCheck ["(Since version 3.0)","Use gtk_render_check() instead"]#-} @@ -4109,9 +4109,9 @@ -- function gtk_paint_box_gap --- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", 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},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gap_side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gap_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gap_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", 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},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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},Arg {argCName = "gap_side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gap_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gap_width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4122,13 +4122,13 @@ CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType" Ptr Widget -> -- widget : TInterface "Gtk" "Widget" CString -> -- detail : TBasicType TUTF8 - Int32 -> -- x : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 + Int32 -> -- x : TBasicType TInt + Int32 -> -- y : TBasicType TInt + Int32 -> -- width : TBasicType TInt + Int32 -> -- height : TBasicType TInt CUInt -> -- gap_side : TInterface "Gtk" "PositionType" - Int32 -> -- gap_x : TBasicType TInt32 - Int32 -> -- gap_width : TBasicType TInt32 + Int32 -> -- gap_x : TBasicType TInt + Int32 -> -- gap_width : TBasicType TInt IO () {-# DEPRECATED paintBoxGap ["(Since version 3.0)","Use gtk_render_frame_gap() instead"]#-} @@ -4173,9 +4173,9 @@ -- function gtk_paint_box --- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", 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},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", 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},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4186,10 +4186,10 @@ CUInt -> -- shadow_type : TInterface "Gtk" "ShadowType" Ptr Widget -> -- widget : TInterface "Gtk" "Widget" CString -> -- detail : TBasicType TUTF8 - Int32 -> -- x : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 + Int32 -> -- x : TBasicType TInt + Int32 -> -- y : TBasicType TInt + Int32 -> -- width : TBasicType TInt + Int32 -> -- height : TBasicType TInt IO () {-# DEPRECATED paintBox ["(Since version 3.0)","Use gtk_render_frame() and gtk_render_background() instead"]#-} @@ -4230,9 +4230,9 @@ -- function gtk_paint_arrow --- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", 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},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "arrow_type", argType = TInterface "Gtk" "ArrowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fill", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "style", argType = TInterface "Gtk" "Style", 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},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "arrow_type", argType = TInterface "Gtk" "ArrowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fill", argType = TBasicType TBoolean, 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4245,10 +4245,10 @@ CString -> -- detail : TBasicType TUTF8 CUInt -> -- arrow_type : TInterface "Gtk" "ArrowType" CInt -> -- fill : TBasicType TBoolean - Int32 -> -- x : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 + Int32 -> -- x : TBasicType TInt + Int32 -> -- y : TBasicType TInt + Int32 -> -- width : TBasicType TInt + Int32 -> -- height : TBasicType TInt IO () {-# DEPRECATED paintArrow ["(Since version 3.0)","Use gtk_render_arrow() instead"]#-} @@ -4295,7 +4295,7 @@ -- function gtk_main_quit -- Args : [] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4314,7 +4314,7 @@ -- function gtk_main_level -- Args : [] -- Lengths : [] --- returnType : TBasicType TUInt32 +-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -4333,7 +4333,7 @@ -- function gtk_main_iteration_do -- Args : [Arg {argCName = "blocking", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -4356,7 +4356,7 @@ -- function gtk_main_iteration -- Args : [] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -4376,7 +4376,7 @@ -- function gtk_main_do_event -- Args : [Arg {argCName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4399,7 +4399,7 @@ -- function gtk_main -- Args : [] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4416,14 +4416,14 @@ -- function gtk_key_snooper_remove --- Args : [Arg {argCName = "snooper_handler_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "snooper_handler_id", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_key_snooper_remove" gtk_key_snooper_remove :: - Word32 -> -- snooper_handler_id : TBasicType TUInt32 + Word32 -> -- snooper_handler_id : TBasicType TUInt IO () {-# DEPRECATED keySnooperRemove ["(Since version 3.4)","Key snooping should not be done. Events should"," be handled by widgets."]#-} @@ -4437,14 +4437,14 @@ -- function gtk_init_with_args --- Args : [Arg {argCName = "argc", argType = TBasicType TInt32, 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 = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "parameter_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "entries", argType = TCArray True (-1) (-1) (TInterface "GLib" "OptionEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "translation_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "argc", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : TBasicType TBoolean +-- 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 = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "parameter_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "entries", argType = TCArray True (-1) (-1) (TInterface "GLib" "OptionEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "translation_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- 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 : True -- Skip return : False foreign import ccall "gtk_init_with_args" gtk_init_with_args :: - Ptr Int32 -> -- argc : TBasicType TInt32 + Ptr Int32 -> -- argc : TBasicType TInt Ptr (Ptr CString) -> -- argv : TCArray False (-1) 0 (TBasicType TUTF8) CString -> -- parameter_string : TBasicType TUTF8 Ptr (Ptr GLib.OptionEntry) -> -- entries : TCArray True (-1) (-1) (TInterface "GLib" "OptionEntry") @@ -4511,14 +4511,14 @@ -- function gtk_init_check --- Args : [Arg {argCName = "argc", argType = TBasicType TInt32, 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 = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "argc", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : TBasicType TBoolean +-- 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 = True, 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 "gtk_init_check" gtk_init_check :: - Ptr Int32 -> -- argc : TBasicType TInt32 + Ptr Int32 -> -- argc : TBasicType TInt Ptr (Ptr CString) -> -- argv : TCArray False (-1) 0 (TBasicType TUTF8) IO CInt @@ -4555,14 +4555,14 @@ -- function gtk_init --- Args : [Arg {argCName = "argc", argType = TBasicType TInt32, 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 = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "argc", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : TBasicType TVoid +-- 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 = True, 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 "gtk_init" gtk_init :: - Ptr Int32 -> -- argc : TBasicType TInt32 + Ptr Int32 -> -- argc : TBasicType TInt Ptr (Ptr CString) -> -- argv : TCArray False (-1) 0 (TBasicType TUTF8) IO () @@ -4600,7 +4600,7 @@ -- function gtk_grab_get_current -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -4610,18 +4610,19 @@ grabGetCurrent :: (MonadIO m) => - m Widget -- result + m (Maybe Widget) -- result grabGetCurrent = liftIO $ do result <- gtk_grab_get_current - checkUnexpectedReturnNULL "gtk_grab_get_current" result - result' <- (newObject Widget) result - return result' + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (newObject Widget) result' + return result'' + return maybeResult -- function gtk_get_option_group -- Args : [Arg {argCName = "open_default_display", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "GLib" "OptionGroup" +-- returnType : Just (TInterface "GLib" "OptionGroup") -- throws : False -- Skip return : False @@ -4645,7 +4646,7 @@ -- function gtk_get_minor_version -- Args : [] -- Lengths : [] --- returnType : TBasicType TUInt32 +-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -4664,7 +4665,7 @@ -- function gtk_get_micro_version -- Args : [] -- Lengths : [] --- returnType : TBasicType TUInt32 +-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -4683,7 +4684,7 @@ -- function gtk_get_major_version -- Args : [] -- Lengths : [] --- returnType : TBasicType TUInt32 +-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -4702,7 +4703,7 @@ -- function gtk_get_locale_direction -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "TextDirection" +-- returnType : Just (TInterface "Gtk" "TextDirection") -- throws : False -- Skip return : False @@ -4722,7 +4723,7 @@ -- function gtk_get_interface_age -- Args : [] -- Lengths : [] --- returnType : TBasicType TUInt32 +-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -4741,7 +4742,7 @@ -- function gtk_get_event_widget -- Args : [Arg {argCName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -4753,20 +4754,21 @@ getEventWidget :: (MonadIO m) => Gdk.Event -- event - -> m Widget -- result + -> m (Maybe Widget) -- result getEventWidget event = liftIO $ do let event' = unsafeManagedPtrGetPtr event result <- gtk_get_event_widget event' - checkUnexpectedReturnNULL "gtk_get_event_widget" result - result' <- (newObject Widget) result + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (newObject Widget) result' + return result'' touchManagedPtr event - return result' + return maybeResult -- function gtk_get_default_language -- Args : [] -- Lengths : [] --- returnType : TInterface "Pango" "Language" +-- returnType : Just (TInterface "Pango" "Language") -- throws : False -- Skip return : False @@ -4787,7 +4789,7 @@ -- function gtk_get_debug_flags -- Args : [] -- Lengths : [] --- returnType : TBasicType TUInt32 +-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -4806,7 +4808,7 @@ -- function gtk_get_current_event_time -- Args : [] -- Lengths : [] --- returnType : TBasicType TUInt32 +-- returnType : Just (TBasicType TUInt32) -- throws : False -- Skip return : False @@ -4825,7 +4827,7 @@ -- function gtk_get_current_event_state -- Args : [Arg {argCName = "state", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -4850,7 +4852,7 @@ -- function gtk_get_current_event_device -- Args : [] -- Lengths : [] --- returnType : TInterface "Gdk" "Device" +-- returnType : Just (TInterface "Gdk" "Device") -- throws : False -- Skip return : False @@ -4860,18 +4862,19 @@ getCurrentEventDevice :: (MonadIO m) => - m Gdk.Device -- result + m (Maybe Gdk.Device) -- result getCurrentEventDevice = liftIO $ do result <- gtk_get_current_event_device - checkUnexpectedReturnNULL "gtk_get_current_event_device" result - result' <- (newObject Gdk.Device) result - return result' + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (newObject Gdk.Device) result' + return result'' + return maybeResult -- function gtk_get_current_event -- Args : [] -- Lengths : [] --- returnType : TInterface "Gdk" "Event" +-- returnType : Just (TInterface "Gdk" "Event") -- throws : False -- Skip return : False @@ -4881,18 +4884,19 @@ getCurrentEvent :: (MonadIO m) => - m Gdk.Event -- result + m (Maybe Gdk.Event) -- result getCurrentEvent = liftIO $ do result <- gtk_get_current_event - checkUnexpectedReturnNULL "gtk_get_current_event" result - result' <- (wrapBoxed Gdk.Event) result - return result' + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (wrapBoxed Gdk.Event) result' + return result'' + return maybeResult -- function gtk_get_binary_age -- Args : [] -- Lengths : [] --- returnType : TBasicType TUInt32 +-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -4911,7 +4915,7 @@ -- function gtk_false -- Args : [] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -4931,7 +4935,7 @@ -- function gtk_events_pending -- Args : [] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -4951,7 +4955,7 @@ -- function gtk_draw_insertion_cursor -- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", 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},Arg {argCName = "location", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_primary", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "direction", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "draw_arrow", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4989,17 +4993,17 @@ -- function gtk_drag_set_icon_widget --- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_drag_set_icon_widget" gtk_drag_set_icon_widget :: Ptr Gdk.DragContext -> -- context : TInterface "Gdk" "DragContext" Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - Int32 -> -- hot_x : TBasicType TInt32 - Int32 -> -- hot_y : TBasicType TInt32 + Int32 -> -- hot_x : TBasicType TInt + Int32 -> -- hot_y : TBasicType TInt IO () @@ -5022,7 +5026,7 @@ -- function gtk_drag_set_icon_surface -- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", 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}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5047,17 +5051,17 @@ -- function gtk_drag_set_icon_stock --- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_drag_set_icon_stock" gtk_drag_set_icon_stock :: Ptr Gdk.DragContext -> -- context : TInterface "Gdk" "DragContext" CString -> -- stock_id : TBasicType TUTF8 - Int32 -> -- hot_x : TBasicType TInt32 - Int32 -> -- hot_y : TBasicType TInt32 + Int32 -> -- hot_x : TBasicType TInt + Int32 -> -- hot_y : TBasicType TInt IO () {-# DEPRECATED dragSetIconStock ["(Since version 3.10)","Use gtk_drag_set_icon_name() instead."]#-} @@ -5078,17 +5082,17 @@ -- function gtk_drag_set_icon_pixbuf --- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", 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 = "hot_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", 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 = "hot_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_drag_set_icon_pixbuf" gtk_drag_set_icon_pixbuf :: Ptr Gdk.DragContext -> -- context : TInterface "Gdk" "DragContext" Ptr GdkPixbuf.Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf" - Int32 -> -- hot_x : TBasicType TInt32 - Int32 -> -- hot_y : TBasicType TInt32 + Int32 -> -- hot_x : TBasicType TInt + Int32 -> -- hot_y : TBasicType TInt IO () @@ -5109,17 +5113,17 @@ -- function gtk_drag_set_icon_name --- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_drag_set_icon_name" gtk_drag_set_icon_name :: Ptr Gdk.DragContext -> -- context : TInterface "Gdk" "DragContext" CString -> -- icon_name : TBasicType TUTF8 - Int32 -> -- hot_x : TBasicType TInt32 - Int32 -> -- hot_y : TBasicType TInt32 + Int32 -> -- hot_x : TBasicType TInt + Int32 -> -- hot_y : TBasicType TInt IO () @@ -5140,17 +5144,17 @@ -- function gtk_drag_set_icon_gicon --- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hot_y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_drag_set_icon_gicon" gtk_drag_set_icon_gicon :: Ptr Gdk.DragContext -> -- context : TInterface "Gdk" "DragContext" Ptr Gio.Icon -> -- icon : TInterface "Gio" "Icon" - Int32 -> -- hot_x : TBasicType TInt32 - Int32 -> -- hot_y : TBasicType TInt32 + Int32 -> -- hot_x : TBasicType TInt + Int32 -> -- hot_y : TBasicType TInt IO () @@ -5173,7 +5177,7 @@ -- function gtk_drag_set_icon_default -- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5196,7 +5200,7 @@ -- function gtk_drag_get_source_widget -- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -5221,7 +5225,7 @@ -- function gtk_drag_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 = "del", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5238,13 +5242,13 @@ a -- context -> Bool -- success -> Bool -- del - -> Word32 -- time + -> Word32 -- time_ -> m () -- result -dragFinish context success del time = liftIO $ do +dragFinish context success del time_ = liftIO $ do let context' = unsafeManagedPtrCastPtr context let success' = (fromIntegral . fromEnum) success let del' = (fromIntegral . fromEnum) del - gtk_drag_finish context' success' del' time + gtk_drag_finish context' success' del' time_ touchManagedPtr context return () @@ -5252,7 +5256,7 @@ -- function gtk_drag_cancel -- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5273,15 +5277,15 @@ -- function gtk_distribute_natural_allocation --- Args : [Arg {argCName = "extra_space", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_requested_sizes", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sizes", argType = TInterface "Gtk" "RequestedSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "extra_space", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_requested_sizes", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sizes", argType = TInterface "Gtk" "RequestedSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False foreign import ccall "gtk_distribute_natural_allocation" gtk_distribute_natural_allocation :: - Int32 -> -- extra_space : TBasicType TInt32 - Word32 -> -- n_requested_sizes : TBasicType TUInt32 + Int32 -> -- extra_space : TBasicType TInt + Word32 -> -- n_requested_sizes : TBasicType TUInt Ptr RequestedSize -> -- sizes : TInterface "Gtk" "RequestedSize" IO Int32 @@ -5302,7 +5306,7 @@ -- function gtk_disable_setlocale -- Args : [] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5321,7 +5325,7 @@ -- function gtk_device_grab_remove -- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5348,7 +5352,7 @@ -- function gtk_device_grab_add -- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", 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 = "block_others", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5376,16 +5380,16 @@ -- function gtk_check_version --- Args : [Arg {argCName = "required_major", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "required_minor", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "required_micro", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "required_major", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "required_minor", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "required_micro", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False foreign import ccall "gtk_check_version" gtk_check_version :: - Word32 -> -- required_major : TBasicType TUInt32 - Word32 -> -- required_minor : TBasicType TUInt32 - Word32 -> -- required_micro : TBasicType TUInt32 + Word32 -> -- required_major : TBasicType TUInt + Word32 -> -- required_minor : TBasicType TUInt + Word32 -> -- required_micro : TBasicType TUInt IO CString @@ -5405,7 +5409,7 @@ -- function gtk_cairo_transform_to_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 = "widget", argType = TInterface "Gtk" "Widget", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5436,7 +5440,7 @@ -- function gtk_cairo_should_draw_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}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -5464,7 +5468,7 @@ -- function gtk_bindings_activate_event -- Args : [Arg {argCName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "EventKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -5490,15 +5494,15 @@ -- function gtk_bindings_activate --- Args : [Arg {argCName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keyval", argType = TBasicType TUInt32, 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}] +-- Args : [Arg {argCName = "object", argType = TInterface "GObject" "Object", 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 : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_bindings_activate" gtk_bindings_activate :: Ptr GObject.Object -> -- object : TInterface "GObject" "Object" - Word32 -> -- keyval : TBasicType TUInt32 + Word32 -> -- keyval : TBasicType TUInt CUInt -> -- modifiers : TInterface "Gdk" "ModifierType" IO CInt @@ -5521,7 +5525,7 @@ -- function gtk_alternative_dialog_button_order -- Args : [Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -5547,14 +5551,14 @@ -- function gtk_accelerator_valid --- Args : [Arg {argCName = "keyval", argType = TBasicType TUInt32, 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}] +-- Args : [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 : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_accelerator_valid" gtk_accelerator_valid :: - Word32 -> -- keyval : TBasicType TUInt32 + Word32 -> -- keyval : TBasicType TUInt CUInt -> -- modifiers : TInterface "Gdk" "ModifierType" IO CInt @@ -5574,7 +5578,7 @@ -- function gtk_accelerator_set_default_mod_mask -- Args : [Arg {argCName = "default_mod_mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5594,16 +5598,16 @@ -- function gtk_accelerator_parse_with_keycode --- Args : [Arg {argCName = "accelerator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_key", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "accelerator_codes", argType = TCArray True (-1) (-1) (TBasicType TUInt32), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "accelerator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_key", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "accelerator_codes", argType = TCArray True (-1) (-1) (TBasicType TUInt), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_accelerator_parse_with_keycode" gtk_accelerator_parse_with_keycode :: CString -> -- accelerator : TBasicType TUTF8 - Ptr Word32 -> -- accelerator_key : TBasicType TUInt32 - Ptr (Ptr Word32) -> -- accelerator_codes : TCArray True (-1) (-1) (TBasicType TUInt32) + Ptr Word32 -> -- accelerator_key : TBasicType TUInt + Ptr (Ptr Word32) -> -- accelerator_codes : TCArray True (-1) (-1) (TBasicType TUInt) Ptr CUInt -> -- accelerator_mods : TInterface "Gdk" "ModifierType" IO () @@ -5632,15 +5636,15 @@ -- function gtk_accelerator_parse --- Args : [Arg {argCName = "accelerator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_key", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "accelerator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_key", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_accelerator_parse" gtk_accelerator_parse :: CString -> -- accelerator : TBasicType TUTF8 - Ptr Word32 -> -- accelerator_key : TBasicType TUInt32 + Ptr Word32 -> -- accelerator_key : TBasicType TUInt Ptr CUInt -> -- accelerator_mods : TInterface "Gdk" "ModifierType" IO () @@ -5664,16 +5668,16 @@ -- function gtk_accelerator_name_with_keycode --- Args : [Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keycode", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_key", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keycode", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False foreign import ccall "gtk_accelerator_name_with_keycode" gtk_accelerator_name_with_keycode :: Ptr Gdk.Display -> -- display : TInterface "Gdk" "Display" - Word32 -> -- accelerator_key : TBasicType TUInt32 - Word32 -> -- keycode : TBasicType TUInt32 + Word32 -> -- accelerator_key : TBasicType TUInt + Word32 -> -- keycode : TBasicType TUInt CUInt -> -- accelerator_mods : TInterface "Gdk" "ModifierType" IO CString @@ -5701,14 +5705,14 @@ -- function gtk_accelerator_name --- Args : [Arg {argCName = "accelerator_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "accelerator_key", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False foreign import ccall "gtk_accelerator_name" gtk_accelerator_name :: - Word32 -> -- accelerator_key : TBasicType TUInt32 + Word32 -> -- accelerator_key : TBasicType TUInt CUInt -> -- accelerator_mods : TInterface "Gdk" "ModifierType" IO CString @@ -5728,16 +5732,16 @@ -- function gtk_accelerator_get_label_with_keycode --- Args : [Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keycode", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_key", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keycode", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False foreign import ccall "gtk_accelerator_get_label_with_keycode" gtk_accelerator_get_label_with_keycode :: Ptr Gdk.Display -> -- display : TInterface "Gdk" "Display" - Word32 -> -- accelerator_key : TBasicType TUInt32 - Word32 -> -- keycode : TBasicType TUInt32 + Word32 -> -- accelerator_key : TBasicType TUInt + Word32 -> -- keycode : TBasicType TUInt CUInt -> -- accelerator_mods : TInterface "Gdk" "ModifierType" IO CString @@ -5765,14 +5769,14 @@ -- function gtk_accelerator_get_label --- Args : [Arg {argCName = "accelerator_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "accelerator_key", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False foreign import ccall "gtk_accelerator_get_label" gtk_accelerator_get_label :: - Word32 -> -- accelerator_key : TBasicType TUInt32 + Word32 -> -- accelerator_key : TBasicType TUInt CUInt -> -- accelerator_mods : TInterface "Gdk" "ModifierType" IO CString @@ -5794,7 +5798,7 @@ -- function gtk_accelerator_get_default_mod_mask -- Args : [] -- Lengths : [] --- returnType : TInterface "Gdk" "ModifierType" +-- returnType : Just (TInterface "Gdk" "ModifierType") -- throws : False -- Skip return : False @@ -5814,7 +5818,7 @@ -- function gtk_accel_groups_from_object -- Args : [Arg {argCName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TGSList (TInterface "Gtk" "AccelGroup") +-- returnType : Just (TGSList (TInterface "Gtk" "AccelGroup")) -- throws : False -- Skip return : False @@ -5830,7 +5834,6 @@ accelGroupsFromObject object = liftIO $ do let object' = unsafeManagedPtrCastPtr object result <- gtk_accel_groups_from_object object' - checkUnexpectedReturnNULL "gtk_accel_groups_from_object" result result' <- unpackGSList result result'' <- mapM (newObject AccelGroup) result' touchManagedPtr object @@ -5838,15 +5841,15 @@ -- function gtk_accel_groups_activate --- Args : [Arg {argCName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_key", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_accel_groups_activate" gtk_accel_groups_activate :: Ptr GObject.Object -> -- object : TInterface "GObject" "Object" - Word32 -> -- accel_key : TBasicType TUInt32 + Word32 -> -- accel_key : TBasicType TUInt CUInt -> -- accel_mods : TInterface "Gdk" "ModifierType" IO CInt diff --git a/GI/Gtk/Interfaces.hs b/GI/Gtk/Interfaces.hs --- a/GI/Gtk/Interfaces.hs +++ b/GI/Gtk/Interfaces.hs @@ -54,9 +54,9 @@ import GI.Gtk.Interfaces.TreeModel import GI.Gtk.Interfaces.TreeSortable -import Prelude () 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 diff --git a/GI/Gtk/Interfaces/Actionable.hs b/GI/Gtk/Interfaces/Actionable.hs --- a/GI/Gtk/Interfaces/Actionable.hs +++ b/GI/Gtk/Interfaces/Actionable.hs @@ -47,6 +47,7 @@ -- * Properties -- ** ActionName ActionableActionNamePropertyInfo , + actionableActionName , constructActionableActionName , getActionableActionName , setActionableActionName , @@ -54,6 +55,8 @@ -- ** ActionTarget ActionableActionTargetPropertyInfo , + actionableActionTarget , + clearActionableActionTarget , constructActionableActionTarget , getActionableActionTarget , setActionableActionTarget , @@ -63,9 +66,9 @@ ) where -import Prelude () 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 @@ -384,15 +387,16 @@ -- VVV Prop "action-name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getActionableActionName :: (MonadIO m, ActionableK o) => o -> m T.Text -getActionableActionName obj = liftIO $ getObjectPropertyString obj "action-name" +getActionableActionName obj = liftIO $ checkUnexpectedNothing "getActionableActionName" $ getObjectPropertyString obj "action-name" setActionableActionName :: (MonadIO m, ActionableK o) => o -> T.Text -> m () -setActionableActionName obj val = liftIO $ setObjectPropertyString obj "action-name" val +setActionableActionName obj val = liftIO $ setObjectPropertyString obj "action-name" (Just val) constructActionableActionName :: T.Text -> IO ([Char], GValue) -constructActionableActionName val = constructObjectPropertyString "action-name" val +constructActionableActionName val = constructObjectPropertyString "action-name" (Just val) data ActionableActionNamePropertyInfo instance AttrInfo ActionableActionNamePropertyInfo where @@ -404,34 +408,46 @@ attrGet _ = getActionableActionName attrSet _ = setActionableActionName attrConstruct _ = constructActionableActionName + attrClear _ = undefined -- VVV Prop "action-target" -- Type: TVariant -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getActionableActionTarget :: (MonadIO m, ActionableK o) => o -> m GVariant +getActionableActionTarget :: (MonadIO m, ActionableK o) => o -> m (Maybe GVariant) getActionableActionTarget obj = liftIO $ getObjectPropertyVariant obj "action-target" setActionableActionTarget :: (MonadIO m, ActionableK o) => o -> GVariant -> m () -setActionableActionTarget obj val = liftIO $ setObjectPropertyVariant obj "action-target" val +setActionableActionTarget obj val = liftIO $ setObjectPropertyVariant obj "action-target" (Just val) constructActionableActionTarget :: GVariant -> IO ([Char], GValue) -constructActionableActionTarget val = constructObjectPropertyVariant "action-target" val +constructActionableActionTarget val = constructObjectPropertyVariant "action-target" (Just val) +clearActionableActionTarget :: (MonadIO m, ActionableK o) => o -> m () +clearActionableActionTarget obj = liftIO $ setObjectPropertyVariant obj "action-target" (Nothing :: Maybe GVariant) + data ActionableActionTargetPropertyInfo instance AttrInfo ActionableActionTargetPropertyInfo where - type AttrAllowedOps ActionableActionTargetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps ActionableActionTargetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ActionableActionTargetPropertyInfo = (~) GVariant type AttrBaseTypeConstraint ActionableActionTargetPropertyInfo = ActionableK - type AttrGetType ActionableActionTargetPropertyInfo = GVariant + type AttrGetType ActionableActionTargetPropertyInfo = (Maybe GVariant) type AttrLabel ActionableActionTargetPropertyInfo = "action-target" attrGet _ = getActionableActionTarget attrSet _ = setActionableActionTarget attrConstruct _ = constructActionableActionTarget + attrClear _ = clearActionableActionTarget type instance AttributeList Actionable = ActionableAttributeList type ActionableAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +actionableActionName :: AttrLabelProxy "actionName" +actionableActionName = AttrLabelProxy + +actionableActionTarget :: AttrLabelProxy "actionTarget" +actionableActionTarget = AttrLabelProxy + type instance SignalList Actionable = ActionableSignalList type ActionableSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -456,7 +472,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Actionable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -485,7 +501,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Actionable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TVariant +-- returnType : Just TVariant -- throws : False -- Skip return : False @@ -514,7 +530,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Actionable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -545,7 +561,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Actionable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target_value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -575,7 +591,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Actionable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detailed_action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Interfaces/Actionable.hs-boot b/GI/Gtk/Interfaces/Actionable.hs-boot --- a/GI/Gtk/Interfaces/Actionable.hs-boot +++ b/GI/Gtk/Interfaces/Actionable.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Interfaces.Actionable where -import Prelude () 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 diff --git a/GI/Gtk/Interfaces/Activatable.hs b/GI/Gtk/Interfaces/Activatable.hs --- a/GI/Gtk/Interfaces/Activatable.hs +++ b/GI/Gtk/Interfaces/Activatable.hs @@ -52,6 +52,7 @@ -- * Properties -- ** RelatedAction ActivatableRelatedActionPropertyInfo , + activatableRelatedAction , constructActivatableRelatedAction , getActivatableRelatedAction , setActivatableRelatedAction , @@ -59,6 +60,7 @@ -- ** UseActionAppearance ActivatableUseActionAppearancePropertyInfo, + activatableUseActionAppearance , constructActivatableUseActionAppearance , getActivatableUseActionAppearance , setActivatableUseActionAppearance , @@ -68,9 +70,9 @@ ) where -import Prelude () 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 @@ -127,15 +129,16 @@ -- VVV Prop "related-action" -- Type: TInterface "Gtk" "Action" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getActivatableRelatedAction :: (MonadIO m, ActivatableK o) => o -> m Action -getActivatableRelatedAction obj = liftIO $ getObjectPropertyObject obj "related-action" Action +getActivatableRelatedAction obj = liftIO $ checkUnexpectedNothing "getActivatableRelatedAction" $ getObjectPropertyObject obj "related-action" Action setActivatableRelatedAction :: (MonadIO m, ActivatableK o, ActionK a) => o -> a -> m () -setActivatableRelatedAction obj val = liftIO $ setObjectPropertyObject obj "related-action" val +setActivatableRelatedAction obj val = liftIO $ setObjectPropertyObject obj "related-action" (Just val) constructActivatableRelatedAction :: (ActionK a) => a -> IO ([Char], GValue) -constructActivatableRelatedAction val = constructObjectPropertyObject "related-action" val +constructActivatableRelatedAction val = constructObjectPropertyObject "related-action" (Just val) data ActivatableRelatedActionPropertyInfo instance AttrInfo ActivatableRelatedActionPropertyInfo where @@ -147,10 +150,12 @@ attrGet _ = getActivatableRelatedAction attrSet _ = setActivatableRelatedAction attrConstruct _ = constructActivatableRelatedAction + attrClear _ = undefined -- VVV Prop "use-action-appearance" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getActivatableUseActionAppearance :: (MonadIO m, ActivatableK o) => o -> m Bool getActivatableUseActionAppearance obj = liftIO $ getObjectPropertyBool obj "use-action-appearance" @@ -171,10 +176,17 @@ attrGet _ = getActivatableUseActionAppearance attrSet _ = setActivatableUseActionAppearance attrConstruct _ = constructActivatableUseActionAppearance + attrClear _ = undefined type instance AttributeList Activatable = ActivatableAttributeList type ActivatableAttributeList = ('[ '("relatedAction", ActivatableRelatedActionPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo)] :: [(Symbol, *)]) +activatableRelatedAction :: AttrLabelProxy "relatedAction" +activatableRelatedAction = AttrLabelProxy + +activatableUseActionAppearance :: AttrLabelProxy "useActionAppearance" +activatableUseActionAppearance = AttrLabelProxy + type instance SignalList Activatable = ActivatableSignalList type ActivatableSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -199,7 +211,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Activatable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -230,7 +242,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Activatable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Action" +-- returnType : Just (TInterface "Gtk" "Action") -- throws : False -- Skip return : False @@ -259,7 +271,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Activatable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -287,7 +299,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Activatable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -318,7 +330,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Activatable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_appearance", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -348,7 +360,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Activatable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Interfaces/Activatable.hs-boot b/GI/Gtk/Interfaces/Activatable.hs-boot --- a/GI/Gtk/Interfaces/Activatable.hs-boot +++ b/GI/Gtk/Interfaces/Activatable.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Interfaces.Activatable where -import Prelude () 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 diff --git a/GI/Gtk/Interfaces/AppChooser.hs b/GI/Gtk/Interfaces/AppChooser.hs --- a/GI/Gtk/Interfaces/AppChooser.hs +++ b/GI/Gtk/Interfaces/AppChooser.hs @@ -37,6 +37,7 @@ -- * Properties -- ** ContentType AppChooserContentTypePropertyInfo , + appChooserContentType , constructAppChooserContentType , getAppChooserContentType , @@ -45,9 +46,9 @@ ) where -import Prelude () 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 @@ -365,27 +366,32 @@ -- VVV Prop "content-type" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + -- Nullable: (Nothing,Nothing) -getAppChooserContentType :: (MonadIO m, AppChooserK o) => o -> m T.Text +getAppChooserContentType :: (MonadIO m, AppChooserK o) => o -> m (Maybe T.Text) getAppChooserContentType obj = liftIO $ getObjectPropertyString obj "content-type" constructAppChooserContentType :: T.Text -> IO ([Char], GValue) -constructAppChooserContentType val = constructObjectPropertyString "content-type" val +constructAppChooserContentType val = constructObjectPropertyString "content-type" (Just val) data AppChooserContentTypePropertyInfo instance AttrInfo AppChooserContentTypePropertyInfo where - type AttrAllowedOps AppChooserContentTypePropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrAllowedOps AppChooserContentTypePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint AppChooserContentTypePropertyInfo = (~) T.Text type AttrBaseTypeConstraint AppChooserContentTypePropertyInfo = AppChooserK - type AttrGetType AppChooserContentTypePropertyInfo = T.Text + type AttrGetType AppChooserContentTypePropertyInfo = (Maybe T.Text) type AttrLabel AppChooserContentTypePropertyInfo = "content-type" attrGet _ = getAppChooserContentType attrSet _ = undefined attrConstruct _ = constructAppChooserContentType + attrClear _ = undefined type instance AttributeList AppChooser = AppChooserAttributeList type AppChooserAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("contentType", AppChooserContentTypePropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +appChooserContentType :: AttrLabelProxy "contentType" +appChooserContentType = AttrLabelProxy + type instance SignalList AppChooser = AppChooserSignalList type AppChooserSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -410,7 +416,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gio" "AppInfo" +-- returnType : Just (TInterface "Gio" "AppInfo") -- throws : False -- Skip return : False @@ -439,7 +445,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -469,7 +475,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Interfaces/AppChooser.hs-boot b/GI/Gtk/Interfaces/AppChooser.hs-boot --- a/GI/Gtk/Interfaces/AppChooser.hs-boot +++ b/GI/Gtk/Interfaces/AppChooser.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Interfaces.AppChooser where -import Prelude () 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 diff --git a/GI/Gtk/Interfaces/Buildable.hs b/GI/Gtk/Interfaces/Buildable.hs --- a/GI/Gtk/Interfaces/Buildable.hs +++ b/GI/Gtk/Interfaces/Buildable.hs @@ -71,9 +71,9 @@ ) where -import Prelude () 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 @@ -159,7 +159,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -202,7 +202,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "builder", argType = TInterface "Gtk" "Builder", 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 : TInterface "GObject" "Object" +-- returnType : Just (TInterface "GObject" "Object") -- throws : False -- Skip return : False @@ -237,9 +237,9 @@ -- method Buildable::custom_finished -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tagname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tagname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -248,7 +248,7 @@ Ptr Builder -> -- builder : TInterface "Gtk" "Builder" Ptr GObject.Object -> -- child : TInterface "GObject" "Object" CString -> -- tagname : TBasicType TUTF8 - Ptr () -> -- data : TBasicType TVoid + Ptr () -> -- data : TBasicType TPtr IO () @@ -282,9 +282,9 @@ -- method Buildable::custom_tag_end -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tagname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tagname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -293,7 +293,7 @@ Ptr Builder -> -- builder : TInterface "Gtk" "Builder" Ptr GObject.Object -> -- child : TInterface "GObject" "Object" CString -> -- tagname : TBasicType TUTF8 - Ptr () -> -- data : TBasicType TVoid + Ptr () -> -- data : TBasicType TPtr IO () @@ -327,9 +327,9 @@ -- method Buildable::custom_tag_start -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tagname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parser", argType = TInterface "GLib" "MarkupParser", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tagname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parser", argType = TInterface "GLib" "MarkupParser", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -339,7 +339,7 @@ Ptr GObject.Object -> -- child : TInterface "GObject" "Object" CString -> -- tagname : TBasicType TUTF8 Ptr GLib.MarkupParser -> -- parser : TInterface "GLib" "MarkupParser" - Ptr (Ptr ()) -> -- data : TBasicType TVoid + Ptr (Ptr ()) -> -- data : TBasicType TPtr IO CInt @@ -380,7 +380,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "childname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "GObject" "Object" +-- returnType : Just (TInterface "GObject" "Object") -- throws : False -- Skip return : False @@ -417,7 +417,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -446,7 +446,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -477,7 +477,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "builder", argType = TInterface "Gtk" "Builder", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -516,7 +516,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Buildable", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Interfaces/Buildable.hs-boot b/GI/Gtk/Interfaces/Buildable.hs-boot --- a/GI/Gtk/Interfaces/Buildable.hs-boot +++ b/GI/Gtk/Interfaces/Buildable.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Interfaces.Buildable where -import Prelude () 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 diff --git a/GI/Gtk/Interfaces/CellAccessibleParent.hs b/GI/Gtk/Interfaces/CellAccessibleParent.hs --- a/GI/Gtk/Interfaces/CellAccessibleParent.hs +++ b/GI/Gtk/Interfaces/CellAccessibleParent.hs @@ -65,9 +65,9 @@ ) where -import Prelude () 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 @@ -118,7 +118,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -149,7 +149,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -180,7 +180,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -211,7 +211,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -244,19 +244,19 @@ -- method CellAccessibleParent::get_cell_extents -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellAccessible", 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},Arg {argCName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_cell_accessible_parent_get_cell_extents" gtk_cell_accessible_parent_get_cell_extents :: Ptr CellAccessibleParent -> -- _obj : TInterface "Gtk" "CellAccessibleParent" Ptr CellAccessible -> -- cell : TInterface "Gtk" "CellAccessible" - Int32 -> -- x : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 + Int32 -> -- x : TBasicType TInt + Int32 -> -- y : TBasicType TInt + Int32 -> -- width : TBasicType TInt + Int32 -> -- height : TBasicType TInt CUInt -> -- coord_type : TInterface "Atk" "CoordType" IO () @@ -288,7 +288,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -319,7 +319,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "CellRendererState" +-- returnType : Just (TInterface "Gtk" "CellRendererState") -- throws : False -- Skip return : False @@ -351,7 +351,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -383,7 +383,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "relationset", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Interfaces/CellAccessibleParent.hs-boot b/GI/Gtk/Interfaces/CellAccessibleParent.hs-boot --- a/GI/Gtk/Interfaces/CellAccessibleParent.hs-boot +++ b/GI/Gtk/Interfaces/CellAccessibleParent.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Interfaces.CellAccessibleParent where -import Prelude () 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 diff --git a/GI/Gtk/Interfaces/CellEditable.hs b/GI/Gtk/Interfaces/CellEditable.hs --- a/GI/Gtk/Interfaces/CellEditable.hs +++ b/GI/Gtk/Interfaces/CellEditable.hs @@ -37,6 +37,7 @@ -- * Properties -- ** EditingCanceled CellEditableEditingCanceledPropertyInfo , + cellEditableEditingCanceled , constructCellEditableEditingCanceled , getCellEditableEditingCanceled , setCellEditableEditingCanceled , @@ -73,9 +74,9 @@ ) where -import Prelude () 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 @@ -469,6 +470,7 @@ -- VVV Prop "editing-canceled" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellEditableEditingCanceled :: (MonadIO m, CellEditableK o) => o -> m Bool getCellEditableEditingCanceled obj = liftIO $ getObjectPropertyBool obj "editing-canceled" @@ -489,10 +491,14 @@ attrGet _ = getCellEditableEditingCanceled attrSet _ = setCellEditableEditingCanceled attrConstruct _ = constructCellEditableEditingCanceled + attrClear _ = undefined type instance AttributeList CellEditable = CellEditableAttributeList type CellEditableAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("editingCanceled", CellEditableEditingCanceledPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +cellEditableEditingCanceled :: AttrLabelProxy "editingCanceled" +cellEditableEditingCanceled = AttrLabelProxy + data CellEditableEditingDoneSignalInfo instance SignalInfo CellEditableEditingDoneSignalInfo where type HaskellCallbackType CellEditableEditingDoneSignalInfo = CellEditableEditingDoneCallback @@ -527,7 +533,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellEditable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -554,7 +560,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellEditable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -581,7 +587,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellEditable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Interfaces/CellEditable.hs-boot b/GI/Gtk/Interfaces/CellEditable.hs-boot --- a/GI/Gtk/Interfaces/CellEditable.hs-boot +++ b/GI/Gtk/Interfaces/CellEditable.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Interfaces.CellEditable where -import Prelude () 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 diff --git a/GI/Gtk/Interfaces/CellLayout.hs b/GI/Gtk/Interfaces/CellLayout.hs --- a/GI/Gtk/Interfaces/CellLayout.hs +++ b/GI/Gtk/Interfaces/CellLayout.hs @@ -66,9 +66,9 @@ ) where -import Prelude () 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 @@ -151,9 +151,9 @@ -- method CellLayout::add_attribute -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -161,7 +161,7 @@ Ptr CellLayout -> -- _obj : TInterface "Gtk" "CellLayout" Ptr CellRenderer -> -- cell : TInterface "Gtk" "CellRenderer" CString -> -- attribute : TBasicType TUTF8 - Int32 -> -- column : TBasicType TInt32 + Int32 -> -- column : TBasicType TInt IO () @@ -190,7 +190,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -217,7 +217,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -248,7 +248,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "CellArea" +-- returnType : Just (TInterface "Gtk" "CellArea") -- throws : False -- Skip return : False @@ -260,24 +260,25 @@ cellLayoutGetArea :: (MonadIO m, CellLayoutK a) => a -- _obj - -> m CellArea -- result + -> m (Maybe CellArea) -- result cellLayoutGetArea _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_cell_layout_get_area _obj' - checkUnexpectedReturnNULL "gtk_cell_layout_get_area" result - result' <- (newObject CellArea) result + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (newObject CellArea) result' + return result'' touchManagedPtr _obj - return result' + return maybeResult data CellLayoutGetAreaMethodInfo -instance (signature ~ (m CellArea), MonadIO m, CellLayoutK a) => MethodInfo CellLayoutGetAreaMethodInfo a signature where +instance (signature ~ (m (Maybe CellArea)), MonadIO m, CellLayoutK a) => MethodInfo CellLayoutGetAreaMethodInfo a signature where overloadedMethod _ = cellLayoutGetArea -- method CellLayout::get_cells -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TGList (TInterface "Gtk" "CellRenderer") +-- returnType : Just (TGList (TInterface "Gtk" "CellRenderer")) -- throws : False -- Skip return : False @@ -293,7 +294,6 @@ cellLayoutGetCells _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_cell_layout_get_cells _obj' - checkUnexpectedReturnNULL "gtk_cell_layout_get_cells" result result' <- unpackGList result result'' <- mapM (newObject CellRenderer) result' g_list_free result @@ -308,7 +308,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -342,7 +342,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -374,16 +374,16 @@ -- method CellLayout::reorder -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_cell_layout_reorder" gtk_cell_layout_reorder :: Ptr CellLayout -> -- _obj : TInterface "Gtk" "CellLayout" Ptr CellRenderer -> -- cell : TInterface "Gtk" "CellRenderer" - Int32 -> -- position : TBasicType TInt32 + Int32 -> -- position : TBasicType TInt IO () @@ -407,9 +407,9 @@ -- method CellLayout::set_cell_data_func -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "CellLayoutDataFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "CellLayoutDataFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -417,7 +417,7 @@ Ptr CellLayout -> -- _obj : TInterface "Gtk" "CellLayout" Ptr CellRenderer -> -- cell : TInterface "Gtk" "CellRenderer" FunPtr CellLayoutDataFuncC -> -- func : TInterface "Gtk" "CellLayoutDataFunc" - Ptr () -> -- func_data : TBasicType TVoid + Ptr () -> -- func_data : TBasicType TPtr FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" IO () diff --git a/GI/Gtk/Interfaces/CellLayout.hs-boot b/GI/Gtk/Interfaces/CellLayout.hs-boot --- a/GI/Gtk/Interfaces/CellLayout.hs-boot +++ b/GI/Gtk/Interfaces/CellLayout.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Interfaces.CellLayout where -import Prelude () 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 diff --git a/GI/Gtk/Interfaces/ColorChooser.hs b/GI/Gtk/Interfaces/ColorChooser.hs --- a/GI/Gtk/Interfaces/ColorChooser.hs +++ b/GI/Gtk/Interfaces/ColorChooser.hs @@ -47,6 +47,7 @@ -- * Properties -- ** Rgba ColorChooserRgbaPropertyInfo , + colorChooserRgba , constructColorChooserRgba , getColorChooserRgba , setColorChooserRgba , @@ -54,6 +55,7 @@ -- ** UseAlpha ColorChooserUseAlphaPropertyInfo , + colorChooserUseAlpha , constructColorChooserUseAlpha , getColorChooserUseAlpha , setColorChooserUseAlpha , @@ -78,9 +80,9 @@ ) where -import Prelude () 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 @@ -179,30 +181,33 @@ -- VVV Prop "rgba" -- Type: TInterface "Gdk" "RGBA" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getColorChooserRgba :: (MonadIO m, ColorChooserK o) => o -> m Gdk.RGBA +getColorChooserRgba :: (MonadIO m, ColorChooserK o) => o -> m (Maybe Gdk.RGBA) getColorChooserRgba obj = liftIO $ getObjectPropertyBoxed obj "rgba" Gdk.RGBA setColorChooserRgba :: (MonadIO m, ColorChooserK o) => o -> Gdk.RGBA -> m () -setColorChooserRgba obj val = liftIO $ setObjectPropertyBoxed obj "rgba" val +setColorChooserRgba obj val = liftIO $ setObjectPropertyBoxed obj "rgba" (Just val) constructColorChooserRgba :: Gdk.RGBA -> IO ([Char], GValue) -constructColorChooserRgba val = constructObjectPropertyBoxed "rgba" val +constructColorChooserRgba val = constructObjectPropertyBoxed "rgba" (Just val) data ColorChooserRgbaPropertyInfo instance AttrInfo ColorChooserRgbaPropertyInfo where type AttrAllowedOps ColorChooserRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint ColorChooserRgbaPropertyInfo = (~) Gdk.RGBA type AttrBaseTypeConstraint ColorChooserRgbaPropertyInfo = ColorChooserK - type AttrGetType ColorChooserRgbaPropertyInfo = Gdk.RGBA + type AttrGetType ColorChooserRgbaPropertyInfo = (Maybe Gdk.RGBA) type AttrLabel ColorChooserRgbaPropertyInfo = "rgba" attrGet _ = getColorChooserRgba attrSet _ = setColorChooserRgba attrConstruct _ = constructColorChooserRgba + attrClear _ = undefined -- VVV Prop "use-alpha" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getColorChooserUseAlpha :: (MonadIO m, ColorChooserK o) => o -> m Bool getColorChooserUseAlpha obj = liftIO $ getObjectPropertyBool obj "use-alpha" @@ -223,10 +228,17 @@ attrGet _ = getColorChooserUseAlpha attrSet _ = setColorChooserUseAlpha attrConstruct _ = constructColorChooserUseAlpha + attrClear _ = undefined type instance AttributeList ColorChooser = ColorChooserAttributeList type ColorChooserAttributeList = ('[ '("rgba", ColorChooserRgbaPropertyInfo), '("useAlpha", ColorChooserUseAlphaPropertyInfo)] :: [(Symbol, *)]) +colorChooserRgba :: AttrLabelProxy "rgba" +colorChooserRgba = AttrLabelProxy + +colorChooserUseAlpha :: AttrLabelProxy "useAlpha" +colorChooserUseAlpha = AttrLabelProxy + data ColorChooserColorActivatedSignalInfo instance SignalInfo ColorChooserColorActivatedSignalInfo where type HaskellCallbackType ColorChooserColorActivatedSignalInfo = ColorChooserColorActivatedCallback @@ -254,17 +266,17 @@ -- method ColorChooser::add_palette -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "colors_per_line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_colors", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "colors", argType = TCArray False (-1) 3 (TInterface "Gdk" "RGBA"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "n_colors", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : TBasicType TVoid +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "colors_per_line", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_colors", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "colors", argType = TCArray False (-1) 3 (TInterface "Gdk" "RGBA"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "n_colors", 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 "gtk_color_chooser_add_palette" gtk_color_chooser_add_palette :: Ptr ColorChooser -> -- _obj : TInterface "Gtk" "ColorChooser" CUInt -> -- orientation : TInterface "Gtk" "Orientation" - Int32 -> -- colors_per_line : TBasicType TInt32 - Int32 -> -- n_colors : TBasicType TInt32 + Int32 -> -- colors_per_line : TBasicType TInt + Int32 -> -- n_colors : TBasicType TInt Ptr Gdk.RGBA -> -- colors : TCArray False (-1) 3 (TInterface "Gdk" "RGBA") IO () @@ -302,7 +314,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -332,7 +344,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -360,7 +372,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -391,7 +403,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_alpha", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Interfaces/ColorChooser.hs-boot b/GI/Gtk/Interfaces/ColorChooser.hs-boot --- a/GI/Gtk/Interfaces/ColorChooser.hs-boot +++ b/GI/Gtk/Interfaces/ColorChooser.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Interfaces.ColorChooser where -import Prelude () 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 diff --git a/GI/Gtk/Interfaces/Editable.hs b/GI/Gtk/Interfaces/Editable.hs --- a/GI/Gtk/Interfaces/Editable.hs +++ b/GI/Gtk/Interfaces/Editable.hs @@ -124,9 +124,9 @@ ) where -import Prelude () 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 @@ -326,7 +326,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -353,7 +353,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -380,7 +380,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -405,16 +405,16 @@ -- method Editable::delete_text -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_pos", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end_pos", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_editable_delete_text" gtk_editable_delete_text :: Ptr Editable -> -- _obj : TInterface "Gtk" "Editable" - Int32 -> -- start_pos : TBasicType TInt32 - Int32 -> -- end_pos : TBasicType TInt32 + Int32 -> -- start_pos : TBasicType TInt + Int32 -> -- end_pos : TBasicType TInt IO () @@ -436,16 +436,16 @@ -- method Editable::get_chars -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_pos", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end_pos", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False foreign import ccall "gtk_editable_get_chars" gtk_editable_get_chars :: Ptr Editable -> -- _obj : TInterface "Gtk" "Editable" - Int32 -> -- start_pos : TBasicType TInt32 - Int32 -> -- end_pos : TBasicType TInt32 + Int32 -> -- start_pos : TBasicType TInt + Int32 -> -- end_pos : TBasicType TInt IO CString @@ -472,7 +472,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -500,7 +500,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -525,16 +525,16 @@ -- method Editable::get_selection_bounds -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_pos", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "end_pos", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_pos", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "end_pos", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_editable_get_selection_bounds" gtk_editable_get_selection_bounds :: Ptr Editable -> -- _obj : TInterface "Gtk" "Editable" - Ptr Int32 -> -- start_pos : TBasicType TInt32 - Ptr Int32 -> -- end_pos : TBasicType TInt32 + Ptr Int32 -> -- start_pos : TBasicType TInt + Ptr Int32 -> -- end_pos : TBasicType TInt IO CInt @@ -561,17 +561,17 @@ -- method Editable::insert_text -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_text_length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_text_length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_editable_insert_text" gtk_editable_insert_text :: Ptr Editable -> -- _obj : TInterface "Gtk" "Editable" CString -> -- new_text : TBasicType TUTF8 - Int32 -> -- new_text_length : TBasicType TInt32 - Ptr Int32 -> -- position : TBasicType TInt32 + Int32 -> -- new_text_length : TBasicType TInt + Ptr Int32 -> -- position : TBasicType TInt IO () @@ -602,7 +602,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -627,16 +627,16 @@ -- method Editable::select_region -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_pos", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end_pos", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_editable_select_region" gtk_editable_select_region :: Ptr Editable -> -- _obj : TInterface "Gtk" "Editable" - Int32 -> -- start_pos : TBasicType TInt32 - Int32 -> -- end_pos : TBasicType TInt32 + Int32 -> -- start_pos : TBasicType TInt + Int32 -> -- end_pos : TBasicType TInt IO () @@ -660,7 +660,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -688,15 +688,15 @@ -- method Editable::set_position -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_editable_set_position" gtk_editable_set_position :: Ptr Editable -> -- _obj : TInterface "Gtk" "Editable" - Int32 -> -- position : TBasicType TInt32 + Int32 -> -- position : TBasicType TInt IO () diff --git a/GI/Gtk/Interfaces/Editable.hs-boot b/GI/Gtk/Interfaces/Editable.hs-boot --- a/GI/Gtk/Interfaces/Editable.hs-boot +++ b/GI/Gtk/Interfaces/Editable.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Interfaces.Editable where -import Prelude () 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 diff --git a/GI/Gtk/Interfaces/FileChooser.hs b/GI/Gtk/Interfaces/FileChooser.hs --- a/GI/Gtk/Interfaces/FileChooser.hs +++ b/GI/Gtk/Interfaces/FileChooser.hs @@ -318,6 +318,7 @@ -- ** Action FileChooserActionPropertyInfo , constructFileChooserAction , + fileChooserAction , getFileChooserAction , setFileChooserAction , @@ -325,6 +326,7 @@ -- ** CreateFolders FileChooserCreateFoldersPropertyInfo , constructFileChooserCreateFolders , + fileChooserCreateFolders , getFileChooserCreateFolders , setFileChooserCreateFolders , @@ -332,6 +334,7 @@ -- ** DoOverwriteConfirmation FileChooserDoOverwriteConfirmationPropertyInfo, constructFileChooserDoOverwriteConfirmation, + fileChooserDoOverwriteConfirmation , getFileChooserDoOverwriteConfirmation , setFileChooserDoOverwriteConfirmation , @@ -339,6 +342,7 @@ -- ** ExtraWidget FileChooserExtraWidgetPropertyInfo , constructFileChooserExtraWidget , + fileChooserExtraWidget , getFileChooserExtraWidget , setFileChooserExtraWidget , @@ -346,6 +350,7 @@ -- ** Filter FileChooserFilterPropertyInfo , constructFileChooserFilter , + fileChooserFilter , getFileChooserFilter , setFileChooserFilter , @@ -353,6 +358,7 @@ -- ** LocalOnly FileChooserLocalOnlyPropertyInfo , constructFileChooserLocalOnly , + fileChooserLocalOnly , getFileChooserLocalOnly , setFileChooserLocalOnly , @@ -360,6 +366,7 @@ -- ** PreviewWidget FileChooserPreviewWidgetPropertyInfo , constructFileChooserPreviewWidget , + fileChooserPreviewWidget , getFileChooserPreviewWidget , setFileChooserPreviewWidget , @@ -367,6 +374,7 @@ -- ** PreviewWidgetActive FileChooserPreviewWidgetActivePropertyInfo, constructFileChooserPreviewWidgetActive , + fileChooserPreviewWidgetActive , getFileChooserPreviewWidgetActive , setFileChooserPreviewWidgetActive , @@ -374,6 +382,7 @@ -- ** SelectMultiple FileChooserSelectMultiplePropertyInfo , constructFileChooserSelectMultiple , + fileChooserSelectMultiple , getFileChooserSelectMultiple , setFileChooserSelectMultiple , @@ -381,6 +390,7 @@ -- ** ShowHidden FileChooserShowHiddenPropertyInfo , constructFileChooserShowHidden , + fileChooserShowHidden , getFileChooserShowHidden , setFileChooserShowHidden , @@ -388,6 +398,7 @@ -- ** UsePreviewLabel FileChooserUsePreviewLabelPropertyInfo , constructFileChooserUsePreviewLabel , + fileChooserUsePreviewLabel , getFileChooserUsePreviewLabel , setFileChooserUsePreviewLabel , @@ -459,9 +470,9 @@ ) where -import Prelude () 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 @@ -1027,6 +1038,7 @@ -- VVV Prop "action" -- Type: TInterface "Gtk" "FileChooserAction" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getFileChooserAction :: (MonadIO m, FileChooserK o) => o -> m FileChooserAction getFileChooserAction obj = liftIO $ getObjectPropertyEnum obj "action" @@ -1047,10 +1059,12 @@ attrGet _ = getFileChooserAction attrSet _ = setFileChooserAction attrConstruct _ = constructFileChooserAction + attrClear _ = undefined -- VVV Prop "create-folders" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getFileChooserCreateFolders :: (MonadIO m, FileChooserK o) => o -> m Bool getFileChooserCreateFolders obj = liftIO $ getObjectPropertyBool obj "create-folders" @@ -1071,10 +1085,12 @@ attrGet _ = getFileChooserCreateFolders attrSet _ = setFileChooserCreateFolders attrConstruct _ = constructFileChooserCreateFolders + attrClear _ = undefined -- VVV Prop "do-overwrite-confirmation" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getFileChooserDoOverwriteConfirmation :: (MonadIO m, FileChooserK o) => o -> m Bool getFileChooserDoOverwriteConfirmation obj = liftIO $ getObjectPropertyBool obj "do-overwrite-confirmation" @@ -1095,19 +1111,21 @@ attrGet _ = getFileChooserDoOverwriteConfirmation attrSet _ = setFileChooserDoOverwriteConfirmation attrConstruct _ = constructFileChooserDoOverwriteConfirmation + attrClear _ = undefined -- VVV Prop "extra-widget" -- Type: TInterface "Gtk" "Widget" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getFileChooserExtraWidget :: (MonadIO m, FileChooserK o) => o -> m Widget -getFileChooserExtraWidget obj = liftIO $ getObjectPropertyObject obj "extra-widget" Widget +getFileChooserExtraWidget obj = liftIO $ checkUnexpectedNothing "getFileChooserExtraWidget" $ getObjectPropertyObject obj "extra-widget" Widget setFileChooserExtraWidget :: (MonadIO m, FileChooserK o, WidgetK a) => o -> a -> m () -setFileChooserExtraWidget obj val = liftIO $ setObjectPropertyObject obj "extra-widget" val +setFileChooserExtraWidget obj val = liftIO $ setObjectPropertyObject obj "extra-widget" (Just val) constructFileChooserExtraWidget :: (WidgetK a) => a -> IO ([Char], GValue) -constructFileChooserExtraWidget val = constructObjectPropertyObject "extra-widget" val +constructFileChooserExtraWidget val = constructObjectPropertyObject "extra-widget" (Just val) data FileChooserExtraWidgetPropertyInfo instance AttrInfo FileChooserExtraWidgetPropertyInfo where @@ -1119,19 +1137,21 @@ attrGet _ = getFileChooserExtraWidget attrSet _ = setFileChooserExtraWidget attrConstruct _ = constructFileChooserExtraWidget + attrClear _ = undefined -- VVV Prop "filter" -- Type: TInterface "Gtk" "FileFilter" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getFileChooserFilter :: (MonadIO m, FileChooserK o) => o -> m FileFilter -getFileChooserFilter obj = liftIO $ getObjectPropertyObject obj "filter" FileFilter +getFileChooserFilter obj = liftIO $ checkUnexpectedNothing "getFileChooserFilter" $ getObjectPropertyObject obj "filter" FileFilter setFileChooserFilter :: (MonadIO m, FileChooserK o, FileFilterK a) => o -> a -> m () -setFileChooserFilter obj val = liftIO $ setObjectPropertyObject obj "filter" val +setFileChooserFilter obj val = liftIO $ setObjectPropertyObject obj "filter" (Just val) constructFileChooserFilter :: (FileFilterK a) => a -> IO ([Char], GValue) -constructFileChooserFilter val = constructObjectPropertyObject "filter" val +constructFileChooserFilter val = constructObjectPropertyObject "filter" (Just val) data FileChooserFilterPropertyInfo instance AttrInfo FileChooserFilterPropertyInfo where @@ -1143,10 +1163,12 @@ attrGet _ = getFileChooserFilter attrSet _ = setFileChooserFilter attrConstruct _ = constructFileChooserFilter + attrClear _ = undefined -- VVV Prop "local-only" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getFileChooserLocalOnly :: (MonadIO m, FileChooserK o) => o -> m Bool getFileChooserLocalOnly obj = liftIO $ getObjectPropertyBool obj "local-only" @@ -1167,19 +1189,21 @@ attrGet _ = getFileChooserLocalOnly attrSet _ = setFileChooserLocalOnly attrConstruct _ = constructFileChooserLocalOnly + attrClear _ = undefined -- VVV Prop "preview-widget" -- Type: TInterface "Gtk" "Widget" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getFileChooserPreviewWidget :: (MonadIO m, FileChooserK o) => o -> m Widget -getFileChooserPreviewWidget obj = liftIO $ getObjectPropertyObject obj "preview-widget" Widget +getFileChooserPreviewWidget obj = liftIO $ checkUnexpectedNothing "getFileChooserPreviewWidget" $ getObjectPropertyObject obj "preview-widget" Widget setFileChooserPreviewWidget :: (MonadIO m, FileChooserK o, WidgetK a) => o -> a -> m () -setFileChooserPreviewWidget obj val = liftIO $ setObjectPropertyObject obj "preview-widget" val +setFileChooserPreviewWidget obj val = liftIO $ setObjectPropertyObject obj "preview-widget" (Just val) constructFileChooserPreviewWidget :: (WidgetK a) => a -> IO ([Char], GValue) -constructFileChooserPreviewWidget val = constructObjectPropertyObject "preview-widget" val +constructFileChooserPreviewWidget val = constructObjectPropertyObject "preview-widget" (Just val) data FileChooserPreviewWidgetPropertyInfo instance AttrInfo FileChooserPreviewWidgetPropertyInfo where @@ -1191,10 +1215,12 @@ attrGet _ = getFileChooserPreviewWidget attrSet _ = setFileChooserPreviewWidget attrConstruct _ = constructFileChooserPreviewWidget + attrClear _ = undefined -- VVV Prop "preview-widget-active" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getFileChooserPreviewWidgetActive :: (MonadIO m, FileChooserK o) => o -> m Bool getFileChooserPreviewWidgetActive obj = liftIO $ getObjectPropertyBool obj "preview-widget-active" @@ -1215,10 +1241,12 @@ attrGet _ = getFileChooserPreviewWidgetActive attrSet _ = setFileChooserPreviewWidgetActive attrConstruct _ = constructFileChooserPreviewWidgetActive + attrClear _ = undefined -- VVV Prop "select-multiple" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getFileChooserSelectMultiple :: (MonadIO m, FileChooserK o) => o -> m Bool getFileChooserSelectMultiple obj = liftIO $ getObjectPropertyBool obj "select-multiple" @@ -1239,10 +1267,12 @@ attrGet _ = getFileChooserSelectMultiple attrSet _ = setFileChooserSelectMultiple attrConstruct _ = constructFileChooserSelectMultiple + attrClear _ = undefined -- VVV Prop "show-hidden" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getFileChooserShowHidden :: (MonadIO m, FileChooserK o) => o -> m Bool getFileChooserShowHidden obj = liftIO $ getObjectPropertyBool obj "show-hidden" @@ -1263,10 +1293,12 @@ attrGet _ = getFileChooserShowHidden attrSet _ = setFileChooserShowHidden attrConstruct _ = constructFileChooserShowHidden + attrClear _ = undefined -- VVV Prop "use-preview-label" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getFileChooserUsePreviewLabel :: (MonadIO m, FileChooserK o) => o -> m Bool getFileChooserUsePreviewLabel obj = liftIO $ getObjectPropertyBool obj "use-preview-label" @@ -1287,10 +1319,44 @@ attrGet _ = getFileChooserUsePreviewLabel attrSet _ = setFileChooserUsePreviewLabel attrConstruct _ = constructFileChooserUsePreviewLabel + attrClear _ = undefined type instance AttributeList FileChooser = FileChooserAttributeList type FileChooserAttributeList = ('[ '("action", FileChooserActionPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("createFolders", FileChooserCreateFoldersPropertyInfo), '("doOverwriteConfirmation", FileChooserDoOverwriteConfirmationPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("extraWidget", FileChooserExtraWidgetPropertyInfo), '("filter", FileChooserFilterPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("localOnly", FileChooserLocalOnlyPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("previewWidget", FileChooserPreviewWidgetPropertyInfo), '("previewWidgetActive", FileChooserPreviewWidgetActivePropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("selectMultiple", FileChooserSelectMultiplePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showHidden", FileChooserShowHiddenPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("usePreviewLabel", FileChooserUsePreviewLabelPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +fileChooserAction :: AttrLabelProxy "action" +fileChooserAction = AttrLabelProxy + +fileChooserCreateFolders :: AttrLabelProxy "createFolders" +fileChooserCreateFolders = AttrLabelProxy + +fileChooserDoOverwriteConfirmation :: AttrLabelProxy "doOverwriteConfirmation" +fileChooserDoOverwriteConfirmation = AttrLabelProxy + +fileChooserExtraWidget :: AttrLabelProxy "extraWidget" +fileChooserExtraWidget = AttrLabelProxy + +fileChooserFilter :: AttrLabelProxy "filter" +fileChooserFilter = AttrLabelProxy + +fileChooserLocalOnly :: AttrLabelProxy "localOnly" +fileChooserLocalOnly = AttrLabelProxy + +fileChooserPreviewWidget :: AttrLabelProxy "previewWidget" +fileChooserPreviewWidget = AttrLabelProxy + +fileChooserPreviewWidgetActive :: AttrLabelProxy "previewWidgetActive" +fileChooserPreviewWidgetActive = AttrLabelProxy + +fileChooserSelectMultiple :: AttrLabelProxy "selectMultiple" +fileChooserSelectMultiple = AttrLabelProxy + +fileChooserShowHidden :: AttrLabelProxy "showHidden" +fileChooserShowHidden = AttrLabelProxy + +fileChooserUsePreviewLabel :: AttrLabelProxy "usePreviewLabel" +fileChooserUsePreviewLabel = AttrLabelProxy + data FileChooserConfirmOverwriteSignalInfo instance SignalInfo FileChooserConfirmOverwriteSignalInfo where type HaskellCallbackType FileChooserConfirmOverwriteSignalInfo = FileChooserConfirmOverwriteCallback @@ -1340,7 +1406,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1371,7 +1437,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "folder", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -1407,7 +1473,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -1443,7 +1509,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "FileChooserAction" +-- returnType : Just (TInterface "Gtk" "FileChooserAction") -- throws : False -- Skip return : False @@ -1471,7 +1537,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1499,7 +1565,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TFileName +-- returnType : Just (TBasicType TFileName) -- throws : False -- Skip return : False @@ -1529,7 +1595,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gio" "File" +-- returnType : Just (TInterface "Gio" "File") -- throws : False -- Skip return : False @@ -1558,7 +1624,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1588,7 +1654,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1618,7 +1684,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1646,7 +1712,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -1675,7 +1741,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gio" "File" +-- returnType : Just (TInterface "Gio" "File") -- throws : False -- Skip return : False @@ -1704,7 +1770,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TFileName +-- returnType : Just (TBasicType TFileName) -- throws : False -- Skip return : False @@ -1734,7 +1800,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TGSList (TBasicType TFileName) +-- returnType : Just (TGSList (TBasicType TFileName)) -- throws : False -- Skip return : False @@ -1750,7 +1816,6 @@ fileChooserGetFilenames _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_file_chooser_get_filenames _obj' - checkUnexpectedReturnNULL "gtk_file_chooser_get_filenames" result result' <- unpackGSList result result'' <- mapM cstringToString result' mapGSList freeMem result @@ -1766,7 +1831,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TGSList (TInterface "Gio" "File") +-- returnType : Just (TGSList (TInterface "Gio" "File")) -- throws : False -- Skip return : False @@ -1782,7 +1847,6 @@ fileChooserGetFiles _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_file_chooser_get_files _obj' - checkUnexpectedReturnNULL "gtk_file_chooser_get_files" result result' <- unpackGSList result result'' <- mapM (wrapObject Gio.File) result' g_slist_free result @@ -1797,7 +1861,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "FileFilter" +-- returnType : Just (TInterface "Gtk" "FileFilter") -- throws : False -- Skip return : False @@ -1826,7 +1890,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1854,7 +1918,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gio" "File" +-- returnType : Just (TInterface "Gio" "File") -- throws : False -- Skip return : False @@ -1883,7 +1947,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TFileName +-- returnType : Just (TBasicType TFileName) -- throws : False -- Skip return : False @@ -1913,7 +1977,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1943,7 +2007,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -1972,7 +2036,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2000,7 +2064,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2028,7 +2092,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2056,7 +2120,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -2086,7 +2150,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TGSList (TBasicType TUTF8) +-- returnType : Just (TGSList (TBasicType TUTF8)) -- throws : False -- Skip return : False @@ -2102,7 +2166,6 @@ fileChooserGetUris _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_file_chooser_get_uris _obj' - checkUnexpectedReturnNULL "gtk_file_chooser_get_uris" result result' <- unpackGSList result result'' <- mapM cstringToText result' mapGSList freeMem result @@ -2118,7 +2181,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2146,7 +2209,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TGSList (TInterface "Gtk" "FileFilter") +-- returnType : Just (TGSList (TInterface "Gtk" "FileFilter")) -- throws : False -- Skip return : False @@ -2162,7 +2225,6 @@ fileChooserListFilters _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_file_chooser_list_filters _obj' - checkUnexpectedReturnNULL "gtk_file_chooser_list_filters" result result' <- unpackGSList result result'' <- mapM (newObject FileFilter) result' g_slist_free result @@ -2177,7 +2239,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TGSList (TBasicType TUTF8) +-- returnType : Just (TGSList (TBasicType TUTF8)) -- throws : False -- Skip return : False @@ -2193,7 +2255,6 @@ fileChooserListShortcutFolderUris _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_file_chooser_list_shortcut_folder_uris _obj' - checkUnexpectedReturnNULL "gtk_file_chooser_list_shortcut_folder_uris" result result' <- unpackGSList result result'' <- mapM cstringToText result' mapGSList freeMem result @@ -2209,7 +2270,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TGSList (TBasicType TFileName) +-- returnType : Just (TGSList (TBasicType TFileName)) -- throws : False -- Skip return : False @@ -2225,7 +2286,6 @@ fileChooserListShortcutFolders _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_file_chooser_list_shortcut_folders _obj' - checkUnexpectedReturnNULL "gtk_file_chooser_list_shortcut_folders" result result' <- unpackGSList result result'' <- mapM cstringToString result' mapGSList freeMem result @@ -2241,7 +2301,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2272,7 +2332,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "folder", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -2308,7 +2368,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -2344,7 +2404,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2371,7 +2431,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -2407,7 +2467,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2439,7 +2499,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2471,7 +2531,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TInterface "Gtk" "FileChooserAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2501,7 +2561,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "create_folders", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2531,7 +2591,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2563,7 +2623,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -2599,7 +2659,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2631,7 +2691,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2662,7 +2722,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "do_overwrite_confirmation", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2692,7 +2752,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "extra_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2723,7 +2783,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -2759,7 +2819,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2791,7 +2851,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2822,7 +2882,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "local_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2852,7 +2912,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "preview_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2883,7 +2943,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "active", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2913,7 +2973,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "select_multiple", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2943,7 +3003,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_hidden", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2973,7 +3033,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3005,7 +3065,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_label", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3035,7 +3095,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3062,7 +3122,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3093,7 +3153,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3124,7 +3184,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Interfaces/FileChooser.hs-boot b/GI/Gtk/Interfaces/FileChooser.hs-boot --- a/GI/Gtk/Interfaces/FileChooser.hs-boot +++ b/GI/Gtk/Interfaces/FileChooser.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Interfaces.FileChooser where -import Prelude () 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 diff --git a/GI/Gtk/Interfaces/FontChooser.hs b/GI/Gtk/Interfaces/FontChooser.hs --- a/GI/Gtk/Interfaces/FontChooser.hs +++ b/GI/Gtk/Interfaces/FontChooser.hs @@ -93,6 +93,7 @@ -- ** Font FontChooserFontPropertyInfo , constructFontChooserFont , + fontChooserFont , getFontChooserFont , setFontChooserFont , @@ -100,6 +101,7 @@ -- ** FontDesc FontChooserFontDescPropertyInfo , constructFontChooserFontDesc , + fontChooserFontDesc , getFontChooserFontDesc , setFontChooserFontDesc , @@ -107,6 +109,7 @@ -- ** PreviewText FontChooserPreviewTextPropertyInfo , constructFontChooserPreviewText , + fontChooserPreviewText , getFontChooserPreviewText , setFontChooserPreviewText , @@ -114,6 +117,7 @@ -- ** ShowPreviewEntry FontChooserShowPreviewEntryPropertyInfo , constructFontChooserShowPreviewEntry , + fontChooserShowPreviewEntry , getFontChooserShowPreviewEntry , setFontChooserShowPreviewEntry , @@ -137,9 +141,9 @@ ) where -import Prelude () 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 @@ -248,78 +252,85 @@ -- VVV Prop "font" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getFontChooserFont :: (MonadIO m, FontChooserK o) => o -> m T.Text +getFontChooserFont :: (MonadIO m, FontChooserK o) => o -> m (Maybe T.Text) getFontChooserFont obj = liftIO $ getObjectPropertyString obj "font" setFontChooserFont :: (MonadIO m, FontChooserK o) => o -> T.Text -> m () -setFontChooserFont obj val = liftIO $ setObjectPropertyString obj "font" val +setFontChooserFont obj val = liftIO $ setObjectPropertyString obj "font" (Just val) constructFontChooserFont :: T.Text -> IO ([Char], GValue) -constructFontChooserFont val = constructObjectPropertyString "font" val +constructFontChooserFont val = constructObjectPropertyString "font" (Just val) data FontChooserFontPropertyInfo instance AttrInfo FontChooserFontPropertyInfo where type AttrAllowedOps FontChooserFontPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint FontChooserFontPropertyInfo = (~) T.Text type AttrBaseTypeConstraint FontChooserFontPropertyInfo = FontChooserK - type AttrGetType FontChooserFontPropertyInfo = T.Text + type AttrGetType FontChooserFontPropertyInfo = (Maybe T.Text) type AttrLabel FontChooserFontPropertyInfo = "font" attrGet _ = getFontChooserFont attrSet _ = setFontChooserFont attrConstruct _ = constructFontChooserFont + attrClear _ = undefined -- VVV Prop "font-desc" -- Type: TInterface "Pango" "FontDescription" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getFontChooserFontDesc :: (MonadIO m, FontChooserK o) => o -> m Pango.FontDescription +getFontChooserFontDesc :: (MonadIO m, FontChooserK o) => o -> m (Maybe Pango.FontDescription) getFontChooserFontDesc obj = liftIO $ getObjectPropertyBoxed obj "font-desc" Pango.FontDescription setFontChooserFontDesc :: (MonadIO m, FontChooserK o) => o -> Pango.FontDescription -> m () -setFontChooserFontDesc obj val = liftIO $ setObjectPropertyBoxed obj "font-desc" val +setFontChooserFontDesc obj val = liftIO $ setObjectPropertyBoxed obj "font-desc" (Just val) constructFontChooserFontDesc :: Pango.FontDescription -> IO ([Char], GValue) -constructFontChooserFontDesc val = constructObjectPropertyBoxed "font-desc" val +constructFontChooserFontDesc val = constructObjectPropertyBoxed "font-desc" (Just val) data FontChooserFontDescPropertyInfo instance AttrInfo FontChooserFontDescPropertyInfo where type AttrAllowedOps FontChooserFontDescPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint FontChooserFontDescPropertyInfo = (~) Pango.FontDescription type AttrBaseTypeConstraint FontChooserFontDescPropertyInfo = FontChooserK - type AttrGetType FontChooserFontDescPropertyInfo = Pango.FontDescription + type AttrGetType FontChooserFontDescPropertyInfo = (Maybe Pango.FontDescription) type AttrLabel FontChooserFontDescPropertyInfo = "font-desc" attrGet _ = getFontChooserFontDesc attrSet _ = setFontChooserFontDesc attrConstruct _ = constructFontChooserFontDesc + attrClear _ = undefined -- VVV Prop "preview-text" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getFontChooserPreviewText :: (MonadIO m, FontChooserK o) => o -> m T.Text +getFontChooserPreviewText :: (MonadIO m, FontChooserK o) => o -> m (Maybe T.Text) getFontChooserPreviewText obj = liftIO $ getObjectPropertyString obj "preview-text" setFontChooserPreviewText :: (MonadIO m, FontChooserK o) => o -> T.Text -> m () -setFontChooserPreviewText obj val = liftIO $ setObjectPropertyString obj "preview-text" val +setFontChooserPreviewText obj val = liftIO $ setObjectPropertyString obj "preview-text" (Just val) constructFontChooserPreviewText :: T.Text -> IO ([Char], GValue) -constructFontChooserPreviewText val = constructObjectPropertyString "preview-text" val +constructFontChooserPreviewText val = constructObjectPropertyString "preview-text" (Just val) data FontChooserPreviewTextPropertyInfo instance AttrInfo FontChooserPreviewTextPropertyInfo where type AttrAllowedOps FontChooserPreviewTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint FontChooserPreviewTextPropertyInfo = (~) T.Text type AttrBaseTypeConstraint FontChooserPreviewTextPropertyInfo = FontChooserK - type AttrGetType FontChooserPreviewTextPropertyInfo = T.Text + type AttrGetType FontChooserPreviewTextPropertyInfo = (Maybe T.Text) type AttrLabel FontChooserPreviewTextPropertyInfo = "preview-text" attrGet _ = getFontChooserPreviewText attrSet _ = setFontChooserPreviewText attrConstruct _ = constructFontChooserPreviewText + attrClear _ = undefined -- VVV Prop "show-preview-entry" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getFontChooserShowPreviewEntry :: (MonadIO m, FontChooserK o) => o -> m Bool getFontChooserShowPreviewEntry obj = liftIO $ getObjectPropertyBool obj "show-preview-entry" @@ -340,10 +351,23 @@ attrGet _ = getFontChooserShowPreviewEntry attrSet _ = setFontChooserShowPreviewEntry attrConstruct _ = constructFontChooserShowPreviewEntry + attrClear _ = undefined type instance AttributeList FontChooser = FontChooserAttributeList type FontChooserAttributeList = ('[ '("font", FontChooserFontPropertyInfo), '("fontDesc", FontChooserFontDescPropertyInfo), '("previewText", FontChooserPreviewTextPropertyInfo), '("showPreviewEntry", FontChooserShowPreviewEntryPropertyInfo)] :: [(Symbol, *)]) +fontChooserFont :: AttrLabelProxy "font" +fontChooserFont = AttrLabelProxy + +fontChooserFontDesc :: AttrLabelProxy "fontDesc" +fontChooserFontDesc = AttrLabelProxy + +fontChooserPreviewText :: AttrLabelProxy "previewText" +fontChooserPreviewText = AttrLabelProxy + +fontChooserShowPreviewEntry :: AttrLabelProxy "showPreviewEntry" +fontChooserShowPreviewEntry = AttrLabelProxy + data FontChooserFontActivatedSignalInfo instance SignalInfo FontChooserFontActivatedSignalInfo where type HaskellCallbackType FontChooserFontActivatedSignalInfo = FontChooserFontActivatedCallback @@ -373,7 +397,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -403,7 +427,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Pango" "FontDescription" +-- returnType : Just (TInterface "Pango" "FontDescription") -- throws : False -- Skip return : False @@ -432,7 +456,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Pango" "FontFace" +-- returnType : Just (TInterface "Pango" "FontFace") -- throws : False -- Skip return : False @@ -461,7 +485,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Pango" "FontFamily" +-- returnType : Just (TInterface "Pango" "FontFamily") -- throws : False -- Skip return : False @@ -490,7 +514,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Pango" "FontMap" +-- returnType : Just (TInterface "Pango" "FontMap") -- throws : False -- Skip return : False @@ -519,7 +543,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -546,7 +570,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -576,7 +600,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -602,16 +626,16 @@ -- method FontChooser::set_filter_func -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter", argType = TInterface "Gtk" "FontFilterFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter", argType = TInterface "Gtk" "FontFilterFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, 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},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_font_chooser_set_filter_func" gtk_font_chooser_set_filter_func :: Ptr FontChooser -> -- _obj : TInterface "Gtk" "FontChooser" FunPtr FontFilterFuncC -> -- filter : TInterface "Gtk" "FontFilterFunc" - Ptr () -> -- user_data : TBasicType TVoid + Ptr () -> -- user_data : TBasicType TPtr FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" IO () @@ -642,7 +666,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fontname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -673,7 +697,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "font_desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -704,7 +728,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fontmap", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -739,7 +763,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -770,7 +794,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_preview_entry", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Interfaces/FontChooser.hs-boot b/GI/Gtk/Interfaces/FontChooser.hs-boot --- a/GI/Gtk/Interfaces/FontChooser.hs-boot +++ b/GI/Gtk/Interfaces/FontChooser.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Interfaces.FontChooser where -import Prelude () 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 diff --git a/GI/Gtk/Interfaces/Orientable.hs b/GI/Gtk/Interfaces/Orientable.hs --- a/GI/Gtk/Interfaces/Orientable.hs +++ b/GI/Gtk/Interfaces/Orientable.hs @@ -34,6 +34,7 @@ OrientableOrientationPropertyInfo , constructOrientableOrientation , getOrientableOrientation , + orientableOrientation , setOrientableOrientation , @@ -41,9 +42,9 @@ ) where -import Prelude () 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 @@ -96,6 +97,7 @@ -- VVV Prop "orientation" -- Type: TInterface "Gtk" "Orientation" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getOrientableOrientation :: (MonadIO m, OrientableK o) => o -> m Orientation getOrientableOrientation obj = liftIO $ getObjectPropertyEnum obj "orientation" @@ -116,10 +118,14 @@ attrGet _ = getOrientableOrientation attrSet _ = setOrientableOrientation attrConstruct _ = constructOrientableOrientation + attrClear _ = undefined type instance AttributeList Orientable = OrientableAttributeList type OrientableAttributeList = ('[ '("orientation", OrientableOrientationPropertyInfo)] :: [(Symbol, *)]) +orientableOrientation :: AttrLabelProxy "orientation" +orientableOrientation = AttrLabelProxy + type instance SignalList Orientable = OrientableSignalList type OrientableSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -144,7 +150,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Orientable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Orientation" +-- returnType : Just (TInterface "Gtk" "Orientation") -- throws : False -- Skip return : False @@ -172,7 +178,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Orientable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Interfaces/Orientable.hs-boot b/GI/Gtk/Interfaces/Orientable.hs-boot --- a/GI/Gtk/Interfaces/Orientable.hs-boot +++ b/GI/Gtk/Interfaces/Orientable.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Interfaces.Orientable where -import Prelude () 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 diff --git a/GI/Gtk/Interfaces/PrintOperationPreview.hs b/GI/Gtk/Interfaces/PrintOperationPreview.hs --- a/GI/Gtk/Interfaces/PrintOperationPreview.hs +++ b/GI/Gtk/Interfaces/PrintOperationPreview.hs @@ -63,9 +63,9 @@ ) where -import Prelude () 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 @@ -241,7 +241,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperationPreview", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -266,15 +266,15 @@ -- method PrintOperationPreview::is_selected -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperationPreview", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_nr", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperationPreview", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_nr", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_print_operation_preview_is_selected" gtk_print_operation_preview_is_selected :: Ptr PrintOperationPreview -> -- _obj : TInterface "Gtk" "PrintOperationPreview" - Int32 -> -- page_nr : TBasicType TInt32 + Int32 -> -- page_nr : TBasicType TInt IO CInt @@ -296,15 +296,15 @@ -- method PrintOperationPreview::render_page -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperationPreview", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_nr", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperationPreview", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_nr", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_print_operation_preview_render_page" gtk_print_operation_preview_render_page :: Ptr PrintOperationPreview -> -- _obj : TInterface "Gtk" "PrintOperationPreview" - Int32 -> -- page_nr : TBasicType TInt32 + Int32 -> -- page_nr : TBasicType TInt IO () diff --git a/GI/Gtk/Interfaces/PrintOperationPreview.hs-boot b/GI/Gtk/Interfaces/PrintOperationPreview.hs-boot --- a/GI/Gtk/Interfaces/PrintOperationPreview.hs-boot +++ b/GI/Gtk/Interfaces/PrintOperationPreview.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Interfaces.PrintOperationPreview where -import Prelude () 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 diff --git a/GI/Gtk/Interfaces/RecentChooser.hs b/GI/Gtk/Interfaces/RecentChooser.hs --- a/GI/Gtk/Interfaces/RecentChooser.hs +++ b/GI/Gtk/Interfaces/RecentChooser.hs @@ -177,8 +177,10 @@ -- * Properties -- ** Filter RecentChooserFilterPropertyInfo , + clearRecentChooserFilter , constructRecentChooserFilter , getRecentChooserFilter , + recentChooserFilter , setRecentChooserFilter , @@ -186,6 +188,7 @@ RecentChooserLimitPropertyInfo , constructRecentChooserLimit , getRecentChooserLimit , + recentChooserLimit , setRecentChooserLimit , @@ -193,18 +196,21 @@ RecentChooserLocalOnlyPropertyInfo , constructRecentChooserLocalOnly , getRecentChooserLocalOnly , + recentChooserLocalOnly , setRecentChooserLocalOnly , -- ** RecentManager RecentChooserRecentManagerPropertyInfo , constructRecentChooserRecentManager , + recentChooserRecentManager , -- ** SelectMultiple RecentChooserSelectMultiplePropertyInfo , constructRecentChooserSelectMultiple , getRecentChooserSelectMultiple , + recentChooserSelectMultiple , setRecentChooserSelectMultiple , @@ -212,6 +218,7 @@ RecentChooserShowIconsPropertyInfo , constructRecentChooserShowIcons , getRecentChooserShowIcons , + recentChooserShowIcons , setRecentChooserShowIcons , @@ -219,6 +226,7 @@ RecentChooserShowNotFoundPropertyInfo , constructRecentChooserShowNotFound , getRecentChooserShowNotFound , + recentChooserShowNotFound , setRecentChooserShowNotFound , @@ -226,6 +234,7 @@ RecentChooserShowPrivatePropertyInfo , constructRecentChooserShowPrivate , getRecentChooserShowPrivate , + recentChooserShowPrivate , setRecentChooserShowPrivate , @@ -233,6 +242,7 @@ RecentChooserShowTipsPropertyInfo , constructRecentChooserShowTips , getRecentChooserShowTips , + recentChooserShowTips , setRecentChooserShowTips , @@ -240,6 +250,7 @@ RecentChooserSortTypePropertyInfo , constructRecentChooserSortType , getRecentChooserSortType , + recentChooserSortType , setRecentChooserSortType , @@ -274,9 +285,9 @@ ) where -import Prelude () 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 @@ -435,19 +446,23 @@ -- VVV Prop "filter" -- Type: TInterface "Gtk" "RecentFilter" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) getRecentChooserFilter :: (MonadIO m, RecentChooserK o) => o -> m RecentFilter -getRecentChooserFilter obj = liftIO $ getObjectPropertyObject obj "filter" RecentFilter +getRecentChooserFilter obj = liftIO $ checkUnexpectedNothing "getRecentChooserFilter" $ getObjectPropertyObject obj "filter" RecentFilter setRecentChooserFilter :: (MonadIO m, RecentChooserK o, RecentFilterK a) => o -> a -> m () -setRecentChooserFilter obj val = liftIO $ setObjectPropertyObject obj "filter" val +setRecentChooserFilter obj val = liftIO $ setObjectPropertyObject obj "filter" (Just val) constructRecentChooserFilter :: (RecentFilterK a) => a -> IO ([Char], GValue) -constructRecentChooserFilter val = constructObjectPropertyObject "filter" val +constructRecentChooserFilter val = constructObjectPropertyObject "filter" (Just val) +clearRecentChooserFilter :: (MonadIO m, RecentChooserK o) => o -> m () +clearRecentChooserFilter obj = liftIO $ setObjectPropertyObject obj "filter" (Nothing :: Maybe RecentFilter) + data RecentChooserFilterPropertyInfo instance AttrInfo RecentChooserFilterPropertyInfo where - type AttrAllowedOps RecentChooserFilterPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps RecentChooserFilterPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint RecentChooserFilterPropertyInfo = RecentFilterK type AttrBaseTypeConstraint RecentChooserFilterPropertyInfo = RecentChooserK type AttrGetType RecentChooserFilterPropertyInfo = RecentFilter @@ -455,19 +470,21 @@ attrGet _ = getRecentChooserFilter attrSet _ = setRecentChooserFilter attrConstruct _ = constructRecentChooserFilter + attrClear _ = clearRecentChooserFilter -- VVV Prop "limit" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getRecentChooserLimit :: (MonadIO m, RecentChooserK o) => o -> m Int32 -getRecentChooserLimit obj = liftIO $ getObjectPropertyCInt obj "limit" +getRecentChooserLimit obj = liftIO $ getObjectPropertyInt32 obj "limit" setRecentChooserLimit :: (MonadIO m, RecentChooserK o) => o -> Int32 -> m () -setRecentChooserLimit obj val = liftIO $ setObjectPropertyCInt obj "limit" val +setRecentChooserLimit obj val = liftIO $ setObjectPropertyInt32 obj "limit" val constructRecentChooserLimit :: Int32 -> IO ([Char], GValue) -constructRecentChooserLimit val = constructObjectPropertyCInt "limit" val +constructRecentChooserLimit val = constructObjectPropertyInt32 "limit" val data RecentChooserLimitPropertyInfo instance AttrInfo RecentChooserLimitPropertyInfo where @@ -479,10 +496,12 @@ attrGet _ = getRecentChooserLimit attrSet _ = setRecentChooserLimit attrConstruct _ = constructRecentChooserLimit + attrClear _ = undefined -- VVV Prop "local-only" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getRecentChooserLocalOnly :: (MonadIO m, RecentChooserK o) => o -> m Bool getRecentChooserLocalOnly obj = liftIO $ getObjectPropertyBool obj "local-only" @@ -503,17 +522,19 @@ attrGet _ = getRecentChooserLocalOnly attrSet _ = setRecentChooserLocalOnly attrConstruct _ = constructRecentChooserLocalOnly + attrClear _ = undefined -- VVV Prop "recent-manager" -- Type: TInterface "Gtk" "RecentManager" -- Flags: [PropertyWritable,PropertyConstructOnly] + -- Nullable: (Nothing,Nothing) constructRecentChooserRecentManager :: (RecentManagerK a) => a -> IO ([Char], GValue) -constructRecentChooserRecentManager val = constructObjectPropertyObject "recent-manager" val +constructRecentChooserRecentManager val = constructObjectPropertyObject "recent-manager" (Just val) data RecentChooserRecentManagerPropertyInfo instance AttrInfo RecentChooserRecentManagerPropertyInfo where - type AttrAllowedOps RecentChooserRecentManagerPropertyInfo = '[ 'AttrConstruct] + type AttrAllowedOps RecentChooserRecentManagerPropertyInfo = '[ 'AttrConstruct, 'AttrClear] type AttrSetTypeConstraint RecentChooserRecentManagerPropertyInfo = RecentManagerK type AttrBaseTypeConstraint RecentChooserRecentManagerPropertyInfo = RecentChooserK type AttrGetType RecentChooserRecentManagerPropertyInfo = () @@ -521,10 +542,12 @@ attrGet _ = undefined attrSet _ = undefined attrConstruct _ = constructRecentChooserRecentManager + attrClear _ = undefined -- VVV Prop "select-multiple" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getRecentChooserSelectMultiple :: (MonadIO m, RecentChooserK o) => o -> m Bool getRecentChooserSelectMultiple obj = liftIO $ getObjectPropertyBool obj "select-multiple" @@ -545,10 +568,12 @@ attrGet _ = getRecentChooserSelectMultiple attrSet _ = setRecentChooserSelectMultiple attrConstruct _ = constructRecentChooserSelectMultiple + attrClear _ = undefined -- VVV Prop "show-icons" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getRecentChooserShowIcons :: (MonadIO m, RecentChooserK o) => o -> m Bool getRecentChooserShowIcons obj = liftIO $ getObjectPropertyBool obj "show-icons" @@ -569,10 +594,12 @@ attrGet _ = getRecentChooserShowIcons attrSet _ = setRecentChooserShowIcons attrConstruct _ = constructRecentChooserShowIcons + attrClear _ = undefined -- VVV Prop "show-not-found" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getRecentChooserShowNotFound :: (MonadIO m, RecentChooserK o) => o -> m Bool getRecentChooserShowNotFound obj = liftIO $ getObjectPropertyBool obj "show-not-found" @@ -593,10 +620,12 @@ attrGet _ = getRecentChooserShowNotFound attrSet _ = setRecentChooserShowNotFound attrConstruct _ = constructRecentChooserShowNotFound + attrClear _ = undefined -- VVV Prop "show-private" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getRecentChooserShowPrivate :: (MonadIO m, RecentChooserK o) => o -> m Bool getRecentChooserShowPrivate obj = liftIO $ getObjectPropertyBool obj "show-private" @@ -617,10 +646,12 @@ attrGet _ = getRecentChooserShowPrivate attrSet _ = setRecentChooserShowPrivate attrConstruct _ = constructRecentChooserShowPrivate + attrClear _ = undefined -- VVV Prop "show-tips" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getRecentChooserShowTips :: (MonadIO m, RecentChooserK o) => o -> m Bool getRecentChooserShowTips obj = liftIO $ getObjectPropertyBool obj "show-tips" @@ -641,10 +672,12 @@ attrGet _ = getRecentChooserShowTips attrSet _ = setRecentChooserShowTips attrConstruct _ = constructRecentChooserShowTips + attrClear _ = undefined -- VVV Prop "sort-type" -- Type: TInterface "Gtk" "RecentSortType" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getRecentChooserSortType :: (MonadIO m, RecentChooserK o) => o -> m RecentSortType getRecentChooserSortType obj = liftIO $ getObjectPropertyEnum obj "sort-type" @@ -665,10 +698,41 @@ attrGet _ = getRecentChooserSortType attrSet _ = setRecentChooserSortType attrConstruct _ = constructRecentChooserSortType + attrClear _ = undefined type instance AttributeList RecentChooser = RecentChooserAttributeList type RecentChooserAttributeList = ('[ '("filter", RecentChooserFilterPropertyInfo), '("limit", RecentChooserLimitPropertyInfo), '("localOnly", RecentChooserLocalOnlyPropertyInfo), '("recentManager", RecentChooserRecentManagerPropertyInfo), '("selectMultiple", RecentChooserSelectMultiplePropertyInfo), '("showIcons", RecentChooserShowIconsPropertyInfo), '("showNotFound", RecentChooserShowNotFoundPropertyInfo), '("showPrivate", RecentChooserShowPrivatePropertyInfo), '("showTips", RecentChooserShowTipsPropertyInfo), '("sortType", RecentChooserSortTypePropertyInfo)] :: [(Symbol, *)]) +recentChooserFilter :: AttrLabelProxy "filter" +recentChooserFilter = AttrLabelProxy + +recentChooserLimit :: AttrLabelProxy "limit" +recentChooserLimit = AttrLabelProxy + +recentChooserLocalOnly :: AttrLabelProxy "localOnly" +recentChooserLocalOnly = AttrLabelProxy + +recentChooserRecentManager :: AttrLabelProxy "recentManager" +recentChooserRecentManager = AttrLabelProxy + +recentChooserSelectMultiple :: AttrLabelProxy "selectMultiple" +recentChooserSelectMultiple = AttrLabelProxy + +recentChooserShowIcons :: AttrLabelProxy "showIcons" +recentChooserShowIcons = AttrLabelProxy + +recentChooserShowNotFound :: AttrLabelProxy "showNotFound" +recentChooserShowNotFound = AttrLabelProxy + +recentChooserShowPrivate :: AttrLabelProxy "showPrivate" +recentChooserShowPrivate = AttrLabelProxy + +recentChooserShowTips :: AttrLabelProxy "showTips" +recentChooserShowTips = AttrLabelProxy + +recentChooserSortType :: AttrLabelProxy "sortType" +recentChooserSortType = AttrLabelProxy + data RecentChooserItemActivatedSignalInfo instance SignalInfo RecentChooserItemActivatedSignalInfo where type HaskellCallbackType RecentChooserItemActivatedSignalInfo = RecentChooserItemActivatedCallback @@ -703,7 +767,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -734,7 +798,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "RecentInfo" +-- returnType : Just (TInterface "Gtk" "RecentInfo") -- throws : False -- Skip return : False @@ -763,7 +827,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -793,7 +857,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "RecentFilter" +-- returnType : Just (TInterface "Gtk" "RecentFilter") -- throws : False -- Skip return : False @@ -822,7 +886,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TGList (TInterface "Gtk" "RecentInfo") +-- returnType : Just (TGList (TInterface "Gtk" "RecentInfo")) -- throws : False -- Skip return : False @@ -838,7 +902,6 @@ recentChooserGetItems _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_recent_chooser_get_items _obj' - checkUnexpectedReturnNULL "gtk_recent_chooser_get_items" result result' <- unpackGList result result'' <- mapM (wrapBoxed RecentInfo) result' g_list_free result @@ -853,7 +916,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -880,7 +943,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -908,7 +971,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -936,7 +999,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -964,7 +1027,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -992,7 +1055,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1020,7 +1083,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1048,7 +1111,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "RecentSortType" +-- returnType : Just (TInterface "Gtk" "RecentSortType") -- throws : False -- Skip return : False @@ -1076,7 +1139,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TCArray True (-1) 1 (TBasicType TUTF8) +-- returnType : Just (TCArray True (-1) 1 (TBasicType TUTF8)) -- throws : False -- Skip return : False @@ -1111,7 +1174,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TGSList (TInterface "Gtk" "RecentFilter") +-- returnType : Just (TGSList (TInterface "Gtk" "RecentFilter")) -- throws : False -- Skip return : False @@ -1127,7 +1190,6 @@ recentChooserListFilters _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_recent_chooser_list_filters _obj' - checkUnexpectedReturnNULL "gtk_recent_chooser_list_filters" result result' <- unpackGSList result result'' <- mapM (newObject RecentFilter) result' g_slist_free result @@ -1142,7 +1204,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1173,7 +1235,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1200,7 +1262,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -1236,7 +1298,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -1272,7 +1334,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1305,15 +1367,15 @@ -- method RecentChooser::set_limit -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "limit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "limit", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_recent_chooser_set_limit" gtk_recent_chooser_set_limit :: Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser" - Int32 -> -- limit : TBasicType TInt32 + Int32 -> -- limit : TBasicType TInt IO () @@ -1336,7 +1398,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "local_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1366,7 +1428,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "select_multiple", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1396,7 +1458,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_icons", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1426,7 +1488,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_not_found", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1456,7 +1518,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_private", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1486,7 +1548,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_tips", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1514,16 +1576,16 @@ -- method RecentChooser::set_sort_func -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_func", argType = TInterface "Gtk" "RecentSortFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_func", argType = TInterface "Gtk" "RecentSortFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_recent_chooser_set_sort_func" gtk_recent_chooser_set_sort_func :: Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser" FunPtr RecentSortFuncC -> -- sort_func : TInterface "Gtk" "RecentSortFunc" - Ptr () -> -- sort_data : TBasicType TVoid + Ptr () -> -- sort_data : TBasicType TPtr FunPtr GLib.DestroyNotifyC -> -- data_destroy : TInterface "GLib" "DestroyNotify" IO () @@ -1550,7 +1612,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_type", argType = TInterface "Gtk" "RecentSortType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1580,7 +1642,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1607,7 +1669,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Interfaces/RecentChooser.hs-boot b/GI/Gtk/Interfaces/RecentChooser.hs-boot --- a/GI/Gtk/Interfaces/RecentChooser.hs-boot +++ b/GI/Gtk/Interfaces/RecentChooser.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Interfaces.RecentChooser where -import Prelude () 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 diff --git a/GI/Gtk/Interfaces/Scrollable.hs b/GI/Gtk/Interfaces/Scrollable.hs --- a/GI/Gtk/Interfaces/Scrollable.hs +++ b/GI/Gtk/Interfaces/Scrollable.hs @@ -67,8 +67,10 @@ -- * Properties -- ** Hadjustment ScrollableHadjustmentPropertyInfo , + clearScrollableHadjustment , constructScrollableHadjustment , getScrollableHadjustment , + scrollableHadjustment , setScrollableHadjustment , @@ -76,13 +78,16 @@ ScrollableHscrollPolicyPropertyInfo , constructScrollableHscrollPolicy , getScrollableHscrollPolicy , + scrollableHscrollPolicy , setScrollableHscrollPolicy , -- ** Vadjustment ScrollableVadjustmentPropertyInfo , + clearScrollableVadjustment , constructScrollableVadjustment , getScrollableVadjustment , + scrollableVadjustment , setScrollableVadjustment , @@ -90,6 +95,7 @@ ScrollableVscrollPolicyPropertyInfo , constructScrollableVscrollPolicy , getScrollableVscrollPolicy , + scrollableVscrollPolicy , setScrollableVscrollPolicy , @@ -97,9 +103,9 @@ ) where -import Prelude () 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 @@ -159,19 +165,23 @@ -- VVV Prop "hadjustment" -- Type: TInterface "Gtk" "Adjustment" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Just False,Just True) getScrollableHadjustment :: (MonadIO m, ScrollableK o) => o -> m Adjustment -getScrollableHadjustment obj = liftIO $ getObjectPropertyObject obj "hadjustment" Adjustment +getScrollableHadjustment obj = liftIO $ checkUnexpectedNothing "getScrollableHadjustment" $ getObjectPropertyObject obj "hadjustment" Adjustment setScrollableHadjustment :: (MonadIO m, ScrollableK o, AdjustmentK a) => o -> a -> m () -setScrollableHadjustment obj val = liftIO $ setObjectPropertyObject obj "hadjustment" val +setScrollableHadjustment obj val = liftIO $ setObjectPropertyObject obj "hadjustment" (Just val) constructScrollableHadjustment :: (AdjustmentK a) => a -> IO ([Char], GValue) -constructScrollableHadjustment val = constructObjectPropertyObject "hadjustment" val +constructScrollableHadjustment val = constructObjectPropertyObject "hadjustment" (Just val) +clearScrollableHadjustment :: (MonadIO m, ScrollableK o) => o -> m () +clearScrollableHadjustment obj = liftIO $ setObjectPropertyObject obj "hadjustment" (Nothing :: Maybe Adjustment) + data ScrollableHadjustmentPropertyInfo instance AttrInfo ScrollableHadjustmentPropertyInfo where - type AttrAllowedOps ScrollableHadjustmentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps ScrollableHadjustmentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ScrollableHadjustmentPropertyInfo = AdjustmentK type AttrBaseTypeConstraint ScrollableHadjustmentPropertyInfo = ScrollableK type AttrGetType ScrollableHadjustmentPropertyInfo = Adjustment @@ -179,10 +189,12 @@ attrGet _ = getScrollableHadjustment attrSet _ = setScrollableHadjustment attrConstruct _ = constructScrollableHadjustment + attrClear _ = clearScrollableHadjustment -- VVV Prop "hscroll-policy" -- Type: TInterface "Gtk" "ScrollablePolicy" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getScrollableHscrollPolicy :: (MonadIO m, ScrollableK o) => o -> m ScrollablePolicy getScrollableHscrollPolicy obj = liftIO $ getObjectPropertyEnum obj "hscroll-policy" @@ -203,23 +215,28 @@ attrGet _ = getScrollableHscrollPolicy attrSet _ = setScrollableHscrollPolicy attrConstruct _ = constructScrollableHscrollPolicy + attrClear _ = undefined -- VVV Prop "vadjustment" -- Type: TInterface "Gtk" "Adjustment" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Just False,Just True) getScrollableVadjustment :: (MonadIO m, ScrollableK o) => o -> m Adjustment -getScrollableVadjustment obj = liftIO $ getObjectPropertyObject obj "vadjustment" Adjustment +getScrollableVadjustment obj = liftIO $ checkUnexpectedNothing "getScrollableVadjustment" $ getObjectPropertyObject obj "vadjustment" Adjustment setScrollableVadjustment :: (MonadIO m, ScrollableK o, AdjustmentK a) => o -> a -> m () -setScrollableVadjustment obj val = liftIO $ setObjectPropertyObject obj "vadjustment" val +setScrollableVadjustment obj val = liftIO $ setObjectPropertyObject obj "vadjustment" (Just val) constructScrollableVadjustment :: (AdjustmentK a) => a -> IO ([Char], GValue) -constructScrollableVadjustment val = constructObjectPropertyObject "vadjustment" val +constructScrollableVadjustment val = constructObjectPropertyObject "vadjustment" (Just val) +clearScrollableVadjustment :: (MonadIO m, ScrollableK o) => o -> m () +clearScrollableVadjustment obj = liftIO $ setObjectPropertyObject obj "vadjustment" (Nothing :: Maybe Adjustment) + data ScrollableVadjustmentPropertyInfo instance AttrInfo ScrollableVadjustmentPropertyInfo where - type AttrAllowedOps ScrollableVadjustmentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps ScrollableVadjustmentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ScrollableVadjustmentPropertyInfo = AdjustmentK type AttrBaseTypeConstraint ScrollableVadjustmentPropertyInfo = ScrollableK type AttrGetType ScrollableVadjustmentPropertyInfo = Adjustment @@ -227,10 +244,12 @@ attrGet _ = getScrollableVadjustment attrSet _ = setScrollableVadjustment attrConstruct _ = constructScrollableVadjustment + attrClear _ = clearScrollableVadjustment -- VVV Prop "vscroll-policy" -- Type: TInterface "Gtk" "ScrollablePolicy" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getScrollableVscrollPolicy :: (MonadIO m, ScrollableK o) => o -> m ScrollablePolicy getScrollableVscrollPolicy obj = liftIO $ getObjectPropertyEnum obj "vscroll-policy" @@ -251,10 +270,23 @@ attrGet _ = getScrollableVscrollPolicy attrSet _ = setScrollableVscrollPolicy attrConstruct _ = constructScrollableVscrollPolicy + attrClear _ = undefined type instance AttributeList Scrollable = ScrollableAttributeList type ScrollableAttributeList = ('[ '("hadjustment", ScrollableHadjustmentPropertyInfo), '("hscrollPolicy", ScrollableHscrollPolicyPropertyInfo), '("vadjustment", ScrollableVadjustmentPropertyInfo), '("vscrollPolicy", ScrollableVscrollPolicyPropertyInfo)] :: [(Symbol, *)]) +scrollableHadjustment :: AttrLabelProxy "hadjustment" +scrollableHadjustment = AttrLabelProxy + +scrollableHscrollPolicy :: AttrLabelProxy "hscrollPolicy" +scrollableHscrollPolicy = AttrLabelProxy + +scrollableVadjustment :: AttrLabelProxy "vadjustment" +scrollableVadjustment = AttrLabelProxy + +scrollableVscrollPolicy :: AttrLabelProxy "vscrollPolicy" +scrollableVscrollPolicy = AttrLabelProxy + type instance SignalList Scrollable = ScrollableSignalList type ScrollableSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -279,7 +311,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "border", argType = TInterface "Gtk" "Border", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -311,7 +343,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Adjustment" +-- returnType : Just (TInterface "Gtk" "Adjustment") -- throws : False -- Skip return : False @@ -340,7 +372,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "ScrollablePolicy" +-- returnType : Just (TInterface "Gtk" "ScrollablePolicy") -- throws : False -- Skip return : False @@ -368,7 +400,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Adjustment" +-- returnType : Just (TInterface "Gtk" "Adjustment") -- throws : False -- Skip return : False @@ -397,7 +429,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "ScrollablePolicy" +-- returnType : Just (TInterface "Gtk" "ScrollablePolicy") -- throws : False -- Skip return : False @@ -425,7 +457,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -460,7 +492,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "policy", argType = TInterface "Gtk" "ScrollablePolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -490,7 +522,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "vadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -525,7 +557,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "policy", argType = TInterface "Gtk" "ScrollablePolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Interfaces/Scrollable.hs-boot b/GI/Gtk/Interfaces/Scrollable.hs-boot --- a/GI/Gtk/Interfaces/Scrollable.hs-boot +++ b/GI/Gtk/Interfaces/Scrollable.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Interfaces.Scrollable where -import Prelude () 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 diff --git a/GI/Gtk/Interfaces/StyleProvider.hs b/GI/Gtk/Interfaces/StyleProvider.hs --- a/GI/Gtk/Interfaces/StyleProvider.hs +++ b/GI/Gtk/Interfaces/StyleProvider.hs @@ -35,9 +35,9 @@ ) where -import Prelude () 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 @@ -80,7 +80,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "IconFactory" +-- returnType : Just (TInterface "Gtk" "IconFactory") -- throws : False -- Skip return : False @@ -113,7 +113,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "StyleProperties" +-- returnType : Just (TInterface "Gtk" "StyleProperties") -- throws : False -- Skip return : False @@ -146,7 +146,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False diff --git a/GI/Gtk/Interfaces/StyleProvider.hs-boot b/GI/Gtk/Interfaces/StyleProvider.hs-boot --- a/GI/Gtk/Interfaces/StyleProvider.hs-boot +++ b/GI/Gtk/Interfaces/StyleProvider.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Interfaces.StyleProvider where -import Prelude () 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 diff --git a/GI/Gtk/Interfaces/ToolShell.hs b/GI/Gtk/Interfaces/ToolShell.hs --- a/GI/Gtk/Interfaces/ToolShell.hs +++ b/GI/Gtk/Interfaces/ToolShell.hs @@ -66,9 +66,9 @@ ) where -import Prelude () 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 @@ -414,7 +414,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Pango" "EllipsizeMode" +-- returnType : Just (TInterface "Pango" "EllipsizeMode") -- throws : False -- Skip return : False @@ -442,7 +442,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -469,7 +469,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Orientation" +-- returnType : Just (TInterface "Gtk" "Orientation") -- throws : False -- Skip return : False @@ -497,7 +497,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "ReliefStyle" +-- returnType : Just (TInterface "Gtk" "ReliefStyle") -- throws : False -- Skip return : False @@ -525,7 +525,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "ToolbarStyle" +-- returnType : Just (TInterface "Gtk" "ToolbarStyle") -- throws : False -- Skip return : False @@ -553,7 +553,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TFloat +-- returnType : Just (TBasicType TFloat) -- throws : False -- Skip return : False @@ -581,7 +581,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Orientation" +-- returnType : Just (TInterface "Gtk" "Orientation") -- throws : False -- Skip return : False @@ -609,7 +609,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "SizeGroup" +-- returnType : Just (TInterface "Gtk" "SizeGroup") -- throws : False -- Skip return : False @@ -638,7 +638,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Interfaces/ToolShell.hs-boot b/GI/Gtk/Interfaces/ToolShell.hs-boot --- a/GI/Gtk/Interfaces/ToolShell.hs-boot +++ b/GI/Gtk/Interfaces/ToolShell.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Interfaces.ToolShell where -import Prelude () 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 diff --git a/GI/Gtk/Interfaces/TreeDragDest.hs b/GI/Gtk/Interfaces/TreeDragDest.hs --- a/GI/Gtk/Interfaces/TreeDragDest.hs +++ b/GI/Gtk/Interfaces/TreeDragDest.hs @@ -30,9 +30,9 @@ ) where -import Prelude () 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 @@ -74,7 +74,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeDragDest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection_data", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -110,7 +110,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeDragDest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection_data", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False diff --git a/GI/Gtk/Interfaces/TreeDragDest.hs-boot b/GI/Gtk/Interfaces/TreeDragDest.hs-boot --- a/GI/Gtk/Interfaces/TreeDragDest.hs-boot +++ b/GI/Gtk/Interfaces/TreeDragDest.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Interfaces.TreeDragDest where -import Prelude () 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 diff --git a/GI/Gtk/Interfaces/TreeDragSource.hs b/GI/Gtk/Interfaces/TreeDragSource.hs --- a/GI/Gtk/Interfaces/TreeDragSource.hs +++ b/GI/Gtk/Interfaces/TreeDragSource.hs @@ -35,9 +35,9 @@ ) where -import Prelude () 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 @@ -80,7 +80,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeDragSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -112,7 +112,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeDragSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection_data", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -148,7 +148,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeDragSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False diff --git a/GI/Gtk/Interfaces/TreeDragSource.hs-boot b/GI/Gtk/Interfaces/TreeDragSource.hs-boot --- a/GI/Gtk/Interfaces/TreeDragSource.hs-boot +++ b/GI/Gtk/Interfaces/TreeDragSource.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Interfaces.TreeDragSource where -import Prelude () 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 diff --git a/GI/Gtk/Interfaces/TreeModel.hs b/GI/Gtk/Interfaces/TreeModel.hs --- a/GI/Gtk/Interfaces/TreeModel.hs +++ b/GI/Gtk/Interfaces/TreeModel.hs @@ -202,9 +202,9 @@ ) where -import Prelude () 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 @@ -505,7 +505,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "TreeModel" +-- returnType : Just (TInterface "Gtk" "TreeModel") -- throws : False -- Skip return : False @@ -540,16 +540,16 @@ -- method TreeModel::foreach -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TreeModelForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TreeModelForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_model_foreach" gtk_tree_model_foreach :: Ptr TreeModel -> -- _obj : TInterface "Gtk" "TreeModel" FunPtr TreeModelForeachFuncC -> -- func : TInterface "Gtk" "TreeModelForeachFunc" - Ptr () -> -- user_data : TBasicType TVoid + Ptr () -> -- user_data : TBasicType TPtr IO () @@ -573,26 +573,26 @@ -- method TreeModel::get_column_type -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TGType +-- returnType : Just (TBasicType TGType) -- throws : False -- Skip return : False foreign import ccall "gtk_tree_model_get_column_type" gtk_tree_model_get_column_type :: Ptr TreeModel -> -- _obj : TInterface "Gtk" "TreeModel" - Int32 -> -- index_ : TBasicType TInt32 + Int32 -> -- index_ : TBasicType TInt IO CGType treeModelGetColumnType :: (MonadIO m, TreeModelK a) => a -- _obj - -> Int32 -- index + -> Int32 -- index_ -> m GType -- result -treeModelGetColumnType _obj index = liftIO $ do +treeModelGetColumnType _obj index_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_model_get_column_type _obj' index + result <- gtk_tree_model_get_column_type _obj' index_ let result' = GType result touchManagedPtr _obj return result' @@ -605,7 +605,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "TreeModelFlags" +-- returnType : Just (TInterface "Gtk" "TreeModelFlags") -- throws : False -- Skip return : False @@ -633,7 +633,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -668,7 +668,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -699,7 +699,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "path_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -734,7 +734,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -761,7 +761,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "TreePath" +-- returnType : Just (TInterface "Gtk" "TreePath") -- throws : False -- Skip return : False @@ -794,7 +794,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -826,16 +826,16 @@ -- method TreeModel::get_value -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_model_get_value" gtk_tree_model_get_value :: Ptr TreeModel -> -- _obj : TInterface "Gtk" "TreeModel" Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - Int32 -> -- column : TBasicType TInt32 + Int32 -> -- column : TBasicType TInt Ptr GValue -> -- value : TInterface "GObject" "Value" IO () @@ -864,7 +864,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -903,7 +903,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -935,7 +935,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -970,7 +970,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1000,9 +1000,9 @@ -- method TreeModel::iter_nth_child -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1010,7 +1010,7 @@ Ptr TreeModel -> -- _obj : TInterface "Gtk" "TreeModel" Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" Ptr TreeIter -> -- parent : TInterface "Gtk" "TreeIter" - Int32 -> -- n : TBasicType TInt32 + Int32 -> -- n : TBasicType TInt IO CInt @@ -1043,7 +1043,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1078,7 +1078,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1110,7 +1110,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1141,7 +1141,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1176,7 +1176,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1207,7 +1207,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1242,7 +1242,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1275,9 +1275,9 @@ -- method TreeModel::rows_reordered -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_order", argType = TCArray False (-1) 4 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : TBasicType TVoid +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_order", argType = TCArray False (-1) 4 (TBasicType TInt), 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}] +-- Lengths : [Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1285,8 +1285,8 @@ Ptr TreeModel -> -- _obj : TInterface "Gtk" "TreeModel" Ptr TreePath -> -- path : TInterface "Gtk" "TreePath" Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - Ptr Int32 -> -- new_order : TCArray False (-1) 4 (TBasicType TInt32) - Int32 -> -- length : TBasicType TInt32 + Ptr Int32 -> -- new_order : TCArray False (-1) 4 (TBasicType TInt) + Int32 -> -- length : TBasicType TInt IO () @@ -1322,7 +1322,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "TreeModel" +-- returnType : Just (TInterface "Gtk" "TreeModel") -- throws : False -- Skip return : False @@ -1351,7 +1351,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Interfaces/TreeModel.hs-boot b/GI/Gtk/Interfaces/TreeModel.hs-boot --- a/GI/Gtk/Interfaces/TreeModel.hs-boot +++ b/GI/Gtk/Interfaces/TreeModel.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Interfaces.TreeModel where -import Prelude () 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 diff --git a/GI/Gtk/Interfaces/TreeSortable.hs b/GI/Gtk/Interfaces/TreeSortable.hs --- a/GI/Gtk/Interfaces/TreeSortable.hs +++ b/GI/Gtk/Interfaces/TreeSortable.hs @@ -66,9 +66,9 @@ ) where -import Prelude () 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 @@ -217,15 +217,15 @@ -- method TreeSortable::get_sort_column_id -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_column_id", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "order", argType = TInterface "Gtk" "SortType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_column_id", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "order", argType = TInterface "Gtk" "SortType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_tree_sortable_get_sort_column_id" gtk_tree_sortable_get_sort_column_id :: Ptr TreeSortable -> -- _obj : TInterface "Gtk" "TreeSortable" - Ptr Int32 -> -- sort_column_id : TBasicType TInt32 + Ptr Int32 -> -- sort_column_id : TBasicType TInt Ptr CUInt -> -- order : TInterface "Gtk" "SortType" IO CInt @@ -256,7 +256,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -282,16 +282,16 @@ -- method TreeSortable::set_default_sort_func -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_func", argType = TInterface "Gtk" "TreeIterCompareFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_func", argType = TInterface "Gtk" "TreeIterCompareFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_sortable_set_default_sort_func" gtk_tree_sortable_set_default_sort_func :: Ptr TreeSortable -> -- _obj : TInterface "Gtk" "TreeSortable" FunPtr TreeIterCompareFuncC -> -- sort_func : TInterface "Gtk" "TreeIterCompareFunc" - Ptr () -> -- user_data : TBasicType TVoid + Ptr () -> -- user_data : TBasicType TPtr FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" IO () @@ -316,15 +316,15 @@ -- method TreeSortable::set_sort_column_id -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_column_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "order", argType = TInterface "Gtk" "SortType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_column_id", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "order", argType = TInterface "Gtk" "SortType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_sortable_set_sort_column_id" gtk_tree_sortable_set_sort_column_id :: Ptr TreeSortable -> -- _obj : TInterface "Gtk" "TreeSortable" - Int32 -> -- sort_column_id : TBasicType TInt32 + Int32 -> -- sort_column_id : TBasicType TInt CUInt -> -- order : TInterface "Gtk" "SortType" IO () @@ -348,17 +348,17 @@ -- method TreeSortable::set_sort_func -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_column_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_func", argType = TInterface "Gtk" "TreeIterCompareFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_column_id", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_func", argType = TInterface "Gtk" "TreeIterCompareFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_sortable_set_sort_func" gtk_tree_sortable_set_sort_func :: Ptr TreeSortable -> -- _obj : TInterface "Gtk" "TreeSortable" - Int32 -> -- sort_column_id : TBasicType TInt32 + Int32 -> -- sort_column_id : TBasicType TInt FunPtr TreeIterCompareFuncC -> -- sort_func : TInterface "Gtk" "TreeIterCompareFunc" - Ptr () -> -- user_data : TBasicType TVoid + Ptr () -> -- user_data : TBasicType TPtr FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" IO () @@ -386,7 +386,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Interfaces/TreeSortable.hs-boot b/GI/Gtk/Interfaces/TreeSortable.hs-boot --- a/GI/Gtk/Interfaces/TreeSortable.hs-boot +++ b/GI/Gtk/Interfaces/TreeSortable.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Interfaces.TreeSortable where -import Prelude () 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 diff --git a/GI/Gtk/Objects.hs b/GI/Gtk/Objects.hs --- a/GI/Gtk/Objects.hs +++ b/GI/Gtk/Objects.hs @@ -522,9 +522,9 @@ import GI.Gtk.Objects.WindowAccessible import GI.Gtk.Objects.WindowGroup -import Prelude () 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 diff --git a/GI/Gtk/Objects/AboutDialog.hs b/GI/Gtk/Objects/AboutDialog.hs --- a/GI/Gtk/Objects/AboutDialog.hs +++ b/GI/Gtk/Objects/AboutDialog.hs @@ -181,6 +181,7 @@ -- * Properties -- ** Artists AboutDialogArtistsPropertyInfo , + aboutDialogArtists , constructAboutDialogArtists , getAboutDialogArtists , setAboutDialogArtists , @@ -188,6 +189,7 @@ -- ** Authors AboutDialogAuthorsPropertyInfo , + aboutDialogAuthors , constructAboutDialogAuthors , getAboutDialogAuthors , setAboutDialogAuthors , @@ -195,6 +197,8 @@ -- ** Comments AboutDialogCommentsPropertyInfo , + aboutDialogComments , + clearAboutDialogComments , constructAboutDialogComments , getAboutDialogComments , setAboutDialogComments , @@ -202,6 +206,8 @@ -- ** Copyright AboutDialogCopyrightPropertyInfo , + aboutDialogCopyright , + clearAboutDialogCopyright , constructAboutDialogCopyright , getAboutDialogCopyright , setAboutDialogCopyright , @@ -209,6 +215,7 @@ -- ** Documenters AboutDialogDocumentersPropertyInfo , + aboutDialogDocumenters , constructAboutDialogDocumenters , getAboutDialogDocumenters , setAboutDialogDocumenters , @@ -216,6 +223,8 @@ -- ** License AboutDialogLicensePropertyInfo , + aboutDialogLicense , + clearAboutDialogLicense , constructAboutDialogLicense , getAboutDialogLicense , setAboutDialogLicense , @@ -223,6 +232,7 @@ -- ** LicenseType AboutDialogLicenseTypePropertyInfo , + aboutDialogLicenseType , constructAboutDialogLicenseType , getAboutDialogLicenseType , setAboutDialogLicenseType , @@ -230,6 +240,8 @@ -- ** Logo AboutDialogLogoPropertyInfo , + aboutDialogLogo , + clearAboutDialogLogo , constructAboutDialogLogo , getAboutDialogLogo , setAboutDialogLogo , @@ -237,6 +249,8 @@ -- ** LogoIconName AboutDialogLogoIconNamePropertyInfo , + aboutDialogLogoIconName , + clearAboutDialogLogoIconName , constructAboutDialogLogoIconName , getAboutDialogLogoIconName , setAboutDialogLogoIconName , @@ -244,6 +258,7 @@ -- ** ProgramName AboutDialogProgramNamePropertyInfo , + aboutDialogProgramName , constructAboutDialogProgramName , getAboutDialogProgramName , setAboutDialogProgramName , @@ -251,6 +266,8 @@ -- ** TranslatorCredits AboutDialogTranslatorCreditsPropertyInfo, + aboutDialogTranslatorCredits , + clearAboutDialogTranslatorCredits , constructAboutDialogTranslatorCredits , getAboutDialogTranslatorCredits , setAboutDialogTranslatorCredits , @@ -258,6 +275,8 @@ -- ** Version AboutDialogVersionPropertyInfo , + aboutDialogVersion , + clearAboutDialogVersion , constructAboutDialogVersion , getAboutDialogVersion , setAboutDialogVersion , @@ -265,6 +284,8 @@ -- ** Website AboutDialogWebsitePropertyInfo , + aboutDialogWebsite , + clearAboutDialogWebsite , constructAboutDialogWebsite , getAboutDialogWebsite , setAboutDialogWebsite , @@ -272,6 +293,7 @@ -- ** WebsiteLabel AboutDialogWebsiteLabelPropertyInfo , + aboutDialogWebsiteLabel , constructAboutDialogWebsiteLabel , getAboutDialogWebsiteLabel , setAboutDialogWebsiteLabel , @@ -279,6 +301,7 @@ -- ** WrapLicense AboutDialogWrapLicensePropertyInfo , + aboutDialogWrapLicense , constructAboutDialogWrapLicense , getAboutDialogWrapLicense , setAboutDialogWrapLicense , @@ -303,9 +326,9 @@ ) where -import Prelude () 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 @@ -851,15 +874,16 @@ -- VVV Prop "artists" -- Type: TCArray True (-1) (-1) (TBasicType TUTF8) -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getAboutDialogArtists :: (MonadIO m, AboutDialogK o) => o -> m [T.Text] -getAboutDialogArtists obj = liftIO $ getObjectPropertyStringArray obj "artists" +getAboutDialogArtists obj = liftIO $ checkUnexpectedNothing "getAboutDialogArtists" $ getObjectPropertyStringArray obj "artists" setAboutDialogArtists :: (MonadIO m, AboutDialogK o) => o -> [T.Text] -> m () -setAboutDialogArtists obj val = liftIO $ setObjectPropertyStringArray obj "artists" val +setAboutDialogArtists obj val = liftIO $ setObjectPropertyStringArray obj "artists" (Just val) constructAboutDialogArtists :: [T.Text] -> IO ([Char], GValue) -constructAboutDialogArtists val = constructObjectPropertyStringArray "artists" val +constructAboutDialogArtists val = constructObjectPropertyStringArray "artists" (Just val) data AboutDialogArtistsPropertyInfo instance AttrInfo AboutDialogArtistsPropertyInfo where @@ -871,19 +895,21 @@ attrGet _ = getAboutDialogArtists attrSet _ = setAboutDialogArtists attrConstruct _ = constructAboutDialogArtists + attrClear _ = undefined -- VVV Prop "authors" -- Type: TCArray True (-1) (-1) (TBasicType TUTF8) -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getAboutDialogAuthors :: (MonadIO m, AboutDialogK o) => o -> m [T.Text] -getAboutDialogAuthors obj = liftIO $ getObjectPropertyStringArray obj "authors" +getAboutDialogAuthors obj = liftIO $ checkUnexpectedNothing "getAboutDialogAuthors" $ getObjectPropertyStringArray obj "authors" setAboutDialogAuthors :: (MonadIO m, AboutDialogK o) => o -> [T.Text] -> m () -setAboutDialogAuthors obj val = liftIO $ setObjectPropertyStringArray obj "authors" val +setAboutDialogAuthors obj val = liftIO $ setObjectPropertyStringArray obj "authors" (Just val) constructAboutDialogAuthors :: [T.Text] -> IO ([Char], GValue) -constructAboutDialogAuthors val = constructObjectPropertyStringArray "authors" val +constructAboutDialogAuthors val = constructObjectPropertyStringArray "authors" (Just val) data AboutDialogAuthorsPropertyInfo instance AttrInfo AboutDialogAuthorsPropertyInfo where @@ -895,23 +921,28 @@ attrGet _ = getAboutDialogAuthors attrSet _ = setAboutDialogAuthors attrConstruct _ = constructAboutDialogAuthors + attrClear _ = undefined -- VVV Prop "comments" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) getAboutDialogComments :: (MonadIO m, AboutDialogK o) => o -> m T.Text -getAboutDialogComments obj = liftIO $ getObjectPropertyString obj "comments" +getAboutDialogComments obj = liftIO $ checkUnexpectedNothing "getAboutDialogComments" $ getObjectPropertyString obj "comments" setAboutDialogComments :: (MonadIO m, AboutDialogK o) => o -> T.Text -> m () -setAboutDialogComments obj val = liftIO $ setObjectPropertyString obj "comments" val +setAboutDialogComments obj val = liftIO $ setObjectPropertyString obj "comments" (Just val) constructAboutDialogComments :: T.Text -> IO ([Char], GValue) -constructAboutDialogComments val = constructObjectPropertyString "comments" val +constructAboutDialogComments val = constructObjectPropertyString "comments" (Just val) +clearAboutDialogComments :: (MonadIO m, AboutDialogK o) => o -> m () +clearAboutDialogComments obj = liftIO $ setObjectPropertyString obj "comments" (Nothing :: Maybe T.Text) + data AboutDialogCommentsPropertyInfo instance AttrInfo AboutDialogCommentsPropertyInfo where - type AttrAllowedOps AboutDialogCommentsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps AboutDialogCommentsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint AboutDialogCommentsPropertyInfo = (~) T.Text type AttrBaseTypeConstraint AboutDialogCommentsPropertyInfo = AboutDialogK type AttrGetType AboutDialogCommentsPropertyInfo = T.Text @@ -919,23 +950,28 @@ attrGet _ = getAboutDialogComments attrSet _ = setAboutDialogComments attrConstruct _ = constructAboutDialogComments + attrClear _ = clearAboutDialogComments -- VVV Prop "copyright" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) getAboutDialogCopyright :: (MonadIO m, AboutDialogK o) => o -> m T.Text -getAboutDialogCopyright obj = liftIO $ getObjectPropertyString obj "copyright" +getAboutDialogCopyright obj = liftIO $ checkUnexpectedNothing "getAboutDialogCopyright" $ getObjectPropertyString obj "copyright" setAboutDialogCopyright :: (MonadIO m, AboutDialogK o) => o -> T.Text -> m () -setAboutDialogCopyright obj val = liftIO $ setObjectPropertyString obj "copyright" val +setAboutDialogCopyright obj val = liftIO $ setObjectPropertyString obj "copyright" (Just val) constructAboutDialogCopyright :: T.Text -> IO ([Char], GValue) -constructAboutDialogCopyright val = constructObjectPropertyString "copyright" val +constructAboutDialogCopyright val = constructObjectPropertyString "copyright" (Just val) +clearAboutDialogCopyright :: (MonadIO m, AboutDialogK o) => o -> m () +clearAboutDialogCopyright obj = liftIO $ setObjectPropertyString obj "copyright" (Nothing :: Maybe T.Text) + data AboutDialogCopyrightPropertyInfo instance AttrInfo AboutDialogCopyrightPropertyInfo where - type AttrAllowedOps AboutDialogCopyrightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps AboutDialogCopyrightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint AboutDialogCopyrightPropertyInfo = (~) T.Text type AttrBaseTypeConstraint AboutDialogCopyrightPropertyInfo = AboutDialogK type AttrGetType AboutDialogCopyrightPropertyInfo = T.Text @@ -943,19 +979,21 @@ attrGet _ = getAboutDialogCopyright attrSet _ = setAboutDialogCopyright attrConstruct _ = constructAboutDialogCopyright + attrClear _ = clearAboutDialogCopyright -- VVV Prop "documenters" -- Type: TCArray True (-1) (-1) (TBasicType TUTF8) -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getAboutDialogDocumenters :: (MonadIO m, AboutDialogK o) => o -> m [T.Text] -getAboutDialogDocumenters obj = liftIO $ getObjectPropertyStringArray obj "documenters" +getAboutDialogDocumenters obj = liftIO $ checkUnexpectedNothing "getAboutDialogDocumenters" $ getObjectPropertyStringArray obj "documenters" setAboutDialogDocumenters :: (MonadIO m, AboutDialogK o) => o -> [T.Text] -> m () -setAboutDialogDocumenters obj val = liftIO $ setObjectPropertyStringArray obj "documenters" val +setAboutDialogDocumenters obj val = liftIO $ setObjectPropertyStringArray obj "documenters" (Just val) constructAboutDialogDocumenters :: [T.Text] -> IO ([Char], GValue) -constructAboutDialogDocumenters val = constructObjectPropertyStringArray "documenters" val +constructAboutDialogDocumenters val = constructObjectPropertyStringArray "documenters" (Just val) data AboutDialogDocumentersPropertyInfo instance AttrInfo AboutDialogDocumentersPropertyInfo where @@ -967,23 +1005,28 @@ attrGet _ = getAboutDialogDocumenters attrSet _ = setAboutDialogDocumenters attrConstruct _ = constructAboutDialogDocumenters + attrClear _ = undefined -- VVV Prop "license" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) getAboutDialogLicense :: (MonadIO m, AboutDialogK o) => o -> m T.Text -getAboutDialogLicense obj = liftIO $ getObjectPropertyString obj "license" +getAboutDialogLicense obj = liftIO $ checkUnexpectedNothing "getAboutDialogLicense" $ getObjectPropertyString obj "license" setAboutDialogLicense :: (MonadIO m, AboutDialogK o) => o -> T.Text -> m () -setAboutDialogLicense obj val = liftIO $ setObjectPropertyString obj "license" val +setAboutDialogLicense obj val = liftIO $ setObjectPropertyString obj "license" (Just val) constructAboutDialogLicense :: T.Text -> IO ([Char], GValue) -constructAboutDialogLicense val = constructObjectPropertyString "license" val +constructAboutDialogLicense val = constructObjectPropertyString "license" (Just val) +clearAboutDialogLicense :: (MonadIO m, AboutDialogK o) => o -> m () +clearAboutDialogLicense obj = liftIO $ setObjectPropertyString obj "license" (Nothing :: Maybe T.Text) + data AboutDialogLicensePropertyInfo instance AttrInfo AboutDialogLicensePropertyInfo where - type AttrAllowedOps AboutDialogLicensePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps AboutDialogLicensePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint AboutDialogLicensePropertyInfo = (~) T.Text type AttrBaseTypeConstraint AboutDialogLicensePropertyInfo = AboutDialogK type AttrGetType AboutDialogLicensePropertyInfo = T.Text @@ -991,10 +1034,12 @@ attrGet _ = getAboutDialogLicense attrSet _ = setAboutDialogLicense attrConstruct _ = constructAboutDialogLicense + attrClear _ = clearAboutDialogLicense -- VVV Prop "license-type" -- Type: TInterface "Gtk" "License" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getAboutDialogLicenseType :: (MonadIO m, AboutDialogK o) => o -> m License getAboutDialogLicenseType obj = liftIO $ getObjectPropertyEnum obj "license-type" @@ -1015,23 +1060,28 @@ attrGet _ = getAboutDialogLicenseType attrSet _ = setAboutDialogLicenseType attrConstruct _ = constructAboutDialogLicenseType + attrClear _ = undefined -- VVV Prop "logo" -- Type: TInterface "GdkPixbuf" "Pixbuf" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) getAboutDialogLogo :: (MonadIO m, AboutDialogK o) => o -> m GdkPixbuf.Pixbuf -getAboutDialogLogo obj = liftIO $ getObjectPropertyObject obj "logo" GdkPixbuf.Pixbuf +getAboutDialogLogo obj = liftIO $ checkUnexpectedNothing "getAboutDialogLogo" $ getObjectPropertyObject obj "logo" GdkPixbuf.Pixbuf setAboutDialogLogo :: (MonadIO m, AboutDialogK o, GdkPixbuf.PixbufK a) => o -> a -> m () -setAboutDialogLogo obj val = liftIO $ setObjectPropertyObject obj "logo" val +setAboutDialogLogo obj val = liftIO $ setObjectPropertyObject obj "logo" (Just val) constructAboutDialogLogo :: (GdkPixbuf.PixbufK a) => a -> IO ([Char], GValue) -constructAboutDialogLogo val = constructObjectPropertyObject "logo" val +constructAboutDialogLogo val = constructObjectPropertyObject "logo" (Just val) +clearAboutDialogLogo :: (MonadIO m, AboutDialogK o) => o -> m () +clearAboutDialogLogo obj = liftIO $ setObjectPropertyObject obj "logo" (Nothing :: Maybe GdkPixbuf.Pixbuf) + data AboutDialogLogoPropertyInfo instance AttrInfo AboutDialogLogoPropertyInfo where - type AttrAllowedOps AboutDialogLogoPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps AboutDialogLogoPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint AboutDialogLogoPropertyInfo = GdkPixbuf.PixbufK type AttrBaseTypeConstraint AboutDialogLogoPropertyInfo = AboutDialogK type AttrGetType AboutDialogLogoPropertyInfo = GdkPixbuf.Pixbuf @@ -1039,23 +1089,28 @@ attrGet _ = getAboutDialogLogo attrSet _ = setAboutDialogLogo attrConstruct _ = constructAboutDialogLogo + attrClear _ = clearAboutDialogLogo -- VVV Prop "logo-icon-name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) getAboutDialogLogoIconName :: (MonadIO m, AboutDialogK o) => o -> m T.Text -getAboutDialogLogoIconName obj = liftIO $ getObjectPropertyString obj "logo-icon-name" +getAboutDialogLogoIconName obj = liftIO $ checkUnexpectedNothing "getAboutDialogLogoIconName" $ getObjectPropertyString obj "logo-icon-name" setAboutDialogLogoIconName :: (MonadIO m, AboutDialogK o) => o -> T.Text -> m () -setAboutDialogLogoIconName obj val = liftIO $ setObjectPropertyString obj "logo-icon-name" val +setAboutDialogLogoIconName obj val = liftIO $ setObjectPropertyString obj "logo-icon-name" (Just val) constructAboutDialogLogoIconName :: T.Text -> IO ([Char], GValue) -constructAboutDialogLogoIconName val = constructObjectPropertyString "logo-icon-name" val +constructAboutDialogLogoIconName val = constructObjectPropertyString "logo-icon-name" (Just val) +clearAboutDialogLogoIconName :: (MonadIO m, AboutDialogK o) => o -> m () +clearAboutDialogLogoIconName obj = liftIO $ setObjectPropertyString obj "logo-icon-name" (Nothing :: Maybe T.Text) + data AboutDialogLogoIconNamePropertyInfo instance AttrInfo AboutDialogLogoIconNamePropertyInfo where - type AttrAllowedOps AboutDialogLogoIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps AboutDialogLogoIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint AboutDialogLogoIconNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint AboutDialogLogoIconNamePropertyInfo = AboutDialogK type AttrGetType AboutDialogLogoIconNamePropertyInfo = T.Text @@ -1063,19 +1118,21 @@ attrGet _ = getAboutDialogLogoIconName attrSet _ = setAboutDialogLogoIconName attrConstruct _ = constructAboutDialogLogoIconName + attrClear _ = clearAboutDialogLogoIconName -- VVV Prop "program-name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getAboutDialogProgramName :: (MonadIO m, AboutDialogK o) => o -> m T.Text -getAboutDialogProgramName obj = liftIO $ getObjectPropertyString obj "program-name" +getAboutDialogProgramName obj = liftIO $ checkUnexpectedNothing "getAboutDialogProgramName" $ getObjectPropertyString obj "program-name" setAboutDialogProgramName :: (MonadIO m, AboutDialogK o) => o -> T.Text -> m () -setAboutDialogProgramName obj val = liftIO $ setObjectPropertyString obj "program-name" val +setAboutDialogProgramName obj val = liftIO $ setObjectPropertyString obj "program-name" (Just val) constructAboutDialogProgramName :: T.Text -> IO ([Char], GValue) -constructAboutDialogProgramName val = constructObjectPropertyString "program-name" val +constructAboutDialogProgramName val = constructObjectPropertyString "program-name" (Just val) data AboutDialogProgramNamePropertyInfo instance AttrInfo AboutDialogProgramNamePropertyInfo where @@ -1087,23 +1144,28 @@ attrGet _ = getAboutDialogProgramName attrSet _ = setAboutDialogProgramName attrConstruct _ = constructAboutDialogProgramName + attrClear _ = undefined -- VVV Prop "translator-credits" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) getAboutDialogTranslatorCredits :: (MonadIO m, AboutDialogK o) => o -> m T.Text -getAboutDialogTranslatorCredits obj = liftIO $ getObjectPropertyString obj "translator-credits" +getAboutDialogTranslatorCredits obj = liftIO $ checkUnexpectedNothing "getAboutDialogTranslatorCredits" $ getObjectPropertyString obj "translator-credits" setAboutDialogTranslatorCredits :: (MonadIO m, AboutDialogK o) => o -> T.Text -> m () -setAboutDialogTranslatorCredits obj val = liftIO $ setObjectPropertyString obj "translator-credits" val +setAboutDialogTranslatorCredits obj val = liftIO $ setObjectPropertyString obj "translator-credits" (Just val) constructAboutDialogTranslatorCredits :: T.Text -> IO ([Char], GValue) -constructAboutDialogTranslatorCredits val = constructObjectPropertyString "translator-credits" val +constructAboutDialogTranslatorCredits val = constructObjectPropertyString "translator-credits" (Just val) +clearAboutDialogTranslatorCredits :: (MonadIO m, AboutDialogK o) => o -> m () +clearAboutDialogTranslatorCredits obj = liftIO $ setObjectPropertyString obj "translator-credits" (Nothing :: Maybe T.Text) + data AboutDialogTranslatorCreditsPropertyInfo instance AttrInfo AboutDialogTranslatorCreditsPropertyInfo where - type AttrAllowedOps AboutDialogTranslatorCreditsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps AboutDialogTranslatorCreditsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint AboutDialogTranslatorCreditsPropertyInfo = (~) T.Text type AttrBaseTypeConstraint AboutDialogTranslatorCreditsPropertyInfo = AboutDialogK type AttrGetType AboutDialogTranslatorCreditsPropertyInfo = T.Text @@ -1111,23 +1173,28 @@ attrGet _ = getAboutDialogTranslatorCredits attrSet _ = setAboutDialogTranslatorCredits attrConstruct _ = constructAboutDialogTranslatorCredits + attrClear _ = clearAboutDialogTranslatorCredits -- VVV Prop "version" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) getAboutDialogVersion :: (MonadIO m, AboutDialogK o) => o -> m T.Text -getAboutDialogVersion obj = liftIO $ getObjectPropertyString obj "version" +getAboutDialogVersion obj = liftIO $ checkUnexpectedNothing "getAboutDialogVersion" $ getObjectPropertyString obj "version" setAboutDialogVersion :: (MonadIO m, AboutDialogK o) => o -> T.Text -> m () -setAboutDialogVersion obj val = liftIO $ setObjectPropertyString obj "version" val +setAboutDialogVersion obj val = liftIO $ setObjectPropertyString obj "version" (Just val) constructAboutDialogVersion :: T.Text -> IO ([Char], GValue) -constructAboutDialogVersion val = constructObjectPropertyString "version" val +constructAboutDialogVersion val = constructObjectPropertyString "version" (Just val) +clearAboutDialogVersion :: (MonadIO m, AboutDialogK o) => o -> m () +clearAboutDialogVersion obj = liftIO $ setObjectPropertyString obj "version" (Nothing :: Maybe T.Text) + data AboutDialogVersionPropertyInfo instance AttrInfo AboutDialogVersionPropertyInfo where - type AttrAllowedOps AboutDialogVersionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps AboutDialogVersionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint AboutDialogVersionPropertyInfo = (~) T.Text type AttrBaseTypeConstraint AboutDialogVersionPropertyInfo = AboutDialogK type AttrGetType AboutDialogVersionPropertyInfo = T.Text @@ -1135,23 +1202,28 @@ attrGet _ = getAboutDialogVersion attrSet _ = setAboutDialogVersion attrConstruct _ = constructAboutDialogVersion + attrClear _ = clearAboutDialogVersion -- VVV Prop "website" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) getAboutDialogWebsite :: (MonadIO m, AboutDialogK o) => o -> m T.Text -getAboutDialogWebsite obj = liftIO $ getObjectPropertyString obj "website" +getAboutDialogWebsite obj = liftIO $ checkUnexpectedNothing "getAboutDialogWebsite" $ getObjectPropertyString obj "website" setAboutDialogWebsite :: (MonadIO m, AboutDialogK o) => o -> T.Text -> m () -setAboutDialogWebsite obj val = liftIO $ setObjectPropertyString obj "website" val +setAboutDialogWebsite obj val = liftIO $ setObjectPropertyString obj "website" (Just val) constructAboutDialogWebsite :: T.Text -> IO ([Char], GValue) -constructAboutDialogWebsite val = constructObjectPropertyString "website" val +constructAboutDialogWebsite val = constructObjectPropertyString "website" (Just val) +clearAboutDialogWebsite :: (MonadIO m, AboutDialogK o) => o -> m () +clearAboutDialogWebsite obj = liftIO $ setObjectPropertyString obj "website" (Nothing :: Maybe T.Text) + data AboutDialogWebsitePropertyInfo instance AttrInfo AboutDialogWebsitePropertyInfo where - type AttrAllowedOps AboutDialogWebsitePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps AboutDialogWebsitePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint AboutDialogWebsitePropertyInfo = (~) T.Text type AttrBaseTypeConstraint AboutDialogWebsitePropertyInfo = AboutDialogK type AttrGetType AboutDialogWebsitePropertyInfo = T.Text @@ -1159,19 +1231,21 @@ attrGet _ = getAboutDialogWebsite attrSet _ = setAboutDialogWebsite attrConstruct _ = constructAboutDialogWebsite + attrClear _ = clearAboutDialogWebsite -- VVV Prop "website-label" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getAboutDialogWebsiteLabel :: (MonadIO m, AboutDialogK o) => o -> m T.Text -getAboutDialogWebsiteLabel obj = liftIO $ getObjectPropertyString obj "website-label" +getAboutDialogWebsiteLabel obj = liftIO $ checkUnexpectedNothing "getAboutDialogWebsiteLabel" $ getObjectPropertyString obj "website-label" setAboutDialogWebsiteLabel :: (MonadIO m, AboutDialogK o) => o -> T.Text -> m () -setAboutDialogWebsiteLabel obj val = liftIO $ setObjectPropertyString obj "website-label" val +setAboutDialogWebsiteLabel obj val = liftIO $ setObjectPropertyString obj "website-label" (Just val) constructAboutDialogWebsiteLabel :: T.Text -> IO ([Char], GValue) -constructAboutDialogWebsiteLabel val = constructObjectPropertyString "website-label" val +constructAboutDialogWebsiteLabel val = constructObjectPropertyString "website-label" (Just val) data AboutDialogWebsiteLabelPropertyInfo instance AttrInfo AboutDialogWebsiteLabelPropertyInfo where @@ -1183,10 +1257,12 @@ attrGet _ = getAboutDialogWebsiteLabel attrSet _ = setAboutDialogWebsiteLabel attrConstruct _ = constructAboutDialogWebsiteLabel + attrClear _ = undefined -- VVV Prop "wrap-license" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getAboutDialogWrapLicense :: (MonadIO m, AboutDialogK o) => o -> m Bool getAboutDialogWrapLicense obj = liftIO $ getObjectPropertyBool obj "wrap-license" @@ -1207,10 +1283,56 @@ attrGet _ = getAboutDialogWrapLicense attrSet _ = setAboutDialogWrapLicense attrConstruct _ = constructAboutDialogWrapLicense + attrClear _ = undefined type instance AttributeList AboutDialog = AboutDialogAttributeList type AboutDialogAttributeList = ('[ '("acceptFocus", WindowAcceptFocusPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("artists", AboutDialogArtistsPropertyInfo), '("attachedTo", WindowAttachedToPropertyInfo), '("authors", AboutDialogAuthorsPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("comments", AboutDialogCommentsPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("copyright", AboutDialogCopyrightPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("defaultHeight", WindowDefaultHeightPropertyInfo), '("defaultWidth", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroyWithParent", WindowDestroyWithParentPropertyInfo), '("documenters", AboutDialogDocumentersPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnMap", WindowFocusOnMapPropertyInfo), '("focusVisible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasResizeGrip", WindowHasResizeGripPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("hasToplevelFocus", WindowHasToplevelFocusPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hideTitlebarWhenMaximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("iconName", WindowIconNamePropertyInfo), '("isActive", WindowIsActivePropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isMaximized", WindowIsMaximizedPropertyInfo), '("license", AboutDialogLicensePropertyInfo), '("licenseType", AboutDialogLicenseTypePropertyInfo), '("logo", AboutDialogLogoPropertyInfo), '("logoIconName", AboutDialogLogoIconNamePropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("mnemonicsVisible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("programName", AboutDialogProgramNamePropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resizeGripVisible", WindowResizeGripVisiblePropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skipPagerHint", WindowSkipPagerHintPropertyInfo), '("skipTaskbarHint", WindowSkipTaskbarHintPropertyInfo), '("startupId", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("transientFor", WindowTransientForPropertyInfo), '("translatorCredits", AboutDialogTranslatorCreditsPropertyInfo), '("type", WindowTypePropertyInfo), '("typeHint", WindowTypeHintPropertyInfo), '("urgencyHint", WindowUrgencyHintPropertyInfo), '("useHeaderBar", DialogUseHeaderBarPropertyInfo), '("valign", WidgetValignPropertyInfo), '("version", AboutDialogVersionPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("website", AboutDialogWebsitePropertyInfo), '("websiteLabel", AboutDialogWebsiteLabelPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("windowPosition", WindowWindowPositionPropertyInfo), '("wrapLicense", AboutDialogWrapLicensePropertyInfo)] :: [(Symbol, *)]) +aboutDialogArtists :: AttrLabelProxy "artists" +aboutDialogArtists = AttrLabelProxy + +aboutDialogAuthors :: AttrLabelProxy "authors" +aboutDialogAuthors = AttrLabelProxy + +aboutDialogComments :: AttrLabelProxy "comments" +aboutDialogComments = AttrLabelProxy + +aboutDialogCopyright :: AttrLabelProxy "copyright" +aboutDialogCopyright = AttrLabelProxy + +aboutDialogDocumenters :: AttrLabelProxy "documenters" +aboutDialogDocumenters = AttrLabelProxy + +aboutDialogLicense :: AttrLabelProxy "license" +aboutDialogLicense = AttrLabelProxy + +aboutDialogLicenseType :: AttrLabelProxy "licenseType" +aboutDialogLicenseType = AttrLabelProxy + +aboutDialogLogo :: AttrLabelProxy "logo" +aboutDialogLogo = AttrLabelProxy + +aboutDialogLogoIconName :: AttrLabelProxy "logoIconName" +aboutDialogLogoIconName = AttrLabelProxy + +aboutDialogProgramName :: AttrLabelProxy "programName" +aboutDialogProgramName = AttrLabelProxy + +aboutDialogTranslatorCredits :: AttrLabelProxy "translatorCredits" +aboutDialogTranslatorCredits = AttrLabelProxy + +aboutDialogVersion :: AttrLabelProxy "version" +aboutDialogVersion = AttrLabelProxy + +aboutDialogWebsite :: AttrLabelProxy "website" +aboutDialogWebsite = AttrLabelProxy + +aboutDialogWebsiteLabel :: AttrLabelProxy "websiteLabel" +aboutDialogWebsiteLabel = AttrLabelProxy + +aboutDialogWrapLicense :: AttrLabelProxy "wrapLicense" +aboutDialogWrapLicense = AttrLabelProxy + data AboutDialogActivateLinkSignalInfo instance SignalInfo AboutDialogActivateLinkSignalInfo where type HaskellCallbackType AboutDialogActivateLinkSignalInfo = AboutDialogActivateLinkCallback @@ -1223,7 +1345,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "AboutDialog" +-- returnType : Just (TInterface "Gtk" "AboutDialog") -- throws : False -- Skip return : False @@ -1244,7 +1366,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "section_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "people", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1280,7 +1402,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) +-- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) -- throws : False -- Skip return : False @@ -1309,7 +1431,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) +-- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) -- throws : False -- Skip return : False @@ -1338,7 +1460,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1367,7 +1489,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1396,7 +1518,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) +-- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) -- throws : False -- Skip return : False @@ -1425,7 +1547,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1454,7 +1576,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "License" +-- returnType : Just (TInterface "Gtk" "License") -- throws : False -- Skip return : False @@ -1482,7 +1604,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : False -- Skip return : False @@ -1511,7 +1633,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1540,7 +1662,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1569,7 +1691,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1598,7 +1720,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1627,7 +1749,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1656,7 +1778,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1685,7 +1807,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1713,7 +1835,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "artists", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1745,7 +1867,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "authors", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1777,7 +1899,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "comments", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1812,7 +1934,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "copyright", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1847,7 +1969,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "documenters", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1879,7 +2001,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "license", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1914,7 +2036,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "license_type", argType = TInterface "Gtk" "License", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1944,7 +2066,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "logo", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1979,7 +2101,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2014,7 +2136,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2045,7 +2167,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "translator_credits", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2080,7 +2202,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "version", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2115,7 +2237,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "website", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2150,7 +2272,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "website_label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2181,7 +2303,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wrap_license", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/AboutDialog.hs-boot b/GI/Gtk/Objects/AboutDialog.hs-boot --- a/GI/Gtk/Objects/AboutDialog.hs-boot +++ b/GI/Gtk/Objects/AboutDialog.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.AboutDialog where -import Prelude () 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 diff --git a/GI/Gtk/Objects/AccelGroup.hs b/GI/Gtk/Objects/AccelGroup.hs --- a/GI/Gtk/Objects/AccelGroup.hs +++ b/GI/Gtk/Objects/AccelGroup.hs @@ -85,11 +85,13 @@ -- * Properties -- ** IsLocked AccelGroupIsLockedPropertyInfo , + accelGroupIsLocked , getAccelGroupIsLocked , -- ** ModifierMask AccelGroupModifierMaskPropertyInfo , + accelGroupModifierMask , getAccelGroupModifierMask , @@ -124,9 +126,9 @@ ) where -import Prelude () 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 @@ -304,6 +306,7 @@ -- VVV Prop "is-locked" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getAccelGroupIsLocked :: (MonadIO m, AccelGroupK o) => o -> m Bool getAccelGroupIsLocked obj = liftIO $ getObjectPropertyBool obj "is-locked" @@ -318,10 +321,12 @@ attrGet _ = getAccelGroupIsLocked attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "modifier-mask" -- Type: TInterface "Gdk" "ModifierType" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getAccelGroupModifierMask :: (MonadIO m, AccelGroupK o) => o -> m [Gdk.ModifierType] getAccelGroupModifierMask obj = liftIO $ getObjectPropertyFlags obj "modifier-mask" @@ -336,10 +341,17 @@ attrGet _ = getAccelGroupModifierMask attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList AccelGroup = AccelGroupAttributeList type AccelGroupAttributeList = ('[ '("isLocked", AccelGroupIsLockedPropertyInfo), '("modifierMask", AccelGroupModifierMaskPropertyInfo)] :: [(Symbol, *)]) +accelGroupIsLocked :: AttrLabelProxy "isLocked" +accelGroupIsLocked = AttrLabelProxy + +accelGroupModifierMask :: AttrLabelProxy "modifierMask" +accelGroupModifierMask = AttrLabelProxy + data AccelGroupAccelActivateSignalInfo instance SignalInfo AccelGroupAccelActivateSignalInfo where type HaskellCallbackType AccelGroupAccelActivateSignalInfo = AccelGroupAccelActivateCallback @@ -357,7 +369,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "AccelGroup" +-- returnType : Just (TInterface "Gtk" "AccelGroup") -- throws : False -- Skip return : False @@ -376,9 +388,9 @@ -- method AccelGroup::activate -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_quark", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "acceleratable", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_quark", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "acceleratable", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_key", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -386,7 +398,7 @@ Ptr AccelGroup -> -- _obj : TInterface "Gtk" "AccelGroup" Word32 -> -- accel_quark : TBasicType TUInt32 Ptr GObject.Object -> -- acceleratable : TInterface "GObject" "Object" - Word32 -> -- accel_key : TBasicType TUInt32 + Word32 -> -- accel_key : TBasicType TUInt CUInt -> -- accel_mods : TInterface "Gdk" "ModifierType" IO CInt @@ -415,15 +427,15 @@ -- method AccelGroup::connect -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_flags", argType = TInterface "Gtk" "AccelFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_key", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_flags", argType = TInterface "Gtk" "AccelFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_accel_group_connect" gtk_accel_group_connect :: Ptr AccelGroup -> -- _obj : TInterface "Gtk" "AccelGroup" - Word32 -> -- accel_key : TBasicType TUInt32 + Word32 -> -- accel_key : TBasicType TUInt CUInt -> -- accel_mods : TInterface "Gdk" "ModifierType" CUInt -> -- accel_flags : TInterface "Gtk" "AccelFlags" Ptr Closure -> -- closure : TInterface "GObject" "Closure" @@ -456,7 +468,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -491,7 +503,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -525,15 +537,15 @@ -- method AccelGroup::disconnect_key -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_key", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_accel_group_disconnect_key" gtk_accel_group_disconnect_key :: Ptr AccelGroup -> -- _obj : TInterface "Gtk" "AccelGroup" - Word32 -> -- accel_key : TBasicType TUInt32 + Word32 -> -- accel_key : TBasicType TUInt CUInt -> -- accel_mods : TInterface "Gdk" "ModifierType" IO CInt @@ -558,16 +570,16 @@ -- method AccelGroup::find -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "find_func", argType = TInterface "Gtk" "AccelGroupFindFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "find_func", argType = TInterface "Gtk" "AccelGroupFindFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "AccelKey" +-- returnType : Just (TInterface "Gtk" "AccelKey") -- throws : False -- Skip return : False foreign import ccall "gtk_accel_group_find" gtk_accel_group_find :: Ptr AccelGroup -> -- _obj : TInterface "Gtk" "AccelGroup" FunPtr AccelGroupFindFuncC -> -- find_func : TInterface "Gtk" "AccelGroupFindFunc" - Ptr () -> -- data : TBasicType TVoid + Ptr () -> -- data : TBasicType TPtr IO (Ptr AccelKey) @@ -595,7 +607,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -623,7 +635,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gdk" "ModifierType" +-- returnType : Just (TInterface "Gdk" "ModifierType") -- throws : False -- Skip return : False @@ -651,7 +663,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -676,17 +688,17 @@ -- method AccelGroup::query -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_entries", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "n_entries", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : TCArray False (-1) 3 (TInterface "Gtk" "AccelGroupEntry") +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_key", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_entries", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [Arg {argCName = "n_entries", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- returnType : Just (TCArray False (-1) 3 (TInterface "Gtk" "AccelGroupEntry")) -- throws : False -- Skip return : False foreign import ccall "gtk_accel_group_query" gtk_accel_group_query :: Ptr AccelGroup -> -- _obj : TInterface "Gtk" "AccelGroup" - Word32 -> -- accel_key : TBasicType TUInt32 + Word32 -> -- accel_key : TBasicType TUInt CUInt -> -- accel_mods : TInterface "Gdk" "ModifierType" - Ptr Word32 -> -- n_entries : TBasicType TUInt32 + Ptr Word32 -> -- n_entries : TBasicType TUInt IO (Ptr AccelGroupEntry) @@ -717,7 +729,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -744,7 +756,7 @@ -- method type : MemberFunction -- Args : [Arg {argCName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "AccelGroup" +-- returnType : Just (TInterface "Gtk" "AccelGroup") -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/AccelGroup.hs-boot b/GI/Gtk/Objects/AccelGroup.hs-boot --- a/GI/Gtk/Objects/AccelGroup.hs-boot +++ b/GI/Gtk/Objects/AccelGroup.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.AccelGroup where -import Prelude () 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 diff --git a/GI/Gtk/Objects/AccelLabel.hs b/GI/Gtk/Objects/AccelLabel.hs --- a/GI/Gtk/Objects/AccelLabel.hs +++ b/GI/Gtk/Objects/AccelLabel.hs @@ -61,6 +61,7 @@ -- * Properties -- ** AccelClosure AccelLabelAccelClosurePropertyInfo , + accelLabelAccelClosure , constructAccelLabelAccelClosure , getAccelLabelAccelClosure , setAccelLabelAccelClosure , @@ -68,6 +69,7 @@ -- ** AccelWidget AccelLabelAccelWidgetPropertyInfo , + accelLabelAccelWidget , constructAccelLabelAccelWidget , getAccelLabelAccelWidget , setAccelLabelAccelWidget , @@ -77,9 +79,9 @@ ) where -import Prelude () 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 @@ -467,47 +469,50 @@ #endif --- XXX Duplicated object with different types: - --- Name {namespace = "Gtk", name = "Label"} -> Property {propName = "xalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], propTransfer = TransferNothing, propDeprecated = Nothing} - --- Name {namespace = "Gtk", name = "Misc"} -> Property {propName = "xalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], propTransfer = TransferNothing, propDeprecated = Just DeprecationInfo {deprecatedSinceVersion = Just "3.14", deprecationMessage = Just "Use gtk_widget_set_halign() instead. If you are using\n #GtkLabel, use #GtkLabel:xalign instead."}} + --- Name {namespace = "Gtk", name = "Label"} -> Property {propName = "xalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDeprecated = Nothing} + --- Name {namespace = "Gtk", name = "Misc"} -> Property {propName = "xalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDeprecated = Just (DeprecationInfo {deprecatedSinceVersion = Just "3.14", deprecationMessage = Just "Use gtk_widget_set_halign() instead. If you are using\n #GtkLabel, use #GtkLabel:xalign instead."})} --- XXX Duplicated object with different types: - --- Name {namespace = "Gtk", name = "Label"} -> Property {propName = "yalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], propTransfer = TransferNothing, propDeprecated = Nothing} - --- Name {namespace = "Gtk", name = "Misc"} -> Property {propName = "yalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], propTransfer = TransferNothing, propDeprecated = Just DeprecationInfo {deprecatedSinceVersion = Just "3.14", deprecationMessage = Just "Use gtk_widget_set_valign() instead. If you are using\n #GtkLabel, use #GtkLabel:yalign instead."}} + --- Name {namespace = "Gtk", name = "Label"} -> Property {propName = "yalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDeprecated = Nothing} + --- Name {namespace = "Gtk", name = "Misc"} -> Property {propName = "yalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDeprecated = Just (DeprecationInfo {deprecatedSinceVersion = Just "3.14", deprecationMessage = Just "Use gtk_widget_set_valign() instead. If you are using\n #GtkLabel, use #GtkLabel:yalign instead."})} -- VVV Prop "accel-closure" -- Type: TInterface "GObject" "Closure" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getAccelLabelAccelClosure :: (MonadIO m, AccelLabelK o) => o -> m Closure +getAccelLabelAccelClosure :: (MonadIO m, AccelLabelK o) => o -> m (Maybe Closure) getAccelLabelAccelClosure obj = liftIO $ getObjectPropertyBoxed obj "accel-closure" Closure setAccelLabelAccelClosure :: (MonadIO m, AccelLabelK o) => o -> Closure -> m () -setAccelLabelAccelClosure obj val = liftIO $ setObjectPropertyBoxed obj "accel-closure" val +setAccelLabelAccelClosure obj val = liftIO $ setObjectPropertyBoxed obj "accel-closure" (Just val) constructAccelLabelAccelClosure :: Closure -> IO ([Char], GValue) -constructAccelLabelAccelClosure val = constructObjectPropertyBoxed "accel-closure" val +constructAccelLabelAccelClosure val = constructObjectPropertyBoxed "accel-closure" (Just val) data AccelLabelAccelClosurePropertyInfo instance AttrInfo AccelLabelAccelClosurePropertyInfo where type AttrAllowedOps AccelLabelAccelClosurePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint AccelLabelAccelClosurePropertyInfo = (~) Closure type AttrBaseTypeConstraint AccelLabelAccelClosurePropertyInfo = AccelLabelK - type AttrGetType AccelLabelAccelClosurePropertyInfo = Closure + type AttrGetType AccelLabelAccelClosurePropertyInfo = (Maybe Closure) type AttrLabel AccelLabelAccelClosurePropertyInfo = "accel-closure" attrGet _ = getAccelLabelAccelClosure attrSet _ = setAccelLabelAccelClosure attrConstruct _ = constructAccelLabelAccelClosure + attrClear _ = undefined -- VVV Prop "accel-widget" -- Type: TInterface "Gtk" "Widget" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getAccelLabelAccelWidget :: (MonadIO m, AccelLabelK o) => o -> m Widget -getAccelLabelAccelWidget obj = liftIO $ getObjectPropertyObject obj "accel-widget" Widget +getAccelLabelAccelWidget obj = liftIO $ checkUnexpectedNothing "getAccelLabelAccelWidget" $ getObjectPropertyObject obj "accel-widget" Widget setAccelLabelAccelWidget :: (MonadIO m, AccelLabelK o, WidgetK a) => o -> a -> m () -setAccelLabelAccelWidget obj val = liftIO $ setObjectPropertyObject obj "accel-widget" val +setAccelLabelAccelWidget obj val = liftIO $ setObjectPropertyObject obj "accel-widget" (Just val) constructAccelLabelAccelWidget :: (WidgetK a) => a -> IO ([Char], GValue) -constructAccelLabelAccelWidget val = constructObjectPropertyObject "accel-widget" val +constructAccelLabelAccelWidget val = constructObjectPropertyObject "accel-widget" (Just val) data AccelLabelAccelWidgetPropertyInfo instance AttrInfo AccelLabelAccelWidgetPropertyInfo where @@ -519,10 +524,17 @@ attrGet _ = getAccelLabelAccelWidget attrSet _ = setAccelLabelAccelWidget attrConstruct _ = constructAccelLabelAccelWidget + attrClear _ = undefined type instance AttributeList AccelLabel = AccelLabelAttributeList type AccelLabelAttributeList = ('[ '("accelClosure", AccelLabelAccelClosurePropertyInfo), '("accelWidget", AccelLabelAccelWidgetPropertyInfo), '("angle", LabelAnglePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("attributes", LabelAttributesPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("cursorPosition", LabelCursorPositionPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("ellipsize", LabelEllipsizePropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("justify", LabelJustifyPropertyInfo), '("label", LabelLabelPropertyInfo), '("lines", LabelLinesPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("maxWidthChars", LabelMaxWidthCharsPropertyInfo), '("mnemonicKeyval", LabelMnemonicKeyvalPropertyInfo), '("mnemonicWidget", LabelMnemonicWidgetPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("pattern", LabelPatternPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("selectable", LabelSelectablePropertyInfo), '("selectionBound", LabelSelectionBoundPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("singleLineMode", LabelSingleLineModePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("trackVisitedLinks", LabelTrackVisitedLinksPropertyInfo), '("useMarkup", LabelUseMarkupPropertyInfo), '("useUnderline", LabelUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthChars", LabelWidthCharsPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("wrap", LabelWrapPropertyInfo), '("wrapMode", LabelWrapModePropertyInfo), '("xpad", MiscXpadPropertyInfo), '("ypad", MiscYpadPropertyInfo)] :: [(Symbol, *)]) +accelLabelAccelClosure :: AttrLabelProxy "accelClosure" +accelLabelAccelClosure = AttrLabelProxy + +accelLabelAccelWidget :: AttrLabelProxy "accelWidget" +accelLabelAccelWidget = AttrLabelProxy + type instance SignalList AccelLabel = AccelLabelSignalList type AccelLabelSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activateCurrentLink", LabelActivateCurrentLinkSignalInfo), '("activateLink", LabelActivateLinkSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("copyClipboard", LabelCopyClipboardSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveCursor", LabelMoveCursorSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("populatePopup", LabelPopulatePopupSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -530,7 +542,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "AccelLabel" +-- returnType : Just (TInterface "Gtk" "AccelLabel") -- throws : False -- Skip return : False @@ -553,15 +565,15 @@ -- method AccelLabel::get_accel -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_key", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_key", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_accel_label_get_accel" gtk_accel_label_get_accel :: Ptr AccelLabel -> -- _obj : TInterface "Gtk" "AccelLabel" - Ptr Word32 -> -- accelerator_key : TBasicType TUInt32 + Ptr Word32 -> -- accelerator_key : TBasicType TUInt Ptr CUInt -> -- accelerator_mods : TInterface "Gdk" "ModifierType" IO () @@ -591,7 +603,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -620,7 +632,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt32 +-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -647,7 +659,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -673,15 +685,15 @@ -- method AccelLabel::set_accel -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_key", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_accel_label_set_accel" gtk_accel_label_set_accel :: Ptr AccelLabel -> -- _obj : TInterface "Gtk" "AccelLabel" - Word32 -> -- accelerator_key : TBasicType TUInt32 + Word32 -> -- accelerator_key : TBasicType TUInt CUInt -> -- accelerator_mods : TInterface "Gdk" "ModifierType" IO () @@ -707,7 +719,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -738,7 +750,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/AccelLabel.hs-boot b/GI/Gtk/Objects/AccelLabel.hs-boot --- a/GI/Gtk/Objects/AccelLabel.hs-boot +++ b/GI/Gtk/Objects/AccelLabel.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.AccelLabel where -import Prelude () 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 diff --git a/GI/Gtk/Objects/AccelMap.hs b/GI/Gtk/Objects/AccelMap.hs --- a/GI/Gtk/Objects/AccelMap.hs +++ b/GI/Gtk/Objects/AccelMap.hs @@ -92,9 +92,9 @@ ) where -import Prelude () 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 @@ -221,15 +221,15 @@ -- method AccelMap::add_entry -- method type : MemberFunction --- Args : [Arg {argCName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_key", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_accel_map_add_entry" gtk_accel_map_add_entry :: CString -> -- accel_path : TBasicType TUTF8 - Word32 -> -- accel_key : TBasicType TUInt32 + Word32 -> -- accel_key : TBasicType TUInt CUInt -> -- accel_mods : TInterface "Gdk" "ModifierType" IO () @@ -251,7 +251,7 @@ -- method type : MemberFunction -- Args : [Arg {argCName = "filter_pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -272,15 +272,15 @@ -- method AccelMap::change_entry -- method type : MemberFunction --- Args : [Arg {argCName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "replace", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_key", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "replace", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_accel_map_change_entry" gtk_accel_map_change_entry :: CString -> -- accel_path : TBasicType TUTF8 - Word32 -> -- accel_key : TBasicType TUInt32 + Word32 -> -- accel_key : TBasicType TUInt CUInt -> -- accel_mods : TInterface "Gdk" "ModifierType" CInt -> -- replace : TBasicType TBoolean IO CInt @@ -304,43 +304,39 @@ -- method AccelMap::foreach -- method type : MemberFunction --- Args : [Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "foreach_func", argType = TInterface "Gtk" "AccelMapForeach", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "foreach_func", argType = TInterface "Gtk" "AccelMapForeach", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_accel_map_foreach" gtk_accel_map_foreach :: - Ptr () -> -- data : TBasicType TVoid + Ptr () -> -- data : TBasicType TPtr FunPtr AccelMapForeachC -> -- foreach_func : TInterface "Gtk" "AccelMapForeach" IO () accelMapForeach :: (MonadIO m) => - Maybe (Ptr ()) -- data_ + Ptr () -- data_ -> AccelMapForeach -- foreachFunc -> m () -- result accelMapForeach data_ foreachFunc = liftIO $ do - maybeData_ <- case data_ of - Nothing -> return nullPtr - Just jData_ -> do - return jData_ foreachFunc' <- mkAccelMapForeach (accelMapForeachWrapper Nothing foreachFunc) - gtk_accel_map_foreach maybeData_ foreachFunc' + gtk_accel_map_foreach data_ foreachFunc' safeFreeFunPtr $ castFunPtrToPtr foreachFunc' return () -- method AccelMap::foreach_unfiltered -- method type : MemberFunction --- Args : [Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "foreach_func", argType = TInterface "Gtk" "AccelMapForeach", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "foreach_func", argType = TInterface "Gtk" "AccelMapForeach", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_accel_map_foreach_unfiltered" gtk_accel_map_foreach_unfiltered :: - Ptr () -> -- data : TBasicType TVoid + Ptr () -> -- data : TBasicType TPtr FunPtr AccelMapForeachC -> -- foreach_func : TInterface "Gtk" "AccelMapForeach" IO () @@ -360,7 +356,7 @@ -- method type : MemberFunction -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "AccelMap" +-- returnType : Just (TInterface "Gtk" "AccelMap") -- throws : False -- Skip return : False @@ -381,7 +377,7 @@ -- method type : MemberFunction -- Args : [Arg {argCName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -402,14 +398,14 @@ -- method AccelMap::load_fd -- method type : MemberFunction --- Args : [Arg {argCName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "fd", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_accel_map_load_fd" gtk_accel_map_load_fd :: - Int32 -> -- fd : TBasicType TInt32 + Int32 -> -- fd : TBasicType TInt IO () @@ -425,7 +421,7 @@ -- method type : MemberFunction -- Args : [Arg {argCName = "scanner", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -448,7 +444,7 @@ -- method type : MemberFunction -- Args : [Arg {argCName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -471,7 +467,7 @@ -- method type : MemberFunction -- Args : [Arg {argCName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TInterface "Gtk" "AccelKey", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -498,7 +494,7 @@ -- method type : MemberFunction -- Args : [Arg {argCName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -519,14 +515,14 @@ -- method AccelMap::save_fd -- method type : MemberFunction --- Args : [Arg {argCName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "fd", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_accel_map_save_fd" gtk_accel_map_save_fd :: - Int32 -> -- fd : TBasicType TInt32 + Int32 -> -- fd : TBasicType TInt IO () @@ -542,7 +538,7 @@ -- method type : MemberFunction -- Args : [Arg {argCName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/AccelMap.hs-boot b/GI/Gtk/Objects/AccelMap.hs-boot --- a/GI/Gtk/Objects/AccelMap.hs-boot +++ b/GI/Gtk/Objects/AccelMap.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.AccelMap where -import Prelude () 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 diff --git a/GI/Gtk/Objects/Accessible.hs b/GI/Gtk/Objects/Accessible.hs --- a/GI/Gtk/Objects/Accessible.hs +++ b/GI/Gtk/Objects/Accessible.hs @@ -37,6 +37,8 @@ -- * Properties -- ** Widget AccessibleWidgetPropertyInfo , + accessibleWidget , + clearAccessibleWidget , constructAccessibleWidget , getAccessibleWidget , setAccessibleWidget , @@ -46,9 +48,9 @@ ) where -import Prelude () 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 @@ -141,19 +143,23 @@ -- VVV Prop "widget" -- Type: TInterface "Gtk" "Widget" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) getAccessibleWidget :: (MonadIO m, AccessibleK o) => o -> m Widget -getAccessibleWidget obj = liftIO $ getObjectPropertyObject obj "widget" Widget +getAccessibleWidget obj = liftIO $ checkUnexpectedNothing "getAccessibleWidget" $ getObjectPropertyObject obj "widget" Widget setAccessibleWidget :: (MonadIO m, AccessibleK o, WidgetK a) => o -> a -> m () -setAccessibleWidget obj val = liftIO $ setObjectPropertyObject obj "widget" val +setAccessibleWidget obj val = liftIO $ setObjectPropertyObject obj "widget" (Just val) constructAccessibleWidget :: (WidgetK a) => a -> IO ([Char], GValue) -constructAccessibleWidget val = constructObjectPropertyObject "widget" val +constructAccessibleWidget val = constructObjectPropertyObject "widget" (Just val) +clearAccessibleWidget :: (MonadIO m, AccessibleK o) => o -> m () +clearAccessibleWidget obj = liftIO $ setObjectPropertyObject obj "widget" (Nothing :: Maybe Widget) + data AccessibleWidgetPropertyInfo instance AttrInfo AccessibleWidgetPropertyInfo where - type AttrAllowedOps AccessibleWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps AccessibleWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint AccessibleWidgetPropertyInfo = WidgetK type AttrBaseTypeConstraint AccessibleWidgetPropertyInfo = AccessibleK type AttrGetType AccessibleWidgetPropertyInfo = Widget @@ -161,10 +167,14 @@ attrGet _ = getAccessibleWidget attrSet _ = setAccessibleWidget attrConstruct _ = constructAccessibleWidget + attrClear _ = clearAccessibleWidget type instance AttributeList Accessible = AccessibleAttributeList type AccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) +accessibleWidget :: AttrLabelProxy "widget" +accessibleWidget = AttrLabelProxy + type instance SignalList Accessible = AccessibleSignalList type AccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) @@ -172,7 +182,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Accessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -199,7 +209,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Accessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -228,7 +238,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Accessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/Accessible.hs-boot b/GI/Gtk/Objects/Accessible.hs-boot --- a/GI/Gtk/Objects/Accessible.hs-boot +++ b/GI/Gtk/Objects/Accessible.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.Accessible where -import Prelude () 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 diff --git a/GI/Gtk/Objects/Action.hs b/GI/Gtk/Objects/Action.hs --- a/GI/Gtk/Objects/Action.hs +++ b/GI/Gtk/Objects/Action.hs @@ -231,6 +231,8 @@ -- * Properties -- ** ActionGroup ActionActionGroupPropertyInfo , + actionActionGroup , + clearActionActionGroup , constructActionActionGroup , getActionActionGroup , setActionActionGroup , @@ -238,6 +240,7 @@ -- ** AlwaysShowImage ActionAlwaysShowImagePropertyInfo , + actionAlwaysShowImage , constructActionAlwaysShowImage , getActionAlwaysShowImage , setActionAlwaysShowImage , @@ -245,6 +248,7 @@ -- ** Gicon ActionGiconPropertyInfo , + actionGicon , constructActionGicon , getActionGicon , setActionGicon , @@ -252,6 +256,7 @@ -- ** HideIfEmpty ActionHideIfEmptyPropertyInfo , + actionHideIfEmpty , constructActionHideIfEmpty , getActionHideIfEmpty , setActionHideIfEmpty , @@ -259,6 +264,7 @@ -- ** IconName ActionIconNamePropertyInfo , + actionIconName , constructActionIconName , getActionIconName , setActionIconName , @@ -266,6 +272,7 @@ -- ** IsImportant ActionIsImportantPropertyInfo , + actionIsImportant , constructActionIsImportant , getActionIsImportant , setActionIsImportant , @@ -273,6 +280,7 @@ -- ** Label ActionLabelPropertyInfo , + actionLabel , constructActionLabel , getActionLabel , setActionLabel , @@ -280,12 +288,14 @@ -- ** Name ActionNamePropertyInfo , + actionName , constructActionName , getActionName , -- ** Sensitive ActionSensitivePropertyInfo , + actionSensitive , constructActionSensitive , getActionSensitive , setActionSensitive , @@ -293,6 +303,7 @@ -- ** ShortLabel ActionShortLabelPropertyInfo , + actionShortLabel , constructActionShortLabel , getActionShortLabel , setActionShortLabel , @@ -300,6 +311,7 @@ -- ** StockId ActionStockIdPropertyInfo , + actionStockId , constructActionStockId , getActionStockId , setActionStockId , @@ -307,6 +319,7 @@ -- ** Tooltip ActionTooltipPropertyInfo , + actionTooltip , constructActionTooltip , getActionTooltip , setActionTooltip , @@ -314,6 +327,7 @@ -- ** Visible ActionVisiblePropertyInfo , + actionVisible , constructActionVisible , getActionVisible , setActionVisible , @@ -321,6 +335,7 @@ -- ** VisibleHorizontal ActionVisibleHorizontalPropertyInfo , + actionVisibleHorizontal , constructActionVisibleHorizontal , getActionVisibleHorizontal , setActionVisibleHorizontal , @@ -328,6 +343,7 @@ -- ** VisibleOverflown ActionVisibleOverflownPropertyInfo , + actionVisibleOverflown , constructActionVisibleOverflown , getActionVisibleOverflown , setActionVisibleOverflown , @@ -335,6 +351,7 @@ -- ** VisibleVertical ActionVisibleVerticalPropertyInfo , + actionVisibleVertical , constructActionVisibleVertical , getActionVisibleVertical , setActionVisibleVertical , @@ -359,9 +376,9 @@ ) where -import Prelude () 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 @@ -515,30 +532,36 @@ -- VVV Prop "action-group" -- Type: TInterface "Gtk" "ActionGroup" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getActionActionGroup :: (MonadIO m, ActionK o) => o -> m ActionGroup +getActionActionGroup :: (MonadIO m, ActionK o) => o -> m (Maybe ActionGroup) getActionActionGroup obj = liftIO $ getObjectPropertyObject obj "action-group" ActionGroup setActionActionGroup :: (MonadIO m, ActionK o, ActionGroupK a) => o -> a -> m () -setActionActionGroup obj val = liftIO $ setObjectPropertyObject obj "action-group" val +setActionActionGroup obj val = liftIO $ setObjectPropertyObject obj "action-group" (Just val) constructActionActionGroup :: (ActionGroupK a) => a -> IO ([Char], GValue) -constructActionActionGroup val = constructObjectPropertyObject "action-group" val +constructActionActionGroup val = constructObjectPropertyObject "action-group" (Just val) +clearActionActionGroup :: (MonadIO m, ActionK o) => o -> m () +clearActionActionGroup obj = liftIO $ setObjectPropertyObject obj "action-group" (Nothing :: Maybe ActionGroup) + data ActionActionGroupPropertyInfo instance AttrInfo ActionActionGroupPropertyInfo where - type AttrAllowedOps ActionActionGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps ActionActionGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ActionActionGroupPropertyInfo = ActionGroupK type AttrBaseTypeConstraint ActionActionGroupPropertyInfo = ActionK - type AttrGetType ActionActionGroupPropertyInfo = ActionGroup + type AttrGetType ActionActionGroupPropertyInfo = (Maybe ActionGroup) type AttrLabel ActionActionGroupPropertyInfo = "action-group" attrGet _ = getActionActionGroup attrSet _ = setActionActionGroup attrConstruct _ = constructActionActionGroup + attrClear _ = clearActionActionGroup -- VVV Prop "always-show-image" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Just False,Just False) getActionAlwaysShowImage :: (MonadIO m, ActionK o) => o -> m Bool getActionAlwaysShowImage obj = liftIO $ getObjectPropertyBool obj "always-show-image" @@ -559,19 +582,21 @@ attrGet _ = getActionAlwaysShowImage attrSet _ = setActionAlwaysShowImage attrConstruct _ = constructActionAlwaysShowImage + attrClear _ = undefined -- VVV Prop "gicon" -- Type: TInterface "Gio" "Icon" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getActionGicon :: (MonadIO m, ActionK o) => o -> m Gio.Icon -getActionGicon obj = liftIO $ getObjectPropertyObject obj "gicon" Gio.Icon +getActionGicon obj = liftIO $ checkUnexpectedNothing "getActionGicon" $ getObjectPropertyObject obj "gicon" Gio.Icon setActionGicon :: (MonadIO m, ActionK o, Gio.IconK a) => o -> a -> m () -setActionGicon obj val = liftIO $ setObjectPropertyObject obj "gicon" val +setActionGicon obj val = liftIO $ setObjectPropertyObject obj "gicon" (Just val) constructActionGicon :: (Gio.IconK a) => a -> IO ([Char], GValue) -constructActionGicon val = constructObjectPropertyObject "gicon" val +constructActionGicon val = constructObjectPropertyObject "gicon" (Just val) data ActionGiconPropertyInfo instance AttrInfo ActionGiconPropertyInfo where @@ -583,10 +608,12 @@ attrGet _ = getActionGicon attrSet _ = setActionGicon attrConstruct _ = constructActionGicon + attrClear _ = undefined -- VVV Prop "hide-if-empty" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getActionHideIfEmpty :: (MonadIO m, ActionK o) => o -> m Bool getActionHideIfEmpty obj = liftIO $ getObjectPropertyBool obj "hide-if-empty" @@ -607,19 +634,21 @@ attrGet _ = getActionHideIfEmpty attrSet _ = setActionHideIfEmpty attrConstruct _ = constructActionHideIfEmpty + attrClear _ = undefined -- VVV Prop "icon-name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getActionIconName :: (MonadIO m, ActionK o) => o -> m T.Text -getActionIconName obj = liftIO $ getObjectPropertyString obj "icon-name" +getActionIconName obj = liftIO $ checkUnexpectedNothing "getActionIconName" $ getObjectPropertyString obj "icon-name" setActionIconName :: (MonadIO m, ActionK o) => o -> T.Text -> m () -setActionIconName obj val = liftIO $ setObjectPropertyString obj "icon-name" val +setActionIconName obj val = liftIO $ setObjectPropertyString obj "icon-name" (Just val) constructActionIconName :: T.Text -> IO ([Char], GValue) -constructActionIconName val = constructObjectPropertyString "icon-name" val +constructActionIconName val = constructObjectPropertyString "icon-name" (Just val) data ActionIconNamePropertyInfo instance AttrInfo ActionIconNamePropertyInfo where @@ -631,10 +660,12 @@ attrGet _ = getActionIconName attrSet _ = setActionIconName attrConstruct _ = constructActionIconName + attrClear _ = undefined -- VVV Prop "is-important" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getActionIsImportant :: (MonadIO m, ActionK o) => o -> m Bool getActionIsImportant obj = liftIO $ getObjectPropertyBool obj "is-important" @@ -655,19 +686,21 @@ attrGet _ = getActionIsImportant attrSet _ = setActionIsImportant attrConstruct _ = constructActionIsImportant + attrClear _ = undefined -- VVV Prop "label" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getActionLabel :: (MonadIO m, ActionK o) => o -> m T.Text -getActionLabel obj = liftIO $ getObjectPropertyString obj "label" +getActionLabel obj = liftIO $ checkUnexpectedNothing "getActionLabel" $ getObjectPropertyString obj "label" setActionLabel :: (MonadIO m, ActionK o) => o -> T.Text -> m () -setActionLabel obj val = liftIO $ setObjectPropertyString obj "label" val +setActionLabel obj val = liftIO $ setObjectPropertyString obj "label" (Just val) constructActionLabel :: T.Text -> IO ([Char], GValue) -constructActionLabel val = constructObjectPropertyString "label" val +constructActionLabel val = constructObjectPropertyString "label" (Just val) data ActionLabelPropertyInfo instance AttrInfo ActionLabelPropertyInfo where @@ -679,20 +712,22 @@ attrGet _ = getActionLabel attrSet _ = setActionLabel attrConstruct _ = constructActionLabel + attrClear _ = undefined -- VVV Prop "name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + -- Nullable: (Just False,Nothing) getActionName :: (MonadIO m, ActionK o) => o -> m T.Text -getActionName obj = liftIO $ getObjectPropertyString obj "name" +getActionName obj = liftIO $ checkUnexpectedNothing "getActionName" $ getObjectPropertyString obj "name" constructActionName :: T.Text -> IO ([Char], GValue) -constructActionName val = constructObjectPropertyString "name" val +constructActionName val = constructObjectPropertyString "name" (Just val) data ActionNamePropertyInfo instance AttrInfo ActionNamePropertyInfo where - type AttrAllowedOps ActionNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrAllowedOps ActionNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ActionNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint ActionNamePropertyInfo = ActionK type AttrGetType ActionNamePropertyInfo = T.Text @@ -700,10 +735,12 @@ attrGet _ = getActionName attrSet _ = undefined attrConstruct _ = constructActionName + attrClear _ = undefined -- VVV Prop "sensitive" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getActionSensitive :: (MonadIO m, ActionK o) => o -> m Bool getActionSensitive obj = liftIO $ getObjectPropertyBool obj "sensitive" @@ -724,19 +761,21 @@ attrGet _ = getActionSensitive attrSet _ = setActionSensitive attrConstruct _ = constructActionSensitive + attrClear _ = undefined -- VVV Prop "short-label" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getActionShortLabel :: (MonadIO m, ActionK o) => o -> m T.Text -getActionShortLabel obj = liftIO $ getObjectPropertyString obj "short-label" +getActionShortLabel obj = liftIO $ checkUnexpectedNothing "getActionShortLabel" $ getObjectPropertyString obj "short-label" setActionShortLabel :: (MonadIO m, ActionK o) => o -> T.Text -> m () -setActionShortLabel obj val = liftIO $ setObjectPropertyString obj "short-label" val +setActionShortLabel obj val = liftIO $ setObjectPropertyString obj "short-label" (Just val) constructActionShortLabel :: T.Text -> IO ([Char], GValue) -constructActionShortLabel val = constructObjectPropertyString "short-label" val +constructActionShortLabel val = constructObjectPropertyString "short-label" (Just val) data ActionShortLabelPropertyInfo instance AttrInfo ActionShortLabelPropertyInfo where @@ -748,19 +787,21 @@ attrGet _ = getActionShortLabel attrSet _ = setActionShortLabel attrConstruct _ = constructActionShortLabel + attrClear _ = undefined -- VVV Prop "stock-id" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getActionStockId :: (MonadIO m, ActionK o) => o -> m T.Text -getActionStockId obj = liftIO $ getObjectPropertyString obj "stock-id" +getActionStockId obj = liftIO $ checkUnexpectedNothing "getActionStockId" $ getObjectPropertyString obj "stock-id" setActionStockId :: (MonadIO m, ActionK o) => o -> T.Text -> m () -setActionStockId obj val = liftIO $ setObjectPropertyString obj "stock-id" val +setActionStockId obj val = liftIO $ setObjectPropertyString obj "stock-id" (Just val) constructActionStockId :: T.Text -> IO ([Char], GValue) -constructActionStockId val = constructObjectPropertyString "stock-id" val +constructActionStockId val = constructObjectPropertyString "stock-id" (Just val) data ActionStockIdPropertyInfo instance AttrInfo ActionStockIdPropertyInfo where @@ -772,19 +813,21 @@ attrGet _ = getActionStockId attrSet _ = setActionStockId attrConstruct _ = constructActionStockId + attrClear _ = undefined -- VVV Prop "tooltip" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getActionTooltip :: (MonadIO m, ActionK o) => o -> m T.Text -getActionTooltip obj = liftIO $ getObjectPropertyString obj "tooltip" +getActionTooltip obj = liftIO $ checkUnexpectedNothing "getActionTooltip" $ getObjectPropertyString obj "tooltip" setActionTooltip :: (MonadIO m, ActionK o) => o -> T.Text -> m () -setActionTooltip obj val = liftIO $ setObjectPropertyString obj "tooltip" val +setActionTooltip obj val = liftIO $ setObjectPropertyString obj "tooltip" (Just val) constructActionTooltip :: T.Text -> IO ([Char], GValue) -constructActionTooltip val = constructObjectPropertyString "tooltip" val +constructActionTooltip val = constructObjectPropertyString "tooltip" (Just val) data ActionTooltipPropertyInfo instance AttrInfo ActionTooltipPropertyInfo where @@ -796,10 +839,12 @@ attrGet _ = getActionTooltip attrSet _ = setActionTooltip attrConstruct _ = constructActionTooltip + attrClear _ = undefined -- VVV Prop "visible" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getActionVisible :: (MonadIO m, ActionK o) => o -> m Bool getActionVisible obj = liftIO $ getObjectPropertyBool obj "visible" @@ -820,10 +865,12 @@ attrGet _ = getActionVisible attrSet _ = setActionVisible attrConstruct _ = constructActionVisible + attrClear _ = undefined -- VVV Prop "visible-horizontal" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getActionVisibleHorizontal :: (MonadIO m, ActionK o) => o -> m Bool getActionVisibleHorizontal obj = liftIO $ getObjectPropertyBool obj "visible-horizontal" @@ -844,10 +891,12 @@ attrGet _ = getActionVisibleHorizontal attrSet _ = setActionVisibleHorizontal attrConstruct _ = constructActionVisibleHorizontal + attrClear _ = undefined -- VVV Prop "visible-overflown" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getActionVisibleOverflown :: (MonadIO m, ActionK o) => o -> m Bool getActionVisibleOverflown obj = liftIO $ getObjectPropertyBool obj "visible-overflown" @@ -868,10 +917,12 @@ attrGet _ = getActionVisibleOverflown attrSet _ = setActionVisibleOverflown attrConstruct _ = constructActionVisibleOverflown + attrClear _ = undefined -- VVV Prop "visible-vertical" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getActionVisibleVertical :: (MonadIO m, ActionK o) => o -> m Bool getActionVisibleVertical obj = liftIO $ getObjectPropertyBool obj "visible-vertical" @@ -892,10 +943,59 @@ attrGet _ = getActionVisibleVertical attrSet _ = setActionVisibleVertical attrConstruct _ = constructActionVisibleVertical + attrClear _ = undefined type instance AttributeList Action = ActionAttributeList type ActionAttributeList = ('[ '("actionGroup", ActionActionGroupPropertyInfo), '("alwaysShowImage", ActionAlwaysShowImagePropertyInfo), '("gicon", ActionGiconPropertyInfo), '("hideIfEmpty", ActionHideIfEmptyPropertyInfo), '("iconName", ActionIconNamePropertyInfo), '("isImportant", ActionIsImportantPropertyInfo), '("label", ActionLabelPropertyInfo), '("name", ActionNamePropertyInfo), '("sensitive", ActionSensitivePropertyInfo), '("shortLabel", ActionShortLabelPropertyInfo), '("stockId", ActionStockIdPropertyInfo), '("tooltip", ActionTooltipPropertyInfo), '("visible", ActionVisiblePropertyInfo), '("visibleHorizontal", ActionVisibleHorizontalPropertyInfo), '("visibleOverflown", ActionVisibleOverflownPropertyInfo), '("visibleVertical", ActionVisibleVerticalPropertyInfo)] :: [(Symbol, *)]) +actionActionGroup :: AttrLabelProxy "actionGroup" +actionActionGroup = AttrLabelProxy + +actionAlwaysShowImage :: AttrLabelProxy "alwaysShowImage" +actionAlwaysShowImage = AttrLabelProxy + +actionGicon :: AttrLabelProxy "gicon" +actionGicon = AttrLabelProxy + +actionHideIfEmpty :: AttrLabelProxy "hideIfEmpty" +actionHideIfEmpty = AttrLabelProxy + +actionIconName :: AttrLabelProxy "iconName" +actionIconName = AttrLabelProxy + +actionIsImportant :: AttrLabelProxy "isImportant" +actionIsImportant = AttrLabelProxy + +actionLabel :: AttrLabelProxy "label" +actionLabel = AttrLabelProxy + +actionName :: AttrLabelProxy "name" +actionName = AttrLabelProxy + +actionSensitive :: AttrLabelProxy "sensitive" +actionSensitive = AttrLabelProxy + +actionShortLabel :: AttrLabelProxy "shortLabel" +actionShortLabel = AttrLabelProxy + +actionStockId :: AttrLabelProxy "stockId" +actionStockId = AttrLabelProxy + +actionTooltip :: AttrLabelProxy "tooltip" +actionTooltip = AttrLabelProxy + +actionVisible :: AttrLabelProxy "visible" +actionVisible = AttrLabelProxy + +actionVisibleHorizontal :: AttrLabelProxy "visibleHorizontal" +actionVisibleHorizontal = AttrLabelProxy + +actionVisibleOverflown :: AttrLabelProxy "visibleOverflown" +actionVisibleOverflown = AttrLabelProxy + +actionVisibleVertical :: AttrLabelProxy "visibleVertical" +actionVisibleVertical = AttrLabelProxy + data ActionActivateSignalInfo instance SignalInfo ActionActivateSignalInfo where type HaskellCallbackType ActionActivateSignalInfo = ActionActivateCallback @@ -908,7 +1008,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Action" +-- returnType : Just (TInterface "Gtk" "Action") -- throws : False -- Skip return : False @@ -957,7 +1057,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -984,7 +1084,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1011,7 +1111,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1036,15 +1136,15 @@ -- method Action::create_icon -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False foreign import ccall "gtk_action_create_icon" gtk_action_create_icon :: Ptr Action -> -- _obj : TInterface "Gtk" "Action" - Int32 -> -- icon_size : TBasicType TInt32 + Int32 -> -- icon_size : TBasicType TInt IO (Ptr Widget) {-# DEPRECATED actionCreateIcon ["(Since version 3.10)","Use g_menu_item_set_icon() to set an icon on a #GMenuItem,","or gtk_container_add() to add a #GtkImage to a #GtkButton"]#-} @@ -1069,7 +1169,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -1098,7 +1198,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -1127,7 +1227,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -1156,7 +1256,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1183,7 +1283,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "GObject" "Closure" +-- returnType : Just (TInterface "GObject" "Closure") -- throws : False -- Skip return : False @@ -1212,7 +1312,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1241,7 +1341,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1269,7 +1369,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gio" "Icon" +-- returnType : Just (TInterface "Gio" "Icon") -- throws : False -- Skip return : False @@ -1298,7 +1398,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1327,7 +1427,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1355,7 +1455,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1384,7 +1484,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1413,7 +1513,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TGSList (TInterface "Gtk" "Widget") +-- returnType : Just (TGSList (TInterface "Gtk" "Widget")) -- throws : False -- Skip return : False @@ -1429,7 +1529,6 @@ actionGetProxies _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_action_get_proxies _obj' - checkUnexpectedReturnNULL "gtk_action_get_proxies" result result' <- unpackGSList result result'' <- mapM (newObject Widget) result' touchManagedPtr _obj @@ -1443,7 +1542,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1471,7 +1570,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1500,7 +1599,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1529,7 +1628,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1558,7 +1657,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1586,7 +1685,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1614,7 +1713,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1642,7 +1741,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1670,7 +1769,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1698,7 +1797,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1733,7 +1832,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1764,7 +1863,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "always_show", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1794,7 +1893,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1825,7 +1924,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1856,7 +1955,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_important", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1886,7 +1985,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1917,7 +2016,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1947,7 +2046,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "short_label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1978,7 +2077,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2009,7 +2108,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2040,7 +2139,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2070,7 +2169,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible_horizontal", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2100,7 +2199,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible_vertical", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2130,7 +2229,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/Action.hs-boot b/GI/Gtk/Objects/Action.hs-boot --- a/GI/Gtk/Objects/Action.hs-boot +++ b/GI/Gtk/Objects/Action.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.Action where -import Prelude () 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 diff --git a/GI/Gtk/Objects/ActionBar.hs b/GI/Gtk/Objects/ActionBar.hs --- a/GI/Gtk/Objects/ActionBar.hs +++ b/GI/Gtk/Objects/ActionBar.hs @@ -45,9 +45,9 @@ ) where -import Prelude () 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 @@ -415,7 +415,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "ActionBar" +-- returnType : Just (TInterface "Gtk" "ActionBar") -- throws : False -- Skip return : False @@ -436,7 +436,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -465,7 +465,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -496,7 +496,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -527,7 +527,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "center_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/ActionBar.hs-boot b/GI/Gtk/Objects/ActionBar.hs-boot --- a/GI/Gtk/Objects/ActionBar.hs-boot +++ b/GI/Gtk/Objects/ActionBar.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.ActionBar where -import Prelude () 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 diff --git a/GI/Gtk/Objects/ActionGroup.hs b/GI/Gtk/Objects/ActionGroup.hs --- a/GI/Gtk/Objects/ActionGroup.hs +++ b/GI/Gtk/Objects/ActionGroup.hs @@ -101,6 +101,8 @@ -- * Properties -- ** AccelGroup ActionGroupAccelGroupPropertyInfo , + actionGroupAccelGroup , + clearActionGroupAccelGroup , constructActionGroupAccelGroup , getActionGroupAccelGroup , setActionGroupAccelGroup , @@ -108,12 +110,14 @@ -- ** Name ActionGroupNamePropertyInfo , + actionGroupName , constructActionGroupName , getActionGroupName , -- ** Sensitive ActionGroupSensitivePropertyInfo , + actionGroupSensitive , constructActionGroupSensitive , getActionGroupSensitive , setActionGroupSensitive , @@ -121,6 +125,7 @@ -- ** Visible ActionGroupVisiblePropertyInfo , + actionGroupVisible , constructActionGroupVisible , getActionGroupVisible , setActionGroupVisible , @@ -181,9 +186,9 @@ ) where -import Prelude () 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 @@ -449,19 +454,23 @@ -- VVV Prop "accel-group" -- Type: TInterface "Gtk" "AccelGroup" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) getActionGroupAccelGroup :: (MonadIO m, ActionGroupK o) => o -> m AccelGroup -getActionGroupAccelGroup obj = liftIO $ getObjectPropertyObject obj "accel-group" AccelGroup +getActionGroupAccelGroup obj = liftIO $ checkUnexpectedNothing "getActionGroupAccelGroup" $ getObjectPropertyObject obj "accel-group" AccelGroup setActionGroupAccelGroup :: (MonadIO m, ActionGroupK o, AccelGroupK a) => o -> a -> m () -setActionGroupAccelGroup obj val = liftIO $ setObjectPropertyObject obj "accel-group" val +setActionGroupAccelGroup obj val = liftIO $ setObjectPropertyObject obj "accel-group" (Just val) constructActionGroupAccelGroup :: (AccelGroupK a) => a -> IO ([Char], GValue) -constructActionGroupAccelGroup val = constructObjectPropertyObject "accel-group" val +constructActionGroupAccelGroup val = constructObjectPropertyObject "accel-group" (Just val) +clearActionGroupAccelGroup :: (MonadIO m, ActionGroupK o) => o -> m () +clearActionGroupAccelGroup obj = liftIO $ setObjectPropertyObject obj "accel-group" (Nothing :: Maybe AccelGroup) + data ActionGroupAccelGroupPropertyInfo instance AttrInfo ActionGroupAccelGroupPropertyInfo where - type AttrAllowedOps ActionGroupAccelGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps ActionGroupAccelGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ActionGroupAccelGroupPropertyInfo = AccelGroupK type AttrBaseTypeConstraint ActionGroupAccelGroupPropertyInfo = ActionGroupK type AttrGetType ActionGroupAccelGroupPropertyInfo = AccelGroup @@ -469,20 +478,22 @@ attrGet _ = getActionGroupAccelGroup attrSet _ = setActionGroupAccelGroup attrConstruct _ = constructActionGroupAccelGroup + attrClear _ = clearActionGroupAccelGroup -- VVV Prop "name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + -- Nullable: (Just False,Nothing) getActionGroupName :: (MonadIO m, ActionGroupK o) => o -> m T.Text -getActionGroupName obj = liftIO $ getObjectPropertyString obj "name" +getActionGroupName obj = liftIO $ checkUnexpectedNothing "getActionGroupName" $ getObjectPropertyString obj "name" constructActionGroupName :: T.Text -> IO ([Char], GValue) -constructActionGroupName val = constructObjectPropertyString "name" val +constructActionGroupName val = constructObjectPropertyString "name" (Just val) data ActionGroupNamePropertyInfo instance AttrInfo ActionGroupNamePropertyInfo where - type AttrAllowedOps ActionGroupNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrAllowedOps ActionGroupNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ActionGroupNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint ActionGroupNamePropertyInfo = ActionGroupK type AttrGetType ActionGroupNamePropertyInfo = T.Text @@ -490,10 +501,12 @@ attrGet _ = getActionGroupName attrSet _ = undefined attrConstruct _ = constructActionGroupName + attrClear _ = undefined -- VVV Prop "sensitive" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getActionGroupSensitive :: (MonadIO m, ActionGroupK o) => o -> m Bool getActionGroupSensitive obj = liftIO $ getObjectPropertyBool obj "sensitive" @@ -514,10 +527,12 @@ attrGet _ = getActionGroupSensitive attrSet _ = setActionGroupSensitive attrConstruct _ = constructActionGroupSensitive + attrClear _ = undefined -- VVV Prop "visible" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getActionGroupVisible :: (MonadIO m, ActionGroupK o) => o -> m Bool getActionGroupVisible obj = liftIO $ getObjectPropertyBool obj "visible" @@ -538,10 +553,23 @@ attrGet _ = getActionGroupVisible attrSet _ = setActionGroupVisible attrConstruct _ = constructActionGroupVisible + attrClear _ = undefined type instance AttributeList ActionGroup = ActionGroupAttributeList type ActionGroupAttributeList = ('[ '("accelGroup", ActionGroupAccelGroupPropertyInfo), '("name", ActionGroupNamePropertyInfo), '("sensitive", ActionGroupSensitivePropertyInfo), '("visible", ActionGroupVisiblePropertyInfo)] :: [(Symbol, *)]) +actionGroupAccelGroup :: AttrLabelProxy "accelGroup" +actionGroupAccelGroup = AttrLabelProxy + +actionGroupName :: AttrLabelProxy "name" +actionGroupName = AttrLabelProxy + +actionGroupSensitive :: AttrLabelProxy "sensitive" +actionGroupSensitive = AttrLabelProxy + +actionGroupVisible :: AttrLabelProxy "visible" +actionGroupVisible = AttrLabelProxy + data ActionGroupConnectProxySignalInfo instance SignalInfo ActionGroupConnectProxySignalInfo where type HaskellCallbackType ActionGroupConnectProxySignalInfo = ActionGroupConnectProxyCallback @@ -569,7 +597,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "ActionGroup" +-- returnType : Just (TInterface "Gtk" "ActionGroup") -- throws : False -- Skip return : False @@ -594,7 +622,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -625,7 +653,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -664,7 +692,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "AccelGroup" +-- returnType : Just (TInterface "Gtk" "AccelGroup") -- throws : False -- Skip return : False @@ -693,7 +721,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Action" +-- returnType : Just (TInterface "Gtk" "Action") -- throws : False -- Skip return : False @@ -726,7 +754,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -755,7 +783,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -783,7 +811,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -811,7 +839,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TGList (TInterface "Gtk" "Action") +-- returnType : Just (TGList (TInterface "Gtk" "Action")) -- throws : False -- Skip return : False @@ -827,7 +855,6 @@ actionGroupListActions _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_action_group_list_actions _obj' - checkUnexpectedReturnNULL "gtk_action_group_list_actions" result result' <- unpackGList result result'' <- mapM (newObject Action) result' g_list_free result @@ -842,7 +869,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -873,7 +900,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -908,7 +935,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -936,16 +963,16 @@ -- method ActionGroup::set_translate_func -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TranslateFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, 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}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TranslateFunc", 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 = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_action_group_set_translate_func" gtk_action_group_set_translate_func :: Ptr ActionGroup -> -- _obj : TInterface "Gtk" "ActionGroup" FunPtr TranslateFuncC -> -- func : TInterface "Gtk" "TranslateFunc" - Ptr () -> -- data : TBasicType TVoid + Ptr () -> -- data : TBasicType TPtr FunPtr GLib.DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify" IO () @@ -972,7 +999,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1007,7 +1034,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1037,7 +1064,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/ActionGroup.hs-boot b/GI/Gtk/Objects/ActionGroup.hs-boot --- a/GI/Gtk/Objects/ActionGroup.hs-boot +++ b/GI/Gtk/Objects/ActionGroup.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.ActionGroup where -import Prelude () 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 diff --git a/GI/Gtk/Objects/Adjustment.hs b/GI/Gtk/Objects/Adjustment.hs --- a/GI/Gtk/Objects/Adjustment.hs +++ b/GI/Gtk/Objects/Adjustment.hs @@ -111,6 +111,7 @@ -- * Properties -- ** Lower AdjustmentLowerPropertyInfo , + adjustmentLower , constructAdjustmentLower , getAdjustmentLower , setAdjustmentLower , @@ -118,6 +119,7 @@ -- ** PageIncrement AdjustmentPageIncrementPropertyInfo , + adjustmentPageIncrement , constructAdjustmentPageIncrement , getAdjustmentPageIncrement , setAdjustmentPageIncrement , @@ -125,6 +127,7 @@ -- ** PageSize AdjustmentPageSizePropertyInfo , + adjustmentPageSize , constructAdjustmentPageSize , getAdjustmentPageSize , setAdjustmentPageSize , @@ -132,6 +135,7 @@ -- ** StepIncrement AdjustmentStepIncrementPropertyInfo , + adjustmentStepIncrement , constructAdjustmentStepIncrement , getAdjustmentStepIncrement , setAdjustmentStepIncrement , @@ -139,6 +143,7 @@ -- ** Upper AdjustmentUpperPropertyInfo , + adjustmentUpper , constructAdjustmentUpper , getAdjustmentUpper , setAdjustmentUpper , @@ -146,6 +151,7 @@ -- ** Value AdjustmentValuePropertyInfo , + adjustmentValue , constructAdjustmentValue , getAdjustmentValue , setAdjustmentValue , @@ -182,9 +188,9 @@ ) where -import Prelude () 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 @@ -343,6 +349,7 @@ -- VVV Prop "lower" -- Type: TBasicType TDouble -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getAdjustmentLower :: (MonadIO m, AdjustmentK o) => o -> m Double getAdjustmentLower obj = liftIO $ getObjectPropertyDouble obj "lower" @@ -363,10 +370,12 @@ attrGet _ = getAdjustmentLower attrSet _ = setAdjustmentLower attrConstruct _ = constructAdjustmentLower + attrClear _ = undefined -- VVV Prop "page-increment" -- Type: TBasicType TDouble -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getAdjustmentPageIncrement :: (MonadIO m, AdjustmentK o) => o -> m Double getAdjustmentPageIncrement obj = liftIO $ getObjectPropertyDouble obj "page-increment" @@ -387,10 +396,12 @@ attrGet _ = getAdjustmentPageIncrement attrSet _ = setAdjustmentPageIncrement attrConstruct _ = constructAdjustmentPageIncrement + attrClear _ = undefined -- VVV Prop "page-size" -- Type: TBasicType TDouble -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getAdjustmentPageSize :: (MonadIO m, AdjustmentK o) => o -> m Double getAdjustmentPageSize obj = liftIO $ getObjectPropertyDouble obj "page-size" @@ -411,10 +422,12 @@ attrGet _ = getAdjustmentPageSize attrSet _ = setAdjustmentPageSize attrConstruct _ = constructAdjustmentPageSize + attrClear _ = undefined -- VVV Prop "step-increment" -- Type: TBasicType TDouble -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getAdjustmentStepIncrement :: (MonadIO m, AdjustmentK o) => o -> m Double getAdjustmentStepIncrement obj = liftIO $ getObjectPropertyDouble obj "step-increment" @@ -435,10 +448,12 @@ attrGet _ = getAdjustmentStepIncrement attrSet _ = setAdjustmentStepIncrement attrConstruct _ = constructAdjustmentStepIncrement + attrClear _ = undefined -- VVV Prop "upper" -- Type: TBasicType TDouble -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getAdjustmentUpper :: (MonadIO m, AdjustmentK o) => o -> m Double getAdjustmentUpper obj = liftIO $ getObjectPropertyDouble obj "upper" @@ -459,10 +474,12 @@ attrGet _ = getAdjustmentUpper attrSet _ = setAdjustmentUpper attrConstruct _ = constructAdjustmentUpper + attrClear _ = undefined -- VVV Prop "value" -- Type: TBasicType TDouble -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getAdjustmentValue :: (MonadIO m, AdjustmentK o) => o -> m Double getAdjustmentValue obj = liftIO $ getObjectPropertyDouble obj "value" @@ -483,10 +500,29 @@ attrGet _ = getAdjustmentValue attrSet _ = setAdjustmentValue attrConstruct _ = constructAdjustmentValue + attrClear _ = undefined type instance AttributeList Adjustment = AdjustmentAttributeList type AdjustmentAttributeList = ('[ '("lower", AdjustmentLowerPropertyInfo), '("pageIncrement", AdjustmentPageIncrementPropertyInfo), '("pageSize", AdjustmentPageSizePropertyInfo), '("stepIncrement", AdjustmentStepIncrementPropertyInfo), '("upper", AdjustmentUpperPropertyInfo), '("value", AdjustmentValuePropertyInfo)] :: [(Symbol, *)]) +adjustmentLower :: AttrLabelProxy "lower" +adjustmentLower = AttrLabelProxy + +adjustmentPageIncrement :: AttrLabelProxy "pageIncrement" +adjustmentPageIncrement = AttrLabelProxy + +adjustmentPageSize :: AttrLabelProxy "pageSize" +adjustmentPageSize = AttrLabelProxy + +adjustmentStepIncrement :: AttrLabelProxy "stepIncrement" +adjustmentStepIncrement = AttrLabelProxy + +adjustmentUpper :: AttrLabelProxy "upper" +adjustmentUpper = AttrLabelProxy + +adjustmentValue :: AttrLabelProxy "value" +adjustmentValue = AttrLabelProxy + data AdjustmentChangedSignalInfo instance SignalInfo AdjustmentChangedSignalInfo where type HaskellCallbackType AdjustmentChangedSignalInfo = AdjustmentChangedCallback @@ -504,7 +540,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lower", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "upper", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "step_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_size", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Adjustment" +-- returnType : Just (TInterface "Gtk" "Adjustment") -- throws : False -- Skip return : False @@ -543,7 +579,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -570,7 +606,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lower", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "upper", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -603,7 +639,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lower", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "upper", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "step_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_size", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -648,7 +684,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -676,7 +712,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -704,7 +740,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -732,7 +768,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -760,7 +796,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -788,7 +824,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -816,7 +852,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -844,7 +880,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lower", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -874,7 +910,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -904,7 +940,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_size", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -934,7 +970,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "step_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -964,7 +1000,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "upper", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -994,7 +1030,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1024,7 +1060,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/Adjustment.hs-boot b/GI/Gtk/Objects/Adjustment.hs-boot --- a/GI/Gtk/Objects/Adjustment.hs-boot +++ b/GI/Gtk/Objects/Adjustment.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.Adjustment where -import Prelude () 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 diff --git a/GI/Gtk/Objects/Alignment.hs b/GI/Gtk/Objects/Alignment.hs --- a/GI/Gtk/Objects/Alignment.hs +++ b/GI/Gtk/Objects/Alignment.hs @@ -41,6 +41,7 @@ -- * Properties -- ** BottomPadding AlignmentBottomPaddingPropertyInfo , + alignmentBottomPadding , constructAlignmentBottomPadding , getAlignmentBottomPadding , setAlignmentBottomPadding , @@ -48,6 +49,7 @@ -- ** LeftPadding AlignmentLeftPaddingPropertyInfo , + alignmentLeftPadding , constructAlignmentLeftPadding , getAlignmentLeftPadding , setAlignmentLeftPadding , @@ -55,6 +57,7 @@ -- ** RightPadding AlignmentRightPaddingPropertyInfo , + alignmentRightPadding , constructAlignmentRightPadding , getAlignmentRightPadding , setAlignmentRightPadding , @@ -62,6 +65,7 @@ -- ** TopPadding AlignmentTopPaddingPropertyInfo , + alignmentTopPadding , constructAlignmentTopPadding , getAlignmentTopPadding , setAlignmentTopPadding , @@ -69,6 +73,7 @@ -- ** Xalign AlignmentXalignPropertyInfo , + alignmentXalign , constructAlignmentXalign , getAlignmentXalign , setAlignmentXalign , @@ -76,6 +81,7 @@ -- ** Xscale AlignmentXscalePropertyInfo , + alignmentXscale , constructAlignmentXscale , getAlignmentXscale , setAlignmentXscale , @@ -83,6 +89,7 @@ -- ** Yalign AlignmentYalignPropertyInfo , + alignmentYalign , constructAlignmentYalign , getAlignmentYalign , setAlignmentYalign , @@ -90,6 +97,7 @@ -- ** Yscale AlignmentYscalePropertyInfo , + alignmentYscale , constructAlignmentYscale , getAlignmentYscale , setAlignmentYscale , @@ -99,9 +107,9 @@ ) where -import Prelude () 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 @@ -459,17 +467,18 @@ #endif -- VVV Prop "bottom-padding" - -- Type: TBasicType TUInt32 + -- Type: TBasicType TUInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getAlignmentBottomPadding :: (MonadIO m, AlignmentK o) => o -> m Word32 -getAlignmentBottomPadding obj = liftIO $ getObjectPropertyCUInt obj "bottom-padding" +getAlignmentBottomPadding obj = liftIO $ getObjectPropertyUInt32 obj "bottom-padding" setAlignmentBottomPadding :: (MonadIO m, AlignmentK o) => o -> Word32 -> m () -setAlignmentBottomPadding obj val = liftIO $ setObjectPropertyCUInt obj "bottom-padding" val +setAlignmentBottomPadding obj val = liftIO $ setObjectPropertyUInt32 obj "bottom-padding" val constructAlignmentBottomPadding :: Word32 -> IO ([Char], GValue) -constructAlignmentBottomPadding val = constructObjectPropertyCUInt "bottom-padding" val +constructAlignmentBottomPadding val = constructObjectPropertyUInt32 "bottom-padding" val data AlignmentBottomPaddingPropertyInfo instance AttrInfo AlignmentBottomPaddingPropertyInfo where @@ -481,19 +490,21 @@ attrGet _ = getAlignmentBottomPadding attrSet _ = setAlignmentBottomPadding attrConstruct _ = constructAlignmentBottomPadding + attrClear _ = undefined -- VVV Prop "left-padding" - -- Type: TBasicType TUInt32 + -- Type: TBasicType TUInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getAlignmentLeftPadding :: (MonadIO m, AlignmentK o) => o -> m Word32 -getAlignmentLeftPadding obj = liftIO $ getObjectPropertyCUInt obj "left-padding" +getAlignmentLeftPadding obj = liftIO $ getObjectPropertyUInt32 obj "left-padding" setAlignmentLeftPadding :: (MonadIO m, AlignmentK o) => o -> Word32 -> m () -setAlignmentLeftPadding obj val = liftIO $ setObjectPropertyCUInt obj "left-padding" val +setAlignmentLeftPadding obj val = liftIO $ setObjectPropertyUInt32 obj "left-padding" val constructAlignmentLeftPadding :: Word32 -> IO ([Char], GValue) -constructAlignmentLeftPadding val = constructObjectPropertyCUInt "left-padding" val +constructAlignmentLeftPadding val = constructObjectPropertyUInt32 "left-padding" val data AlignmentLeftPaddingPropertyInfo instance AttrInfo AlignmentLeftPaddingPropertyInfo where @@ -505,19 +516,21 @@ attrGet _ = getAlignmentLeftPadding attrSet _ = setAlignmentLeftPadding attrConstruct _ = constructAlignmentLeftPadding + attrClear _ = undefined -- VVV Prop "right-padding" - -- Type: TBasicType TUInt32 + -- Type: TBasicType TUInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getAlignmentRightPadding :: (MonadIO m, AlignmentK o) => o -> m Word32 -getAlignmentRightPadding obj = liftIO $ getObjectPropertyCUInt obj "right-padding" +getAlignmentRightPadding obj = liftIO $ getObjectPropertyUInt32 obj "right-padding" setAlignmentRightPadding :: (MonadIO m, AlignmentK o) => o -> Word32 -> m () -setAlignmentRightPadding obj val = liftIO $ setObjectPropertyCUInt obj "right-padding" val +setAlignmentRightPadding obj val = liftIO $ setObjectPropertyUInt32 obj "right-padding" val constructAlignmentRightPadding :: Word32 -> IO ([Char], GValue) -constructAlignmentRightPadding val = constructObjectPropertyCUInt "right-padding" val +constructAlignmentRightPadding val = constructObjectPropertyUInt32 "right-padding" val data AlignmentRightPaddingPropertyInfo instance AttrInfo AlignmentRightPaddingPropertyInfo where @@ -529,19 +542,21 @@ attrGet _ = getAlignmentRightPadding attrSet _ = setAlignmentRightPadding attrConstruct _ = constructAlignmentRightPadding + attrClear _ = undefined -- VVV Prop "top-padding" - -- Type: TBasicType TUInt32 + -- Type: TBasicType TUInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getAlignmentTopPadding :: (MonadIO m, AlignmentK o) => o -> m Word32 -getAlignmentTopPadding obj = liftIO $ getObjectPropertyCUInt obj "top-padding" +getAlignmentTopPadding obj = liftIO $ getObjectPropertyUInt32 obj "top-padding" setAlignmentTopPadding :: (MonadIO m, AlignmentK o) => o -> Word32 -> m () -setAlignmentTopPadding obj val = liftIO $ setObjectPropertyCUInt obj "top-padding" val +setAlignmentTopPadding obj val = liftIO $ setObjectPropertyUInt32 obj "top-padding" val constructAlignmentTopPadding :: Word32 -> IO ([Char], GValue) -constructAlignmentTopPadding val = constructObjectPropertyCUInt "top-padding" val +constructAlignmentTopPadding val = constructObjectPropertyUInt32 "top-padding" val data AlignmentTopPaddingPropertyInfo instance AttrInfo AlignmentTopPaddingPropertyInfo where @@ -553,10 +568,12 @@ attrGet _ = getAlignmentTopPadding attrSet _ = setAlignmentTopPadding attrConstruct _ = constructAlignmentTopPadding + attrClear _ = undefined -- VVV Prop "xalign" -- Type: TBasicType TFloat -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getAlignmentXalign :: (MonadIO m, AlignmentK o) => o -> m Float getAlignmentXalign obj = liftIO $ getObjectPropertyFloat obj "xalign" @@ -577,10 +594,12 @@ attrGet _ = getAlignmentXalign attrSet _ = setAlignmentXalign attrConstruct _ = constructAlignmentXalign + attrClear _ = undefined -- VVV Prop "xscale" -- Type: TBasicType TFloat -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getAlignmentXscale :: (MonadIO m, AlignmentK o) => o -> m Float getAlignmentXscale obj = liftIO $ getObjectPropertyFloat obj "xscale" @@ -601,10 +620,12 @@ attrGet _ = getAlignmentXscale attrSet _ = setAlignmentXscale attrConstruct _ = constructAlignmentXscale + attrClear _ = undefined -- VVV Prop "yalign" -- Type: TBasicType TFloat -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getAlignmentYalign :: (MonadIO m, AlignmentK o) => o -> m Float getAlignmentYalign obj = liftIO $ getObjectPropertyFloat obj "yalign" @@ -625,10 +646,12 @@ attrGet _ = getAlignmentYalign attrSet _ = setAlignmentYalign attrConstruct _ = constructAlignmentYalign + attrClear _ = undefined -- VVV Prop "yscale" -- Type: TBasicType TFloat -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getAlignmentYscale :: (MonadIO m, AlignmentK o) => o -> m Float getAlignmentYscale obj = liftIO $ getObjectPropertyFloat obj "yscale" @@ -649,10 +672,35 @@ attrGet _ = getAlignmentYscale attrSet _ = setAlignmentYscale attrConstruct _ = constructAlignmentYscale + attrClear _ = undefined type instance AttributeList Alignment = AlignmentAttributeList type AlignmentAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("bottomPadding", AlignmentBottomPaddingPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("leftPadding", AlignmentLeftPaddingPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rightPadding", AlignmentRightPaddingPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("topPadding", AlignmentTopPaddingPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", AlignmentXalignPropertyInfo), '("xscale", AlignmentXscalePropertyInfo), '("yalign", AlignmentYalignPropertyInfo), '("yscale", AlignmentYscalePropertyInfo)] :: [(Symbol, *)]) +alignmentBottomPadding :: AttrLabelProxy "bottomPadding" +alignmentBottomPadding = AttrLabelProxy + +alignmentLeftPadding :: AttrLabelProxy "leftPadding" +alignmentLeftPadding = AttrLabelProxy + +alignmentRightPadding :: AttrLabelProxy "rightPadding" +alignmentRightPadding = AttrLabelProxy + +alignmentTopPadding :: AttrLabelProxy "topPadding" +alignmentTopPadding = AttrLabelProxy + +alignmentXalign :: AttrLabelProxy "xalign" +alignmentXalign = AttrLabelProxy + +alignmentXscale :: AttrLabelProxy "xscale" +alignmentXscale = AttrLabelProxy + +alignmentYalign :: AttrLabelProxy "yalign" +alignmentYalign = AttrLabelProxy + +alignmentYscale :: AttrLabelProxy "yscale" +alignmentYscale = AttrLabelProxy + type instance SignalList Alignment = AlignmentSignalList type AlignmentSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -660,7 +708,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xscale", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "yscale", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Alignment" +-- returnType : Just (TInterface "Gtk" "Alignment") -- throws : False -- Skip return : False @@ -691,18 +739,18 @@ -- method Alignment::get_padding -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Alignment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "padding_top", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "padding_bottom", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "padding_left", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "padding_right", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Alignment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "padding_top", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "padding_bottom", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "padding_left", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "padding_right", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_alignment_get_padding" gtk_alignment_get_padding :: Ptr Alignment -> -- _obj : TInterface "Gtk" "Alignment" - Ptr Word32 -> -- padding_top : TBasicType TUInt32 - Ptr Word32 -> -- padding_bottom : TBasicType TUInt32 - Ptr Word32 -> -- padding_left : TBasicType TUInt32 - Ptr Word32 -> -- padding_right : TBasicType TUInt32 + Ptr Word32 -> -- padding_top : TBasicType TUInt + Ptr Word32 -> -- padding_bottom : TBasicType TUInt + Ptr Word32 -> -- padding_left : TBasicType TUInt + Ptr Word32 -> -- padding_right : TBasicType TUInt IO () {-# DEPRECATED alignmentGetPadding ["(Since version 3.14)","Use #GtkWidget alignment and margin properties"]#-} @@ -736,7 +784,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Alignment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xscale", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "yscale", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -773,18 +821,18 @@ -- method Alignment::set_padding -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Alignment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "padding_top", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "padding_bottom", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "padding_left", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "padding_right", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Alignment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "padding_top", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "padding_bottom", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "padding_left", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "padding_right", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_alignment_set_padding" gtk_alignment_set_padding :: Ptr Alignment -> -- _obj : TInterface "Gtk" "Alignment" - Word32 -> -- padding_top : TBasicType TUInt32 - Word32 -> -- padding_bottom : TBasicType TUInt32 - Word32 -> -- padding_left : TBasicType TUInt32 - Word32 -> -- padding_right : TBasicType TUInt32 + Word32 -> -- padding_top : TBasicType TUInt + Word32 -> -- padding_bottom : TBasicType TUInt + Word32 -> -- padding_left : TBasicType TUInt + Word32 -> -- padding_right : TBasicType TUInt IO () {-# DEPRECATED alignmentSetPadding ["(Since version 3.14)","Use #GtkWidget alignment and margin properties"]#-} diff --git a/GI/Gtk/Objects/Alignment.hs-boot b/GI/Gtk/Objects/Alignment.hs-boot --- a/GI/Gtk/Objects/Alignment.hs-boot +++ b/GI/Gtk/Objects/Alignment.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.Alignment where -import Prelude () 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 diff --git a/GI/Gtk/Objects/AppChooserButton.hs b/GI/Gtk/Objects/AppChooserButton.hs --- a/GI/Gtk/Objects/AppChooserButton.hs +++ b/GI/Gtk/Objects/AppChooserButton.hs @@ -71,6 +71,7 @@ -- * Properties -- ** Heading AppChooserButtonHeadingPropertyInfo , + appChooserButtonHeading , constructAppChooserButtonHeading , getAppChooserButtonHeading , setAppChooserButtonHeading , @@ -78,6 +79,7 @@ -- ** ShowDefaultItem AppChooserButtonShowDefaultItemPropertyInfo, + appChooserButtonShowDefaultItem , constructAppChooserButtonShowDefaultItem, getAppChooserButtonShowDefaultItem , setAppChooserButtonShowDefaultItem , @@ -85,6 +87,7 @@ -- ** ShowDialogItem AppChooserButtonShowDialogItemPropertyInfo, + appChooserButtonShowDialogItem , constructAppChooserButtonShowDialogItem , getAppChooserButtonShowDialogItem , setAppChooserButtonShowDialogItem , @@ -109,9 +112,9 @@ ) where -import Prelude () 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 @@ -569,15 +572,16 @@ -- VVV Prop "heading" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getAppChooserButtonHeading :: (MonadIO m, AppChooserButtonK o) => o -> m T.Text -getAppChooserButtonHeading obj = liftIO $ getObjectPropertyString obj "heading" +getAppChooserButtonHeading obj = liftIO $ checkUnexpectedNothing "getAppChooserButtonHeading" $ getObjectPropertyString obj "heading" setAppChooserButtonHeading :: (MonadIO m, AppChooserButtonK o) => o -> T.Text -> m () -setAppChooserButtonHeading obj val = liftIO $ setObjectPropertyString obj "heading" val +setAppChooserButtonHeading obj val = liftIO $ setObjectPropertyString obj "heading" (Just val) constructAppChooserButtonHeading :: T.Text -> IO ([Char], GValue) -constructAppChooserButtonHeading val = constructObjectPropertyString "heading" val +constructAppChooserButtonHeading val = constructObjectPropertyString "heading" (Just val) data AppChooserButtonHeadingPropertyInfo instance AttrInfo AppChooserButtonHeadingPropertyInfo where @@ -589,10 +593,12 @@ attrGet _ = getAppChooserButtonHeading attrSet _ = setAppChooserButtonHeading attrConstruct _ = constructAppChooserButtonHeading + attrClear _ = undefined -- VVV Prop "show-default-item" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Just False,Just False) getAppChooserButtonShowDefaultItem :: (MonadIO m, AppChooserButtonK o) => o -> m Bool getAppChooserButtonShowDefaultItem obj = liftIO $ getObjectPropertyBool obj "show-default-item" @@ -613,10 +619,12 @@ attrGet _ = getAppChooserButtonShowDefaultItem attrSet _ = setAppChooserButtonShowDefaultItem attrConstruct _ = constructAppChooserButtonShowDefaultItem + attrClear _ = undefined -- VVV Prop "show-dialog-item" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Just False,Just False) getAppChooserButtonShowDialogItem :: (MonadIO m, AppChooserButtonK o) => o -> m Bool getAppChooserButtonShowDialogItem obj = liftIO $ getObjectPropertyBool obj "show-dialog-item" @@ -637,10 +645,20 @@ attrGet _ = getAppChooserButtonShowDialogItem attrSet _ = setAppChooserButtonShowDialogItem attrConstruct _ = constructAppChooserButtonShowDialogItem + attrClear _ = undefined type instance AttributeList AppChooserButton = AppChooserButtonAttributeList type AppChooserButtonAttributeList = ('[ '("active", ComboBoxActivePropertyInfo), '("activeId", ComboBoxActiveIdPropertyInfo), '("addTearoffs", ComboBoxAddTearoffsPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("buttonSensitivity", ComboBoxButtonSensitivityPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("cellArea", ComboBoxCellAreaPropertyInfo), '("child", ContainerChildPropertyInfo), '("columnSpanColumn", ComboBoxColumnSpanColumnPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("contentType", AppChooserContentTypePropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("editingCanceled", CellEditableEditingCanceledPropertyInfo), '("entryTextColumn", ComboBoxEntryTextColumnPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnClick", ComboBoxFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasEntry", ComboBoxHasEntryPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasFrame", ComboBoxHasFramePropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heading", AppChooserButtonHeadingPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("idColumn", ComboBoxIdColumnPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("model", ComboBoxModelPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("popupFixedWidth", ComboBoxPopupFixedWidthPropertyInfo), '("popupShown", ComboBoxPopupShownPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rowSpanColumn", ComboBoxRowSpanColumnPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showDefaultItem", AppChooserButtonShowDefaultItemPropertyInfo), '("showDialogItem", AppChooserButtonShowDialogItemPropertyInfo), '("style", WidgetStylePropertyInfo), '("tearoffTitle", ComboBoxTearoffTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("wrapWidth", ComboBoxWrapWidthPropertyInfo)] :: [(Symbol, *)]) +appChooserButtonHeading :: AttrLabelProxy "heading" +appChooserButtonHeading = AttrLabelProxy + +appChooserButtonShowDefaultItem :: AttrLabelProxy "showDefaultItem" +appChooserButtonShowDefaultItem = AttrLabelProxy + +appChooserButtonShowDialogItem :: AttrLabelProxy "showDialogItem" +appChooserButtonShowDialogItem = AttrLabelProxy + data AppChooserButtonCustomItemActivatedSignalInfo instance SignalInfo AppChooserButtonCustomItemActivatedSignalInfo where type HaskellCallbackType AppChooserButtonCustomItemActivatedSignalInfo = AppChooserButtonCustomItemActivatedCallback @@ -653,7 +671,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "AppChooserButton" +-- returnType : Just (TInterface "Gtk" "AppChooserButton") -- throws : False -- Skip return : False @@ -678,7 +696,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserButton", 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 = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -717,7 +735,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -744,7 +762,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -773,7 +791,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -801,7 +819,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -829,7 +847,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserButton", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -860,7 +878,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "heading", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -891,7 +909,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserButton", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -921,7 +939,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserButton", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/AppChooserButton.hs-boot b/GI/Gtk/Objects/AppChooserButton.hs-boot --- a/GI/Gtk/Objects/AppChooserButton.hs-boot +++ b/GI/Gtk/Objects/AppChooserButton.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.AppChooserButton where -import Prelude () 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 diff --git a/GI/Gtk/Objects/AppChooserDialog.hs b/GI/Gtk/Objects/AppChooserDialog.hs --- a/GI/Gtk/Objects/AppChooserDialog.hs +++ b/GI/Gtk/Objects/AppChooserDialog.hs @@ -45,12 +45,14 @@ -- * Properties -- ** Gfile AppChooserDialogGfilePropertyInfo , + appChooserDialogGfile , constructAppChooserDialogGfile , getAppChooserDialogGfile , -- ** Heading AppChooserDialogHeadingPropertyInfo , + appChooserDialogHeading , constructAppChooserDialogHeading , getAppChooserDialogHeading , setAppChooserDialogHeading , @@ -60,9 +62,9 @@ ) where -import Prelude () 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 @@ -539,36 +541,39 @@ -- VVV Prop "gfile" -- Type: TInterface "Gio" "File" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + -- Nullable: (Nothing,Nothing) -getAppChooserDialogGfile :: (MonadIO m, AppChooserDialogK o) => o -> m Gio.File +getAppChooserDialogGfile :: (MonadIO m, AppChooserDialogK o) => o -> m (Maybe Gio.File) getAppChooserDialogGfile obj = liftIO $ getObjectPropertyObject obj "gfile" Gio.File constructAppChooserDialogGfile :: (Gio.FileK a) => a -> IO ([Char], GValue) -constructAppChooserDialogGfile val = constructObjectPropertyObject "gfile" val +constructAppChooserDialogGfile val = constructObjectPropertyObject "gfile" (Just val) data AppChooserDialogGfilePropertyInfo instance AttrInfo AppChooserDialogGfilePropertyInfo where - type AttrAllowedOps AppChooserDialogGfilePropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrAllowedOps AppChooserDialogGfilePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint AppChooserDialogGfilePropertyInfo = Gio.FileK type AttrBaseTypeConstraint AppChooserDialogGfilePropertyInfo = AppChooserDialogK - type AttrGetType AppChooserDialogGfilePropertyInfo = Gio.File + type AttrGetType AppChooserDialogGfilePropertyInfo = (Maybe Gio.File) type AttrLabel AppChooserDialogGfilePropertyInfo = "gfile" attrGet _ = getAppChooserDialogGfile attrSet _ = undefined attrConstruct _ = constructAppChooserDialogGfile + attrClear _ = undefined -- VVV Prop "heading" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getAppChooserDialogHeading :: (MonadIO m, AppChooserDialogK o) => o -> m T.Text -getAppChooserDialogHeading obj = liftIO $ getObjectPropertyString obj "heading" +getAppChooserDialogHeading obj = liftIO $ checkUnexpectedNothing "getAppChooserDialogHeading" $ getObjectPropertyString obj "heading" setAppChooserDialogHeading :: (MonadIO m, AppChooserDialogK o) => o -> T.Text -> m () -setAppChooserDialogHeading obj val = liftIO $ setObjectPropertyString obj "heading" val +setAppChooserDialogHeading obj val = liftIO $ setObjectPropertyString obj "heading" (Just val) constructAppChooserDialogHeading :: T.Text -> IO ([Char], GValue) -constructAppChooserDialogHeading val = constructObjectPropertyString "heading" val +constructAppChooserDialogHeading val = constructObjectPropertyString "heading" (Just val) data AppChooserDialogHeadingPropertyInfo instance AttrInfo AppChooserDialogHeadingPropertyInfo where @@ -580,10 +585,17 @@ attrGet _ = getAppChooserDialogHeading attrSet _ = setAppChooserDialogHeading attrConstruct _ = constructAppChooserDialogHeading + attrClear _ = undefined type instance AttributeList AppChooserDialog = AppChooserDialogAttributeList type AppChooserDialogAttributeList = ('[ '("acceptFocus", WindowAcceptFocusPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attachedTo", WindowAttachedToPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("contentType", AppChooserContentTypePropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("defaultHeight", WindowDefaultHeightPropertyInfo), '("defaultWidth", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroyWithParent", WindowDestroyWithParentPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnMap", WindowFocusOnMapPropertyInfo), '("focusVisible", WindowFocusVisiblePropertyInfo), '("gfile", AppChooserDialogGfilePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasResizeGrip", WindowHasResizeGripPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("hasToplevelFocus", WindowHasToplevelFocusPropertyInfo), '("heading", AppChooserDialogHeadingPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hideTitlebarWhenMaximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("iconName", WindowIconNamePropertyInfo), '("isActive", WindowIsActivePropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isMaximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("mnemonicsVisible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resizeGripVisible", WindowResizeGripVisiblePropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skipPagerHint", WindowSkipPagerHintPropertyInfo), '("skipTaskbarHint", WindowSkipTaskbarHintPropertyInfo), '("startupId", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("transientFor", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("typeHint", WindowTypeHintPropertyInfo), '("urgencyHint", WindowUrgencyHintPropertyInfo), '("useHeaderBar", DialogUseHeaderBarPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("windowPosition", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) +appChooserDialogGfile :: AttrLabelProxy "gfile" +appChooserDialogGfile = AttrLabelProxy + +appChooserDialogHeading :: AttrLabelProxy "heading" +appChooserDialogHeading = AttrLabelProxy + type instance SignalList AppChooserDialog = AppChooserDialogSignalList type AppChooserDialogSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activateDefault", WindowActivateDefaultSignalInfo), '("activateFocus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("close", DialogCloseSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enableDebugging", WindowEnableDebuggingSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("keysChanged", WindowKeysChangedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("response", DialogResponseSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocus", WindowSetFocusSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -591,7 +603,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "DialogFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "AppChooserDialog" +-- returnType : Just (TInterface "Gtk" "AppChooserDialog") -- throws : False -- Skip return : False @@ -627,7 +639,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "DialogFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "AppChooserDialog" +-- returnType : Just (TInterface "Gtk" "AppChooserDialog") -- throws : False -- Skip return : False @@ -663,7 +675,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -692,7 +704,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -721,7 +733,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "heading", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/AppChooserDialog.hs-boot b/GI/Gtk/Objects/AppChooserDialog.hs-boot --- a/GI/Gtk/Objects/AppChooserDialog.hs-boot +++ b/GI/Gtk/Objects/AppChooserDialog.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.AppChooserDialog where -import Prelude () 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 diff --git a/GI/Gtk/Objects/AppChooserWidget.hs b/GI/Gtk/Objects/AppChooserWidget.hs --- a/GI/Gtk/Objects/AppChooserWidget.hs +++ b/GI/Gtk/Objects/AppChooserWidget.hs @@ -86,6 +86,7 @@ -- * Properties -- ** DefaultText AppChooserWidgetDefaultTextPropertyInfo , + appChooserWidgetDefaultText , constructAppChooserWidgetDefaultText , getAppChooserWidgetDefaultText , setAppChooserWidgetDefaultText , @@ -93,6 +94,7 @@ -- ** ShowAll AppChooserWidgetShowAllPropertyInfo , + appChooserWidgetShowAll , constructAppChooserWidgetShowAll , getAppChooserWidgetShowAll , setAppChooserWidgetShowAll , @@ -100,6 +102,7 @@ -- ** ShowDefault AppChooserWidgetShowDefaultPropertyInfo , + appChooserWidgetShowDefault , constructAppChooserWidgetShowDefault , getAppChooserWidgetShowDefault , setAppChooserWidgetShowDefault , @@ -107,6 +110,7 @@ -- ** ShowFallback AppChooserWidgetShowFallbackPropertyInfo, + appChooserWidgetShowFallback , constructAppChooserWidgetShowFallback , getAppChooserWidgetShowFallback , setAppChooserWidgetShowFallback , @@ -114,6 +118,7 @@ -- ** ShowOther AppChooserWidgetShowOtherPropertyInfo , + appChooserWidgetShowOther , constructAppChooserWidgetShowOther , getAppChooserWidgetShowOther , setAppChooserWidgetShowOther , @@ -121,6 +126,7 @@ -- ** ShowRecommended AppChooserWidgetShowRecommendedPropertyInfo, + appChooserWidgetShowRecommended , constructAppChooserWidgetShowRecommended, getAppChooserWidgetShowRecommended , setAppChooserWidgetShowRecommended , @@ -169,9 +175,9 @@ ) where -import Prelude () 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 @@ -688,15 +694,16 @@ -- VVV Prop "default-text" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getAppChooserWidgetDefaultText :: (MonadIO m, AppChooserWidgetK o) => o -> m T.Text -getAppChooserWidgetDefaultText obj = liftIO $ getObjectPropertyString obj "default-text" +getAppChooserWidgetDefaultText obj = liftIO $ checkUnexpectedNothing "getAppChooserWidgetDefaultText" $ getObjectPropertyString obj "default-text" setAppChooserWidgetDefaultText :: (MonadIO m, AppChooserWidgetK o) => o -> T.Text -> m () -setAppChooserWidgetDefaultText obj val = liftIO $ setObjectPropertyString obj "default-text" val +setAppChooserWidgetDefaultText obj val = liftIO $ setObjectPropertyString obj "default-text" (Just val) constructAppChooserWidgetDefaultText :: T.Text -> IO ([Char], GValue) -constructAppChooserWidgetDefaultText val = constructObjectPropertyString "default-text" val +constructAppChooserWidgetDefaultText val = constructObjectPropertyString "default-text" (Just val) data AppChooserWidgetDefaultTextPropertyInfo instance AttrInfo AppChooserWidgetDefaultTextPropertyInfo where @@ -708,10 +715,12 @@ attrGet _ = getAppChooserWidgetDefaultText attrSet _ = setAppChooserWidgetDefaultText attrConstruct _ = constructAppChooserWidgetDefaultText + attrClear _ = undefined -- VVV Prop "show-all" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Just False,Just False) getAppChooserWidgetShowAll :: (MonadIO m, AppChooserWidgetK o) => o -> m Bool getAppChooserWidgetShowAll obj = liftIO $ getObjectPropertyBool obj "show-all" @@ -732,10 +741,12 @@ attrGet _ = getAppChooserWidgetShowAll attrSet _ = setAppChooserWidgetShowAll attrConstruct _ = constructAppChooserWidgetShowAll + attrClear _ = undefined -- VVV Prop "show-default" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Just False,Just False) getAppChooserWidgetShowDefault :: (MonadIO m, AppChooserWidgetK o) => o -> m Bool getAppChooserWidgetShowDefault obj = liftIO $ getObjectPropertyBool obj "show-default" @@ -756,10 +767,12 @@ attrGet _ = getAppChooserWidgetShowDefault attrSet _ = setAppChooserWidgetShowDefault attrConstruct _ = constructAppChooserWidgetShowDefault + attrClear _ = undefined -- VVV Prop "show-fallback" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Just False,Just False) getAppChooserWidgetShowFallback :: (MonadIO m, AppChooserWidgetK o) => o -> m Bool getAppChooserWidgetShowFallback obj = liftIO $ getObjectPropertyBool obj "show-fallback" @@ -780,10 +793,12 @@ attrGet _ = getAppChooserWidgetShowFallback attrSet _ = setAppChooserWidgetShowFallback attrConstruct _ = constructAppChooserWidgetShowFallback + attrClear _ = undefined -- VVV Prop "show-other" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Just False,Just False) getAppChooserWidgetShowOther :: (MonadIO m, AppChooserWidgetK o) => o -> m Bool getAppChooserWidgetShowOther obj = liftIO $ getObjectPropertyBool obj "show-other" @@ -804,10 +819,12 @@ attrGet _ = getAppChooserWidgetShowOther attrSet _ = setAppChooserWidgetShowOther attrConstruct _ = constructAppChooserWidgetShowOther + attrClear _ = undefined -- VVV Prop "show-recommended" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Just False,Just False) getAppChooserWidgetShowRecommended :: (MonadIO m, AppChooserWidgetK o) => o -> m Bool getAppChooserWidgetShowRecommended obj = liftIO $ getObjectPropertyBool obj "show-recommended" @@ -828,10 +845,29 @@ attrGet _ = getAppChooserWidgetShowRecommended attrSet _ = setAppChooserWidgetShowRecommended attrConstruct _ = constructAppChooserWidgetShowRecommended + attrClear _ = undefined type instance AttributeList AppChooserWidget = AppChooserWidgetAttributeList type AppChooserWidgetAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("baselinePosition", BoxBaselinePositionPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("contentType", AppChooserContentTypePropertyInfo), '("defaultText", AppChooserWidgetDefaultTextPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showAll", AppChooserWidgetShowAllPropertyInfo), '("showDefault", AppChooserWidgetShowDefaultPropertyInfo), '("showFallback", AppChooserWidgetShowFallbackPropertyInfo), '("showOther", AppChooserWidgetShowOtherPropertyInfo), '("showRecommended", AppChooserWidgetShowRecommendedPropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +appChooserWidgetDefaultText :: AttrLabelProxy "defaultText" +appChooserWidgetDefaultText = AttrLabelProxy + +appChooserWidgetShowAll :: AttrLabelProxy "showAll" +appChooserWidgetShowAll = AttrLabelProxy + +appChooserWidgetShowDefault :: AttrLabelProxy "showDefault" +appChooserWidgetShowDefault = AttrLabelProxy + +appChooserWidgetShowFallback :: AttrLabelProxy "showFallback" +appChooserWidgetShowFallback = AttrLabelProxy + +appChooserWidgetShowOther :: AttrLabelProxy "showOther" +appChooserWidgetShowOther = AttrLabelProxy + +appChooserWidgetShowRecommended :: AttrLabelProxy "showRecommended" +appChooserWidgetShowRecommended = AttrLabelProxy + data AppChooserWidgetApplicationActivatedSignalInfo instance SignalInfo AppChooserWidgetApplicationActivatedSignalInfo where type HaskellCallbackType AppChooserWidgetApplicationActivatedSignalInfo = AppChooserWidgetApplicationActivatedCallback @@ -854,7 +890,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "AppChooserWidget" +-- returnType : Just (TInterface "Gtk" "AppChooserWidget") -- throws : False -- Skip return : False @@ -879,7 +915,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -908,7 +944,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -936,7 +972,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -964,7 +1000,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -992,7 +1028,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1020,7 +1056,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1048,7 +1084,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1079,7 +1115,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1109,7 +1145,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1139,7 +1175,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1169,7 +1205,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1199,7 +1235,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/AppChooserWidget.hs-boot b/GI/Gtk/Objects/AppChooserWidget.hs-boot --- a/GI/Gtk/Objects/AppChooserWidget.hs-boot +++ b/GI/Gtk/Objects/AppChooserWidget.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.AppChooserWidget where -import Prelude () 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 diff --git a/GI/Gtk/Objects/Application.hs b/GI/Gtk/Objects/Application.hs --- a/GI/Gtk/Objects/Application.hs +++ b/GI/Gtk/Objects/Application.hs @@ -126,11 +126,14 @@ -- * Properties -- ** ActiveWindow ApplicationActiveWindowPropertyInfo , + applicationActiveWindow , getApplicationActiveWindow , -- ** AppMenu ApplicationAppMenuPropertyInfo , + applicationAppMenu , + clearApplicationAppMenu , constructApplicationAppMenu , getApplicationAppMenu , setApplicationAppMenu , @@ -138,6 +141,8 @@ -- ** Menubar ApplicationMenubarPropertyInfo , + applicationMenubar , + clearApplicationMenubar , constructApplicationMenubar , getApplicationMenubar , setApplicationMenubar , @@ -145,6 +150,7 @@ -- ** RegisterSession ApplicationRegisterSessionPropertyInfo , + applicationRegisterSession , constructApplicationRegisterSession , getApplicationRegisterSession , setApplicationRegisterSession , @@ -181,9 +187,9 @@ ) where -import Prelude () 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 @@ -403,13 +409,14 @@ -- VVV Prop "active-window" -- Type: TInterface "Gtk" "Window" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getApplicationActiveWindow :: (MonadIO m, ApplicationK o) => o -> m Window -getApplicationActiveWindow obj = liftIO $ getObjectPropertyObject obj "active-window" Window +getApplicationActiveWindow obj = liftIO $ checkUnexpectedNothing "getApplicationActiveWindow" $ getObjectPropertyObject obj "active-window" Window data ApplicationActiveWindowPropertyInfo instance AttrInfo ApplicationActiveWindowPropertyInfo where - type AttrAllowedOps ApplicationActiveWindowPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps ApplicationActiveWindowPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ApplicationActiveWindowPropertyInfo = (~) () type AttrBaseTypeConstraint ApplicationActiveWindowPropertyInfo = ApplicationK type AttrGetType ApplicationActiveWindowPropertyInfo = Window @@ -417,23 +424,28 @@ attrGet _ = getApplicationActiveWindow attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "app-menu" -- Type: TInterface "Gio" "MenuModel" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) getApplicationAppMenu :: (MonadIO m, ApplicationK o) => o -> m Gio.MenuModel -getApplicationAppMenu obj = liftIO $ getObjectPropertyObject obj "app-menu" Gio.MenuModel +getApplicationAppMenu obj = liftIO $ checkUnexpectedNothing "getApplicationAppMenu" $ getObjectPropertyObject obj "app-menu" Gio.MenuModel setApplicationAppMenu :: (MonadIO m, ApplicationK o, Gio.MenuModelK a) => o -> a -> m () -setApplicationAppMenu obj val = liftIO $ setObjectPropertyObject obj "app-menu" val +setApplicationAppMenu obj val = liftIO $ setObjectPropertyObject obj "app-menu" (Just val) constructApplicationAppMenu :: (Gio.MenuModelK a) => a -> IO ([Char], GValue) -constructApplicationAppMenu val = constructObjectPropertyObject "app-menu" val +constructApplicationAppMenu val = constructObjectPropertyObject "app-menu" (Just val) +clearApplicationAppMenu :: (MonadIO m, ApplicationK o) => o -> m () +clearApplicationAppMenu obj = liftIO $ setObjectPropertyObject obj "app-menu" (Nothing :: Maybe Gio.MenuModel) + data ApplicationAppMenuPropertyInfo instance AttrInfo ApplicationAppMenuPropertyInfo where - type AttrAllowedOps ApplicationAppMenuPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps ApplicationAppMenuPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ApplicationAppMenuPropertyInfo = Gio.MenuModelK type AttrBaseTypeConstraint ApplicationAppMenuPropertyInfo = ApplicationK type AttrGetType ApplicationAppMenuPropertyInfo = Gio.MenuModel @@ -441,23 +453,28 @@ attrGet _ = getApplicationAppMenu attrSet _ = setApplicationAppMenu attrConstruct _ = constructApplicationAppMenu + attrClear _ = clearApplicationAppMenu -- VVV Prop "menubar" -- Type: TInterface "Gio" "MenuModel" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) getApplicationMenubar :: (MonadIO m, ApplicationK o) => o -> m Gio.MenuModel -getApplicationMenubar obj = liftIO $ getObjectPropertyObject obj "menubar" Gio.MenuModel +getApplicationMenubar obj = liftIO $ checkUnexpectedNothing "getApplicationMenubar" $ getObjectPropertyObject obj "menubar" Gio.MenuModel setApplicationMenubar :: (MonadIO m, ApplicationK o, Gio.MenuModelK a) => o -> a -> m () -setApplicationMenubar obj val = liftIO $ setObjectPropertyObject obj "menubar" val +setApplicationMenubar obj val = liftIO $ setObjectPropertyObject obj "menubar" (Just val) constructApplicationMenubar :: (Gio.MenuModelK a) => a -> IO ([Char], GValue) -constructApplicationMenubar val = constructObjectPropertyObject "menubar" val +constructApplicationMenubar val = constructObjectPropertyObject "menubar" (Just val) +clearApplicationMenubar :: (MonadIO m, ApplicationK o) => o -> m () +clearApplicationMenubar obj = liftIO $ setObjectPropertyObject obj "menubar" (Nothing :: Maybe Gio.MenuModel) + data ApplicationMenubarPropertyInfo instance AttrInfo ApplicationMenubarPropertyInfo where - type AttrAllowedOps ApplicationMenubarPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps ApplicationMenubarPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ApplicationMenubarPropertyInfo = Gio.MenuModelK type AttrBaseTypeConstraint ApplicationMenubarPropertyInfo = ApplicationK type AttrGetType ApplicationMenubarPropertyInfo = Gio.MenuModel @@ -465,10 +482,12 @@ attrGet _ = getApplicationMenubar attrSet _ = setApplicationMenubar attrConstruct _ = constructApplicationMenubar + attrClear _ = clearApplicationMenubar -- VVV Prop "register-session" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getApplicationRegisterSession :: (MonadIO m, ApplicationK o) => o -> m Bool getApplicationRegisterSession obj = liftIO $ getObjectPropertyBool obj "register-session" @@ -489,10 +508,23 @@ attrGet _ = getApplicationRegisterSession attrSet _ = setApplicationRegisterSession attrConstruct _ = constructApplicationRegisterSession + attrClear _ = undefined type instance AttributeList Application = ApplicationAttributeList type ApplicationAttributeList = ('[ '("actionGroup", Gio.ApplicationActionGroupPropertyInfo), '("activeWindow", ApplicationActiveWindowPropertyInfo), '("appMenu", ApplicationAppMenuPropertyInfo), '("applicationId", Gio.ApplicationApplicationIdPropertyInfo), '("flags", Gio.ApplicationFlagsPropertyInfo), '("inactivityTimeout", Gio.ApplicationInactivityTimeoutPropertyInfo), '("isBusy", Gio.ApplicationIsBusyPropertyInfo), '("isRegistered", Gio.ApplicationIsRegisteredPropertyInfo), '("isRemote", Gio.ApplicationIsRemotePropertyInfo), '("menubar", ApplicationMenubarPropertyInfo), '("registerSession", ApplicationRegisterSessionPropertyInfo), '("resourceBasePath", Gio.ApplicationResourceBasePathPropertyInfo)] :: [(Symbol, *)]) +applicationActiveWindow :: AttrLabelProxy "activeWindow" +applicationActiveWindow = AttrLabelProxy + +applicationAppMenu :: AttrLabelProxy "appMenu" +applicationAppMenu = AttrLabelProxy + +applicationMenubar :: AttrLabelProxy "menubar" +applicationMenubar = AttrLabelProxy + +applicationRegisterSession :: AttrLabelProxy "registerSession" +applicationRegisterSession = AttrLabelProxy + data ApplicationWindowAddedSignalInfo instance SignalInfo ApplicationWindowAddedSignalInfo where type HaskellCallbackType ApplicationWindowAddedSignalInfo = ApplicationWindowAddedCallback @@ -510,7 +542,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "application_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "ApplicationFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Application" +-- returnType : Just (TInterface "Gtk" "Application") -- throws : False -- Skip return : False @@ -542,7 +574,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accelerator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameter", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -584,7 +616,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -615,7 +647,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detailed_action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) +-- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) -- throws : False -- Skip return : False @@ -650,7 +682,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) +-- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) -- throws : False -- Skip return : False @@ -685,7 +717,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Window" +-- returnType : Just (TInterface "Gtk" "Window") -- throws : False -- Skip return : False @@ -714,7 +746,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gio" "MenuModel" +-- returnType : Just (TInterface "Gio" "MenuModel") -- throws : False -- Skip return : False @@ -743,7 +775,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gio" "Menu" +-- returnType : Just (TInterface "Gio" "Menu") -- throws : False -- Skip return : False @@ -776,7 +808,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gio" "MenuModel" +-- returnType : Just (TInterface "Gio" "MenuModel") -- throws : False -- Skip return : False @@ -803,15 +835,15 @@ -- method Application::get_window_by_id -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "id", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Window" +-- returnType : Just (TInterface "Gtk" "Window") -- throws : False -- Skip return : False foreign import ccall "gtk_application_get_window_by_id" gtk_application_get_window_by_id :: Ptr Application -> -- _obj : TInterface "Gtk" "Application" - Word32 -> -- id : TBasicType TUInt32 + Word32 -> -- id : TBasicType TUInt IO (Ptr Window) @@ -836,7 +868,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TGList (TInterface "Gtk" "Window") +-- returnType : Just (TGList (TInterface "Gtk" "Window")) -- throws : False -- Skip return : False @@ -852,7 +884,6 @@ applicationGetWindows _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_application_get_windows _obj' - checkUnexpectedReturnNULL "gtk_application_get_windows" result result' <- unpackGList result result'' <- mapM (newObject Window) result' touchManagedPtr _obj @@ -866,7 +897,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "ApplicationInhibitFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "reason", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt32 +-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -912,7 +943,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "ApplicationInhibitFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -943,7 +974,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) +-- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) -- throws : False -- Skip return : False @@ -974,7 +1005,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1002,7 +1033,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameter", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1040,7 +1071,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1071,7 +1102,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detailed_action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accels", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1107,7 +1138,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "app_menu", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1142,7 +1173,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menubar", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1175,15 +1206,15 @@ -- method Application::uninhibit -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cookie", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cookie", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_application_uninhibit" gtk_application_uninhibit :: Ptr Application -> -- _obj : TInterface "Gtk" "Application" - Word32 -> -- cookie : TBasicType TUInt32 + Word32 -> -- cookie : TBasicType TUInt IO () diff --git a/GI/Gtk/Objects/Application.hs-boot b/GI/Gtk/Objects/Application.hs-boot --- a/GI/Gtk/Objects/Application.hs-boot +++ b/GI/Gtk/Objects/Application.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.Application where -import Prelude () 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 diff --git a/GI/Gtk/Objects/ApplicationWindow.hs b/GI/Gtk/Objects/ApplicationWindow.hs --- a/GI/Gtk/Objects/ApplicationWindow.hs +++ b/GI/Gtk/Objects/ApplicationWindow.hs @@ -41,6 +41,7 @@ -- * Properties -- ** ShowMenubar ApplicationWindowShowMenubarPropertyInfo, + applicationWindowShowMenubar , constructApplicationWindowShowMenubar , getApplicationWindowShowMenubar , setApplicationWindowShowMenubar , @@ -50,9 +51,9 @@ ) where -import Prelude () 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 @@ -532,6 +533,7 @@ -- VVV Prop "show-menubar" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Just False,Just False) getApplicationWindowShowMenubar :: (MonadIO m, ApplicationWindowK o) => o -> m Bool getApplicationWindowShowMenubar obj = liftIO $ getObjectPropertyBool obj "show-menubar" @@ -552,10 +554,14 @@ attrGet _ = getApplicationWindowShowMenubar attrSet _ = setApplicationWindowShowMenubar attrConstruct _ = constructApplicationWindowShowMenubar + attrClear _ = undefined type instance AttributeList ApplicationWindow = ApplicationWindowAttributeList type ApplicationWindowAttributeList = ('[ '("acceptFocus", WindowAcceptFocusPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attachedTo", WindowAttachedToPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("defaultHeight", WindowDefaultHeightPropertyInfo), '("defaultWidth", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroyWithParent", WindowDestroyWithParentPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnMap", WindowFocusOnMapPropertyInfo), '("focusVisible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasResizeGrip", WindowHasResizeGripPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("hasToplevelFocus", WindowHasToplevelFocusPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hideTitlebarWhenMaximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("iconName", WindowIconNamePropertyInfo), '("isActive", WindowIsActivePropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isMaximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("mnemonicsVisible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resizeGripVisible", WindowResizeGripVisiblePropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showMenubar", ApplicationWindowShowMenubarPropertyInfo), '("skipPagerHint", WindowSkipPagerHintPropertyInfo), '("skipTaskbarHint", WindowSkipTaskbarHintPropertyInfo), '("startupId", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("transientFor", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("typeHint", WindowTypeHintPropertyInfo), '("urgencyHint", WindowUrgencyHintPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("windowPosition", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) +applicationWindowShowMenubar :: AttrLabelProxy "showMenubar" +applicationWindowShowMenubar = AttrLabelProxy + type instance SignalList ApplicationWindow = ApplicationWindowSignalList type ApplicationWindowSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("actionAdded", Gio.ActionGroupActionAddedSignalInfo), '("actionEnabledChanged", Gio.ActionGroupActionEnabledChangedSignalInfo), '("actionRemoved", Gio.ActionGroupActionRemovedSignalInfo), '("actionStateChanged", Gio.ActionGroupActionStateChangedSignalInfo), '("activateDefault", WindowActivateDefaultSignalInfo), '("activateFocus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enableDebugging", WindowEnableDebuggingSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("keysChanged", WindowKeysChangedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocus", WindowSetFocusSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -563,7 +569,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "application", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "ApplicationWindow" +-- returnType : Just (TInterface "Gtk" "ApplicationWindow") -- throws : False -- Skip return : False @@ -588,7 +594,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ApplicationWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt32 +-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -615,7 +621,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ApplicationWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -643,7 +649,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ApplicationWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_menubar", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/ApplicationWindow.hs-boot b/GI/Gtk/Objects/ApplicationWindow.hs-boot --- a/GI/Gtk/Objects/ApplicationWindow.hs-boot +++ b/GI/Gtk/Objects/ApplicationWindow.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.ApplicationWindow where -import Prelude () 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 diff --git a/GI/Gtk/Objects/Arrow.hs b/GI/Gtk/Objects/Arrow.hs --- a/GI/Gtk/Objects/Arrow.hs +++ b/GI/Gtk/Objects/Arrow.hs @@ -31,6 +31,7 @@ -- * Properties -- ** ArrowType ArrowArrowTypePropertyInfo , + arrowArrowType , constructArrowArrowType , getArrowArrowType , setArrowArrowType , @@ -38,6 +39,7 @@ -- ** ShadowType ArrowShadowTypePropertyInfo , + arrowShadowType , constructArrowShadowType , getArrowShadowType , setArrowShadowType , @@ -47,9 +49,9 @@ ) where -import Prelude () 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 @@ -384,6 +386,7 @@ -- VVV Prop "arrow-type" -- Type: TInterface "Gtk" "ArrowType" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getArrowArrowType :: (MonadIO m, ArrowK o) => o -> m ArrowType getArrowArrowType obj = liftIO $ getObjectPropertyEnum obj "arrow-type" @@ -404,10 +407,12 @@ attrGet _ = getArrowArrowType attrSet _ = setArrowArrowType attrConstruct _ = constructArrowArrowType + attrClear _ = undefined -- VVV Prop "shadow-type" -- Type: TInterface "Gtk" "ShadowType" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getArrowShadowType :: (MonadIO m, ArrowK o) => o -> m ShadowType getArrowShadowType obj = liftIO $ getObjectPropertyEnum obj "shadow-type" @@ -428,10 +433,17 @@ attrGet _ = getArrowShadowType attrSet _ = setArrowShadowType attrConstruct _ = constructArrowShadowType + attrClear _ = undefined type instance AttributeList Arrow = ArrowAttributeList type ArrowAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("arrowType", ArrowArrowTypePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadowType", ArrowShadowTypePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", MiscXalignPropertyInfo), '("xpad", MiscXpadPropertyInfo), '("yalign", MiscYalignPropertyInfo), '("ypad", MiscYpadPropertyInfo)] :: [(Symbol, *)]) +arrowArrowType :: AttrLabelProxy "arrowType" +arrowArrowType = AttrLabelProxy + +arrowShadowType :: AttrLabelProxy "shadowType" +arrowShadowType = AttrLabelProxy + type instance SignalList Arrow = ArrowSignalList type ArrowSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -439,7 +451,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "arrow_type", argType = TInterface "Gtk" "ArrowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Arrow" +-- returnType : Just (TInterface "Gtk" "Arrow") -- throws : False -- Skip return : False @@ -466,7 +478,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Arrow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "arrow_type", argType = TInterface "Gtk" "ArrowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/Arrow.hs-boot b/GI/Gtk/Objects/Arrow.hs-boot --- a/GI/Gtk/Objects/Arrow.hs-boot +++ b/GI/Gtk/Objects/Arrow.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.Arrow where -import Prelude () 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 diff --git a/GI/Gtk/Objects/ArrowAccessible.hs b/GI/Gtk/Objects/ArrowAccessible.hs --- a/GI/Gtk/Objects/ArrowAccessible.hs +++ b/GI/Gtk/Objects/ArrowAccessible.hs @@ -18,9 +18,9 @@ ) where -import Prelude () 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 diff --git a/GI/Gtk/Objects/ArrowAccessible.hs-boot b/GI/Gtk/Objects/ArrowAccessible.hs-boot --- a/GI/Gtk/Objects/ArrowAccessible.hs-boot +++ b/GI/Gtk/Objects/ArrowAccessible.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.ArrowAccessible where -import Prelude () 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 diff --git a/GI/Gtk/Objects/AspectFrame.hs b/GI/Gtk/Objects/AspectFrame.hs --- a/GI/Gtk/Objects/AspectFrame.hs +++ b/GI/Gtk/Objects/AspectFrame.hs @@ -31,6 +31,7 @@ -- * Properties -- ** ObeyChild AspectFrameObeyChildPropertyInfo , + aspectFrameObeyChild , constructAspectFrameObeyChild , getAspectFrameObeyChild , setAspectFrameObeyChild , @@ -38,6 +39,7 @@ -- ** Ratio AspectFrameRatioPropertyInfo , + aspectFrameRatio , constructAspectFrameRatio , getAspectFrameRatio , setAspectFrameRatio , @@ -45,6 +47,7 @@ -- ** Xalign AspectFrameXalignPropertyInfo , + aspectFrameXalign , constructAspectFrameXalign , getAspectFrameXalign , setAspectFrameXalign , @@ -52,6 +55,7 @@ -- ** Yalign AspectFrameYalignPropertyInfo , + aspectFrameYalign , constructAspectFrameYalign , getAspectFrameYalign , setAspectFrameYalign , @@ -61,9 +65,9 @@ ) where -import Prelude () 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 @@ -429,6 +433,7 @@ -- VVV Prop "obey-child" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getAspectFrameObeyChild :: (MonadIO m, AspectFrameK o) => o -> m Bool getAspectFrameObeyChild obj = liftIO $ getObjectPropertyBool obj "obey-child" @@ -449,10 +454,12 @@ attrGet _ = getAspectFrameObeyChild attrSet _ = setAspectFrameObeyChild attrConstruct _ = constructAspectFrameObeyChild + attrClear _ = undefined -- VVV Prop "ratio" -- Type: TBasicType TFloat -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getAspectFrameRatio :: (MonadIO m, AspectFrameK o) => o -> m Float getAspectFrameRatio obj = liftIO $ getObjectPropertyFloat obj "ratio" @@ -473,10 +480,12 @@ attrGet _ = getAspectFrameRatio attrSet _ = setAspectFrameRatio attrConstruct _ = constructAspectFrameRatio + attrClear _ = undefined -- VVV Prop "xalign" -- Type: TBasicType TFloat -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getAspectFrameXalign :: (MonadIO m, AspectFrameK o) => o -> m Float getAspectFrameXalign obj = liftIO $ getObjectPropertyFloat obj "xalign" @@ -497,10 +506,12 @@ attrGet _ = getAspectFrameXalign attrSet _ = setAspectFrameXalign attrConstruct _ = constructAspectFrameXalign + attrClear _ = undefined -- VVV Prop "yalign" -- Type: TBasicType TFloat -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getAspectFrameYalign :: (MonadIO m, AspectFrameK o) => o -> m Float getAspectFrameYalign obj = liftIO $ getObjectPropertyFloat obj "yalign" @@ -521,10 +532,23 @@ attrGet _ = getAspectFrameYalign attrSet _ = setAspectFrameYalign attrConstruct _ = constructAspectFrameYalign + attrClear _ = undefined type instance AttributeList AspectFrame = AspectFrameAttributeList type AspectFrameAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", FrameLabelPropertyInfo), '("labelWidget", FrameLabelWidgetPropertyInfo), '("labelXalign", FrameLabelXalignPropertyInfo), '("labelYalign", FrameLabelYalignPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("obeyChild", AspectFrameObeyChildPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("ratio", AspectFrameRatioPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadowType", FrameShadowTypePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", AspectFrameXalignPropertyInfo), '("yalign", AspectFrameYalignPropertyInfo)] :: [(Symbol, *)]) +aspectFrameObeyChild :: AttrLabelProxy "obeyChild" +aspectFrameObeyChild = AttrLabelProxy + +aspectFrameRatio :: AttrLabelProxy "ratio" +aspectFrameRatio = AttrLabelProxy + +aspectFrameXalign :: AttrLabelProxy "xalign" +aspectFrameXalign = AttrLabelProxy + +aspectFrameYalign :: AttrLabelProxy "yalign" +aspectFrameYalign = AttrLabelProxy + type instance SignalList AspectFrame = AspectFrameSignalList type AspectFrameSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -532,7 +556,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ratio", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "obey_child", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "AspectFrame" +-- returnType : Just (TInterface "Gtk" "AspectFrame") -- throws : False -- Skip return : False @@ -573,7 +597,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "AspectFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ratio", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "obey_child", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/AspectFrame.hs-boot b/GI/Gtk/Objects/AspectFrame.hs-boot --- a/GI/Gtk/Objects/AspectFrame.hs-boot +++ b/GI/Gtk/Objects/AspectFrame.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.AspectFrame where -import Prelude () 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 diff --git a/GI/Gtk/Objects/Assistant.hs b/GI/Gtk/Objects/Assistant.hs --- a/GI/Gtk/Objects/Assistant.hs +++ b/GI/Gtk/Objects/Assistant.hs @@ -161,6 +161,7 @@ -- * Properties -- ** UseHeaderBar AssistantUseHeaderBarPropertyInfo , + assistantUseHeaderBar , constructAssistantUseHeaderBar , getAssistantUseHeaderBar , @@ -232,9 +233,9 @@ ) where -import Prelude () 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 @@ -913,14 +914,15 @@ connectSignalFunPtr obj "prepare" cb' after -- VVV Prop "use-header-bar" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + -- Nullable: (Nothing,Nothing) getAssistantUseHeaderBar :: (MonadIO m, AssistantK o) => o -> m Int32 -getAssistantUseHeaderBar obj = liftIO $ getObjectPropertyCInt obj "use-header-bar" +getAssistantUseHeaderBar obj = liftIO $ getObjectPropertyInt32 obj "use-header-bar" constructAssistantUseHeaderBar :: Int32 -> IO ([Char], GValue) -constructAssistantUseHeaderBar val = constructObjectPropertyCInt "use-header-bar" val +constructAssistantUseHeaderBar val = constructObjectPropertyInt32 "use-header-bar" val data AssistantUseHeaderBarPropertyInfo instance AttrInfo AssistantUseHeaderBarPropertyInfo where @@ -932,10 +934,14 @@ attrGet _ = getAssistantUseHeaderBar attrSet _ = undefined attrConstruct _ = constructAssistantUseHeaderBar + attrClear _ = undefined type instance AttributeList Assistant = AssistantAttributeList type AssistantAttributeList = ('[ '("acceptFocus", WindowAcceptFocusPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attachedTo", WindowAttachedToPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("defaultHeight", WindowDefaultHeightPropertyInfo), '("defaultWidth", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroyWithParent", WindowDestroyWithParentPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnMap", WindowFocusOnMapPropertyInfo), '("focusVisible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasResizeGrip", WindowHasResizeGripPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("hasToplevelFocus", WindowHasToplevelFocusPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hideTitlebarWhenMaximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("iconName", WindowIconNamePropertyInfo), '("isActive", WindowIsActivePropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isMaximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("mnemonicsVisible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resizeGripVisible", WindowResizeGripVisiblePropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skipPagerHint", WindowSkipPagerHintPropertyInfo), '("skipTaskbarHint", WindowSkipTaskbarHintPropertyInfo), '("startupId", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("transientFor", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("typeHint", WindowTypeHintPropertyInfo), '("urgencyHint", WindowUrgencyHintPropertyInfo), '("useHeaderBar", AssistantUseHeaderBarPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("windowPosition", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) +assistantUseHeaderBar :: AttrLabelProxy "useHeaderBar" +assistantUseHeaderBar = AttrLabelProxy + data AssistantApplySignalInfo instance SignalInfo AssistantApplySignalInfo where type HaskellCallbackType AssistantApplySignalInfo = AssistantApplyCallback @@ -968,7 +974,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "Assistant" +-- returnType : Just (TInterface "Gtk" "Assistant") -- throws : False -- Skip return : False @@ -989,7 +995,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1020,7 +1026,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1051,7 +1057,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1078,7 +1084,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1105,7 +1111,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1130,15 +1136,15 @@ -- method Assistant::get_nth_page -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_num", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False foreign import ccall "gtk_assistant_get_nth_page" gtk_assistant_get_nth_page :: Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant" - Int32 -> -- page_num : TBasicType TInt32 + Int32 -> -- page_num : TBasicType TInt IO (Ptr Widget) @@ -1163,7 +1169,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1195,7 +1201,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1227,7 +1233,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : False -- Skip return : False @@ -1260,7 +1266,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : False -- Skip return : False @@ -1293,7 +1299,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1326,7 +1332,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "AssistantPageType" +-- returnType : Just (TInterface "Gtk" "AssistantPageType") -- throws : False -- Skip return : False @@ -1356,16 +1362,16 @@ -- method Assistant::insert_page -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False foreign import ccall "gtk_assistant_insert_page" gtk_assistant_insert_page :: Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant" Ptr Widget -> -- page : TInterface "Gtk" "Widget" - Int32 -> -- position : TBasicType TInt32 + Int32 -> -- position : TBasicType TInt IO Int32 @@ -1391,7 +1397,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1418,7 +1424,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1449,7 +1455,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1476,7 +1482,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1505,15 +1511,15 @@ -- method Assistant::remove_page -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_num", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_assistant_remove_page" gtk_assistant_remove_page :: Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant" - Int32 -> -- page_num : TBasicType TInt32 + Int32 -> -- page_num : TBasicType TInt IO () @@ -1534,15 +1540,15 @@ -- method Assistant::set_current_page -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_num", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_assistant_set_current_page" gtk_assistant_set_current_page :: Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant" - Int32 -> -- page_num : TBasicType TInt32 + Int32 -> -- page_num : TBasicType TInt IO () @@ -1563,16 +1569,16 @@ -- method Assistant::set_forward_page_func -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_func", argType = TInterface "Gtk" "AssistantPageFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_func", argType = TInterface "Gtk" "AssistantPageFunc", direction = DirectionIn, mayBeNull = True, 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 = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_assistant_set_forward_page_func" gtk_assistant_set_forward_page_func :: Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant" FunPtr AssistantPageFuncC -> -- page_func : TInterface "Gtk" "AssistantPageFunc" - Ptr () -> -- data : TBasicType TVoid + Ptr () -> -- data : TBasicType TPtr FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" IO () @@ -1603,7 +1609,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "complete", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1637,7 +1643,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "has_padding", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1671,7 +1677,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1710,7 +1716,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1749,7 +1755,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface "Gtk" "Widget", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1784,7 +1790,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gtk" "AssistantPageType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1818,7 +1824,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/Assistant.hs-boot b/GI/Gtk/Objects/Assistant.hs-boot --- a/GI/Gtk/Objects/Assistant.hs-boot +++ b/GI/Gtk/Objects/Assistant.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.Assistant where -import Prelude () 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 diff --git a/GI/Gtk/Objects/Bin.hs b/GI/Gtk/Objects/Bin.hs --- a/GI/Gtk/Objects/Bin.hs +++ b/GI/Gtk/Objects/Bin.hs @@ -26,9 +26,9 @@ ) where -import Prelude () 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 @@ -392,7 +392,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Bin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/Bin.hs-boot b/GI/Gtk/Objects/Bin.hs-boot --- a/GI/Gtk/Objects/Bin.hs-boot +++ b/GI/Gtk/Objects/Bin.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.Bin where -import Prelude () 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 diff --git a/GI/Gtk/Objects/BooleanCellAccessible.hs b/GI/Gtk/Objects/BooleanCellAccessible.hs --- a/GI/Gtk/Objects/BooleanCellAccessible.hs +++ b/GI/Gtk/Objects/BooleanCellAccessible.hs @@ -18,9 +18,9 @@ ) where -import Prelude () 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 diff --git a/GI/Gtk/Objects/BooleanCellAccessible.hs-boot b/GI/Gtk/Objects/BooleanCellAccessible.hs-boot --- a/GI/Gtk/Objects/BooleanCellAccessible.hs-boot +++ b/GI/Gtk/Objects/BooleanCellAccessible.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.BooleanCellAccessible where -import Prelude () 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 diff --git a/GI/Gtk/Objects/Box.hs b/GI/Gtk/Objects/Box.hs --- a/GI/Gtk/Objects/Box.hs +++ b/GI/Gtk/Objects/Box.hs @@ -91,6 +91,7 @@ -- * Properties -- ** BaselinePosition BoxBaselinePositionPropertyInfo , + boxBaselinePosition , constructBoxBaselinePosition , getBoxBaselinePosition , setBoxBaselinePosition , @@ -98,6 +99,7 @@ -- ** Homogeneous BoxHomogeneousPropertyInfo , + boxHomogeneous , constructBoxHomogeneous , getBoxHomogeneous , setBoxHomogeneous , @@ -105,6 +107,7 @@ -- ** Spacing BoxSpacingPropertyInfo , + boxSpacing , constructBoxSpacing , getBoxSpacing , setBoxSpacing , @@ -114,9 +117,9 @@ ) where -import Prelude () 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 @@ -487,6 +490,7 @@ -- VVV Prop "baseline-position" -- Type: TInterface "Gtk" "BaselinePosition" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getBoxBaselinePosition :: (MonadIO m, BoxK o) => o -> m BaselinePosition getBoxBaselinePosition obj = liftIO $ getObjectPropertyEnum obj "baseline-position" @@ -507,10 +511,12 @@ attrGet _ = getBoxBaselinePosition attrSet _ = setBoxBaselinePosition attrConstruct _ = constructBoxBaselinePosition + attrClear _ = undefined -- VVV Prop "homogeneous" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getBoxHomogeneous :: (MonadIO m, BoxK o) => o -> m Bool getBoxHomogeneous obj = liftIO $ getObjectPropertyBool obj "homogeneous" @@ -531,19 +537,21 @@ attrGet _ = getBoxHomogeneous attrSet _ = setBoxHomogeneous attrConstruct _ = constructBoxHomogeneous + attrClear _ = undefined -- VVV Prop "spacing" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getBoxSpacing :: (MonadIO m, BoxK o) => o -> m Int32 -getBoxSpacing obj = liftIO $ getObjectPropertyCInt obj "spacing" +getBoxSpacing obj = liftIO $ getObjectPropertyInt32 obj "spacing" setBoxSpacing :: (MonadIO m, BoxK o) => o -> Int32 -> m () -setBoxSpacing obj val = liftIO $ setObjectPropertyCInt obj "spacing" val +setBoxSpacing obj val = liftIO $ setObjectPropertyInt32 obj "spacing" val constructBoxSpacing :: Int32 -> IO ([Char], GValue) -constructBoxSpacing val = constructObjectPropertyCInt "spacing" val +constructBoxSpacing val = constructObjectPropertyInt32 "spacing" val data BoxSpacingPropertyInfo instance AttrInfo BoxSpacingPropertyInfo where @@ -555,24 +563,34 @@ attrGet _ = getBoxSpacing attrSet _ = setBoxSpacing attrConstruct _ = constructBoxSpacing + attrClear _ = undefined type instance AttributeList Box = BoxAttributeList type BoxAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("baselinePosition", BoxBaselinePositionPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +boxBaselinePosition :: AttrLabelProxy "baselinePosition" +boxBaselinePosition = AttrLabelProxy + +boxHomogeneous :: AttrLabelProxy "homogeneous" +boxHomogeneous = AttrLabelProxy + +boxSpacing :: AttrLabelProxy "spacing" +boxSpacing = AttrLabelProxy + type instance SignalList Box = BoxSignalList type BoxSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method Box::new -- method type : Constructor --- Args : [Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Box" +-- returnType : Just (TInterface "Gtk" "Box") -- throws : False -- Skip return : False foreign import ccall "gtk_box_new" gtk_box_new :: CUInt -> -- orientation : TInterface "Gtk" "Orientation" - Int32 -> -- spacing : TBasicType TInt32 + Int32 -> -- spacing : TBasicType TInt IO (Ptr Box) @@ -592,7 +610,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "BaselinePosition" +-- returnType : Just (TInterface "Gtk" "BaselinePosition") -- throws : False -- Skip return : False @@ -620,7 +638,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -649,7 +667,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -677,7 +695,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -702,9 +720,9 @@ -- method Box::pack_end -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fill", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "padding", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fill", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "padding", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -713,7 +731,7 @@ Ptr Widget -> -- child : TInterface "Gtk" "Widget" CInt -> -- expand : TBasicType TBoolean CInt -> -- fill : TBasicType TBoolean - Word32 -> -- padding : TBasicType TUInt32 + Word32 -> -- padding : TBasicType TUInt IO () @@ -741,9 +759,9 @@ -- method Box::pack_start -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fill", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "padding", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fill", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "padding", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -752,7 +770,7 @@ Ptr Widget -> -- child : TInterface "Gtk" "Widget" CInt -> -- expand : TBasicType TBoolean CInt -> -- fill : TBasicType TBoolean - Word32 -> -- padding : TBasicType TUInt32 + Word32 -> -- padding : TBasicType TUInt IO () @@ -780,9 +798,9 @@ -- method Box::query_child_packing -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "fill", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "padding", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "pack_type", argType = TInterface "Gtk" "PackType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "fill", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "padding", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "pack_type", argType = TInterface "Gtk" "PackType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -791,7 +809,7 @@ Ptr Widget -> -- child : TInterface "Gtk" "Widget" Ptr CInt -> -- expand : TBasicType TBoolean Ptr CInt -> -- fill : TBasicType TBoolean - Ptr Word32 -> -- padding : TBasicType TUInt32 + Ptr Word32 -> -- padding : TBasicType TUInt Ptr CUInt -> -- pack_type : TInterface "Gtk" "PackType" IO () @@ -830,16 +848,16 @@ -- method Box::reorder_child -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_box_reorder_child" gtk_box_reorder_child :: Ptr Box -> -- _obj : TInterface "Gtk" "Box" Ptr Widget -> -- child : TInterface "Gtk" "Widget" - Int32 -> -- position : TBasicType TInt32 + Int32 -> -- position : TBasicType TInt IO () @@ -865,7 +883,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TInterface "Gtk" "BaselinePosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -895,7 +913,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -928,9 +946,9 @@ -- method Box::set_child_packing -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fill", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "padding", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pack_type", argType = TInterface "Gtk" "PackType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fill", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "padding", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pack_type", argType = TInterface "Gtk" "PackType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -939,7 +957,7 @@ Ptr Widget -> -- child : TInterface "Gtk" "Widget" CInt -> -- expand : TBasicType TBoolean CInt -> -- fill : TBasicType TBoolean - Word32 -> -- padding : TBasicType TUInt32 + Word32 -> -- padding : TBasicType TUInt CUInt -> -- pack_type : TInterface "Gtk" "PackType" IO () @@ -972,7 +990,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1000,15 +1018,15 @@ -- method Box::set_spacing -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_box_set_spacing" gtk_box_set_spacing :: Ptr Box -> -- _obj : TInterface "Gtk" "Box" - Int32 -> -- spacing : TBasicType TInt32 + Int32 -> -- spacing : TBasicType TInt IO () diff --git a/GI/Gtk/Objects/Box.hs-boot b/GI/Gtk/Objects/Box.hs-boot --- a/GI/Gtk/Objects/Box.hs-boot +++ b/GI/Gtk/Objects/Box.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.Box where -import Prelude () 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 diff --git a/GI/Gtk/Objects/Builder.hs b/GI/Gtk/Objects/Builder.hs --- a/GI/Gtk/Objects/Builder.hs +++ b/GI/Gtk/Objects/Builder.hs @@ -133,6 +133,8 @@ -- * Properties -- ** TranslationDomain BuilderTranslationDomainPropertyInfo , + builderTranslationDomain , + clearBuilderTranslationDomain , constructBuilderTranslationDomain , getBuilderTranslationDomain , setBuilderTranslationDomain , @@ -142,9 +144,9 @@ ) where -import Prelude () 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 @@ -229,19 +231,23 @@ -- VVV Prop "translation-domain" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) getBuilderTranslationDomain :: (MonadIO m, BuilderK o) => o -> m T.Text -getBuilderTranslationDomain obj = liftIO $ getObjectPropertyString obj "translation-domain" +getBuilderTranslationDomain obj = liftIO $ checkUnexpectedNothing "getBuilderTranslationDomain" $ getObjectPropertyString obj "translation-domain" setBuilderTranslationDomain :: (MonadIO m, BuilderK o) => o -> T.Text -> m () -setBuilderTranslationDomain obj val = liftIO $ setObjectPropertyString obj "translation-domain" val +setBuilderTranslationDomain obj val = liftIO $ setObjectPropertyString obj "translation-domain" (Just val) constructBuilderTranslationDomain :: T.Text -> IO ([Char], GValue) -constructBuilderTranslationDomain val = constructObjectPropertyString "translation-domain" val +constructBuilderTranslationDomain val = constructObjectPropertyString "translation-domain" (Just val) +clearBuilderTranslationDomain :: (MonadIO m, BuilderK o) => o -> m () +clearBuilderTranslationDomain obj = liftIO $ setObjectPropertyString obj "translation-domain" (Nothing :: Maybe T.Text) + data BuilderTranslationDomainPropertyInfo instance AttrInfo BuilderTranslationDomainPropertyInfo where - type AttrAllowedOps BuilderTranslationDomainPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps BuilderTranslationDomainPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint BuilderTranslationDomainPropertyInfo = (~) T.Text type AttrBaseTypeConstraint BuilderTranslationDomainPropertyInfo = BuilderK type AttrGetType BuilderTranslationDomainPropertyInfo = T.Text @@ -249,10 +255,14 @@ attrGet _ = getBuilderTranslationDomain attrSet _ = setBuilderTranslationDomain attrConstruct _ = constructBuilderTranslationDomain + attrClear _ = clearBuilderTranslationDomain type instance AttributeList Builder = BuilderAttributeList type BuilderAttributeList = ('[ '("translationDomain", BuilderTranslationDomainPropertyInfo)] :: [(Symbol, *)]) +builderTranslationDomain :: AttrLabelProxy "translationDomain" +builderTranslationDomain = AttrLabelProxy + type instance SignalList Builder = BuilderSignalList type BuilderSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -260,7 +270,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "Builder" +-- returnType : Just (TInterface "Gtk" "Builder") -- throws : False -- Skip return : False @@ -281,7 +291,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Builder" +-- returnType : Just (TInterface "Gtk" "Builder") -- throws : False -- Skip return : False @@ -306,7 +316,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Builder" +-- returnType : Just (TInterface "Gtk" "Builder") -- throws : False -- Skip return : False @@ -331,7 +341,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Builder" +-- returnType : Just (TInterface "Gtk" "Builder") -- throws : False -- Skip return : False @@ -358,7 +368,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback_symbol", argType = TInterface "GObject" "Callback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -394,7 +404,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt32 +-- returnType : Just (TBasicType TUInt) -- throws : True -- Skip return : False @@ -430,7 +440,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt32 +-- returnType : Just (TBasicType TUInt) -- throws : True -- Skip return : False @@ -466,7 +476,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt32 +-- returnType : Just (TBasicType TUInt) -- throws : True -- Skip return : False @@ -504,7 +514,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_ids", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt32 +-- returnType : Just (TBasicType TUInt) -- throws : True -- Skip return : False @@ -547,7 +557,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_ids", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt32 +-- returnType : Just (TBasicType TUInt) -- throws : True -- Skip return : False @@ -590,7 +600,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_ids", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt32 +-- returnType : Just (TBasicType TUInt) -- throws : True -- Skip return : False @@ -633,15 +643,15 @@ -- method Builder::connect_signals -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_builder_connect_signals" gtk_builder_connect_signals :: Ptr Builder -> -- _obj : TInterface "Gtk" "Builder" - Ptr () -> -- user_data : TBasicType TVoid + Ptr () -> -- user_data : TBasicType TPtr IO () @@ -662,16 +672,16 @@ -- method Builder::connect_signals_full -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "BuilderConnectFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "BuilderConnectFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_builder_connect_signals_full" gtk_builder_connect_signals_full :: Ptr Builder -> -- _obj : TInterface "Gtk" "Builder" FunPtr BuilderConnectFuncC -> -- func : TInterface "Gtk" "BuilderConnectFunc" - Ptr () -> -- user_data : TBasicType TVoid + Ptr () -> -- user_data : TBasicType TPtr IO () @@ -697,7 +707,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", 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 = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -732,7 +742,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Application" +-- returnType : Just (TInterface "Gtk" "Application") -- throws : False -- Skip return : False @@ -761,7 +771,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", 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 : TInterface "GObject" "Object" +-- returnType : Just (TInterface "GObject" "Object") -- throws : False -- Skip return : False @@ -794,7 +804,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TGSList (TInterface "GObject" "Object") +-- returnType : Just (TGSList (TInterface "GObject" "Object")) -- throws : False -- Skip return : False @@ -810,7 +820,6 @@ builderGetObjects _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_builder_get_objects _obj' - checkUnexpectedReturnNULL "gtk_builder_get_objects" result result' <- unpackGSList result result'' <- mapM (newObject GObject.Object) result' g_slist_free result @@ -825,7 +834,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -854,7 +863,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TGType +-- returnType : Just (TBasicType TGType) -- throws : False -- Skip return : False @@ -886,7 +895,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "application", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -917,7 +926,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -952,7 +961,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "string", 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 = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -995,7 +1004,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "string", 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 = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False diff --git a/GI/Gtk/Objects/Builder.hs-boot b/GI/Gtk/Objects/Builder.hs-boot --- a/GI/Gtk/Objects/Builder.hs-boot +++ b/GI/Gtk/Objects/Builder.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.Builder where -import Prelude () 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 diff --git a/GI/Gtk/Objects/Button.hs b/GI/Gtk/Objects/Button.hs --- a/GI/Gtk/Objects/Button.hs +++ b/GI/Gtk/Objects/Button.hs @@ -162,6 +162,7 @@ -- * Properties -- ** AlwaysShowImage ButtonAlwaysShowImagePropertyInfo , + buttonAlwaysShowImage , constructButtonAlwaysShowImage , getButtonAlwaysShowImage , setButtonAlwaysShowImage , @@ -169,6 +170,7 @@ -- ** FocusOnClick ButtonFocusOnClickPropertyInfo , + buttonFocusOnClick , constructButtonFocusOnClick , getButtonFocusOnClick , setButtonFocusOnClick , @@ -176,6 +178,7 @@ -- ** Image ButtonImagePropertyInfo , + buttonImage , constructButtonImage , getButtonImage , setButtonImage , @@ -183,6 +186,7 @@ -- ** ImagePosition ButtonImagePositionPropertyInfo , + buttonImagePosition , constructButtonImagePosition , getButtonImagePosition , setButtonImagePosition , @@ -190,6 +194,7 @@ -- ** Label ButtonLabelPropertyInfo , + buttonLabel , constructButtonLabel , getButtonLabel , setButtonLabel , @@ -197,6 +202,7 @@ -- ** Relief ButtonReliefPropertyInfo , + buttonRelief , constructButtonRelief , getButtonRelief , setButtonRelief , @@ -204,6 +210,7 @@ -- ** UseStock ButtonUseStockPropertyInfo , + buttonUseStock , constructButtonUseStock , getButtonUseStock , setButtonUseStock , @@ -211,6 +218,7 @@ -- ** UseUnderline ButtonUseUnderlinePropertyInfo , + buttonUseUnderline , constructButtonUseUnderline , getButtonUseUnderline , setButtonUseUnderline , @@ -218,6 +226,7 @@ -- ** Xalign ButtonXalignPropertyInfo , + buttonXalign , constructButtonXalign , getButtonXalign , setButtonXalign , @@ -225,6 +234,7 @@ -- ** Yalign ButtonYalignPropertyInfo , + buttonYalign , constructButtonYalign , getButtonYalign , setButtonYalign , @@ -309,9 +319,9 @@ ) where -import Prelude () 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 @@ -932,6 +942,7 @@ -- VVV Prop "always-show-image" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Just False,Just False) getButtonAlwaysShowImage :: (MonadIO m, ButtonK o) => o -> m Bool getButtonAlwaysShowImage obj = liftIO $ getObjectPropertyBool obj "always-show-image" @@ -952,10 +963,12 @@ attrGet _ = getButtonAlwaysShowImage attrSet _ = setButtonAlwaysShowImage attrConstruct _ = constructButtonAlwaysShowImage + attrClear _ = undefined -- VVV Prop "focus-on-click" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getButtonFocusOnClick :: (MonadIO m, ButtonK o) => o -> m Bool getButtonFocusOnClick obj = liftIO $ getObjectPropertyBool obj "focus-on-click" @@ -976,19 +989,21 @@ attrGet _ = getButtonFocusOnClick attrSet _ = setButtonFocusOnClick attrConstruct _ = constructButtonFocusOnClick + attrClear _ = undefined -- VVV Prop "image" -- Type: TInterface "Gtk" "Widget" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getButtonImage :: (MonadIO m, ButtonK o) => o -> m Widget -getButtonImage obj = liftIO $ getObjectPropertyObject obj "image" Widget +getButtonImage obj = liftIO $ checkUnexpectedNothing "getButtonImage" $ getObjectPropertyObject obj "image" Widget setButtonImage :: (MonadIO m, ButtonK o, WidgetK a) => o -> a -> m () -setButtonImage obj val = liftIO $ setObjectPropertyObject obj "image" val +setButtonImage obj val = liftIO $ setObjectPropertyObject obj "image" (Just val) constructButtonImage :: (WidgetK a) => a -> IO ([Char], GValue) -constructButtonImage val = constructObjectPropertyObject "image" val +constructButtonImage val = constructObjectPropertyObject "image" (Just val) data ButtonImagePropertyInfo instance AttrInfo ButtonImagePropertyInfo where @@ -1000,10 +1015,12 @@ attrGet _ = getButtonImage attrSet _ = setButtonImage attrConstruct _ = constructButtonImage + attrClear _ = undefined -- VVV Prop "image-position" -- Type: TInterface "Gtk" "PositionType" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getButtonImagePosition :: (MonadIO m, ButtonK o) => o -> m PositionType getButtonImagePosition obj = liftIO $ getObjectPropertyEnum obj "image-position" @@ -1024,19 +1041,21 @@ attrGet _ = getButtonImagePosition attrSet _ = setButtonImagePosition attrConstruct _ = constructButtonImagePosition + attrClear _ = undefined -- VVV Prop "label" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Just False,Just False) getButtonLabel :: (MonadIO m, ButtonK o) => o -> m T.Text -getButtonLabel obj = liftIO $ getObjectPropertyString obj "label" +getButtonLabel obj = liftIO $ checkUnexpectedNothing "getButtonLabel" $ getObjectPropertyString obj "label" setButtonLabel :: (MonadIO m, ButtonK o) => o -> T.Text -> m () -setButtonLabel obj val = liftIO $ setObjectPropertyString obj "label" val +setButtonLabel obj val = liftIO $ setObjectPropertyString obj "label" (Just val) constructButtonLabel :: T.Text -> IO ([Char], GValue) -constructButtonLabel val = constructObjectPropertyString "label" val +constructButtonLabel val = constructObjectPropertyString "label" (Just val) data ButtonLabelPropertyInfo instance AttrInfo ButtonLabelPropertyInfo where @@ -1048,10 +1067,12 @@ attrGet _ = getButtonLabel attrSet _ = setButtonLabel attrConstruct _ = constructButtonLabel + attrClear _ = undefined -- VVV Prop "relief" -- Type: TInterface "Gtk" "ReliefStyle" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getButtonRelief :: (MonadIO m, ButtonK o) => o -> m ReliefStyle getButtonRelief obj = liftIO $ getObjectPropertyEnum obj "relief" @@ -1072,10 +1093,12 @@ attrGet _ = getButtonRelief attrSet _ = setButtonRelief attrConstruct _ = constructButtonRelief + attrClear _ = undefined -- VVV Prop "use-stock" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Just False,Just False) getButtonUseStock :: (MonadIO m, ButtonK o) => o -> m Bool getButtonUseStock obj = liftIO $ getObjectPropertyBool obj "use-stock" @@ -1096,10 +1119,12 @@ attrGet _ = getButtonUseStock attrSet _ = setButtonUseStock attrConstruct _ = constructButtonUseStock + attrClear _ = undefined -- VVV Prop "use-underline" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Just False,Just False) getButtonUseUnderline :: (MonadIO m, ButtonK o) => o -> m Bool getButtonUseUnderline obj = liftIO $ getObjectPropertyBool obj "use-underline" @@ -1120,10 +1145,12 @@ attrGet _ = getButtonUseUnderline attrSet _ = setButtonUseUnderline attrConstruct _ = constructButtonUseUnderline + attrClear _ = undefined -- VVV Prop "xalign" -- Type: TBasicType TFloat -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getButtonXalign :: (MonadIO m, ButtonK o) => o -> m Float getButtonXalign obj = liftIO $ getObjectPropertyFloat obj "xalign" @@ -1144,10 +1171,12 @@ attrGet _ = getButtonXalign attrSet _ = setButtonXalign attrConstruct _ = constructButtonXalign + attrClear _ = undefined -- VVV Prop "yalign" -- Type: TBasicType TFloat -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getButtonYalign :: (MonadIO m, ButtonK o) => o -> m Float getButtonYalign obj = liftIO $ getObjectPropertyFloat obj "yalign" @@ -1168,10 +1197,41 @@ attrGet _ = getButtonYalign attrSet _ = setButtonYalign attrConstruct _ = constructButtonYalign + attrClear _ = undefined type instance AttributeList Button = ButtonAttributeList type ButtonAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("alwaysShowImage", ButtonAlwaysShowImagePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnClick", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("image", ButtonImagePropertyInfo), '("imagePosition", ButtonImagePositionPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useStock", ButtonUseStockPropertyInfo), '("useUnderline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) +buttonAlwaysShowImage :: AttrLabelProxy "alwaysShowImage" +buttonAlwaysShowImage = AttrLabelProxy + +buttonFocusOnClick :: AttrLabelProxy "focusOnClick" +buttonFocusOnClick = AttrLabelProxy + +buttonImage :: AttrLabelProxy "image" +buttonImage = AttrLabelProxy + +buttonImagePosition :: AttrLabelProxy "imagePosition" +buttonImagePosition = AttrLabelProxy + +buttonLabel :: AttrLabelProxy "label" +buttonLabel = AttrLabelProxy + +buttonRelief :: AttrLabelProxy "relief" +buttonRelief = AttrLabelProxy + +buttonUseStock :: AttrLabelProxy "useStock" +buttonUseStock = AttrLabelProxy + +buttonUseUnderline :: AttrLabelProxy "useUnderline" +buttonUseUnderline = AttrLabelProxy + +buttonXalign :: AttrLabelProxy "xalign" +buttonXalign = AttrLabelProxy + +buttonYalign :: AttrLabelProxy "yalign" +buttonYalign = AttrLabelProxy + data ButtonActivateSignalInfo instance SignalInfo ButtonActivateSignalInfo where type HaskellCallbackType ButtonActivateSignalInfo = ButtonActivateCallback @@ -1209,7 +1269,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "Button" +-- returnType : Just (TInterface "Gtk" "Button") -- throws : False -- Skip return : False @@ -1228,15 +1288,15 @@ -- method Button::new_from_icon_name -- method type : Constructor --- Args : [Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Button" +-- returnType : Just (TInterface "Gtk" "Button") -- throws : False -- Skip return : False foreign import ccall "gtk_button_new_from_icon_name" gtk_button_new_from_icon_name :: CString -> -- icon_name : TBasicType TUTF8 - Int32 -> -- size : TBasicType TInt32 + Int32 -> -- size : TBasicType TInt IO (Ptr Button) @@ -1257,7 +1317,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Button" +-- returnType : Just (TInterface "Gtk" "Button") -- throws : False -- Skip return : False @@ -1282,7 +1342,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Button" +-- returnType : Just (TInterface "Gtk" "Button") -- throws : False -- Skip return : False @@ -1307,7 +1367,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Button" +-- returnType : Just (TInterface "Gtk" "Button") -- throws : False -- Skip return : False @@ -1332,7 +1392,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1359,7 +1419,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1386,7 +1446,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "yalign", argType = TBasicType TFloat, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1423,7 +1483,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1451,7 +1511,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gdk" "Window" +-- returnType : Just (TInterface "Gdk" "Window") -- throws : False -- Skip return : False @@ -1480,7 +1540,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1508,7 +1568,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -1537,7 +1597,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "PositionType" +-- returnType : Just (TInterface "Gtk" "PositionType") -- throws : False -- Skip return : False @@ -1565,7 +1625,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1594,7 +1654,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "ReliefStyle" +-- returnType : Just (TInterface "Gtk" "ReliefStyle") -- throws : False -- Skip return : False @@ -1622,7 +1682,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1650,7 +1710,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1678,7 +1738,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1705,7 +1765,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1732,7 +1792,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1759,7 +1819,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1792,7 +1852,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "always_show", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1822,7 +1882,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "focus_on_click", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1852,7 +1912,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "image", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1883,7 +1943,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1913,7 +1973,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1944,7 +2004,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "relief", argType = TInterface "Gtk" "ReliefStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1974,7 +2034,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_stock", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2004,7 +2064,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_underline", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/Button.hs-boot b/GI/Gtk/Objects/Button.hs-boot --- a/GI/Gtk/Objects/Button.hs-boot +++ b/GI/Gtk/Objects/Button.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.Button where -import Prelude () 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 diff --git a/GI/Gtk/Objects/ButtonAccessible.hs b/GI/Gtk/Objects/ButtonAccessible.hs --- a/GI/Gtk/Objects/ButtonAccessible.hs +++ b/GI/Gtk/Objects/ButtonAccessible.hs @@ -18,9 +18,9 @@ ) where -import Prelude () 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 diff --git a/GI/Gtk/Objects/ButtonAccessible.hs-boot b/GI/Gtk/Objects/ButtonAccessible.hs-boot --- a/GI/Gtk/Objects/ButtonAccessible.hs-boot +++ b/GI/Gtk/Objects/ButtonAccessible.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.ButtonAccessible where -import Prelude () 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 diff --git a/GI/Gtk/Objects/ButtonBox.hs b/GI/Gtk/Objects/ButtonBox.hs --- a/GI/Gtk/Objects/ButtonBox.hs +++ b/GI/Gtk/Objects/ButtonBox.hs @@ -56,6 +56,7 @@ -- * Properties -- ** LayoutStyle ButtonBoxLayoutStylePropertyInfo , + buttonBoxLayoutStyle , constructButtonBoxLayoutStyle , getButtonBoxLayoutStyle , setButtonBoxLayoutStyle , @@ -65,9 +66,9 @@ ) where -import Prelude () 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 @@ -444,6 +445,7 @@ -- VVV Prop "layout-style" -- Type: TInterface "Gtk" "ButtonBoxStyle" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getButtonBoxLayoutStyle :: (MonadIO m, ButtonBoxK o) => o -> m ButtonBoxStyle getButtonBoxLayoutStyle obj = liftIO $ getObjectPropertyEnum obj "layout-style" @@ -464,10 +466,14 @@ attrGet _ = getButtonBoxLayoutStyle attrSet _ = setButtonBoxLayoutStyle attrConstruct _ = constructButtonBoxLayoutStyle + attrClear _ = undefined type instance AttributeList ButtonBox = ButtonBoxAttributeList type ButtonBoxAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("baselinePosition", BoxBaselinePositionPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("layoutStyle", ButtonBoxLayoutStylePropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +buttonBoxLayoutStyle :: AttrLabelProxy "layoutStyle" +buttonBoxLayoutStyle = AttrLabelProxy + type instance SignalList ButtonBox = ButtonBoxSignalList type ButtonBoxSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -475,7 +481,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "ButtonBox" +-- returnType : Just (TInterface "Gtk" "ButtonBox") -- throws : False -- Skip return : False @@ -499,7 +505,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ButtonBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -531,7 +537,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ButtonBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -563,7 +569,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ButtonBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "ButtonBoxStyle" +-- returnType : Just (TInterface "Gtk" "ButtonBoxStyle") -- throws : False -- Skip return : False @@ -591,7 +597,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ButtonBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "non_homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -625,7 +631,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ButtonBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_secondary", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -659,7 +665,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ButtonBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "layout_style", argType = TInterface "Gtk" "ButtonBoxStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/ButtonBox.hs-boot b/GI/Gtk/Objects/ButtonBox.hs-boot --- a/GI/Gtk/Objects/ButtonBox.hs-boot +++ b/GI/Gtk/Objects/ButtonBox.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.ButtonBox where -import Prelude () 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 diff --git a/GI/Gtk/Objects/Calendar.hs b/GI/Gtk/Objects/Calendar.hs --- a/GI/Gtk/Objects/Calendar.hs +++ b/GI/Gtk/Objects/Calendar.hs @@ -96,6 +96,7 @@ -- * Properties -- ** Day CalendarDayPropertyInfo , + calendarDay , constructCalendarDay , getCalendarDay , setCalendarDay , @@ -103,6 +104,7 @@ -- ** DetailHeightRows CalendarDetailHeightRowsPropertyInfo , + calendarDetailHeightRows , constructCalendarDetailHeightRows , getCalendarDetailHeightRows , setCalendarDetailHeightRows , @@ -110,6 +112,7 @@ -- ** DetailWidthChars CalendarDetailWidthCharsPropertyInfo , + calendarDetailWidthChars , constructCalendarDetailWidthChars , getCalendarDetailWidthChars , setCalendarDetailWidthChars , @@ -117,6 +120,7 @@ -- ** Month CalendarMonthPropertyInfo , + calendarMonth , constructCalendarMonth , getCalendarMonth , setCalendarMonth , @@ -124,6 +128,7 @@ -- ** NoMonthChange CalendarNoMonthChangePropertyInfo , + calendarNoMonthChange , constructCalendarNoMonthChange , getCalendarNoMonthChange , setCalendarNoMonthChange , @@ -131,6 +136,7 @@ -- ** ShowDayNames CalendarShowDayNamesPropertyInfo , + calendarShowDayNames , constructCalendarShowDayNames , getCalendarShowDayNames , setCalendarShowDayNames , @@ -138,6 +144,7 @@ -- ** ShowDetails CalendarShowDetailsPropertyInfo , + calendarShowDetails , constructCalendarShowDetails , getCalendarShowDetails , setCalendarShowDetails , @@ -145,6 +152,7 @@ -- ** ShowHeading CalendarShowHeadingPropertyInfo , + calendarShowHeading , constructCalendarShowHeading , getCalendarShowHeading , setCalendarShowHeading , @@ -152,6 +160,7 @@ -- ** ShowWeekNumbers CalendarShowWeekNumbersPropertyInfo , + calendarShowWeekNumbers , constructCalendarShowWeekNumbers , getCalendarShowWeekNumbers , setCalendarShowWeekNumbers , @@ -159,6 +168,7 @@ -- ** Year CalendarYearPropertyInfo , + calendarYear , constructCalendarYear , getCalendarYear , setCalendarYear , @@ -255,9 +265,9 @@ ) where -import Prelude () 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 @@ -866,17 +876,18 @@ connectSignalFunPtr obj "prev-year" cb' after -- VVV Prop "day" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCalendarDay :: (MonadIO m, CalendarK o) => o -> m Int32 -getCalendarDay obj = liftIO $ getObjectPropertyCInt obj "day" +getCalendarDay obj = liftIO $ getObjectPropertyInt32 obj "day" setCalendarDay :: (MonadIO m, CalendarK o) => o -> Int32 -> m () -setCalendarDay obj val = liftIO $ setObjectPropertyCInt obj "day" val +setCalendarDay obj val = liftIO $ setObjectPropertyInt32 obj "day" val constructCalendarDay :: Int32 -> IO ([Char], GValue) -constructCalendarDay val = constructObjectPropertyCInt "day" val +constructCalendarDay val = constructObjectPropertyInt32 "day" val data CalendarDayPropertyInfo instance AttrInfo CalendarDayPropertyInfo where @@ -888,19 +899,21 @@ attrGet _ = getCalendarDay attrSet _ = setCalendarDay attrConstruct _ = constructCalendarDay + attrClear _ = undefined -- VVV Prop "detail-height-rows" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getCalendarDetailHeightRows :: (MonadIO m, CalendarK o) => o -> m Int32 -getCalendarDetailHeightRows obj = liftIO $ getObjectPropertyCInt obj "detail-height-rows" +getCalendarDetailHeightRows obj = liftIO $ getObjectPropertyInt32 obj "detail-height-rows" setCalendarDetailHeightRows :: (MonadIO m, CalendarK o) => o -> Int32 -> m () -setCalendarDetailHeightRows obj val = liftIO $ setObjectPropertyCInt obj "detail-height-rows" val +setCalendarDetailHeightRows obj val = liftIO $ setObjectPropertyInt32 obj "detail-height-rows" val constructCalendarDetailHeightRows :: Int32 -> IO ([Char], GValue) -constructCalendarDetailHeightRows val = constructObjectPropertyCInt "detail-height-rows" val +constructCalendarDetailHeightRows val = constructObjectPropertyInt32 "detail-height-rows" val data CalendarDetailHeightRowsPropertyInfo instance AttrInfo CalendarDetailHeightRowsPropertyInfo where @@ -912,19 +925,21 @@ attrGet _ = getCalendarDetailHeightRows attrSet _ = setCalendarDetailHeightRows attrConstruct _ = constructCalendarDetailHeightRows + attrClear _ = undefined -- VVV Prop "detail-width-chars" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getCalendarDetailWidthChars :: (MonadIO m, CalendarK o) => o -> m Int32 -getCalendarDetailWidthChars obj = liftIO $ getObjectPropertyCInt obj "detail-width-chars" +getCalendarDetailWidthChars obj = liftIO $ getObjectPropertyInt32 obj "detail-width-chars" setCalendarDetailWidthChars :: (MonadIO m, CalendarK o) => o -> Int32 -> m () -setCalendarDetailWidthChars obj val = liftIO $ setObjectPropertyCInt obj "detail-width-chars" val +setCalendarDetailWidthChars obj val = liftIO $ setObjectPropertyInt32 obj "detail-width-chars" val constructCalendarDetailWidthChars :: Int32 -> IO ([Char], GValue) -constructCalendarDetailWidthChars val = constructObjectPropertyCInt "detail-width-chars" val +constructCalendarDetailWidthChars val = constructObjectPropertyInt32 "detail-width-chars" val data CalendarDetailWidthCharsPropertyInfo instance AttrInfo CalendarDetailWidthCharsPropertyInfo where @@ -936,19 +951,21 @@ attrGet _ = getCalendarDetailWidthChars attrSet _ = setCalendarDetailWidthChars attrConstruct _ = constructCalendarDetailWidthChars + attrClear _ = undefined -- VVV Prop "month" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCalendarMonth :: (MonadIO m, CalendarK o) => o -> m Int32 -getCalendarMonth obj = liftIO $ getObjectPropertyCInt obj "month" +getCalendarMonth obj = liftIO $ getObjectPropertyInt32 obj "month" setCalendarMonth :: (MonadIO m, CalendarK o) => o -> Int32 -> m () -setCalendarMonth obj val = liftIO $ setObjectPropertyCInt obj "month" val +setCalendarMonth obj val = liftIO $ setObjectPropertyInt32 obj "month" val constructCalendarMonth :: Int32 -> IO ([Char], GValue) -constructCalendarMonth val = constructObjectPropertyCInt "month" val +constructCalendarMonth val = constructObjectPropertyInt32 "month" val data CalendarMonthPropertyInfo instance AttrInfo CalendarMonthPropertyInfo where @@ -960,10 +977,12 @@ attrGet _ = getCalendarMonth attrSet _ = setCalendarMonth attrConstruct _ = constructCalendarMonth + attrClear _ = undefined -- VVV Prop "no-month-change" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCalendarNoMonthChange :: (MonadIO m, CalendarK o) => o -> m Bool getCalendarNoMonthChange obj = liftIO $ getObjectPropertyBool obj "no-month-change" @@ -984,10 +1003,12 @@ attrGet _ = getCalendarNoMonthChange attrSet _ = setCalendarNoMonthChange attrConstruct _ = constructCalendarNoMonthChange + attrClear _ = undefined -- VVV Prop "show-day-names" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCalendarShowDayNames :: (MonadIO m, CalendarK o) => o -> m Bool getCalendarShowDayNames obj = liftIO $ getObjectPropertyBool obj "show-day-names" @@ -1008,10 +1029,12 @@ attrGet _ = getCalendarShowDayNames attrSet _ = setCalendarShowDayNames attrConstruct _ = constructCalendarShowDayNames + attrClear _ = undefined -- VVV Prop "show-details" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCalendarShowDetails :: (MonadIO m, CalendarK o) => o -> m Bool getCalendarShowDetails obj = liftIO $ getObjectPropertyBool obj "show-details" @@ -1032,10 +1055,12 @@ attrGet _ = getCalendarShowDetails attrSet _ = setCalendarShowDetails attrConstruct _ = constructCalendarShowDetails + attrClear _ = undefined -- VVV Prop "show-heading" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCalendarShowHeading :: (MonadIO m, CalendarK o) => o -> m Bool getCalendarShowHeading obj = liftIO $ getObjectPropertyBool obj "show-heading" @@ -1056,10 +1081,12 @@ attrGet _ = getCalendarShowHeading attrSet _ = setCalendarShowHeading attrConstruct _ = constructCalendarShowHeading + attrClear _ = undefined -- VVV Prop "show-week-numbers" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCalendarShowWeekNumbers :: (MonadIO m, CalendarK o) => o -> m Bool getCalendarShowWeekNumbers obj = liftIO $ getObjectPropertyBool obj "show-week-numbers" @@ -1080,19 +1107,21 @@ attrGet _ = getCalendarShowWeekNumbers attrSet _ = setCalendarShowWeekNumbers attrConstruct _ = constructCalendarShowWeekNumbers + attrClear _ = undefined -- VVV Prop "year" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCalendarYear :: (MonadIO m, CalendarK o) => o -> m Int32 -getCalendarYear obj = liftIO $ getObjectPropertyCInt obj "year" +getCalendarYear obj = liftIO $ getObjectPropertyInt32 obj "year" setCalendarYear :: (MonadIO m, CalendarK o) => o -> Int32 -> m () -setCalendarYear obj val = liftIO $ setObjectPropertyCInt obj "year" val +setCalendarYear obj val = liftIO $ setObjectPropertyInt32 obj "year" val constructCalendarYear :: Int32 -> IO ([Char], GValue) -constructCalendarYear val = constructObjectPropertyCInt "year" val +constructCalendarYear val = constructObjectPropertyInt32 "year" val data CalendarYearPropertyInfo instance AttrInfo CalendarYearPropertyInfo where @@ -1104,10 +1133,41 @@ attrGet _ = getCalendarYear attrSet _ = setCalendarYear attrConstruct _ = constructCalendarYear + attrClear _ = undefined type instance AttributeList Calendar = CalendarAttributeList type CalendarAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("day", CalendarDayPropertyInfo), '("detailHeightRows", CalendarDetailHeightRowsPropertyInfo), '("detailWidthChars", CalendarDetailWidthCharsPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("month", CalendarMonthPropertyInfo), '("name", WidgetNamePropertyInfo), '("noMonthChange", CalendarNoMonthChangePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showDayNames", CalendarShowDayNamesPropertyInfo), '("showDetails", CalendarShowDetailsPropertyInfo), '("showHeading", CalendarShowHeadingPropertyInfo), '("showWeekNumbers", CalendarShowWeekNumbersPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("year", CalendarYearPropertyInfo)] :: [(Symbol, *)]) +calendarDay :: AttrLabelProxy "day" +calendarDay = AttrLabelProxy + +calendarDetailHeightRows :: AttrLabelProxy "detailHeightRows" +calendarDetailHeightRows = AttrLabelProxy + +calendarDetailWidthChars :: AttrLabelProxy "detailWidthChars" +calendarDetailWidthChars = AttrLabelProxy + +calendarMonth :: AttrLabelProxy "month" +calendarMonth = AttrLabelProxy + +calendarNoMonthChange :: AttrLabelProxy "noMonthChange" +calendarNoMonthChange = AttrLabelProxy + +calendarShowDayNames :: AttrLabelProxy "showDayNames" +calendarShowDayNames = AttrLabelProxy + +calendarShowDetails :: AttrLabelProxy "showDetails" +calendarShowDetails = AttrLabelProxy + +calendarShowHeading :: AttrLabelProxy "showHeading" +calendarShowHeading = AttrLabelProxy + +calendarShowWeekNumbers :: AttrLabelProxy "showWeekNumbers" +calendarShowWeekNumbers = AttrLabelProxy + +calendarYear :: AttrLabelProxy "year" +calendarYear = AttrLabelProxy + data CalendarDaySelectedSignalInfo instance SignalInfo CalendarDaySelectedSignalInfo where type HaskellCallbackType CalendarDaySelectedSignalInfo = CalendarDaySelectedCallback @@ -1150,7 +1210,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "Calendar" +-- returnType : Just (TInterface "Gtk" "Calendar") -- throws : False -- Skip return : False @@ -1171,7 +1231,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1196,17 +1256,17 @@ -- method Calendar::get_date -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "year", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "month", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "day", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "year", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "month", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "day", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_calendar_get_date" gtk_calendar_get_date :: Ptr Calendar -> -- _obj : TInterface "Gtk" "Calendar" - Ptr Word32 -> -- year : TBasicType TUInt32 - Ptr Word32 -> -- month : TBasicType TUInt32 - Ptr Word32 -> -- day : TBasicType TUInt32 + Ptr Word32 -> -- year : TBasicType TUInt + Ptr Word32 -> -- month : TBasicType TUInt + Ptr Word32 -> -- day : TBasicType TUInt IO () @@ -1235,15 +1295,15 @@ -- method Calendar::get_day_is_marked -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "day", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "day", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_calendar_get_day_is_marked" gtk_calendar_get_day_is_marked :: Ptr Calendar -> -- _obj : TInterface "Gtk" "Calendar" - Word32 -> -- day : TBasicType TUInt32 + Word32 -> -- day : TBasicType TUInt IO CInt @@ -1267,7 +1327,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1294,7 +1354,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1321,7 +1381,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "CalendarDisplayOptions" +-- returnType : Just (TInterface "Gtk" "CalendarDisplayOptions") -- throws : False -- Skip return : False @@ -1347,15 +1407,15 @@ -- method Calendar::mark_day -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "day", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "day", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_calendar_mark_day" gtk_calendar_mark_day :: Ptr Calendar -> -- _obj : TInterface "Gtk" "Calendar" - Word32 -> -- day : TBasicType TUInt32 + Word32 -> -- day : TBasicType TUInt IO () @@ -1376,15 +1436,15 @@ -- method Calendar::select_day -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "day", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "day", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_calendar_select_day" gtk_calendar_select_day :: Ptr Calendar -> -- _obj : TInterface "Gtk" "Calendar" - Word32 -> -- day : TBasicType TUInt32 + Word32 -> -- day : TBasicType TUInt IO () @@ -1405,16 +1465,16 @@ -- method Calendar::select_month -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "month", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "year", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "month", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "year", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_calendar_select_month" gtk_calendar_select_month :: Ptr Calendar -> -- _obj : TInterface "Gtk" "Calendar" - Word32 -> -- month : TBasicType TUInt32 - Word32 -> -- year : TBasicType TUInt32 + Word32 -> -- month : TBasicType TUInt + Word32 -> -- year : TBasicType TUInt IO () @@ -1436,16 +1496,16 @@ -- method Calendar::set_detail_func -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "CalendarDetailFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "CalendarDetailFunc", 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 = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_calendar_set_detail_func" gtk_calendar_set_detail_func :: Ptr Calendar -> -- _obj : TInterface "Gtk" "Calendar" FunPtr CalendarDetailFuncC -> -- func : TInterface "Gtk" "CalendarDetailFunc" - Ptr () -> -- data : TBasicType TVoid + Ptr () -> -- data : TBasicType TPtr FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" IO () @@ -1470,15 +1530,15 @@ -- method Calendar::set_detail_height_rows -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rows", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rows", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_calendar_set_detail_height_rows" gtk_calendar_set_detail_height_rows :: Ptr Calendar -> -- _obj : TInterface "Gtk" "Calendar" - Int32 -> -- rows : TBasicType TInt32 + Int32 -> -- rows : TBasicType TInt IO () @@ -1499,15 +1559,15 @@ -- method Calendar::set_detail_width_chars -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "chars", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_calendar_set_detail_width_chars" gtk_calendar_set_detail_width_chars :: Ptr Calendar -> -- _obj : TInterface "Gtk" "Calendar" - Int32 -> -- chars : TBasicType TInt32 + Int32 -> -- chars : TBasicType TInt IO () @@ -1530,7 +1590,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "CalendarDisplayOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1558,15 +1618,15 @@ -- method Calendar::unmark_day -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "day", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "day", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_calendar_unmark_day" gtk_calendar_unmark_day :: Ptr Calendar -> -- _obj : TInterface "Gtk" "Calendar" - Word32 -> -- day : TBasicType TUInt32 + Word32 -> -- day : TBasicType TUInt IO () diff --git a/GI/Gtk/Objects/Calendar.hs-boot b/GI/Gtk/Objects/Calendar.hs-boot --- a/GI/Gtk/Objects/Calendar.hs-boot +++ b/GI/Gtk/Objects/Calendar.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.Calendar where -import Prelude () 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 diff --git a/GI/Gtk/Objects/CellAccessible.hs b/GI/Gtk/Objects/CellAccessible.hs --- a/GI/Gtk/Objects/CellAccessible.hs +++ b/GI/Gtk/Objects/CellAccessible.hs @@ -18,9 +18,9 @@ ) where -import Prelude () 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 diff --git a/GI/Gtk/Objects/CellAccessible.hs-boot b/GI/Gtk/Objects/CellAccessible.hs-boot --- a/GI/Gtk/Objects/CellAccessible.hs-boot +++ b/GI/Gtk/Objects/CellAccessible.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.CellAccessible where -import Prelude () 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 diff --git a/GI/Gtk/Objects/CellArea.hs b/GI/Gtk/Objects/CellArea.hs --- a/GI/Gtk/Objects/CellArea.hs +++ b/GI/Gtk/Objects/CellArea.hs @@ -217,16 +217,19 @@ -- * Properties -- ** EditWidget CellAreaEditWidgetPropertyInfo , + cellAreaEditWidget , getCellAreaEditWidget , -- ** EditedCell CellAreaEditedCellPropertyInfo , + cellAreaEditedCell , getCellAreaEditedCell , -- ** FocusCell CellAreaFocusCellPropertyInfo , + cellAreaFocusCell , constructCellAreaFocusCell , getCellAreaFocusCell , setCellAreaFocusCell , @@ -287,9 +290,9 @@ ) where -import Prelude () 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 @@ -615,13 +618,14 @@ -- VVV Prop "edit-widget" -- Type: TInterface "Gtk" "CellEditable" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getCellAreaEditWidget :: (MonadIO m, CellAreaK o) => o -> m CellEditable -getCellAreaEditWidget obj = liftIO $ getObjectPropertyObject obj "edit-widget" CellEditable +getCellAreaEditWidget obj = liftIO $ checkUnexpectedNothing "getCellAreaEditWidget" $ getObjectPropertyObject obj "edit-widget" CellEditable data CellAreaEditWidgetPropertyInfo instance AttrInfo CellAreaEditWidgetPropertyInfo where - type AttrAllowedOps CellAreaEditWidgetPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps CellAreaEditWidgetPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint CellAreaEditWidgetPropertyInfo = (~) () type AttrBaseTypeConstraint CellAreaEditWidgetPropertyInfo = CellAreaK type AttrGetType CellAreaEditWidgetPropertyInfo = CellEditable @@ -629,17 +633,19 @@ attrGet _ = getCellAreaEditWidget attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "edited-cell" -- Type: TInterface "Gtk" "CellRenderer" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getCellAreaEditedCell :: (MonadIO m, CellAreaK o) => o -> m CellRenderer -getCellAreaEditedCell obj = liftIO $ getObjectPropertyObject obj "edited-cell" CellRenderer +getCellAreaEditedCell obj = liftIO $ checkUnexpectedNothing "getCellAreaEditedCell" $ getObjectPropertyObject obj "edited-cell" CellRenderer data CellAreaEditedCellPropertyInfo instance AttrInfo CellAreaEditedCellPropertyInfo where - type AttrAllowedOps CellAreaEditedCellPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps CellAreaEditedCellPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint CellAreaEditedCellPropertyInfo = (~) () type AttrBaseTypeConstraint CellAreaEditedCellPropertyInfo = CellAreaK type AttrGetType CellAreaEditedCellPropertyInfo = CellRenderer @@ -647,19 +653,21 @@ attrGet _ = getCellAreaEditedCell attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "focus-cell" -- Type: TInterface "Gtk" "CellRenderer" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getCellAreaFocusCell :: (MonadIO m, CellAreaK o) => o -> m CellRenderer -getCellAreaFocusCell obj = liftIO $ getObjectPropertyObject obj "focus-cell" CellRenderer +getCellAreaFocusCell obj = liftIO $ checkUnexpectedNothing "getCellAreaFocusCell" $ getObjectPropertyObject obj "focus-cell" CellRenderer setCellAreaFocusCell :: (MonadIO m, CellAreaK o, CellRendererK a) => o -> a -> m () -setCellAreaFocusCell obj val = liftIO $ setObjectPropertyObject obj "focus-cell" val +setCellAreaFocusCell obj val = liftIO $ setObjectPropertyObject obj "focus-cell" (Just val) constructCellAreaFocusCell :: (CellRendererK a) => a -> IO ([Char], GValue) -constructCellAreaFocusCell val = constructObjectPropertyObject "focus-cell" val +constructCellAreaFocusCell val = constructObjectPropertyObject "focus-cell" (Just val) data CellAreaFocusCellPropertyInfo instance AttrInfo CellAreaFocusCellPropertyInfo where @@ -671,10 +679,20 @@ attrGet _ = getCellAreaFocusCell attrSet _ = setCellAreaFocusCell attrConstruct _ = constructCellAreaFocusCell + attrClear _ = undefined type instance AttributeList CellArea = CellAreaAttributeList type CellAreaAttributeList = ('[ '("editWidget", CellAreaEditWidgetPropertyInfo), '("editedCell", CellAreaEditedCellPropertyInfo), '("focusCell", CellAreaFocusCellPropertyInfo)] :: [(Symbol, *)]) +cellAreaEditWidget :: AttrLabelProxy "editWidget" +cellAreaEditWidget = AttrLabelProxy + +cellAreaEditedCell :: AttrLabelProxy "editedCell" +cellAreaEditedCell = AttrLabelProxy + +cellAreaFocusCell :: AttrLabelProxy "focusCell" +cellAreaFocusCell = AttrLabelProxy + data CellAreaAddEditableSignalInfo instance SignalInfo CellAreaAddEditableSignalInfo where type HaskellCallbackType CellAreaAddEditableSignalInfo = CellAreaAddEditableCallback @@ -702,7 +720,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "edit_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -748,7 +766,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", 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},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -795,7 +813,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -826,7 +844,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sibling", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -861,7 +879,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tree_model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_expander", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_expanded", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -900,9 +918,9 @@ -- method CellArea::attribute_connect -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -910,7 +928,7 @@ Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea" Ptr CellRenderer -> -- renderer : TInterface "Gtk" "CellRenderer" CString -> -- attribute : TBasicType TUTF8 - Int32 -> -- column : TBasicType TInt32 + Int32 -> -- column : TBasicType TInt IO () @@ -939,7 +957,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -974,7 +992,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1009,7 +1027,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property_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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1048,7 +1066,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property_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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1087,7 +1105,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "CellAreaContext" +-- returnType : Just (TInterface "Gtk" "CellAreaContext") -- throws : False -- Skip return : False @@ -1120,7 +1138,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "CellAreaContext" +-- returnType : Just (TInterface "Gtk" "CellAreaContext") -- throws : False -- Skip return : False @@ -1149,7 +1167,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", 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},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1195,7 +1213,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "direction", argType = TInterface "Gtk" "DirectionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1224,16 +1242,16 @@ -- method CellArea::foreach -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gtk" "CellCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gtk" "CellCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_cell_area_foreach" gtk_cell_area_foreach :: Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea" FunPtr CellCallbackC -> -- callback : TInterface "Gtk" "CellCallback" - Ptr () -> -- callback_data : TBasicType TVoid + Ptr () -> -- callback_data : TBasicType TPtr IO () @@ -1257,9 +1275,9 @@ -- method CellArea::foreach_alloc -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "background_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gtk" "CellAllocCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "background_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gtk" "CellAllocCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1270,7 +1288,7 @@ Ptr Gdk.Rectangle -> -- cell_area : TInterface "Gdk" "Rectangle" Ptr Gdk.Rectangle -> -- background_area : TInterface "Gdk" "Rectangle" FunPtr CellAllocCallbackC -> -- callback : TInterface "Gtk" "CellAllocCallback" - Ptr () -> -- callback_data : TBasicType TVoid + Ptr () -> -- callback_data : TBasicType TPtr IO () @@ -1308,7 +1326,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allocation", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1352,9 +1370,9 @@ -- method CellArea::get_cell_at_position -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "alloc_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", 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 = "alloc_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "CellRenderer" +-- returnType : Just (TInterface "Gtk" "CellRenderer") -- throws : False -- Skip return : False @@ -1363,8 +1381,8 @@ Ptr CellAreaContext -> -- context : TInterface "Gtk" "CellAreaContext" Ptr Widget -> -- widget : TInterface "Gtk" "Widget" Ptr Gdk.Rectangle -> -- cell_area : TInterface "Gdk" "Rectangle" - Int32 -> -- x : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 + Int32 -> -- x : TBasicType TInt + Int32 -> -- y : TBasicType TInt Ptr Gdk.Rectangle -> -- alloc_area : TInterface "Gdk" "Rectangle" IO (Ptr CellRenderer) @@ -1402,7 +1420,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1431,7 +1449,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "CellEditable" +-- returnType : Just (TInterface "Gtk" "CellEditable") -- throws : False -- Skip return : False @@ -1460,7 +1478,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "CellRenderer" +-- returnType : Just (TInterface "Gtk" "CellRenderer") -- throws : False -- Skip return : False @@ -1489,7 +1507,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "CellRenderer" +-- returnType : Just (TInterface "Gtk" "CellRenderer") -- throws : False -- Skip return : False @@ -1518,7 +1536,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "CellRenderer" +-- returnType : Just (TInterface "Gtk" "CellRenderer") -- throws : False -- Skip return : False @@ -1551,7 +1569,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TGList (TInterface "Gtk" "CellRenderer") +-- returnType : Just (TGList (TInterface "Gtk" "CellRenderer")) -- throws : False -- Skip return : False @@ -1570,7 +1588,6 @@ let _obj' = unsafeManagedPtrCastPtr _obj let renderer' = unsafeManagedPtrCastPtr renderer result <- gtk_cell_area_get_focus_siblings _obj' renderer' - checkUnexpectedReturnNULL "gtk_cell_area_get_focus_siblings" result result' <- unpackGList result result'' <- mapM (newObject CellRenderer) result' touchManagedPtr _obj @@ -1583,9 +1600,9 @@ -- method CellArea::get_preferred_height -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_height", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_height", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1593,8 +1610,8 @@ Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea" Ptr CellAreaContext -> -- context : TInterface "Gtk" "CellAreaContext" Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - Ptr Int32 -> -- minimum_height : TBasicType TInt32 - Ptr Int32 -> -- natural_height : TBasicType TInt32 + Ptr Int32 -> -- minimum_height : TBasicType TInt + Ptr Int32 -> -- natural_height : TBasicType TInt IO () @@ -1626,9 +1643,9 @@ -- method CellArea::get_preferred_height_for_width -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", 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 = "minimum_height", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_height", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1636,9 +1653,9 @@ Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea" Ptr CellAreaContext -> -- context : TInterface "Gtk" "CellAreaContext" Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - Int32 -> -- width : TBasicType TInt32 - Ptr Int32 -> -- minimum_height : TBasicType TInt32 - Ptr Int32 -> -- natural_height : TBasicType TInt32 + Int32 -> -- width : TBasicType TInt + Ptr Int32 -> -- minimum_height : TBasicType TInt + Ptr Int32 -> -- natural_height : TBasicType TInt IO () @@ -1671,9 +1688,9 @@ -- method CellArea::get_preferred_width -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_width", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_width", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1681,8 +1698,8 @@ Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea" Ptr CellAreaContext -> -- context : TInterface "Gtk" "CellAreaContext" Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - Ptr Int32 -> -- minimum_width : TBasicType TInt32 - Ptr Int32 -> -- natural_width : TBasicType TInt32 + Ptr Int32 -> -- minimum_width : TBasicType TInt + Ptr Int32 -> -- natural_width : TBasicType TInt IO () @@ -1714,9 +1731,9 @@ -- method CellArea::get_preferred_width_for_height -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", 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 = "minimum_width", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_width", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1724,9 +1741,9 @@ Ptr CellArea -> -- _obj : TInterface "Gtk" "CellArea" Ptr CellAreaContext -> -- context : TInterface "Gtk" "CellAreaContext" Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - Int32 -> -- height : TBasicType TInt32 - Ptr Int32 -> -- minimum_width : TBasicType TInt32 - Ptr Int32 -> -- natural_width : TBasicType TInt32 + Int32 -> -- height : TBasicType TInt + Ptr Int32 -> -- minimum_width : TBasicType TInt + Ptr Int32 -> -- natural_width : TBasicType TInt IO () @@ -1761,7 +1778,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "SizeRequestMode" +-- returnType : Just (TInterface "Gtk" "SizeRequestMode") -- throws : False -- Skip return : False @@ -1789,7 +1806,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1821,7 +1838,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "inner_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1859,7 +1876,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1887,7 +1904,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sibling", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1923,7 +1940,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1954,7 +1971,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sibling", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1989,7 +2006,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", 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},Arg {argCName = "background_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "paint_focus", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2040,9 +2057,9 @@ -- method CellArea::request_renderer -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "for_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "for_size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_size", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_size", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2051,9 +2068,9 @@ Ptr CellRenderer -> -- renderer : TInterface "Gtk" "CellRenderer" CUInt -> -- orientation : TInterface "Gtk" "Orientation" Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - Int32 -> -- for_size : TBasicType TInt32 - Ptr Int32 -> -- minimum_size : TBasicType TInt32 - Ptr Int32 -> -- natural_size : TBasicType TInt32 + Int32 -> -- for_size : TBasicType TInt + Ptr Int32 -> -- minimum_size : TBasicType TInt + Ptr Int32 -> -- natural_size : TBasicType TInt IO () @@ -2090,7 +2107,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2121,7 +2138,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "canceled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/CellArea.hs-boot b/GI/Gtk/Objects/CellArea.hs-boot --- a/GI/Gtk/Objects/CellArea.hs-boot +++ b/GI/Gtk/Objects/CellArea.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.CellArea where -import Prelude () 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 diff --git a/GI/Gtk/Objects/CellAreaBox.hs b/GI/Gtk/Objects/CellAreaBox.hs --- a/GI/Gtk/Objects/CellAreaBox.hs +++ b/GI/Gtk/Objects/CellAreaBox.hs @@ -46,6 +46,7 @@ -- * Properties -- ** Spacing CellAreaBoxSpacingPropertyInfo , + cellAreaBoxSpacing , constructCellAreaBoxSpacing , getCellAreaBoxSpacing , setCellAreaBoxSpacing , @@ -55,9 +56,9 @@ ) where -import Prelude () 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 @@ -181,17 +182,18 @@ #endif -- VVV Prop "spacing" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getCellAreaBoxSpacing :: (MonadIO m, CellAreaBoxK o) => o -> m Int32 -getCellAreaBoxSpacing obj = liftIO $ getObjectPropertyCInt obj "spacing" +getCellAreaBoxSpacing obj = liftIO $ getObjectPropertyInt32 obj "spacing" setCellAreaBoxSpacing :: (MonadIO m, CellAreaBoxK o) => o -> Int32 -> m () -setCellAreaBoxSpacing obj val = liftIO $ setObjectPropertyCInt obj "spacing" val +setCellAreaBoxSpacing obj val = liftIO $ setObjectPropertyInt32 obj "spacing" val constructCellAreaBoxSpacing :: Int32 -> IO ([Char], GValue) -constructCellAreaBoxSpacing val = constructObjectPropertyCInt "spacing" val +constructCellAreaBoxSpacing val = constructObjectPropertyInt32 "spacing" val data CellAreaBoxSpacingPropertyInfo instance AttrInfo CellAreaBoxSpacingPropertyInfo where @@ -203,10 +205,14 @@ attrGet _ = getCellAreaBoxSpacing attrSet _ = setCellAreaBoxSpacing attrConstruct _ = constructCellAreaBoxSpacing + attrClear _ = undefined type instance AttributeList CellAreaBox = CellAreaBoxAttributeList type CellAreaBoxAttributeList = ('[ '("editWidget", CellAreaEditWidgetPropertyInfo), '("editedCell", CellAreaEditedCellPropertyInfo), '("focusCell", CellAreaFocusCellPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("spacing", CellAreaBoxSpacingPropertyInfo)] :: [(Symbol, *)]) +cellAreaBoxSpacing :: AttrLabelProxy "spacing" +cellAreaBoxSpacing = AttrLabelProxy + type instance SignalList CellAreaBox = CellAreaBoxSignalList type CellAreaBoxSignalList = ('[ '("addEditable", CellAreaAddEditableSignalInfo), '("applyAttributes", CellAreaApplyAttributesSignalInfo), '("focusChanged", CellAreaFocusChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("removeEditable", CellAreaRemoveEditableSignalInfo)] :: [(Symbol, *)]) @@ -214,7 +220,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "CellAreaBox" +-- returnType : Just (TInterface "Gtk" "CellAreaBox") -- throws : False -- Skip return : False @@ -235,7 +241,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -262,7 +268,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "align", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fixed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -302,7 +308,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "align", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fixed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -340,15 +346,15 @@ -- method CellAreaBox::set_spacing -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_cell_area_box_set_spacing" gtk_cell_area_box_set_spacing :: Ptr CellAreaBox -> -- _obj : TInterface "Gtk" "CellAreaBox" - Int32 -> -- spacing : TBasicType TInt32 + Int32 -> -- spacing : TBasicType TInt IO () diff --git a/GI/Gtk/Objects/CellAreaBox.hs-boot b/GI/Gtk/Objects/CellAreaBox.hs-boot --- a/GI/Gtk/Objects/CellAreaBox.hs-boot +++ b/GI/Gtk/Objects/CellAreaBox.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.CellAreaBox where -import Prelude () 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 diff --git a/GI/Gtk/Objects/CellAreaContext.hs b/GI/Gtk/Objects/CellAreaContext.hs --- a/GI/Gtk/Objects/CellAreaContext.hs +++ b/GI/Gtk/Objects/CellAreaContext.hs @@ -72,27 +72,32 @@ -- * Properties -- ** Area CellAreaContextAreaPropertyInfo , + cellAreaContextArea , constructCellAreaContextArea , getCellAreaContextArea , -- ** MinimumHeight CellAreaContextMinimumHeightPropertyInfo, + cellAreaContextMinimumHeight , getCellAreaContextMinimumHeight , -- ** MinimumWidth CellAreaContextMinimumWidthPropertyInfo , + cellAreaContextMinimumWidth , getCellAreaContextMinimumWidth , -- ** NaturalHeight CellAreaContextNaturalHeightPropertyInfo, + cellAreaContextNaturalHeight , getCellAreaContextNaturalHeight , -- ** NaturalWidth CellAreaContextNaturalWidthPropertyInfo , + cellAreaContextNaturalWidth , getCellAreaContextNaturalWidth , @@ -100,9 +105,9 @@ ) where -import Prelude () 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 @@ -178,16 +183,17 @@ -- VVV Prop "area" -- Type: TInterface "Gtk" "CellArea" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + -- Nullable: (Just False,Nothing) getCellAreaContextArea :: (MonadIO m, CellAreaContextK o) => o -> m CellArea -getCellAreaContextArea obj = liftIO $ getObjectPropertyObject obj "area" CellArea +getCellAreaContextArea obj = liftIO $ checkUnexpectedNothing "getCellAreaContextArea" $ getObjectPropertyObject obj "area" CellArea constructCellAreaContextArea :: (CellAreaK a) => a -> IO ([Char], GValue) -constructCellAreaContextArea val = constructObjectPropertyObject "area" val +constructCellAreaContextArea val = constructObjectPropertyObject "area" (Just val) data CellAreaContextAreaPropertyInfo instance AttrInfo CellAreaContextAreaPropertyInfo where - type AttrAllowedOps CellAreaContextAreaPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrAllowedOps CellAreaContextAreaPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint CellAreaContextAreaPropertyInfo = CellAreaK type AttrBaseTypeConstraint CellAreaContextAreaPropertyInfo = CellAreaContextK type AttrGetType CellAreaContextAreaPropertyInfo = CellArea @@ -195,13 +201,15 @@ attrGet _ = getCellAreaContextArea attrSet _ = undefined attrConstruct _ = constructCellAreaContextArea + attrClear _ = undefined -- VVV Prop "minimum-height" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) getCellAreaContextMinimumHeight :: (MonadIO m, CellAreaContextK o) => o -> m Int32 -getCellAreaContextMinimumHeight obj = liftIO $ getObjectPropertyCInt obj "minimum-height" +getCellAreaContextMinimumHeight obj = liftIO $ getObjectPropertyInt32 obj "minimum-height" data CellAreaContextMinimumHeightPropertyInfo instance AttrInfo CellAreaContextMinimumHeightPropertyInfo where @@ -213,13 +221,15 @@ attrGet _ = getCellAreaContextMinimumHeight attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "minimum-width" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) getCellAreaContextMinimumWidth :: (MonadIO m, CellAreaContextK o) => o -> m Int32 -getCellAreaContextMinimumWidth obj = liftIO $ getObjectPropertyCInt obj "minimum-width" +getCellAreaContextMinimumWidth obj = liftIO $ getObjectPropertyInt32 obj "minimum-width" data CellAreaContextMinimumWidthPropertyInfo instance AttrInfo CellAreaContextMinimumWidthPropertyInfo where @@ -231,13 +241,15 @@ attrGet _ = getCellAreaContextMinimumWidth attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "natural-height" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) getCellAreaContextNaturalHeight :: (MonadIO m, CellAreaContextK o) => o -> m Int32 -getCellAreaContextNaturalHeight obj = liftIO $ getObjectPropertyCInt obj "natural-height" +getCellAreaContextNaturalHeight obj = liftIO $ getObjectPropertyInt32 obj "natural-height" data CellAreaContextNaturalHeightPropertyInfo instance AttrInfo CellAreaContextNaturalHeightPropertyInfo where @@ -249,13 +261,15 @@ attrGet _ = getCellAreaContextNaturalHeight attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "natural-width" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) getCellAreaContextNaturalWidth :: (MonadIO m, CellAreaContextK o) => o -> m Int32 -getCellAreaContextNaturalWidth obj = liftIO $ getObjectPropertyCInt obj "natural-width" +getCellAreaContextNaturalWidth obj = liftIO $ getObjectPropertyInt32 obj "natural-width" data CellAreaContextNaturalWidthPropertyInfo instance AttrInfo CellAreaContextNaturalWidthPropertyInfo where @@ -267,25 +281,41 @@ attrGet _ = getCellAreaContextNaturalWidth attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList CellAreaContext = CellAreaContextAttributeList type CellAreaContextAttributeList = ('[ '("area", CellAreaContextAreaPropertyInfo), '("minimumHeight", CellAreaContextMinimumHeightPropertyInfo), '("minimumWidth", CellAreaContextMinimumWidthPropertyInfo), '("naturalHeight", CellAreaContextNaturalHeightPropertyInfo), '("naturalWidth", CellAreaContextNaturalWidthPropertyInfo)] :: [(Symbol, *)]) +cellAreaContextArea :: AttrLabelProxy "area" +cellAreaContextArea = AttrLabelProxy + +cellAreaContextMinimumHeight :: AttrLabelProxy "minimumHeight" +cellAreaContextMinimumHeight = AttrLabelProxy + +cellAreaContextMinimumWidth :: AttrLabelProxy "minimumWidth" +cellAreaContextMinimumWidth = AttrLabelProxy + +cellAreaContextNaturalHeight :: AttrLabelProxy "naturalHeight" +cellAreaContextNaturalHeight = AttrLabelProxy + +cellAreaContextNaturalWidth :: AttrLabelProxy "naturalWidth" +cellAreaContextNaturalWidth = AttrLabelProxy + type instance SignalList CellAreaContext = CellAreaContextSignalList type CellAreaContextSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method CellAreaContext::allocate -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaContext", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_cell_area_context_allocate" gtk_cell_area_context_allocate :: Ptr CellAreaContext -> -- _obj : TInterface "Gtk" "CellAreaContext" - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 + Int32 -> -- width : TBasicType TInt + Int32 -> -- height : TBasicType TInt IO () @@ -307,16 +337,16 @@ -- method CellAreaContext::get_allocation -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_cell_area_context_get_allocation" gtk_cell_area_context_get_allocation :: Ptr CellAreaContext -> -- _obj : TInterface "Gtk" "CellAreaContext" - Ptr Int32 -> -- width : TBasicType TInt32 - Ptr Int32 -> -- height : TBasicType TInt32 + Ptr Int32 -> -- width : TBasicType TInt + Ptr Int32 -> -- height : TBasicType TInt IO () @@ -344,7 +374,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "CellArea" +-- returnType : Just (TInterface "Gtk" "CellArea") -- throws : False -- Skip return : False @@ -371,16 +401,16 @@ -- method CellAreaContext::get_preferred_height -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_height", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_height", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_cell_area_context_get_preferred_height" gtk_cell_area_context_get_preferred_height :: Ptr CellAreaContext -> -- _obj : TInterface "Gtk" "CellAreaContext" - Ptr Int32 -> -- minimum_height : TBasicType TInt32 - Ptr Int32 -> -- natural_height : TBasicType TInt32 + Ptr Int32 -> -- minimum_height : TBasicType TInt + Ptr Int32 -> -- natural_height : TBasicType TInt IO () @@ -406,17 +436,17 @@ -- method CellAreaContext::get_preferred_height_for_width -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaContext", 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 = "minimum_height", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_height", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_cell_area_context_get_preferred_height_for_width" gtk_cell_area_context_get_preferred_height_for_width :: Ptr CellAreaContext -> -- _obj : TInterface "Gtk" "CellAreaContext" - Int32 -> -- width : TBasicType TInt32 - Ptr Int32 -> -- minimum_height : TBasicType TInt32 - Ptr Int32 -> -- natural_height : TBasicType TInt32 + Int32 -> -- width : TBasicType TInt + Ptr Int32 -> -- minimum_height : TBasicType TInt + Ptr Int32 -> -- natural_height : TBasicType TInt IO () @@ -443,16 +473,16 @@ -- method CellAreaContext::get_preferred_width -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_width", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_width", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_cell_area_context_get_preferred_width" gtk_cell_area_context_get_preferred_width :: Ptr CellAreaContext -> -- _obj : TInterface "Gtk" "CellAreaContext" - Ptr Int32 -> -- minimum_width : TBasicType TInt32 - Ptr Int32 -> -- natural_width : TBasicType TInt32 + Ptr Int32 -> -- minimum_width : TBasicType TInt + Ptr Int32 -> -- natural_width : TBasicType TInt IO () @@ -478,17 +508,17 @@ -- method CellAreaContext::get_preferred_width_for_height -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaContext", 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 = "minimum_width", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_width", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_cell_area_context_get_preferred_width_for_height" gtk_cell_area_context_get_preferred_width_for_height :: Ptr CellAreaContext -> -- _obj : TInterface "Gtk" "CellAreaContext" - Int32 -> -- height : TBasicType TInt32 - Ptr Int32 -> -- minimum_width : TBasicType TInt32 - Ptr Int32 -> -- natural_width : TBasicType TInt32 + Int32 -> -- height : TBasicType TInt + Ptr Int32 -> -- minimum_width : TBasicType TInt + Ptr Int32 -> -- natural_width : TBasicType TInt IO () @@ -515,16 +545,16 @@ -- method CellAreaContext::push_preferred_height -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "natural_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "natural_height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_cell_area_context_push_preferred_height" gtk_cell_area_context_push_preferred_height :: Ptr CellAreaContext -> -- _obj : TInterface "Gtk" "CellAreaContext" - Int32 -> -- minimum_height : TBasicType TInt32 - Int32 -> -- natural_height : TBasicType TInt32 + Int32 -> -- minimum_height : TBasicType TInt + Int32 -> -- natural_height : TBasicType TInt IO () @@ -546,16 +576,16 @@ -- method CellAreaContext::push_preferred_width -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "natural_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "natural_width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_cell_area_context_push_preferred_width" gtk_cell_area_context_push_preferred_width :: Ptr CellAreaContext -> -- _obj : TInterface "Gtk" "CellAreaContext" - Int32 -> -- minimum_width : TBasicType TInt32 - Int32 -> -- natural_width : TBasicType TInt32 + Int32 -> -- minimum_width : TBasicType TInt + Int32 -> -- natural_width : TBasicType TInt IO () @@ -579,7 +609,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/CellAreaContext.hs-boot b/GI/Gtk/Objects/CellAreaContext.hs-boot --- a/GI/Gtk/Objects/CellAreaContext.hs-boot +++ b/GI/Gtk/Objects/CellAreaContext.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.CellAreaContext where -import Prelude () 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 diff --git a/GI/Gtk/Objects/CellRenderer.hs b/GI/Gtk/Objects/CellRenderer.hs --- a/GI/Gtk/Objects/CellRenderer.hs +++ b/GI/Gtk/Objects/CellRenderer.hs @@ -142,12 +142,16 @@ -- * Properties -- ** CellBackground CellRendererCellBackgroundPropertyInfo , + cellRendererCellBackground , + clearCellRendererCellBackground , constructCellRendererCellBackground , setCellRendererCellBackground , -- ** CellBackgroundGdk CellRendererCellBackgroundGdkPropertyInfo, + cellRendererCellBackgroundGdk , + clearCellRendererCellBackgroundGdk , constructCellRendererCellBackgroundGdk , getCellRendererCellBackgroundGdk , setCellRendererCellBackgroundGdk , @@ -155,6 +159,8 @@ -- ** CellBackgroundRgba CellRendererCellBackgroundRgbaPropertyInfo, + cellRendererCellBackgroundRgba , + clearCellRendererCellBackgroundRgba , constructCellRendererCellBackgroundRgba , getCellRendererCellBackgroundRgba , setCellRendererCellBackgroundRgba , @@ -162,6 +168,7 @@ -- ** CellBackgroundSet CellRendererCellBackgroundSetPropertyInfo, + cellRendererCellBackgroundSet , constructCellRendererCellBackgroundSet , getCellRendererCellBackgroundSet , setCellRendererCellBackgroundSet , @@ -169,11 +176,13 @@ -- ** Editing CellRendererEditingPropertyInfo , + cellRendererEditing , getCellRendererEditing , -- ** Height CellRendererHeightPropertyInfo , + cellRendererHeight , constructCellRendererHeight , getCellRendererHeight , setCellRendererHeight , @@ -181,6 +190,7 @@ -- ** IsExpanded CellRendererIsExpandedPropertyInfo , + cellRendererIsExpanded , constructCellRendererIsExpanded , getCellRendererIsExpanded , setCellRendererIsExpanded , @@ -188,6 +198,7 @@ -- ** IsExpander CellRendererIsExpanderPropertyInfo , + cellRendererIsExpander , constructCellRendererIsExpander , getCellRendererIsExpander , setCellRendererIsExpander , @@ -195,6 +206,7 @@ -- ** Mode CellRendererModePropertyInfo , + cellRendererMode , constructCellRendererMode , getCellRendererMode , setCellRendererMode , @@ -202,6 +214,7 @@ -- ** Sensitive CellRendererSensitivePropertyInfo , + cellRendererSensitive , constructCellRendererSensitive , getCellRendererSensitive , setCellRendererSensitive , @@ -209,6 +222,7 @@ -- ** Visible CellRendererVisiblePropertyInfo , + cellRendererVisible , constructCellRendererVisible , getCellRendererVisible , setCellRendererVisible , @@ -216,6 +230,7 @@ -- ** Width CellRendererWidthPropertyInfo , + cellRendererWidth , constructCellRendererWidth , getCellRendererWidth , setCellRendererWidth , @@ -223,6 +238,7 @@ -- ** Xalign CellRendererXalignPropertyInfo , + cellRendererXalign , constructCellRendererXalign , getCellRendererXalign , setCellRendererXalign , @@ -230,6 +246,7 @@ -- ** Xpad CellRendererXpadPropertyInfo , + cellRendererXpad , constructCellRendererXpad , getCellRendererXpad , setCellRendererXpad , @@ -237,6 +254,7 @@ -- ** Yalign CellRendererYalignPropertyInfo , + cellRendererYalign , constructCellRendererYalign , getCellRendererYalign , setCellRendererYalign , @@ -244,6 +262,7 @@ -- ** Ypad CellRendererYpadPropertyInfo , + cellRendererYpad , constructCellRendererYpad , getCellRendererYpad , setCellRendererYpad , @@ -280,9 +299,9 @@ ) where -import Prelude () 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 @@ -458,16 +477,20 @@ -- VVV Prop "cell-background" -- Type: TBasicType TUTF8 -- Flags: [PropertyWritable] + -- Nullable: (Nothing,Nothing) setCellRendererCellBackground :: (MonadIO m, CellRendererK o) => o -> T.Text -> m () -setCellRendererCellBackground obj val = liftIO $ setObjectPropertyString obj "cell-background" val +setCellRendererCellBackground obj val = liftIO $ setObjectPropertyString obj "cell-background" (Just val) constructCellRendererCellBackground :: T.Text -> IO ([Char], GValue) -constructCellRendererCellBackground val = constructObjectPropertyString "cell-background" val +constructCellRendererCellBackground val = constructObjectPropertyString "cell-background" (Just val) +clearCellRendererCellBackground :: (MonadIO m, CellRendererK o) => o -> m () +clearCellRendererCellBackground obj = liftIO $ setObjectPropertyString obj "cell-background" (Nothing :: Maybe T.Text) + data CellRendererCellBackgroundPropertyInfo instance AttrInfo CellRendererCellBackgroundPropertyInfo where - type AttrAllowedOps CellRendererCellBackgroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct] + type AttrAllowedOps CellRendererCellBackgroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear] type AttrSetTypeConstraint CellRendererCellBackgroundPropertyInfo = (~) T.Text type AttrBaseTypeConstraint CellRendererCellBackgroundPropertyInfo = CellRendererK type AttrGetType CellRendererCellBackgroundPropertyInfo = () @@ -475,58 +498,70 @@ attrGet _ = undefined attrSet _ = setCellRendererCellBackground attrConstruct _ = constructCellRendererCellBackground + attrClear _ = clearCellRendererCellBackground -- VVV Prop "cell-background-gdk" -- Type: TInterface "Gdk" "Color" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getCellRendererCellBackgroundGdk :: (MonadIO m, CellRendererK o) => o -> m Gdk.Color +getCellRendererCellBackgroundGdk :: (MonadIO m, CellRendererK o) => o -> m (Maybe Gdk.Color) getCellRendererCellBackgroundGdk obj = liftIO $ getObjectPropertyBoxed obj "cell-background-gdk" Gdk.Color setCellRendererCellBackgroundGdk :: (MonadIO m, CellRendererK o) => o -> Gdk.Color -> m () -setCellRendererCellBackgroundGdk obj val = liftIO $ setObjectPropertyBoxed obj "cell-background-gdk" val +setCellRendererCellBackgroundGdk obj val = liftIO $ setObjectPropertyBoxed obj "cell-background-gdk" (Just val) constructCellRendererCellBackgroundGdk :: Gdk.Color -> IO ([Char], GValue) -constructCellRendererCellBackgroundGdk val = constructObjectPropertyBoxed "cell-background-gdk" val +constructCellRendererCellBackgroundGdk val = constructObjectPropertyBoxed "cell-background-gdk" (Just val) +clearCellRendererCellBackgroundGdk :: (MonadIO m, CellRendererK o) => o -> m () +clearCellRendererCellBackgroundGdk obj = liftIO $ setObjectPropertyBoxed obj "cell-background-gdk" (Nothing :: Maybe Gdk.Color) + data CellRendererCellBackgroundGdkPropertyInfo instance AttrInfo CellRendererCellBackgroundGdkPropertyInfo where - type AttrAllowedOps CellRendererCellBackgroundGdkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps CellRendererCellBackgroundGdkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint CellRendererCellBackgroundGdkPropertyInfo = (~) Gdk.Color type AttrBaseTypeConstraint CellRendererCellBackgroundGdkPropertyInfo = CellRendererK - type AttrGetType CellRendererCellBackgroundGdkPropertyInfo = Gdk.Color + type AttrGetType CellRendererCellBackgroundGdkPropertyInfo = (Maybe Gdk.Color) type AttrLabel CellRendererCellBackgroundGdkPropertyInfo = "cell-background-gdk" attrGet _ = getCellRendererCellBackgroundGdk attrSet _ = setCellRendererCellBackgroundGdk attrConstruct _ = constructCellRendererCellBackgroundGdk + attrClear _ = clearCellRendererCellBackgroundGdk -- VVV Prop "cell-background-rgba" -- Type: TInterface "Gdk" "RGBA" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getCellRendererCellBackgroundRgba :: (MonadIO m, CellRendererK o) => o -> m Gdk.RGBA +getCellRendererCellBackgroundRgba :: (MonadIO m, CellRendererK o) => o -> m (Maybe Gdk.RGBA) getCellRendererCellBackgroundRgba obj = liftIO $ getObjectPropertyBoxed obj "cell-background-rgba" Gdk.RGBA setCellRendererCellBackgroundRgba :: (MonadIO m, CellRendererK o) => o -> Gdk.RGBA -> m () -setCellRendererCellBackgroundRgba obj val = liftIO $ setObjectPropertyBoxed obj "cell-background-rgba" val +setCellRendererCellBackgroundRgba obj val = liftIO $ setObjectPropertyBoxed obj "cell-background-rgba" (Just val) constructCellRendererCellBackgroundRgba :: Gdk.RGBA -> IO ([Char], GValue) -constructCellRendererCellBackgroundRgba val = constructObjectPropertyBoxed "cell-background-rgba" val +constructCellRendererCellBackgroundRgba val = constructObjectPropertyBoxed "cell-background-rgba" (Just val) +clearCellRendererCellBackgroundRgba :: (MonadIO m, CellRendererK o) => o -> m () +clearCellRendererCellBackgroundRgba obj = liftIO $ setObjectPropertyBoxed obj "cell-background-rgba" (Nothing :: Maybe Gdk.RGBA) + data CellRendererCellBackgroundRgbaPropertyInfo instance AttrInfo CellRendererCellBackgroundRgbaPropertyInfo where - type AttrAllowedOps CellRendererCellBackgroundRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps CellRendererCellBackgroundRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint CellRendererCellBackgroundRgbaPropertyInfo = (~) Gdk.RGBA type AttrBaseTypeConstraint CellRendererCellBackgroundRgbaPropertyInfo = CellRendererK - type AttrGetType CellRendererCellBackgroundRgbaPropertyInfo = Gdk.RGBA + type AttrGetType CellRendererCellBackgroundRgbaPropertyInfo = (Maybe Gdk.RGBA) type AttrLabel CellRendererCellBackgroundRgbaPropertyInfo = "cell-background-rgba" attrGet _ = getCellRendererCellBackgroundRgba attrSet _ = setCellRendererCellBackgroundRgba attrConstruct _ = constructCellRendererCellBackgroundRgba + attrClear _ = clearCellRendererCellBackgroundRgba -- VVV Prop "cell-background-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererCellBackgroundSet :: (MonadIO m, CellRendererK o) => o -> m Bool getCellRendererCellBackgroundSet obj = liftIO $ getObjectPropertyBool obj "cell-background-set" @@ -547,10 +582,12 @@ attrGet _ = getCellRendererCellBackgroundSet attrSet _ = setCellRendererCellBackgroundSet attrConstruct _ = constructCellRendererCellBackgroundSet + attrClear _ = undefined -- VVV Prop "editing" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) getCellRendererEditing :: (MonadIO m, CellRendererK o) => o -> m Bool getCellRendererEditing obj = liftIO $ getObjectPropertyBool obj "editing" @@ -565,19 +602,21 @@ attrGet _ = getCellRendererEditing attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "height" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererHeight :: (MonadIO m, CellRendererK o) => o -> m Int32 -getCellRendererHeight obj = liftIO $ getObjectPropertyCInt obj "height" +getCellRendererHeight obj = liftIO $ getObjectPropertyInt32 obj "height" setCellRendererHeight :: (MonadIO m, CellRendererK o) => o -> Int32 -> m () -setCellRendererHeight obj val = liftIO $ setObjectPropertyCInt obj "height" val +setCellRendererHeight obj val = liftIO $ setObjectPropertyInt32 obj "height" val constructCellRendererHeight :: Int32 -> IO ([Char], GValue) -constructCellRendererHeight val = constructObjectPropertyCInt "height" val +constructCellRendererHeight val = constructObjectPropertyInt32 "height" val data CellRendererHeightPropertyInfo instance AttrInfo CellRendererHeightPropertyInfo where @@ -589,10 +628,12 @@ attrGet _ = getCellRendererHeight attrSet _ = setCellRendererHeight attrConstruct _ = constructCellRendererHeight + attrClear _ = undefined -- VVV Prop "is-expanded" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererIsExpanded :: (MonadIO m, CellRendererK o) => o -> m Bool getCellRendererIsExpanded obj = liftIO $ getObjectPropertyBool obj "is-expanded" @@ -613,10 +654,12 @@ attrGet _ = getCellRendererIsExpanded attrSet _ = setCellRendererIsExpanded attrConstruct _ = constructCellRendererIsExpanded + attrClear _ = undefined -- VVV Prop "is-expander" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererIsExpander :: (MonadIO m, CellRendererK o) => o -> m Bool getCellRendererIsExpander obj = liftIO $ getObjectPropertyBool obj "is-expander" @@ -637,10 +680,12 @@ attrGet _ = getCellRendererIsExpander attrSet _ = setCellRendererIsExpander attrConstruct _ = constructCellRendererIsExpander + attrClear _ = undefined -- VVV Prop "mode" -- Type: TInterface "Gtk" "CellRendererMode" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererMode :: (MonadIO m, CellRendererK o) => o -> m CellRendererMode getCellRendererMode obj = liftIO $ getObjectPropertyEnum obj "mode" @@ -661,10 +706,12 @@ attrGet _ = getCellRendererMode attrSet _ = setCellRendererMode attrConstruct _ = constructCellRendererMode + attrClear _ = undefined -- VVV Prop "sensitive" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getCellRendererSensitive :: (MonadIO m, CellRendererK o) => o -> m Bool getCellRendererSensitive obj = liftIO $ getObjectPropertyBool obj "sensitive" @@ -685,10 +732,12 @@ attrGet _ = getCellRendererSensitive attrSet _ = setCellRendererSensitive attrConstruct _ = constructCellRendererSensitive + attrClear _ = undefined -- VVV Prop "visible" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getCellRendererVisible :: (MonadIO m, CellRendererK o) => o -> m Bool getCellRendererVisible obj = liftIO $ getObjectPropertyBool obj "visible" @@ -709,19 +758,21 @@ attrGet _ = getCellRendererVisible attrSet _ = setCellRendererVisible attrConstruct _ = constructCellRendererVisible + attrClear _ = undefined -- VVV Prop "width" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererWidth :: (MonadIO m, CellRendererK o) => o -> m Int32 -getCellRendererWidth obj = liftIO $ getObjectPropertyCInt obj "width" +getCellRendererWidth obj = liftIO $ getObjectPropertyInt32 obj "width" setCellRendererWidth :: (MonadIO m, CellRendererK o) => o -> Int32 -> m () -setCellRendererWidth obj val = liftIO $ setObjectPropertyCInt obj "width" val +setCellRendererWidth obj val = liftIO $ setObjectPropertyInt32 obj "width" val constructCellRendererWidth :: Int32 -> IO ([Char], GValue) -constructCellRendererWidth val = constructObjectPropertyCInt "width" val +constructCellRendererWidth val = constructObjectPropertyInt32 "width" val data CellRendererWidthPropertyInfo instance AttrInfo CellRendererWidthPropertyInfo where @@ -733,10 +784,12 @@ attrGet _ = getCellRendererWidth attrSet _ = setCellRendererWidth attrConstruct _ = constructCellRendererWidth + attrClear _ = undefined -- VVV Prop "xalign" -- Type: TBasicType TFloat -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererXalign :: (MonadIO m, CellRendererK o) => o -> m Float getCellRendererXalign obj = liftIO $ getObjectPropertyFloat obj "xalign" @@ -757,19 +810,21 @@ attrGet _ = getCellRendererXalign attrSet _ = setCellRendererXalign attrConstruct _ = constructCellRendererXalign + attrClear _ = undefined -- VVV Prop "xpad" - -- Type: TBasicType TUInt32 + -- Type: TBasicType TUInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererXpad :: (MonadIO m, CellRendererK o) => o -> m Word32 -getCellRendererXpad obj = liftIO $ getObjectPropertyCUInt obj "xpad" +getCellRendererXpad obj = liftIO $ getObjectPropertyUInt32 obj "xpad" setCellRendererXpad :: (MonadIO m, CellRendererK o) => o -> Word32 -> m () -setCellRendererXpad obj val = liftIO $ setObjectPropertyCUInt obj "xpad" val +setCellRendererXpad obj val = liftIO $ setObjectPropertyUInt32 obj "xpad" val constructCellRendererXpad :: Word32 -> IO ([Char], GValue) -constructCellRendererXpad val = constructObjectPropertyCUInt "xpad" val +constructCellRendererXpad val = constructObjectPropertyUInt32 "xpad" val data CellRendererXpadPropertyInfo instance AttrInfo CellRendererXpadPropertyInfo where @@ -781,10 +836,12 @@ attrGet _ = getCellRendererXpad attrSet _ = setCellRendererXpad attrConstruct _ = constructCellRendererXpad + attrClear _ = undefined -- VVV Prop "yalign" -- Type: TBasicType TFloat -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererYalign :: (MonadIO m, CellRendererK o) => o -> m Float getCellRendererYalign obj = liftIO $ getObjectPropertyFloat obj "yalign" @@ -805,19 +862,21 @@ attrGet _ = getCellRendererYalign attrSet _ = setCellRendererYalign attrConstruct _ = constructCellRendererYalign + attrClear _ = undefined -- VVV Prop "ypad" - -- Type: TBasicType TUInt32 + -- Type: TBasicType TUInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererYpad :: (MonadIO m, CellRendererK o) => o -> m Word32 -getCellRendererYpad obj = liftIO $ getObjectPropertyCUInt obj "ypad" +getCellRendererYpad obj = liftIO $ getObjectPropertyUInt32 obj "ypad" setCellRendererYpad :: (MonadIO m, CellRendererK o) => o -> Word32 -> m () -setCellRendererYpad obj val = liftIO $ setObjectPropertyCUInt obj "ypad" val +setCellRendererYpad obj val = liftIO $ setObjectPropertyUInt32 obj "ypad" val constructCellRendererYpad :: Word32 -> IO ([Char], GValue) -constructCellRendererYpad val = constructObjectPropertyCUInt "ypad" val +constructCellRendererYpad val = constructObjectPropertyUInt32 "ypad" val data CellRendererYpadPropertyInfo instance AttrInfo CellRendererYpadPropertyInfo where @@ -829,10 +888,59 @@ attrGet _ = getCellRendererYpad attrSet _ = setCellRendererYpad attrConstruct _ = constructCellRendererYpad + attrClear _ = undefined type instance AttributeList CellRenderer = CellRendererAttributeList type CellRendererAttributeList = ('[ '("cellBackground", CellRendererCellBackgroundPropertyInfo), '("cellBackgroundGdk", CellRendererCellBackgroundGdkPropertyInfo), '("cellBackgroundRgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cellBackgroundSet", CellRendererCellBackgroundSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("isExpanded", CellRendererIsExpandedPropertyInfo), '("isExpander", CellRendererIsExpanderPropertyInfo), '("mode", CellRendererModePropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("width", CellRendererWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] :: [(Symbol, *)]) +cellRendererCellBackground :: AttrLabelProxy "cellBackground" +cellRendererCellBackground = AttrLabelProxy + +cellRendererCellBackgroundGdk :: AttrLabelProxy "cellBackgroundGdk" +cellRendererCellBackgroundGdk = AttrLabelProxy + +cellRendererCellBackgroundRgba :: AttrLabelProxy "cellBackgroundRgba" +cellRendererCellBackgroundRgba = AttrLabelProxy + +cellRendererCellBackgroundSet :: AttrLabelProxy "cellBackgroundSet" +cellRendererCellBackgroundSet = AttrLabelProxy + +cellRendererEditing :: AttrLabelProxy "editing" +cellRendererEditing = AttrLabelProxy + +cellRendererHeight :: AttrLabelProxy "height" +cellRendererHeight = AttrLabelProxy + +cellRendererIsExpanded :: AttrLabelProxy "isExpanded" +cellRendererIsExpanded = AttrLabelProxy + +cellRendererIsExpander :: AttrLabelProxy "isExpander" +cellRendererIsExpander = AttrLabelProxy + +cellRendererMode :: AttrLabelProxy "mode" +cellRendererMode = AttrLabelProxy + +cellRendererSensitive :: AttrLabelProxy "sensitive" +cellRendererSensitive = AttrLabelProxy + +cellRendererVisible :: AttrLabelProxy "visible" +cellRendererVisible = AttrLabelProxy + +cellRendererWidth :: AttrLabelProxy "width" +cellRendererWidth = AttrLabelProxy + +cellRendererXalign :: AttrLabelProxy "xalign" +cellRendererXalign = AttrLabelProxy + +cellRendererXpad :: AttrLabelProxy "xpad" +cellRendererXpad = AttrLabelProxy + +cellRendererYalign :: AttrLabelProxy "yalign" +cellRendererYalign = AttrLabelProxy + +cellRendererYpad :: AttrLabelProxy "ypad" +cellRendererYpad = AttrLabelProxy + data CellRendererEditingCanceledSignalInfo instance SignalInfo CellRendererEditingCanceledSignalInfo where type HaskellCallbackType CellRendererEditingCanceledSignalInfo = CellRendererEditingCanceledCallback @@ -850,7 +958,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", 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},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "background_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -901,7 +1009,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "aligned_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -942,7 +1050,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "yalign", argType = TBasicType TFloat, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -977,16 +1085,16 @@ -- method CellRenderer::get_fixed_size -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_cell_renderer_get_fixed_size" gtk_cell_renderer_get_fixed_size :: Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer" - Ptr Int32 -> -- width : TBasicType TInt32 - Ptr Int32 -> -- height : TBasicType TInt32 + Ptr Int32 -> -- width : TBasicType TInt + Ptr Int32 -> -- height : TBasicType TInt IO () @@ -1012,16 +1120,16 @@ -- method CellRenderer::get_padding -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xpad", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "ypad", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xpad", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "ypad", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_cell_renderer_get_padding" gtk_cell_renderer_get_padding :: Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer" - Ptr Int32 -> -- xpad : TBasicType TInt32 - Ptr Int32 -> -- ypad : TBasicType TInt32 + Ptr Int32 -> -- xpad : TBasicType TInt + Ptr Int32 -> -- ypad : TBasicType TInt IO () @@ -1047,17 +1155,17 @@ -- method CellRenderer::get_preferred_height -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_size", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_size", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_cell_renderer_get_preferred_height" gtk_cell_renderer_get_preferred_height :: Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer" Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - Ptr Int32 -> -- minimum_size : TBasicType TInt32 - Ptr Int32 -> -- natural_size : TBasicType TInt32 + Ptr Int32 -> -- minimum_size : TBasicType TInt + Ptr Int32 -> -- natural_size : TBasicType TInt IO () @@ -1086,18 +1194,18 @@ -- method CellRenderer::get_preferred_height_for_width -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", 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 = "minimum_height", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_height", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_cell_renderer_get_preferred_height_for_width" gtk_cell_renderer_get_preferred_height_for_width :: Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer" Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - Int32 -> -- width : TBasicType TInt32 - Ptr Int32 -> -- minimum_height : TBasicType TInt32 - Ptr Int32 -> -- natural_height : TBasicType TInt32 + Int32 -> -- width : TBasicType TInt + Ptr Int32 -> -- minimum_height : TBasicType TInt + Ptr Int32 -> -- natural_height : TBasicType TInt IO () @@ -1129,7 +1237,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_size", argType = TInterface "Gtk" "Requisition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "natural_size", argType = TInterface "Gtk" "Requisition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1164,17 +1272,17 @@ -- method CellRenderer::get_preferred_width -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_size", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_size", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_cell_renderer_get_preferred_width" gtk_cell_renderer_get_preferred_width :: Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer" Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - Ptr Int32 -> -- minimum_size : TBasicType TInt32 - Ptr Int32 -> -- natural_size : TBasicType TInt32 + Ptr Int32 -> -- minimum_size : TBasicType TInt + Ptr Int32 -> -- natural_size : TBasicType TInt IO () @@ -1203,18 +1311,18 @@ -- method CellRenderer::get_preferred_width_for_height -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", 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 = "minimum_width", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_width", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_cell_renderer_get_preferred_width_for_height" gtk_cell_renderer_get_preferred_width_for_height :: Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer" Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - Int32 -> -- height : TBasicType TInt32 - Ptr Int32 -> -- minimum_width : TBasicType TInt32 - Ptr Int32 -> -- natural_width : TBasicType TInt32 + Int32 -> -- height : TBasicType TInt + Ptr Int32 -> -- minimum_width : TBasicType TInt + Ptr Int32 -> -- natural_width : TBasicType TInt IO () @@ -1246,7 +1354,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "SizeRequestMode" +-- returnType : Just (TInterface "Gtk" "SizeRequestMode") -- throws : False -- Skip return : False @@ -1274,7 +1382,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1300,9 +1408,9 @@ -- method CellRenderer::get_size -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x_offset", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y_offset", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1310,10 +1418,10 @@ Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer" Ptr Widget -> -- widget : TInterface "Gtk" "Widget" Ptr Gdk.Rectangle -> -- cell_area : TInterface "Gdk" "Rectangle" - Ptr Int32 -> -- x_offset : TBasicType TInt32 - Ptr Int32 -> -- y_offset : TBasicType TInt32 - Ptr Int32 -> -- width : TBasicType TInt32 - Ptr Int32 -> -- height : TBasicType TInt32 + Ptr Int32 -> -- x_offset : TBasicType TInt + Ptr Int32 -> -- y_offset : TBasicType TInt + Ptr Int32 -> -- width : TBasicType TInt + Ptr Int32 -> -- height : TBasicType TInt IO () {-# DEPRECATED cellRendererGetSize ["(Since version 3.0)","Use gtk_cell_renderer_get_preferred_size() instead."]#-} @@ -1357,7 +1465,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_state", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "StateFlags" +-- returnType : Just (TInterface "Gtk" "StateFlags") -- throws : False -- Skip return : False @@ -1392,7 +1500,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1420,7 +1528,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1448,7 +1556,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", 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},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "background_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1494,7 +1602,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1525,16 +1633,16 @@ -- method CellRenderer::set_fixed_size -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_cell_renderer_set_fixed_size" gtk_cell_renderer_set_fixed_size :: Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer" - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 + Int32 -> -- width : TBasicType TInt + Int32 -> -- height : TBasicType TInt IO () @@ -1556,16 +1664,16 @@ -- method CellRenderer::set_padding -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xpad", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ypad", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xpad", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ypad", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_cell_renderer_set_padding" gtk_cell_renderer_set_padding :: Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer" - Int32 -> -- xpad : TBasicType TInt32 - Int32 -> -- ypad : TBasicType TInt32 + Int32 -> -- xpad : TBasicType TInt + Int32 -> -- ypad : TBasicType TInt IO () @@ -1589,7 +1697,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1619,7 +1727,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1649,7 +1757,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", 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},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "background_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "CellEditable" +-- returnType : Just (TInterface "Gtk" "CellEditable") -- throws : False -- Skip return : False @@ -1701,7 +1809,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "canceled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/CellRenderer.hs-boot b/GI/Gtk/Objects/CellRenderer.hs-boot --- a/GI/Gtk/Objects/CellRenderer.hs-boot +++ b/GI/Gtk/Objects/CellRenderer.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.CellRenderer where -import Prelude () 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 diff --git a/GI/Gtk/Objects/CellRendererAccel.hs b/GI/Gtk/Objects/CellRendererAccel.hs --- a/GI/Gtk/Objects/CellRendererAccel.hs +++ b/GI/Gtk/Objects/CellRendererAccel.hs @@ -26,6 +26,7 @@ -- * Properties -- ** AccelKey CellRendererAccelAccelKeyPropertyInfo , + cellRendererAccelAccelKey , constructCellRendererAccelAccelKey , getCellRendererAccelAccelKey , setCellRendererAccelAccelKey , @@ -33,6 +34,7 @@ -- ** AccelMode CellRendererAccelAccelModePropertyInfo , + cellRendererAccelAccelMode , constructCellRendererAccelAccelMode , getCellRendererAccelAccelMode , setCellRendererAccelAccelMode , @@ -40,6 +42,7 @@ -- ** AccelMods CellRendererAccelAccelModsPropertyInfo , + cellRendererAccelAccelMods , constructCellRendererAccelAccelMods , getCellRendererAccelAccelMods , setCellRendererAccelAccelMods , @@ -47,6 +50,7 @@ -- ** Keycode CellRendererAccelKeycodePropertyInfo , + cellRendererAccelKeycode , constructCellRendererAccelKeycode , getCellRendererAccelKeycode , setCellRendererAccelKeycode , @@ -83,9 +87,9 @@ ) where -import Prelude () 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 @@ -269,17 +273,18 @@ connectSignalFunPtr obj "accel-edited" cb' after -- VVV Prop "accel-key" - -- Type: TBasicType TUInt32 + -- Type: TBasicType TUInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererAccelAccelKey :: (MonadIO m, CellRendererAccelK o) => o -> m Word32 -getCellRendererAccelAccelKey obj = liftIO $ getObjectPropertyCUInt obj "accel-key" +getCellRendererAccelAccelKey obj = liftIO $ getObjectPropertyUInt32 obj "accel-key" setCellRendererAccelAccelKey :: (MonadIO m, CellRendererAccelK o) => o -> Word32 -> m () -setCellRendererAccelAccelKey obj val = liftIO $ setObjectPropertyCUInt obj "accel-key" val +setCellRendererAccelAccelKey obj val = liftIO $ setObjectPropertyUInt32 obj "accel-key" val constructCellRendererAccelAccelKey :: Word32 -> IO ([Char], GValue) -constructCellRendererAccelAccelKey val = constructObjectPropertyCUInt "accel-key" val +constructCellRendererAccelAccelKey val = constructObjectPropertyUInt32 "accel-key" val data CellRendererAccelAccelKeyPropertyInfo instance AttrInfo CellRendererAccelAccelKeyPropertyInfo where @@ -291,10 +296,12 @@ attrGet _ = getCellRendererAccelAccelKey attrSet _ = setCellRendererAccelAccelKey attrConstruct _ = constructCellRendererAccelAccelKey + attrClear _ = undefined -- VVV Prop "accel-mode" -- Type: TInterface "Gtk" "CellRendererAccelMode" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererAccelAccelMode :: (MonadIO m, CellRendererAccelK o) => o -> m CellRendererAccelMode getCellRendererAccelAccelMode obj = liftIO $ getObjectPropertyEnum obj "accel-mode" @@ -315,10 +322,12 @@ attrGet _ = getCellRendererAccelAccelMode attrSet _ = setCellRendererAccelAccelMode attrConstruct _ = constructCellRendererAccelAccelMode + attrClear _ = undefined -- VVV Prop "accel-mods" -- Type: TInterface "Gdk" "ModifierType" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererAccelAccelMods :: (MonadIO m, CellRendererAccelK o) => o -> m [Gdk.ModifierType] getCellRendererAccelAccelMods obj = liftIO $ getObjectPropertyFlags obj "accel-mods" @@ -339,19 +348,21 @@ attrGet _ = getCellRendererAccelAccelMods attrSet _ = setCellRendererAccelAccelMods attrConstruct _ = constructCellRendererAccelAccelMods + attrClear _ = undefined -- VVV Prop "keycode" - -- Type: TBasicType TUInt32 + -- Type: TBasicType TUInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererAccelKeycode :: (MonadIO m, CellRendererAccelK o) => o -> m Word32 -getCellRendererAccelKeycode obj = liftIO $ getObjectPropertyCUInt obj "keycode" +getCellRendererAccelKeycode obj = liftIO $ getObjectPropertyUInt32 obj "keycode" setCellRendererAccelKeycode :: (MonadIO m, CellRendererAccelK o) => o -> Word32 -> m () -setCellRendererAccelKeycode obj val = liftIO $ setObjectPropertyCUInt obj "keycode" val +setCellRendererAccelKeycode obj val = liftIO $ setObjectPropertyUInt32 obj "keycode" val constructCellRendererAccelKeycode :: Word32 -> IO ([Char], GValue) -constructCellRendererAccelKeycode val = constructObjectPropertyCUInt "keycode" val +constructCellRendererAccelKeycode val = constructObjectPropertyUInt32 "keycode" val data CellRendererAccelKeycodePropertyInfo instance AttrInfo CellRendererAccelKeycodePropertyInfo where @@ -363,10 +374,23 @@ attrGet _ = getCellRendererAccelKeycode attrSet _ = setCellRendererAccelKeycode attrConstruct _ = constructCellRendererAccelKeycode + attrClear _ = undefined type instance AttributeList CellRendererAccel = CellRendererAccelAttributeList type CellRendererAccelAttributeList = ('[ '("accelKey", CellRendererAccelAccelKeyPropertyInfo), '("accelMode", CellRendererAccelAccelModePropertyInfo), '("accelMods", CellRendererAccelAccelModsPropertyInfo), '("alignSet", CellRendererTextAlignSetPropertyInfo), '("alignment", CellRendererTextAlignmentPropertyInfo), '("attributes", CellRendererTextAttributesPropertyInfo), '("background", CellRendererTextBackgroundPropertyInfo), '("backgroundGdk", CellRendererTextBackgroundGdkPropertyInfo), '("backgroundRgba", CellRendererTextBackgroundRgbaPropertyInfo), '("backgroundSet", CellRendererTextBackgroundSetPropertyInfo), '("cellBackground", CellRendererCellBackgroundPropertyInfo), '("cellBackgroundGdk", CellRendererCellBackgroundGdkPropertyInfo), '("cellBackgroundRgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cellBackgroundSet", CellRendererCellBackgroundSetPropertyInfo), '("editable", CellRendererTextEditablePropertyInfo), '("editableSet", CellRendererTextEditableSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("ellipsize", CellRendererTextEllipsizePropertyInfo), '("ellipsizeSet", CellRendererTextEllipsizeSetPropertyInfo), '("family", CellRendererTextFamilyPropertyInfo), '("familySet", CellRendererTextFamilySetPropertyInfo), '("font", CellRendererTextFontPropertyInfo), '("fontDesc", CellRendererTextFontDescPropertyInfo), '("foreground", CellRendererTextForegroundPropertyInfo), '("foregroundGdk", CellRendererTextForegroundGdkPropertyInfo), '("foregroundRgba", CellRendererTextForegroundRgbaPropertyInfo), '("foregroundSet", CellRendererTextForegroundSetPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("isExpanded", CellRendererIsExpandedPropertyInfo), '("isExpander", CellRendererIsExpanderPropertyInfo), '("keycode", CellRendererAccelKeycodePropertyInfo), '("language", CellRendererTextLanguagePropertyInfo), '("languageSet", CellRendererTextLanguageSetPropertyInfo), '("markup", CellRendererTextMarkupPropertyInfo), '("maxWidthChars", CellRendererTextMaxWidthCharsPropertyInfo), '("mode", CellRendererModePropertyInfo), '("placeholderText", CellRendererTextPlaceholderTextPropertyInfo), '("rise", CellRendererTextRisePropertyInfo), '("riseSet", CellRendererTextRiseSetPropertyInfo), '("scale", CellRendererTextScalePropertyInfo), '("scaleSet", CellRendererTextScaleSetPropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("singleParagraphMode", CellRendererTextSingleParagraphModePropertyInfo), '("size", CellRendererTextSizePropertyInfo), '("sizePoints", CellRendererTextSizePointsPropertyInfo), '("sizeSet", CellRendererTextSizeSetPropertyInfo), '("stretch", CellRendererTextStretchPropertyInfo), '("stretchSet", CellRendererTextStretchSetPropertyInfo), '("strikethrough", CellRendererTextStrikethroughPropertyInfo), '("strikethroughSet", CellRendererTextStrikethroughSetPropertyInfo), '("style", CellRendererTextStylePropertyInfo), '("styleSet", CellRendererTextStyleSetPropertyInfo), '("text", CellRendererTextTextPropertyInfo), '("underline", CellRendererTextUnderlinePropertyInfo), '("underlineSet", CellRendererTextUnderlineSetPropertyInfo), '("variant", CellRendererTextVariantPropertyInfo), '("variantSet", CellRendererTextVariantSetPropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("weight", CellRendererTextWeightPropertyInfo), '("weightSet", CellRendererTextWeightSetPropertyInfo), '("width", CellRendererWidthPropertyInfo), '("widthChars", CellRendererTextWidthCharsPropertyInfo), '("wrapMode", CellRendererTextWrapModePropertyInfo), '("wrapWidth", CellRendererTextWrapWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] :: [(Symbol, *)]) +cellRendererAccelAccelKey :: AttrLabelProxy "accelKey" +cellRendererAccelAccelKey = AttrLabelProxy + +cellRendererAccelAccelMode :: AttrLabelProxy "accelMode" +cellRendererAccelAccelMode = AttrLabelProxy + +cellRendererAccelAccelMods :: AttrLabelProxy "accelMods" +cellRendererAccelAccelMods = AttrLabelProxy + +cellRendererAccelKeycode :: AttrLabelProxy "keycode" +cellRendererAccelKeycode = AttrLabelProxy + data CellRendererAccelAccelClearedSignalInfo instance SignalInfo CellRendererAccelAccelClearedSignalInfo where type HaskellCallbackType CellRendererAccelAccelClearedSignalInfo = CellRendererAccelAccelClearedCallback @@ -384,7 +408,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "CellRendererAccel" +-- returnType : Just (TInterface "Gtk" "CellRendererAccel") -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/CellRendererAccel.hs-boot b/GI/Gtk/Objects/CellRendererAccel.hs-boot --- a/GI/Gtk/Objects/CellRendererAccel.hs-boot +++ b/GI/Gtk/Objects/CellRendererAccel.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.CellRendererAccel where -import Prelude () 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 diff --git a/GI/Gtk/Objects/CellRendererCombo.hs b/GI/Gtk/Objects/CellRendererCombo.hs --- a/GI/Gtk/Objects/CellRendererCombo.hs +++ b/GI/Gtk/Objects/CellRendererCombo.hs @@ -26,6 +26,7 @@ -- * Properties -- ** HasEntry CellRendererComboHasEntryPropertyInfo , + cellRendererComboHasEntry , constructCellRendererComboHasEntry , getCellRendererComboHasEntry , setCellRendererComboHasEntry , @@ -33,6 +34,8 @@ -- ** Model CellRendererComboModelPropertyInfo , + cellRendererComboModel , + clearCellRendererComboModel , constructCellRendererComboModel , getCellRendererComboModel , setCellRendererComboModel , @@ -40,6 +43,7 @@ -- ** TextColumn CellRendererComboTextColumnPropertyInfo , + cellRendererComboTextColumn , constructCellRendererComboTextColumn , getCellRendererComboTextColumn , setCellRendererComboTextColumn , @@ -64,9 +68,9 @@ ) where -import Prelude () 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 @@ -203,6 +207,7 @@ -- VVV Prop "has-entry" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererComboHasEntry :: (MonadIO m, CellRendererComboK o) => o -> m Bool getCellRendererComboHasEntry obj = liftIO $ getObjectPropertyBool obj "has-entry" @@ -223,43 +228,50 @@ attrGet _ = getCellRendererComboHasEntry attrSet _ = setCellRendererComboHasEntry attrConstruct _ = constructCellRendererComboHasEntry + attrClear _ = undefined -- VVV Prop "model" -- Type: TInterface "Gtk" "TreeModel" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getCellRendererComboModel :: (MonadIO m, CellRendererComboK o) => o -> m TreeModel +getCellRendererComboModel :: (MonadIO m, CellRendererComboK o) => o -> m (Maybe TreeModel) getCellRendererComboModel obj = liftIO $ getObjectPropertyObject obj "model" TreeModel setCellRendererComboModel :: (MonadIO m, CellRendererComboK o, TreeModelK a) => o -> a -> m () -setCellRendererComboModel obj val = liftIO $ setObjectPropertyObject obj "model" val +setCellRendererComboModel obj val = liftIO $ setObjectPropertyObject obj "model" (Just val) constructCellRendererComboModel :: (TreeModelK a) => a -> IO ([Char], GValue) -constructCellRendererComboModel val = constructObjectPropertyObject "model" val +constructCellRendererComboModel val = constructObjectPropertyObject "model" (Just val) +clearCellRendererComboModel :: (MonadIO m, CellRendererComboK o) => o -> m () +clearCellRendererComboModel obj = liftIO $ setObjectPropertyObject obj "model" (Nothing :: Maybe TreeModel) + data CellRendererComboModelPropertyInfo instance AttrInfo CellRendererComboModelPropertyInfo where - type AttrAllowedOps CellRendererComboModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps CellRendererComboModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint CellRendererComboModelPropertyInfo = TreeModelK type AttrBaseTypeConstraint CellRendererComboModelPropertyInfo = CellRendererComboK - type AttrGetType CellRendererComboModelPropertyInfo = TreeModel + type AttrGetType CellRendererComboModelPropertyInfo = (Maybe TreeModel) type AttrLabel CellRendererComboModelPropertyInfo = "model" attrGet _ = getCellRendererComboModel attrSet _ = setCellRendererComboModel attrConstruct _ = constructCellRendererComboModel + attrClear _ = clearCellRendererComboModel -- VVV Prop "text-column" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererComboTextColumn :: (MonadIO m, CellRendererComboK o) => o -> m Int32 -getCellRendererComboTextColumn obj = liftIO $ getObjectPropertyCInt obj "text-column" +getCellRendererComboTextColumn obj = liftIO $ getObjectPropertyInt32 obj "text-column" setCellRendererComboTextColumn :: (MonadIO m, CellRendererComboK o) => o -> Int32 -> m () -setCellRendererComboTextColumn obj val = liftIO $ setObjectPropertyCInt obj "text-column" val +setCellRendererComboTextColumn obj val = liftIO $ setObjectPropertyInt32 obj "text-column" val constructCellRendererComboTextColumn :: Int32 -> IO ([Char], GValue) -constructCellRendererComboTextColumn val = constructObjectPropertyCInt "text-column" val +constructCellRendererComboTextColumn val = constructObjectPropertyInt32 "text-column" val data CellRendererComboTextColumnPropertyInfo instance AttrInfo CellRendererComboTextColumnPropertyInfo where @@ -271,10 +283,20 @@ attrGet _ = getCellRendererComboTextColumn attrSet _ = setCellRendererComboTextColumn attrConstruct _ = constructCellRendererComboTextColumn + attrClear _ = undefined type instance AttributeList CellRendererCombo = CellRendererComboAttributeList type CellRendererComboAttributeList = ('[ '("alignSet", CellRendererTextAlignSetPropertyInfo), '("alignment", CellRendererTextAlignmentPropertyInfo), '("attributes", CellRendererTextAttributesPropertyInfo), '("background", CellRendererTextBackgroundPropertyInfo), '("backgroundGdk", CellRendererTextBackgroundGdkPropertyInfo), '("backgroundRgba", CellRendererTextBackgroundRgbaPropertyInfo), '("backgroundSet", CellRendererTextBackgroundSetPropertyInfo), '("cellBackground", CellRendererCellBackgroundPropertyInfo), '("cellBackgroundGdk", CellRendererCellBackgroundGdkPropertyInfo), '("cellBackgroundRgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cellBackgroundSet", CellRendererCellBackgroundSetPropertyInfo), '("editable", CellRendererTextEditablePropertyInfo), '("editableSet", CellRendererTextEditableSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("ellipsize", CellRendererTextEllipsizePropertyInfo), '("ellipsizeSet", CellRendererTextEllipsizeSetPropertyInfo), '("family", CellRendererTextFamilyPropertyInfo), '("familySet", CellRendererTextFamilySetPropertyInfo), '("font", CellRendererTextFontPropertyInfo), '("fontDesc", CellRendererTextFontDescPropertyInfo), '("foreground", CellRendererTextForegroundPropertyInfo), '("foregroundGdk", CellRendererTextForegroundGdkPropertyInfo), '("foregroundRgba", CellRendererTextForegroundRgbaPropertyInfo), '("foregroundSet", CellRendererTextForegroundSetPropertyInfo), '("hasEntry", CellRendererComboHasEntryPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("isExpanded", CellRendererIsExpandedPropertyInfo), '("isExpander", CellRendererIsExpanderPropertyInfo), '("language", CellRendererTextLanguagePropertyInfo), '("languageSet", CellRendererTextLanguageSetPropertyInfo), '("markup", CellRendererTextMarkupPropertyInfo), '("maxWidthChars", CellRendererTextMaxWidthCharsPropertyInfo), '("mode", CellRendererModePropertyInfo), '("model", CellRendererComboModelPropertyInfo), '("placeholderText", CellRendererTextPlaceholderTextPropertyInfo), '("rise", CellRendererTextRisePropertyInfo), '("riseSet", CellRendererTextRiseSetPropertyInfo), '("scale", CellRendererTextScalePropertyInfo), '("scaleSet", CellRendererTextScaleSetPropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("singleParagraphMode", CellRendererTextSingleParagraphModePropertyInfo), '("size", CellRendererTextSizePropertyInfo), '("sizePoints", CellRendererTextSizePointsPropertyInfo), '("sizeSet", CellRendererTextSizeSetPropertyInfo), '("stretch", CellRendererTextStretchPropertyInfo), '("stretchSet", CellRendererTextStretchSetPropertyInfo), '("strikethrough", CellRendererTextStrikethroughPropertyInfo), '("strikethroughSet", CellRendererTextStrikethroughSetPropertyInfo), '("style", CellRendererTextStylePropertyInfo), '("styleSet", CellRendererTextStyleSetPropertyInfo), '("text", CellRendererTextTextPropertyInfo), '("textColumn", CellRendererComboTextColumnPropertyInfo), '("underline", CellRendererTextUnderlinePropertyInfo), '("underlineSet", CellRendererTextUnderlineSetPropertyInfo), '("variant", CellRendererTextVariantPropertyInfo), '("variantSet", CellRendererTextVariantSetPropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("weight", CellRendererTextWeightPropertyInfo), '("weightSet", CellRendererTextWeightSetPropertyInfo), '("width", CellRendererWidthPropertyInfo), '("widthChars", CellRendererTextWidthCharsPropertyInfo), '("wrapMode", CellRendererTextWrapModePropertyInfo), '("wrapWidth", CellRendererTextWrapWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] :: [(Symbol, *)]) +cellRendererComboHasEntry :: AttrLabelProxy "hasEntry" +cellRendererComboHasEntry = AttrLabelProxy + +cellRendererComboModel :: AttrLabelProxy "model" +cellRendererComboModel = AttrLabelProxy + +cellRendererComboTextColumn :: AttrLabelProxy "textColumn" +cellRendererComboTextColumn = AttrLabelProxy + data CellRendererComboChangedSignalInfo instance SignalInfo CellRendererComboChangedSignalInfo where type HaskellCallbackType CellRendererComboChangedSignalInfo = CellRendererComboChangedCallback @@ -287,7 +309,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "CellRendererCombo" +-- returnType : Just (TInterface "Gtk" "CellRendererCombo") -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/CellRendererCombo.hs-boot b/GI/Gtk/Objects/CellRendererCombo.hs-boot --- a/GI/Gtk/Objects/CellRendererCombo.hs-boot +++ b/GI/Gtk/Objects/CellRendererCombo.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.CellRendererCombo where -import Prelude () 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 diff --git a/GI/Gtk/Objects/CellRendererPixbuf.hs b/GI/Gtk/Objects/CellRendererPixbuf.hs --- a/GI/Gtk/Objects/CellRendererPixbuf.hs +++ b/GI/Gtk/Objects/CellRendererPixbuf.hs @@ -26,6 +26,7 @@ -- * Properties -- ** FollowState CellRendererPixbufFollowStatePropertyInfo, + cellRendererPixbufFollowState , constructCellRendererPixbufFollowState , getCellRendererPixbufFollowState , setCellRendererPixbufFollowState , @@ -33,6 +34,8 @@ -- ** Gicon CellRendererPixbufGiconPropertyInfo , + cellRendererPixbufGicon , + clearCellRendererPixbufGicon , constructCellRendererPixbufGicon , getCellRendererPixbufGicon , setCellRendererPixbufGicon , @@ -40,6 +43,8 @@ -- ** IconName CellRendererPixbufIconNamePropertyInfo , + cellRendererPixbufIconName , + clearCellRendererPixbufIconName , constructCellRendererPixbufIconName , getCellRendererPixbufIconName , setCellRendererPixbufIconName , @@ -47,6 +52,8 @@ -- ** Pixbuf CellRendererPixbufPixbufPropertyInfo , + cellRendererPixbufPixbuf , + clearCellRendererPixbufPixbuf , constructCellRendererPixbufPixbuf , getCellRendererPixbufPixbuf , setCellRendererPixbufPixbuf , @@ -54,6 +61,8 @@ -- ** PixbufExpanderClosed CellRendererPixbufPixbufExpanderClosedPropertyInfo, + cellRendererPixbufPixbufExpanderClosed , + clearCellRendererPixbufPixbufExpanderClosed, constructCellRendererPixbufPixbufExpanderClosed, getCellRendererPixbufPixbufExpanderClosed, setCellRendererPixbufPixbufExpanderClosed, @@ -61,6 +70,8 @@ -- ** PixbufExpanderOpen CellRendererPixbufPixbufExpanderOpenPropertyInfo, + cellRendererPixbufPixbufExpanderOpen , + clearCellRendererPixbufPixbufExpanderOpen, constructCellRendererPixbufPixbufExpanderOpen, getCellRendererPixbufPixbufExpanderOpen , setCellRendererPixbufPixbufExpanderOpen , @@ -68,6 +79,8 @@ -- ** StockDetail CellRendererPixbufStockDetailPropertyInfo, + cellRendererPixbufStockDetail , + clearCellRendererPixbufStockDetail , constructCellRendererPixbufStockDetail , getCellRendererPixbufStockDetail , setCellRendererPixbufStockDetail , @@ -75,6 +88,8 @@ -- ** StockId CellRendererPixbufStockIdPropertyInfo , + cellRendererPixbufStockId , + clearCellRendererPixbufStockId , constructCellRendererPixbufStockId , getCellRendererPixbufStockId , setCellRendererPixbufStockId , @@ -82,6 +97,7 @@ -- ** StockSize CellRendererPixbufStockSizePropertyInfo , + cellRendererPixbufStockSize , constructCellRendererPixbufStockSize , getCellRendererPixbufStockSize , setCellRendererPixbufStockSize , @@ -89,6 +105,8 @@ -- ** Surface CellRendererPixbufSurfacePropertyInfo , + cellRendererPixbufSurface , + clearCellRendererPixbufSurface , constructCellRendererPixbufSurface , getCellRendererPixbufSurface , setCellRendererPixbufSurface , @@ -98,9 +116,9 @@ ) where -import Prelude () 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 @@ -193,6 +211,7 @@ -- VVV Prop "follow-state" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererPixbufFollowState :: (MonadIO m, CellRendererPixbufK o) => o -> m Bool getCellRendererPixbufFollowState obj = liftIO $ getObjectPropertyBool obj "follow-state" @@ -213,187 +232,224 @@ attrGet _ = getCellRendererPixbufFollowState attrSet _ = setCellRendererPixbufFollowState attrConstruct _ = constructCellRendererPixbufFollowState + attrClear _ = undefined -- VVV Prop "gicon" -- Type: TInterface "Gio" "Icon" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getCellRendererPixbufGicon :: (MonadIO m, CellRendererPixbufK o) => o -> m Gio.Icon +getCellRendererPixbufGicon :: (MonadIO m, CellRendererPixbufK o) => o -> m (Maybe Gio.Icon) getCellRendererPixbufGicon obj = liftIO $ getObjectPropertyObject obj "gicon" Gio.Icon setCellRendererPixbufGicon :: (MonadIO m, CellRendererPixbufK o, Gio.IconK a) => o -> a -> m () -setCellRendererPixbufGicon obj val = liftIO $ setObjectPropertyObject obj "gicon" val +setCellRendererPixbufGicon obj val = liftIO $ setObjectPropertyObject obj "gicon" (Just val) constructCellRendererPixbufGicon :: (Gio.IconK a) => a -> IO ([Char], GValue) -constructCellRendererPixbufGicon val = constructObjectPropertyObject "gicon" val +constructCellRendererPixbufGicon val = constructObjectPropertyObject "gicon" (Just val) +clearCellRendererPixbufGicon :: (MonadIO m, CellRendererPixbufK o) => o -> m () +clearCellRendererPixbufGicon obj = liftIO $ setObjectPropertyObject obj "gicon" (Nothing :: Maybe Gio.Icon) + data CellRendererPixbufGiconPropertyInfo instance AttrInfo CellRendererPixbufGiconPropertyInfo where - type AttrAllowedOps CellRendererPixbufGiconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps CellRendererPixbufGiconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint CellRendererPixbufGiconPropertyInfo = Gio.IconK type AttrBaseTypeConstraint CellRendererPixbufGiconPropertyInfo = CellRendererPixbufK - type AttrGetType CellRendererPixbufGiconPropertyInfo = Gio.Icon + type AttrGetType CellRendererPixbufGiconPropertyInfo = (Maybe Gio.Icon) type AttrLabel CellRendererPixbufGiconPropertyInfo = "gicon" attrGet _ = getCellRendererPixbufGicon attrSet _ = setCellRendererPixbufGicon attrConstruct _ = constructCellRendererPixbufGicon + attrClear _ = clearCellRendererPixbufGicon -- VVV Prop "icon-name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getCellRendererPixbufIconName :: (MonadIO m, CellRendererPixbufK o) => o -> m T.Text +getCellRendererPixbufIconName :: (MonadIO m, CellRendererPixbufK o) => o -> m (Maybe T.Text) getCellRendererPixbufIconName obj = liftIO $ getObjectPropertyString obj "icon-name" setCellRendererPixbufIconName :: (MonadIO m, CellRendererPixbufK o) => o -> T.Text -> m () -setCellRendererPixbufIconName obj val = liftIO $ setObjectPropertyString obj "icon-name" val +setCellRendererPixbufIconName obj val = liftIO $ setObjectPropertyString obj "icon-name" (Just val) constructCellRendererPixbufIconName :: T.Text -> IO ([Char], GValue) -constructCellRendererPixbufIconName val = constructObjectPropertyString "icon-name" val +constructCellRendererPixbufIconName val = constructObjectPropertyString "icon-name" (Just val) +clearCellRendererPixbufIconName :: (MonadIO m, CellRendererPixbufK o) => o -> m () +clearCellRendererPixbufIconName obj = liftIO $ setObjectPropertyString obj "icon-name" (Nothing :: Maybe T.Text) + data CellRendererPixbufIconNamePropertyInfo instance AttrInfo CellRendererPixbufIconNamePropertyInfo where - type AttrAllowedOps CellRendererPixbufIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps CellRendererPixbufIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint CellRendererPixbufIconNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint CellRendererPixbufIconNamePropertyInfo = CellRendererPixbufK - type AttrGetType CellRendererPixbufIconNamePropertyInfo = T.Text + type AttrGetType CellRendererPixbufIconNamePropertyInfo = (Maybe T.Text) type AttrLabel CellRendererPixbufIconNamePropertyInfo = "icon-name" attrGet _ = getCellRendererPixbufIconName attrSet _ = setCellRendererPixbufIconName attrConstruct _ = constructCellRendererPixbufIconName + attrClear _ = clearCellRendererPixbufIconName -- VVV Prop "pixbuf" -- Type: TInterface "GdkPixbuf" "Pixbuf" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getCellRendererPixbufPixbuf :: (MonadIO m, CellRendererPixbufK o) => o -> m GdkPixbuf.Pixbuf +getCellRendererPixbufPixbuf :: (MonadIO m, CellRendererPixbufK o) => o -> m (Maybe GdkPixbuf.Pixbuf) getCellRendererPixbufPixbuf obj = liftIO $ getObjectPropertyObject obj "pixbuf" GdkPixbuf.Pixbuf setCellRendererPixbufPixbuf :: (MonadIO m, CellRendererPixbufK o, GdkPixbuf.PixbufK a) => o -> a -> m () -setCellRendererPixbufPixbuf obj val = liftIO $ setObjectPropertyObject obj "pixbuf" val +setCellRendererPixbufPixbuf obj val = liftIO $ setObjectPropertyObject obj "pixbuf" (Just val) constructCellRendererPixbufPixbuf :: (GdkPixbuf.PixbufK a) => a -> IO ([Char], GValue) -constructCellRendererPixbufPixbuf val = constructObjectPropertyObject "pixbuf" val +constructCellRendererPixbufPixbuf val = constructObjectPropertyObject "pixbuf" (Just val) +clearCellRendererPixbufPixbuf :: (MonadIO m, CellRendererPixbufK o) => o -> m () +clearCellRendererPixbufPixbuf obj = liftIO $ setObjectPropertyObject obj "pixbuf" (Nothing :: Maybe GdkPixbuf.Pixbuf) + data CellRendererPixbufPixbufPropertyInfo instance AttrInfo CellRendererPixbufPixbufPropertyInfo where - type AttrAllowedOps CellRendererPixbufPixbufPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps CellRendererPixbufPixbufPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint CellRendererPixbufPixbufPropertyInfo = GdkPixbuf.PixbufK type AttrBaseTypeConstraint CellRendererPixbufPixbufPropertyInfo = CellRendererPixbufK - type AttrGetType CellRendererPixbufPixbufPropertyInfo = GdkPixbuf.Pixbuf + type AttrGetType CellRendererPixbufPixbufPropertyInfo = (Maybe GdkPixbuf.Pixbuf) type AttrLabel CellRendererPixbufPixbufPropertyInfo = "pixbuf" attrGet _ = getCellRendererPixbufPixbuf attrSet _ = setCellRendererPixbufPixbuf attrConstruct _ = constructCellRendererPixbufPixbuf + attrClear _ = clearCellRendererPixbufPixbuf -- VVV Prop "pixbuf-expander-closed" -- Type: TInterface "GdkPixbuf" "Pixbuf" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getCellRendererPixbufPixbufExpanderClosed :: (MonadIO m, CellRendererPixbufK o) => o -> m GdkPixbuf.Pixbuf +getCellRendererPixbufPixbufExpanderClosed :: (MonadIO m, CellRendererPixbufK o) => o -> m (Maybe GdkPixbuf.Pixbuf) getCellRendererPixbufPixbufExpanderClosed obj = liftIO $ getObjectPropertyObject obj "pixbuf-expander-closed" GdkPixbuf.Pixbuf setCellRendererPixbufPixbufExpanderClosed :: (MonadIO m, CellRendererPixbufK o, GdkPixbuf.PixbufK a) => o -> a -> m () -setCellRendererPixbufPixbufExpanderClosed obj val = liftIO $ setObjectPropertyObject obj "pixbuf-expander-closed" val +setCellRendererPixbufPixbufExpanderClosed obj val = liftIO $ setObjectPropertyObject obj "pixbuf-expander-closed" (Just val) constructCellRendererPixbufPixbufExpanderClosed :: (GdkPixbuf.PixbufK a) => a -> IO ([Char], GValue) -constructCellRendererPixbufPixbufExpanderClosed val = constructObjectPropertyObject "pixbuf-expander-closed" val +constructCellRendererPixbufPixbufExpanderClosed val = constructObjectPropertyObject "pixbuf-expander-closed" (Just val) +clearCellRendererPixbufPixbufExpanderClosed :: (MonadIO m, CellRendererPixbufK o) => o -> m () +clearCellRendererPixbufPixbufExpanderClosed obj = liftIO $ setObjectPropertyObject obj "pixbuf-expander-closed" (Nothing :: Maybe GdkPixbuf.Pixbuf) + data CellRendererPixbufPixbufExpanderClosedPropertyInfo instance AttrInfo CellRendererPixbufPixbufExpanderClosedPropertyInfo where - type AttrAllowedOps CellRendererPixbufPixbufExpanderClosedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps CellRendererPixbufPixbufExpanderClosedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint CellRendererPixbufPixbufExpanderClosedPropertyInfo = GdkPixbuf.PixbufK type AttrBaseTypeConstraint CellRendererPixbufPixbufExpanderClosedPropertyInfo = CellRendererPixbufK - type AttrGetType CellRendererPixbufPixbufExpanderClosedPropertyInfo = GdkPixbuf.Pixbuf + type AttrGetType CellRendererPixbufPixbufExpanderClosedPropertyInfo = (Maybe GdkPixbuf.Pixbuf) type AttrLabel CellRendererPixbufPixbufExpanderClosedPropertyInfo = "pixbuf-expander-closed" attrGet _ = getCellRendererPixbufPixbufExpanderClosed attrSet _ = setCellRendererPixbufPixbufExpanderClosed attrConstruct _ = constructCellRendererPixbufPixbufExpanderClosed + attrClear _ = clearCellRendererPixbufPixbufExpanderClosed -- VVV Prop "pixbuf-expander-open" -- Type: TInterface "GdkPixbuf" "Pixbuf" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getCellRendererPixbufPixbufExpanderOpen :: (MonadIO m, CellRendererPixbufK o) => o -> m GdkPixbuf.Pixbuf +getCellRendererPixbufPixbufExpanderOpen :: (MonadIO m, CellRendererPixbufK o) => o -> m (Maybe GdkPixbuf.Pixbuf) getCellRendererPixbufPixbufExpanderOpen obj = liftIO $ getObjectPropertyObject obj "pixbuf-expander-open" GdkPixbuf.Pixbuf setCellRendererPixbufPixbufExpanderOpen :: (MonadIO m, CellRendererPixbufK o, GdkPixbuf.PixbufK a) => o -> a -> m () -setCellRendererPixbufPixbufExpanderOpen obj val = liftIO $ setObjectPropertyObject obj "pixbuf-expander-open" val +setCellRendererPixbufPixbufExpanderOpen obj val = liftIO $ setObjectPropertyObject obj "pixbuf-expander-open" (Just val) constructCellRendererPixbufPixbufExpanderOpen :: (GdkPixbuf.PixbufK a) => a -> IO ([Char], GValue) -constructCellRendererPixbufPixbufExpanderOpen val = constructObjectPropertyObject "pixbuf-expander-open" val +constructCellRendererPixbufPixbufExpanderOpen val = constructObjectPropertyObject "pixbuf-expander-open" (Just val) +clearCellRendererPixbufPixbufExpanderOpen :: (MonadIO m, CellRendererPixbufK o) => o -> m () +clearCellRendererPixbufPixbufExpanderOpen obj = liftIO $ setObjectPropertyObject obj "pixbuf-expander-open" (Nothing :: Maybe GdkPixbuf.Pixbuf) + data CellRendererPixbufPixbufExpanderOpenPropertyInfo instance AttrInfo CellRendererPixbufPixbufExpanderOpenPropertyInfo where - type AttrAllowedOps CellRendererPixbufPixbufExpanderOpenPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps CellRendererPixbufPixbufExpanderOpenPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint CellRendererPixbufPixbufExpanderOpenPropertyInfo = GdkPixbuf.PixbufK type AttrBaseTypeConstraint CellRendererPixbufPixbufExpanderOpenPropertyInfo = CellRendererPixbufK - type AttrGetType CellRendererPixbufPixbufExpanderOpenPropertyInfo = GdkPixbuf.Pixbuf + type AttrGetType CellRendererPixbufPixbufExpanderOpenPropertyInfo = (Maybe GdkPixbuf.Pixbuf) type AttrLabel CellRendererPixbufPixbufExpanderOpenPropertyInfo = "pixbuf-expander-open" attrGet _ = getCellRendererPixbufPixbufExpanderOpen attrSet _ = setCellRendererPixbufPixbufExpanderOpen attrConstruct _ = constructCellRendererPixbufPixbufExpanderOpen + attrClear _ = clearCellRendererPixbufPixbufExpanderOpen -- VVV Prop "stock-detail" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getCellRendererPixbufStockDetail :: (MonadIO m, CellRendererPixbufK o) => o -> m T.Text +getCellRendererPixbufStockDetail :: (MonadIO m, CellRendererPixbufK o) => o -> m (Maybe T.Text) getCellRendererPixbufStockDetail obj = liftIO $ getObjectPropertyString obj "stock-detail" setCellRendererPixbufStockDetail :: (MonadIO m, CellRendererPixbufK o) => o -> T.Text -> m () -setCellRendererPixbufStockDetail obj val = liftIO $ setObjectPropertyString obj "stock-detail" val +setCellRendererPixbufStockDetail obj val = liftIO $ setObjectPropertyString obj "stock-detail" (Just val) constructCellRendererPixbufStockDetail :: T.Text -> IO ([Char], GValue) -constructCellRendererPixbufStockDetail val = constructObjectPropertyString "stock-detail" val +constructCellRendererPixbufStockDetail val = constructObjectPropertyString "stock-detail" (Just val) +clearCellRendererPixbufStockDetail :: (MonadIO m, CellRendererPixbufK o) => o -> m () +clearCellRendererPixbufStockDetail obj = liftIO $ setObjectPropertyString obj "stock-detail" (Nothing :: Maybe T.Text) + data CellRendererPixbufStockDetailPropertyInfo instance AttrInfo CellRendererPixbufStockDetailPropertyInfo where - type AttrAllowedOps CellRendererPixbufStockDetailPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps CellRendererPixbufStockDetailPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint CellRendererPixbufStockDetailPropertyInfo = (~) T.Text type AttrBaseTypeConstraint CellRendererPixbufStockDetailPropertyInfo = CellRendererPixbufK - type AttrGetType CellRendererPixbufStockDetailPropertyInfo = T.Text + type AttrGetType CellRendererPixbufStockDetailPropertyInfo = (Maybe T.Text) type AttrLabel CellRendererPixbufStockDetailPropertyInfo = "stock-detail" attrGet _ = getCellRendererPixbufStockDetail attrSet _ = setCellRendererPixbufStockDetail attrConstruct _ = constructCellRendererPixbufStockDetail + attrClear _ = clearCellRendererPixbufStockDetail -- VVV Prop "stock-id" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getCellRendererPixbufStockId :: (MonadIO m, CellRendererPixbufK o) => o -> m T.Text +getCellRendererPixbufStockId :: (MonadIO m, CellRendererPixbufK o) => o -> m (Maybe T.Text) getCellRendererPixbufStockId obj = liftIO $ getObjectPropertyString obj "stock-id" setCellRendererPixbufStockId :: (MonadIO m, CellRendererPixbufK o) => o -> T.Text -> m () -setCellRendererPixbufStockId obj val = liftIO $ setObjectPropertyString obj "stock-id" val +setCellRendererPixbufStockId obj val = liftIO $ setObjectPropertyString obj "stock-id" (Just val) constructCellRendererPixbufStockId :: T.Text -> IO ([Char], GValue) -constructCellRendererPixbufStockId val = constructObjectPropertyString "stock-id" val +constructCellRendererPixbufStockId val = constructObjectPropertyString "stock-id" (Just val) +clearCellRendererPixbufStockId :: (MonadIO m, CellRendererPixbufK o) => o -> m () +clearCellRendererPixbufStockId obj = liftIO $ setObjectPropertyString obj "stock-id" (Nothing :: Maybe T.Text) + data CellRendererPixbufStockIdPropertyInfo instance AttrInfo CellRendererPixbufStockIdPropertyInfo where - type AttrAllowedOps CellRendererPixbufStockIdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps CellRendererPixbufStockIdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint CellRendererPixbufStockIdPropertyInfo = (~) T.Text type AttrBaseTypeConstraint CellRendererPixbufStockIdPropertyInfo = CellRendererPixbufK - type AttrGetType CellRendererPixbufStockIdPropertyInfo = T.Text + type AttrGetType CellRendererPixbufStockIdPropertyInfo = (Maybe T.Text) type AttrLabel CellRendererPixbufStockIdPropertyInfo = "stock-id" attrGet _ = getCellRendererPixbufStockId attrSet _ = setCellRendererPixbufStockId attrConstruct _ = constructCellRendererPixbufStockId + attrClear _ = clearCellRendererPixbufStockId -- VVV Prop "stock-size" - -- Type: TBasicType TUInt32 + -- Type: TBasicType TUInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererPixbufStockSize :: (MonadIO m, CellRendererPixbufK o) => o -> m Word32 -getCellRendererPixbufStockSize obj = liftIO $ getObjectPropertyCUInt obj "stock-size" +getCellRendererPixbufStockSize obj = liftIO $ getObjectPropertyUInt32 obj "stock-size" setCellRendererPixbufStockSize :: (MonadIO m, CellRendererPixbufK o) => o -> Word32 -> m () -setCellRendererPixbufStockSize obj val = liftIO $ setObjectPropertyCUInt obj "stock-size" val +setCellRendererPixbufStockSize obj val = liftIO $ setObjectPropertyUInt32 obj "stock-size" val constructCellRendererPixbufStockSize :: Word32 -> IO ([Char], GValue) -constructCellRendererPixbufStockSize val = constructObjectPropertyCUInt "stock-size" val +constructCellRendererPixbufStockSize val = constructObjectPropertyUInt32 "stock-size" val data CellRendererPixbufStockSizePropertyInfo instance AttrInfo CellRendererPixbufStockSizePropertyInfo where @@ -405,34 +461,70 @@ attrGet _ = getCellRendererPixbufStockSize attrSet _ = setCellRendererPixbufStockSize attrConstruct _ = constructCellRendererPixbufStockSize + attrClear _ = undefined -- VVV Prop "surface" -- Type: TInterface "cairo" "Surface" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getCellRendererPixbufSurface :: (MonadIO m, CellRendererPixbufK o) => o -> m Cairo.Surface +getCellRendererPixbufSurface :: (MonadIO m, CellRendererPixbufK o) => o -> m (Maybe Cairo.Surface) getCellRendererPixbufSurface obj = liftIO $ getObjectPropertyBoxed obj "surface" Cairo.Surface setCellRendererPixbufSurface :: (MonadIO m, CellRendererPixbufK o) => o -> Cairo.Surface -> m () -setCellRendererPixbufSurface obj val = liftIO $ setObjectPropertyBoxed obj "surface" val +setCellRendererPixbufSurface obj val = liftIO $ setObjectPropertyBoxed obj "surface" (Just val) constructCellRendererPixbufSurface :: Cairo.Surface -> IO ([Char], GValue) -constructCellRendererPixbufSurface val = constructObjectPropertyBoxed "surface" val +constructCellRendererPixbufSurface val = constructObjectPropertyBoxed "surface" (Just val) +clearCellRendererPixbufSurface :: (MonadIO m, CellRendererPixbufK o) => o -> m () +clearCellRendererPixbufSurface obj = liftIO $ setObjectPropertyBoxed obj "surface" (Nothing :: Maybe Cairo.Surface) + data CellRendererPixbufSurfacePropertyInfo instance AttrInfo CellRendererPixbufSurfacePropertyInfo where - type AttrAllowedOps CellRendererPixbufSurfacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps CellRendererPixbufSurfacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint CellRendererPixbufSurfacePropertyInfo = (~) Cairo.Surface type AttrBaseTypeConstraint CellRendererPixbufSurfacePropertyInfo = CellRendererPixbufK - type AttrGetType CellRendererPixbufSurfacePropertyInfo = Cairo.Surface + type AttrGetType CellRendererPixbufSurfacePropertyInfo = (Maybe Cairo.Surface) type AttrLabel CellRendererPixbufSurfacePropertyInfo = "surface" attrGet _ = getCellRendererPixbufSurface attrSet _ = setCellRendererPixbufSurface attrConstruct _ = constructCellRendererPixbufSurface + attrClear _ = clearCellRendererPixbufSurface type instance AttributeList CellRendererPixbuf = CellRendererPixbufAttributeList type CellRendererPixbufAttributeList = ('[ '("cellBackground", CellRendererCellBackgroundPropertyInfo), '("cellBackgroundGdk", CellRendererCellBackgroundGdkPropertyInfo), '("cellBackgroundRgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cellBackgroundSet", CellRendererCellBackgroundSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("followState", CellRendererPixbufFollowStatePropertyInfo), '("gicon", CellRendererPixbufGiconPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("iconName", CellRendererPixbufIconNamePropertyInfo), '("isExpanded", CellRendererIsExpandedPropertyInfo), '("isExpander", CellRendererIsExpanderPropertyInfo), '("mode", CellRendererModePropertyInfo), '("pixbuf", CellRendererPixbufPixbufPropertyInfo), '("pixbufExpanderClosed", CellRendererPixbufPixbufExpanderClosedPropertyInfo), '("pixbufExpanderOpen", CellRendererPixbufPixbufExpanderOpenPropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("stockDetail", CellRendererPixbufStockDetailPropertyInfo), '("stockId", CellRendererPixbufStockIdPropertyInfo), '("stockSize", CellRendererPixbufStockSizePropertyInfo), '("surface", CellRendererPixbufSurfacePropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("width", CellRendererWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] :: [(Symbol, *)]) +cellRendererPixbufFollowState :: AttrLabelProxy "followState" +cellRendererPixbufFollowState = AttrLabelProxy + +cellRendererPixbufGicon :: AttrLabelProxy "gicon" +cellRendererPixbufGicon = AttrLabelProxy + +cellRendererPixbufIconName :: AttrLabelProxy "iconName" +cellRendererPixbufIconName = AttrLabelProxy + +cellRendererPixbufPixbuf :: AttrLabelProxy "pixbuf" +cellRendererPixbufPixbuf = AttrLabelProxy + +cellRendererPixbufPixbufExpanderClosed :: AttrLabelProxy "pixbufExpanderClosed" +cellRendererPixbufPixbufExpanderClosed = AttrLabelProxy + +cellRendererPixbufPixbufExpanderOpen :: AttrLabelProxy "pixbufExpanderOpen" +cellRendererPixbufPixbufExpanderOpen = AttrLabelProxy + +cellRendererPixbufStockDetail :: AttrLabelProxy "stockDetail" +cellRendererPixbufStockDetail = AttrLabelProxy + +cellRendererPixbufStockId :: AttrLabelProxy "stockId" +cellRendererPixbufStockId = AttrLabelProxy + +cellRendererPixbufStockSize :: AttrLabelProxy "stockSize" +cellRendererPixbufStockSize = AttrLabelProxy + +cellRendererPixbufSurface :: AttrLabelProxy "surface" +cellRendererPixbufSurface = AttrLabelProxy + type instance SignalList CellRendererPixbuf = CellRendererPixbufSignalList type CellRendererPixbufSignalList = ('[ '("editingCanceled", CellRendererEditingCanceledSignalInfo), '("editingStarted", CellRendererEditingStartedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -440,7 +532,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "CellRendererPixbuf" +-- returnType : Just (TInterface "Gtk" "CellRendererPixbuf") -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/CellRendererPixbuf.hs-boot b/GI/Gtk/Objects/CellRendererPixbuf.hs-boot --- a/GI/Gtk/Objects/CellRendererPixbuf.hs-boot +++ b/GI/Gtk/Objects/CellRendererPixbuf.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.CellRendererPixbuf where -import Prelude () 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 diff --git a/GI/Gtk/Objects/CellRendererProgress.hs b/GI/Gtk/Objects/CellRendererProgress.hs --- a/GI/Gtk/Objects/CellRendererProgress.hs +++ b/GI/Gtk/Objects/CellRendererProgress.hs @@ -26,6 +26,7 @@ -- * Properties -- ** Inverted CellRendererProgressInvertedPropertyInfo, + cellRendererProgressInverted , constructCellRendererProgressInverted , getCellRendererProgressInverted , setCellRendererProgressInverted , @@ -33,6 +34,7 @@ -- ** Pulse CellRendererProgressPulsePropertyInfo , + cellRendererProgressPulse , constructCellRendererProgressPulse , getCellRendererProgressPulse , setCellRendererProgressPulse , @@ -40,6 +42,8 @@ -- ** Text CellRendererProgressTextPropertyInfo , + cellRendererProgressText , + clearCellRendererProgressText , constructCellRendererProgressText , getCellRendererProgressText , setCellRendererProgressText , @@ -47,6 +51,7 @@ -- ** TextXalign CellRendererProgressTextXalignPropertyInfo, + cellRendererProgressTextXalign , constructCellRendererProgressTextXalign , getCellRendererProgressTextXalign , setCellRendererProgressTextXalign , @@ -54,6 +59,7 @@ -- ** TextYalign CellRendererProgressTextYalignPropertyInfo, + cellRendererProgressTextYalign , constructCellRendererProgressTextYalign , getCellRendererProgressTextYalign , setCellRendererProgressTextYalign , @@ -61,6 +67,7 @@ -- ** Value CellRendererProgressValuePropertyInfo , + cellRendererProgressValue , constructCellRendererProgressValue , getCellRendererProgressValue , setCellRendererProgressValue , @@ -70,9 +77,9 @@ ) where -import Prelude () 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 @@ -164,6 +171,7 @@ -- VVV Prop "inverted" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererProgressInverted :: (MonadIO m, CellRendererProgressK o) => o -> m Bool getCellRendererProgressInverted obj = liftIO $ getObjectPropertyBool obj "inverted" @@ -184,19 +192,21 @@ attrGet _ = getCellRendererProgressInverted attrSet _ = setCellRendererProgressInverted attrConstruct _ = constructCellRendererProgressInverted + attrClear _ = undefined -- VVV Prop "pulse" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererProgressPulse :: (MonadIO m, CellRendererProgressK o) => o -> m Int32 -getCellRendererProgressPulse obj = liftIO $ getObjectPropertyCInt obj "pulse" +getCellRendererProgressPulse obj = liftIO $ getObjectPropertyInt32 obj "pulse" setCellRendererProgressPulse :: (MonadIO m, CellRendererProgressK o) => o -> Int32 -> m () -setCellRendererProgressPulse obj val = liftIO $ setObjectPropertyCInt obj "pulse" val +setCellRendererProgressPulse obj val = liftIO $ setObjectPropertyInt32 obj "pulse" val constructCellRendererProgressPulse :: Int32 -> IO ([Char], GValue) -constructCellRendererProgressPulse val = constructObjectPropertyCInt "pulse" val +constructCellRendererProgressPulse val = constructObjectPropertyInt32 "pulse" val data CellRendererProgressPulsePropertyInfo instance AttrInfo CellRendererProgressPulsePropertyInfo where @@ -208,34 +218,41 @@ attrGet _ = getCellRendererProgressPulse attrSet _ = setCellRendererProgressPulse attrConstruct _ = constructCellRendererProgressPulse + attrClear _ = undefined -- VVV Prop "text" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getCellRendererProgressText :: (MonadIO m, CellRendererProgressK o) => o -> m T.Text +getCellRendererProgressText :: (MonadIO m, CellRendererProgressK o) => o -> m (Maybe T.Text) getCellRendererProgressText obj = liftIO $ getObjectPropertyString obj "text" setCellRendererProgressText :: (MonadIO m, CellRendererProgressK o) => o -> T.Text -> m () -setCellRendererProgressText obj val = liftIO $ setObjectPropertyString obj "text" val +setCellRendererProgressText obj val = liftIO $ setObjectPropertyString obj "text" (Just val) constructCellRendererProgressText :: T.Text -> IO ([Char], GValue) -constructCellRendererProgressText val = constructObjectPropertyString "text" val +constructCellRendererProgressText val = constructObjectPropertyString "text" (Just val) +clearCellRendererProgressText :: (MonadIO m, CellRendererProgressK o) => o -> m () +clearCellRendererProgressText obj = liftIO $ setObjectPropertyString obj "text" (Nothing :: Maybe T.Text) + data CellRendererProgressTextPropertyInfo instance AttrInfo CellRendererProgressTextPropertyInfo where - type AttrAllowedOps CellRendererProgressTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps CellRendererProgressTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint CellRendererProgressTextPropertyInfo = (~) T.Text type AttrBaseTypeConstraint CellRendererProgressTextPropertyInfo = CellRendererProgressK - type AttrGetType CellRendererProgressTextPropertyInfo = T.Text + type AttrGetType CellRendererProgressTextPropertyInfo = (Maybe T.Text) type AttrLabel CellRendererProgressTextPropertyInfo = "text" attrGet _ = getCellRendererProgressText attrSet _ = setCellRendererProgressText attrConstruct _ = constructCellRendererProgressText + attrClear _ = clearCellRendererProgressText -- VVV Prop "text-xalign" -- Type: TBasicType TFloat -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererProgressTextXalign :: (MonadIO m, CellRendererProgressK o) => o -> m Float getCellRendererProgressTextXalign obj = liftIO $ getObjectPropertyFloat obj "text-xalign" @@ -256,10 +273,12 @@ attrGet _ = getCellRendererProgressTextXalign attrSet _ = setCellRendererProgressTextXalign attrConstruct _ = constructCellRendererProgressTextXalign + attrClear _ = undefined -- VVV Prop "text-yalign" -- Type: TBasicType TFloat -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererProgressTextYalign :: (MonadIO m, CellRendererProgressK o) => o -> m Float getCellRendererProgressTextYalign obj = liftIO $ getObjectPropertyFloat obj "text-yalign" @@ -280,19 +299,21 @@ attrGet _ = getCellRendererProgressTextYalign attrSet _ = setCellRendererProgressTextYalign attrConstruct _ = constructCellRendererProgressTextYalign + attrClear _ = undefined -- VVV Prop "value" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererProgressValue :: (MonadIO m, CellRendererProgressK o) => o -> m Int32 -getCellRendererProgressValue obj = liftIO $ getObjectPropertyCInt obj "value" +getCellRendererProgressValue obj = liftIO $ getObjectPropertyInt32 obj "value" setCellRendererProgressValue :: (MonadIO m, CellRendererProgressK o) => o -> Int32 -> m () -setCellRendererProgressValue obj val = liftIO $ setObjectPropertyCInt obj "value" val +setCellRendererProgressValue obj val = liftIO $ setObjectPropertyInt32 obj "value" val constructCellRendererProgressValue :: Int32 -> IO ([Char], GValue) -constructCellRendererProgressValue val = constructObjectPropertyCInt "value" val +constructCellRendererProgressValue val = constructObjectPropertyInt32 "value" val data CellRendererProgressValuePropertyInfo instance AttrInfo CellRendererProgressValuePropertyInfo where @@ -304,10 +325,29 @@ attrGet _ = getCellRendererProgressValue attrSet _ = setCellRendererProgressValue attrConstruct _ = constructCellRendererProgressValue + attrClear _ = undefined type instance AttributeList CellRendererProgress = CellRendererProgressAttributeList type CellRendererProgressAttributeList = ('[ '("cellBackground", CellRendererCellBackgroundPropertyInfo), '("cellBackgroundGdk", CellRendererCellBackgroundGdkPropertyInfo), '("cellBackgroundRgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cellBackgroundSet", CellRendererCellBackgroundSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("inverted", CellRendererProgressInvertedPropertyInfo), '("isExpanded", CellRendererIsExpandedPropertyInfo), '("isExpander", CellRendererIsExpanderPropertyInfo), '("mode", CellRendererModePropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("pulse", CellRendererProgressPulsePropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("text", CellRendererProgressTextPropertyInfo), '("textXalign", CellRendererProgressTextXalignPropertyInfo), '("textYalign", CellRendererProgressTextYalignPropertyInfo), '("value", CellRendererProgressValuePropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("width", CellRendererWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] :: [(Symbol, *)]) +cellRendererProgressInverted :: AttrLabelProxy "inverted" +cellRendererProgressInverted = AttrLabelProxy + +cellRendererProgressPulse :: AttrLabelProxy "pulse" +cellRendererProgressPulse = AttrLabelProxy + +cellRendererProgressText :: AttrLabelProxy "text" +cellRendererProgressText = AttrLabelProxy + +cellRendererProgressTextXalign :: AttrLabelProxy "textXalign" +cellRendererProgressTextXalign = AttrLabelProxy + +cellRendererProgressTextYalign :: AttrLabelProxy "textYalign" +cellRendererProgressTextYalign = AttrLabelProxy + +cellRendererProgressValue :: AttrLabelProxy "value" +cellRendererProgressValue = AttrLabelProxy + type instance SignalList CellRendererProgress = CellRendererProgressSignalList type CellRendererProgressSignalList = ('[ '("editingCanceled", CellRendererEditingCanceledSignalInfo), '("editingStarted", CellRendererEditingStartedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -315,7 +355,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "CellRendererProgress" +-- returnType : Just (TInterface "Gtk" "CellRendererProgress") -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/CellRendererProgress.hs-boot b/GI/Gtk/Objects/CellRendererProgress.hs-boot --- a/GI/Gtk/Objects/CellRendererProgress.hs-boot +++ b/GI/Gtk/Objects/CellRendererProgress.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.CellRendererProgress where -import Prelude () 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 diff --git a/GI/Gtk/Objects/CellRendererSpin.hs b/GI/Gtk/Objects/CellRendererSpin.hs --- a/GI/Gtk/Objects/CellRendererSpin.hs +++ b/GI/Gtk/Objects/CellRendererSpin.hs @@ -26,6 +26,8 @@ -- * Properties -- ** Adjustment CellRendererSpinAdjustmentPropertyInfo , + cellRendererSpinAdjustment , + clearCellRendererSpinAdjustment , constructCellRendererSpinAdjustment , getCellRendererSpinAdjustment , setCellRendererSpinAdjustment , @@ -33,6 +35,7 @@ -- ** ClimbRate CellRendererSpinClimbRatePropertyInfo , + cellRendererSpinClimbRate , constructCellRendererSpinClimbRate , getCellRendererSpinClimbRate , setCellRendererSpinClimbRate , @@ -40,6 +43,7 @@ -- ** Digits CellRendererSpinDigitsPropertyInfo , + cellRendererSpinDigits , constructCellRendererSpinDigits , getCellRendererSpinDigits , setCellRendererSpinDigits , @@ -49,9 +53,9 @@ ) where -import Prelude () 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 @@ -142,30 +146,36 @@ -- VVV Prop "adjustment" -- Type: TInterface "Gtk" "Adjustment" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getCellRendererSpinAdjustment :: (MonadIO m, CellRendererSpinK o) => o -> m Adjustment +getCellRendererSpinAdjustment :: (MonadIO m, CellRendererSpinK o) => o -> m (Maybe Adjustment) getCellRendererSpinAdjustment obj = liftIO $ getObjectPropertyObject obj "adjustment" Adjustment setCellRendererSpinAdjustment :: (MonadIO m, CellRendererSpinK o, AdjustmentK a) => o -> a -> m () -setCellRendererSpinAdjustment obj val = liftIO $ setObjectPropertyObject obj "adjustment" val +setCellRendererSpinAdjustment obj val = liftIO $ setObjectPropertyObject obj "adjustment" (Just val) constructCellRendererSpinAdjustment :: (AdjustmentK a) => a -> IO ([Char], GValue) -constructCellRendererSpinAdjustment val = constructObjectPropertyObject "adjustment" val +constructCellRendererSpinAdjustment val = constructObjectPropertyObject "adjustment" (Just val) +clearCellRendererSpinAdjustment :: (MonadIO m, CellRendererSpinK o) => o -> m () +clearCellRendererSpinAdjustment obj = liftIO $ setObjectPropertyObject obj "adjustment" (Nothing :: Maybe Adjustment) + data CellRendererSpinAdjustmentPropertyInfo instance AttrInfo CellRendererSpinAdjustmentPropertyInfo where - type AttrAllowedOps CellRendererSpinAdjustmentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps CellRendererSpinAdjustmentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint CellRendererSpinAdjustmentPropertyInfo = AdjustmentK type AttrBaseTypeConstraint CellRendererSpinAdjustmentPropertyInfo = CellRendererSpinK - type AttrGetType CellRendererSpinAdjustmentPropertyInfo = Adjustment + type AttrGetType CellRendererSpinAdjustmentPropertyInfo = (Maybe Adjustment) type AttrLabel CellRendererSpinAdjustmentPropertyInfo = "adjustment" attrGet _ = getCellRendererSpinAdjustment attrSet _ = setCellRendererSpinAdjustment attrConstruct _ = constructCellRendererSpinAdjustment + attrClear _ = clearCellRendererSpinAdjustment -- VVV Prop "climb-rate" -- Type: TBasicType TDouble -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererSpinClimbRate :: (MonadIO m, CellRendererSpinK o) => o -> m Double getCellRendererSpinClimbRate obj = liftIO $ getObjectPropertyDouble obj "climb-rate" @@ -186,19 +196,21 @@ attrGet _ = getCellRendererSpinClimbRate attrSet _ = setCellRendererSpinClimbRate attrConstruct _ = constructCellRendererSpinClimbRate + attrClear _ = undefined -- VVV Prop "digits" - -- Type: TBasicType TUInt32 + -- Type: TBasicType TUInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererSpinDigits :: (MonadIO m, CellRendererSpinK o) => o -> m Word32 -getCellRendererSpinDigits obj = liftIO $ getObjectPropertyCUInt obj "digits" +getCellRendererSpinDigits obj = liftIO $ getObjectPropertyUInt32 obj "digits" setCellRendererSpinDigits :: (MonadIO m, CellRendererSpinK o) => o -> Word32 -> m () -setCellRendererSpinDigits obj val = liftIO $ setObjectPropertyCUInt obj "digits" val +setCellRendererSpinDigits obj val = liftIO $ setObjectPropertyUInt32 obj "digits" val constructCellRendererSpinDigits :: Word32 -> IO ([Char], GValue) -constructCellRendererSpinDigits val = constructObjectPropertyCUInt "digits" val +constructCellRendererSpinDigits val = constructObjectPropertyUInt32 "digits" val data CellRendererSpinDigitsPropertyInfo instance AttrInfo CellRendererSpinDigitsPropertyInfo where @@ -210,10 +222,20 @@ attrGet _ = getCellRendererSpinDigits attrSet _ = setCellRendererSpinDigits attrConstruct _ = constructCellRendererSpinDigits + attrClear _ = undefined type instance AttributeList CellRendererSpin = CellRendererSpinAttributeList type CellRendererSpinAttributeList = ('[ '("adjustment", CellRendererSpinAdjustmentPropertyInfo), '("alignSet", CellRendererTextAlignSetPropertyInfo), '("alignment", CellRendererTextAlignmentPropertyInfo), '("attributes", CellRendererTextAttributesPropertyInfo), '("background", CellRendererTextBackgroundPropertyInfo), '("backgroundGdk", CellRendererTextBackgroundGdkPropertyInfo), '("backgroundRgba", CellRendererTextBackgroundRgbaPropertyInfo), '("backgroundSet", CellRendererTextBackgroundSetPropertyInfo), '("cellBackground", CellRendererCellBackgroundPropertyInfo), '("cellBackgroundGdk", CellRendererCellBackgroundGdkPropertyInfo), '("cellBackgroundRgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cellBackgroundSet", CellRendererCellBackgroundSetPropertyInfo), '("climbRate", CellRendererSpinClimbRatePropertyInfo), '("digits", CellRendererSpinDigitsPropertyInfo), '("editable", CellRendererTextEditablePropertyInfo), '("editableSet", CellRendererTextEditableSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("ellipsize", CellRendererTextEllipsizePropertyInfo), '("ellipsizeSet", CellRendererTextEllipsizeSetPropertyInfo), '("family", CellRendererTextFamilyPropertyInfo), '("familySet", CellRendererTextFamilySetPropertyInfo), '("font", CellRendererTextFontPropertyInfo), '("fontDesc", CellRendererTextFontDescPropertyInfo), '("foreground", CellRendererTextForegroundPropertyInfo), '("foregroundGdk", CellRendererTextForegroundGdkPropertyInfo), '("foregroundRgba", CellRendererTextForegroundRgbaPropertyInfo), '("foregroundSet", CellRendererTextForegroundSetPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("isExpanded", CellRendererIsExpandedPropertyInfo), '("isExpander", CellRendererIsExpanderPropertyInfo), '("language", CellRendererTextLanguagePropertyInfo), '("languageSet", CellRendererTextLanguageSetPropertyInfo), '("markup", CellRendererTextMarkupPropertyInfo), '("maxWidthChars", CellRendererTextMaxWidthCharsPropertyInfo), '("mode", CellRendererModePropertyInfo), '("placeholderText", CellRendererTextPlaceholderTextPropertyInfo), '("rise", CellRendererTextRisePropertyInfo), '("riseSet", CellRendererTextRiseSetPropertyInfo), '("scale", CellRendererTextScalePropertyInfo), '("scaleSet", CellRendererTextScaleSetPropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("singleParagraphMode", CellRendererTextSingleParagraphModePropertyInfo), '("size", CellRendererTextSizePropertyInfo), '("sizePoints", CellRendererTextSizePointsPropertyInfo), '("sizeSet", CellRendererTextSizeSetPropertyInfo), '("stretch", CellRendererTextStretchPropertyInfo), '("stretchSet", CellRendererTextStretchSetPropertyInfo), '("strikethrough", CellRendererTextStrikethroughPropertyInfo), '("strikethroughSet", CellRendererTextStrikethroughSetPropertyInfo), '("style", CellRendererTextStylePropertyInfo), '("styleSet", CellRendererTextStyleSetPropertyInfo), '("text", CellRendererTextTextPropertyInfo), '("underline", CellRendererTextUnderlinePropertyInfo), '("underlineSet", CellRendererTextUnderlineSetPropertyInfo), '("variant", CellRendererTextVariantPropertyInfo), '("variantSet", CellRendererTextVariantSetPropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("weight", CellRendererTextWeightPropertyInfo), '("weightSet", CellRendererTextWeightSetPropertyInfo), '("width", CellRendererWidthPropertyInfo), '("widthChars", CellRendererTextWidthCharsPropertyInfo), '("wrapMode", CellRendererTextWrapModePropertyInfo), '("wrapWidth", CellRendererTextWrapWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] :: [(Symbol, *)]) +cellRendererSpinAdjustment :: AttrLabelProxy "adjustment" +cellRendererSpinAdjustment = AttrLabelProxy + +cellRendererSpinClimbRate :: AttrLabelProxy "climbRate" +cellRendererSpinClimbRate = AttrLabelProxy + +cellRendererSpinDigits :: AttrLabelProxy "digits" +cellRendererSpinDigits = AttrLabelProxy + type instance SignalList CellRendererSpin = CellRendererSpinSignalList type CellRendererSpinSignalList = ('[ '("edited", CellRendererTextEditedSignalInfo), '("editingCanceled", CellRendererEditingCanceledSignalInfo), '("editingStarted", CellRendererEditingStartedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -221,7 +243,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "CellRendererSpin" +-- returnType : Just (TInterface "Gtk" "CellRendererSpin") -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/CellRendererSpin.hs-boot b/GI/Gtk/Objects/CellRendererSpin.hs-boot --- a/GI/Gtk/Objects/CellRendererSpin.hs-boot +++ b/GI/Gtk/Objects/CellRendererSpin.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.CellRendererSpin where -import Prelude () 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 diff --git a/GI/Gtk/Objects/CellRendererSpinner.hs b/GI/Gtk/Objects/CellRendererSpinner.hs --- a/GI/Gtk/Objects/CellRendererSpinner.hs +++ b/GI/Gtk/Objects/CellRendererSpinner.hs @@ -26,6 +26,7 @@ -- * Properties -- ** Active CellRendererSpinnerActivePropertyInfo , + cellRendererSpinnerActive , constructCellRendererSpinnerActive , getCellRendererSpinnerActive , setCellRendererSpinnerActive , @@ -33,6 +34,7 @@ -- ** Pulse CellRendererSpinnerPulsePropertyInfo , + cellRendererSpinnerPulse , constructCellRendererSpinnerPulse , getCellRendererSpinnerPulse , setCellRendererSpinnerPulse , @@ -40,6 +42,7 @@ -- ** Size CellRendererSpinnerSizePropertyInfo , + cellRendererSpinnerSize , constructCellRendererSpinnerSize , getCellRendererSpinnerSize , setCellRendererSpinnerSize , @@ -49,9 +52,9 @@ ) where -import Prelude () 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 @@ -141,6 +144,7 @@ -- VVV Prop "active" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererSpinnerActive :: (MonadIO m, CellRendererSpinnerK o) => o -> m Bool getCellRendererSpinnerActive obj = liftIO $ getObjectPropertyBool obj "active" @@ -161,19 +165,21 @@ attrGet _ = getCellRendererSpinnerActive attrSet _ = setCellRendererSpinnerActive attrConstruct _ = constructCellRendererSpinnerActive + attrClear _ = undefined -- VVV Prop "pulse" - -- Type: TBasicType TUInt32 + -- Type: TBasicType TUInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererSpinnerPulse :: (MonadIO m, CellRendererSpinnerK o) => o -> m Word32 -getCellRendererSpinnerPulse obj = liftIO $ getObjectPropertyCUInt obj "pulse" +getCellRendererSpinnerPulse obj = liftIO $ getObjectPropertyUInt32 obj "pulse" setCellRendererSpinnerPulse :: (MonadIO m, CellRendererSpinnerK o) => o -> Word32 -> m () -setCellRendererSpinnerPulse obj val = liftIO $ setObjectPropertyCUInt obj "pulse" val +setCellRendererSpinnerPulse obj val = liftIO $ setObjectPropertyUInt32 obj "pulse" val constructCellRendererSpinnerPulse :: Word32 -> IO ([Char], GValue) -constructCellRendererSpinnerPulse val = constructObjectPropertyCUInt "pulse" val +constructCellRendererSpinnerPulse val = constructObjectPropertyUInt32 "pulse" val data CellRendererSpinnerPulsePropertyInfo instance AttrInfo CellRendererSpinnerPulsePropertyInfo where @@ -185,10 +191,12 @@ attrGet _ = getCellRendererSpinnerPulse attrSet _ = setCellRendererSpinnerPulse attrConstruct _ = constructCellRendererSpinnerPulse + attrClear _ = undefined -- VVV Prop "size" -- Type: TInterface "Gtk" "IconSize" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererSpinnerSize :: (MonadIO m, CellRendererSpinnerK o) => o -> m IconSize getCellRendererSpinnerSize obj = liftIO $ getObjectPropertyEnum obj "size" @@ -209,10 +217,20 @@ attrGet _ = getCellRendererSpinnerSize attrSet _ = setCellRendererSpinnerSize attrConstruct _ = constructCellRendererSpinnerSize + attrClear _ = undefined type instance AttributeList CellRendererSpinner = CellRendererSpinnerAttributeList type CellRendererSpinnerAttributeList = ('[ '("active", CellRendererSpinnerActivePropertyInfo), '("cellBackground", CellRendererCellBackgroundPropertyInfo), '("cellBackgroundGdk", CellRendererCellBackgroundGdkPropertyInfo), '("cellBackgroundRgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cellBackgroundSet", CellRendererCellBackgroundSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("isExpanded", CellRendererIsExpandedPropertyInfo), '("isExpander", CellRendererIsExpanderPropertyInfo), '("mode", CellRendererModePropertyInfo), '("pulse", CellRendererSpinnerPulsePropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("size", CellRendererSpinnerSizePropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("width", CellRendererWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] :: [(Symbol, *)]) +cellRendererSpinnerActive :: AttrLabelProxy "active" +cellRendererSpinnerActive = AttrLabelProxy + +cellRendererSpinnerPulse :: AttrLabelProxy "pulse" +cellRendererSpinnerPulse = AttrLabelProxy + +cellRendererSpinnerSize :: AttrLabelProxy "size" +cellRendererSpinnerSize = AttrLabelProxy + type instance SignalList CellRendererSpinner = CellRendererSpinnerSignalList type CellRendererSpinnerSignalList = ('[ '("editingCanceled", CellRendererEditingCanceledSignalInfo), '("editingStarted", CellRendererEditingStartedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -220,7 +238,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "CellRendererSpinner" +-- returnType : Just (TInterface "Gtk" "CellRendererSpinner") -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/CellRendererSpinner.hs-boot b/GI/Gtk/Objects/CellRendererSpinner.hs-boot --- a/GI/Gtk/Objects/CellRendererSpinner.hs-boot +++ b/GI/Gtk/Objects/CellRendererSpinner.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.CellRendererSpinner where -import Prelude () 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 diff --git a/GI/Gtk/Objects/CellRendererText.hs b/GI/Gtk/Objects/CellRendererText.hs --- a/GI/Gtk/Objects/CellRendererText.hs +++ b/GI/Gtk/Objects/CellRendererText.hs @@ -31,6 +31,7 @@ -- * Properties -- ** AlignSet CellRendererTextAlignSetPropertyInfo , + cellRendererTextAlignSet , constructCellRendererTextAlignSet , getCellRendererTextAlignSet , setCellRendererTextAlignSet , @@ -38,6 +39,7 @@ -- ** Alignment CellRendererTextAlignmentPropertyInfo , + cellRendererTextAlignment , constructCellRendererTextAlignment , getCellRendererTextAlignment , setCellRendererTextAlignment , @@ -45,6 +47,8 @@ -- ** Attributes CellRendererTextAttributesPropertyInfo , + cellRendererTextAttributes , + clearCellRendererTextAttributes , constructCellRendererTextAttributes , getCellRendererTextAttributes , setCellRendererTextAttributes , @@ -52,12 +56,16 @@ -- ** Background CellRendererTextBackgroundPropertyInfo , + cellRendererTextBackground , + clearCellRendererTextBackground , constructCellRendererTextBackground , setCellRendererTextBackground , -- ** BackgroundGdk CellRendererTextBackgroundGdkPropertyInfo, + cellRendererTextBackgroundGdk , + clearCellRendererTextBackgroundGdk , constructCellRendererTextBackgroundGdk , getCellRendererTextBackgroundGdk , setCellRendererTextBackgroundGdk , @@ -65,6 +73,8 @@ -- ** BackgroundRgba CellRendererTextBackgroundRgbaPropertyInfo, + cellRendererTextBackgroundRgba , + clearCellRendererTextBackgroundRgba , constructCellRendererTextBackgroundRgba , getCellRendererTextBackgroundRgba , setCellRendererTextBackgroundRgba , @@ -72,6 +82,7 @@ -- ** BackgroundSet CellRendererTextBackgroundSetPropertyInfo, + cellRendererTextBackgroundSet , constructCellRendererTextBackgroundSet , getCellRendererTextBackgroundSet , setCellRendererTextBackgroundSet , @@ -79,6 +90,7 @@ -- ** Editable CellRendererTextEditablePropertyInfo , + cellRendererTextEditable , constructCellRendererTextEditable , getCellRendererTextEditable , setCellRendererTextEditable , @@ -86,6 +98,7 @@ -- ** EditableSet CellRendererTextEditableSetPropertyInfo , + cellRendererTextEditableSet , constructCellRendererTextEditableSet , getCellRendererTextEditableSet , setCellRendererTextEditableSet , @@ -93,6 +106,7 @@ -- ** Ellipsize CellRendererTextEllipsizePropertyInfo , + cellRendererTextEllipsize , constructCellRendererTextEllipsize , getCellRendererTextEllipsize , setCellRendererTextEllipsize , @@ -100,6 +114,7 @@ -- ** EllipsizeSet CellRendererTextEllipsizeSetPropertyInfo, + cellRendererTextEllipsizeSet , constructCellRendererTextEllipsizeSet , getCellRendererTextEllipsizeSet , setCellRendererTextEllipsizeSet , @@ -107,6 +122,8 @@ -- ** Family CellRendererTextFamilyPropertyInfo , + cellRendererTextFamily , + clearCellRendererTextFamily , constructCellRendererTextFamily , getCellRendererTextFamily , setCellRendererTextFamily , @@ -114,6 +131,7 @@ -- ** FamilySet CellRendererTextFamilySetPropertyInfo , + cellRendererTextFamilySet , constructCellRendererTextFamilySet , getCellRendererTextFamilySet , setCellRendererTextFamilySet , @@ -121,6 +139,8 @@ -- ** Font CellRendererTextFontPropertyInfo , + cellRendererTextFont , + clearCellRendererTextFont , constructCellRendererTextFont , getCellRendererTextFont , setCellRendererTextFont , @@ -128,6 +148,8 @@ -- ** FontDesc CellRendererTextFontDescPropertyInfo , + cellRendererTextFontDesc , + clearCellRendererTextFontDesc , constructCellRendererTextFontDesc , getCellRendererTextFontDesc , setCellRendererTextFontDesc , @@ -135,12 +157,16 @@ -- ** Foreground CellRendererTextForegroundPropertyInfo , + cellRendererTextForeground , + clearCellRendererTextForeground , constructCellRendererTextForeground , setCellRendererTextForeground , -- ** ForegroundGdk CellRendererTextForegroundGdkPropertyInfo, + cellRendererTextForegroundGdk , + clearCellRendererTextForegroundGdk , constructCellRendererTextForegroundGdk , getCellRendererTextForegroundGdk , setCellRendererTextForegroundGdk , @@ -148,6 +174,8 @@ -- ** ForegroundRgba CellRendererTextForegroundRgbaPropertyInfo, + cellRendererTextForegroundRgba , + clearCellRendererTextForegroundRgba , constructCellRendererTextForegroundRgba , getCellRendererTextForegroundRgba , setCellRendererTextForegroundRgba , @@ -155,6 +183,7 @@ -- ** ForegroundSet CellRendererTextForegroundSetPropertyInfo, + cellRendererTextForegroundSet , constructCellRendererTextForegroundSet , getCellRendererTextForegroundSet , setCellRendererTextForegroundSet , @@ -162,6 +191,8 @@ -- ** Language CellRendererTextLanguagePropertyInfo , + cellRendererTextLanguage , + clearCellRendererTextLanguage , constructCellRendererTextLanguage , getCellRendererTextLanguage , setCellRendererTextLanguage , @@ -169,6 +200,7 @@ -- ** LanguageSet CellRendererTextLanguageSetPropertyInfo , + cellRendererTextLanguageSet , constructCellRendererTextLanguageSet , getCellRendererTextLanguageSet , setCellRendererTextLanguageSet , @@ -176,12 +208,15 @@ -- ** Markup CellRendererTextMarkupPropertyInfo , + cellRendererTextMarkup , + clearCellRendererTextMarkup , constructCellRendererTextMarkup , setCellRendererTextMarkup , -- ** MaxWidthChars CellRendererTextMaxWidthCharsPropertyInfo, + cellRendererTextMaxWidthChars , constructCellRendererTextMaxWidthChars , getCellRendererTextMaxWidthChars , setCellRendererTextMaxWidthChars , @@ -189,6 +224,8 @@ -- ** PlaceholderText CellRendererTextPlaceholderTextPropertyInfo, + cellRendererTextPlaceholderText , + clearCellRendererTextPlaceholderText , constructCellRendererTextPlaceholderText, getCellRendererTextPlaceholderText , setCellRendererTextPlaceholderText , @@ -196,6 +233,7 @@ -- ** Rise CellRendererTextRisePropertyInfo , + cellRendererTextRise , constructCellRendererTextRise , getCellRendererTextRise , setCellRendererTextRise , @@ -203,6 +241,7 @@ -- ** RiseSet CellRendererTextRiseSetPropertyInfo , + cellRendererTextRiseSet , constructCellRendererTextRiseSet , getCellRendererTextRiseSet , setCellRendererTextRiseSet , @@ -210,6 +249,7 @@ -- ** Scale CellRendererTextScalePropertyInfo , + cellRendererTextScale , constructCellRendererTextScale , getCellRendererTextScale , setCellRendererTextScale , @@ -217,6 +257,7 @@ -- ** ScaleSet CellRendererTextScaleSetPropertyInfo , + cellRendererTextScaleSet , constructCellRendererTextScaleSet , getCellRendererTextScaleSet , setCellRendererTextScaleSet , @@ -224,6 +265,7 @@ -- ** SingleParagraphMode CellRendererTextSingleParagraphModePropertyInfo, + cellRendererTextSingleParagraphMode , constructCellRendererTextSingleParagraphMode, getCellRendererTextSingleParagraphMode , setCellRendererTextSingleParagraphMode , @@ -231,6 +273,7 @@ -- ** Size CellRendererTextSizePropertyInfo , + cellRendererTextSize , constructCellRendererTextSize , getCellRendererTextSize , setCellRendererTextSize , @@ -238,6 +281,7 @@ -- ** SizePoints CellRendererTextSizePointsPropertyInfo , + cellRendererTextSizePoints , constructCellRendererTextSizePoints , getCellRendererTextSizePoints , setCellRendererTextSizePoints , @@ -245,6 +289,7 @@ -- ** SizeSet CellRendererTextSizeSetPropertyInfo , + cellRendererTextSizeSet , constructCellRendererTextSizeSet , getCellRendererTextSizeSet , setCellRendererTextSizeSet , @@ -252,6 +297,7 @@ -- ** Stretch CellRendererTextStretchPropertyInfo , + cellRendererTextStretch , constructCellRendererTextStretch , getCellRendererTextStretch , setCellRendererTextStretch , @@ -259,6 +305,7 @@ -- ** StretchSet CellRendererTextStretchSetPropertyInfo , + cellRendererTextStretchSet , constructCellRendererTextStretchSet , getCellRendererTextStretchSet , setCellRendererTextStretchSet , @@ -266,6 +313,7 @@ -- ** Strikethrough CellRendererTextStrikethroughPropertyInfo, + cellRendererTextStrikethrough , constructCellRendererTextStrikethrough , getCellRendererTextStrikethrough , setCellRendererTextStrikethrough , @@ -273,6 +321,7 @@ -- ** StrikethroughSet CellRendererTextStrikethroughSetPropertyInfo, + cellRendererTextStrikethroughSet , constructCellRendererTextStrikethroughSet, getCellRendererTextStrikethroughSet , setCellRendererTextStrikethroughSet , @@ -280,6 +329,7 @@ -- ** Style CellRendererTextStylePropertyInfo , + cellRendererTextStyle , constructCellRendererTextStyle , getCellRendererTextStyle , setCellRendererTextStyle , @@ -287,6 +337,7 @@ -- ** StyleSet CellRendererTextStyleSetPropertyInfo , + cellRendererTextStyleSet , constructCellRendererTextStyleSet , getCellRendererTextStyleSet , setCellRendererTextStyleSet , @@ -294,6 +345,8 @@ -- ** Text CellRendererTextTextPropertyInfo , + cellRendererTextText , + clearCellRendererTextText , constructCellRendererTextText , getCellRendererTextText , setCellRendererTextText , @@ -301,6 +354,7 @@ -- ** Underline CellRendererTextUnderlinePropertyInfo , + cellRendererTextUnderline , constructCellRendererTextUnderline , getCellRendererTextUnderline , setCellRendererTextUnderline , @@ -308,6 +362,7 @@ -- ** UnderlineSet CellRendererTextUnderlineSetPropertyInfo, + cellRendererTextUnderlineSet , constructCellRendererTextUnderlineSet , getCellRendererTextUnderlineSet , setCellRendererTextUnderlineSet , @@ -315,6 +370,7 @@ -- ** Variant CellRendererTextVariantPropertyInfo , + cellRendererTextVariant , constructCellRendererTextVariant , getCellRendererTextVariant , setCellRendererTextVariant , @@ -322,6 +378,7 @@ -- ** VariantSet CellRendererTextVariantSetPropertyInfo , + cellRendererTextVariantSet , constructCellRendererTextVariantSet , getCellRendererTextVariantSet , setCellRendererTextVariantSet , @@ -329,6 +386,7 @@ -- ** Weight CellRendererTextWeightPropertyInfo , + cellRendererTextWeight , constructCellRendererTextWeight , getCellRendererTextWeight , setCellRendererTextWeight , @@ -336,6 +394,7 @@ -- ** WeightSet CellRendererTextWeightSetPropertyInfo , + cellRendererTextWeightSet , constructCellRendererTextWeightSet , getCellRendererTextWeightSet , setCellRendererTextWeightSet , @@ -343,6 +402,7 @@ -- ** WidthChars CellRendererTextWidthCharsPropertyInfo , + cellRendererTextWidthChars , constructCellRendererTextWidthChars , getCellRendererTextWidthChars , setCellRendererTextWidthChars , @@ -350,6 +410,7 @@ -- ** WrapMode CellRendererTextWrapModePropertyInfo , + cellRendererTextWrapMode , constructCellRendererTextWrapMode , getCellRendererTextWrapMode , setCellRendererTextWrapMode , @@ -357,6 +418,7 @@ -- ** WrapWidth CellRendererTextWrapWidthPropertyInfo , + cellRendererTextWrapWidth , constructCellRendererTextWrapWidth , getCellRendererTextWrapWidth , setCellRendererTextWrapWidth , @@ -381,9 +443,9 @@ ) where -import Prelude () 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 @@ -522,6 +584,7 @@ -- VVV Prop "align-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererTextAlignSet :: (MonadIO m, CellRendererTextK o) => o -> m Bool getCellRendererTextAlignSet obj = liftIO $ getObjectPropertyBool obj "align-set" @@ -542,10 +605,12 @@ attrGet _ = getCellRendererTextAlignSet attrSet _ = setCellRendererTextAlignSet attrConstruct _ = constructCellRendererTextAlignSet + attrClear _ = undefined -- VVV Prop "alignment" -- Type: TInterface "Pango" "Alignment" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererTextAlignment :: (MonadIO m, CellRendererTextK o) => o -> m Pango.Alignment getCellRendererTextAlignment obj = liftIO $ getObjectPropertyEnum obj "alignment" @@ -566,44 +631,54 @@ attrGet _ = getCellRendererTextAlignment attrSet _ = setCellRendererTextAlignment attrConstruct _ = constructCellRendererTextAlignment + attrClear _ = undefined -- VVV Prop "attributes" -- Type: TInterface "Pango" "AttrList" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getCellRendererTextAttributes :: (MonadIO m, CellRendererTextK o) => o -> m Pango.AttrList +getCellRendererTextAttributes :: (MonadIO m, CellRendererTextK o) => o -> m (Maybe Pango.AttrList) getCellRendererTextAttributes obj = liftIO $ getObjectPropertyBoxed obj "attributes" Pango.AttrList setCellRendererTextAttributes :: (MonadIO m, CellRendererTextK o) => o -> Pango.AttrList -> m () -setCellRendererTextAttributes obj val = liftIO $ setObjectPropertyBoxed obj "attributes" val +setCellRendererTextAttributes obj val = liftIO $ setObjectPropertyBoxed obj "attributes" (Just val) constructCellRendererTextAttributes :: Pango.AttrList -> IO ([Char], GValue) -constructCellRendererTextAttributes val = constructObjectPropertyBoxed "attributes" val +constructCellRendererTextAttributes val = constructObjectPropertyBoxed "attributes" (Just val) +clearCellRendererTextAttributes :: (MonadIO m, CellRendererTextK o) => o -> m () +clearCellRendererTextAttributes obj = liftIO $ setObjectPropertyBoxed obj "attributes" (Nothing :: Maybe Pango.AttrList) + data CellRendererTextAttributesPropertyInfo instance AttrInfo CellRendererTextAttributesPropertyInfo where - type AttrAllowedOps CellRendererTextAttributesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps CellRendererTextAttributesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint CellRendererTextAttributesPropertyInfo = (~) Pango.AttrList type AttrBaseTypeConstraint CellRendererTextAttributesPropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextAttributesPropertyInfo = Pango.AttrList + type AttrGetType CellRendererTextAttributesPropertyInfo = (Maybe Pango.AttrList) type AttrLabel CellRendererTextAttributesPropertyInfo = "attributes" attrGet _ = getCellRendererTextAttributes attrSet _ = setCellRendererTextAttributes attrConstruct _ = constructCellRendererTextAttributes + attrClear _ = clearCellRendererTextAttributes -- VVV Prop "background" -- Type: TBasicType TUTF8 -- Flags: [PropertyWritable] + -- Nullable: (Nothing,Nothing) setCellRendererTextBackground :: (MonadIO m, CellRendererTextK o) => o -> T.Text -> m () -setCellRendererTextBackground obj val = liftIO $ setObjectPropertyString obj "background" val +setCellRendererTextBackground obj val = liftIO $ setObjectPropertyString obj "background" (Just val) constructCellRendererTextBackground :: T.Text -> IO ([Char], GValue) -constructCellRendererTextBackground val = constructObjectPropertyString "background" val +constructCellRendererTextBackground val = constructObjectPropertyString "background" (Just val) +clearCellRendererTextBackground :: (MonadIO m, CellRendererTextK o) => o -> m () +clearCellRendererTextBackground obj = liftIO $ setObjectPropertyString obj "background" (Nothing :: Maybe T.Text) + data CellRendererTextBackgroundPropertyInfo instance AttrInfo CellRendererTextBackgroundPropertyInfo where - type AttrAllowedOps CellRendererTextBackgroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct] + type AttrAllowedOps CellRendererTextBackgroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear] type AttrSetTypeConstraint CellRendererTextBackgroundPropertyInfo = (~) T.Text type AttrBaseTypeConstraint CellRendererTextBackgroundPropertyInfo = CellRendererTextK type AttrGetType CellRendererTextBackgroundPropertyInfo = () @@ -611,58 +686,70 @@ attrGet _ = undefined attrSet _ = setCellRendererTextBackground attrConstruct _ = constructCellRendererTextBackground + attrClear _ = clearCellRendererTextBackground -- VVV Prop "background-gdk" -- Type: TInterface "Gdk" "Color" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getCellRendererTextBackgroundGdk :: (MonadIO m, CellRendererTextK o) => o -> m Gdk.Color +getCellRendererTextBackgroundGdk :: (MonadIO m, CellRendererTextK o) => o -> m (Maybe Gdk.Color) getCellRendererTextBackgroundGdk obj = liftIO $ getObjectPropertyBoxed obj "background-gdk" Gdk.Color setCellRendererTextBackgroundGdk :: (MonadIO m, CellRendererTextK o) => o -> Gdk.Color -> m () -setCellRendererTextBackgroundGdk obj val = liftIO $ setObjectPropertyBoxed obj "background-gdk" val +setCellRendererTextBackgroundGdk obj val = liftIO $ setObjectPropertyBoxed obj "background-gdk" (Just val) constructCellRendererTextBackgroundGdk :: Gdk.Color -> IO ([Char], GValue) -constructCellRendererTextBackgroundGdk val = constructObjectPropertyBoxed "background-gdk" val +constructCellRendererTextBackgroundGdk val = constructObjectPropertyBoxed "background-gdk" (Just val) +clearCellRendererTextBackgroundGdk :: (MonadIO m, CellRendererTextK o) => o -> m () +clearCellRendererTextBackgroundGdk obj = liftIO $ setObjectPropertyBoxed obj "background-gdk" (Nothing :: Maybe Gdk.Color) + data CellRendererTextBackgroundGdkPropertyInfo instance AttrInfo CellRendererTextBackgroundGdkPropertyInfo where - type AttrAllowedOps CellRendererTextBackgroundGdkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps CellRendererTextBackgroundGdkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint CellRendererTextBackgroundGdkPropertyInfo = (~) Gdk.Color type AttrBaseTypeConstraint CellRendererTextBackgroundGdkPropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextBackgroundGdkPropertyInfo = Gdk.Color + type AttrGetType CellRendererTextBackgroundGdkPropertyInfo = (Maybe Gdk.Color) type AttrLabel CellRendererTextBackgroundGdkPropertyInfo = "background-gdk" attrGet _ = getCellRendererTextBackgroundGdk attrSet _ = setCellRendererTextBackgroundGdk attrConstruct _ = constructCellRendererTextBackgroundGdk + attrClear _ = clearCellRendererTextBackgroundGdk -- VVV Prop "background-rgba" -- Type: TInterface "Gdk" "RGBA" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getCellRendererTextBackgroundRgba :: (MonadIO m, CellRendererTextK o) => o -> m Gdk.RGBA +getCellRendererTextBackgroundRgba :: (MonadIO m, CellRendererTextK o) => o -> m (Maybe Gdk.RGBA) getCellRendererTextBackgroundRgba obj = liftIO $ getObjectPropertyBoxed obj "background-rgba" Gdk.RGBA setCellRendererTextBackgroundRgba :: (MonadIO m, CellRendererTextK o) => o -> Gdk.RGBA -> m () -setCellRendererTextBackgroundRgba obj val = liftIO $ setObjectPropertyBoxed obj "background-rgba" val +setCellRendererTextBackgroundRgba obj val = liftIO $ setObjectPropertyBoxed obj "background-rgba" (Just val) constructCellRendererTextBackgroundRgba :: Gdk.RGBA -> IO ([Char], GValue) -constructCellRendererTextBackgroundRgba val = constructObjectPropertyBoxed "background-rgba" val +constructCellRendererTextBackgroundRgba val = constructObjectPropertyBoxed "background-rgba" (Just val) +clearCellRendererTextBackgroundRgba :: (MonadIO m, CellRendererTextK o) => o -> m () +clearCellRendererTextBackgroundRgba obj = liftIO $ setObjectPropertyBoxed obj "background-rgba" (Nothing :: Maybe Gdk.RGBA) + data CellRendererTextBackgroundRgbaPropertyInfo instance AttrInfo CellRendererTextBackgroundRgbaPropertyInfo where - type AttrAllowedOps CellRendererTextBackgroundRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps CellRendererTextBackgroundRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint CellRendererTextBackgroundRgbaPropertyInfo = (~) Gdk.RGBA type AttrBaseTypeConstraint CellRendererTextBackgroundRgbaPropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextBackgroundRgbaPropertyInfo = Gdk.RGBA + type AttrGetType CellRendererTextBackgroundRgbaPropertyInfo = (Maybe Gdk.RGBA) type AttrLabel CellRendererTextBackgroundRgbaPropertyInfo = "background-rgba" attrGet _ = getCellRendererTextBackgroundRgba attrSet _ = setCellRendererTextBackgroundRgba attrConstruct _ = constructCellRendererTextBackgroundRgba + attrClear _ = clearCellRendererTextBackgroundRgba -- VVV Prop "background-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererTextBackgroundSet :: (MonadIO m, CellRendererTextK o) => o -> m Bool getCellRendererTextBackgroundSet obj = liftIO $ getObjectPropertyBool obj "background-set" @@ -683,10 +770,12 @@ attrGet _ = getCellRendererTextBackgroundSet attrSet _ = setCellRendererTextBackgroundSet attrConstruct _ = constructCellRendererTextBackgroundSet + attrClear _ = undefined -- VVV Prop "editable" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererTextEditable :: (MonadIO m, CellRendererTextK o) => o -> m Bool getCellRendererTextEditable obj = liftIO $ getObjectPropertyBool obj "editable" @@ -707,10 +796,12 @@ attrGet _ = getCellRendererTextEditable attrSet _ = setCellRendererTextEditable attrConstruct _ = constructCellRendererTextEditable + attrClear _ = undefined -- VVV Prop "editable-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererTextEditableSet :: (MonadIO m, CellRendererTextK o) => o -> m Bool getCellRendererTextEditableSet obj = liftIO $ getObjectPropertyBool obj "editable-set" @@ -731,10 +822,12 @@ attrGet _ = getCellRendererTextEditableSet attrSet _ = setCellRendererTextEditableSet attrConstruct _ = constructCellRendererTextEditableSet + attrClear _ = undefined -- VVV Prop "ellipsize" -- Type: TInterface "Pango" "EllipsizeMode" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererTextEllipsize :: (MonadIO m, CellRendererTextK o) => o -> m Pango.EllipsizeMode getCellRendererTextEllipsize obj = liftIO $ getObjectPropertyEnum obj "ellipsize" @@ -755,10 +848,12 @@ attrGet _ = getCellRendererTextEllipsize attrSet _ = setCellRendererTextEllipsize attrConstruct _ = constructCellRendererTextEllipsize + attrClear _ = undefined -- VVV Prop "ellipsize-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererTextEllipsizeSet :: (MonadIO m, CellRendererTextK o) => o -> m Bool getCellRendererTextEllipsizeSet obj = liftIO $ getObjectPropertyBool obj "ellipsize-set" @@ -779,34 +874,41 @@ attrGet _ = getCellRendererTextEllipsizeSet attrSet _ = setCellRendererTextEllipsizeSet attrConstruct _ = constructCellRendererTextEllipsizeSet + attrClear _ = undefined -- VVV Prop "family" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getCellRendererTextFamily :: (MonadIO m, CellRendererTextK o) => o -> m T.Text +getCellRendererTextFamily :: (MonadIO m, CellRendererTextK o) => o -> m (Maybe T.Text) getCellRendererTextFamily obj = liftIO $ getObjectPropertyString obj "family" setCellRendererTextFamily :: (MonadIO m, CellRendererTextK o) => o -> T.Text -> m () -setCellRendererTextFamily obj val = liftIO $ setObjectPropertyString obj "family" val +setCellRendererTextFamily obj val = liftIO $ setObjectPropertyString obj "family" (Just val) constructCellRendererTextFamily :: T.Text -> IO ([Char], GValue) -constructCellRendererTextFamily val = constructObjectPropertyString "family" val +constructCellRendererTextFamily val = constructObjectPropertyString "family" (Just val) +clearCellRendererTextFamily :: (MonadIO m, CellRendererTextK o) => o -> m () +clearCellRendererTextFamily obj = liftIO $ setObjectPropertyString obj "family" (Nothing :: Maybe T.Text) + data CellRendererTextFamilyPropertyInfo instance AttrInfo CellRendererTextFamilyPropertyInfo where - type AttrAllowedOps CellRendererTextFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps CellRendererTextFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint CellRendererTextFamilyPropertyInfo = (~) T.Text type AttrBaseTypeConstraint CellRendererTextFamilyPropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextFamilyPropertyInfo = T.Text + type AttrGetType CellRendererTextFamilyPropertyInfo = (Maybe T.Text) type AttrLabel CellRendererTextFamilyPropertyInfo = "family" attrGet _ = getCellRendererTextFamily attrSet _ = setCellRendererTextFamily attrConstruct _ = constructCellRendererTextFamily + attrClear _ = clearCellRendererTextFamily -- VVV Prop "family-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererTextFamilySet :: (MonadIO m, CellRendererTextK o) => o -> m Bool getCellRendererTextFamilySet obj = liftIO $ getObjectPropertyBool obj "family-set" @@ -827,68 +929,83 @@ attrGet _ = getCellRendererTextFamilySet attrSet _ = setCellRendererTextFamilySet attrConstruct _ = constructCellRendererTextFamilySet + attrClear _ = undefined -- VVV Prop "font" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getCellRendererTextFont :: (MonadIO m, CellRendererTextK o) => o -> m T.Text +getCellRendererTextFont :: (MonadIO m, CellRendererTextK o) => o -> m (Maybe T.Text) getCellRendererTextFont obj = liftIO $ getObjectPropertyString obj "font" setCellRendererTextFont :: (MonadIO m, CellRendererTextK o) => o -> T.Text -> m () -setCellRendererTextFont obj val = liftIO $ setObjectPropertyString obj "font" val +setCellRendererTextFont obj val = liftIO $ setObjectPropertyString obj "font" (Just val) constructCellRendererTextFont :: T.Text -> IO ([Char], GValue) -constructCellRendererTextFont val = constructObjectPropertyString "font" val +constructCellRendererTextFont val = constructObjectPropertyString "font" (Just val) +clearCellRendererTextFont :: (MonadIO m, CellRendererTextK o) => o -> m () +clearCellRendererTextFont obj = liftIO $ setObjectPropertyString obj "font" (Nothing :: Maybe T.Text) + data CellRendererTextFontPropertyInfo instance AttrInfo CellRendererTextFontPropertyInfo where - type AttrAllowedOps CellRendererTextFontPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps CellRendererTextFontPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint CellRendererTextFontPropertyInfo = (~) T.Text type AttrBaseTypeConstraint CellRendererTextFontPropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextFontPropertyInfo = T.Text + type AttrGetType CellRendererTextFontPropertyInfo = (Maybe T.Text) type AttrLabel CellRendererTextFontPropertyInfo = "font" attrGet _ = getCellRendererTextFont attrSet _ = setCellRendererTextFont attrConstruct _ = constructCellRendererTextFont + attrClear _ = clearCellRendererTextFont -- VVV Prop "font-desc" -- Type: TInterface "Pango" "FontDescription" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getCellRendererTextFontDesc :: (MonadIO m, CellRendererTextK o) => o -> m Pango.FontDescription +getCellRendererTextFontDesc :: (MonadIO m, CellRendererTextK o) => o -> m (Maybe Pango.FontDescription) getCellRendererTextFontDesc obj = liftIO $ getObjectPropertyBoxed obj "font-desc" Pango.FontDescription setCellRendererTextFontDesc :: (MonadIO m, CellRendererTextK o) => o -> Pango.FontDescription -> m () -setCellRendererTextFontDesc obj val = liftIO $ setObjectPropertyBoxed obj "font-desc" val +setCellRendererTextFontDesc obj val = liftIO $ setObjectPropertyBoxed obj "font-desc" (Just val) constructCellRendererTextFontDesc :: Pango.FontDescription -> IO ([Char], GValue) -constructCellRendererTextFontDesc val = constructObjectPropertyBoxed "font-desc" val +constructCellRendererTextFontDesc val = constructObjectPropertyBoxed "font-desc" (Just val) +clearCellRendererTextFontDesc :: (MonadIO m, CellRendererTextK o) => o -> m () +clearCellRendererTextFontDesc obj = liftIO $ setObjectPropertyBoxed obj "font-desc" (Nothing :: Maybe Pango.FontDescription) + data CellRendererTextFontDescPropertyInfo instance AttrInfo CellRendererTextFontDescPropertyInfo where - type AttrAllowedOps CellRendererTextFontDescPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps CellRendererTextFontDescPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint CellRendererTextFontDescPropertyInfo = (~) Pango.FontDescription type AttrBaseTypeConstraint CellRendererTextFontDescPropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextFontDescPropertyInfo = Pango.FontDescription + type AttrGetType CellRendererTextFontDescPropertyInfo = (Maybe Pango.FontDescription) type AttrLabel CellRendererTextFontDescPropertyInfo = "font-desc" attrGet _ = getCellRendererTextFontDesc attrSet _ = setCellRendererTextFontDesc attrConstruct _ = constructCellRendererTextFontDesc + attrClear _ = clearCellRendererTextFontDesc -- VVV Prop "foreground" -- Type: TBasicType TUTF8 -- Flags: [PropertyWritable] + -- Nullable: (Nothing,Nothing) setCellRendererTextForeground :: (MonadIO m, CellRendererTextK o) => o -> T.Text -> m () -setCellRendererTextForeground obj val = liftIO $ setObjectPropertyString obj "foreground" val +setCellRendererTextForeground obj val = liftIO $ setObjectPropertyString obj "foreground" (Just val) constructCellRendererTextForeground :: T.Text -> IO ([Char], GValue) -constructCellRendererTextForeground val = constructObjectPropertyString "foreground" val +constructCellRendererTextForeground val = constructObjectPropertyString "foreground" (Just val) +clearCellRendererTextForeground :: (MonadIO m, CellRendererTextK o) => o -> m () +clearCellRendererTextForeground obj = liftIO $ setObjectPropertyString obj "foreground" (Nothing :: Maybe T.Text) + data CellRendererTextForegroundPropertyInfo instance AttrInfo CellRendererTextForegroundPropertyInfo where - type AttrAllowedOps CellRendererTextForegroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct] + type AttrAllowedOps CellRendererTextForegroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear] type AttrSetTypeConstraint CellRendererTextForegroundPropertyInfo = (~) T.Text type AttrBaseTypeConstraint CellRendererTextForegroundPropertyInfo = CellRendererTextK type AttrGetType CellRendererTextForegroundPropertyInfo = () @@ -896,58 +1013,70 @@ attrGet _ = undefined attrSet _ = setCellRendererTextForeground attrConstruct _ = constructCellRendererTextForeground + attrClear _ = clearCellRendererTextForeground -- VVV Prop "foreground-gdk" -- Type: TInterface "Gdk" "Color" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getCellRendererTextForegroundGdk :: (MonadIO m, CellRendererTextK o) => o -> m Gdk.Color +getCellRendererTextForegroundGdk :: (MonadIO m, CellRendererTextK o) => o -> m (Maybe Gdk.Color) getCellRendererTextForegroundGdk obj = liftIO $ getObjectPropertyBoxed obj "foreground-gdk" Gdk.Color setCellRendererTextForegroundGdk :: (MonadIO m, CellRendererTextK o) => o -> Gdk.Color -> m () -setCellRendererTextForegroundGdk obj val = liftIO $ setObjectPropertyBoxed obj "foreground-gdk" val +setCellRendererTextForegroundGdk obj val = liftIO $ setObjectPropertyBoxed obj "foreground-gdk" (Just val) constructCellRendererTextForegroundGdk :: Gdk.Color -> IO ([Char], GValue) -constructCellRendererTextForegroundGdk val = constructObjectPropertyBoxed "foreground-gdk" val +constructCellRendererTextForegroundGdk val = constructObjectPropertyBoxed "foreground-gdk" (Just val) +clearCellRendererTextForegroundGdk :: (MonadIO m, CellRendererTextK o) => o -> m () +clearCellRendererTextForegroundGdk obj = liftIO $ setObjectPropertyBoxed obj "foreground-gdk" (Nothing :: Maybe Gdk.Color) + data CellRendererTextForegroundGdkPropertyInfo instance AttrInfo CellRendererTextForegroundGdkPropertyInfo where - type AttrAllowedOps CellRendererTextForegroundGdkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps CellRendererTextForegroundGdkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint CellRendererTextForegroundGdkPropertyInfo = (~) Gdk.Color type AttrBaseTypeConstraint CellRendererTextForegroundGdkPropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextForegroundGdkPropertyInfo = Gdk.Color + type AttrGetType CellRendererTextForegroundGdkPropertyInfo = (Maybe Gdk.Color) type AttrLabel CellRendererTextForegroundGdkPropertyInfo = "foreground-gdk" attrGet _ = getCellRendererTextForegroundGdk attrSet _ = setCellRendererTextForegroundGdk attrConstruct _ = constructCellRendererTextForegroundGdk + attrClear _ = clearCellRendererTextForegroundGdk -- VVV Prop "foreground-rgba" -- Type: TInterface "Gdk" "RGBA" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getCellRendererTextForegroundRgba :: (MonadIO m, CellRendererTextK o) => o -> m Gdk.RGBA +getCellRendererTextForegroundRgba :: (MonadIO m, CellRendererTextK o) => o -> m (Maybe Gdk.RGBA) getCellRendererTextForegroundRgba obj = liftIO $ getObjectPropertyBoxed obj "foreground-rgba" Gdk.RGBA setCellRendererTextForegroundRgba :: (MonadIO m, CellRendererTextK o) => o -> Gdk.RGBA -> m () -setCellRendererTextForegroundRgba obj val = liftIO $ setObjectPropertyBoxed obj "foreground-rgba" val +setCellRendererTextForegroundRgba obj val = liftIO $ setObjectPropertyBoxed obj "foreground-rgba" (Just val) constructCellRendererTextForegroundRgba :: Gdk.RGBA -> IO ([Char], GValue) -constructCellRendererTextForegroundRgba val = constructObjectPropertyBoxed "foreground-rgba" val +constructCellRendererTextForegroundRgba val = constructObjectPropertyBoxed "foreground-rgba" (Just val) +clearCellRendererTextForegroundRgba :: (MonadIO m, CellRendererTextK o) => o -> m () +clearCellRendererTextForegroundRgba obj = liftIO $ setObjectPropertyBoxed obj "foreground-rgba" (Nothing :: Maybe Gdk.RGBA) + data CellRendererTextForegroundRgbaPropertyInfo instance AttrInfo CellRendererTextForegroundRgbaPropertyInfo where - type AttrAllowedOps CellRendererTextForegroundRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps CellRendererTextForegroundRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint CellRendererTextForegroundRgbaPropertyInfo = (~) Gdk.RGBA type AttrBaseTypeConstraint CellRendererTextForegroundRgbaPropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextForegroundRgbaPropertyInfo = Gdk.RGBA + type AttrGetType CellRendererTextForegroundRgbaPropertyInfo = (Maybe Gdk.RGBA) type AttrLabel CellRendererTextForegroundRgbaPropertyInfo = "foreground-rgba" attrGet _ = getCellRendererTextForegroundRgba attrSet _ = setCellRendererTextForegroundRgba attrConstruct _ = constructCellRendererTextForegroundRgba + attrClear _ = clearCellRendererTextForegroundRgba -- VVV Prop "foreground-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererTextForegroundSet :: (MonadIO m, CellRendererTextK o) => o -> m Bool getCellRendererTextForegroundSet obj = liftIO $ getObjectPropertyBool obj "foreground-set" @@ -968,34 +1097,41 @@ attrGet _ = getCellRendererTextForegroundSet attrSet _ = setCellRendererTextForegroundSet attrConstruct _ = constructCellRendererTextForegroundSet + attrClear _ = undefined -- VVV Prop "language" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getCellRendererTextLanguage :: (MonadIO m, CellRendererTextK o) => o -> m T.Text +getCellRendererTextLanguage :: (MonadIO m, CellRendererTextK o) => o -> m (Maybe T.Text) getCellRendererTextLanguage obj = liftIO $ getObjectPropertyString obj "language" setCellRendererTextLanguage :: (MonadIO m, CellRendererTextK o) => o -> T.Text -> m () -setCellRendererTextLanguage obj val = liftIO $ setObjectPropertyString obj "language" val +setCellRendererTextLanguage obj val = liftIO $ setObjectPropertyString obj "language" (Just val) constructCellRendererTextLanguage :: T.Text -> IO ([Char], GValue) -constructCellRendererTextLanguage val = constructObjectPropertyString "language" val +constructCellRendererTextLanguage val = constructObjectPropertyString "language" (Just val) +clearCellRendererTextLanguage :: (MonadIO m, CellRendererTextK o) => o -> m () +clearCellRendererTextLanguage obj = liftIO $ setObjectPropertyString obj "language" (Nothing :: Maybe T.Text) + data CellRendererTextLanguagePropertyInfo instance AttrInfo CellRendererTextLanguagePropertyInfo where - type AttrAllowedOps CellRendererTextLanguagePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps CellRendererTextLanguagePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint CellRendererTextLanguagePropertyInfo = (~) T.Text type AttrBaseTypeConstraint CellRendererTextLanguagePropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextLanguagePropertyInfo = T.Text + type AttrGetType CellRendererTextLanguagePropertyInfo = (Maybe T.Text) type AttrLabel CellRendererTextLanguagePropertyInfo = "language" attrGet _ = getCellRendererTextLanguage attrSet _ = setCellRendererTextLanguage attrConstruct _ = constructCellRendererTextLanguage + attrClear _ = clearCellRendererTextLanguage -- VVV Prop "language-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererTextLanguageSet :: (MonadIO m, CellRendererTextK o) => o -> m Bool getCellRendererTextLanguageSet obj = liftIO $ getObjectPropertyBool obj "language-set" @@ -1016,20 +1152,25 @@ attrGet _ = getCellRendererTextLanguageSet attrSet _ = setCellRendererTextLanguageSet attrConstruct _ = constructCellRendererTextLanguageSet + attrClear _ = undefined -- VVV Prop "markup" -- Type: TBasicType TUTF8 -- Flags: [PropertyWritable] + -- Nullable: (Nothing,Nothing) setCellRendererTextMarkup :: (MonadIO m, CellRendererTextK o) => o -> T.Text -> m () -setCellRendererTextMarkup obj val = liftIO $ setObjectPropertyString obj "markup" val +setCellRendererTextMarkup obj val = liftIO $ setObjectPropertyString obj "markup" (Just val) constructCellRendererTextMarkup :: T.Text -> IO ([Char], GValue) -constructCellRendererTextMarkup val = constructObjectPropertyString "markup" val +constructCellRendererTextMarkup val = constructObjectPropertyString "markup" (Just val) +clearCellRendererTextMarkup :: (MonadIO m, CellRendererTextK o) => o -> m () +clearCellRendererTextMarkup obj = liftIO $ setObjectPropertyString obj "markup" (Nothing :: Maybe T.Text) + data CellRendererTextMarkupPropertyInfo instance AttrInfo CellRendererTextMarkupPropertyInfo where - type AttrAllowedOps CellRendererTextMarkupPropertyInfo = '[ 'AttrSet, 'AttrConstruct] + type AttrAllowedOps CellRendererTextMarkupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear] type AttrSetTypeConstraint CellRendererTextMarkupPropertyInfo = (~) T.Text type AttrBaseTypeConstraint CellRendererTextMarkupPropertyInfo = CellRendererTextK type AttrGetType CellRendererTextMarkupPropertyInfo = () @@ -1037,19 +1178,21 @@ attrGet _ = undefined attrSet _ = setCellRendererTextMarkup attrConstruct _ = constructCellRendererTextMarkup + attrClear _ = clearCellRendererTextMarkup -- VVV Prop "max-width-chars" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererTextMaxWidthChars :: (MonadIO m, CellRendererTextK o) => o -> m Int32 -getCellRendererTextMaxWidthChars obj = liftIO $ getObjectPropertyCInt obj "max-width-chars" +getCellRendererTextMaxWidthChars obj = liftIO $ getObjectPropertyInt32 obj "max-width-chars" setCellRendererTextMaxWidthChars :: (MonadIO m, CellRendererTextK o) => o -> Int32 -> m () -setCellRendererTextMaxWidthChars obj val = liftIO $ setObjectPropertyCInt obj "max-width-chars" val +setCellRendererTextMaxWidthChars obj val = liftIO $ setObjectPropertyInt32 obj "max-width-chars" val constructCellRendererTextMaxWidthChars :: Int32 -> IO ([Char], GValue) -constructCellRendererTextMaxWidthChars val = constructObjectPropertyCInt "max-width-chars" val +constructCellRendererTextMaxWidthChars val = constructObjectPropertyInt32 "max-width-chars" val data CellRendererTextMaxWidthCharsPropertyInfo instance AttrInfo CellRendererTextMaxWidthCharsPropertyInfo where @@ -1061,43 +1204,50 @@ attrGet _ = getCellRendererTextMaxWidthChars attrSet _ = setCellRendererTextMaxWidthChars attrConstruct _ = constructCellRendererTextMaxWidthChars + attrClear _ = undefined -- VVV Prop "placeholder-text" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getCellRendererTextPlaceholderText :: (MonadIO m, CellRendererTextK o) => o -> m T.Text +getCellRendererTextPlaceholderText :: (MonadIO m, CellRendererTextK o) => o -> m (Maybe T.Text) getCellRendererTextPlaceholderText obj = liftIO $ getObjectPropertyString obj "placeholder-text" setCellRendererTextPlaceholderText :: (MonadIO m, CellRendererTextK o) => o -> T.Text -> m () -setCellRendererTextPlaceholderText obj val = liftIO $ setObjectPropertyString obj "placeholder-text" val +setCellRendererTextPlaceholderText obj val = liftIO $ setObjectPropertyString obj "placeholder-text" (Just val) constructCellRendererTextPlaceholderText :: T.Text -> IO ([Char], GValue) -constructCellRendererTextPlaceholderText val = constructObjectPropertyString "placeholder-text" val +constructCellRendererTextPlaceholderText val = constructObjectPropertyString "placeholder-text" (Just val) +clearCellRendererTextPlaceholderText :: (MonadIO m, CellRendererTextK o) => o -> m () +clearCellRendererTextPlaceholderText obj = liftIO $ setObjectPropertyString obj "placeholder-text" (Nothing :: Maybe T.Text) + data CellRendererTextPlaceholderTextPropertyInfo instance AttrInfo CellRendererTextPlaceholderTextPropertyInfo where - type AttrAllowedOps CellRendererTextPlaceholderTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps CellRendererTextPlaceholderTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint CellRendererTextPlaceholderTextPropertyInfo = (~) T.Text type AttrBaseTypeConstraint CellRendererTextPlaceholderTextPropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextPlaceholderTextPropertyInfo = T.Text + type AttrGetType CellRendererTextPlaceholderTextPropertyInfo = (Maybe T.Text) type AttrLabel CellRendererTextPlaceholderTextPropertyInfo = "placeholder-text" attrGet _ = getCellRendererTextPlaceholderText attrSet _ = setCellRendererTextPlaceholderText attrConstruct _ = constructCellRendererTextPlaceholderText + attrClear _ = clearCellRendererTextPlaceholderText -- VVV Prop "rise" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererTextRise :: (MonadIO m, CellRendererTextK o) => o -> m Int32 -getCellRendererTextRise obj = liftIO $ getObjectPropertyCInt obj "rise" +getCellRendererTextRise obj = liftIO $ getObjectPropertyInt32 obj "rise" setCellRendererTextRise :: (MonadIO m, CellRendererTextK o) => o -> Int32 -> m () -setCellRendererTextRise obj val = liftIO $ setObjectPropertyCInt obj "rise" val +setCellRendererTextRise obj val = liftIO $ setObjectPropertyInt32 obj "rise" val constructCellRendererTextRise :: Int32 -> IO ([Char], GValue) -constructCellRendererTextRise val = constructObjectPropertyCInt "rise" val +constructCellRendererTextRise val = constructObjectPropertyInt32 "rise" val data CellRendererTextRisePropertyInfo instance AttrInfo CellRendererTextRisePropertyInfo where @@ -1109,10 +1259,12 @@ attrGet _ = getCellRendererTextRise attrSet _ = setCellRendererTextRise attrConstruct _ = constructCellRendererTextRise + attrClear _ = undefined -- VVV Prop "rise-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererTextRiseSet :: (MonadIO m, CellRendererTextK o) => o -> m Bool getCellRendererTextRiseSet obj = liftIO $ getObjectPropertyBool obj "rise-set" @@ -1133,10 +1285,12 @@ attrGet _ = getCellRendererTextRiseSet attrSet _ = setCellRendererTextRiseSet attrConstruct _ = constructCellRendererTextRiseSet + attrClear _ = undefined -- VVV Prop "scale" -- Type: TBasicType TDouble -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererTextScale :: (MonadIO m, CellRendererTextK o) => o -> m Double getCellRendererTextScale obj = liftIO $ getObjectPropertyDouble obj "scale" @@ -1157,10 +1311,12 @@ attrGet _ = getCellRendererTextScale attrSet _ = setCellRendererTextScale attrConstruct _ = constructCellRendererTextScale + attrClear _ = undefined -- VVV Prop "scale-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererTextScaleSet :: (MonadIO m, CellRendererTextK o) => o -> m Bool getCellRendererTextScaleSet obj = liftIO $ getObjectPropertyBool obj "scale-set" @@ -1181,10 +1337,12 @@ attrGet _ = getCellRendererTextScaleSet attrSet _ = setCellRendererTextScaleSet attrConstruct _ = constructCellRendererTextScaleSet + attrClear _ = undefined -- VVV Prop "single-paragraph-mode" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererTextSingleParagraphMode :: (MonadIO m, CellRendererTextK o) => o -> m Bool getCellRendererTextSingleParagraphMode obj = liftIO $ getObjectPropertyBool obj "single-paragraph-mode" @@ -1205,19 +1363,21 @@ attrGet _ = getCellRendererTextSingleParagraphMode attrSet _ = setCellRendererTextSingleParagraphMode attrConstruct _ = constructCellRendererTextSingleParagraphMode + attrClear _ = undefined -- VVV Prop "size" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererTextSize :: (MonadIO m, CellRendererTextK o) => o -> m Int32 -getCellRendererTextSize obj = liftIO $ getObjectPropertyCInt obj "size" +getCellRendererTextSize obj = liftIO $ getObjectPropertyInt32 obj "size" setCellRendererTextSize :: (MonadIO m, CellRendererTextK o) => o -> Int32 -> m () -setCellRendererTextSize obj val = liftIO $ setObjectPropertyCInt obj "size" val +setCellRendererTextSize obj val = liftIO $ setObjectPropertyInt32 obj "size" val constructCellRendererTextSize :: Int32 -> IO ([Char], GValue) -constructCellRendererTextSize val = constructObjectPropertyCInt "size" val +constructCellRendererTextSize val = constructObjectPropertyInt32 "size" val data CellRendererTextSizePropertyInfo instance AttrInfo CellRendererTextSizePropertyInfo where @@ -1229,10 +1389,12 @@ attrGet _ = getCellRendererTextSize attrSet _ = setCellRendererTextSize attrConstruct _ = constructCellRendererTextSize + attrClear _ = undefined -- VVV Prop "size-points" -- Type: TBasicType TDouble -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererTextSizePoints :: (MonadIO m, CellRendererTextK o) => o -> m Double getCellRendererTextSizePoints obj = liftIO $ getObjectPropertyDouble obj "size-points" @@ -1253,10 +1415,12 @@ attrGet _ = getCellRendererTextSizePoints attrSet _ = setCellRendererTextSizePoints attrConstruct _ = constructCellRendererTextSizePoints + attrClear _ = undefined -- VVV Prop "size-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererTextSizeSet :: (MonadIO m, CellRendererTextK o) => o -> m Bool getCellRendererTextSizeSet obj = liftIO $ getObjectPropertyBool obj "size-set" @@ -1277,10 +1441,12 @@ attrGet _ = getCellRendererTextSizeSet attrSet _ = setCellRendererTextSizeSet attrConstruct _ = constructCellRendererTextSizeSet + attrClear _ = undefined -- VVV Prop "stretch" -- Type: TInterface "Pango" "Stretch" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererTextStretch :: (MonadIO m, CellRendererTextK o) => o -> m Pango.Stretch getCellRendererTextStretch obj = liftIO $ getObjectPropertyEnum obj "stretch" @@ -1301,10 +1467,12 @@ attrGet _ = getCellRendererTextStretch attrSet _ = setCellRendererTextStretch attrConstruct _ = constructCellRendererTextStretch + attrClear _ = undefined -- VVV Prop "stretch-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererTextStretchSet :: (MonadIO m, CellRendererTextK o) => o -> m Bool getCellRendererTextStretchSet obj = liftIO $ getObjectPropertyBool obj "stretch-set" @@ -1325,10 +1493,12 @@ attrGet _ = getCellRendererTextStretchSet attrSet _ = setCellRendererTextStretchSet attrConstruct _ = constructCellRendererTextStretchSet + attrClear _ = undefined -- VVV Prop "strikethrough" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererTextStrikethrough :: (MonadIO m, CellRendererTextK o) => o -> m Bool getCellRendererTextStrikethrough obj = liftIO $ getObjectPropertyBool obj "strikethrough" @@ -1349,10 +1519,12 @@ attrGet _ = getCellRendererTextStrikethrough attrSet _ = setCellRendererTextStrikethrough attrConstruct _ = constructCellRendererTextStrikethrough + attrClear _ = undefined -- VVV Prop "strikethrough-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererTextStrikethroughSet :: (MonadIO m, CellRendererTextK o) => o -> m Bool getCellRendererTextStrikethroughSet obj = liftIO $ getObjectPropertyBool obj "strikethrough-set" @@ -1373,10 +1545,12 @@ attrGet _ = getCellRendererTextStrikethroughSet attrSet _ = setCellRendererTextStrikethroughSet attrConstruct _ = constructCellRendererTextStrikethroughSet + attrClear _ = undefined -- VVV Prop "style" -- Type: TInterface "Pango" "Style" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererTextStyle :: (MonadIO m, CellRendererTextK o) => o -> m Pango.Style getCellRendererTextStyle obj = liftIO $ getObjectPropertyEnum obj "style" @@ -1397,10 +1571,12 @@ attrGet _ = getCellRendererTextStyle attrSet _ = setCellRendererTextStyle attrConstruct _ = constructCellRendererTextStyle + attrClear _ = undefined -- VVV Prop "style-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererTextStyleSet :: (MonadIO m, CellRendererTextK o) => o -> m Bool getCellRendererTextStyleSet obj = liftIO $ getObjectPropertyBool obj "style-set" @@ -1421,34 +1597,41 @@ attrGet _ = getCellRendererTextStyleSet attrSet _ = setCellRendererTextStyleSet attrConstruct _ = constructCellRendererTextStyleSet + attrClear _ = undefined -- VVV Prop "text" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getCellRendererTextText :: (MonadIO m, CellRendererTextK o) => o -> m T.Text +getCellRendererTextText :: (MonadIO m, CellRendererTextK o) => o -> m (Maybe T.Text) getCellRendererTextText obj = liftIO $ getObjectPropertyString obj "text" setCellRendererTextText :: (MonadIO m, CellRendererTextK o) => o -> T.Text -> m () -setCellRendererTextText obj val = liftIO $ setObjectPropertyString obj "text" val +setCellRendererTextText obj val = liftIO $ setObjectPropertyString obj "text" (Just val) constructCellRendererTextText :: T.Text -> IO ([Char], GValue) -constructCellRendererTextText val = constructObjectPropertyString "text" val +constructCellRendererTextText val = constructObjectPropertyString "text" (Just val) +clearCellRendererTextText :: (MonadIO m, CellRendererTextK o) => o -> m () +clearCellRendererTextText obj = liftIO $ setObjectPropertyString obj "text" (Nothing :: Maybe T.Text) + data CellRendererTextTextPropertyInfo instance AttrInfo CellRendererTextTextPropertyInfo where - type AttrAllowedOps CellRendererTextTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps CellRendererTextTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint CellRendererTextTextPropertyInfo = (~) T.Text type AttrBaseTypeConstraint CellRendererTextTextPropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextTextPropertyInfo = T.Text + type AttrGetType CellRendererTextTextPropertyInfo = (Maybe T.Text) type AttrLabel CellRendererTextTextPropertyInfo = "text" attrGet _ = getCellRendererTextText attrSet _ = setCellRendererTextText attrConstruct _ = constructCellRendererTextText + attrClear _ = clearCellRendererTextText -- VVV Prop "underline" -- Type: TInterface "Pango" "Underline" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererTextUnderline :: (MonadIO m, CellRendererTextK o) => o -> m Pango.Underline getCellRendererTextUnderline obj = liftIO $ getObjectPropertyEnum obj "underline" @@ -1469,10 +1652,12 @@ attrGet _ = getCellRendererTextUnderline attrSet _ = setCellRendererTextUnderline attrConstruct _ = constructCellRendererTextUnderline + attrClear _ = undefined -- VVV Prop "underline-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererTextUnderlineSet :: (MonadIO m, CellRendererTextK o) => o -> m Bool getCellRendererTextUnderlineSet obj = liftIO $ getObjectPropertyBool obj "underline-set" @@ -1493,10 +1678,12 @@ attrGet _ = getCellRendererTextUnderlineSet attrSet _ = setCellRendererTextUnderlineSet attrConstruct _ = constructCellRendererTextUnderlineSet + attrClear _ = undefined -- VVV Prop "variant" -- Type: TInterface "Pango" "Variant" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererTextVariant :: (MonadIO m, CellRendererTextK o) => o -> m Pango.Variant getCellRendererTextVariant obj = liftIO $ getObjectPropertyEnum obj "variant" @@ -1517,10 +1704,12 @@ attrGet _ = getCellRendererTextVariant attrSet _ = setCellRendererTextVariant attrConstruct _ = constructCellRendererTextVariant + attrClear _ = undefined -- VVV Prop "variant-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererTextVariantSet :: (MonadIO m, CellRendererTextK o) => o -> m Bool getCellRendererTextVariantSet obj = liftIO $ getObjectPropertyBool obj "variant-set" @@ -1541,19 +1730,21 @@ attrGet _ = getCellRendererTextVariantSet attrSet _ = setCellRendererTextVariantSet attrConstruct _ = constructCellRendererTextVariantSet + attrClear _ = undefined -- VVV Prop "weight" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererTextWeight :: (MonadIO m, CellRendererTextK o) => o -> m Int32 -getCellRendererTextWeight obj = liftIO $ getObjectPropertyCInt obj "weight" +getCellRendererTextWeight obj = liftIO $ getObjectPropertyInt32 obj "weight" setCellRendererTextWeight :: (MonadIO m, CellRendererTextK o) => o -> Int32 -> m () -setCellRendererTextWeight obj val = liftIO $ setObjectPropertyCInt obj "weight" val +setCellRendererTextWeight obj val = liftIO $ setObjectPropertyInt32 obj "weight" val constructCellRendererTextWeight :: Int32 -> IO ([Char], GValue) -constructCellRendererTextWeight val = constructObjectPropertyCInt "weight" val +constructCellRendererTextWeight val = constructObjectPropertyInt32 "weight" val data CellRendererTextWeightPropertyInfo instance AttrInfo CellRendererTextWeightPropertyInfo where @@ -1565,10 +1756,12 @@ attrGet _ = getCellRendererTextWeight attrSet _ = setCellRendererTextWeight attrConstruct _ = constructCellRendererTextWeight + attrClear _ = undefined -- VVV Prop "weight-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererTextWeightSet :: (MonadIO m, CellRendererTextK o) => o -> m Bool getCellRendererTextWeightSet obj = liftIO $ getObjectPropertyBool obj "weight-set" @@ -1589,19 +1782,21 @@ attrGet _ = getCellRendererTextWeightSet attrSet _ = setCellRendererTextWeightSet attrConstruct _ = constructCellRendererTextWeightSet + attrClear _ = undefined -- VVV Prop "width-chars" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererTextWidthChars :: (MonadIO m, CellRendererTextK o) => o -> m Int32 -getCellRendererTextWidthChars obj = liftIO $ getObjectPropertyCInt obj "width-chars" +getCellRendererTextWidthChars obj = liftIO $ getObjectPropertyInt32 obj "width-chars" setCellRendererTextWidthChars :: (MonadIO m, CellRendererTextK o) => o -> Int32 -> m () -setCellRendererTextWidthChars obj val = liftIO $ setObjectPropertyCInt obj "width-chars" val +setCellRendererTextWidthChars obj val = liftIO $ setObjectPropertyInt32 obj "width-chars" val constructCellRendererTextWidthChars :: Int32 -> IO ([Char], GValue) -constructCellRendererTextWidthChars val = constructObjectPropertyCInt "width-chars" val +constructCellRendererTextWidthChars val = constructObjectPropertyInt32 "width-chars" val data CellRendererTextWidthCharsPropertyInfo instance AttrInfo CellRendererTextWidthCharsPropertyInfo where @@ -1613,10 +1808,12 @@ attrGet _ = getCellRendererTextWidthChars attrSet _ = setCellRendererTextWidthChars attrConstruct _ = constructCellRendererTextWidthChars + attrClear _ = undefined -- VVV Prop "wrap-mode" -- Type: TInterface "Pango" "WrapMode" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererTextWrapMode :: (MonadIO m, CellRendererTextK o) => o -> m Pango.WrapMode getCellRendererTextWrapMode obj = liftIO $ getObjectPropertyEnum obj "wrap-mode" @@ -1637,19 +1834,21 @@ attrGet _ = getCellRendererTextWrapMode attrSet _ = setCellRendererTextWrapMode attrConstruct _ = constructCellRendererTextWrapMode + attrClear _ = undefined -- VVV Prop "wrap-width" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererTextWrapWidth :: (MonadIO m, CellRendererTextK o) => o -> m Int32 -getCellRendererTextWrapWidth obj = liftIO $ getObjectPropertyCInt obj "wrap-width" +getCellRendererTextWrapWidth obj = liftIO $ getObjectPropertyInt32 obj "wrap-width" setCellRendererTextWrapWidth :: (MonadIO m, CellRendererTextK o) => o -> Int32 -> m () -setCellRendererTextWrapWidth obj val = liftIO $ setObjectPropertyCInt obj "wrap-width" val +setCellRendererTextWrapWidth obj val = liftIO $ setObjectPropertyInt32 obj "wrap-width" val constructCellRendererTextWrapWidth :: Int32 -> IO ([Char], GValue) -constructCellRendererTextWrapWidth val = constructObjectPropertyCInt "wrap-width" val +constructCellRendererTextWrapWidth val = constructObjectPropertyInt32 "wrap-width" val data CellRendererTextWrapWidthPropertyInfo instance AttrInfo CellRendererTextWrapWidthPropertyInfo where @@ -1661,10 +1860,155 @@ attrGet _ = getCellRendererTextWrapWidth attrSet _ = setCellRendererTextWrapWidth attrConstruct _ = constructCellRendererTextWrapWidth + attrClear _ = undefined type instance AttributeList CellRendererText = CellRendererTextAttributeList type CellRendererTextAttributeList = ('[ '("alignSet", CellRendererTextAlignSetPropertyInfo), '("alignment", CellRendererTextAlignmentPropertyInfo), '("attributes", CellRendererTextAttributesPropertyInfo), '("background", CellRendererTextBackgroundPropertyInfo), '("backgroundGdk", CellRendererTextBackgroundGdkPropertyInfo), '("backgroundRgba", CellRendererTextBackgroundRgbaPropertyInfo), '("backgroundSet", CellRendererTextBackgroundSetPropertyInfo), '("cellBackground", CellRendererCellBackgroundPropertyInfo), '("cellBackgroundGdk", CellRendererCellBackgroundGdkPropertyInfo), '("cellBackgroundRgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cellBackgroundSet", CellRendererCellBackgroundSetPropertyInfo), '("editable", CellRendererTextEditablePropertyInfo), '("editableSet", CellRendererTextEditableSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("ellipsize", CellRendererTextEllipsizePropertyInfo), '("ellipsizeSet", CellRendererTextEllipsizeSetPropertyInfo), '("family", CellRendererTextFamilyPropertyInfo), '("familySet", CellRendererTextFamilySetPropertyInfo), '("font", CellRendererTextFontPropertyInfo), '("fontDesc", CellRendererTextFontDescPropertyInfo), '("foreground", CellRendererTextForegroundPropertyInfo), '("foregroundGdk", CellRendererTextForegroundGdkPropertyInfo), '("foregroundRgba", CellRendererTextForegroundRgbaPropertyInfo), '("foregroundSet", CellRendererTextForegroundSetPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("isExpanded", CellRendererIsExpandedPropertyInfo), '("isExpander", CellRendererIsExpanderPropertyInfo), '("language", CellRendererTextLanguagePropertyInfo), '("languageSet", CellRendererTextLanguageSetPropertyInfo), '("markup", CellRendererTextMarkupPropertyInfo), '("maxWidthChars", CellRendererTextMaxWidthCharsPropertyInfo), '("mode", CellRendererModePropertyInfo), '("placeholderText", CellRendererTextPlaceholderTextPropertyInfo), '("rise", CellRendererTextRisePropertyInfo), '("riseSet", CellRendererTextRiseSetPropertyInfo), '("scale", CellRendererTextScalePropertyInfo), '("scaleSet", CellRendererTextScaleSetPropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("singleParagraphMode", CellRendererTextSingleParagraphModePropertyInfo), '("size", CellRendererTextSizePropertyInfo), '("sizePoints", CellRendererTextSizePointsPropertyInfo), '("sizeSet", CellRendererTextSizeSetPropertyInfo), '("stretch", CellRendererTextStretchPropertyInfo), '("stretchSet", CellRendererTextStretchSetPropertyInfo), '("strikethrough", CellRendererTextStrikethroughPropertyInfo), '("strikethroughSet", CellRendererTextStrikethroughSetPropertyInfo), '("style", CellRendererTextStylePropertyInfo), '("styleSet", CellRendererTextStyleSetPropertyInfo), '("text", CellRendererTextTextPropertyInfo), '("underline", CellRendererTextUnderlinePropertyInfo), '("underlineSet", CellRendererTextUnderlineSetPropertyInfo), '("variant", CellRendererTextVariantPropertyInfo), '("variantSet", CellRendererTextVariantSetPropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("weight", CellRendererTextWeightPropertyInfo), '("weightSet", CellRendererTextWeightSetPropertyInfo), '("width", CellRendererWidthPropertyInfo), '("widthChars", CellRendererTextWidthCharsPropertyInfo), '("wrapMode", CellRendererTextWrapModePropertyInfo), '("wrapWidth", CellRendererTextWrapWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] :: [(Symbol, *)]) +cellRendererTextAlignSet :: AttrLabelProxy "alignSet" +cellRendererTextAlignSet = AttrLabelProxy + +cellRendererTextAlignment :: AttrLabelProxy "alignment" +cellRendererTextAlignment = AttrLabelProxy + +cellRendererTextAttributes :: AttrLabelProxy "attributes" +cellRendererTextAttributes = AttrLabelProxy + +cellRendererTextBackground :: AttrLabelProxy "background" +cellRendererTextBackground = AttrLabelProxy + +cellRendererTextBackgroundGdk :: AttrLabelProxy "backgroundGdk" +cellRendererTextBackgroundGdk = AttrLabelProxy + +cellRendererTextBackgroundRgba :: AttrLabelProxy "backgroundRgba" +cellRendererTextBackgroundRgba = AttrLabelProxy + +cellRendererTextBackgroundSet :: AttrLabelProxy "backgroundSet" +cellRendererTextBackgroundSet = AttrLabelProxy + +cellRendererTextEditable :: AttrLabelProxy "editable" +cellRendererTextEditable = AttrLabelProxy + +cellRendererTextEditableSet :: AttrLabelProxy "editableSet" +cellRendererTextEditableSet = AttrLabelProxy + +cellRendererTextEllipsize :: AttrLabelProxy "ellipsize" +cellRendererTextEllipsize = AttrLabelProxy + +cellRendererTextEllipsizeSet :: AttrLabelProxy "ellipsizeSet" +cellRendererTextEllipsizeSet = AttrLabelProxy + +cellRendererTextFamily :: AttrLabelProxy "family" +cellRendererTextFamily = AttrLabelProxy + +cellRendererTextFamilySet :: AttrLabelProxy "familySet" +cellRendererTextFamilySet = AttrLabelProxy + +cellRendererTextFont :: AttrLabelProxy "font" +cellRendererTextFont = AttrLabelProxy + +cellRendererTextFontDesc :: AttrLabelProxy "fontDesc" +cellRendererTextFontDesc = AttrLabelProxy + +cellRendererTextForeground :: AttrLabelProxy "foreground" +cellRendererTextForeground = AttrLabelProxy + +cellRendererTextForegroundGdk :: AttrLabelProxy "foregroundGdk" +cellRendererTextForegroundGdk = AttrLabelProxy + +cellRendererTextForegroundRgba :: AttrLabelProxy "foregroundRgba" +cellRendererTextForegroundRgba = AttrLabelProxy + +cellRendererTextForegroundSet :: AttrLabelProxy "foregroundSet" +cellRendererTextForegroundSet = AttrLabelProxy + +cellRendererTextLanguage :: AttrLabelProxy "language" +cellRendererTextLanguage = AttrLabelProxy + +cellRendererTextLanguageSet :: AttrLabelProxy "languageSet" +cellRendererTextLanguageSet = AttrLabelProxy + +cellRendererTextMarkup :: AttrLabelProxy "markup" +cellRendererTextMarkup = AttrLabelProxy + +cellRendererTextMaxWidthChars :: AttrLabelProxy "maxWidthChars" +cellRendererTextMaxWidthChars = AttrLabelProxy + +cellRendererTextPlaceholderText :: AttrLabelProxy "placeholderText" +cellRendererTextPlaceholderText = AttrLabelProxy + +cellRendererTextRise :: AttrLabelProxy "rise" +cellRendererTextRise = AttrLabelProxy + +cellRendererTextRiseSet :: AttrLabelProxy "riseSet" +cellRendererTextRiseSet = AttrLabelProxy + +cellRendererTextScale :: AttrLabelProxy "scale" +cellRendererTextScale = AttrLabelProxy + +cellRendererTextScaleSet :: AttrLabelProxy "scaleSet" +cellRendererTextScaleSet = AttrLabelProxy + +cellRendererTextSingleParagraphMode :: AttrLabelProxy "singleParagraphMode" +cellRendererTextSingleParagraphMode = AttrLabelProxy + +cellRendererTextSize :: AttrLabelProxy "size" +cellRendererTextSize = AttrLabelProxy + +cellRendererTextSizePoints :: AttrLabelProxy "sizePoints" +cellRendererTextSizePoints = AttrLabelProxy + +cellRendererTextSizeSet :: AttrLabelProxy "sizeSet" +cellRendererTextSizeSet = AttrLabelProxy + +cellRendererTextStretch :: AttrLabelProxy "stretch" +cellRendererTextStretch = AttrLabelProxy + +cellRendererTextStretchSet :: AttrLabelProxy "stretchSet" +cellRendererTextStretchSet = AttrLabelProxy + +cellRendererTextStrikethrough :: AttrLabelProxy "strikethrough" +cellRendererTextStrikethrough = AttrLabelProxy + +cellRendererTextStrikethroughSet :: AttrLabelProxy "strikethroughSet" +cellRendererTextStrikethroughSet = AttrLabelProxy + +cellRendererTextStyle :: AttrLabelProxy "style" +cellRendererTextStyle = AttrLabelProxy + +cellRendererTextStyleSet :: AttrLabelProxy "styleSet" +cellRendererTextStyleSet = AttrLabelProxy + +cellRendererTextText :: AttrLabelProxy "text" +cellRendererTextText = AttrLabelProxy + +cellRendererTextUnderline :: AttrLabelProxy "underline" +cellRendererTextUnderline = AttrLabelProxy + +cellRendererTextUnderlineSet :: AttrLabelProxy "underlineSet" +cellRendererTextUnderlineSet = AttrLabelProxy + +cellRendererTextVariant :: AttrLabelProxy "variant" +cellRendererTextVariant = AttrLabelProxy + +cellRendererTextVariantSet :: AttrLabelProxy "variantSet" +cellRendererTextVariantSet = AttrLabelProxy + +cellRendererTextWeight :: AttrLabelProxy "weight" +cellRendererTextWeight = AttrLabelProxy + +cellRendererTextWeightSet :: AttrLabelProxy "weightSet" +cellRendererTextWeightSet = AttrLabelProxy + +cellRendererTextWidthChars :: AttrLabelProxy "widthChars" +cellRendererTextWidthChars = AttrLabelProxy + +cellRendererTextWrapMode :: AttrLabelProxy "wrapMode" +cellRendererTextWrapMode = AttrLabelProxy + +cellRendererTextWrapWidth :: AttrLabelProxy "wrapWidth" +cellRendererTextWrapWidth = AttrLabelProxy + data CellRendererTextEditedSignalInfo instance SignalInfo CellRendererTextEditedSignalInfo where type HaskellCallbackType CellRendererTextEditedSignalInfo = CellRendererTextEditedCallback @@ -1677,7 +2021,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "CellRendererText" +-- returnType : Just (TInterface "Gtk" "CellRendererText") -- throws : False -- Skip return : False @@ -1696,15 +2040,15 @@ -- method CellRendererText::set_fixed_height_from_font -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRendererText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "number_of_rows", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRendererText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "number_of_rows", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_cell_renderer_text_set_fixed_height_from_font" gtk_cell_renderer_text_set_fixed_height_from_font :: Ptr CellRendererText -> -- _obj : TInterface "Gtk" "CellRendererText" - Int32 -> -- number_of_rows : TBasicType TInt32 + Int32 -> -- number_of_rows : TBasicType TInt IO () diff --git a/GI/Gtk/Objects/CellRendererText.hs-boot b/GI/Gtk/Objects/CellRendererText.hs-boot --- a/GI/Gtk/Objects/CellRendererText.hs-boot +++ b/GI/Gtk/Objects/CellRendererText.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.CellRendererText where -import Prelude () 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 diff --git a/GI/Gtk/Objects/CellRendererToggle.hs b/GI/Gtk/Objects/CellRendererToggle.hs --- a/GI/Gtk/Objects/CellRendererToggle.hs +++ b/GI/Gtk/Objects/CellRendererToggle.hs @@ -56,6 +56,7 @@ -- * Properties -- ** Activatable CellRendererToggleActivatablePropertyInfo, + cellRendererToggleActivatable , constructCellRendererToggleActivatable , getCellRendererToggleActivatable , setCellRendererToggleActivatable , @@ -63,6 +64,7 @@ -- ** Active CellRendererToggleActivePropertyInfo , + cellRendererToggleActive , constructCellRendererToggleActive , getCellRendererToggleActive , setCellRendererToggleActive , @@ -70,6 +72,7 @@ -- ** Inconsistent CellRendererToggleInconsistentPropertyInfo, + cellRendererToggleInconsistent , constructCellRendererToggleInconsistent , getCellRendererToggleInconsistent , setCellRendererToggleInconsistent , @@ -77,6 +80,7 @@ -- ** IndicatorSize CellRendererToggleIndicatorSizePropertyInfo, + cellRendererToggleIndicatorSize , constructCellRendererToggleIndicatorSize, getCellRendererToggleIndicatorSize , setCellRendererToggleIndicatorSize , @@ -84,6 +88,7 @@ -- ** Radio CellRendererToggleRadioPropertyInfo , + cellRendererToggleRadio , constructCellRendererToggleRadio , getCellRendererToggleRadio , setCellRendererToggleRadio , @@ -108,9 +113,9 @@ ) where -import Prelude () 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 @@ -248,6 +253,7 @@ -- VVV Prop "activatable" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getCellRendererToggleActivatable :: (MonadIO m, CellRendererToggleK o) => o -> m Bool getCellRendererToggleActivatable obj = liftIO $ getObjectPropertyBool obj "activatable" @@ -268,10 +274,12 @@ attrGet _ = getCellRendererToggleActivatable attrSet _ = setCellRendererToggleActivatable attrConstruct _ = constructCellRendererToggleActivatable + attrClear _ = undefined -- VVV Prop "active" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getCellRendererToggleActive :: (MonadIO m, CellRendererToggleK o) => o -> m Bool getCellRendererToggleActive obj = liftIO $ getObjectPropertyBool obj "active" @@ -292,10 +300,12 @@ attrGet _ = getCellRendererToggleActive attrSet _ = setCellRendererToggleActive attrConstruct _ = constructCellRendererToggleActive + attrClear _ = undefined -- VVV Prop "inconsistent" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererToggleInconsistent :: (MonadIO m, CellRendererToggleK o) => o -> m Bool getCellRendererToggleInconsistent obj = liftIO $ getObjectPropertyBool obj "inconsistent" @@ -316,19 +326,21 @@ attrGet _ = getCellRendererToggleInconsistent attrSet _ = setCellRendererToggleInconsistent attrConstruct _ = constructCellRendererToggleInconsistent + attrClear _ = undefined -- VVV Prop "indicator-size" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellRendererToggleIndicatorSize :: (MonadIO m, CellRendererToggleK o) => o -> m Int32 -getCellRendererToggleIndicatorSize obj = liftIO $ getObjectPropertyCInt obj "indicator-size" +getCellRendererToggleIndicatorSize obj = liftIO $ getObjectPropertyInt32 obj "indicator-size" setCellRendererToggleIndicatorSize :: (MonadIO m, CellRendererToggleK o) => o -> Int32 -> m () -setCellRendererToggleIndicatorSize obj val = liftIO $ setObjectPropertyCInt obj "indicator-size" val +setCellRendererToggleIndicatorSize obj val = liftIO $ setObjectPropertyInt32 obj "indicator-size" val constructCellRendererToggleIndicatorSize :: Int32 -> IO ([Char], GValue) -constructCellRendererToggleIndicatorSize val = constructObjectPropertyCInt "indicator-size" val +constructCellRendererToggleIndicatorSize val = constructObjectPropertyInt32 "indicator-size" val data CellRendererToggleIndicatorSizePropertyInfo instance AttrInfo CellRendererToggleIndicatorSizePropertyInfo where @@ -340,10 +352,12 @@ attrGet _ = getCellRendererToggleIndicatorSize attrSet _ = setCellRendererToggleIndicatorSize attrConstruct _ = constructCellRendererToggleIndicatorSize + attrClear _ = undefined -- VVV Prop "radio" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getCellRendererToggleRadio :: (MonadIO m, CellRendererToggleK o) => o -> m Bool getCellRendererToggleRadio obj = liftIO $ getObjectPropertyBool obj "radio" @@ -364,10 +378,26 @@ attrGet _ = getCellRendererToggleRadio attrSet _ = setCellRendererToggleRadio attrConstruct _ = constructCellRendererToggleRadio + attrClear _ = undefined type instance AttributeList CellRendererToggle = CellRendererToggleAttributeList type CellRendererToggleAttributeList = ('[ '("activatable", CellRendererToggleActivatablePropertyInfo), '("active", CellRendererToggleActivePropertyInfo), '("cellBackground", CellRendererCellBackgroundPropertyInfo), '("cellBackgroundGdk", CellRendererCellBackgroundGdkPropertyInfo), '("cellBackgroundRgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cellBackgroundSet", CellRendererCellBackgroundSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("inconsistent", CellRendererToggleInconsistentPropertyInfo), '("indicatorSize", CellRendererToggleIndicatorSizePropertyInfo), '("isExpanded", CellRendererIsExpandedPropertyInfo), '("isExpander", CellRendererIsExpanderPropertyInfo), '("mode", CellRendererModePropertyInfo), '("radio", CellRendererToggleRadioPropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("width", CellRendererWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] :: [(Symbol, *)]) +cellRendererToggleActivatable :: AttrLabelProxy "activatable" +cellRendererToggleActivatable = AttrLabelProxy + +cellRendererToggleActive :: AttrLabelProxy "active" +cellRendererToggleActive = AttrLabelProxy + +cellRendererToggleInconsistent :: AttrLabelProxy "inconsistent" +cellRendererToggleInconsistent = AttrLabelProxy + +cellRendererToggleIndicatorSize :: AttrLabelProxy "indicatorSize" +cellRendererToggleIndicatorSize = AttrLabelProxy + +cellRendererToggleRadio :: AttrLabelProxy "radio" +cellRendererToggleRadio = AttrLabelProxy + data CellRendererToggleToggledSignalInfo instance SignalInfo CellRendererToggleToggledSignalInfo where type HaskellCallbackType CellRendererToggleToggledSignalInfo = CellRendererToggleToggledCallback @@ -380,7 +410,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "CellRendererToggle" +-- returnType : Just (TInterface "Gtk" "CellRendererToggle") -- throws : False -- Skip return : False @@ -401,7 +431,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRendererToggle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -429,7 +459,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRendererToggle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -457,7 +487,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRendererToggle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -485,7 +515,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRendererToggle", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -515,7 +545,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRendererToggle", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -545,7 +575,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellRendererToggle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "radio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/CellRendererToggle.hs-boot b/GI/Gtk/Objects/CellRendererToggle.hs-boot --- a/GI/Gtk/Objects/CellRendererToggle.hs-boot +++ b/GI/Gtk/Objects/CellRendererToggle.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.CellRendererToggle where -import Prelude () 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 diff --git a/GI/Gtk/Objects/CellView.hs b/GI/Gtk/Objects/CellView.hs --- a/GI/Gtk/Objects/CellView.hs +++ b/GI/Gtk/Objects/CellView.hs @@ -97,12 +97,16 @@ -- * Properties -- ** Background CellViewBackgroundPropertyInfo , + cellViewBackground , + clearCellViewBackground , constructCellViewBackground , setCellViewBackground , -- ** BackgroundGdk CellViewBackgroundGdkPropertyInfo , + cellViewBackgroundGdk , + clearCellViewBackgroundGdk , constructCellViewBackgroundGdk , getCellViewBackgroundGdk , setCellViewBackgroundGdk , @@ -110,6 +114,7 @@ -- ** BackgroundRgba CellViewBackgroundRgbaPropertyInfo , + cellViewBackgroundRgba , constructCellViewBackgroundRgba , getCellViewBackgroundRgba , setCellViewBackgroundRgba , @@ -117,6 +122,7 @@ -- ** BackgroundSet CellViewBackgroundSetPropertyInfo , + cellViewBackgroundSet , constructCellViewBackgroundSet , getCellViewBackgroundSet , setCellViewBackgroundSet , @@ -124,18 +130,21 @@ -- ** CellArea CellViewCellAreaPropertyInfo , + cellViewCellArea , constructCellViewCellArea , getCellViewCellArea , -- ** CellAreaContext CellViewCellAreaContextPropertyInfo , + cellViewCellAreaContext , constructCellViewCellAreaContext , getCellViewCellAreaContext , -- ** DrawSensitive CellViewDrawSensitivePropertyInfo , + cellViewDrawSensitive , constructCellViewDrawSensitive , getCellViewDrawSensitive , setCellViewDrawSensitive , @@ -143,6 +152,7 @@ -- ** FitModel CellViewFitModelPropertyInfo , + cellViewFitModel , constructCellViewFitModel , getCellViewFitModel , setCellViewFitModel , @@ -150,6 +160,8 @@ -- ** Model CellViewModelPropertyInfo , + cellViewModel , + clearCellViewModel , constructCellViewModel , getCellViewModel , setCellViewModel , @@ -159,9 +171,9 @@ ) where -import Prelude () 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 @@ -515,16 +527,20 @@ -- VVV Prop "background" -- Type: TBasicType TUTF8 -- Flags: [PropertyWritable] + -- Nullable: (Nothing,Nothing) setCellViewBackground :: (MonadIO m, CellViewK o) => o -> T.Text -> m () -setCellViewBackground obj val = liftIO $ setObjectPropertyString obj "background" val +setCellViewBackground obj val = liftIO $ setObjectPropertyString obj "background" (Just val) constructCellViewBackground :: T.Text -> IO ([Char], GValue) -constructCellViewBackground val = constructObjectPropertyString "background" val +constructCellViewBackground val = constructObjectPropertyString "background" (Just val) +clearCellViewBackground :: (MonadIO m, CellViewK o) => o -> m () +clearCellViewBackground obj = liftIO $ setObjectPropertyString obj "background" (Nothing :: Maybe T.Text) + data CellViewBackgroundPropertyInfo instance AttrInfo CellViewBackgroundPropertyInfo where - type AttrAllowedOps CellViewBackgroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct] + type AttrAllowedOps CellViewBackgroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear] type AttrSetTypeConstraint CellViewBackgroundPropertyInfo = (~) T.Text type AttrBaseTypeConstraint CellViewBackgroundPropertyInfo = CellViewK type AttrGetType CellViewBackgroundPropertyInfo = () @@ -532,58 +548,67 @@ attrGet _ = undefined attrSet _ = setCellViewBackground attrConstruct _ = constructCellViewBackground + attrClear _ = clearCellViewBackground -- VVV Prop "background-gdk" -- Type: TInterface "Gdk" "Color" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getCellViewBackgroundGdk :: (MonadIO m, CellViewK o) => o -> m Gdk.Color +getCellViewBackgroundGdk :: (MonadIO m, CellViewK o) => o -> m (Maybe Gdk.Color) getCellViewBackgroundGdk obj = liftIO $ getObjectPropertyBoxed obj "background-gdk" Gdk.Color setCellViewBackgroundGdk :: (MonadIO m, CellViewK o) => o -> Gdk.Color -> m () -setCellViewBackgroundGdk obj val = liftIO $ setObjectPropertyBoxed obj "background-gdk" val +setCellViewBackgroundGdk obj val = liftIO $ setObjectPropertyBoxed obj "background-gdk" (Just val) constructCellViewBackgroundGdk :: Gdk.Color -> IO ([Char], GValue) -constructCellViewBackgroundGdk val = constructObjectPropertyBoxed "background-gdk" val +constructCellViewBackgroundGdk val = constructObjectPropertyBoxed "background-gdk" (Just val) +clearCellViewBackgroundGdk :: (MonadIO m, CellViewK o) => o -> m () +clearCellViewBackgroundGdk obj = liftIO $ setObjectPropertyBoxed obj "background-gdk" (Nothing :: Maybe Gdk.Color) + data CellViewBackgroundGdkPropertyInfo instance AttrInfo CellViewBackgroundGdkPropertyInfo where - type AttrAllowedOps CellViewBackgroundGdkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps CellViewBackgroundGdkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint CellViewBackgroundGdkPropertyInfo = (~) Gdk.Color type AttrBaseTypeConstraint CellViewBackgroundGdkPropertyInfo = CellViewK - type AttrGetType CellViewBackgroundGdkPropertyInfo = Gdk.Color + type AttrGetType CellViewBackgroundGdkPropertyInfo = (Maybe Gdk.Color) type AttrLabel CellViewBackgroundGdkPropertyInfo = "background-gdk" attrGet _ = getCellViewBackgroundGdk attrSet _ = setCellViewBackgroundGdk attrConstruct _ = constructCellViewBackgroundGdk + attrClear _ = clearCellViewBackgroundGdk -- VVV Prop "background-rgba" -- Type: TInterface "Gdk" "RGBA" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getCellViewBackgroundRgba :: (MonadIO m, CellViewK o) => o -> m Gdk.RGBA +getCellViewBackgroundRgba :: (MonadIO m, CellViewK o) => o -> m (Maybe Gdk.RGBA) getCellViewBackgroundRgba obj = liftIO $ getObjectPropertyBoxed obj "background-rgba" Gdk.RGBA setCellViewBackgroundRgba :: (MonadIO m, CellViewK o) => o -> Gdk.RGBA -> m () -setCellViewBackgroundRgba obj val = liftIO $ setObjectPropertyBoxed obj "background-rgba" val +setCellViewBackgroundRgba obj val = liftIO $ setObjectPropertyBoxed obj "background-rgba" (Just val) constructCellViewBackgroundRgba :: Gdk.RGBA -> IO ([Char], GValue) -constructCellViewBackgroundRgba val = constructObjectPropertyBoxed "background-rgba" val +constructCellViewBackgroundRgba val = constructObjectPropertyBoxed "background-rgba" (Just val) data CellViewBackgroundRgbaPropertyInfo instance AttrInfo CellViewBackgroundRgbaPropertyInfo where type AttrAllowedOps CellViewBackgroundRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint CellViewBackgroundRgbaPropertyInfo = (~) Gdk.RGBA type AttrBaseTypeConstraint CellViewBackgroundRgbaPropertyInfo = CellViewK - type AttrGetType CellViewBackgroundRgbaPropertyInfo = Gdk.RGBA + type AttrGetType CellViewBackgroundRgbaPropertyInfo = (Maybe Gdk.RGBA) type AttrLabel CellViewBackgroundRgbaPropertyInfo = "background-rgba" attrGet _ = getCellViewBackgroundRgba attrSet _ = setCellViewBackgroundRgba attrConstruct _ = constructCellViewBackgroundRgba + attrClear _ = undefined -- VVV Prop "background-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getCellViewBackgroundSet :: (MonadIO m, CellViewK o) => o -> m Bool getCellViewBackgroundSet obj = liftIO $ getObjectPropertyBool obj "background-set" @@ -604,52 +629,58 @@ attrGet _ = getCellViewBackgroundSet attrSet _ = setCellViewBackgroundSet attrConstruct _ = constructCellViewBackgroundSet + attrClear _ = undefined -- VVV Prop "cell-area" -- Type: TInterface "Gtk" "CellArea" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + -- Nullable: (Nothing,Nothing) -getCellViewCellArea :: (MonadIO m, CellViewK o) => o -> m CellArea +getCellViewCellArea :: (MonadIO m, CellViewK o) => o -> m (Maybe CellArea) getCellViewCellArea obj = liftIO $ getObjectPropertyObject obj "cell-area" CellArea constructCellViewCellArea :: (CellAreaK a) => a -> IO ([Char], GValue) -constructCellViewCellArea val = constructObjectPropertyObject "cell-area" val +constructCellViewCellArea val = constructObjectPropertyObject "cell-area" (Just val) data CellViewCellAreaPropertyInfo instance AttrInfo CellViewCellAreaPropertyInfo where - type AttrAllowedOps CellViewCellAreaPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrAllowedOps CellViewCellAreaPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint CellViewCellAreaPropertyInfo = CellAreaK type AttrBaseTypeConstraint CellViewCellAreaPropertyInfo = CellViewK - type AttrGetType CellViewCellAreaPropertyInfo = CellArea + type AttrGetType CellViewCellAreaPropertyInfo = (Maybe CellArea) type AttrLabel CellViewCellAreaPropertyInfo = "cell-area" attrGet _ = getCellViewCellArea attrSet _ = undefined attrConstruct _ = constructCellViewCellArea + attrClear _ = undefined -- VVV Prop "cell-area-context" -- Type: TInterface "Gtk" "CellAreaContext" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + -- Nullable: (Nothing,Nothing) -getCellViewCellAreaContext :: (MonadIO m, CellViewK o) => o -> m CellAreaContext +getCellViewCellAreaContext :: (MonadIO m, CellViewK o) => o -> m (Maybe CellAreaContext) getCellViewCellAreaContext obj = liftIO $ getObjectPropertyObject obj "cell-area-context" CellAreaContext constructCellViewCellAreaContext :: (CellAreaContextK a) => a -> IO ([Char], GValue) -constructCellViewCellAreaContext val = constructObjectPropertyObject "cell-area-context" val +constructCellViewCellAreaContext val = constructObjectPropertyObject "cell-area-context" (Just val) data CellViewCellAreaContextPropertyInfo instance AttrInfo CellViewCellAreaContextPropertyInfo where - type AttrAllowedOps CellViewCellAreaContextPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrAllowedOps CellViewCellAreaContextPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint CellViewCellAreaContextPropertyInfo = CellAreaContextK type AttrBaseTypeConstraint CellViewCellAreaContextPropertyInfo = CellViewK - type AttrGetType CellViewCellAreaContextPropertyInfo = CellAreaContext + type AttrGetType CellViewCellAreaContextPropertyInfo = (Maybe CellAreaContext) type AttrLabel CellViewCellAreaContextPropertyInfo = "cell-area-context" attrGet _ = getCellViewCellAreaContext attrSet _ = undefined attrConstruct _ = constructCellViewCellAreaContext + attrClear _ = undefined -- VVV Prop "draw-sensitive" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getCellViewDrawSensitive :: (MonadIO m, CellViewK o) => o -> m Bool getCellViewDrawSensitive obj = liftIO $ getObjectPropertyBool obj "draw-sensitive" @@ -670,10 +701,12 @@ attrGet _ = getCellViewDrawSensitive attrSet _ = setCellViewDrawSensitive attrConstruct _ = constructCellViewDrawSensitive + attrClear _ = undefined -- VVV Prop "fit-model" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getCellViewFitModel :: (MonadIO m, CellViewK o) => o -> m Bool getCellViewFitModel obj = liftIO $ getObjectPropertyBool obj "fit-model" @@ -694,23 +727,28 @@ attrGet _ = getCellViewFitModel attrSet _ = setCellViewFitModel attrConstruct _ = constructCellViewFitModel + attrClear _ = undefined -- VVV Prop "model" -- Type: TInterface "Gtk" "TreeModel" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) getCellViewModel :: (MonadIO m, CellViewK o) => o -> m TreeModel -getCellViewModel obj = liftIO $ getObjectPropertyObject obj "model" TreeModel +getCellViewModel obj = liftIO $ checkUnexpectedNothing "getCellViewModel" $ getObjectPropertyObject obj "model" TreeModel setCellViewModel :: (MonadIO m, CellViewK o, TreeModelK a) => o -> a -> m () -setCellViewModel obj val = liftIO $ setObjectPropertyObject obj "model" val +setCellViewModel obj val = liftIO $ setObjectPropertyObject obj "model" (Just val) constructCellViewModel :: (TreeModelK a) => a -> IO ([Char], GValue) -constructCellViewModel val = constructObjectPropertyObject "model" val +constructCellViewModel val = constructObjectPropertyObject "model" (Just val) +clearCellViewModel :: (MonadIO m, CellViewK o) => o -> m () +clearCellViewModel obj = liftIO $ setObjectPropertyObject obj "model" (Nothing :: Maybe TreeModel) + data CellViewModelPropertyInfo instance AttrInfo CellViewModelPropertyInfo where - type AttrAllowedOps CellViewModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps CellViewModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint CellViewModelPropertyInfo = TreeModelK type AttrBaseTypeConstraint CellViewModelPropertyInfo = CellViewK type AttrGetType CellViewModelPropertyInfo = TreeModel @@ -718,10 +756,38 @@ attrGet _ = getCellViewModel attrSet _ = setCellViewModel attrConstruct _ = constructCellViewModel + attrClear _ = clearCellViewModel type instance AttributeList CellView = CellViewAttributeList type CellViewAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("background", CellViewBackgroundPropertyInfo), '("backgroundGdk", CellViewBackgroundGdkPropertyInfo), '("backgroundRgba", CellViewBackgroundRgbaPropertyInfo), '("backgroundSet", CellViewBackgroundSetPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("cellArea", CellViewCellAreaPropertyInfo), '("cellAreaContext", CellViewCellAreaContextPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("drawSensitive", CellViewDrawSensitivePropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("fitModel", CellViewFitModelPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("model", CellViewModelPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +cellViewBackground :: AttrLabelProxy "background" +cellViewBackground = AttrLabelProxy + +cellViewBackgroundGdk :: AttrLabelProxy "backgroundGdk" +cellViewBackgroundGdk = AttrLabelProxy + +cellViewBackgroundRgba :: AttrLabelProxy "backgroundRgba" +cellViewBackgroundRgba = AttrLabelProxy + +cellViewBackgroundSet :: AttrLabelProxy "backgroundSet" +cellViewBackgroundSet = AttrLabelProxy + +cellViewCellArea :: AttrLabelProxy "cellArea" +cellViewCellArea = AttrLabelProxy + +cellViewCellAreaContext :: AttrLabelProxy "cellAreaContext" +cellViewCellAreaContext = AttrLabelProxy + +cellViewDrawSensitive :: AttrLabelProxy "drawSensitive" +cellViewDrawSensitive = AttrLabelProxy + +cellViewFitModel :: AttrLabelProxy "fitModel" +cellViewFitModel = AttrLabelProxy + +cellViewModel :: AttrLabelProxy "model" +cellViewModel = AttrLabelProxy + type instance SignalList CellView = CellViewSignalList type CellViewSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -729,7 +795,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "CellView" +-- returnType : Just (TInterface "Gtk" "CellView") -- throws : False -- Skip return : False @@ -750,7 +816,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "area", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "CellView" +-- returnType : Just (TInterface "Gtk" "CellView") -- throws : False -- Skip return : False @@ -779,7 +845,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "CellView" +-- returnType : Just (TInterface "Gtk" "CellView") -- throws : False -- Skip return : False @@ -804,7 +870,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "CellView" +-- returnType : Just (TInterface "Gtk" "CellView") -- throws : False -- Skip return : False @@ -829,7 +895,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "CellView" +-- returnType : Just (TInterface "Gtk" "CellView") -- throws : False -- Skip return : False @@ -854,7 +920,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "TreePath" +-- returnType : Just (TInterface "Gtk" "TreePath") -- throws : False -- Skip return : False @@ -883,7 +949,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -911,7 +977,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -939,7 +1005,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "TreeModel" +-- returnType : Just (TInterface "Gtk" "TreeModel") -- throws : False -- Skip return : False @@ -968,7 +1034,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "requisition", argType = TInterface "Gtk" "Requisition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1003,7 +1069,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellView", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1034,7 +1100,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellView", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1065,7 +1131,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1100,7 +1166,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "draw_sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1130,7 +1196,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fit_model", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1160,7 +1226,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/CellView.hs-boot b/GI/Gtk/Objects/CellView.hs-boot --- a/GI/Gtk/Objects/CellView.hs-boot +++ b/GI/Gtk/Objects/CellView.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.CellView where -import Prelude () 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 diff --git a/GI/Gtk/Objects/CheckButton.hs b/GI/Gtk/Objects/CheckButton.hs --- a/GI/Gtk/Objects/CheckButton.hs +++ b/GI/Gtk/Objects/CheckButton.hs @@ -33,9 +33,9 @@ ) where -import Prelude () 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 @@ -441,7 +441,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "CheckButton" +-- returnType : Just (TInterface "Gtk" "CheckButton") -- throws : False -- Skip return : False @@ -462,7 +462,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "CheckButton" +-- returnType : Just (TInterface "Gtk" "CheckButton") -- throws : False -- Skip return : False @@ -487,7 +487,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "CheckButton" +-- returnType : Just (TInterface "Gtk" "CheckButton") -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/CheckButton.hs-boot b/GI/Gtk/Objects/CheckButton.hs-boot --- a/GI/Gtk/Objects/CheckButton.hs-boot +++ b/GI/Gtk/Objects/CheckButton.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.CheckButton where -import Prelude () 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 diff --git a/GI/Gtk/Objects/CheckMenuItem.hs b/GI/Gtk/Objects/CheckMenuItem.hs --- a/GI/Gtk/Objects/CheckMenuItem.hs +++ b/GI/Gtk/Objects/CheckMenuItem.hs @@ -69,6 +69,7 @@ -- * Properties -- ** Active CheckMenuItemActivePropertyInfo , + checkMenuItemActive , constructCheckMenuItemActive , getCheckMenuItemActive , setCheckMenuItemActive , @@ -76,6 +77,7 @@ -- ** DrawAsRadio CheckMenuItemDrawAsRadioPropertyInfo , + checkMenuItemDrawAsRadio , constructCheckMenuItemDrawAsRadio , getCheckMenuItemDrawAsRadio , setCheckMenuItemDrawAsRadio , @@ -83,6 +85,7 @@ -- ** Inconsistent CheckMenuItemInconsistentPropertyInfo , + checkMenuItemInconsistent , constructCheckMenuItemInconsistent , getCheckMenuItemInconsistent , setCheckMenuItemInconsistent , @@ -107,9 +110,9 @@ ) where -import Prelude () 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 @@ -535,6 +538,7 @@ -- VVV Prop "active" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getCheckMenuItemActive :: (MonadIO m, CheckMenuItemK o) => o -> m Bool getCheckMenuItemActive obj = liftIO $ getObjectPropertyBool obj "active" @@ -555,10 +559,12 @@ attrGet _ = getCheckMenuItemActive attrSet _ = setCheckMenuItemActive attrConstruct _ = constructCheckMenuItemActive + attrClear _ = undefined -- VVV Prop "draw-as-radio" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getCheckMenuItemDrawAsRadio :: (MonadIO m, CheckMenuItemK o) => o -> m Bool getCheckMenuItemDrawAsRadio obj = liftIO $ getObjectPropertyBool obj "draw-as-radio" @@ -579,10 +585,12 @@ attrGet _ = getCheckMenuItemDrawAsRadio attrSet _ = setCheckMenuItemDrawAsRadio attrConstruct _ = constructCheckMenuItemDrawAsRadio + attrClear _ = undefined -- VVV Prop "inconsistent" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getCheckMenuItemInconsistent :: (MonadIO m, CheckMenuItemK o) => o -> m Bool getCheckMenuItemInconsistent obj = liftIO $ getObjectPropertyBool obj "inconsistent" @@ -603,10 +611,20 @@ attrGet _ = getCheckMenuItemInconsistent attrSet _ = setCheckMenuItemInconsistent attrConstruct _ = constructCheckMenuItemInconsistent + attrClear _ = undefined type instance AttributeList CheckMenuItem = CheckMenuItemAttributeList type CheckMenuItemAttributeList = ('[ '("accelPath", MenuItemAccelPathPropertyInfo), '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("active", CheckMenuItemActivePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("drawAsRadio", CheckMenuItemDrawAsRadioPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("inconsistent", CheckMenuItemInconsistentPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", MenuItemLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rightJustified", MenuItemRightJustifiedPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("submenu", MenuItemSubmenuPropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useUnderline", MenuItemUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +checkMenuItemActive :: AttrLabelProxy "active" +checkMenuItemActive = AttrLabelProxy + +checkMenuItemDrawAsRadio :: AttrLabelProxy "drawAsRadio" +checkMenuItemDrawAsRadio = AttrLabelProxy + +checkMenuItemInconsistent :: AttrLabelProxy "inconsistent" +checkMenuItemInconsistent = AttrLabelProxy + data CheckMenuItemToggledSignalInfo instance SignalInfo CheckMenuItemToggledSignalInfo where type HaskellCallbackType CheckMenuItemToggledSignalInfo = CheckMenuItemToggledCallback @@ -619,7 +637,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "CheckMenuItem" +-- returnType : Just (TInterface "Gtk" "CheckMenuItem") -- throws : False -- Skip return : False @@ -640,7 +658,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "CheckMenuItem" +-- returnType : Just (TInterface "Gtk" "CheckMenuItem") -- throws : False -- Skip return : False @@ -665,7 +683,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "CheckMenuItem" +-- returnType : Just (TInterface "Gtk" "CheckMenuItem") -- throws : False -- Skip return : False @@ -690,7 +708,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -718,7 +736,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -746,7 +764,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -774,7 +792,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_active", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -804,7 +822,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "draw_as_radio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -834,7 +852,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -864,7 +882,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/CheckMenuItem.hs-boot b/GI/Gtk/Objects/CheckMenuItem.hs-boot --- a/GI/Gtk/Objects/CheckMenuItem.hs-boot +++ b/GI/Gtk/Objects/CheckMenuItem.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.CheckMenuItem where -import Prelude () 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 diff --git a/GI/Gtk/Objects/CheckMenuItemAccessible.hs b/GI/Gtk/Objects/CheckMenuItemAccessible.hs --- a/GI/Gtk/Objects/CheckMenuItemAccessible.hs +++ b/GI/Gtk/Objects/CheckMenuItemAccessible.hs @@ -18,9 +18,9 @@ ) where -import Prelude () 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 diff --git a/GI/Gtk/Objects/CheckMenuItemAccessible.hs-boot b/GI/Gtk/Objects/CheckMenuItemAccessible.hs-boot --- a/GI/Gtk/Objects/CheckMenuItemAccessible.hs-boot +++ b/GI/Gtk/Objects/CheckMenuItemAccessible.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.CheckMenuItemAccessible where -import Prelude () 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 diff --git a/GI/Gtk/Objects/Clipboard.hs b/GI/Gtk/Objects/Clipboard.hs --- a/GI/Gtk/Objects/Clipboard.hs +++ b/GI/Gtk/Objects/Clipboard.hs @@ -168,9 +168,9 @@ ) where -import Prelude () 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 @@ -316,7 +316,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -343,7 +343,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gdk" "Display" +-- returnType : Just (TInterface "Gdk" "Display") -- throws : False -- Skip return : False @@ -372,7 +372,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "GObject" "Object" +-- returnType : Just (TInterface "GObject" "Object") -- throws : False -- Skip return : False @@ -399,9 +399,9 @@ -- method Clipboard::request_contents -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", 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 = "callback", argType = TInterface "Gtk" "ClipboardReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", 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 = "callback", argType = TInterface "Gtk" "ClipboardReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -409,7 +409,7 @@ Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard" Ptr Gdk.Atom -> -- target : TInterface "Gdk" "Atom" FunPtr ClipboardReceivedFuncC -> -- callback : TInterface "Gtk" "ClipboardReceivedFunc" - Ptr () -> -- user_data : TBasicType TVoid + Ptr () -> -- user_data : TBasicType TPtr IO () @@ -437,16 +437,16 @@ -- method Clipboard::request_image -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gtk" "ClipboardImageReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gtk" "ClipboardImageReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 2, 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_clipboard_request_image" gtk_clipboard_request_image :: Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard" FunPtr ClipboardImageReceivedFuncC -> -- callback : TInterface "Gtk" "ClipboardImageReceivedFunc" - Ptr () -> -- user_data : TBasicType TVoid + Ptr () -> -- user_data : TBasicType TPtr IO () @@ -471,9 +471,9 @@ -- method Clipboard::request_rich_text -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gtk" "ClipboardRichTextReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gtk" "ClipboardRichTextReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -481,7 +481,7 @@ Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard" Ptr TextBuffer -> -- buffer : TInterface "Gtk" "TextBuffer" FunPtr ClipboardRichTextReceivedFuncC -> -- callback : TInterface "Gtk" "ClipboardRichTextReceivedFunc" - Ptr () -> -- user_data : TBasicType TVoid + Ptr () -> -- user_data : TBasicType TPtr IO () @@ -509,16 +509,16 @@ -- method Clipboard::request_targets -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gtk" "ClipboardTargetsReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gtk" "ClipboardTargetsReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 2, 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_clipboard_request_targets" gtk_clipboard_request_targets :: Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard" FunPtr ClipboardTargetsReceivedFuncC -> -- callback : TInterface "Gtk" "ClipboardTargetsReceivedFunc" - Ptr () -> -- user_data : TBasicType TVoid + Ptr () -> -- user_data : TBasicType TPtr IO () @@ -543,16 +543,16 @@ -- method Clipboard::request_text -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gtk" "ClipboardTextReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gtk" "ClipboardTextReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 2, 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_clipboard_request_text" gtk_clipboard_request_text :: Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard" FunPtr ClipboardTextReceivedFuncC -> -- callback : TInterface "Gtk" "ClipboardTextReceivedFunc" - Ptr () -> -- user_data : TBasicType TVoid + Ptr () -> -- user_data : TBasicType TPtr IO () @@ -577,16 +577,16 @@ -- method Clipboard::request_uris -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gtk" "ClipboardURIReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gtk" "ClipboardURIReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 2, 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_clipboard_request_uris" gtk_clipboard_request_uris :: Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard" FunPtr ClipboardURIReceivedFuncC -> -- callback : TInterface "Gtk" "ClipboardURIReceivedFunc" - Ptr () -> -- user_data : TBasicType TVoid + Ptr () -> -- user_data : TBasicType TPtr IO () @@ -611,16 +611,16 @@ -- method Clipboard::set_can_store -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TCArray False (-1) 2 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : TBasicType TVoid +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TCArray False (-1) 2 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = True, 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 "gtk_clipboard_set_can_store" gtk_clipboard_set_can_store :: Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard" Ptr TargetEntry -> -- targets : TCArray False (-1) 2 (TInterface "Gtk" "TargetEntry") - Int32 -> -- n_targets : TBasicType TInt32 + Int32 -> -- n_targets : TBasicType TInt IO () @@ -654,7 +654,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", 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}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -683,16 +683,16 @@ -- method Clipboard::set_text -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_clipboard_set_text" gtk_clipboard_set_text :: Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard" CString -> -- text : TBasicType TUTF8 - Int32 -> -- len : TBasicType TInt32 + Int32 -> -- len : TBasicType TInt IO () @@ -718,7 +718,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -745,7 +745,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", 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}] -- Lengths : [] --- returnType : TInterface "Gtk" "SelectionData" +-- returnType : Just (TInterface "Gtk" "SelectionData") -- throws : False -- Skip return : False @@ -759,26 +759,27 @@ (MonadIO m, ClipboardK a) => a -- _obj -> Gdk.Atom -- target - -> m SelectionData -- result + -> m (Maybe SelectionData) -- result clipboardWaitForContents _obj target = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let target' = unsafeManagedPtrGetPtr target result <- gtk_clipboard_wait_for_contents _obj' target' - checkUnexpectedReturnNULL "gtk_clipboard_wait_for_contents" result - result' <- (wrapBoxed SelectionData) result + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (wrapBoxed SelectionData) result' + return result'' touchManagedPtr _obj touchManagedPtr target - return result' + return maybeResult data ClipboardWaitForContentsMethodInfo -instance (signature ~ (Gdk.Atom -> m SelectionData), MonadIO m, ClipboardK a) => MethodInfo ClipboardWaitForContentsMethodInfo a signature where +instance (signature ~ (Gdk.Atom -> m (Maybe SelectionData)), MonadIO m, ClipboardK a) => MethodInfo ClipboardWaitForContentsMethodInfo a signature where overloadedMethod _ = clipboardWaitForContents -- method Clipboard::wait_for_image -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : False -- Skip return : False @@ -790,24 +791,25 @@ clipboardWaitForImage :: (MonadIO m, ClipboardK a) => a -- _obj - -> m GdkPixbuf.Pixbuf -- result + -> m (Maybe GdkPixbuf.Pixbuf) -- result clipboardWaitForImage _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_clipboard_wait_for_image _obj' - checkUnexpectedReturnNULL "gtk_clipboard_wait_for_image" result - result' <- (wrapObject GdkPixbuf.Pixbuf) result + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (wrapObject GdkPixbuf.Pixbuf) result' + return result'' touchManagedPtr _obj - return result' + return maybeResult data ClipboardWaitForImageMethodInfo -instance (signature ~ (m GdkPixbuf.Pixbuf), MonadIO m, ClipboardK a) => MethodInfo ClipboardWaitForImageMethodInfo a signature where +instance (signature ~ (m (Maybe GdkPixbuf.Pixbuf)), MonadIO m, ClipboardK a) => MethodInfo ClipboardWaitForImageMethodInfo a signature where overloadedMethod _ = clipboardWaitForImage -- method Clipboard::wait_for_rich_text -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : TCArray False (-1) 3 (TBasicType TUInt8) +-- returnType : Just (TCArray False (-1) 3 (TBasicType TUInt8)) -- throws : False -- Skip return : False @@ -823,7 +825,7 @@ (MonadIO m, ClipboardK a, TextBufferK b) => a -- _obj -> b -- buffer - -> m (ByteString,Gdk.Atom) -- result + -> m ((Maybe ByteString),Gdk.Atom) -- result clipboardWaitForRichText _obj buffer = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let buffer' = unsafeManagedPtrCastPtr buffer @@ -831,9 +833,10 @@ length_ <- allocMem :: IO (Ptr Word64) result <- gtk_clipboard_wait_for_rich_text _obj' buffer' format length_ length_' <- peek length_ - checkUnexpectedReturnNULL "gtk_clipboard_wait_for_rich_text" result - result' <- (unpackByteStringWithLength length_') result - freeMem result + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (unpackByteStringWithLength length_') result' + freeMem result' + return result'' format' <- peek format -- XXX Wrapping a foreign struct/union with no known destructor, leak? format'' <- (\x -> Gdk.Atom <$> newForeignPtr_ x) format' @@ -841,24 +844,24 @@ touchManagedPtr buffer freeMem format freeMem length_ - return (result', format'') + return (maybeResult, format'') data ClipboardWaitForRichTextMethodInfo -instance (signature ~ (b -> m (ByteString,Gdk.Atom)), MonadIO m, ClipboardK a, TextBufferK b) => MethodInfo ClipboardWaitForRichTextMethodInfo a signature where +instance (signature ~ (b -> m ((Maybe ByteString),Gdk.Atom)), MonadIO m, ClipboardK a, TextBufferK b) => MethodInfo ClipboardWaitForRichTextMethodInfo a signature where overloadedMethod _ = clipboardWaitForRichText -- method Clipboard::wait_for_targets -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TCArray False (-1) 2 (TInterface "Gdk" "Atom"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferContainer},Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : TBasicType TBoolean +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TCArray False (-1) 2 (TInterface "Gdk" "Atom"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferContainer},Arg {argCName = "n_targets", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [Arg {argCName = "n_targets", 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 "gtk_clipboard_wait_for_targets" gtk_clipboard_wait_for_targets :: Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard" Ptr (Ptr (Ptr Gdk.Atom)) -> -- targets : TCArray False (-1) 2 (TInterface "Gdk" "Atom") - Ptr Int32 -> -- n_targets : TBasicType TInt32 + Ptr Int32 -> -- n_targets : TBasicType TInt IO CInt @@ -891,7 +894,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -903,25 +906,26 @@ clipboardWaitForText :: (MonadIO m, ClipboardK a) => a -- _obj - -> m T.Text -- result + -> m (Maybe T.Text) -- result clipboardWaitForText _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_clipboard_wait_for_text _obj' - checkUnexpectedReturnNULL "gtk_clipboard_wait_for_text" result - result' <- cstringToText result - freeMem result + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- cstringToText result' + freeMem result' + return result'' touchManagedPtr _obj - return result' + return maybeResult data ClipboardWaitForTextMethodInfo -instance (signature ~ (m T.Text), MonadIO m, ClipboardK a) => MethodInfo ClipboardWaitForTextMethodInfo a signature where +instance (signature ~ (m (Maybe T.Text)), MonadIO m, ClipboardK a) => MethodInfo ClipboardWaitForTextMethodInfo a signature where overloadedMethod _ = clipboardWaitForText -- method Clipboard::wait_for_uris -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) +-- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) -- throws : False -- Skip return : False @@ -933,26 +937,27 @@ clipboardWaitForUris :: (MonadIO m, ClipboardK a) => a -- _obj - -> m [T.Text] -- result + -> m (Maybe [T.Text]) -- result clipboardWaitForUris _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_clipboard_wait_for_uris _obj' - checkUnexpectedReturnNULL "gtk_clipboard_wait_for_uris" result - result' <- unpackZeroTerminatedUTF8CArray result - mapZeroTerminatedCArray freeMem result - freeMem result + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- unpackZeroTerminatedUTF8CArray result' + mapZeroTerminatedCArray freeMem result' + freeMem result' + return result'' touchManagedPtr _obj - return result' + return maybeResult data ClipboardWaitForUrisMethodInfo -instance (signature ~ (m [T.Text]), MonadIO m, ClipboardK a) => MethodInfo ClipboardWaitForUrisMethodInfo a signature where +instance (signature ~ (m (Maybe [T.Text])), MonadIO m, ClipboardK a) => MethodInfo ClipboardWaitForUrisMethodInfo a signature where overloadedMethod _ = clipboardWaitForUris -- method Clipboard::wait_is_image_available -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -980,7 +985,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1012,7 +1017,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", 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}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1044,7 +1049,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1072,7 +1077,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1100,7 +1105,7 @@ -- method type : MemberFunction -- Args : [Arg {argCName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Clipboard" +-- returnType : Just (TInterface "Gtk" "Clipboard") -- throws : False -- Skip return : False @@ -1125,7 +1130,7 @@ -- 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 : TInterface "Gtk" "Clipboard" +-- returnType : Just (TInterface "Gtk" "Clipboard") -- throws : False -- Skip return : False @@ -1150,7 +1155,7 @@ -- 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 = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Clipboard" +-- returnType : Just (TInterface "Gtk" "Clipboard") -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/Clipboard.hs-boot b/GI/Gtk/Objects/Clipboard.hs-boot --- a/GI/Gtk/Objects/Clipboard.hs-boot +++ b/GI/Gtk/Objects/Clipboard.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.Clipboard where -import Prelude () 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 diff --git a/GI/Gtk/Objects/ColorButton.hs b/GI/Gtk/Objects/ColorButton.hs --- a/GI/Gtk/Objects/ColorButton.hs +++ b/GI/Gtk/Objects/ColorButton.hs @@ -74,6 +74,7 @@ -- * Properties -- ** Alpha ColorButtonAlphaPropertyInfo , + colorButtonAlpha , constructColorButtonAlpha , getColorButtonAlpha , setColorButtonAlpha , @@ -81,6 +82,7 @@ -- ** Color ColorButtonColorPropertyInfo , + colorButtonColor , constructColorButtonColor , getColorButtonColor , setColorButtonColor , @@ -88,6 +90,8 @@ -- ** Rgba ColorButtonRgbaPropertyInfo , + clearColorButtonRgba , + colorButtonRgba , constructColorButtonRgba , getColorButtonRgba , setColorButtonRgba , @@ -95,6 +99,7 @@ -- ** Title ColorButtonTitlePropertyInfo , + colorButtonTitle , constructColorButtonTitle , getColorButtonTitle , setColorButtonTitle , @@ -102,6 +107,7 @@ -- ** UseAlpha ColorButtonUseAlphaPropertyInfo , + colorButtonUseAlpha , constructColorButtonUseAlpha , getColorButtonUseAlpha , setColorButtonUseAlpha , @@ -126,9 +132,9 @@ ) where -import Prelude () 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 @@ -566,17 +572,18 @@ connectSignalFunPtr obj "color-set" cb' after -- VVV Prop "alpha" - -- Type: TBasicType TUInt32 + -- Type: TBasicType TUInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getColorButtonAlpha :: (MonadIO m, ColorButtonK o) => o -> m Word32 -getColorButtonAlpha obj = liftIO $ getObjectPropertyCUInt obj "alpha" +getColorButtonAlpha obj = liftIO $ getObjectPropertyUInt32 obj "alpha" setColorButtonAlpha :: (MonadIO m, ColorButtonK o) => o -> Word32 -> m () -setColorButtonAlpha obj val = liftIO $ setObjectPropertyCUInt obj "alpha" val +setColorButtonAlpha obj val = liftIO $ setObjectPropertyUInt32 obj "alpha" val constructColorButtonAlpha :: Word32 -> IO ([Char], GValue) -constructColorButtonAlpha val = constructObjectPropertyCUInt "alpha" val +constructColorButtonAlpha val = constructObjectPropertyUInt32 "alpha" val data ColorButtonAlphaPropertyInfo instance AttrInfo ColorButtonAlphaPropertyInfo where @@ -588,67 +595,76 @@ attrGet _ = getColorButtonAlpha attrSet _ = setColorButtonAlpha attrConstruct _ = constructColorButtonAlpha + attrClear _ = undefined -- VVV Prop "color" -- Type: TInterface "Gdk" "Color" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getColorButtonColor :: (MonadIO m, ColorButtonK o) => o -> m Gdk.Color +getColorButtonColor :: (MonadIO m, ColorButtonK o) => o -> m (Maybe Gdk.Color) getColorButtonColor obj = liftIO $ getObjectPropertyBoxed obj "color" Gdk.Color setColorButtonColor :: (MonadIO m, ColorButtonK o) => o -> Gdk.Color -> m () -setColorButtonColor obj val = liftIO $ setObjectPropertyBoxed obj "color" val +setColorButtonColor obj val = liftIO $ setObjectPropertyBoxed obj "color" (Just val) constructColorButtonColor :: Gdk.Color -> IO ([Char], GValue) -constructColorButtonColor val = constructObjectPropertyBoxed "color" val +constructColorButtonColor val = constructObjectPropertyBoxed "color" (Just val) data ColorButtonColorPropertyInfo instance AttrInfo ColorButtonColorPropertyInfo where type AttrAllowedOps ColorButtonColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint ColorButtonColorPropertyInfo = (~) Gdk.Color type AttrBaseTypeConstraint ColorButtonColorPropertyInfo = ColorButtonK - type AttrGetType ColorButtonColorPropertyInfo = Gdk.Color + type AttrGetType ColorButtonColorPropertyInfo = (Maybe Gdk.Color) type AttrLabel ColorButtonColorPropertyInfo = "color" attrGet _ = getColorButtonColor attrSet _ = setColorButtonColor attrConstruct _ = constructColorButtonColor + attrClear _ = undefined -- VVV Prop "rgba" -- Type: TInterface "Gdk" "RGBA" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getColorButtonRgba :: (MonadIO m, ColorButtonK o) => o -> m Gdk.RGBA +getColorButtonRgba :: (MonadIO m, ColorButtonK o) => o -> m (Maybe Gdk.RGBA) getColorButtonRgba obj = liftIO $ getObjectPropertyBoxed obj "rgba" Gdk.RGBA setColorButtonRgba :: (MonadIO m, ColorButtonK o) => o -> Gdk.RGBA -> m () -setColorButtonRgba obj val = liftIO $ setObjectPropertyBoxed obj "rgba" val +setColorButtonRgba obj val = liftIO $ setObjectPropertyBoxed obj "rgba" (Just val) constructColorButtonRgba :: Gdk.RGBA -> IO ([Char], GValue) -constructColorButtonRgba val = constructObjectPropertyBoxed "rgba" val +constructColorButtonRgba val = constructObjectPropertyBoxed "rgba" (Just val) +clearColorButtonRgba :: (MonadIO m, ColorButtonK o) => o -> m () +clearColorButtonRgba obj = liftIO $ setObjectPropertyBoxed obj "rgba" (Nothing :: Maybe Gdk.RGBA) + data ColorButtonRgbaPropertyInfo instance AttrInfo ColorButtonRgbaPropertyInfo where - type AttrAllowedOps ColorButtonRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps ColorButtonRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ColorButtonRgbaPropertyInfo = (~) Gdk.RGBA type AttrBaseTypeConstraint ColorButtonRgbaPropertyInfo = ColorButtonK - type AttrGetType ColorButtonRgbaPropertyInfo = Gdk.RGBA + type AttrGetType ColorButtonRgbaPropertyInfo = (Maybe Gdk.RGBA) type AttrLabel ColorButtonRgbaPropertyInfo = "rgba" attrGet _ = getColorButtonRgba attrSet _ = setColorButtonRgba attrConstruct _ = constructColorButtonRgba + attrClear _ = clearColorButtonRgba -- VVV Prop "title" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getColorButtonTitle :: (MonadIO m, ColorButtonK o) => o -> m T.Text -getColorButtonTitle obj = liftIO $ getObjectPropertyString obj "title" +getColorButtonTitle obj = liftIO $ checkUnexpectedNothing "getColorButtonTitle" $ getObjectPropertyString obj "title" setColorButtonTitle :: (MonadIO m, ColorButtonK o) => o -> T.Text -> m () -setColorButtonTitle obj val = liftIO $ setObjectPropertyString obj "title" val +setColorButtonTitle obj val = liftIO $ setObjectPropertyString obj "title" (Just val) constructColorButtonTitle :: T.Text -> IO ([Char], GValue) -constructColorButtonTitle val = constructObjectPropertyString "title" val +constructColorButtonTitle val = constructObjectPropertyString "title" (Just val) data ColorButtonTitlePropertyInfo instance AttrInfo ColorButtonTitlePropertyInfo where @@ -660,10 +676,12 @@ attrGet _ = getColorButtonTitle attrSet _ = setColorButtonTitle attrConstruct _ = constructColorButtonTitle + attrClear _ = undefined -- VVV Prop "use-alpha" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getColorButtonUseAlpha :: (MonadIO m, ColorButtonK o) => o -> m Bool getColorButtonUseAlpha obj = liftIO $ getObjectPropertyBool obj "use-alpha" @@ -684,10 +702,26 @@ attrGet _ = getColorButtonUseAlpha attrSet _ = setColorButtonUseAlpha attrConstruct _ = constructColorButtonUseAlpha + attrClear _ = undefined type instance AttributeList ColorButton = ColorButtonAttributeList type ColorButtonAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("alpha", ColorButtonAlphaPropertyInfo), '("alwaysShowImage", ButtonAlwaysShowImagePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("color", ColorButtonColorPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnClick", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("image", ButtonImagePropertyInfo), '("imagePosition", ButtonImagePositionPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rgba", ColorButtonRgbaPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("title", ColorButtonTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useAlpha", ColorButtonUseAlphaPropertyInfo), '("useStock", ButtonUseStockPropertyInfo), '("useUnderline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) +colorButtonAlpha :: AttrLabelProxy "alpha" +colorButtonAlpha = AttrLabelProxy + +colorButtonColor :: AttrLabelProxy "color" +colorButtonColor = AttrLabelProxy + +colorButtonRgba :: AttrLabelProxy "rgba" +colorButtonRgba = AttrLabelProxy + +colorButtonTitle :: AttrLabelProxy "title" +colorButtonTitle = AttrLabelProxy + +colorButtonUseAlpha :: AttrLabelProxy "useAlpha" +colorButtonUseAlpha = AttrLabelProxy + data ColorButtonColorSetSignalInfo instance SignalInfo ColorButtonColorSetSignalInfo where type HaskellCallbackType ColorButtonColorSetSignalInfo = ColorButtonColorSetCallback @@ -700,7 +734,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "ColorButton" +-- returnType : Just (TInterface "Gtk" "ColorButton") -- throws : False -- Skip return : False @@ -721,7 +755,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "ColorButton" +-- returnType : Just (TInterface "Gtk" "ColorButton") -- throws : False -- Skip return : False @@ -746,7 +780,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "ColorButton" +-- returnType : Just (TInterface "Gtk" "ColorButton") -- throws : False -- Skip return : False @@ -771,7 +805,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt16 +-- returnType : Just (TBasicType TUInt16) -- throws : False -- Skip return : False @@ -798,7 +832,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorButton", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -828,7 +862,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -857,7 +891,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -885,7 +919,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "alpha", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -914,7 +948,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorButton", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -945,7 +979,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorButton", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -976,7 +1010,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_alpha", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/ColorButton.hs-boot b/GI/Gtk/Objects/ColorButton.hs-boot --- a/GI/Gtk/Objects/ColorButton.hs-boot +++ b/GI/Gtk/Objects/ColorButton.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.ColorButton where -import Prelude () 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 diff --git a/GI/Gtk/Objects/ColorChooserDialog.hs b/GI/Gtk/Objects/ColorChooserDialog.hs --- a/GI/Gtk/Objects/ColorChooserDialog.hs +++ b/GI/Gtk/Objects/ColorChooserDialog.hs @@ -26,6 +26,7 @@ -- * Properties -- ** ShowEditor ColorChooserDialogShowEditorPropertyInfo, + colorChooserDialogShowEditor , constructColorChooserDialogShowEditor , getColorChooserDialogShowEditor , setColorChooserDialogShowEditor , @@ -35,9 +36,9 @@ ) where -import Prelude () 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 @@ -512,6 +513,7 @@ -- VVV Prop "show-editor" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getColorChooserDialogShowEditor :: (MonadIO m, ColorChooserDialogK o) => o -> m Bool getColorChooserDialogShowEditor obj = liftIO $ getObjectPropertyBool obj "show-editor" @@ -532,10 +534,14 @@ attrGet _ = getColorChooserDialogShowEditor attrSet _ = setColorChooserDialogShowEditor attrConstruct _ = constructColorChooserDialogShowEditor + attrClear _ = undefined type instance AttributeList ColorChooserDialog = ColorChooserDialogAttributeList type ColorChooserDialogAttributeList = ('[ '("acceptFocus", WindowAcceptFocusPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attachedTo", WindowAttachedToPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("defaultHeight", WindowDefaultHeightPropertyInfo), '("defaultWidth", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroyWithParent", WindowDestroyWithParentPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnMap", WindowFocusOnMapPropertyInfo), '("focusVisible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasResizeGrip", WindowHasResizeGripPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("hasToplevelFocus", WindowHasToplevelFocusPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hideTitlebarWhenMaximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("iconName", WindowIconNamePropertyInfo), '("isActive", WindowIsActivePropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isMaximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("mnemonicsVisible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resizeGripVisible", WindowResizeGripVisiblePropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rgba", ColorChooserRgbaPropertyInfo), '("role", WindowRolePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showEditor", ColorChooserDialogShowEditorPropertyInfo), '("skipPagerHint", WindowSkipPagerHintPropertyInfo), '("skipTaskbarHint", WindowSkipTaskbarHintPropertyInfo), '("startupId", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("transientFor", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("typeHint", WindowTypeHintPropertyInfo), '("urgencyHint", WindowUrgencyHintPropertyInfo), '("useAlpha", ColorChooserUseAlphaPropertyInfo), '("useHeaderBar", DialogUseHeaderBarPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("windowPosition", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) +colorChooserDialogShowEditor :: AttrLabelProxy "showEditor" +colorChooserDialogShowEditor = AttrLabelProxy + type instance SignalList ColorChooserDialog = ColorChooserDialogSignalList type ColorChooserDialogSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activateDefault", WindowActivateDefaultSignalInfo), '("activateFocus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("close", DialogCloseSignalInfo), '("colorActivated", ColorChooserColorActivatedSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enableDebugging", WindowEnableDebuggingSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("keysChanged", WindowKeysChangedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("response", DialogResponseSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocus", WindowSetFocusSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -543,7 +549,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "ColorChooserDialog" +-- returnType : Just (TInterface "Gtk" "ColorChooserDialog") -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/ColorChooserDialog.hs-boot b/GI/Gtk/Objects/ColorChooserDialog.hs-boot --- a/GI/Gtk/Objects/ColorChooserDialog.hs-boot +++ b/GI/Gtk/Objects/ColorChooserDialog.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.ColorChooserDialog where -import Prelude () 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 diff --git a/GI/Gtk/Objects/ColorChooserWidget.hs b/GI/Gtk/Objects/ColorChooserWidget.hs --- a/GI/Gtk/Objects/ColorChooserWidget.hs +++ b/GI/Gtk/Objects/ColorChooserWidget.hs @@ -26,6 +26,7 @@ -- * Properties -- ** ShowEditor ColorChooserWidgetShowEditorPropertyInfo, + colorChooserWidgetShowEditor , constructColorChooserWidgetShowEditor , getColorChooserWidgetShowEditor , setColorChooserWidgetShowEditor , @@ -35,9 +36,9 @@ ) where -import Prelude () 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 @@ -413,6 +414,7 @@ -- VVV Prop "show-editor" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getColorChooserWidgetShowEditor :: (MonadIO m, ColorChooserWidgetK o) => o -> m Bool getColorChooserWidgetShowEditor obj = liftIO $ getObjectPropertyBool obj "show-editor" @@ -433,10 +435,14 @@ attrGet _ = getColorChooserWidgetShowEditor attrSet _ = setColorChooserWidgetShowEditor attrConstruct _ = constructColorChooserWidgetShowEditor + attrClear _ = undefined type instance AttributeList ColorChooserWidget = ColorChooserWidgetAttributeList type ColorChooserWidgetAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("baselinePosition", BoxBaselinePositionPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rgba", ColorChooserRgbaPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showEditor", ColorChooserWidgetShowEditorPropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useAlpha", ColorChooserUseAlphaPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +colorChooserWidgetShowEditor :: AttrLabelProxy "showEditor" +colorChooserWidgetShowEditor = AttrLabelProxy + type instance SignalList ColorChooserWidget = ColorChooserWidgetSignalList type ColorChooserWidgetSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("colorActivated", ColorChooserColorActivatedSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -444,7 +450,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "ColorChooserWidget" +-- returnType : Just (TInterface "Gtk" "ColorChooserWidget") -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/ColorChooserWidget.hs-boot b/GI/Gtk/Objects/ColorChooserWidget.hs-boot --- a/GI/Gtk/Objects/ColorChooserWidget.hs-boot +++ b/GI/Gtk/Objects/ColorChooserWidget.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.ColorChooserWidget where -import Prelude () 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 diff --git a/GI/Gtk/Objects/ColorSelection.hs b/GI/Gtk/Objects/ColorSelection.hs --- a/GI/Gtk/Objects/ColorSelection.hs +++ b/GI/Gtk/Objects/ColorSelection.hs @@ -119,6 +119,7 @@ -- * Properties -- ** CurrentAlpha ColorSelectionCurrentAlphaPropertyInfo , + colorSelectionCurrentAlpha , constructColorSelectionCurrentAlpha , getColorSelectionCurrentAlpha , setColorSelectionCurrentAlpha , @@ -126,6 +127,7 @@ -- ** CurrentColor ColorSelectionCurrentColorPropertyInfo , + colorSelectionCurrentColor , constructColorSelectionCurrentColor , getColorSelectionCurrentColor , setColorSelectionCurrentColor , @@ -133,6 +135,7 @@ -- ** CurrentRgba ColorSelectionCurrentRgbaPropertyInfo , + colorSelectionCurrentRgba , constructColorSelectionCurrentRgba , getColorSelectionCurrentRgba , setColorSelectionCurrentRgba , @@ -140,6 +143,7 @@ -- ** HasOpacityControl ColorSelectionHasOpacityControlPropertyInfo, + colorSelectionHasOpacityControl , constructColorSelectionHasOpacityControl, getColorSelectionHasOpacityControl , setColorSelectionHasOpacityControl , @@ -147,6 +151,7 @@ -- ** HasPalette ColorSelectionHasPalettePropertyInfo , + colorSelectionHasPalette , constructColorSelectionHasPalette , getColorSelectionHasPalette , setColorSelectionHasPalette , @@ -171,9 +176,9 @@ ) where -import Prelude () 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 @@ -598,17 +603,18 @@ connectSignalFunPtr obj "color-changed" cb' after -- VVV Prop "current-alpha" - -- Type: TBasicType TUInt32 + -- Type: TBasicType TUInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getColorSelectionCurrentAlpha :: (MonadIO m, ColorSelectionK o) => o -> m Word32 -getColorSelectionCurrentAlpha obj = liftIO $ getObjectPropertyCUInt obj "current-alpha" +getColorSelectionCurrentAlpha obj = liftIO $ getObjectPropertyUInt32 obj "current-alpha" setColorSelectionCurrentAlpha :: (MonadIO m, ColorSelectionK o) => o -> Word32 -> m () -setColorSelectionCurrentAlpha obj val = liftIO $ setObjectPropertyCUInt obj "current-alpha" val +setColorSelectionCurrentAlpha obj val = liftIO $ setObjectPropertyUInt32 obj "current-alpha" val constructColorSelectionCurrentAlpha :: Word32 -> IO ([Char], GValue) -constructColorSelectionCurrentAlpha val = constructObjectPropertyCUInt "current-alpha" val +constructColorSelectionCurrentAlpha val = constructObjectPropertyUInt32 "current-alpha" val data ColorSelectionCurrentAlphaPropertyInfo instance AttrInfo ColorSelectionCurrentAlphaPropertyInfo where @@ -620,58 +626,64 @@ attrGet _ = getColorSelectionCurrentAlpha attrSet _ = setColorSelectionCurrentAlpha attrConstruct _ = constructColorSelectionCurrentAlpha + attrClear _ = undefined -- VVV Prop "current-color" -- Type: TInterface "Gdk" "Color" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getColorSelectionCurrentColor :: (MonadIO m, ColorSelectionK o) => o -> m Gdk.Color +getColorSelectionCurrentColor :: (MonadIO m, ColorSelectionK o) => o -> m (Maybe Gdk.Color) getColorSelectionCurrentColor obj = liftIO $ getObjectPropertyBoxed obj "current-color" Gdk.Color setColorSelectionCurrentColor :: (MonadIO m, ColorSelectionK o) => o -> Gdk.Color -> m () -setColorSelectionCurrentColor obj val = liftIO $ setObjectPropertyBoxed obj "current-color" val +setColorSelectionCurrentColor obj val = liftIO $ setObjectPropertyBoxed obj "current-color" (Just val) constructColorSelectionCurrentColor :: Gdk.Color -> IO ([Char], GValue) -constructColorSelectionCurrentColor val = constructObjectPropertyBoxed "current-color" val +constructColorSelectionCurrentColor val = constructObjectPropertyBoxed "current-color" (Just val) data ColorSelectionCurrentColorPropertyInfo instance AttrInfo ColorSelectionCurrentColorPropertyInfo where type AttrAllowedOps ColorSelectionCurrentColorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint ColorSelectionCurrentColorPropertyInfo = (~) Gdk.Color type AttrBaseTypeConstraint ColorSelectionCurrentColorPropertyInfo = ColorSelectionK - type AttrGetType ColorSelectionCurrentColorPropertyInfo = Gdk.Color + type AttrGetType ColorSelectionCurrentColorPropertyInfo = (Maybe Gdk.Color) type AttrLabel ColorSelectionCurrentColorPropertyInfo = "current-color" attrGet _ = getColorSelectionCurrentColor attrSet _ = setColorSelectionCurrentColor attrConstruct _ = constructColorSelectionCurrentColor + attrClear _ = undefined -- VVV Prop "current-rgba" -- Type: TInterface "Gdk" "RGBA" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getColorSelectionCurrentRgba :: (MonadIO m, ColorSelectionK o) => o -> m Gdk.RGBA +getColorSelectionCurrentRgba :: (MonadIO m, ColorSelectionK o) => o -> m (Maybe Gdk.RGBA) getColorSelectionCurrentRgba obj = liftIO $ getObjectPropertyBoxed obj "current-rgba" Gdk.RGBA setColorSelectionCurrentRgba :: (MonadIO m, ColorSelectionK o) => o -> Gdk.RGBA -> m () -setColorSelectionCurrentRgba obj val = liftIO $ setObjectPropertyBoxed obj "current-rgba" val +setColorSelectionCurrentRgba obj val = liftIO $ setObjectPropertyBoxed obj "current-rgba" (Just val) constructColorSelectionCurrentRgba :: Gdk.RGBA -> IO ([Char], GValue) -constructColorSelectionCurrentRgba val = constructObjectPropertyBoxed "current-rgba" val +constructColorSelectionCurrentRgba val = constructObjectPropertyBoxed "current-rgba" (Just val) data ColorSelectionCurrentRgbaPropertyInfo instance AttrInfo ColorSelectionCurrentRgbaPropertyInfo where type AttrAllowedOps ColorSelectionCurrentRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint ColorSelectionCurrentRgbaPropertyInfo = (~) Gdk.RGBA type AttrBaseTypeConstraint ColorSelectionCurrentRgbaPropertyInfo = ColorSelectionK - type AttrGetType ColorSelectionCurrentRgbaPropertyInfo = Gdk.RGBA + type AttrGetType ColorSelectionCurrentRgbaPropertyInfo = (Maybe Gdk.RGBA) type AttrLabel ColorSelectionCurrentRgbaPropertyInfo = "current-rgba" attrGet _ = getColorSelectionCurrentRgba attrSet _ = setColorSelectionCurrentRgba attrConstruct _ = constructColorSelectionCurrentRgba + attrClear _ = undefined -- VVV Prop "has-opacity-control" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getColorSelectionHasOpacityControl :: (MonadIO m, ColorSelectionK o) => o -> m Bool getColorSelectionHasOpacityControl obj = liftIO $ getObjectPropertyBool obj "has-opacity-control" @@ -692,10 +704,12 @@ attrGet _ = getColorSelectionHasOpacityControl attrSet _ = setColorSelectionHasOpacityControl attrConstruct _ = constructColorSelectionHasOpacityControl + attrClear _ = undefined -- VVV Prop "has-palette" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getColorSelectionHasPalette :: (MonadIO m, ColorSelectionK o) => o -> m Bool getColorSelectionHasPalette obj = liftIO $ getObjectPropertyBool obj "has-palette" @@ -716,10 +730,26 @@ attrGet _ = getColorSelectionHasPalette attrSet _ = setColorSelectionHasPalette attrConstruct _ = constructColorSelectionHasPalette + attrClear _ = undefined type instance AttributeList ColorSelection = ColorSelectionAttributeList type ColorSelectionAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("baselinePosition", BoxBaselinePositionPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("currentAlpha", ColorSelectionCurrentAlphaPropertyInfo), '("currentColor", ColorSelectionCurrentColorPropertyInfo), '("currentRgba", ColorSelectionCurrentRgbaPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasOpacityControl", ColorSelectionHasOpacityControlPropertyInfo), '("hasPalette", ColorSelectionHasPalettePropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +colorSelectionCurrentAlpha :: AttrLabelProxy "currentAlpha" +colorSelectionCurrentAlpha = AttrLabelProxy + +colorSelectionCurrentColor :: AttrLabelProxy "currentColor" +colorSelectionCurrentColor = AttrLabelProxy + +colorSelectionCurrentRgba :: AttrLabelProxy "currentRgba" +colorSelectionCurrentRgba = AttrLabelProxy + +colorSelectionHasOpacityControl :: AttrLabelProxy "hasOpacityControl" +colorSelectionHasOpacityControl = AttrLabelProxy + +colorSelectionHasPalette :: AttrLabelProxy "hasPalette" +colorSelectionHasPalette = AttrLabelProxy + data ColorSelectionColorChangedSignalInfo instance SignalInfo ColorSelectionColorChangedSignalInfo where type HaskellCallbackType ColorSelectionColorChangedSignalInfo = ColorSelectionColorChangedCallback @@ -732,7 +762,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "ColorSelection" +-- returnType : Just (TInterface "Gtk" "ColorSelection") -- throws : False -- Skip return : False @@ -753,7 +783,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt16 +-- returnType : Just (TBasicType TUInt16) -- throws : False -- Skip return : False @@ -780,7 +810,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -810,7 +840,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -840,7 +870,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -868,7 +898,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -896,7 +926,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt16 +-- returnType : Just (TBasicType TUInt16) -- throws : False -- Skip return : False @@ -923,7 +953,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -953,7 +983,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -983,7 +1013,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1011,7 +1041,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "alpha", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1040,7 +1070,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1071,7 +1101,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1102,7 +1132,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "has_opacity", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1132,7 +1162,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "has_palette", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1162,7 +1192,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "alpha", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1191,7 +1221,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1222,7 +1252,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelection", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1251,16 +1281,16 @@ -- method ColorSelection::palette_from_string -- method type : MemberFunction --- Args : [Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "colors", argType = TCArray False (-1) 2 (TInterface "Gdk" "Color"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "n_colors", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "n_colors", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : TBasicType TBoolean +-- Args : [Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "colors", argType = TCArray False (-1) 2 (TInterface "Gdk" "Color"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "n_colors", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [Arg {argCName = "n_colors", 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 "gtk_color_selection_palette_from_string" gtk_color_selection_palette_from_string :: CString -> -- str : TBasicType TUTF8 Ptr (Ptr Gdk.Color) -> -- colors : TCArray False (-1) 2 (TInterface "Gdk" "Color") - Ptr Int32 -> -- n_colors : TBasicType TInt32 + Ptr Int32 -> -- n_colors : TBasicType TInt IO CInt @@ -1286,15 +1316,15 @@ -- method ColorSelection::palette_to_string -- method type : MemberFunction --- Args : [Arg {argCName = "colors", argType = TCArray False (-1) 1 (TInterface "Gdk" "Color"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_colors", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "n_colors", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 +-- Args : [Arg {argCName = "colors", argType = TCArray False (-1) 1 (TInterface "Gdk" "Color"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_colors", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "n_colors", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False foreign import ccall "gtk_color_selection_palette_to_string" gtk_color_selection_palette_to_string :: Ptr Gdk.Color -> -- colors : TCArray False (-1) 1 (TInterface "Gdk" "Color") - Int32 -> -- n_colors : TBasicType TInt32 + Int32 -> -- n_colors : TBasicType TInt IO CString diff --git a/GI/Gtk/Objects/ColorSelection.hs-boot b/GI/Gtk/Objects/ColorSelection.hs-boot --- a/GI/Gtk/Objects/ColorSelection.hs-boot +++ b/GI/Gtk/Objects/ColorSelection.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.ColorSelection where -import Prelude () 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 diff --git a/GI/Gtk/Objects/ColorSelectionDialog.hs b/GI/Gtk/Objects/ColorSelectionDialog.hs --- a/GI/Gtk/Objects/ColorSelectionDialog.hs +++ b/GI/Gtk/Objects/ColorSelectionDialog.hs @@ -31,21 +31,25 @@ -- * Properties -- ** CancelButton ColorSelectionDialogCancelButtonPropertyInfo, + colorSelectionDialogCancelButton , getColorSelectionDialogCancelButton , -- ** ColorSelection ColorSelectionDialogColorSelectionPropertyInfo, + colorSelectionDialogColorSelection , getColorSelectionDialogColorSelection , -- ** HelpButton ColorSelectionDialogHelpButtonPropertyInfo, + colorSelectionDialogHelpButton , getColorSelectionDialogHelpButton , -- ** OkButton ColorSelectionDialogOkButtonPropertyInfo, + colorSelectionDialogOkButton , getColorSelectionDialogOkButton , @@ -53,9 +57,9 @@ ) where -import Prelude () 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 @@ -526,31 +530,34 @@ -- VVV Prop "cancel-button" -- Type: TInterface "Gtk" "Widget" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getColorSelectionDialogCancelButton :: (MonadIO m, ColorSelectionDialogK o) => o -> m Widget +getColorSelectionDialogCancelButton :: (MonadIO m, ColorSelectionDialogK o) => o -> m (Maybe Widget) getColorSelectionDialogCancelButton obj = liftIO $ getObjectPropertyObject obj "cancel-button" Widget data ColorSelectionDialogCancelButtonPropertyInfo instance AttrInfo ColorSelectionDialogCancelButtonPropertyInfo where - type AttrAllowedOps ColorSelectionDialogCancelButtonPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps ColorSelectionDialogCancelButtonPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ColorSelectionDialogCancelButtonPropertyInfo = (~) () type AttrBaseTypeConstraint ColorSelectionDialogCancelButtonPropertyInfo = ColorSelectionDialogK - type AttrGetType ColorSelectionDialogCancelButtonPropertyInfo = Widget + type AttrGetType ColorSelectionDialogCancelButtonPropertyInfo = (Maybe Widget) type AttrLabel ColorSelectionDialogCancelButtonPropertyInfo = "cancel-button" attrGet _ = getColorSelectionDialogCancelButton attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "color-selection" -- Type: TInterface "Gtk" "Widget" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getColorSelectionDialogColorSelection :: (MonadIO m, ColorSelectionDialogK o) => o -> m Widget -getColorSelectionDialogColorSelection obj = liftIO $ getObjectPropertyObject obj "color-selection" Widget +getColorSelectionDialogColorSelection obj = liftIO $ checkUnexpectedNothing "getColorSelectionDialogColorSelection" $ getObjectPropertyObject obj "color-selection" Widget data ColorSelectionDialogColorSelectionPropertyInfo instance AttrInfo ColorSelectionDialogColorSelectionPropertyInfo where - type AttrAllowedOps ColorSelectionDialogColorSelectionPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps ColorSelectionDialogColorSelectionPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ColorSelectionDialogColorSelectionPropertyInfo = (~) () type AttrBaseTypeConstraint ColorSelectionDialogColorSelectionPropertyInfo = ColorSelectionDialogK type AttrGetType ColorSelectionDialogColorSelectionPropertyInfo = Widget @@ -558,46 +565,63 @@ attrGet _ = getColorSelectionDialogColorSelection attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "help-button" -- Type: TInterface "Gtk" "Widget" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getColorSelectionDialogHelpButton :: (MonadIO m, ColorSelectionDialogK o) => o -> m Widget +getColorSelectionDialogHelpButton :: (MonadIO m, ColorSelectionDialogK o) => o -> m (Maybe Widget) getColorSelectionDialogHelpButton obj = liftIO $ getObjectPropertyObject obj "help-button" Widget data ColorSelectionDialogHelpButtonPropertyInfo instance AttrInfo ColorSelectionDialogHelpButtonPropertyInfo where - type AttrAllowedOps ColorSelectionDialogHelpButtonPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps ColorSelectionDialogHelpButtonPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ColorSelectionDialogHelpButtonPropertyInfo = (~) () type AttrBaseTypeConstraint ColorSelectionDialogHelpButtonPropertyInfo = ColorSelectionDialogK - type AttrGetType ColorSelectionDialogHelpButtonPropertyInfo = Widget + type AttrGetType ColorSelectionDialogHelpButtonPropertyInfo = (Maybe Widget) type AttrLabel ColorSelectionDialogHelpButtonPropertyInfo = "help-button" attrGet _ = getColorSelectionDialogHelpButton attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "ok-button" -- Type: TInterface "Gtk" "Widget" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getColorSelectionDialogOkButton :: (MonadIO m, ColorSelectionDialogK o) => o -> m Widget +getColorSelectionDialogOkButton :: (MonadIO m, ColorSelectionDialogK o) => o -> m (Maybe Widget) getColorSelectionDialogOkButton obj = liftIO $ getObjectPropertyObject obj "ok-button" Widget data ColorSelectionDialogOkButtonPropertyInfo instance AttrInfo ColorSelectionDialogOkButtonPropertyInfo where - type AttrAllowedOps ColorSelectionDialogOkButtonPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps ColorSelectionDialogOkButtonPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ColorSelectionDialogOkButtonPropertyInfo = (~) () type AttrBaseTypeConstraint ColorSelectionDialogOkButtonPropertyInfo = ColorSelectionDialogK - type AttrGetType ColorSelectionDialogOkButtonPropertyInfo = Widget + type AttrGetType ColorSelectionDialogOkButtonPropertyInfo = (Maybe Widget) type AttrLabel ColorSelectionDialogOkButtonPropertyInfo = "ok-button" attrGet _ = getColorSelectionDialogOkButton attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList ColorSelectionDialog = ColorSelectionDialogAttributeList type ColorSelectionDialogAttributeList = ('[ '("acceptFocus", WindowAcceptFocusPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attachedTo", WindowAttachedToPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("cancelButton", ColorSelectionDialogCancelButtonPropertyInfo), '("child", ContainerChildPropertyInfo), '("colorSelection", ColorSelectionDialogColorSelectionPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("defaultHeight", WindowDefaultHeightPropertyInfo), '("defaultWidth", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroyWithParent", WindowDestroyWithParentPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnMap", WindowFocusOnMapPropertyInfo), '("focusVisible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasResizeGrip", WindowHasResizeGripPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("hasToplevelFocus", WindowHasToplevelFocusPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("helpButton", ColorSelectionDialogHelpButtonPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hideTitlebarWhenMaximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("iconName", WindowIconNamePropertyInfo), '("isActive", WindowIsActivePropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isMaximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("mnemonicsVisible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("okButton", ColorSelectionDialogOkButtonPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resizeGripVisible", WindowResizeGripVisiblePropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skipPagerHint", WindowSkipPagerHintPropertyInfo), '("skipTaskbarHint", WindowSkipTaskbarHintPropertyInfo), '("startupId", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("transientFor", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("typeHint", WindowTypeHintPropertyInfo), '("urgencyHint", WindowUrgencyHintPropertyInfo), '("useHeaderBar", DialogUseHeaderBarPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("windowPosition", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) +colorSelectionDialogCancelButton :: AttrLabelProxy "cancelButton" +colorSelectionDialogCancelButton = AttrLabelProxy + +colorSelectionDialogColorSelection :: AttrLabelProxy "colorSelection" +colorSelectionDialogColorSelection = AttrLabelProxy + +colorSelectionDialogHelpButton :: AttrLabelProxy "helpButton" +colorSelectionDialogHelpButton = AttrLabelProxy + +colorSelectionDialogOkButton :: AttrLabelProxy "okButton" +colorSelectionDialogOkButton = AttrLabelProxy + type instance SignalList ColorSelectionDialog = ColorSelectionDialogSignalList type ColorSelectionDialogSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activateDefault", WindowActivateDefaultSignalInfo), '("activateFocus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("close", DialogCloseSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enableDebugging", WindowEnableDebuggingSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("keysChanged", WindowKeysChangedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("response", DialogResponseSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocus", WindowSetFocusSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -605,7 +629,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "ColorSelectionDialog" +-- returnType : Just (TInterface "Gtk" "ColorSelectionDialog") -- throws : False -- Skip return : False @@ -630,7 +654,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ColorSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/ColorSelectionDialog.hs-boot b/GI/Gtk/Objects/ColorSelectionDialog.hs-boot --- a/GI/Gtk/Objects/ColorSelectionDialog.hs-boot +++ b/GI/Gtk/Objects/ColorSelectionDialog.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.ColorSelectionDialog where -import Prelude () 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 diff --git a/GI/Gtk/Objects/ComboBox.hs b/GI/Gtk/Objects/ComboBox.hs --- a/GI/Gtk/Objects/ComboBox.hs +++ b/GI/Gtk/Objects/ComboBox.hs @@ -216,6 +216,7 @@ -- * Properties -- ** Active ComboBoxActivePropertyInfo , + comboBoxActive , constructComboBoxActive , getComboBoxActive , setComboBoxActive , @@ -223,6 +224,8 @@ -- ** ActiveId ComboBoxActiveIdPropertyInfo , + clearComboBoxActiveId , + comboBoxActiveId , constructComboBoxActiveId , getComboBoxActiveId , setComboBoxActiveId , @@ -230,6 +233,7 @@ -- ** AddTearoffs ComboBoxAddTearoffsPropertyInfo , + comboBoxAddTearoffs , constructComboBoxAddTearoffs , getComboBoxAddTearoffs , setComboBoxAddTearoffs , @@ -237,6 +241,7 @@ -- ** ButtonSensitivity ComboBoxButtonSensitivityPropertyInfo , + comboBoxButtonSensitivity , constructComboBoxButtonSensitivity , getComboBoxButtonSensitivity , setComboBoxButtonSensitivity , @@ -244,12 +249,14 @@ -- ** CellArea ComboBoxCellAreaPropertyInfo , + comboBoxCellArea , constructComboBoxCellArea , getComboBoxCellArea , -- ** ColumnSpanColumn ComboBoxColumnSpanColumnPropertyInfo , + comboBoxColumnSpanColumn , constructComboBoxColumnSpanColumn , getComboBoxColumnSpanColumn , setComboBoxColumnSpanColumn , @@ -257,6 +264,7 @@ -- ** EntryTextColumn ComboBoxEntryTextColumnPropertyInfo , + comboBoxEntryTextColumn , constructComboBoxEntryTextColumn , getComboBoxEntryTextColumn , setComboBoxEntryTextColumn , @@ -264,6 +272,7 @@ -- ** FocusOnClick ComboBoxFocusOnClickPropertyInfo , + comboBoxFocusOnClick , constructComboBoxFocusOnClick , getComboBoxFocusOnClick , setComboBoxFocusOnClick , @@ -271,12 +280,14 @@ -- ** HasEntry ComboBoxHasEntryPropertyInfo , + comboBoxHasEntry , constructComboBoxHasEntry , getComboBoxHasEntry , -- ** HasFrame ComboBoxHasFramePropertyInfo , + comboBoxHasFrame , constructComboBoxHasFrame , getComboBoxHasFrame , setComboBoxHasFrame , @@ -284,6 +295,7 @@ -- ** IdColumn ComboBoxIdColumnPropertyInfo , + comboBoxIdColumn , constructComboBoxIdColumn , getComboBoxIdColumn , setComboBoxIdColumn , @@ -291,6 +303,8 @@ -- ** Model ComboBoxModelPropertyInfo , + clearComboBoxModel , + comboBoxModel , constructComboBoxModel , getComboBoxModel , setComboBoxModel , @@ -298,6 +312,7 @@ -- ** PopupFixedWidth ComboBoxPopupFixedWidthPropertyInfo , + comboBoxPopupFixedWidth , constructComboBoxPopupFixedWidth , getComboBoxPopupFixedWidth , setComboBoxPopupFixedWidth , @@ -305,11 +320,13 @@ -- ** PopupShown ComboBoxPopupShownPropertyInfo , + comboBoxPopupShown , getComboBoxPopupShown , -- ** RowSpanColumn ComboBoxRowSpanColumnPropertyInfo , + comboBoxRowSpanColumn , constructComboBoxRowSpanColumn , getComboBoxRowSpanColumn , setComboBoxRowSpanColumn , @@ -317,6 +334,8 @@ -- ** TearoffTitle ComboBoxTearoffTitlePropertyInfo , + clearComboBoxTearoffTitle , + comboBoxTearoffTitle , constructComboBoxTearoffTitle , getComboBoxTearoffTitle , setComboBoxTearoffTitle , @@ -324,6 +343,7 @@ -- ** WrapWidth ComboBoxWrapWidthPropertyInfo , + comboBoxWrapWidth , constructComboBoxWrapWidth , getComboBoxWrapWidth , setComboBoxWrapWidth , @@ -396,9 +416,9 @@ ) where -import Prelude () 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 @@ -1003,17 +1023,18 @@ connectSignalFunPtr obj "popup" cb' after -- VVV Prop "active" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getComboBoxActive :: (MonadIO m, ComboBoxK o) => o -> m Int32 -getComboBoxActive obj = liftIO $ getObjectPropertyCInt obj "active" +getComboBoxActive obj = liftIO $ getObjectPropertyInt32 obj "active" setComboBoxActive :: (MonadIO m, ComboBoxK o) => o -> Int32 -> m () -setComboBoxActive obj val = liftIO $ setObjectPropertyCInt obj "active" val +setComboBoxActive obj val = liftIO $ setObjectPropertyInt32 obj "active" val constructComboBoxActive :: Int32 -> IO ([Char], GValue) -constructComboBoxActive val = constructObjectPropertyCInt "active" val +constructComboBoxActive val = constructObjectPropertyInt32 "active" val data ComboBoxActivePropertyInfo instance AttrInfo ComboBoxActivePropertyInfo where @@ -1025,34 +1046,41 @@ attrGet _ = getComboBoxActive attrSet _ = setComboBoxActive attrConstruct _ = constructComboBoxActive + attrClear _ = undefined -- VVV Prop "active-id" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just True,Nothing) -getComboBoxActiveId :: (MonadIO m, ComboBoxK o) => o -> m T.Text +getComboBoxActiveId :: (MonadIO m, ComboBoxK o) => o -> m (Maybe T.Text) getComboBoxActiveId obj = liftIO $ getObjectPropertyString obj "active-id" setComboBoxActiveId :: (MonadIO m, ComboBoxK o) => o -> T.Text -> m () -setComboBoxActiveId obj val = liftIO $ setObjectPropertyString obj "active-id" val +setComboBoxActiveId obj val = liftIO $ setObjectPropertyString obj "active-id" (Just val) constructComboBoxActiveId :: T.Text -> IO ([Char], GValue) -constructComboBoxActiveId val = constructObjectPropertyString "active-id" val +constructComboBoxActiveId val = constructObjectPropertyString "active-id" (Just val) +clearComboBoxActiveId :: (MonadIO m, ComboBoxK o) => o -> m () +clearComboBoxActiveId obj = liftIO $ setObjectPropertyString obj "active-id" (Nothing :: Maybe T.Text) + data ComboBoxActiveIdPropertyInfo instance AttrInfo ComboBoxActiveIdPropertyInfo where - type AttrAllowedOps ComboBoxActiveIdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps ComboBoxActiveIdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ComboBoxActiveIdPropertyInfo = (~) T.Text type AttrBaseTypeConstraint ComboBoxActiveIdPropertyInfo = ComboBoxK - type AttrGetType ComboBoxActiveIdPropertyInfo = T.Text + type AttrGetType ComboBoxActiveIdPropertyInfo = (Maybe T.Text) type AttrLabel ComboBoxActiveIdPropertyInfo = "active-id" attrGet _ = getComboBoxActiveId attrSet _ = setComboBoxActiveId attrConstruct _ = constructComboBoxActiveId + attrClear _ = clearComboBoxActiveId -- VVV Prop "add-tearoffs" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getComboBoxAddTearoffs :: (MonadIO m, ComboBoxK o) => o -> m Bool getComboBoxAddTearoffs obj = liftIO $ getObjectPropertyBool obj "add-tearoffs" @@ -1073,10 +1101,12 @@ attrGet _ = getComboBoxAddTearoffs attrSet _ = setComboBoxAddTearoffs attrConstruct _ = constructComboBoxAddTearoffs + attrClear _ = undefined -- VVV Prop "button-sensitivity" -- Type: TInterface "Gtk" "SensitivityType" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getComboBoxButtonSensitivity :: (MonadIO m, ComboBoxK o) => o -> m SensitivityType getComboBoxButtonSensitivity obj = liftIO $ getObjectPropertyEnum obj "button-sensitivity" @@ -1097,40 +1127,44 @@ attrGet _ = getComboBoxButtonSensitivity attrSet _ = setComboBoxButtonSensitivity attrConstruct _ = constructComboBoxButtonSensitivity + attrClear _ = undefined -- VVV Prop "cell-area" -- Type: TInterface "Gtk" "CellArea" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + -- Nullable: (Nothing,Nothing) -getComboBoxCellArea :: (MonadIO m, ComboBoxK o) => o -> m CellArea +getComboBoxCellArea :: (MonadIO m, ComboBoxK o) => o -> m (Maybe CellArea) getComboBoxCellArea obj = liftIO $ getObjectPropertyObject obj "cell-area" CellArea constructComboBoxCellArea :: (CellAreaK a) => a -> IO ([Char], GValue) -constructComboBoxCellArea val = constructObjectPropertyObject "cell-area" val +constructComboBoxCellArea val = constructObjectPropertyObject "cell-area" (Just val) data ComboBoxCellAreaPropertyInfo instance AttrInfo ComboBoxCellAreaPropertyInfo where - type AttrAllowedOps ComboBoxCellAreaPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrAllowedOps ComboBoxCellAreaPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ComboBoxCellAreaPropertyInfo = CellAreaK type AttrBaseTypeConstraint ComboBoxCellAreaPropertyInfo = ComboBoxK - type AttrGetType ComboBoxCellAreaPropertyInfo = CellArea + type AttrGetType ComboBoxCellAreaPropertyInfo = (Maybe CellArea) type AttrLabel ComboBoxCellAreaPropertyInfo = "cell-area" attrGet _ = getComboBoxCellArea attrSet _ = undefined attrConstruct _ = constructComboBoxCellArea + attrClear _ = undefined -- VVV Prop "column-span-column" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getComboBoxColumnSpanColumn :: (MonadIO m, ComboBoxK o) => o -> m Int32 -getComboBoxColumnSpanColumn obj = liftIO $ getObjectPropertyCInt obj "column-span-column" +getComboBoxColumnSpanColumn obj = liftIO $ getObjectPropertyInt32 obj "column-span-column" setComboBoxColumnSpanColumn :: (MonadIO m, ComboBoxK o) => o -> Int32 -> m () -setComboBoxColumnSpanColumn obj val = liftIO $ setObjectPropertyCInt obj "column-span-column" val +setComboBoxColumnSpanColumn obj val = liftIO $ setObjectPropertyInt32 obj "column-span-column" val constructComboBoxColumnSpanColumn :: Int32 -> IO ([Char], GValue) -constructComboBoxColumnSpanColumn val = constructObjectPropertyCInt "column-span-column" val +constructComboBoxColumnSpanColumn val = constructObjectPropertyInt32 "column-span-column" val data ComboBoxColumnSpanColumnPropertyInfo instance AttrInfo ComboBoxColumnSpanColumnPropertyInfo where @@ -1142,19 +1176,21 @@ attrGet _ = getComboBoxColumnSpanColumn attrSet _ = setComboBoxColumnSpanColumn attrConstruct _ = constructComboBoxColumnSpanColumn + attrClear _ = undefined -- VVV Prop "entry-text-column" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getComboBoxEntryTextColumn :: (MonadIO m, ComboBoxK o) => o -> m Int32 -getComboBoxEntryTextColumn obj = liftIO $ getObjectPropertyCInt obj "entry-text-column" +getComboBoxEntryTextColumn obj = liftIO $ getObjectPropertyInt32 obj "entry-text-column" setComboBoxEntryTextColumn :: (MonadIO m, ComboBoxK o) => o -> Int32 -> m () -setComboBoxEntryTextColumn obj val = liftIO $ setObjectPropertyCInt obj "entry-text-column" val +setComboBoxEntryTextColumn obj val = liftIO $ setObjectPropertyInt32 obj "entry-text-column" val constructComboBoxEntryTextColumn :: Int32 -> IO ([Char], GValue) -constructComboBoxEntryTextColumn val = constructObjectPropertyCInt "entry-text-column" val +constructComboBoxEntryTextColumn val = constructObjectPropertyInt32 "entry-text-column" val data ComboBoxEntryTextColumnPropertyInfo instance AttrInfo ComboBoxEntryTextColumnPropertyInfo where @@ -1166,10 +1202,12 @@ attrGet _ = getComboBoxEntryTextColumn attrSet _ = setComboBoxEntryTextColumn attrConstruct _ = constructComboBoxEntryTextColumn + attrClear _ = undefined -- VVV Prop "focus-on-click" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getComboBoxFocusOnClick :: (MonadIO m, ComboBoxK o) => o -> m Bool getComboBoxFocusOnClick obj = liftIO $ getObjectPropertyBool obj "focus-on-click" @@ -1190,10 +1228,12 @@ attrGet _ = getComboBoxFocusOnClick attrSet _ = setComboBoxFocusOnClick attrConstruct _ = constructComboBoxFocusOnClick + attrClear _ = undefined -- VVV Prop "has-entry" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + -- Nullable: (Just False,Nothing) getComboBoxHasEntry :: (MonadIO m, ComboBoxK o) => o -> m Bool getComboBoxHasEntry obj = liftIO $ getObjectPropertyBool obj "has-entry" @@ -1211,10 +1251,12 @@ attrGet _ = getComboBoxHasEntry attrSet _ = undefined attrConstruct _ = constructComboBoxHasEntry + attrClear _ = undefined -- VVV Prop "has-frame" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getComboBoxHasFrame :: (MonadIO m, ComboBoxK o) => o -> m Bool getComboBoxHasFrame obj = liftIO $ getObjectPropertyBool obj "has-frame" @@ -1235,19 +1277,21 @@ attrGet _ = getComboBoxHasFrame attrSet _ = setComboBoxHasFrame attrConstruct _ = constructComboBoxHasFrame + attrClear _ = undefined -- VVV Prop "id-column" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getComboBoxIdColumn :: (MonadIO m, ComboBoxK o) => o -> m Int32 -getComboBoxIdColumn obj = liftIO $ getObjectPropertyCInt obj "id-column" +getComboBoxIdColumn obj = liftIO $ getObjectPropertyInt32 obj "id-column" setComboBoxIdColumn :: (MonadIO m, ComboBoxK o) => o -> Int32 -> m () -setComboBoxIdColumn obj val = liftIO $ setObjectPropertyCInt obj "id-column" val +setComboBoxIdColumn obj val = liftIO $ setObjectPropertyInt32 obj "id-column" val constructComboBoxIdColumn :: Int32 -> IO ([Char], GValue) -constructComboBoxIdColumn val = constructObjectPropertyCInt "id-column" val +constructComboBoxIdColumn val = constructObjectPropertyInt32 "id-column" val data ComboBoxIdColumnPropertyInfo instance AttrInfo ComboBoxIdColumnPropertyInfo where @@ -1259,23 +1303,28 @@ attrGet _ = getComboBoxIdColumn attrSet _ = setComboBoxIdColumn attrConstruct _ = constructComboBoxIdColumn + attrClear _ = undefined -- VVV Prop "model" -- Type: TInterface "Gtk" "TreeModel" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) getComboBoxModel :: (MonadIO m, ComboBoxK o) => o -> m TreeModel -getComboBoxModel obj = liftIO $ getObjectPropertyObject obj "model" TreeModel +getComboBoxModel obj = liftIO $ checkUnexpectedNothing "getComboBoxModel" $ getObjectPropertyObject obj "model" TreeModel setComboBoxModel :: (MonadIO m, ComboBoxK o, TreeModelK a) => o -> a -> m () -setComboBoxModel obj val = liftIO $ setObjectPropertyObject obj "model" val +setComboBoxModel obj val = liftIO $ setObjectPropertyObject obj "model" (Just val) constructComboBoxModel :: (TreeModelK a) => a -> IO ([Char], GValue) -constructComboBoxModel val = constructObjectPropertyObject "model" val +constructComboBoxModel val = constructObjectPropertyObject "model" (Just val) +clearComboBoxModel :: (MonadIO m, ComboBoxK o) => o -> m () +clearComboBoxModel obj = liftIO $ setObjectPropertyObject obj "model" (Nothing :: Maybe TreeModel) + data ComboBoxModelPropertyInfo instance AttrInfo ComboBoxModelPropertyInfo where - type AttrAllowedOps ComboBoxModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps ComboBoxModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ComboBoxModelPropertyInfo = TreeModelK type AttrBaseTypeConstraint ComboBoxModelPropertyInfo = ComboBoxK type AttrGetType ComboBoxModelPropertyInfo = TreeModel @@ -1283,10 +1332,12 @@ attrGet _ = getComboBoxModel attrSet _ = setComboBoxModel attrConstruct _ = constructComboBoxModel + attrClear _ = clearComboBoxModel -- VVV Prop "popup-fixed-width" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getComboBoxPopupFixedWidth :: (MonadIO m, ComboBoxK o) => o -> m Bool getComboBoxPopupFixedWidth obj = liftIO $ getObjectPropertyBool obj "popup-fixed-width" @@ -1307,10 +1358,12 @@ attrGet _ = getComboBoxPopupFixedWidth attrSet _ = setComboBoxPopupFixedWidth attrConstruct _ = constructComboBoxPopupFixedWidth + attrClear _ = undefined -- VVV Prop "popup-shown" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) getComboBoxPopupShown :: (MonadIO m, ComboBoxK o) => o -> m Bool getComboBoxPopupShown obj = liftIO $ getObjectPropertyBool obj "popup-shown" @@ -1325,19 +1378,21 @@ attrGet _ = getComboBoxPopupShown attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "row-span-column" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getComboBoxRowSpanColumn :: (MonadIO m, ComboBoxK o) => o -> m Int32 -getComboBoxRowSpanColumn obj = liftIO $ getObjectPropertyCInt obj "row-span-column" +getComboBoxRowSpanColumn obj = liftIO $ getObjectPropertyInt32 obj "row-span-column" setComboBoxRowSpanColumn :: (MonadIO m, ComboBoxK o) => o -> Int32 -> m () -setComboBoxRowSpanColumn obj val = liftIO $ setObjectPropertyCInt obj "row-span-column" val +setComboBoxRowSpanColumn obj val = liftIO $ setObjectPropertyInt32 obj "row-span-column" val constructComboBoxRowSpanColumn :: Int32 -> IO ([Char], GValue) -constructComboBoxRowSpanColumn val = constructObjectPropertyCInt "row-span-column" val +constructComboBoxRowSpanColumn val = constructObjectPropertyInt32 "row-span-column" val data ComboBoxRowSpanColumnPropertyInfo instance AttrInfo ComboBoxRowSpanColumnPropertyInfo where @@ -1349,43 +1404,50 @@ attrGet _ = getComboBoxRowSpanColumn attrSet _ = setComboBoxRowSpanColumn attrConstruct _ = constructComboBoxRowSpanColumn + attrClear _ = undefined -- VVV Prop "tearoff-title" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getComboBoxTearoffTitle :: (MonadIO m, ComboBoxK o) => o -> m T.Text +getComboBoxTearoffTitle :: (MonadIO m, ComboBoxK o) => o -> m (Maybe T.Text) getComboBoxTearoffTitle obj = liftIO $ getObjectPropertyString obj "tearoff-title" setComboBoxTearoffTitle :: (MonadIO m, ComboBoxK o) => o -> T.Text -> m () -setComboBoxTearoffTitle obj val = liftIO $ setObjectPropertyString obj "tearoff-title" val +setComboBoxTearoffTitle obj val = liftIO $ setObjectPropertyString obj "tearoff-title" (Just val) constructComboBoxTearoffTitle :: T.Text -> IO ([Char], GValue) -constructComboBoxTearoffTitle val = constructObjectPropertyString "tearoff-title" val +constructComboBoxTearoffTitle val = constructObjectPropertyString "tearoff-title" (Just val) +clearComboBoxTearoffTitle :: (MonadIO m, ComboBoxK o) => o -> m () +clearComboBoxTearoffTitle obj = liftIO $ setObjectPropertyString obj "tearoff-title" (Nothing :: Maybe T.Text) + data ComboBoxTearoffTitlePropertyInfo instance AttrInfo ComboBoxTearoffTitlePropertyInfo where - type AttrAllowedOps ComboBoxTearoffTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps ComboBoxTearoffTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ComboBoxTearoffTitlePropertyInfo = (~) T.Text type AttrBaseTypeConstraint ComboBoxTearoffTitlePropertyInfo = ComboBoxK - type AttrGetType ComboBoxTearoffTitlePropertyInfo = T.Text + type AttrGetType ComboBoxTearoffTitlePropertyInfo = (Maybe T.Text) type AttrLabel ComboBoxTearoffTitlePropertyInfo = "tearoff-title" attrGet _ = getComboBoxTearoffTitle attrSet _ = setComboBoxTearoffTitle attrConstruct _ = constructComboBoxTearoffTitle + attrClear _ = clearComboBoxTearoffTitle -- VVV Prop "wrap-width" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getComboBoxWrapWidth :: (MonadIO m, ComboBoxK o) => o -> m Int32 -getComboBoxWrapWidth obj = liftIO $ getObjectPropertyCInt obj "wrap-width" +getComboBoxWrapWidth obj = liftIO $ getObjectPropertyInt32 obj "wrap-width" setComboBoxWrapWidth :: (MonadIO m, ComboBoxK o) => o -> Int32 -> m () -setComboBoxWrapWidth obj val = liftIO $ setObjectPropertyCInt obj "wrap-width" val +setComboBoxWrapWidth obj val = liftIO $ setObjectPropertyInt32 obj "wrap-width" val constructComboBoxWrapWidth :: Int32 -> IO ([Char], GValue) -constructComboBoxWrapWidth val = constructObjectPropertyCInt "wrap-width" val +constructComboBoxWrapWidth val = constructObjectPropertyInt32 "wrap-width" val data ComboBoxWrapWidthPropertyInfo instance AttrInfo ComboBoxWrapWidthPropertyInfo where @@ -1397,10 +1459,62 @@ attrGet _ = getComboBoxWrapWidth attrSet _ = setComboBoxWrapWidth attrConstruct _ = constructComboBoxWrapWidth + attrClear _ = undefined type instance AttributeList ComboBox = ComboBoxAttributeList type ComboBoxAttributeList = ('[ '("active", ComboBoxActivePropertyInfo), '("activeId", ComboBoxActiveIdPropertyInfo), '("addTearoffs", ComboBoxAddTearoffsPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("buttonSensitivity", ComboBoxButtonSensitivityPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("cellArea", ComboBoxCellAreaPropertyInfo), '("child", ContainerChildPropertyInfo), '("columnSpanColumn", ComboBoxColumnSpanColumnPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("editingCanceled", CellEditableEditingCanceledPropertyInfo), '("entryTextColumn", ComboBoxEntryTextColumnPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnClick", ComboBoxFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasEntry", ComboBoxHasEntryPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasFrame", ComboBoxHasFramePropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("idColumn", ComboBoxIdColumnPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("model", ComboBoxModelPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("popupFixedWidth", ComboBoxPopupFixedWidthPropertyInfo), '("popupShown", ComboBoxPopupShownPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rowSpanColumn", ComboBoxRowSpanColumnPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tearoffTitle", ComboBoxTearoffTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("wrapWidth", ComboBoxWrapWidthPropertyInfo)] :: [(Symbol, *)]) +comboBoxActive :: AttrLabelProxy "active" +comboBoxActive = AttrLabelProxy + +comboBoxActiveId :: AttrLabelProxy "activeId" +comboBoxActiveId = AttrLabelProxy + +comboBoxAddTearoffs :: AttrLabelProxy "addTearoffs" +comboBoxAddTearoffs = AttrLabelProxy + +comboBoxButtonSensitivity :: AttrLabelProxy "buttonSensitivity" +comboBoxButtonSensitivity = AttrLabelProxy + +comboBoxCellArea :: AttrLabelProxy "cellArea" +comboBoxCellArea = AttrLabelProxy + +comboBoxColumnSpanColumn :: AttrLabelProxy "columnSpanColumn" +comboBoxColumnSpanColumn = AttrLabelProxy + +comboBoxEntryTextColumn :: AttrLabelProxy "entryTextColumn" +comboBoxEntryTextColumn = AttrLabelProxy + +comboBoxFocusOnClick :: AttrLabelProxy "focusOnClick" +comboBoxFocusOnClick = AttrLabelProxy + +comboBoxHasEntry :: AttrLabelProxy "hasEntry" +comboBoxHasEntry = AttrLabelProxy + +comboBoxHasFrame :: AttrLabelProxy "hasFrame" +comboBoxHasFrame = AttrLabelProxy + +comboBoxIdColumn :: AttrLabelProxy "idColumn" +comboBoxIdColumn = AttrLabelProxy + +comboBoxModel :: AttrLabelProxy "model" +comboBoxModel = AttrLabelProxy + +comboBoxPopupFixedWidth :: AttrLabelProxy "popupFixedWidth" +comboBoxPopupFixedWidth = AttrLabelProxy + +comboBoxPopupShown :: AttrLabelProxy "popupShown" +comboBoxPopupShown = AttrLabelProxy + +comboBoxRowSpanColumn :: AttrLabelProxy "rowSpanColumn" +comboBoxRowSpanColumn = AttrLabelProxy + +comboBoxTearoffTitle :: AttrLabelProxy "tearoffTitle" +comboBoxTearoffTitle = AttrLabelProxy + +comboBoxWrapWidth :: AttrLabelProxy "wrapWidth" +comboBoxWrapWidth = AttrLabelProxy + data ComboBoxChangedSignalInfo instance SignalInfo ComboBoxChangedSignalInfo where type HaskellCallbackType ComboBoxChangedSignalInfo = ComboBoxChangedCallback @@ -1433,7 +1547,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "ComboBox" +-- returnType : Just (TInterface "Gtk" "ComboBox") -- throws : False -- Skip return : False @@ -1454,7 +1568,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "area", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "ComboBox" +-- returnType : Just (TInterface "Gtk" "ComboBox") -- throws : False -- Skip return : False @@ -1479,7 +1593,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "area", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "ComboBox" +-- returnType : Just (TInterface "Gtk" "ComboBox") -- throws : False -- Skip return : False @@ -1504,7 +1618,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "ComboBox" +-- returnType : Just (TInterface "Gtk" "ComboBox") -- throws : False -- Skip return : False @@ -1525,7 +1639,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "ComboBox" +-- returnType : Just (TInterface "Gtk" "ComboBox") -- throws : False -- Skip return : False @@ -1550,7 +1664,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "ComboBox" +-- returnType : Just (TInterface "Gtk" "ComboBox") -- throws : False -- Skip return : False @@ -1575,7 +1689,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1602,7 +1716,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1614,24 +1728,25 @@ comboBoxGetActiveId :: (MonadIO m, ComboBoxK a) => a -- _obj - -> m T.Text -- result + -> m (Maybe T.Text) -- result comboBoxGetActiveId _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_combo_box_get_active_id _obj' - checkUnexpectedReturnNULL "gtk_combo_box_get_active_id" result - result' <- cstringToText result + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- cstringToText result' + return result'' touchManagedPtr _obj - return result' + return maybeResult data ComboBoxGetActiveIdMethodInfo -instance (signature ~ (m T.Text), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxGetActiveIdMethodInfo a signature where +instance (signature ~ (m (Maybe T.Text)), MonadIO m, ComboBoxK a) => MethodInfo ComboBoxGetActiveIdMethodInfo a signature where overloadedMethod _ = comboBoxGetActiveId -- method ComboBox::get_active_iter -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1662,7 +1777,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1690,7 +1805,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "SensitivityType" +-- returnType : Just (TInterface "Gtk" "SensitivityType") -- throws : False -- Skip return : False @@ -1718,7 +1833,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1745,7 +1860,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1772,7 +1887,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1800,7 +1915,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1828,7 +1943,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1855,7 +1970,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "TreeModel" +-- returnType : Just (TInterface "Gtk" "TreeModel") -- throws : False -- Skip return : False @@ -1884,7 +1999,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Atk" "Object" +-- returnType : Just (TInterface "Atk" "Object") -- throws : False -- Skip return : False @@ -1913,7 +2028,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1941,7 +2056,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1968,7 +2083,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1997,7 +2112,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -2024,7 +2139,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2051,7 +2166,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2078,7 +2193,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2107,26 +2222,26 @@ -- method ComboBox::set_active -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_combo_box_set_active" gtk_combo_box_set_active :: Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox" - Int32 -> -- index_ : TBasicType TInt32 + Int32 -> -- index_ : TBasicType TInt IO () comboBoxSetActive :: (MonadIO m, ComboBoxK a) => a -- _obj - -> Int32 -- index + -> Int32 -- index_ -> m () -- result -comboBoxSetActive _obj index = liftIO $ do +comboBoxSetActive _obj index_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - gtk_combo_box_set_active _obj' index + gtk_combo_box_set_active _obj' index_ touchManagedPtr _obj return () @@ -2138,7 +2253,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "active_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2174,7 +2289,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2209,7 +2324,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "add_tearoffs", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2239,7 +2354,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sensitivity", argType = TInterface "Gtk" "SensitivityType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2267,15 +2382,15 @@ -- method ComboBox::set_column_span_column -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column_span", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column_span", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_combo_box_set_column_span_column" gtk_combo_box_set_column_span_column :: Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox" - Int32 -> -- column_span : TBasicType TInt32 + Int32 -> -- column_span : TBasicType TInt IO () @@ -2296,15 +2411,15 @@ -- method ComboBox::set_entry_text_column -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text_column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text_column", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_combo_box_set_entry_text_column" gtk_combo_box_set_entry_text_column :: Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox" - Int32 -> -- text_column : TBasicType TInt32 + Int32 -> -- text_column : TBasicType TInt IO () @@ -2327,7 +2442,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "focus_on_click", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2355,15 +2470,15 @@ -- method ComboBox::set_id_column -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "id_column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "id_column", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_combo_box_set_id_column" gtk_combo_box_set_id_column :: Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox" - Int32 -> -- id_column : TBasicType TInt32 + Int32 -> -- id_column : TBasicType TInt IO () @@ -2386,7 +2501,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2421,7 +2536,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fixed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2449,16 +2564,16 @@ -- method ComboBox::set_row_separator_func -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TreeViewRowSeparatorFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TreeViewRowSeparatorFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_combo_box_set_row_separator_func" gtk_combo_box_set_row_separator_func :: Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox" FunPtr TreeViewRowSeparatorFuncC -> -- func : TInterface "Gtk" "TreeViewRowSeparatorFunc" - Ptr () -> -- data : TBasicType TVoid + Ptr () -> -- data : TBasicType TPtr FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" IO () @@ -2483,15 +2598,15 @@ -- method ComboBox::set_row_span_column -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row_span", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row_span", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_combo_box_set_row_span_column" gtk_combo_box_set_row_span_column :: Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox" - Int32 -> -- row_span : TBasicType TInt32 + Int32 -> -- row_span : TBasicType TInt IO () @@ -2514,7 +2629,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2543,15 +2658,15 @@ -- method ComboBox::set_wrap_width -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBox", 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}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_combo_box_set_wrap_width" gtk_combo_box_set_wrap_width :: Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox" - Int32 -> -- width : TBasicType TInt32 + Int32 -> -- width : TBasicType TInt IO () diff --git a/GI/Gtk/Objects/ComboBox.hs-boot b/GI/Gtk/Objects/ComboBox.hs-boot --- a/GI/Gtk/Objects/ComboBox.hs-boot +++ b/GI/Gtk/Objects/ComboBox.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.ComboBox where -import Prelude () 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 diff --git a/GI/Gtk/Objects/ComboBoxAccessible.hs b/GI/Gtk/Objects/ComboBoxAccessible.hs --- a/GI/Gtk/Objects/ComboBoxAccessible.hs +++ b/GI/Gtk/Objects/ComboBoxAccessible.hs @@ -18,9 +18,9 @@ ) where -import Prelude () 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 diff --git a/GI/Gtk/Objects/ComboBoxAccessible.hs-boot b/GI/Gtk/Objects/ComboBoxAccessible.hs-boot --- a/GI/Gtk/Objects/ComboBoxAccessible.hs-boot +++ b/GI/Gtk/Objects/ComboBoxAccessible.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.ComboBoxAccessible where -import Prelude () 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 diff --git a/GI/Gtk/Objects/ComboBoxText.hs b/GI/Gtk/Objects/ComboBoxText.hs --- a/GI/Gtk/Objects/ComboBoxText.hs +++ b/GI/Gtk/Objects/ComboBoxText.hs @@ -74,9 +74,9 @@ ) where -import Prelude () 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 @@ -493,7 +493,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "ComboBoxText" +-- returnType : Just (TInterface "Gtk" "ComboBoxText") -- throws : False -- Skip return : False @@ -514,7 +514,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "ComboBoxText" +-- returnType : Just (TInterface "Gtk" "ComboBoxText") -- throws : False -- Skip return : False @@ -535,7 +535,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -574,7 +574,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -605,7 +605,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -633,15 +633,15 @@ -- method ComboBoxText::insert -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_combo_box_text_insert" gtk_combo_box_text_insert :: Ptr ComboBoxText -> -- _obj : TInterface "Gtk" "ComboBoxText" - Int32 -> -- position : TBasicType TInt32 + Int32 -> -- position : TBasicType TInt CString -> -- id : TBasicType TUTF8 CString -> -- text : TBasicType TUTF8 IO () @@ -674,15 +674,15 @@ -- method ComboBoxText::insert_text -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_combo_box_text_insert_text" gtk_combo_box_text_insert_text :: Ptr ComboBoxText -> -- _obj : TInterface "Gtk" "ComboBoxText" - Int32 -> -- position : TBasicType TInt32 + Int32 -> -- position : TBasicType TInt CString -> -- text : TBasicType TUTF8 IO () @@ -709,7 +709,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -748,7 +748,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -777,15 +777,15 @@ -- method ComboBoxText::remove -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_combo_box_text_remove" gtk_combo_box_text_remove :: Ptr ComboBoxText -> -- _obj : TInterface "Gtk" "ComboBoxText" - Int32 -> -- position : TBasicType TInt32 + Int32 -> -- position : TBasicType TInt IO () @@ -808,7 +808,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/ComboBoxText.hs-boot b/GI/Gtk/Objects/ComboBoxText.hs-boot --- a/GI/Gtk/Objects/ComboBoxText.hs-boot +++ b/GI/Gtk/Objects/ComboBoxText.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.ComboBoxText where -import Prelude () 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 diff --git a/GI/Gtk/Objects/Container.hs b/GI/Gtk/Objects/Container.hs --- a/GI/Gtk/Objects/Container.hs +++ b/GI/Gtk/Objects/Container.hs @@ -163,19 +163,23 @@ -- ** BorderWidth ContainerBorderWidthPropertyInfo , constructContainerBorderWidth , + containerBorderWidth , getContainerBorderWidth , setContainerBorderWidth , -- ** Child ContainerChildPropertyInfo , + clearContainerChild , constructContainerChild , + containerChild , setContainerChild , -- ** ResizeMode ContainerResizeModePropertyInfo , constructContainerResizeMode , + containerResizeMode , getContainerResizeMode , setContainerResizeMode , @@ -235,9 +239,9 @@ ) where -import Prelude () 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 @@ -756,17 +760,18 @@ connectSignalFunPtr obj "set-focus-child" cb' after -- VVV Prop "border-width" - -- Type: TBasicType TUInt32 + -- Type: TBasicType TUInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getContainerBorderWidth :: (MonadIO m, ContainerK o) => o -> m Word32 -getContainerBorderWidth obj = liftIO $ getObjectPropertyCUInt obj "border-width" +getContainerBorderWidth obj = liftIO $ getObjectPropertyUInt32 obj "border-width" setContainerBorderWidth :: (MonadIO m, ContainerK o) => o -> Word32 -> m () -setContainerBorderWidth obj val = liftIO $ setObjectPropertyCUInt obj "border-width" val +setContainerBorderWidth obj val = liftIO $ setObjectPropertyUInt32 obj "border-width" val constructContainerBorderWidth :: Word32 -> IO ([Char], GValue) -constructContainerBorderWidth val = constructObjectPropertyCUInt "border-width" val +constructContainerBorderWidth val = constructObjectPropertyUInt32 "border-width" val data ContainerBorderWidthPropertyInfo instance AttrInfo ContainerBorderWidthPropertyInfo where @@ -778,20 +783,25 @@ attrGet _ = getContainerBorderWidth attrSet _ = setContainerBorderWidth attrConstruct _ = constructContainerBorderWidth + attrClear _ = undefined -- VVV Prop "child" -- Type: TInterface "Gtk" "Widget" -- Flags: [PropertyWritable] + -- Nullable: (Nothing,Nothing) setContainerChild :: (MonadIO m, ContainerK o, WidgetK a) => o -> a -> m () -setContainerChild obj val = liftIO $ setObjectPropertyObject obj "child" val +setContainerChild obj val = liftIO $ setObjectPropertyObject obj "child" (Just val) constructContainerChild :: (WidgetK a) => a -> IO ([Char], GValue) -constructContainerChild val = constructObjectPropertyObject "child" val +constructContainerChild val = constructObjectPropertyObject "child" (Just val) +clearContainerChild :: (MonadIO m, ContainerK o) => o -> m () +clearContainerChild obj = liftIO $ setObjectPropertyObject obj "child" (Nothing :: Maybe Widget) + data ContainerChildPropertyInfo instance AttrInfo ContainerChildPropertyInfo where - type AttrAllowedOps ContainerChildPropertyInfo = '[ 'AttrSet, 'AttrConstruct] + type AttrAllowedOps ContainerChildPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear] type AttrSetTypeConstraint ContainerChildPropertyInfo = WidgetK type AttrBaseTypeConstraint ContainerChildPropertyInfo = ContainerK type AttrGetType ContainerChildPropertyInfo = () @@ -799,10 +809,12 @@ attrGet _ = undefined attrSet _ = setContainerChild attrConstruct _ = constructContainerChild + attrClear _ = clearContainerChild -- VVV Prop "resize-mode" -- Type: TInterface "Gtk" "ResizeMode" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getContainerResizeMode :: (MonadIO m, ContainerK o) => o -> m ResizeMode getContainerResizeMode obj = liftIO $ getObjectPropertyEnum obj "resize-mode" @@ -823,10 +835,20 @@ attrGet _ = getContainerResizeMode attrSet _ = setContainerResizeMode attrConstruct _ = constructContainerResizeMode + attrClear _ = undefined type instance AttributeList Container = ContainerAttributeList type ContainerAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +containerBorderWidth :: AttrLabelProxy "borderWidth" +containerBorderWidth = AttrLabelProxy + +containerChild :: AttrLabelProxy "child" +containerChild = AttrLabelProxy + +containerResizeMode :: AttrLabelProxy "resizeMode" +containerResizeMode = AttrLabelProxy + data ContainerAddSignalInfo instance SignalInfo ContainerAddSignalInfo where type HaskellCallbackType ContainerAddSignalInfo = ContainerAddCallback @@ -854,7 +876,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -885,7 +907,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -912,7 +934,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property_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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -951,7 +973,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child_property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -986,7 +1008,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1020,7 +1042,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property_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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1059,7 +1081,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TGType +-- returnType : Just (TBasicType TGType) -- throws : False -- Skip return : False @@ -1085,16 +1107,16 @@ -- method Container::forall -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gtk" "Callback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gtk" "Callback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_container_forall" gtk_container_forall :: Ptr Container -> -- _obj : TInterface "Gtk" "Container" FunPtr CallbackC -> -- callback : TInterface "Gtk" "Callback" - Ptr () -> -- callback_data : TBasicType TVoid + Ptr () -> -- callback_data : TBasicType TPtr IO () @@ -1118,16 +1140,16 @@ -- method Container::foreach -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gtk" "Callback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gtk" "Callback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_container_foreach" gtk_container_foreach :: Ptr Container -> -- _obj : TInterface "Gtk" "Container" FunPtr CallbackC -> -- callback : TInterface "Gtk" "Callback" - Ptr () -> -- callback_data : TBasicType TVoid + Ptr () -> -- callback_data : TBasicType TPtr IO () @@ -1153,7 +1175,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt32 +-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -1180,7 +1202,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TGList (TInterface "Gtk" "Widget") +-- returnType : Just (TGList (TInterface "Gtk" "Widget")) -- throws : False -- Skip return : False @@ -1196,7 +1218,6 @@ containerGetChildren _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_container_get_children _obj' - checkUnexpectedReturnNULL "gtk_container_get_children" result result' <- unpackGList result result'' <- mapM (newObject Widget) result' g_list_free result @@ -1211,7 +1232,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "focusable_widgets", argType = TGList (TInterface "Gtk" "Widget"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferContainer}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1246,7 +1267,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -1275,7 +1296,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Adjustment" +-- returnType : Just (TInterface "Gtk" "Adjustment") -- throws : False -- Skip return : False @@ -1304,7 +1325,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Adjustment" +-- returnType : Just (TInterface "Gtk" "Adjustment") -- throws : False -- Skip return : False @@ -1333,7 +1354,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "WidgetPath" +-- returnType : Just (TInterface "Gtk" "WidgetPath") -- throws : False -- Skip return : False @@ -1366,7 +1387,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "ResizeMode" +-- returnType : Just (TInterface "Gtk" "ResizeMode") -- throws : False -- Skip return : False @@ -1394,7 +1415,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1429,7 +1450,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1460,7 +1481,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1485,15 +1506,15 @@ -- method Container::set_border_width -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "border_width", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "border_width", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_container_set_border_width" gtk_container_set_border_width :: Ptr Container -> -- _obj : TInterface "Gtk" "Container" - Word32 -> -- border_width : TBasicType TUInt32 + Word32 -> -- border_width : TBasicType TUInt IO () @@ -1516,7 +1537,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "focusable_widgets", argType = TGList (TInterface "Gtk" "Widget"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1549,7 +1570,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1584,7 +1605,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1615,7 +1636,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1646,7 +1667,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "needs_redraws", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1676,7 +1697,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resize_mode", argType = TInterface "Gtk" "ResizeMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1706,7 +1727,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/Container.hs-boot b/GI/Gtk/Objects/Container.hs-boot --- a/GI/Gtk/Objects/Container.hs-boot +++ b/GI/Gtk/Objects/Container.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.Container where -import Prelude () 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 diff --git a/GI/Gtk/Objects/ContainerAccessible.hs b/GI/Gtk/Objects/ContainerAccessible.hs --- a/GI/Gtk/Objects/ContainerAccessible.hs +++ b/GI/Gtk/Objects/ContainerAccessible.hs @@ -18,9 +18,9 @@ ) where -import Prelude () 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 diff --git a/GI/Gtk/Objects/ContainerAccessible.hs-boot b/GI/Gtk/Objects/ContainerAccessible.hs-boot --- a/GI/Gtk/Objects/ContainerAccessible.hs-boot +++ b/GI/Gtk/Objects/ContainerAccessible.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.ContainerAccessible where -import Prelude () 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 diff --git a/GI/Gtk/Objects/ContainerCellAccessible.hs b/GI/Gtk/Objects/ContainerCellAccessible.hs --- a/GI/Gtk/Objects/ContainerCellAccessible.hs +++ b/GI/Gtk/Objects/ContainerCellAccessible.hs @@ -40,9 +40,9 @@ ) where -import Prelude () 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 @@ -155,7 +155,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "ContainerCellAccessible" +-- returnType : Just (TInterface "Gtk" "ContainerCellAccessible") -- throws : False -- Skip return : False @@ -176,7 +176,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ContainerCellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -207,7 +207,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ContainerCellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TGList (TInterface "Gtk" "CellAccessible") +-- returnType : Just (TGList (TInterface "Gtk" "CellAccessible")) -- throws : False -- Skip return : False @@ -223,7 +223,6 @@ containerCellAccessibleGetChildren _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_container_cell_accessible_get_children _obj' - checkUnexpectedReturnNULL "gtk_container_cell_accessible_get_children" result result' <- unpackGList result result'' <- mapM (newObject CellAccessible) result' touchManagedPtr _obj @@ -237,7 +236,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ContainerCellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/ContainerCellAccessible.hs-boot b/GI/Gtk/Objects/ContainerCellAccessible.hs-boot --- a/GI/Gtk/Objects/ContainerCellAccessible.hs-boot +++ b/GI/Gtk/Objects/ContainerCellAccessible.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.ContainerCellAccessible where -import Prelude () 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 diff --git a/GI/Gtk/Objects/CssProvider.hs b/GI/Gtk/Objects/CssProvider.hs --- a/GI/Gtk/Objects/CssProvider.hs +++ b/GI/Gtk/Objects/CssProvider.hs @@ -73,9 +73,9 @@ ) where -import Prelude () 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 @@ -208,7 +208,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "CssProvider" +-- returnType : Just (TInterface "Gtk" "CssProvider") -- throws : False -- Skip return : False @@ -229,7 +229,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CssProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [Arg {argCName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -267,7 +267,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CssProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -303,7 +303,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CssProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -339,7 +339,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CssProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -370,7 +370,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CssProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -400,7 +400,7 @@ -- method type : MemberFunction -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "CssProvider" +-- returnType : Just (TInterface "Gtk" "CssProvider") -- throws : False -- Skip return : False @@ -421,7 +421,7 @@ -- method type : MemberFunction -- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "variant", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "CssProvider" +-- returnType : Just (TInterface "Gtk" "CssProvider") -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/CssProvider.hs-boot b/GI/Gtk/Objects/CssProvider.hs-boot --- a/GI/Gtk/Objects/CssProvider.hs-boot +++ b/GI/Gtk/Objects/CssProvider.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.CssProvider where -import Prelude () 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 diff --git a/GI/Gtk/Objects/Dialog.hs b/GI/Gtk/Objects/Dialog.hs --- a/GI/Gtk/Objects/Dialog.hs +++ b/GI/Gtk/Objects/Dialog.hs @@ -87,6 +87,7 @@ -- ** UseHeaderBar DialogUseHeaderBarPropertyInfo , constructDialogUseHeaderBar , + dialogUseHeaderBar , getDialogUseHeaderBar , @@ -121,9 +122,9 @@ ) where -import Prelude () 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 @@ -670,14 +671,15 @@ connectSignalFunPtr obj "response" cb' after -- VVV Prop "use-header-bar" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + -- Nullable: (Nothing,Nothing) getDialogUseHeaderBar :: (MonadIO m, DialogK o) => o -> m Int32 -getDialogUseHeaderBar obj = liftIO $ getObjectPropertyCInt obj "use-header-bar" +getDialogUseHeaderBar obj = liftIO $ getObjectPropertyInt32 obj "use-header-bar" constructDialogUseHeaderBar :: Int32 -> IO ([Char], GValue) -constructDialogUseHeaderBar val = constructObjectPropertyCInt "use-header-bar" val +constructDialogUseHeaderBar val = constructObjectPropertyInt32 "use-header-bar" val data DialogUseHeaderBarPropertyInfo instance AttrInfo DialogUseHeaderBarPropertyInfo where @@ -689,10 +691,14 @@ attrGet _ = getDialogUseHeaderBar attrSet _ = undefined attrConstruct _ = constructDialogUseHeaderBar + attrClear _ = undefined type instance AttributeList Dialog = DialogAttributeList type DialogAttributeList = ('[ '("acceptFocus", WindowAcceptFocusPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attachedTo", WindowAttachedToPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("defaultHeight", WindowDefaultHeightPropertyInfo), '("defaultWidth", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroyWithParent", WindowDestroyWithParentPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnMap", WindowFocusOnMapPropertyInfo), '("focusVisible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasResizeGrip", WindowHasResizeGripPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("hasToplevelFocus", WindowHasToplevelFocusPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hideTitlebarWhenMaximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("iconName", WindowIconNamePropertyInfo), '("isActive", WindowIsActivePropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isMaximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("mnemonicsVisible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resizeGripVisible", WindowResizeGripVisiblePropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skipPagerHint", WindowSkipPagerHintPropertyInfo), '("skipTaskbarHint", WindowSkipTaskbarHintPropertyInfo), '("startupId", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("transientFor", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("typeHint", WindowTypeHintPropertyInfo), '("urgencyHint", WindowUrgencyHintPropertyInfo), '("useHeaderBar", DialogUseHeaderBarPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("windowPosition", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) +dialogUseHeaderBar :: AttrLabelProxy "useHeaderBar" +dialogUseHeaderBar = AttrLabelProxy + data DialogCloseSignalInfo instance SignalInfo DialogCloseSignalInfo where type HaskellCallbackType DialogCloseSignalInfo = DialogCloseCallback @@ -710,7 +716,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "Dialog" +-- returnType : Just (TInterface "Gtk" "Dialog") -- throws : False -- Skip return : False @@ -729,16 +735,16 @@ -- method Dialog::add_action_widget -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_dialog_add_action_widget" gtk_dialog_add_action_widget :: Ptr Dialog -> -- _obj : TInterface "Gtk" "Dialog" Ptr Widget -> -- child : TInterface "Gtk" "Widget" - Int32 -> -- response_id : TBasicType TInt32 + Int32 -> -- response_id : TBasicType TInt IO () @@ -762,16 +768,16 @@ -- method Dialog::add_button -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False foreign import ccall "gtk_dialog_add_button" gtk_dialog_add_button :: Ptr Dialog -> -- _obj : TInterface "Gtk" "Dialog" CString -> -- button_text : TBasicType TUTF8 - Int32 -> -- response_id : TBasicType TInt32 + Int32 -> -- response_id : TBasicType TInt IO (Ptr Widget) @@ -799,7 +805,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -828,7 +834,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Box" +-- returnType : Just (TInterface "Gtk" "Box") -- throws : False -- Skip return : False @@ -857,7 +863,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -886,7 +892,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -915,15 +921,15 @@ -- method Dialog::get_widget_for_response -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False foreign import ccall "gtk_dialog_get_widget_for_response" gtk_dialog_get_widget_for_response :: Ptr Dialog -> -- _obj : TInterface "Gtk" "Dialog" - Int32 -> -- response_id : TBasicType TInt32 + Int32 -> -- response_id : TBasicType TInt IO (Ptr Widget) @@ -946,15 +952,15 @@ -- method Dialog::response -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_dialog_response" gtk_dialog_response :: Ptr Dialog -> -- _obj : TInterface "Gtk" "Dialog" - Int32 -> -- response_id : TBasicType TInt32 + Int32 -> -- response_id : TBasicType TInt IO () @@ -977,7 +983,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1002,16 +1008,16 @@ -- method Dialog::set_alternative_button_order_from_array -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_params", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_order", argType = TCArray False (-1) 1 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "n_params", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : TBasicType TVoid +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_params", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_order", argType = TCArray False (-1) 1 (TBasicType TInt), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "n_params", 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 "gtk_dialog_set_alternative_button_order_from_array" gtk_dialog_set_alternative_button_order_from_array :: Ptr Dialog -> -- _obj : TInterface "Gtk" "Dialog" - Int32 -> -- n_params : TBasicType TInt32 - Ptr Int32 -> -- new_order : TCArray False (-1) 1 (TBasicType TInt32) + Int32 -> -- n_params : TBasicType TInt + Ptr Int32 -> -- new_order : TCArray False (-1) 1 (TBasicType TInt) IO () {-# DEPRECATED dialogSetAlternativeButtonOrderFromArray ["(Since version 3.10)","Deprecated"]#-} @@ -1035,15 +1041,15 @@ -- method Dialog::set_default_response -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_dialog_set_default_response" gtk_dialog_set_default_response :: Ptr Dialog -> -- _obj : TInterface "Gtk" "Dialog" - Int32 -> -- response_id : TBasicType TInt32 + Int32 -> -- response_id : TBasicType TInt IO () @@ -1064,15 +1070,15 @@ -- method Dialog::set_response_sensitive -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", argType = TBasicType TInt32, 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}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", argType = TBasicType TInt, 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_dialog_set_response_sensitive" gtk_dialog_set_response_sensitive :: Ptr Dialog -> -- _obj : TInterface "Gtk" "Dialog" - Int32 -> -- response_id : TBasicType TInt32 + Int32 -> -- response_id : TBasicType TInt CInt -> -- setting : TBasicType TBoolean IO () diff --git a/GI/Gtk/Objects/Dialog.hs-boot b/GI/Gtk/Objects/Dialog.hs-boot --- a/GI/Gtk/Objects/Dialog.hs-boot +++ b/GI/Gtk/Objects/Dialog.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.Dialog where -import Prelude () 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 diff --git a/GI/Gtk/Objects/DrawingArea.hs b/GI/Gtk/Objects/DrawingArea.hs --- a/GI/Gtk/Objects/DrawingArea.hs +++ b/GI/Gtk/Objects/DrawingArea.hs @@ -25,9 +25,9 @@ ) where -import Prelude () 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 @@ -364,7 +364,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "DrawingArea" +-- returnType : Just (TInterface "Gtk" "DrawingArea") -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/DrawingArea.hs-boot b/GI/Gtk/Objects/DrawingArea.hs-boot --- a/GI/Gtk/Objects/DrawingArea.hs-boot +++ b/GI/Gtk/Objects/DrawingArea.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.DrawingArea where -import Prelude () 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 diff --git a/GI/Gtk/Objects/Entry.hs b/GI/Gtk/Objects/Entry.hs --- a/GI/Gtk/Objects/Entry.hs +++ b/GI/Gtk/Objects/Entry.hs @@ -401,6 +401,7 @@ -- ** ActivatesDefault EntryActivatesDefaultPropertyInfo , constructEntryActivatesDefault , + entryActivatesDefault , getEntryActivatesDefault , setEntryActivatesDefault , @@ -408,6 +409,7 @@ -- ** Attributes EntryAttributesPropertyInfo , constructEntryAttributes , + entryAttributes , getEntryAttributes , setEntryAttributes , @@ -415,6 +417,7 @@ -- ** Buffer EntryBufferPropertyInfo , constructEntryBuffer , + entryBuffer , getEntryBuffer , setEntryBuffer , @@ -422,25 +425,30 @@ -- ** CapsLockWarning EntryCapsLockWarningPropertyInfo , constructEntryCapsLockWarning , + entryCapsLockWarning , getEntryCapsLockWarning , setEntryCapsLockWarning , -- ** Completion EntryCompletionPropertyInfo , + clearEntryCompletion , constructEntryCompletion , + entryCompletion , getEntryCompletion , setEntryCompletion , -- ** CursorPosition EntryCursorPositionPropertyInfo , + entryCursorPosition , getEntryCursorPosition , -- ** Editable EntryEditablePropertyInfo , constructEntryEditable , + entryEditable , getEntryEditable , setEntryEditable , @@ -448,20 +456,25 @@ -- ** HasFrame EntryHasFramePropertyInfo , constructEntryHasFrame , + entryHasFrame , getEntryHasFrame , setEntryHasFrame , -- ** ImModule EntryImModulePropertyInfo , + clearEntryImModule , constructEntryImModule , + entryImModule , getEntryImModule , setEntryImModule , -- ** InnerBorder EntryInnerBorderPropertyInfo , + clearEntryInnerBorder , constructEntryInnerBorder , + entryInnerBorder , getEntryInnerBorder , setEntryInnerBorder , @@ -469,6 +482,7 @@ -- ** InputHints EntryInputHintsPropertyInfo , constructEntryInputHints , + entryInputHints , getEntryInputHints , setEntryInputHints , @@ -476,6 +490,7 @@ -- ** InputPurpose EntryInputPurposePropertyInfo , constructEntryInputPurpose , + entryInputPurpose , getEntryInputPurpose , setEntryInputPurpose , @@ -483,6 +498,7 @@ -- ** InvisibleChar EntryInvisibleCharPropertyInfo , constructEntryInvisibleChar , + entryInvisibleChar , getEntryInvisibleChar , setEntryInvisibleChar , @@ -490,6 +506,7 @@ -- ** InvisibleCharSet EntryInvisibleCharSetPropertyInfo , constructEntryInvisibleCharSet , + entryInvisibleCharSet , getEntryInvisibleCharSet , setEntryInvisibleCharSet , @@ -497,6 +514,7 @@ -- ** MaxLength EntryMaxLengthPropertyInfo , constructEntryMaxLength , + entryMaxLength , getEntryMaxLength , setEntryMaxLength , @@ -504,6 +522,7 @@ -- ** MaxWidthChars EntryMaxWidthCharsPropertyInfo , constructEntryMaxWidthChars , + entryMaxWidthChars , getEntryMaxWidthChars , setEntryMaxWidthChars , @@ -511,13 +530,16 @@ -- ** OverwriteMode EntryOverwriteModePropertyInfo , constructEntryOverwriteMode , + entryOverwriteMode , getEntryOverwriteMode , setEntryOverwriteMode , -- ** PlaceholderText EntryPlaceholderTextPropertyInfo , + clearEntryPlaceholderText , constructEntryPlaceholderText , + entryPlaceholderText , getEntryPlaceholderText , setEntryPlaceholderText , @@ -525,6 +547,7 @@ -- ** PopulateAll EntryPopulateAllPropertyInfo , constructEntryPopulateAll , + entryPopulateAll , getEntryPopulateAll , setEntryPopulateAll , @@ -532,27 +555,34 @@ -- ** PrimaryIconActivatable EntryPrimaryIconActivatablePropertyInfo , constructEntryPrimaryIconActivatable , + entryPrimaryIconActivatable , getEntryPrimaryIconActivatable , setEntryPrimaryIconActivatable , -- ** PrimaryIconGicon EntryPrimaryIconGiconPropertyInfo , + clearEntryPrimaryIconGicon , constructEntryPrimaryIconGicon , + entryPrimaryIconGicon , getEntryPrimaryIconGicon , setEntryPrimaryIconGicon , -- ** PrimaryIconName EntryPrimaryIconNamePropertyInfo , + clearEntryPrimaryIconName , constructEntryPrimaryIconName , + entryPrimaryIconName , getEntryPrimaryIconName , setEntryPrimaryIconName , -- ** PrimaryIconPixbuf EntryPrimaryIconPixbufPropertyInfo , + clearEntryPrimaryIconPixbuf , constructEntryPrimaryIconPixbuf , + entryPrimaryIconPixbuf , getEntryPrimaryIconPixbuf , setEntryPrimaryIconPixbuf , @@ -560,32 +590,40 @@ -- ** PrimaryIconSensitive EntryPrimaryIconSensitivePropertyInfo , constructEntryPrimaryIconSensitive , + entryPrimaryIconSensitive , getEntryPrimaryIconSensitive , setEntryPrimaryIconSensitive , -- ** PrimaryIconStock EntryPrimaryIconStockPropertyInfo , + clearEntryPrimaryIconStock , constructEntryPrimaryIconStock , + entryPrimaryIconStock , getEntryPrimaryIconStock , setEntryPrimaryIconStock , -- ** PrimaryIconStorageType EntryPrimaryIconStorageTypePropertyInfo , + entryPrimaryIconStorageType , getEntryPrimaryIconStorageType , -- ** PrimaryIconTooltipMarkup EntryPrimaryIconTooltipMarkupPropertyInfo, + clearEntryPrimaryIconTooltipMarkup , constructEntryPrimaryIconTooltipMarkup , + entryPrimaryIconTooltipMarkup , getEntryPrimaryIconTooltipMarkup , setEntryPrimaryIconTooltipMarkup , -- ** PrimaryIconTooltipText EntryPrimaryIconTooltipTextPropertyInfo , + clearEntryPrimaryIconTooltipText , constructEntryPrimaryIconTooltipText , + entryPrimaryIconTooltipText , getEntryPrimaryIconTooltipText , setEntryPrimaryIconTooltipText , @@ -593,6 +631,7 @@ -- ** ProgressFraction EntryProgressFractionPropertyInfo , constructEntryProgressFraction , + entryProgressFraction , getEntryProgressFraction , setEntryProgressFraction , @@ -600,39 +639,48 @@ -- ** ProgressPulseStep EntryProgressPulseStepPropertyInfo , constructEntryProgressPulseStep , + entryProgressPulseStep , getEntryProgressPulseStep , setEntryProgressPulseStep , -- ** ScrollOffset EntryScrollOffsetPropertyInfo , + entryScrollOffset , getEntryScrollOffset , -- ** SecondaryIconActivatable EntrySecondaryIconActivatablePropertyInfo, constructEntrySecondaryIconActivatable , + entrySecondaryIconActivatable , getEntrySecondaryIconActivatable , setEntrySecondaryIconActivatable , -- ** SecondaryIconGicon EntrySecondaryIconGiconPropertyInfo , + clearEntrySecondaryIconGicon , constructEntrySecondaryIconGicon , + entrySecondaryIconGicon , getEntrySecondaryIconGicon , setEntrySecondaryIconGicon , -- ** SecondaryIconName EntrySecondaryIconNamePropertyInfo , + clearEntrySecondaryIconName , constructEntrySecondaryIconName , + entrySecondaryIconName , getEntrySecondaryIconName , setEntrySecondaryIconName , -- ** SecondaryIconPixbuf EntrySecondaryIconPixbufPropertyInfo , + clearEntrySecondaryIconPixbuf , constructEntrySecondaryIconPixbuf , + entrySecondaryIconPixbuf , getEntrySecondaryIconPixbuf , setEntrySecondaryIconPixbuf , @@ -640,44 +688,54 @@ -- ** SecondaryIconSensitive EntrySecondaryIconSensitivePropertyInfo , constructEntrySecondaryIconSensitive , + entrySecondaryIconSensitive , getEntrySecondaryIconSensitive , setEntrySecondaryIconSensitive , -- ** SecondaryIconStock EntrySecondaryIconStockPropertyInfo , + clearEntrySecondaryIconStock , constructEntrySecondaryIconStock , + entrySecondaryIconStock , getEntrySecondaryIconStock , setEntrySecondaryIconStock , -- ** SecondaryIconStorageType EntrySecondaryIconStorageTypePropertyInfo, + entrySecondaryIconStorageType , getEntrySecondaryIconStorageType , -- ** SecondaryIconTooltipMarkup EntrySecondaryIconTooltipMarkupPropertyInfo, + clearEntrySecondaryIconTooltipMarkup , constructEntrySecondaryIconTooltipMarkup, + entrySecondaryIconTooltipMarkup , getEntrySecondaryIconTooltipMarkup , setEntrySecondaryIconTooltipMarkup , -- ** SecondaryIconTooltipText EntrySecondaryIconTooltipTextPropertyInfo, + clearEntrySecondaryIconTooltipText , constructEntrySecondaryIconTooltipText , + entrySecondaryIconTooltipText , getEntrySecondaryIconTooltipText , setEntrySecondaryIconTooltipText , -- ** SelectionBound EntrySelectionBoundPropertyInfo , + entrySelectionBound , getEntrySelectionBound , -- ** ShadowType EntryShadowTypePropertyInfo , constructEntryShadowType , + entryShadowType , getEntryShadowType , setEntryShadowType , @@ -685,6 +743,7 @@ -- ** Tabs EntryTabsPropertyInfo , constructEntryTabs , + entryTabs , getEntryTabs , setEntryTabs , @@ -692,18 +751,21 @@ -- ** Text EntryTextPropertyInfo , constructEntryText , + entryText , getEntryText , setEntryText , -- ** TextLength EntryTextLengthPropertyInfo , + entryTextLength , getEntryTextLength , -- ** TruncateMultiline EntryTruncateMultilinePropertyInfo , constructEntryTruncateMultiline , + entryTruncateMultiline , getEntryTruncateMultiline , setEntryTruncateMultiline , @@ -711,6 +773,7 @@ -- ** Visibility EntryVisibilityPropertyInfo , constructEntryVisibility , + entryVisibility , getEntryVisibility , setEntryVisibility , @@ -718,6 +781,7 @@ -- ** WidthChars EntryWidthCharsPropertyInfo , constructEntryWidthChars , + entryWidthChars , getEntryWidthChars , setEntryWidthChars , @@ -725,6 +789,7 @@ -- ** Xalign EntryXalignPropertyInfo , constructEntryXalign , + entryXalign , getEntryXalign , setEntryXalign , @@ -892,9 +957,9 @@ ) where -import Prelude () 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 @@ -1858,6 +1923,7 @@ -- VVV Prop "activates-default" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getEntryActivatesDefault :: (MonadIO m, EntryK o) => o -> m Bool getEntryActivatesDefault obj = liftIO $ getObjectPropertyBool obj "activates-default" @@ -1878,43 +1944,47 @@ attrGet _ = getEntryActivatesDefault attrSet _ = setEntryActivatesDefault attrConstruct _ = constructEntryActivatesDefault + attrClear _ = undefined -- VVV Prop "attributes" -- Type: TInterface "Pango" "AttrList" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just True,Just False) -getEntryAttributes :: (MonadIO m, EntryK o) => o -> m Pango.AttrList +getEntryAttributes :: (MonadIO m, EntryK o) => o -> m (Maybe Pango.AttrList) getEntryAttributes obj = liftIO $ getObjectPropertyBoxed obj "attributes" Pango.AttrList setEntryAttributes :: (MonadIO m, EntryK o) => o -> Pango.AttrList -> m () -setEntryAttributes obj val = liftIO $ setObjectPropertyBoxed obj "attributes" val +setEntryAttributes obj val = liftIO $ setObjectPropertyBoxed obj "attributes" (Just val) constructEntryAttributes :: Pango.AttrList -> IO ([Char], GValue) -constructEntryAttributes val = constructObjectPropertyBoxed "attributes" val +constructEntryAttributes val = constructObjectPropertyBoxed "attributes" (Just val) data EntryAttributesPropertyInfo instance AttrInfo EntryAttributesPropertyInfo where type AttrAllowedOps EntryAttributesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint EntryAttributesPropertyInfo = (~) Pango.AttrList type AttrBaseTypeConstraint EntryAttributesPropertyInfo = EntryK - type AttrGetType EntryAttributesPropertyInfo = Pango.AttrList + type AttrGetType EntryAttributesPropertyInfo = (Maybe Pango.AttrList) type AttrLabel EntryAttributesPropertyInfo = "attributes" attrGet _ = getEntryAttributes attrSet _ = setEntryAttributes attrConstruct _ = constructEntryAttributes + attrClear _ = undefined -- VVV Prop "buffer" -- Type: TInterface "Gtk" "EntryBuffer" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Just False,Just False) getEntryBuffer :: (MonadIO m, EntryK o) => o -> m EntryBuffer -getEntryBuffer obj = liftIO $ getObjectPropertyObject obj "buffer" EntryBuffer +getEntryBuffer obj = liftIO $ checkUnexpectedNothing "getEntryBuffer" $ getObjectPropertyObject obj "buffer" EntryBuffer setEntryBuffer :: (MonadIO m, EntryK o, EntryBufferK a) => o -> a -> m () -setEntryBuffer obj val = liftIO $ setObjectPropertyObject obj "buffer" val +setEntryBuffer obj val = liftIO $ setObjectPropertyObject obj "buffer" (Just val) constructEntryBuffer :: (EntryBufferK a) => a -> IO ([Char], GValue) -constructEntryBuffer val = constructObjectPropertyObject "buffer" val +constructEntryBuffer val = constructObjectPropertyObject "buffer" (Just val) data EntryBufferPropertyInfo instance AttrInfo EntryBufferPropertyInfo where @@ -1926,10 +1996,12 @@ attrGet _ = getEntryBuffer attrSet _ = setEntryBuffer attrConstruct _ = constructEntryBuffer + attrClear _ = undefined -- VVV Prop "caps-lock-warning" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getEntryCapsLockWarning :: (MonadIO m, EntryK o) => o -> m Bool getEntryCapsLockWarning obj = liftIO $ getObjectPropertyBool obj "caps-lock-warning" @@ -1950,23 +2022,28 @@ attrGet _ = getEntryCapsLockWarning attrSet _ = setEntryCapsLockWarning attrConstruct _ = constructEntryCapsLockWarning + attrClear _ = undefined -- VVV Prop "completion" -- Type: TInterface "Gtk" "EntryCompletion" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) getEntryCompletion :: (MonadIO m, EntryK o) => o -> m EntryCompletion -getEntryCompletion obj = liftIO $ getObjectPropertyObject obj "completion" EntryCompletion +getEntryCompletion obj = liftIO $ checkUnexpectedNothing "getEntryCompletion" $ getObjectPropertyObject obj "completion" EntryCompletion setEntryCompletion :: (MonadIO m, EntryK o, EntryCompletionK a) => o -> a -> m () -setEntryCompletion obj val = liftIO $ setObjectPropertyObject obj "completion" val +setEntryCompletion obj val = liftIO $ setObjectPropertyObject obj "completion" (Just val) constructEntryCompletion :: (EntryCompletionK a) => a -> IO ([Char], GValue) -constructEntryCompletion val = constructObjectPropertyObject "completion" val +constructEntryCompletion val = constructObjectPropertyObject "completion" (Just val) +clearEntryCompletion :: (MonadIO m, EntryK o) => o -> m () +clearEntryCompletion obj = liftIO $ setObjectPropertyObject obj "completion" (Nothing :: Maybe EntryCompletion) + data EntryCompletionPropertyInfo instance AttrInfo EntryCompletionPropertyInfo where - type AttrAllowedOps EntryCompletionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps EntryCompletionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint EntryCompletionPropertyInfo = EntryCompletionK type AttrBaseTypeConstraint EntryCompletionPropertyInfo = EntryK type AttrGetType EntryCompletionPropertyInfo = EntryCompletion @@ -1974,13 +2051,15 @@ attrGet _ = getEntryCompletion attrSet _ = setEntryCompletion attrConstruct _ = constructEntryCompletion + attrClear _ = clearEntryCompletion -- VVV Prop "cursor-position" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) getEntryCursorPosition :: (MonadIO m, EntryK o) => o -> m Int32 -getEntryCursorPosition obj = liftIO $ getObjectPropertyCInt obj "cursor-position" +getEntryCursorPosition obj = liftIO $ getObjectPropertyInt32 obj "cursor-position" data EntryCursorPositionPropertyInfo instance AttrInfo EntryCursorPositionPropertyInfo where @@ -1992,10 +2071,12 @@ attrGet _ = getEntryCursorPosition attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "editable" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getEntryEditable :: (MonadIO m, EntryK o) => o -> m Bool getEntryEditable obj = liftIO $ getObjectPropertyBool obj "editable" @@ -2016,10 +2097,12 @@ attrGet _ = getEntryEditable attrSet _ = setEntryEditable attrConstruct _ = constructEntryEditable + attrClear _ = undefined -- VVV Prop "has-frame" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getEntryHasFrame :: (MonadIO m, EntryK o) => o -> m Bool getEntryHasFrame obj = liftIO $ getObjectPropertyBool obj "has-frame" @@ -2040,58 +2123,70 @@ attrGet _ = getEntryHasFrame attrSet _ = setEntryHasFrame attrConstruct _ = constructEntryHasFrame + attrClear _ = undefined -- VVV Prop "im-module" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getEntryImModule :: (MonadIO m, EntryK o) => o -> m T.Text +getEntryImModule :: (MonadIO m, EntryK o) => o -> m (Maybe T.Text) getEntryImModule obj = liftIO $ getObjectPropertyString obj "im-module" setEntryImModule :: (MonadIO m, EntryK o) => o -> T.Text -> m () -setEntryImModule obj val = liftIO $ setObjectPropertyString obj "im-module" val +setEntryImModule obj val = liftIO $ setObjectPropertyString obj "im-module" (Just val) constructEntryImModule :: T.Text -> IO ([Char], GValue) -constructEntryImModule val = constructObjectPropertyString "im-module" val +constructEntryImModule val = constructObjectPropertyString "im-module" (Just val) +clearEntryImModule :: (MonadIO m, EntryK o) => o -> m () +clearEntryImModule obj = liftIO $ setObjectPropertyString obj "im-module" (Nothing :: Maybe T.Text) + data EntryImModulePropertyInfo instance AttrInfo EntryImModulePropertyInfo where - type AttrAllowedOps EntryImModulePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps EntryImModulePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint EntryImModulePropertyInfo = (~) T.Text type AttrBaseTypeConstraint EntryImModulePropertyInfo = EntryK - type AttrGetType EntryImModulePropertyInfo = T.Text + type AttrGetType EntryImModulePropertyInfo = (Maybe T.Text) type AttrLabel EntryImModulePropertyInfo = "im-module" attrGet _ = getEntryImModule attrSet _ = setEntryImModule attrConstruct _ = constructEntryImModule + attrClear _ = clearEntryImModule -- VVV Prop "inner-border" -- Type: TInterface "Gtk" "Border" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just True,Just True) -getEntryInnerBorder :: (MonadIO m, EntryK o) => o -> m Border +getEntryInnerBorder :: (MonadIO m, EntryK o) => o -> m (Maybe Border) getEntryInnerBorder obj = liftIO $ getObjectPropertyBoxed obj "inner-border" Border setEntryInnerBorder :: (MonadIO m, EntryK o) => o -> Border -> m () -setEntryInnerBorder obj val = liftIO $ setObjectPropertyBoxed obj "inner-border" val +setEntryInnerBorder obj val = liftIO $ setObjectPropertyBoxed obj "inner-border" (Just val) constructEntryInnerBorder :: Border -> IO ([Char], GValue) -constructEntryInnerBorder val = constructObjectPropertyBoxed "inner-border" val +constructEntryInnerBorder val = constructObjectPropertyBoxed "inner-border" (Just val) +clearEntryInnerBorder :: (MonadIO m, EntryK o) => o -> m () +clearEntryInnerBorder obj = liftIO $ setObjectPropertyBoxed obj "inner-border" (Nothing :: Maybe Border) + data EntryInnerBorderPropertyInfo instance AttrInfo EntryInnerBorderPropertyInfo where - type AttrAllowedOps EntryInnerBorderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps EntryInnerBorderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint EntryInnerBorderPropertyInfo = (~) Border type AttrBaseTypeConstraint EntryInnerBorderPropertyInfo = EntryK - type AttrGetType EntryInnerBorderPropertyInfo = Border + type AttrGetType EntryInnerBorderPropertyInfo = (Maybe Border) type AttrLabel EntryInnerBorderPropertyInfo = "inner-border" attrGet _ = getEntryInnerBorder attrSet _ = setEntryInnerBorder attrConstruct _ = constructEntryInnerBorder + attrClear _ = clearEntryInnerBorder -- VVV Prop "input-hints" -- Type: TInterface "Gtk" "InputHints" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getEntryInputHints :: (MonadIO m, EntryK o) => o -> m [InputHints] getEntryInputHints obj = liftIO $ getObjectPropertyFlags obj "input-hints" @@ -2112,10 +2207,12 @@ attrGet _ = getEntryInputHints attrSet _ = setEntryInputHints attrConstruct _ = constructEntryInputHints + attrClear _ = undefined -- VVV Prop "input-purpose" -- Type: TInterface "Gtk" "InputPurpose" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getEntryInputPurpose :: (MonadIO m, EntryK o) => o -> m InputPurpose getEntryInputPurpose obj = liftIO $ getObjectPropertyEnum obj "input-purpose" @@ -2136,19 +2233,21 @@ attrGet _ = getEntryInputPurpose attrSet _ = setEntryInputPurpose attrConstruct _ = constructEntryInputPurpose + attrClear _ = undefined -- VVV Prop "invisible-char" - -- Type: TBasicType TUInt32 + -- Type: TBasicType TUInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getEntryInvisibleChar :: (MonadIO m, EntryK o) => o -> m Word32 -getEntryInvisibleChar obj = liftIO $ getObjectPropertyCUInt obj "invisible-char" +getEntryInvisibleChar obj = liftIO $ getObjectPropertyUInt32 obj "invisible-char" setEntryInvisibleChar :: (MonadIO m, EntryK o) => o -> Word32 -> m () -setEntryInvisibleChar obj val = liftIO $ setObjectPropertyCUInt obj "invisible-char" val +setEntryInvisibleChar obj val = liftIO $ setObjectPropertyUInt32 obj "invisible-char" val constructEntryInvisibleChar :: Word32 -> IO ([Char], GValue) -constructEntryInvisibleChar val = constructObjectPropertyCUInt "invisible-char" val +constructEntryInvisibleChar val = constructObjectPropertyUInt32 "invisible-char" val data EntryInvisibleCharPropertyInfo instance AttrInfo EntryInvisibleCharPropertyInfo where @@ -2160,10 +2259,12 @@ attrGet _ = getEntryInvisibleChar attrSet _ = setEntryInvisibleChar attrConstruct _ = constructEntryInvisibleChar + attrClear _ = undefined -- VVV Prop "invisible-char-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getEntryInvisibleCharSet :: (MonadIO m, EntryK o) => o -> m Bool getEntryInvisibleCharSet obj = liftIO $ getObjectPropertyBool obj "invisible-char-set" @@ -2184,19 +2285,21 @@ attrGet _ = getEntryInvisibleCharSet attrSet _ = setEntryInvisibleCharSet attrConstruct _ = constructEntryInvisibleCharSet + attrClear _ = undefined -- VVV Prop "max-length" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getEntryMaxLength :: (MonadIO m, EntryK o) => o -> m Int32 -getEntryMaxLength obj = liftIO $ getObjectPropertyCInt obj "max-length" +getEntryMaxLength obj = liftIO $ getObjectPropertyInt32 obj "max-length" setEntryMaxLength :: (MonadIO m, EntryK o) => o -> Int32 -> m () -setEntryMaxLength obj val = liftIO $ setObjectPropertyCInt obj "max-length" val +setEntryMaxLength obj val = liftIO $ setObjectPropertyInt32 obj "max-length" val constructEntryMaxLength :: Int32 -> IO ([Char], GValue) -constructEntryMaxLength val = constructObjectPropertyCInt "max-length" val +constructEntryMaxLength val = constructObjectPropertyInt32 "max-length" val data EntryMaxLengthPropertyInfo instance AttrInfo EntryMaxLengthPropertyInfo where @@ -2208,19 +2311,21 @@ attrGet _ = getEntryMaxLength attrSet _ = setEntryMaxLength attrConstruct _ = constructEntryMaxLength + attrClear _ = undefined -- VVV Prop "max-width-chars" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getEntryMaxWidthChars :: (MonadIO m, EntryK o) => o -> m Int32 -getEntryMaxWidthChars obj = liftIO $ getObjectPropertyCInt obj "max-width-chars" +getEntryMaxWidthChars obj = liftIO $ getObjectPropertyInt32 obj "max-width-chars" setEntryMaxWidthChars :: (MonadIO m, EntryK o) => o -> Int32 -> m () -setEntryMaxWidthChars obj val = liftIO $ setObjectPropertyCInt obj "max-width-chars" val +setEntryMaxWidthChars obj val = liftIO $ setObjectPropertyInt32 obj "max-width-chars" val constructEntryMaxWidthChars :: Int32 -> IO ([Char], GValue) -constructEntryMaxWidthChars val = constructObjectPropertyCInt "max-width-chars" val +constructEntryMaxWidthChars val = constructObjectPropertyInt32 "max-width-chars" val data EntryMaxWidthCharsPropertyInfo instance AttrInfo EntryMaxWidthCharsPropertyInfo where @@ -2232,10 +2337,12 @@ attrGet _ = getEntryMaxWidthChars attrSet _ = setEntryMaxWidthChars attrConstruct _ = constructEntryMaxWidthChars + attrClear _ = undefined -- VVV Prop "overwrite-mode" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getEntryOverwriteMode :: (MonadIO m, EntryK o) => o -> m Bool getEntryOverwriteMode obj = liftIO $ getObjectPropertyBool obj "overwrite-mode" @@ -2256,23 +2363,28 @@ attrGet _ = getEntryOverwriteMode attrSet _ = setEntryOverwriteMode attrConstruct _ = constructEntryOverwriteMode + attrClear _ = undefined -- VVV Prop "placeholder-text" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) getEntryPlaceholderText :: (MonadIO m, EntryK o) => o -> m T.Text -getEntryPlaceholderText obj = liftIO $ getObjectPropertyString obj "placeholder-text" +getEntryPlaceholderText obj = liftIO $ checkUnexpectedNothing "getEntryPlaceholderText" $ getObjectPropertyString obj "placeholder-text" setEntryPlaceholderText :: (MonadIO m, EntryK o) => o -> T.Text -> m () -setEntryPlaceholderText obj val = liftIO $ setObjectPropertyString obj "placeholder-text" val +setEntryPlaceholderText obj val = liftIO $ setObjectPropertyString obj "placeholder-text" (Just val) constructEntryPlaceholderText :: T.Text -> IO ([Char], GValue) -constructEntryPlaceholderText val = constructObjectPropertyString "placeholder-text" val +constructEntryPlaceholderText val = constructObjectPropertyString "placeholder-text" (Just val) +clearEntryPlaceholderText :: (MonadIO m, EntryK o) => o -> m () +clearEntryPlaceholderText obj = liftIO $ setObjectPropertyString obj "placeholder-text" (Nothing :: Maybe T.Text) + data EntryPlaceholderTextPropertyInfo instance AttrInfo EntryPlaceholderTextPropertyInfo where - type AttrAllowedOps EntryPlaceholderTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps EntryPlaceholderTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint EntryPlaceholderTextPropertyInfo = (~) T.Text type AttrBaseTypeConstraint EntryPlaceholderTextPropertyInfo = EntryK type AttrGetType EntryPlaceholderTextPropertyInfo = T.Text @@ -2280,10 +2392,12 @@ attrGet _ = getEntryPlaceholderText attrSet _ = setEntryPlaceholderText attrConstruct _ = constructEntryPlaceholderText + attrClear _ = clearEntryPlaceholderText -- VVV Prop "populate-all" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getEntryPopulateAll :: (MonadIO m, EntryK o) => o -> m Bool getEntryPopulateAll obj = liftIO $ getObjectPropertyBool obj "populate-all" @@ -2304,10 +2418,12 @@ attrGet _ = getEntryPopulateAll attrSet _ = setEntryPopulateAll attrConstruct _ = constructEntryPopulateAll + attrClear _ = undefined -- VVV Prop "primary-icon-activatable" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getEntryPrimaryIconActivatable :: (MonadIO m, EntryK o) => o -> m Bool getEntryPrimaryIconActivatable obj = liftIO $ getObjectPropertyBool obj "primary-icon-activatable" @@ -2328,82 +2444,99 @@ attrGet _ = getEntryPrimaryIconActivatable attrSet _ = setEntryPrimaryIconActivatable attrConstruct _ = constructEntryPrimaryIconActivatable + attrClear _ = undefined -- VVV Prop "primary-icon-gicon" -- Type: TInterface "Gio" "Icon" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getEntryPrimaryIconGicon :: (MonadIO m, EntryK o) => o -> m Gio.Icon +getEntryPrimaryIconGicon :: (MonadIO m, EntryK o) => o -> m (Maybe Gio.Icon) getEntryPrimaryIconGicon obj = liftIO $ getObjectPropertyObject obj "primary-icon-gicon" Gio.Icon setEntryPrimaryIconGicon :: (MonadIO m, EntryK o, Gio.IconK a) => o -> a -> m () -setEntryPrimaryIconGicon obj val = liftIO $ setObjectPropertyObject obj "primary-icon-gicon" val +setEntryPrimaryIconGicon obj val = liftIO $ setObjectPropertyObject obj "primary-icon-gicon" (Just val) constructEntryPrimaryIconGicon :: (Gio.IconK a) => a -> IO ([Char], GValue) -constructEntryPrimaryIconGicon val = constructObjectPropertyObject "primary-icon-gicon" val +constructEntryPrimaryIconGicon val = constructObjectPropertyObject "primary-icon-gicon" (Just val) +clearEntryPrimaryIconGicon :: (MonadIO m, EntryK o) => o -> m () +clearEntryPrimaryIconGicon obj = liftIO $ setObjectPropertyObject obj "primary-icon-gicon" (Nothing :: Maybe Gio.Icon) + data EntryPrimaryIconGiconPropertyInfo instance AttrInfo EntryPrimaryIconGiconPropertyInfo where - type AttrAllowedOps EntryPrimaryIconGiconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps EntryPrimaryIconGiconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint EntryPrimaryIconGiconPropertyInfo = Gio.IconK type AttrBaseTypeConstraint EntryPrimaryIconGiconPropertyInfo = EntryK - type AttrGetType EntryPrimaryIconGiconPropertyInfo = Gio.Icon + type AttrGetType EntryPrimaryIconGiconPropertyInfo = (Maybe Gio.Icon) type AttrLabel EntryPrimaryIconGiconPropertyInfo = "primary-icon-gicon" attrGet _ = getEntryPrimaryIconGicon attrSet _ = setEntryPrimaryIconGicon attrConstruct _ = constructEntryPrimaryIconGicon + attrClear _ = clearEntryPrimaryIconGicon -- VVV Prop "primary-icon-name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getEntryPrimaryIconName :: (MonadIO m, EntryK o) => o -> m T.Text +getEntryPrimaryIconName :: (MonadIO m, EntryK o) => o -> m (Maybe T.Text) getEntryPrimaryIconName obj = liftIO $ getObjectPropertyString obj "primary-icon-name" setEntryPrimaryIconName :: (MonadIO m, EntryK o) => o -> T.Text -> m () -setEntryPrimaryIconName obj val = liftIO $ setObjectPropertyString obj "primary-icon-name" val +setEntryPrimaryIconName obj val = liftIO $ setObjectPropertyString obj "primary-icon-name" (Just val) constructEntryPrimaryIconName :: T.Text -> IO ([Char], GValue) -constructEntryPrimaryIconName val = constructObjectPropertyString "primary-icon-name" val +constructEntryPrimaryIconName val = constructObjectPropertyString "primary-icon-name" (Just val) +clearEntryPrimaryIconName :: (MonadIO m, EntryK o) => o -> m () +clearEntryPrimaryIconName obj = liftIO $ setObjectPropertyString obj "primary-icon-name" (Nothing :: Maybe T.Text) + data EntryPrimaryIconNamePropertyInfo instance AttrInfo EntryPrimaryIconNamePropertyInfo where - type AttrAllowedOps EntryPrimaryIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps EntryPrimaryIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint EntryPrimaryIconNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint EntryPrimaryIconNamePropertyInfo = EntryK - type AttrGetType EntryPrimaryIconNamePropertyInfo = T.Text + type AttrGetType EntryPrimaryIconNamePropertyInfo = (Maybe T.Text) type AttrLabel EntryPrimaryIconNamePropertyInfo = "primary-icon-name" attrGet _ = getEntryPrimaryIconName attrSet _ = setEntryPrimaryIconName attrConstruct _ = constructEntryPrimaryIconName + attrClear _ = clearEntryPrimaryIconName -- VVV Prop "primary-icon-pixbuf" -- Type: TInterface "GdkPixbuf" "Pixbuf" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getEntryPrimaryIconPixbuf :: (MonadIO m, EntryK o) => o -> m GdkPixbuf.Pixbuf +getEntryPrimaryIconPixbuf :: (MonadIO m, EntryK o) => o -> m (Maybe GdkPixbuf.Pixbuf) getEntryPrimaryIconPixbuf obj = liftIO $ getObjectPropertyObject obj "primary-icon-pixbuf" GdkPixbuf.Pixbuf setEntryPrimaryIconPixbuf :: (MonadIO m, EntryK o, GdkPixbuf.PixbufK a) => o -> a -> m () -setEntryPrimaryIconPixbuf obj val = liftIO $ setObjectPropertyObject obj "primary-icon-pixbuf" val +setEntryPrimaryIconPixbuf obj val = liftIO $ setObjectPropertyObject obj "primary-icon-pixbuf" (Just val) constructEntryPrimaryIconPixbuf :: (GdkPixbuf.PixbufK a) => a -> IO ([Char], GValue) -constructEntryPrimaryIconPixbuf val = constructObjectPropertyObject "primary-icon-pixbuf" val +constructEntryPrimaryIconPixbuf val = constructObjectPropertyObject "primary-icon-pixbuf" (Just val) +clearEntryPrimaryIconPixbuf :: (MonadIO m, EntryK o) => o -> m () +clearEntryPrimaryIconPixbuf obj = liftIO $ setObjectPropertyObject obj "primary-icon-pixbuf" (Nothing :: Maybe GdkPixbuf.Pixbuf) + data EntryPrimaryIconPixbufPropertyInfo instance AttrInfo EntryPrimaryIconPixbufPropertyInfo where - type AttrAllowedOps EntryPrimaryIconPixbufPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps EntryPrimaryIconPixbufPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint EntryPrimaryIconPixbufPropertyInfo = GdkPixbuf.PixbufK type AttrBaseTypeConstraint EntryPrimaryIconPixbufPropertyInfo = EntryK - type AttrGetType EntryPrimaryIconPixbufPropertyInfo = GdkPixbuf.Pixbuf + type AttrGetType EntryPrimaryIconPixbufPropertyInfo = (Maybe GdkPixbuf.Pixbuf) type AttrLabel EntryPrimaryIconPixbufPropertyInfo = "primary-icon-pixbuf" attrGet _ = getEntryPrimaryIconPixbuf attrSet _ = setEntryPrimaryIconPixbuf attrConstruct _ = constructEntryPrimaryIconPixbuf + attrClear _ = clearEntryPrimaryIconPixbuf -- VVV Prop "primary-icon-sensitive" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getEntryPrimaryIconSensitive :: (MonadIO m, EntryK o) => o -> m Bool getEntryPrimaryIconSensitive obj = liftIO $ getObjectPropertyBool obj "primary-icon-sensitive" @@ -2424,34 +2557,41 @@ attrGet _ = getEntryPrimaryIconSensitive attrSet _ = setEntryPrimaryIconSensitive attrConstruct _ = constructEntryPrimaryIconSensitive + attrClear _ = undefined -- VVV Prop "primary-icon-stock" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getEntryPrimaryIconStock :: (MonadIO m, EntryK o) => o -> m T.Text +getEntryPrimaryIconStock :: (MonadIO m, EntryK o) => o -> m (Maybe T.Text) getEntryPrimaryIconStock obj = liftIO $ getObjectPropertyString obj "primary-icon-stock" setEntryPrimaryIconStock :: (MonadIO m, EntryK o) => o -> T.Text -> m () -setEntryPrimaryIconStock obj val = liftIO $ setObjectPropertyString obj "primary-icon-stock" val +setEntryPrimaryIconStock obj val = liftIO $ setObjectPropertyString obj "primary-icon-stock" (Just val) constructEntryPrimaryIconStock :: T.Text -> IO ([Char], GValue) -constructEntryPrimaryIconStock val = constructObjectPropertyString "primary-icon-stock" val +constructEntryPrimaryIconStock val = constructObjectPropertyString "primary-icon-stock" (Just val) +clearEntryPrimaryIconStock :: (MonadIO m, EntryK o) => o -> m () +clearEntryPrimaryIconStock obj = liftIO $ setObjectPropertyString obj "primary-icon-stock" (Nothing :: Maybe T.Text) + data EntryPrimaryIconStockPropertyInfo instance AttrInfo EntryPrimaryIconStockPropertyInfo where - type AttrAllowedOps EntryPrimaryIconStockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps EntryPrimaryIconStockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint EntryPrimaryIconStockPropertyInfo = (~) T.Text type AttrBaseTypeConstraint EntryPrimaryIconStockPropertyInfo = EntryK - type AttrGetType EntryPrimaryIconStockPropertyInfo = T.Text + type AttrGetType EntryPrimaryIconStockPropertyInfo = (Maybe T.Text) type AttrLabel EntryPrimaryIconStockPropertyInfo = "primary-icon-stock" attrGet _ = getEntryPrimaryIconStock attrSet _ = setEntryPrimaryIconStock attrConstruct _ = constructEntryPrimaryIconStock + attrClear _ = clearEntryPrimaryIconStock -- VVV Prop "primary-icon-storage-type" -- Type: TInterface "Gtk" "ImageType" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) getEntryPrimaryIconStorageType :: (MonadIO m, EntryK o) => o -> m ImageType getEntryPrimaryIconStorageType obj = liftIO $ getObjectPropertyEnum obj "primary-icon-storage-type" @@ -2466,58 +2606,70 @@ attrGet _ = getEntryPrimaryIconStorageType attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "primary-icon-tooltip-markup" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getEntryPrimaryIconTooltipMarkup :: (MonadIO m, EntryK o) => o -> m T.Text +getEntryPrimaryIconTooltipMarkup :: (MonadIO m, EntryK o) => o -> m (Maybe T.Text) getEntryPrimaryIconTooltipMarkup obj = liftIO $ getObjectPropertyString obj "primary-icon-tooltip-markup" setEntryPrimaryIconTooltipMarkup :: (MonadIO m, EntryK o) => o -> T.Text -> m () -setEntryPrimaryIconTooltipMarkup obj val = liftIO $ setObjectPropertyString obj "primary-icon-tooltip-markup" val +setEntryPrimaryIconTooltipMarkup obj val = liftIO $ setObjectPropertyString obj "primary-icon-tooltip-markup" (Just val) constructEntryPrimaryIconTooltipMarkup :: T.Text -> IO ([Char], GValue) -constructEntryPrimaryIconTooltipMarkup val = constructObjectPropertyString "primary-icon-tooltip-markup" val +constructEntryPrimaryIconTooltipMarkup val = constructObjectPropertyString "primary-icon-tooltip-markup" (Just val) +clearEntryPrimaryIconTooltipMarkup :: (MonadIO m, EntryK o) => o -> m () +clearEntryPrimaryIconTooltipMarkup obj = liftIO $ setObjectPropertyString obj "primary-icon-tooltip-markup" (Nothing :: Maybe T.Text) + data EntryPrimaryIconTooltipMarkupPropertyInfo instance AttrInfo EntryPrimaryIconTooltipMarkupPropertyInfo where - type AttrAllowedOps EntryPrimaryIconTooltipMarkupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps EntryPrimaryIconTooltipMarkupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint EntryPrimaryIconTooltipMarkupPropertyInfo = (~) T.Text type AttrBaseTypeConstraint EntryPrimaryIconTooltipMarkupPropertyInfo = EntryK - type AttrGetType EntryPrimaryIconTooltipMarkupPropertyInfo = T.Text + type AttrGetType EntryPrimaryIconTooltipMarkupPropertyInfo = (Maybe T.Text) type AttrLabel EntryPrimaryIconTooltipMarkupPropertyInfo = "primary-icon-tooltip-markup" attrGet _ = getEntryPrimaryIconTooltipMarkup attrSet _ = setEntryPrimaryIconTooltipMarkup attrConstruct _ = constructEntryPrimaryIconTooltipMarkup + attrClear _ = clearEntryPrimaryIconTooltipMarkup -- VVV Prop "primary-icon-tooltip-text" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getEntryPrimaryIconTooltipText :: (MonadIO m, EntryK o) => o -> m T.Text +getEntryPrimaryIconTooltipText :: (MonadIO m, EntryK o) => o -> m (Maybe T.Text) getEntryPrimaryIconTooltipText obj = liftIO $ getObjectPropertyString obj "primary-icon-tooltip-text" setEntryPrimaryIconTooltipText :: (MonadIO m, EntryK o) => o -> T.Text -> m () -setEntryPrimaryIconTooltipText obj val = liftIO $ setObjectPropertyString obj "primary-icon-tooltip-text" val +setEntryPrimaryIconTooltipText obj val = liftIO $ setObjectPropertyString obj "primary-icon-tooltip-text" (Just val) constructEntryPrimaryIconTooltipText :: T.Text -> IO ([Char], GValue) -constructEntryPrimaryIconTooltipText val = constructObjectPropertyString "primary-icon-tooltip-text" val +constructEntryPrimaryIconTooltipText val = constructObjectPropertyString "primary-icon-tooltip-text" (Just val) +clearEntryPrimaryIconTooltipText :: (MonadIO m, EntryK o) => o -> m () +clearEntryPrimaryIconTooltipText obj = liftIO $ setObjectPropertyString obj "primary-icon-tooltip-text" (Nothing :: Maybe T.Text) + data EntryPrimaryIconTooltipTextPropertyInfo instance AttrInfo EntryPrimaryIconTooltipTextPropertyInfo where - type AttrAllowedOps EntryPrimaryIconTooltipTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps EntryPrimaryIconTooltipTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint EntryPrimaryIconTooltipTextPropertyInfo = (~) T.Text type AttrBaseTypeConstraint EntryPrimaryIconTooltipTextPropertyInfo = EntryK - type AttrGetType EntryPrimaryIconTooltipTextPropertyInfo = T.Text + type AttrGetType EntryPrimaryIconTooltipTextPropertyInfo = (Maybe T.Text) type AttrLabel EntryPrimaryIconTooltipTextPropertyInfo = "primary-icon-tooltip-text" attrGet _ = getEntryPrimaryIconTooltipText attrSet _ = setEntryPrimaryIconTooltipText attrConstruct _ = constructEntryPrimaryIconTooltipText + attrClear _ = clearEntryPrimaryIconTooltipText -- VVV Prop "progress-fraction" -- Type: TBasicType TDouble -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getEntryProgressFraction :: (MonadIO m, EntryK o) => o -> m Double getEntryProgressFraction obj = liftIO $ getObjectPropertyDouble obj "progress-fraction" @@ -2538,10 +2690,12 @@ attrGet _ = getEntryProgressFraction attrSet _ = setEntryProgressFraction attrConstruct _ = constructEntryProgressFraction + attrClear _ = undefined -- VVV Prop "progress-pulse-step" -- Type: TBasicType TDouble -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getEntryProgressPulseStep :: (MonadIO m, EntryK o) => o -> m Double getEntryProgressPulseStep obj = liftIO $ getObjectPropertyDouble obj "progress-pulse-step" @@ -2562,13 +2716,15 @@ attrGet _ = getEntryProgressPulseStep attrSet _ = setEntryProgressPulseStep attrConstruct _ = constructEntryProgressPulseStep + attrClear _ = undefined -- VVV Prop "scroll-offset" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) getEntryScrollOffset :: (MonadIO m, EntryK o) => o -> m Int32 -getEntryScrollOffset obj = liftIO $ getObjectPropertyCInt obj "scroll-offset" +getEntryScrollOffset obj = liftIO $ getObjectPropertyInt32 obj "scroll-offset" data EntryScrollOffsetPropertyInfo instance AttrInfo EntryScrollOffsetPropertyInfo where @@ -2580,10 +2736,12 @@ attrGet _ = getEntryScrollOffset attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "secondary-icon-activatable" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getEntrySecondaryIconActivatable :: (MonadIO m, EntryK o) => o -> m Bool getEntrySecondaryIconActivatable obj = liftIO $ getObjectPropertyBool obj "secondary-icon-activatable" @@ -2604,82 +2762,99 @@ attrGet _ = getEntrySecondaryIconActivatable attrSet _ = setEntrySecondaryIconActivatable attrConstruct _ = constructEntrySecondaryIconActivatable + attrClear _ = undefined -- VVV Prop "secondary-icon-gicon" -- Type: TInterface "Gio" "Icon" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getEntrySecondaryIconGicon :: (MonadIO m, EntryK o) => o -> m Gio.Icon +getEntrySecondaryIconGicon :: (MonadIO m, EntryK o) => o -> m (Maybe Gio.Icon) getEntrySecondaryIconGicon obj = liftIO $ getObjectPropertyObject obj "secondary-icon-gicon" Gio.Icon setEntrySecondaryIconGicon :: (MonadIO m, EntryK o, Gio.IconK a) => o -> a -> m () -setEntrySecondaryIconGicon obj val = liftIO $ setObjectPropertyObject obj "secondary-icon-gicon" val +setEntrySecondaryIconGicon obj val = liftIO $ setObjectPropertyObject obj "secondary-icon-gicon" (Just val) constructEntrySecondaryIconGicon :: (Gio.IconK a) => a -> IO ([Char], GValue) -constructEntrySecondaryIconGicon val = constructObjectPropertyObject "secondary-icon-gicon" val +constructEntrySecondaryIconGicon val = constructObjectPropertyObject "secondary-icon-gicon" (Just val) +clearEntrySecondaryIconGicon :: (MonadIO m, EntryK o) => o -> m () +clearEntrySecondaryIconGicon obj = liftIO $ setObjectPropertyObject obj "secondary-icon-gicon" (Nothing :: Maybe Gio.Icon) + data EntrySecondaryIconGiconPropertyInfo instance AttrInfo EntrySecondaryIconGiconPropertyInfo where - type AttrAllowedOps EntrySecondaryIconGiconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps EntrySecondaryIconGiconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint EntrySecondaryIconGiconPropertyInfo = Gio.IconK type AttrBaseTypeConstraint EntrySecondaryIconGiconPropertyInfo = EntryK - type AttrGetType EntrySecondaryIconGiconPropertyInfo = Gio.Icon + type AttrGetType EntrySecondaryIconGiconPropertyInfo = (Maybe Gio.Icon) type AttrLabel EntrySecondaryIconGiconPropertyInfo = "secondary-icon-gicon" attrGet _ = getEntrySecondaryIconGicon attrSet _ = setEntrySecondaryIconGicon attrConstruct _ = constructEntrySecondaryIconGicon + attrClear _ = clearEntrySecondaryIconGicon -- VVV Prop "secondary-icon-name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getEntrySecondaryIconName :: (MonadIO m, EntryK o) => o -> m T.Text +getEntrySecondaryIconName :: (MonadIO m, EntryK o) => o -> m (Maybe T.Text) getEntrySecondaryIconName obj = liftIO $ getObjectPropertyString obj "secondary-icon-name" setEntrySecondaryIconName :: (MonadIO m, EntryK o) => o -> T.Text -> m () -setEntrySecondaryIconName obj val = liftIO $ setObjectPropertyString obj "secondary-icon-name" val +setEntrySecondaryIconName obj val = liftIO $ setObjectPropertyString obj "secondary-icon-name" (Just val) constructEntrySecondaryIconName :: T.Text -> IO ([Char], GValue) -constructEntrySecondaryIconName val = constructObjectPropertyString "secondary-icon-name" val +constructEntrySecondaryIconName val = constructObjectPropertyString "secondary-icon-name" (Just val) +clearEntrySecondaryIconName :: (MonadIO m, EntryK o) => o -> m () +clearEntrySecondaryIconName obj = liftIO $ setObjectPropertyString obj "secondary-icon-name" (Nothing :: Maybe T.Text) + data EntrySecondaryIconNamePropertyInfo instance AttrInfo EntrySecondaryIconNamePropertyInfo where - type AttrAllowedOps EntrySecondaryIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps EntrySecondaryIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint EntrySecondaryIconNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint EntrySecondaryIconNamePropertyInfo = EntryK - type AttrGetType EntrySecondaryIconNamePropertyInfo = T.Text + type AttrGetType EntrySecondaryIconNamePropertyInfo = (Maybe T.Text) type AttrLabel EntrySecondaryIconNamePropertyInfo = "secondary-icon-name" attrGet _ = getEntrySecondaryIconName attrSet _ = setEntrySecondaryIconName attrConstruct _ = constructEntrySecondaryIconName + attrClear _ = clearEntrySecondaryIconName -- VVV Prop "secondary-icon-pixbuf" -- Type: TInterface "GdkPixbuf" "Pixbuf" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getEntrySecondaryIconPixbuf :: (MonadIO m, EntryK o) => o -> m GdkPixbuf.Pixbuf +getEntrySecondaryIconPixbuf :: (MonadIO m, EntryK o) => o -> m (Maybe GdkPixbuf.Pixbuf) getEntrySecondaryIconPixbuf obj = liftIO $ getObjectPropertyObject obj "secondary-icon-pixbuf" GdkPixbuf.Pixbuf setEntrySecondaryIconPixbuf :: (MonadIO m, EntryK o, GdkPixbuf.PixbufK a) => o -> a -> m () -setEntrySecondaryIconPixbuf obj val = liftIO $ setObjectPropertyObject obj "secondary-icon-pixbuf" val +setEntrySecondaryIconPixbuf obj val = liftIO $ setObjectPropertyObject obj "secondary-icon-pixbuf" (Just val) constructEntrySecondaryIconPixbuf :: (GdkPixbuf.PixbufK a) => a -> IO ([Char], GValue) -constructEntrySecondaryIconPixbuf val = constructObjectPropertyObject "secondary-icon-pixbuf" val +constructEntrySecondaryIconPixbuf val = constructObjectPropertyObject "secondary-icon-pixbuf" (Just val) +clearEntrySecondaryIconPixbuf :: (MonadIO m, EntryK o) => o -> m () +clearEntrySecondaryIconPixbuf obj = liftIO $ setObjectPropertyObject obj "secondary-icon-pixbuf" (Nothing :: Maybe GdkPixbuf.Pixbuf) + data EntrySecondaryIconPixbufPropertyInfo instance AttrInfo EntrySecondaryIconPixbufPropertyInfo where - type AttrAllowedOps EntrySecondaryIconPixbufPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps EntrySecondaryIconPixbufPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint EntrySecondaryIconPixbufPropertyInfo = GdkPixbuf.PixbufK type AttrBaseTypeConstraint EntrySecondaryIconPixbufPropertyInfo = EntryK - type AttrGetType EntrySecondaryIconPixbufPropertyInfo = GdkPixbuf.Pixbuf + type AttrGetType EntrySecondaryIconPixbufPropertyInfo = (Maybe GdkPixbuf.Pixbuf) type AttrLabel EntrySecondaryIconPixbufPropertyInfo = "secondary-icon-pixbuf" attrGet _ = getEntrySecondaryIconPixbuf attrSet _ = setEntrySecondaryIconPixbuf attrConstruct _ = constructEntrySecondaryIconPixbuf + attrClear _ = clearEntrySecondaryIconPixbuf -- VVV Prop "secondary-icon-sensitive" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getEntrySecondaryIconSensitive :: (MonadIO m, EntryK o) => o -> m Bool getEntrySecondaryIconSensitive obj = liftIO $ getObjectPropertyBool obj "secondary-icon-sensitive" @@ -2700,34 +2875,41 @@ attrGet _ = getEntrySecondaryIconSensitive attrSet _ = setEntrySecondaryIconSensitive attrConstruct _ = constructEntrySecondaryIconSensitive + attrClear _ = undefined -- VVV Prop "secondary-icon-stock" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getEntrySecondaryIconStock :: (MonadIO m, EntryK o) => o -> m T.Text +getEntrySecondaryIconStock :: (MonadIO m, EntryK o) => o -> m (Maybe T.Text) getEntrySecondaryIconStock obj = liftIO $ getObjectPropertyString obj "secondary-icon-stock" setEntrySecondaryIconStock :: (MonadIO m, EntryK o) => o -> T.Text -> m () -setEntrySecondaryIconStock obj val = liftIO $ setObjectPropertyString obj "secondary-icon-stock" val +setEntrySecondaryIconStock obj val = liftIO $ setObjectPropertyString obj "secondary-icon-stock" (Just val) constructEntrySecondaryIconStock :: T.Text -> IO ([Char], GValue) -constructEntrySecondaryIconStock val = constructObjectPropertyString "secondary-icon-stock" val +constructEntrySecondaryIconStock val = constructObjectPropertyString "secondary-icon-stock" (Just val) +clearEntrySecondaryIconStock :: (MonadIO m, EntryK o) => o -> m () +clearEntrySecondaryIconStock obj = liftIO $ setObjectPropertyString obj "secondary-icon-stock" (Nothing :: Maybe T.Text) + data EntrySecondaryIconStockPropertyInfo instance AttrInfo EntrySecondaryIconStockPropertyInfo where - type AttrAllowedOps EntrySecondaryIconStockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps EntrySecondaryIconStockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint EntrySecondaryIconStockPropertyInfo = (~) T.Text type AttrBaseTypeConstraint EntrySecondaryIconStockPropertyInfo = EntryK - type AttrGetType EntrySecondaryIconStockPropertyInfo = T.Text + type AttrGetType EntrySecondaryIconStockPropertyInfo = (Maybe T.Text) type AttrLabel EntrySecondaryIconStockPropertyInfo = "secondary-icon-stock" attrGet _ = getEntrySecondaryIconStock attrSet _ = setEntrySecondaryIconStock attrConstruct _ = constructEntrySecondaryIconStock + attrClear _ = clearEntrySecondaryIconStock -- VVV Prop "secondary-icon-storage-type" -- Type: TInterface "Gtk" "ImageType" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) getEntrySecondaryIconStorageType :: (MonadIO m, EntryK o) => o -> m ImageType getEntrySecondaryIconStorageType obj = liftIO $ getObjectPropertyEnum obj "secondary-icon-storage-type" @@ -2742,61 +2924,73 @@ attrGet _ = getEntrySecondaryIconStorageType attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "secondary-icon-tooltip-markup" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getEntrySecondaryIconTooltipMarkup :: (MonadIO m, EntryK o) => o -> m T.Text +getEntrySecondaryIconTooltipMarkup :: (MonadIO m, EntryK o) => o -> m (Maybe T.Text) getEntrySecondaryIconTooltipMarkup obj = liftIO $ getObjectPropertyString obj "secondary-icon-tooltip-markup" setEntrySecondaryIconTooltipMarkup :: (MonadIO m, EntryK o) => o -> T.Text -> m () -setEntrySecondaryIconTooltipMarkup obj val = liftIO $ setObjectPropertyString obj "secondary-icon-tooltip-markup" val +setEntrySecondaryIconTooltipMarkup obj val = liftIO $ setObjectPropertyString obj "secondary-icon-tooltip-markup" (Just val) constructEntrySecondaryIconTooltipMarkup :: T.Text -> IO ([Char], GValue) -constructEntrySecondaryIconTooltipMarkup val = constructObjectPropertyString "secondary-icon-tooltip-markup" val +constructEntrySecondaryIconTooltipMarkup val = constructObjectPropertyString "secondary-icon-tooltip-markup" (Just val) +clearEntrySecondaryIconTooltipMarkup :: (MonadIO m, EntryK o) => o -> m () +clearEntrySecondaryIconTooltipMarkup obj = liftIO $ setObjectPropertyString obj "secondary-icon-tooltip-markup" (Nothing :: Maybe T.Text) + data EntrySecondaryIconTooltipMarkupPropertyInfo instance AttrInfo EntrySecondaryIconTooltipMarkupPropertyInfo where - type AttrAllowedOps EntrySecondaryIconTooltipMarkupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps EntrySecondaryIconTooltipMarkupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint EntrySecondaryIconTooltipMarkupPropertyInfo = (~) T.Text type AttrBaseTypeConstraint EntrySecondaryIconTooltipMarkupPropertyInfo = EntryK - type AttrGetType EntrySecondaryIconTooltipMarkupPropertyInfo = T.Text + type AttrGetType EntrySecondaryIconTooltipMarkupPropertyInfo = (Maybe T.Text) type AttrLabel EntrySecondaryIconTooltipMarkupPropertyInfo = "secondary-icon-tooltip-markup" attrGet _ = getEntrySecondaryIconTooltipMarkup attrSet _ = setEntrySecondaryIconTooltipMarkup attrConstruct _ = constructEntrySecondaryIconTooltipMarkup + attrClear _ = clearEntrySecondaryIconTooltipMarkup -- VVV Prop "secondary-icon-tooltip-text" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getEntrySecondaryIconTooltipText :: (MonadIO m, EntryK o) => o -> m T.Text +getEntrySecondaryIconTooltipText :: (MonadIO m, EntryK o) => o -> m (Maybe T.Text) getEntrySecondaryIconTooltipText obj = liftIO $ getObjectPropertyString obj "secondary-icon-tooltip-text" setEntrySecondaryIconTooltipText :: (MonadIO m, EntryK o) => o -> T.Text -> m () -setEntrySecondaryIconTooltipText obj val = liftIO $ setObjectPropertyString obj "secondary-icon-tooltip-text" val +setEntrySecondaryIconTooltipText obj val = liftIO $ setObjectPropertyString obj "secondary-icon-tooltip-text" (Just val) constructEntrySecondaryIconTooltipText :: T.Text -> IO ([Char], GValue) -constructEntrySecondaryIconTooltipText val = constructObjectPropertyString "secondary-icon-tooltip-text" val +constructEntrySecondaryIconTooltipText val = constructObjectPropertyString "secondary-icon-tooltip-text" (Just val) +clearEntrySecondaryIconTooltipText :: (MonadIO m, EntryK o) => o -> m () +clearEntrySecondaryIconTooltipText obj = liftIO $ setObjectPropertyString obj "secondary-icon-tooltip-text" (Nothing :: Maybe T.Text) + data EntrySecondaryIconTooltipTextPropertyInfo instance AttrInfo EntrySecondaryIconTooltipTextPropertyInfo where - type AttrAllowedOps EntrySecondaryIconTooltipTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps EntrySecondaryIconTooltipTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint EntrySecondaryIconTooltipTextPropertyInfo = (~) T.Text type AttrBaseTypeConstraint EntrySecondaryIconTooltipTextPropertyInfo = EntryK - type AttrGetType EntrySecondaryIconTooltipTextPropertyInfo = T.Text + type AttrGetType EntrySecondaryIconTooltipTextPropertyInfo = (Maybe T.Text) type AttrLabel EntrySecondaryIconTooltipTextPropertyInfo = "secondary-icon-tooltip-text" attrGet _ = getEntrySecondaryIconTooltipText attrSet _ = setEntrySecondaryIconTooltipText attrConstruct _ = constructEntrySecondaryIconTooltipText + attrClear _ = clearEntrySecondaryIconTooltipText -- VVV Prop "selection-bound" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) getEntrySelectionBound :: (MonadIO m, EntryK o) => o -> m Int32 -getEntrySelectionBound obj = liftIO $ getObjectPropertyCInt obj "selection-bound" +getEntrySelectionBound obj = liftIO $ getObjectPropertyInt32 obj "selection-bound" data EntrySelectionBoundPropertyInfo instance AttrInfo EntrySelectionBoundPropertyInfo where @@ -2808,10 +3002,12 @@ attrGet _ = getEntrySelectionBound attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "shadow-type" -- Type: TInterface "Gtk" "ShadowType" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getEntryShadowType :: (MonadIO m, EntryK o) => o -> m ShadowType getEntryShadowType obj = liftIO $ getObjectPropertyEnum obj "shadow-type" @@ -2832,43 +3028,47 @@ attrGet _ = getEntryShadowType attrSet _ = setEntryShadowType attrConstruct _ = constructEntryShadowType + attrClear _ = undefined -- VVV Prop "tabs" -- Type: TInterface "Pango" "TabArray" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just True,Just False) -getEntryTabs :: (MonadIO m, EntryK o) => o -> m Pango.TabArray +getEntryTabs :: (MonadIO m, EntryK o) => o -> m (Maybe Pango.TabArray) getEntryTabs obj = liftIO $ getObjectPropertyBoxed obj "tabs" Pango.TabArray setEntryTabs :: (MonadIO m, EntryK o) => o -> Pango.TabArray -> m () -setEntryTabs obj val = liftIO $ setObjectPropertyBoxed obj "tabs" val +setEntryTabs obj val = liftIO $ setObjectPropertyBoxed obj "tabs" (Just val) constructEntryTabs :: Pango.TabArray -> IO ([Char], GValue) -constructEntryTabs val = constructObjectPropertyBoxed "tabs" val +constructEntryTabs val = constructObjectPropertyBoxed "tabs" (Just val) data EntryTabsPropertyInfo instance AttrInfo EntryTabsPropertyInfo where type AttrAllowedOps EntryTabsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint EntryTabsPropertyInfo = (~) Pango.TabArray type AttrBaseTypeConstraint EntryTabsPropertyInfo = EntryK - type AttrGetType EntryTabsPropertyInfo = Pango.TabArray + type AttrGetType EntryTabsPropertyInfo = (Maybe Pango.TabArray) type AttrLabel EntryTabsPropertyInfo = "tabs" attrGet _ = getEntryTabs attrSet _ = setEntryTabs attrConstruct _ = constructEntryTabs + attrClear _ = undefined -- VVV Prop "text" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getEntryText :: (MonadIO m, EntryK o) => o -> m T.Text -getEntryText obj = liftIO $ getObjectPropertyString obj "text" +getEntryText obj = liftIO $ checkUnexpectedNothing "getEntryText" $ getObjectPropertyString obj "text" setEntryText :: (MonadIO m, EntryK o) => o -> T.Text -> m () -setEntryText obj val = liftIO $ setObjectPropertyString obj "text" val +setEntryText obj val = liftIO $ setObjectPropertyString obj "text" (Just val) constructEntryText :: T.Text -> IO ([Char], GValue) -constructEntryText val = constructObjectPropertyString "text" val +constructEntryText val = constructObjectPropertyString "text" (Just val) data EntryTextPropertyInfo instance AttrInfo EntryTextPropertyInfo where @@ -2880,13 +3080,15 @@ attrGet _ = getEntryText attrSet _ = setEntryText attrConstruct _ = constructEntryText + attrClear _ = undefined -- VVV Prop "text-length" - -- Type: TBasicType TUInt32 + -- Type: TBasicType TUInt -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) getEntryTextLength :: (MonadIO m, EntryK o) => o -> m Word32 -getEntryTextLength obj = liftIO $ getObjectPropertyCUInt obj "text-length" +getEntryTextLength obj = liftIO $ getObjectPropertyUInt32 obj "text-length" data EntryTextLengthPropertyInfo instance AttrInfo EntryTextLengthPropertyInfo where @@ -2898,10 +3100,12 @@ attrGet _ = getEntryTextLength attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "truncate-multiline" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getEntryTruncateMultiline :: (MonadIO m, EntryK o) => o -> m Bool getEntryTruncateMultiline obj = liftIO $ getObjectPropertyBool obj "truncate-multiline" @@ -2922,10 +3126,12 @@ attrGet _ = getEntryTruncateMultiline attrSet _ = setEntryTruncateMultiline attrConstruct _ = constructEntryTruncateMultiline + attrClear _ = undefined -- VVV Prop "visibility" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getEntryVisibility :: (MonadIO m, EntryK o) => o -> m Bool getEntryVisibility obj = liftIO $ getObjectPropertyBool obj "visibility" @@ -2946,19 +3152,21 @@ attrGet _ = getEntryVisibility attrSet _ = setEntryVisibility attrConstruct _ = constructEntryVisibility + attrClear _ = undefined -- VVV Prop "width-chars" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getEntryWidthChars :: (MonadIO m, EntryK o) => o -> m Int32 -getEntryWidthChars obj = liftIO $ getObjectPropertyCInt obj "width-chars" +getEntryWidthChars obj = liftIO $ getObjectPropertyInt32 obj "width-chars" setEntryWidthChars :: (MonadIO m, EntryK o) => o -> Int32 -> m () -setEntryWidthChars obj val = liftIO $ setObjectPropertyCInt obj "width-chars" val +setEntryWidthChars obj val = liftIO $ setObjectPropertyInt32 obj "width-chars" val constructEntryWidthChars :: Int32 -> IO ([Char], GValue) -constructEntryWidthChars val = constructObjectPropertyCInt "width-chars" val +constructEntryWidthChars val = constructObjectPropertyInt32 "width-chars" val data EntryWidthCharsPropertyInfo instance AttrInfo EntryWidthCharsPropertyInfo where @@ -2970,10 +3178,12 @@ attrGet _ = getEntryWidthChars attrSet _ = setEntryWidthChars attrConstruct _ = constructEntryWidthChars + attrClear _ = undefined -- VVV Prop "xalign" -- Type: TBasicType TFloat -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getEntryXalign :: (MonadIO m, EntryK o) => o -> m Float getEntryXalign obj = liftIO $ getObjectPropertyFloat obj "xalign" @@ -2994,10 +3204,158 @@ attrGet _ = getEntryXalign attrSet _ = setEntryXalign attrConstruct _ = constructEntryXalign + attrClear _ = undefined type instance AttributeList Entry = EntryAttributeList type EntryAttributeList = ('[ '("activatesDefault", EntryActivatesDefaultPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("attributes", EntryAttributesPropertyInfo), '("buffer", EntryBufferPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("capsLockWarning", EntryCapsLockWarningPropertyInfo), '("completion", EntryCompletionPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("cursorPosition", EntryCursorPositionPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("editable", EntryEditablePropertyInfo), '("editingCanceled", CellEditableEditingCanceledPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasFrame", EntryHasFramePropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("imModule", EntryImModulePropertyInfo), '("innerBorder", EntryInnerBorderPropertyInfo), '("inputHints", EntryInputHintsPropertyInfo), '("inputPurpose", EntryInputPurposePropertyInfo), '("invisibleChar", EntryInvisibleCharPropertyInfo), '("invisibleCharSet", EntryInvisibleCharSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("maxLength", EntryMaxLengthPropertyInfo), '("maxWidthChars", EntryMaxWidthCharsPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("overwriteMode", EntryOverwriteModePropertyInfo), '("parent", WidgetParentPropertyInfo), '("placeholderText", EntryPlaceholderTextPropertyInfo), '("populateAll", EntryPopulateAllPropertyInfo), '("primaryIconActivatable", EntryPrimaryIconActivatablePropertyInfo), '("primaryIconGicon", EntryPrimaryIconGiconPropertyInfo), '("primaryIconName", EntryPrimaryIconNamePropertyInfo), '("primaryIconPixbuf", EntryPrimaryIconPixbufPropertyInfo), '("primaryIconSensitive", EntryPrimaryIconSensitivePropertyInfo), '("primaryIconStock", EntryPrimaryIconStockPropertyInfo), '("primaryIconStorageType", EntryPrimaryIconStorageTypePropertyInfo), '("primaryIconTooltipMarkup", EntryPrimaryIconTooltipMarkupPropertyInfo), '("primaryIconTooltipText", EntryPrimaryIconTooltipTextPropertyInfo), '("progressFraction", EntryProgressFractionPropertyInfo), '("progressPulseStep", EntryProgressPulseStepPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("scrollOffset", EntryScrollOffsetPropertyInfo), '("secondaryIconActivatable", EntrySecondaryIconActivatablePropertyInfo), '("secondaryIconGicon", EntrySecondaryIconGiconPropertyInfo), '("secondaryIconName", EntrySecondaryIconNamePropertyInfo), '("secondaryIconPixbuf", EntrySecondaryIconPixbufPropertyInfo), '("secondaryIconSensitive", EntrySecondaryIconSensitivePropertyInfo), '("secondaryIconStock", EntrySecondaryIconStockPropertyInfo), '("secondaryIconStorageType", EntrySecondaryIconStorageTypePropertyInfo), '("secondaryIconTooltipMarkup", EntrySecondaryIconTooltipMarkupPropertyInfo), '("secondaryIconTooltipText", EntrySecondaryIconTooltipTextPropertyInfo), '("selectionBound", EntrySelectionBoundPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadowType", EntryShadowTypePropertyInfo), '("style", WidgetStylePropertyInfo), '("tabs", EntryTabsPropertyInfo), '("text", EntryTextPropertyInfo), '("textLength", EntryTextLengthPropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("truncateMultiline", EntryTruncateMultilinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visibility", EntryVisibilityPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthChars", EntryWidthCharsPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", EntryXalignPropertyInfo)] :: [(Symbol, *)]) +entryActivatesDefault :: AttrLabelProxy "activatesDefault" +entryActivatesDefault = AttrLabelProxy + +entryAttributes :: AttrLabelProxy "attributes" +entryAttributes = AttrLabelProxy + +entryBuffer :: AttrLabelProxy "buffer" +entryBuffer = AttrLabelProxy + +entryCapsLockWarning :: AttrLabelProxy "capsLockWarning" +entryCapsLockWarning = AttrLabelProxy + +entryCompletion :: AttrLabelProxy "completion" +entryCompletion = AttrLabelProxy + +entryCursorPosition :: AttrLabelProxy "cursorPosition" +entryCursorPosition = AttrLabelProxy + +entryEditable :: AttrLabelProxy "editable" +entryEditable = AttrLabelProxy + +entryHasFrame :: AttrLabelProxy "hasFrame" +entryHasFrame = AttrLabelProxy + +entryImModule :: AttrLabelProxy "imModule" +entryImModule = AttrLabelProxy + +entryInnerBorder :: AttrLabelProxy "innerBorder" +entryInnerBorder = AttrLabelProxy + +entryInputHints :: AttrLabelProxy "inputHints" +entryInputHints = AttrLabelProxy + +entryInputPurpose :: AttrLabelProxy "inputPurpose" +entryInputPurpose = AttrLabelProxy + +entryInvisibleChar :: AttrLabelProxy "invisibleChar" +entryInvisibleChar = AttrLabelProxy + +entryInvisibleCharSet :: AttrLabelProxy "invisibleCharSet" +entryInvisibleCharSet = AttrLabelProxy + +entryMaxLength :: AttrLabelProxy "maxLength" +entryMaxLength = AttrLabelProxy + +entryMaxWidthChars :: AttrLabelProxy "maxWidthChars" +entryMaxWidthChars = AttrLabelProxy + +entryOverwriteMode :: AttrLabelProxy "overwriteMode" +entryOverwriteMode = AttrLabelProxy + +entryPlaceholderText :: AttrLabelProxy "placeholderText" +entryPlaceholderText = AttrLabelProxy + +entryPopulateAll :: AttrLabelProxy "populateAll" +entryPopulateAll = AttrLabelProxy + +entryPrimaryIconActivatable :: AttrLabelProxy "primaryIconActivatable" +entryPrimaryIconActivatable = AttrLabelProxy + +entryPrimaryIconGicon :: AttrLabelProxy "primaryIconGicon" +entryPrimaryIconGicon = AttrLabelProxy + +entryPrimaryIconName :: AttrLabelProxy "primaryIconName" +entryPrimaryIconName = AttrLabelProxy + +entryPrimaryIconPixbuf :: AttrLabelProxy "primaryIconPixbuf" +entryPrimaryIconPixbuf = AttrLabelProxy + +entryPrimaryIconSensitive :: AttrLabelProxy "primaryIconSensitive" +entryPrimaryIconSensitive = AttrLabelProxy + +entryPrimaryIconStock :: AttrLabelProxy "primaryIconStock" +entryPrimaryIconStock = AttrLabelProxy + +entryPrimaryIconStorageType :: AttrLabelProxy "primaryIconStorageType" +entryPrimaryIconStorageType = AttrLabelProxy + +entryPrimaryIconTooltipMarkup :: AttrLabelProxy "primaryIconTooltipMarkup" +entryPrimaryIconTooltipMarkup = AttrLabelProxy + +entryPrimaryIconTooltipText :: AttrLabelProxy "primaryIconTooltipText" +entryPrimaryIconTooltipText = AttrLabelProxy + +entryProgressFraction :: AttrLabelProxy "progressFraction" +entryProgressFraction = AttrLabelProxy + +entryProgressPulseStep :: AttrLabelProxy "progressPulseStep" +entryProgressPulseStep = AttrLabelProxy + +entryScrollOffset :: AttrLabelProxy "scrollOffset" +entryScrollOffset = AttrLabelProxy + +entrySecondaryIconActivatable :: AttrLabelProxy "secondaryIconActivatable" +entrySecondaryIconActivatable = AttrLabelProxy + +entrySecondaryIconGicon :: AttrLabelProxy "secondaryIconGicon" +entrySecondaryIconGicon = AttrLabelProxy + +entrySecondaryIconName :: AttrLabelProxy "secondaryIconName" +entrySecondaryIconName = AttrLabelProxy + +entrySecondaryIconPixbuf :: AttrLabelProxy "secondaryIconPixbuf" +entrySecondaryIconPixbuf = AttrLabelProxy + +entrySecondaryIconSensitive :: AttrLabelProxy "secondaryIconSensitive" +entrySecondaryIconSensitive = AttrLabelProxy + +entrySecondaryIconStock :: AttrLabelProxy "secondaryIconStock" +entrySecondaryIconStock = AttrLabelProxy + +entrySecondaryIconStorageType :: AttrLabelProxy "secondaryIconStorageType" +entrySecondaryIconStorageType = AttrLabelProxy + +entrySecondaryIconTooltipMarkup :: AttrLabelProxy "secondaryIconTooltipMarkup" +entrySecondaryIconTooltipMarkup = AttrLabelProxy + +entrySecondaryIconTooltipText :: AttrLabelProxy "secondaryIconTooltipText" +entrySecondaryIconTooltipText = AttrLabelProxy + +entrySelectionBound :: AttrLabelProxy "selectionBound" +entrySelectionBound = AttrLabelProxy + +entryShadowType :: AttrLabelProxy "shadowType" +entryShadowType = AttrLabelProxy + +entryTabs :: AttrLabelProxy "tabs" +entryTabs = AttrLabelProxy + +entryText :: AttrLabelProxy "text" +entryText = AttrLabelProxy + +entryTextLength :: AttrLabelProxy "textLength" +entryTextLength = AttrLabelProxy + +entryTruncateMultiline :: AttrLabelProxy "truncateMultiline" +entryTruncateMultiline = AttrLabelProxy + +entryVisibility :: AttrLabelProxy "visibility" +entryVisibility = AttrLabelProxy + +entryWidthChars :: AttrLabelProxy "widthChars" +entryWidthChars = AttrLabelProxy + +entryXalign :: AttrLabelProxy "xalign" +entryXalign = AttrLabelProxy + data EntryActivateSignalInfo instance SignalInfo EntryActivateSignalInfo where type HaskellCallbackType EntryActivateSignalInfo = EntryActivateCallback @@ -3070,7 +3428,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "Entry" +-- returnType : Just (TInterface "Gtk" "Entry") -- throws : False -- Skip return : False @@ -3091,7 +3449,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "buffer", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Entry" +-- returnType : Just (TInterface "Gtk" "Entry") -- throws : False -- Skip return : False @@ -3116,7 +3474,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3144,7 +3502,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TFloat +-- returnType : Just (TBasicType TFloat) -- throws : False -- Skip return : False @@ -3172,7 +3530,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Pango" "AttrList" +-- returnType : Just (TInterface "Pango" "AttrList") -- throws : False -- Skip return : False @@ -3184,24 +3542,25 @@ entryGetAttributes :: (MonadIO m, EntryK a) => a -- _obj - -> m Pango.AttrList -- result + -> m (Maybe Pango.AttrList) -- result entryGetAttributes _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_entry_get_attributes _obj' - checkUnexpectedReturnNULL "gtk_entry_get_attributes" result - result' <- (newBoxed Pango.AttrList) result + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (newBoxed Pango.AttrList) result' + return result'' touchManagedPtr _obj - return result' + return maybeResult data EntryGetAttributesMethodInfo -instance (signature ~ (m Pango.AttrList), MonadIO m, EntryK a) => MethodInfo EntryGetAttributesMethodInfo a signature where +instance (signature ~ (m (Maybe Pango.AttrList)), MonadIO m, EntryK a) => MethodInfo EntryGetAttributesMethodInfo a signature where overloadedMethod _ = entryGetAttributes -- method Entry::get_buffer -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "EntryBuffer" +-- returnType : Just (TInterface "Gtk" "EntryBuffer") -- throws : False -- Skip return : False @@ -3230,7 +3589,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "EntryCompletion" +-- returnType : Just (TInterface "Gtk" "EntryCompletion") -- throws : False -- Skip return : False @@ -3259,7 +3618,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -3286,7 +3645,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Adjustment" +-- returnType : Just (TInterface "Gtk" "Adjustment") -- throws : False -- Skip return : False @@ -3298,24 +3657,25 @@ entryGetCursorHadjustment :: (MonadIO m, EntryK a) => a -- _obj - -> m Adjustment -- result + -> m (Maybe Adjustment) -- result entryGetCursorHadjustment _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_entry_get_cursor_hadjustment _obj' - checkUnexpectedReturnNULL "gtk_entry_get_cursor_hadjustment" result - result' <- (newObject Adjustment) result + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (newObject Adjustment) result' + return result'' touchManagedPtr _obj - return result' + return maybeResult data EntryGetCursorHadjustmentMethodInfo -instance (signature ~ (m Adjustment), MonadIO m, EntryK a) => MethodInfo EntryGetCursorHadjustmentMethodInfo a signature where +instance (signature ~ (m (Maybe Adjustment)), MonadIO m, EntryK a) => MethodInfo EntryGetCursorHadjustmentMethodInfo a signature where overloadedMethod _ = entryGetCursorHadjustment -- method Entry::get_has_frame -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3343,7 +3703,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3374,7 +3734,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3405,16 +3765,16 @@ -- method Entry::get_icon_at_pos -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", 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 : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False foreign import ccall "gtk_entry_get_icon_at_pos" gtk_entry_get_icon_at_pos :: Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - Int32 -> -- x : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 + Int32 -> -- x : TBasicType TInt + Int32 -> -- y : TBasicType TInt IO Int32 @@ -3438,7 +3798,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gio" "Icon" +-- returnType : Just (TInterface "Gio" "Icon") -- throws : False -- Skip return : False @@ -3452,25 +3812,26 @@ (MonadIO m, EntryK a) => a -- _obj -> EntryIconPosition -- iconPos - -> m Gio.Icon -- result + -> m (Maybe Gio.Icon) -- result entryGetIconGicon _obj iconPos = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let iconPos' = (fromIntegral . fromEnum) iconPos result <- gtk_entry_get_icon_gicon _obj' iconPos' - checkUnexpectedReturnNULL "gtk_entry_get_icon_gicon" result - result' <- (newObject Gio.Icon) result + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (newObject Gio.Icon) result' + return result'' touchManagedPtr _obj - return result' + return maybeResult data EntryGetIconGiconMethodInfo -instance (signature ~ (EntryIconPosition -> m Gio.Icon), MonadIO m, EntryK a) => MethodInfo EntryGetIconGiconMethodInfo a signature where +instance (signature ~ (EntryIconPosition -> m (Maybe Gio.Icon)), MonadIO m, EntryK a) => MethodInfo EntryGetIconGiconMethodInfo a signature where overloadedMethod _ = entryGetIconGicon -- method Entry::get_icon_name -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -3484,25 +3845,26 @@ (MonadIO m, EntryK a) => a -- _obj -> EntryIconPosition -- iconPos - -> m T.Text -- result + -> m (Maybe T.Text) -- result entryGetIconName _obj iconPos = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let iconPos' = (fromIntegral . fromEnum) iconPos result <- gtk_entry_get_icon_name _obj' iconPos' - checkUnexpectedReturnNULL "gtk_entry_get_icon_name" result - result' <- cstringToText result + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- cstringToText result' + return result'' touchManagedPtr _obj - return result' + return maybeResult data EntryGetIconNameMethodInfo -instance (signature ~ (EntryIconPosition -> m T.Text), MonadIO m, EntryK a) => MethodInfo EntryGetIconNameMethodInfo a signature where +instance (signature ~ (EntryIconPosition -> m (Maybe T.Text)), MonadIO m, EntryK a) => MethodInfo EntryGetIconNameMethodInfo a signature where overloadedMethod _ = entryGetIconName -- method Entry::get_icon_pixbuf -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : False -- Skip return : False @@ -3516,25 +3878,26 @@ (MonadIO m, EntryK a) => a -- _obj -> EntryIconPosition -- iconPos - -> m GdkPixbuf.Pixbuf -- result + -> m (Maybe GdkPixbuf.Pixbuf) -- result entryGetIconPixbuf _obj iconPos = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let iconPos' = (fromIntegral . fromEnum) iconPos result <- gtk_entry_get_icon_pixbuf _obj' iconPos' - checkUnexpectedReturnNULL "gtk_entry_get_icon_pixbuf" result - result' <- (newObject GdkPixbuf.Pixbuf) result + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (newObject GdkPixbuf.Pixbuf) result' + return result'' touchManagedPtr _obj - return result' + return maybeResult data EntryGetIconPixbufMethodInfo -instance (signature ~ (EntryIconPosition -> m GdkPixbuf.Pixbuf), MonadIO m, EntryK a) => MethodInfo EntryGetIconPixbufMethodInfo a signature where +instance (signature ~ (EntryIconPosition -> m (Maybe GdkPixbuf.Pixbuf)), MonadIO m, EntryK a) => MethodInfo EntryGetIconPixbufMethodInfo a signature where overloadedMethod _ = entryGetIconPixbuf -- method Entry::get_icon_sensitive -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3565,7 +3928,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -3597,7 +3960,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "ImageType" +-- returnType : Just (TInterface "Gtk" "ImageType") -- throws : False -- Skip return : False @@ -3628,7 +3991,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -3642,26 +4005,27 @@ (MonadIO m, EntryK a) => a -- _obj -> EntryIconPosition -- iconPos - -> m T.Text -- result + -> m (Maybe T.Text) -- result entryGetIconTooltipMarkup _obj iconPos = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let iconPos' = (fromIntegral . fromEnum) iconPos result <- gtk_entry_get_icon_tooltip_markup _obj' iconPos' - checkUnexpectedReturnNULL "gtk_entry_get_icon_tooltip_markup" result - result' <- cstringToText result - freeMem result + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- cstringToText result' + freeMem result' + return result'' touchManagedPtr _obj - return result' + return maybeResult data EntryGetIconTooltipMarkupMethodInfo -instance (signature ~ (EntryIconPosition -> m T.Text), MonadIO m, EntryK a) => MethodInfo EntryGetIconTooltipMarkupMethodInfo a signature where +instance (signature ~ (EntryIconPosition -> m (Maybe T.Text)), MonadIO m, EntryK a) => MethodInfo EntryGetIconTooltipMarkupMethodInfo a signature where overloadedMethod _ = entryGetIconTooltipMarkup -- method Entry::get_icon_tooltip_text -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -3675,26 +4039,27 @@ (MonadIO m, EntryK a) => a -- _obj -> EntryIconPosition -- iconPos - -> m T.Text -- result + -> m (Maybe T.Text) -- result entryGetIconTooltipText _obj iconPos = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let iconPos' = (fromIntegral . fromEnum) iconPos result <- gtk_entry_get_icon_tooltip_text _obj' iconPos' - checkUnexpectedReturnNULL "gtk_entry_get_icon_tooltip_text" result - result' <- cstringToText result - freeMem result + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- cstringToText result' + freeMem result' + return result'' touchManagedPtr _obj - return result' + return maybeResult data EntryGetIconTooltipTextMethodInfo -instance (signature ~ (EntryIconPosition -> m T.Text), MonadIO m, EntryK a) => MethodInfo EntryGetIconTooltipTextMethodInfo a signature where +instance (signature ~ (EntryIconPosition -> m (Maybe T.Text)), MonadIO m, EntryK a) => MethodInfo EntryGetIconTooltipTextMethodInfo a signature where overloadedMethod _ = entryGetIconTooltipText -- method Entry::get_inner_border -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Border" +-- returnType : Just (TInterface "Gtk" "Border") -- throws : False -- Skip return : False @@ -3706,24 +4071,25 @@ entryGetInnerBorder :: (MonadIO m, EntryK a) => a -- _obj - -> m Border -- result + -> m (Maybe Border) -- result entryGetInnerBorder _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_entry_get_inner_border _obj' - checkUnexpectedReturnNULL "gtk_entry_get_inner_border" result - result' <- (newBoxed Border) result + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (newBoxed Border) result' + return result'' touchManagedPtr _obj - return result' + return maybeResult data EntryGetInnerBorderMethodInfo -instance (signature ~ (m Border), MonadIO m, EntryK a) => MethodInfo EntryGetInnerBorderMethodInfo a signature where +instance (signature ~ (m (Maybe Border)), MonadIO m, EntryK a) => MethodInfo EntryGetInnerBorderMethodInfo a signature where overloadedMethod _ = entryGetInnerBorder -- method Entry::get_input_hints -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "InputHints" +-- returnType : Just (TInterface "Gtk" "InputHints") -- throws : False -- Skip return : False @@ -3751,7 +4117,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "InputPurpose" +-- returnType : Just (TInterface "Gtk" "InputPurpose") -- throws : False -- Skip return : False @@ -3779,7 +4145,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUniChar +-- returnType : Just (TBasicType TUniChar) -- throws : False -- Skip return : False @@ -3807,7 +4173,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Pango" "Layout" +-- returnType : Just (TInterface "Pango" "Layout") -- throws : False -- Skip return : False @@ -3834,16 +4200,16 @@ -- method Entry::get_layout_offsets -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_entry_get_layout_offsets" gtk_entry_get_layout_offsets :: Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - Ptr Int32 -> -- x : TBasicType TInt32 - Ptr Int32 -> -- y : TBasicType TInt32 + Ptr Int32 -> -- x : TBasicType TInt + Ptr Int32 -> -- y : TBasicType TInt IO () @@ -3871,7 +4237,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -3898,7 +4264,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -3925,7 +4291,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3953,7 +4319,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -3982,7 +4348,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -4010,7 +4376,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -4038,7 +4404,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Pango" "TabArray" +-- returnType : Just (TInterface "Pango" "TabArray") -- throws : False -- Skip return : False @@ -4050,24 +4416,25 @@ entryGetTabs :: (MonadIO m, EntryK a) => a -- _obj - -> m Pango.TabArray -- result + -> m (Maybe Pango.TabArray) -- result entryGetTabs _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_entry_get_tabs _obj' - checkUnexpectedReturnNULL "gtk_entry_get_tabs" result - result' <- (newBoxed Pango.TabArray) result + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (newBoxed Pango.TabArray) result' + return result'' touchManagedPtr _obj - return result' + return maybeResult data EntryGetTabsMethodInfo -instance (signature ~ (m Pango.TabArray), MonadIO m, EntryK a) => MethodInfo EntryGetTabsMethodInfo a signature where +instance (signature ~ (m (Maybe Pango.TabArray)), MonadIO m, EntryK a) => MethodInfo EntryGetTabsMethodInfo a signature where overloadedMethod _ = entryGetTabs -- method Entry::get_text -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -4096,7 +4463,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4126,7 +4493,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt16 +-- returnType : Just (TBasicType TUInt16) -- throws : False -- Skip return : False @@ -4153,7 +4520,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -4181,7 +4548,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -4208,7 +4575,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4235,7 +4602,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "EventKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -4265,15 +4632,15 @@ -- method Entry::layout_index_to_text_index -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "layout_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "layout_index", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False foreign import ccall "gtk_entry_layout_index_to_text_index" gtk_entry_layout_index_to_text_index :: Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - Int32 -> -- layout_index : TBasicType TInt32 + Int32 -> -- layout_index : TBasicType TInt IO Int32 @@ -4296,7 +4663,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4323,7 +4690,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4350,7 +4717,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4380,7 +4747,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4410,7 +4777,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attrs", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4441,7 +4808,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4472,7 +4839,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "completion", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4507,7 +4874,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4542,7 +4909,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4572,7 +4939,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "activatable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4605,7 +4972,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target_list", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4642,7 +5009,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4680,7 +5047,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4718,7 +5085,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4756,7 +5123,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4794,7 +5161,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4827,7 +5194,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4865,7 +5232,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4903,7 +5270,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "border", argType = TInterface "Gtk" "Border", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4938,7 +5305,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hints", argType = TInterface "Gtk" "InputHints", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4968,7 +5335,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "purpose", argType = TInterface "Gtk" "InputPurpose", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4998,7 +5365,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5026,15 +5393,15 @@ -- method Entry::set_max_length -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_entry_set_max_length" gtk_entry_set_max_length :: Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - Int32 -> -- max : TBasicType TInt32 + Int32 -> -- max : TBasicType TInt IO () @@ -5055,15 +5422,15 @@ -- method Entry::set_max_width_chars -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_entry_set_max_width_chars" gtk_entry_set_max_width_chars :: Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - Int32 -> -- n_chars : TBasicType TInt32 + Int32 -> -- n_chars : TBasicType TInt IO () @@ -5086,7 +5453,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "overwrite", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5116,7 +5483,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5151,7 +5518,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fraction", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5181,7 +5548,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fraction", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5211,7 +5578,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tabs", argType = TInterface "Pango" "TabArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5242,7 +5609,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5273,7 +5640,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5301,15 +5668,15 @@ -- method Entry::set_width_chars -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_entry_set_width_chars" gtk_entry_set_width_chars :: Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - Int32 -> -- n_chars : TBasicType TInt32 + Int32 -> -- n_chars : TBasicType TInt IO () @@ -5330,15 +5697,15 @@ -- method Entry::text_index_to_layout_index -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text_index", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False foreign import ccall "gtk_entry_text_index_to_layout_index" gtk_entry_text_index_to_layout_index :: Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - Int32 -> -- text_index : TBasicType TInt32 + Int32 -> -- text_index : TBasicType TInt IO Int32 @@ -5361,7 +5728,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/Entry.hs-boot b/GI/Gtk/Objects/Entry.hs-boot --- a/GI/Gtk/Objects/Entry.hs-boot +++ b/GI/Gtk/Objects/Entry.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.Entry where -import Prelude () 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 diff --git a/GI/Gtk/Objects/EntryAccessible.hs b/GI/Gtk/Objects/EntryAccessible.hs --- a/GI/Gtk/Objects/EntryAccessible.hs +++ b/GI/Gtk/Objects/EntryAccessible.hs @@ -18,9 +18,9 @@ ) where -import Prelude () 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 diff --git a/GI/Gtk/Objects/EntryAccessible.hs-boot b/GI/Gtk/Objects/EntryAccessible.hs-boot --- a/GI/Gtk/Objects/EntryAccessible.hs-boot +++ b/GI/Gtk/Objects/EntryAccessible.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.EntryAccessible where -import Prelude () 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 diff --git a/GI/Gtk/Objects/EntryBuffer.hs b/GI/Gtk/Objects/EntryBuffer.hs --- a/GI/Gtk/Objects/EntryBuffer.hs +++ b/GI/Gtk/Objects/EntryBuffer.hs @@ -76,19 +76,23 @@ -- * Properties -- ** Length EntryBufferLengthPropertyInfo , + entryBufferLength , getEntryBufferLength , -- ** MaxLength EntryBufferMaxLengthPropertyInfo , constructEntryBufferMaxLength , + entryBufferMaxLength , getEntryBufferMaxLength , setEntryBufferMaxLength , -- ** Text EntryBufferTextPropertyInfo , + clearEntryBufferText , constructEntryBufferText , + entryBufferText , getEntryBufferText , setEntryBufferText , @@ -124,9 +128,9 @@ ) where -import Prelude () 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 @@ -292,11 +296,12 @@ connectSignalFunPtr obj "inserted-text" cb' after -- VVV Prop "length" - -- Type: TBasicType TUInt32 + -- Type: TBasicType TUInt -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getEntryBufferLength :: (MonadIO m, EntryBufferK o) => o -> m Word32 -getEntryBufferLength obj = liftIO $ getObjectPropertyCUInt obj "length" +getEntryBufferLength obj = liftIO $ getObjectPropertyUInt32 obj "length" data EntryBufferLengthPropertyInfo instance AttrInfo EntryBufferLengthPropertyInfo where @@ -308,19 +313,21 @@ attrGet _ = getEntryBufferLength attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "max-length" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getEntryBufferMaxLength :: (MonadIO m, EntryBufferK o) => o -> m Int32 -getEntryBufferMaxLength obj = liftIO $ getObjectPropertyCInt obj "max-length" +getEntryBufferMaxLength obj = liftIO $ getObjectPropertyInt32 obj "max-length" setEntryBufferMaxLength :: (MonadIO m, EntryBufferK o) => o -> Int32 -> m () -setEntryBufferMaxLength obj val = liftIO $ setObjectPropertyCInt obj "max-length" val +setEntryBufferMaxLength obj val = liftIO $ setObjectPropertyInt32 obj "max-length" val constructEntryBufferMaxLength :: Int32 -> IO ([Char], GValue) -constructEntryBufferMaxLength val = constructObjectPropertyCInt "max-length" val +constructEntryBufferMaxLength val = constructObjectPropertyInt32 "max-length" val data EntryBufferMaxLengthPropertyInfo instance AttrInfo EntryBufferMaxLengthPropertyInfo where @@ -332,23 +339,28 @@ attrGet _ = getEntryBufferMaxLength attrSet _ = setEntryBufferMaxLength attrConstruct _ = constructEntryBufferMaxLength + attrClear _ = undefined -- VVV Prop "text" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Nothing) getEntryBufferText :: (MonadIO m, EntryBufferK o) => o -> m T.Text -getEntryBufferText obj = liftIO $ getObjectPropertyString obj "text" +getEntryBufferText obj = liftIO $ checkUnexpectedNothing "getEntryBufferText" $ getObjectPropertyString obj "text" setEntryBufferText :: (MonadIO m, EntryBufferK o) => o -> T.Text -> m () -setEntryBufferText obj val = liftIO $ setObjectPropertyString obj "text" val +setEntryBufferText obj val = liftIO $ setObjectPropertyString obj "text" (Just val) constructEntryBufferText :: T.Text -> IO ([Char], GValue) -constructEntryBufferText val = constructObjectPropertyString "text" val +constructEntryBufferText val = constructObjectPropertyString "text" (Just val) +clearEntryBufferText :: (MonadIO m, EntryBufferK o) => o -> m () +clearEntryBufferText obj = liftIO $ setObjectPropertyString obj "text" (Nothing :: Maybe T.Text) + data EntryBufferTextPropertyInfo instance AttrInfo EntryBufferTextPropertyInfo where - type AttrAllowedOps EntryBufferTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps EntryBufferTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint EntryBufferTextPropertyInfo = (~) T.Text type AttrBaseTypeConstraint EntryBufferTextPropertyInfo = EntryBufferK type AttrGetType EntryBufferTextPropertyInfo = T.Text @@ -356,10 +368,20 @@ attrGet _ = getEntryBufferText attrSet _ = setEntryBufferText attrConstruct _ = constructEntryBufferText + attrClear _ = clearEntryBufferText type instance AttributeList EntryBuffer = EntryBufferAttributeList type EntryBufferAttributeList = ('[ '("length", EntryBufferLengthPropertyInfo), '("maxLength", EntryBufferMaxLengthPropertyInfo), '("text", EntryBufferTextPropertyInfo)] :: [(Symbol, *)]) +entryBufferLength :: AttrLabelProxy "length" +entryBufferLength = AttrLabelProxy + +entryBufferMaxLength :: AttrLabelProxy "maxLength" +entryBufferMaxLength = AttrLabelProxy + +entryBufferText :: AttrLabelProxy "text" +entryBufferText = AttrLabelProxy + data EntryBufferDeletedTextSignalInfo instance SignalInfo EntryBufferDeletedTextSignalInfo where type HaskellCallbackType EntryBufferDeletedTextSignalInfo = EntryBufferDeletedTextCallback @@ -375,15 +397,15 @@ -- method EntryBuffer::new -- method type : Constructor --- Args : [Arg {argCName = "initial_chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_initial_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "initial_chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_initial_chars", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "EntryBuffer" +-- returnType : Just (TInterface "Gtk" "EntryBuffer") -- throws : False -- Skip return : False foreign import ccall "gtk_entry_buffer_new" gtk_entry_buffer_new :: CString -> -- initial_chars : TBasicType TUTF8 - Int32 -> -- n_initial_chars : TBasicType TInt32 + Int32 -> -- n_initial_chars : TBasicType TInt IO (Ptr EntryBuffer) @@ -406,16 +428,16 @@ -- method EntryBuffer::delete_text -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt32 +-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False foreign import ccall "gtk_entry_buffer_delete_text" gtk_entry_buffer_delete_text :: Ptr EntryBuffer -> -- _obj : TInterface "Gtk" "EntryBuffer" - Word32 -> -- position : TBasicType TUInt32 - Int32 -> -- n_chars : TBasicType TInt32 + Word32 -> -- position : TBasicType TUInt + Int32 -> -- n_chars : TBasicType TInt IO Word32 @@ -437,16 +459,16 @@ -- method EntryBuffer::emit_deleted_text -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_entry_buffer_emit_deleted_text" gtk_entry_buffer_emit_deleted_text :: Ptr EntryBuffer -> -- _obj : TInterface "Gtk" "EntryBuffer" - Word32 -> -- position : TBasicType TUInt32 - Word32 -> -- n_chars : TBasicType TUInt32 + Word32 -> -- position : TBasicType TUInt + Word32 -> -- n_chars : TBasicType TUInt IO () @@ -468,17 +490,17 @@ -- method EntryBuffer::emit_inserted_text -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_entry_buffer_emit_inserted_text" gtk_entry_buffer_emit_inserted_text :: Ptr EntryBuffer -> -- _obj : TInterface "Gtk" "EntryBuffer" - Word32 -> -- position : TBasicType TUInt32 + Word32 -> -- position : TBasicType TUInt CString -> -- chars : TBasicType TUTF8 - Word32 -> -- n_chars : TBasicType TUInt32 + Word32 -> -- n_chars : TBasicType TUInt IO () @@ -505,7 +527,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TUInt64) -- throws : False -- Skip return : False @@ -532,7 +554,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt32 +-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -559,7 +581,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -586,7 +608,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -613,17 +635,17 @@ -- method EntryBuffer::insert_text -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt32 +-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False foreign import ccall "gtk_entry_buffer_insert_text" gtk_entry_buffer_insert_text :: Ptr EntryBuffer -> -- _obj : TInterface "Gtk" "EntryBuffer" - Word32 -> -- position : TBasicType TUInt32 + Word32 -> -- position : TBasicType TUInt CString -> -- chars : TBasicType TUTF8 - Int32 -> -- n_chars : TBasicType TInt32 + Int32 -> -- n_chars : TBasicType TInt IO Word32 @@ -648,15 +670,15 @@ -- method EntryBuffer::set_max_length -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max_length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max_length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_entry_buffer_set_max_length" gtk_entry_buffer_set_max_length :: Ptr EntryBuffer -> -- _obj : TInterface "Gtk" "EntryBuffer" - Int32 -> -- max_length : TBasicType TInt32 + Int32 -> -- max_length : TBasicType TInt IO () @@ -677,16 +699,16 @@ -- method EntryBuffer::set_text -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_entry_buffer_set_text" gtk_entry_buffer_set_text :: Ptr EntryBuffer -> -- _obj : TInterface "Gtk" "EntryBuffer" CString -> -- chars : TBasicType TUTF8 - Int32 -> -- n_chars : TBasicType TInt32 + Int32 -> -- n_chars : TBasicType TInt IO () diff --git a/GI/Gtk/Objects/EntryBuffer.hs-boot b/GI/Gtk/Objects/EntryBuffer.hs-boot --- a/GI/Gtk/Objects/EntryBuffer.hs-boot +++ b/GI/Gtk/Objects/EntryBuffer.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.EntryBuffer where -import Prelude () 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 diff --git a/GI/Gtk/Objects/EntryCompletion.hs b/GI/Gtk/Objects/EntryCompletion.hs --- a/GI/Gtk/Objects/EntryCompletion.hs +++ b/GI/Gtk/Objects/EntryCompletion.hs @@ -156,12 +156,14 @@ -- ** CellArea EntryCompletionCellAreaPropertyInfo , constructEntryCompletionCellArea , + entryCompletionCellArea , getEntryCompletionCellArea , -- ** InlineCompletion EntryCompletionInlineCompletionPropertyInfo, constructEntryCompletionInlineCompletion, + entryCompletionInlineCompletion , getEntryCompletionInlineCompletion , setEntryCompletionInlineCompletion , @@ -169,6 +171,7 @@ -- ** InlineSelection EntryCompletionInlineSelectionPropertyInfo, constructEntryCompletionInlineSelection , + entryCompletionInlineSelection , getEntryCompletionInlineSelection , setEntryCompletionInlineSelection , @@ -176,13 +179,16 @@ -- ** MinimumKeyLength EntryCompletionMinimumKeyLengthPropertyInfo, constructEntryCompletionMinimumKeyLength, + entryCompletionMinimumKeyLength , getEntryCompletionMinimumKeyLength , setEntryCompletionMinimumKeyLength , -- ** Model EntryCompletionModelPropertyInfo , + clearEntryCompletionModel , constructEntryCompletionModel , + entryCompletionModel , getEntryCompletionModel , setEntryCompletionModel , @@ -190,6 +196,7 @@ -- ** PopupCompletion EntryCompletionPopupCompletionPropertyInfo, constructEntryCompletionPopupCompletion , + entryCompletionPopupCompletion , getEntryCompletionPopupCompletion , setEntryCompletionPopupCompletion , @@ -197,6 +204,7 @@ -- ** PopupSetWidth EntryCompletionPopupSetWidthPropertyInfo, constructEntryCompletionPopupSetWidth , + entryCompletionPopupSetWidth , getEntryCompletionPopupSetWidth , setEntryCompletionPopupSetWidth , @@ -204,6 +212,7 @@ -- ** PopupSingleMatch EntryCompletionPopupSingleMatchPropertyInfo, constructEntryCompletionPopupSingleMatch, + entryCompletionPopupSingleMatch , getEntryCompletionPopupSingleMatch , setEntryCompletionPopupSingleMatch , @@ -211,6 +220,7 @@ -- ** TextColumn EntryCompletionTextColumnPropertyInfo , constructEntryCompletionTextColumn , + entryCompletionTextColumn , getEntryCompletionTextColumn , setEntryCompletionTextColumn , @@ -282,9 +292,9 @@ ) where -import Prelude () 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 @@ -614,27 +624,30 @@ -- VVV Prop "cell-area" -- Type: TInterface "Gtk" "CellArea" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + -- Nullable: (Nothing,Nothing) -getEntryCompletionCellArea :: (MonadIO m, EntryCompletionK o) => o -> m CellArea +getEntryCompletionCellArea :: (MonadIO m, EntryCompletionK o) => o -> m (Maybe CellArea) getEntryCompletionCellArea obj = liftIO $ getObjectPropertyObject obj "cell-area" CellArea constructEntryCompletionCellArea :: (CellAreaK a) => a -> IO ([Char], GValue) -constructEntryCompletionCellArea val = constructObjectPropertyObject "cell-area" val +constructEntryCompletionCellArea val = constructObjectPropertyObject "cell-area" (Just val) data EntryCompletionCellAreaPropertyInfo instance AttrInfo EntryCompletionCellAreaPropertyInfo where - type AttrAllowedOps EntryCompletionCellAreaPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrAllowedOps EntryCompletionCellAreaPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint EntryCompletionCellAreaPropertyInfo = CellAreaK type AttrBaseTypeConstraint EntryCompletionCellAreaPropertyInfo = EntryCompletionK - type AttrGetType EntryCompletionCellAreaPropertyInfo = CellArea + type AttrGetType EntryCompletionCellAreaPropertyInfo = (Maybe CellArea) type AttrLabel EntryCompletionCellAreaPropertyInfo = "cell-area" attrGet _ = getEntryCompletionCellArea attrSet _ = undefined attrConstruct _ = constructEntryCompletionCellArea + attrClear _ = undefined -- VVV Prop "inline-completion" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getEntryCompletionInlineCompletion :: (MonadIO m, EntryCompletionK o) => o -> m Bool getEntryCompletionInlineCompletion obj = liftIO $ getObjectPropertyBool obj "inline-completion" @@ -655,10 +668,12 @@ attrGet _ = getEntryCompletionInlineCompletion attrSet _ = setEntryCompletionInlineCompletion attrConstruct _ = constructEntryCompletionInlineCompletion + attrClear _ = undefined -- VVV Prop "inline-selection" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getEntryCompletionInlineSelection :: (MonadIO m, EntryCompletionK o) => o -> m Bool getEntryCompletionInlineSelection obj = liftIO $ getObjectPropertyBool obj "inline-selection" @@ -679,19 +694,21 @@ attrGet _ = getEntryCompletionInlineSelection attrSet _ = setEntryCompletionInlineSelection attrConstruct _ = constructEntryCompletionInlineSelection + attrClear _ = undefined -- VVV Prop "minimum-key-length" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getEntryCompletionMinimumKeyLength :: (MonadIO m, EntryCompletionK o) => o -> m Int32 -getEntryCompletionMinimumKeyLength obj = liftIO $ getObjectPropertyCInt obj "minimum-key-length" +getEntryCompletionMinimumKeyLength obj = liftIO $ getObjectPropertyInt32 obj "minimum-key-length" setEntryCompletionMinimumKeyLength :: (MonadIO m, EntryCompletionK o) => o -> Int32 -> m () -setEntryCompletionMinimumKeyLength obj val = liftIO $ setObjectPropertyCInt obj "minimum-key-length" val +setEntryCompletionMinimumKeyLength obj val = liftIO $ setObjectPropertyInt32 obj "minimum-key-length" val constructEntryCompletionMinimumKeyLength :: Int32 -> IO ([Char], GValue) -constructEntryCompletionMinimumKeyLength val = constructObjectPropertyCInt "minimum-key-length" val +constructEntryCompletionMinimumKeyLength val = constructObjectPropertyInt32 "minimum-key-length" val data EntryCompletionMinimumKeyLengthPropertyInfo instance AttrInfo EntryCompletionMinimumKeyLengthPropertyInfo where @@ -703,23 +720,28 @@ attrGet _ = getEntryCompletionMinimumKeyLength attrSet _ = setEntryCompletionMinimumKeyLength attrConstruct _ = constructEntryCompletionMinimumKeyLength + attrClear _ = undefined -- VVV Prop "model" -- Type: TInterface "Gtk" "TreeModel" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) getEntryCompletionModel :: (MonadIO m, EntryCompletionK o) => o -> m TreeModel -getEntryCompletionModel obj = liftIO $ getObjectPropertyObject obj "model" TreeModel +getEntryCompletionModel obj = liftIO $ checkUnexpectedNothing "getEntryCompletionModel" $ getObjectPropertyObject obj "model" TreeModel setEntryCompletionModel :: (MonadIO m, EntryCompletionK o, TreeModelK a) => o -> a -> m () -setEntryCompletionModel obj val = liftIO $ setObjectPropertyObject obj "model" val +setEntryCompletionModel obj val = liftIO $ setObjectPropertyObject obj "model" (Just val) constructEntryCompletionModel :: (TreeModelK a) => a -> IO ([Char], GValue) -constructEntryCompletionModel val = constructObjectPropertyObject "model" val +constructEntryCompletionModel val = constructObjectPropertyObject "model" (Just val) +clearEntryCompletionModel :: (MonadIO m, EntryCompletionK o) => o -> m () +clearEntryCompletionModel obj = liftIO $ setObjectPropertyObject obj "model" (Nothing :: Maybe TreeModel) + data EntryCompletionModelPropertyInfo instance AttrInfo EntryCompletionModelPropertyInfo where - type AttrAllowedOps EntryCompletionModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps EntryCompletionModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint EntryCompletionModelPropertyInfo = TreeModelK type AttrBaseTypeConstraint EntryCompletionModelPropertyInfo = EntryCompletionK type AttrGetType EntryCompletionModelPropertyInfo = TreeModel @@ -727,10 +749,12 @@ attrGet _ = getEntryCompletionModel attrSet _ = setEntryCompletionModel attrConstruct _ = constructEntryCompletionModel + attrClear _ = clearEntryCompletionModel -- VVV Prop "popup-completion" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getEntryCompletionPopupCompletion :: (MonadIO m, EntryCompletionK o) => o -> m Bool getEntryCompletionPopupCompletion obj = liftIO $ getObjectPropertyBool obj "popup-completion" @@ -751,10 +775,12 @@ attrGet _ = getEntryCompletionPopupCompletion attrSet _ = setEntryCompletionPopupCompletion attrConstruct _ = constructEntryCompletionPopupCompletion + attrClear _ = undefined -- VVV Prop "popup-set-width" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getEntryCompletionPopupSetWidth :: (MonadIO m, EntryCompletionK o) => o -> m Bool getEntryCompletionPopupSetWidth obj = liftIO $ getObjectPropertyBool obj "popup-set-width" @@ -775,10 +801,12 @@ attrGet _ = getEntryCompletionPopupSetWidth attrSet _ = setEntryCompletionPopupSetWidth attrConstruct _ = constructEntryCompletionPopupSetWidth + attrClear _ = undefined -- VVV Prop "popup-single-match" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getEntryCompletionPopupSingleMatch :: (MonadIO m, EntryCompletionK o) => o -> m Bool getEntryCompletionPopupSingleMatch obj = liftIO $ getObjectPropertyBool obj "popup-single-match" @@ -799,19 +827,21 @@ attrGet _ = getEntryCompletionPopupSingleMatch attrSet _ = setEntryCompletionPopupSingleMatch attrConstruct _ = constructEntryCompletionPopupSingleMatch + attrClear _ = undefined -- VVV Prop "text-column" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getEntryCompletionTextColumn :: (MonadIO m, EntryCompletionK o) => o -> m Int32 -getEntryCompletionTextColumn obj = liftIO $ getObjectPropertyCInt obj "text-column" +getEntryCompletionTextColumn obj = liftIO $ getObjectPropertyInt32 obj "text-column" setEntryCompletionTextColumn :: (MonadIO m, EntryCompletionK o) => o -> Int32 -> m () -setEntryCompletionTextColumn obj val = liftIO $ setObjectPropertyCInt obj "text-column" val +setEntryCompletionTextColumn obj val = liftIO $ setObjectPropertyInt32 obj "text-column" val constructEntryCompletionTextColumn :: Int32 -> IO ([Char], GValue) -constructEntryCompletionTextColumn val = constructObjectPropertyCInt "text-column" val +constructEntryCompletionTextColumn val = constructObjectPropertyInt32 "text-column" val data EntryCompletionTextColumnPropertyInfo instance AttrInfo EntryCompletionTextColumnPropertyInfo where @@ -823,10 +853,38 @@ attrGet _ = getEntryCompletionTextColumn attrSet _ = setEntryCompletionTextColumn attrConstruct _ = constructEntryCompletionTextColumn + attrClear _ = undefined type instance AttributeList EntryCompletion = EntryCompletionAttributeList type EntryCompletionAttributeList = ('[ '("cellArea", EntryCompletionCellAreaPropertyInfo), '("inlineCompletion", EntryCompletionInlineCompletionPropertyInfo), '("inlineSelection", EntryCompletionInlineSelectionPropertyInfo), '("minimumKeyLength", EntryCompletionMinimumKeyLengthPropertyInfo), '("model", EntryCompletionModelPropertyInfo), '("popupCompletion", EntryCompletionPopupCompletionPropertyInfo), '("popupSetWidth", EntryCompletionPopupSetWidthPropertyInfo), '("popupSingleMatch", EntryCompletionPopupSingleMatchPropertyInfo), '("textColumn", EntryCompletionTextColumnPropertyInfo)] :: [(Symbol, *)]) +entryCompletionCellArea :: AttrLabelProxy "cellArea" +entryCompletionCellArea = AttrLabelProxy + +entryCompletionInlineCompletion :: AttrLabelProxy "inlineCompletion" +entryCompletionInlineCompletion = AttrLabelProxy + +entryCompletionInlineSelection :: AttrLabelProxy "inlineSelection" +entryCompletionInlineSelection = AttrLabelProxy + +entryCompletionMinimumKeyLength :: AttrLabelProxy "minimumKeyLength" +entryCompletionMinimumKeyLength = AttrLabelProxy + +entryCompletionModel :: AttrLabelProxy "model" +entryCompletionModel = AttrLabelProxy + +entryCompletionPopupCompletion :: AttrLabelProxy "popupCompletion" +entryCompletionPopupCompletion = AttrLabelProxy + +entryCompletionPopupSetWidth :: AttrLabelProxy "popupSetWidth" +entryCompletionPopupSetWidth = AttrLabelProxy + +entryCompletionPopupSingleMatch :: AttrLabelProxy "popupSingleMatch" +entryCompletionPopupSingleMatch = AttrLabelProxy + +entryCompletionTextColumn :: AttrLabelProxy "textColumn" +entryCompletionTextColumn = AttrLabelProxy + data EntryCompletionActionActivatedSignalInfo instance SignalInfo EntryCompletionActionActivatedSignalInfo where type HaskellCallbackType EntryCompletionActionActivatedSignalInfo = EntryCompletionActionActivatedCallback @@ -859,7 +917,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "EntryCompletion" +-- returnType : Just (TInterface "Gtk" "EntryCompletion") -- throws : False -- Skip return : False @@ -880,7 +938,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "area", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "EntryCompletion" +-- returnType : Just (TInterface "Gtk" "EntryCompletion") -- throws : False -- Skip return : False @@ -905,7 +963,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -932,7 +990,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -964,26 +1022,26 @@ -- method EntryCompletion::delete_action -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_entry_completion_delete_action" gtk_entry_completion_delete_action :: Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion" - Int32 -> -- index_ : TBasicType TInt32 + Int32 -> -- index_ : TBasicType TInt IO () entryCompletionDeleteAction :: (MonadIO m, EntryCompletionK a) => a -- _obj - -> Int32 -- index + -> Int32 -- index_ -> m () -- result -entryCompletionDeleteAction _obj index = liftIO $ do +entryCompletionDeleteAction _obj index_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - gtk_entry_completion_delete_action _obj' index + gtk_entry_completion_delete_action _obj' index_ touchManagedPtr _obj return () @@ -995,7 +1053,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1024,7 +1082,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -1053,7 +1111,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1081,7 +1139,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1109,7 +1167,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1136,7 +1194,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "TreeModel" +-- returnType : Just (TInterface "Gtk" "TreeModel") -- throws : False -- Skip return : False @@ -1165,7 +1223,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1193,7 +1251,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1221,7 +1279,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1249,7 +1307,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1274,15 +1332,15 @@ -- method EntryCompletion::insert_action_markup -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_entry_completion_insert_action_markup" gtk_entry_completion_insert_action_markup :: Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion" - Int32 -> -- index_ : TBasicType TInt32 + Int32 -> -- index_ : TBasicType TInt CString -> -- markup : TBasicType TUTF8 IO () @@ -1290,13 +1348,13 @@ entryCompletionInsertActionMarkup :: (MonadIO m, EntryCompletionK a) => a -- _obj - -> Int32 -- index + -> Int32 -- index_ -> T.Text -- markup -> m () -- result -entryCompletionInsertActionMarkup _obj index markup = liftIO $ do +entryCompletionInsertActionMarkup _obj index_ markup = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj markup' <- textToCString markup - gtk_entry_completion_insert_action_markup _obj' index markup' + gtk_entry_completion_insert_action_markup _obj' index_ markup' touchManagedPtr _obj freeMem markup' return () @@ -1307,15 +1365,15 @@ -- method EntryCompletion::insert_action_text -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_entry_completion_insert_action_text" gtk_entry_completion_insert_action_text :: Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion" - Int32 -> -- index_ : TBasicType TInt32 + Int32 -> -- index_ : TBasicType TInt CString -> -- text : TBasicType TUTF8 IO () @@ -1323,13 +1381,13 @@ entryCompletionInsertActionText :: (MonadIO m, EntryCompletionK a) => a -- _obj - -> Int32 -- index + -> Int32 -- index_ -> T.Text -- text -> m () -- result -entryCompletionInsertActionText _obj index text = liftIO $ do +entryCompletionInsertActionText _obj index_ text = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj text' <- textToCString text - gtk_entry_completion_insert_action_text _obj' index text' + gtk_entry_completion_insert_action_text _obj' index_ text' touchManagedPtr _obj freeMem text' return () @@ -1342,7 +1400,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1369,7 +1427,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "inline_completion", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1399,7 +1457,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "inline_selection", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1427,16 +1485,16 @@ -- method EntryCompletion::set_match_func -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "EntryCompletionMatchFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func_notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "EntryCompletionMatchFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func_notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_entry_completion_set_match_func" gtk_entry_completion_set_match_func :: Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion" FunPtr EntryCompletionMatchFuncC -> -- func : TInterface "Gtk" "EntryCompletionMatchFunc" - Ptr () -> -- func_data : TBasicType TVoid + Ptr () -> -- func_data : TBasicType TPtr FunPtr GLib.DestroyNotifyC -> -- func_notify : TInterface "GLib" "DestroyNotify" IO () @@ -1461,15 +1519,15 @@ -- method EntryCompletion::set_minimum_key_length -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", 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}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_entry_completion_set_minimum_key_length" gtk_entry_completion_set_minimum_key_length :: Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion" - Int32 -> -- length : TBasicType TInt32 + Int32 -> -- length : TBasicType TInt IO () @@ -1492,7 +1550,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1527,7 +1585,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "popup_completion", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1557,7 +1615,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "popup_set_width", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1587,7 +1645,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "popup_single_match", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1615,15 +1673,15 @@ -- method EntryCompletion::set_text_column -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_entry_completion_set_text_column" gtk_entry_completion_set_text_column :: Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion" - Int32 -> -- column : TBasicType TInt32 + Int32 -> -- column : TBasicType TInt IO () diff --git a/GI/Gtk/Objects/EntryCompletion.hs-boot b/GI/Gtk/Objects/EntryCompletion.hs-boot --- a/GI/Gtk/Objects/EntryCompletion.hs-boot +++ b/GI/Gtk/Objects/EntryCompletion.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.EntryCompletion where -import Prelude () 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 diff --git a/GI/Gtk/Objects/EntryIconAccessible.hs b/GI/Gtk/Objects/EntryIconAccessible.hs --- a/GI/Gtk/Objects/EntryIconAccessible.hs +++ b/GI/Gtk/Objects/EntryIconAccessible.hs @@ -18,9 +18,9 @@ ) where -import Prelude () 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 diff --git a/GI/Gtk/Objects/EntryIconAccessible.hs-boot b/GI/Gtk/Objects/EntryIconAccessible.hs-boot --- a/GI/Gtk/Objects/EntryIconAccessible.hs-boot +++ b/GI/Gtk/Objects/EntryIconAccessible.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.EntryIconAccessible where -import Prelude () 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 diff --git a/GI/Gtk/Objects/EventBox.hs b/GI/Gtk/Objects/EventBox.hs --- a/GI/Gtk/Objects/EventBox.hs +++ b/GI/Gtk/Objects/EventBox.hs @@ -47,6 +47,7 @@ -- ** AboveChild EventBoxAboveChildPropertyInfo , constructEventBoxAboveChild , + eventBoxAboveChild , getEventBoxAboveChild , setEventBoxAboveChild , @@ -54,6 +55,7 @@ -- ** VisibleWindow EventBoxVisibleWindowPropertyInfo , constructEventBoxVisibleWindow , + eventBoxVisibleWindow , getEventBoxVisibleWindow , setEventBoxVisibleWindow , @@ -62,9 +64,9 @@ ) where -import Prelude () 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 @@ -425,6 +427,7 @@ -- VVV Prop "above-child" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getEventBoxAboveChild :: (MonadIO m, EventBoxK o) => o -> m Bool getEventBoxAboveChild obj = liftIO $ getObjectPropertyBool obj "above-child" @@ -445,10 +448,12 @@ attrGet _ = getEventBoxAboveChild attrSet _ = setEventBoxAboveChild attrConstruct _ = constructEventBoxAboveChild + attrClear _ = undefined -- VVV Prop "visible-window" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getEventBoxVisibleWindow :: (MonadIO m, EventBoxK o) => o -> m Bool getEventBoxVisibleWindow obj = liftIO $ getObjectPropertyBool obj "visible-window" @@ -469,10 +474,17 @@ attrGet _ = getEventBoxVisibleWindow attrSet _ = setEventBoxVisibleWindow attrConstruct _ = constructEventBoxVisibleWindow + attrClear _ = undefined type instance AttributeList EventBox = EventBoxAttributeList type EventBoxAttributeList = ('[ '("aboveChild", EventBoxAboveChildPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visibleWindow", EventBoxVisibleWindowPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +eventBoxAboveChild :: AttrLabelProxy "aboveChild" +eventBoxAboveChild = AttrLabelProxy + +eventBoxVisibleWindow :: AttrLabelProxy "visibleWindow" +eventBoxVisibleWindow = AttrLabelProxy + type instance SignalList EventBox = EventBoxSignalList type EventBoxSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -480,7 +492,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "EventBox" +-- returnType : Just (TInterface "Gtk" "EventBox") -- throws : False -- Skip return : False @@ -501,7 +513,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EventBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -529,7 +541,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EventBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -557,7 +569,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EventBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "above_child", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -587,7 +599,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EventBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible_window", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/EventBox.hs-boot b/GI/Gtk/Objects/EventBox.hs-boot --- a/GI/Gtk/Objects/EventBox.hs-boot +++ b/GI/Gtk/Objects/EventBox.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.EventBox where -import Prelude () 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 diff --git a/GI/Gtk/Objects/EventController.hs b/GI/Gtk/Objects/EventController.hs --- a/GI/Gtk/Objects/EventController.hs +++ b/GI/Gtk/Objects/EventController.hs @@ -48,6 +48,7 @@ -- ** PropagationPhase EventControllerPropagationPhasePropertyInfo, constructEventControllerPropagationPhase, + eventControllerPropagationPhase , getEventControllerPropagationPhase , setEventControllerPropagationPhase , @@ -55,6 +56,7 @@ -- ** Widget EventControllerWidgetPropertyInfo , constructEventControllerWidget , + eventControllerWidget , getEventControllerWidget , @@ -62,9 +64,9 @@ ) where -import Prelude () 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 @@ -136,6 +138,7 @@ -- VVV Prop "propagation-phase" -- Type: TInterface "Gtk" "PropagationPhase" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getEventControllerPropagationPhase :: (MonadIO m, EventControllerK o) => o -> m PropagationPhase getEventControllerPropagationPhase obj = liftIO $ getObjectPropertyEnum obj "propagation-phase" @@ -156,20 +159,22 @@ attrGet _ = getEventControllerPropagationPhase attrSet _ = setEventControllerPropagationPhase attrConstruct _ = constructEventControllerPropagationPhase + attrClear _ = undefined -- VVV Prop "widget" -- Type: TInterface "Gtk" "Widget" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + -- Nullable: (Just False,Nothing) getEventControllerWidget :: (MonadIO m, EventControllerK o) => o -> m Widget -getEventControllerWidget obj = liftIO $ getObjectPropertyObject obj "widget" Widget +getEventControllerWidget obj = liftIO $ checkUnexpectedNothing "getEventControllerWidget" $ getObjectPropertyObject obj "widget" Widget constructEventControllerWidget :: (WidgetK a) => a -> IO ([Char], GValue) -constructEventControllerWidget val = constructObjectPropertyObject "widget" val +constructEventControllerWidget val = constructObjectPropertyObject "widget" (Just val) data EventControllerWidgetPropertyInfo instance AttrInfo EventControllerWidgetPropertyInfo where - type AttrAllowedOps EventControllerWidgetPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrAllowedOps EventControllerWidgetPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint EventControllerWidgetPropertyInfo = WidgetK type AttrBaseTypeConstraint EventControllerWidgetPropertyInfo = EventControllerK type AttrGetType EventControllerWidgetPropertyInfo = Widget @@ -177,10 +182,17 @@ attrGet _ = getEventControllerWidget attrSet _ = undefined attrConstruct _ = constructEventControllerWidget + attrClear _ = undefined type instance AttributeList EventController = EventControllerAttributeList type EventControllerAttributeList = ('[ '("propagationPhase", EventControllerPropagationPhasePropertyInfo), '("widget", EventControllerWidgetPropertyInfo)] :: [(Symbol, *)]) +eventControllerPropagationPhase :: AttrLabelProxy "propagationPhase" +eventControllerPropagationPhase = AttrLabelProxy + +eventControllerWidget :: AttrLabelProxy "widget" +eventControllerWidget = AttrLabelProxy + type instance SignalList EventController = EventControllerSignalList type EventControllerSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -188,7 +200,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EventController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "PropagationPhase" +-- returnType : Just (TInterface "Gtk" "PropagationPhase") -- throws : False -- Skip return : False @@ -216,7 +228,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EventController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -245,7 +257,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EventController", 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 : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -277,7 +289,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EventController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -304,7 +316,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "EventController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "phase", argType = TInterface "Gtk" "PropagationPhase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/EventController.hs-boot b/GI/Gtk/Objects/EventController.hs-boot --- a/GI/Gtk/Objects/EventController.hs-boot +++ b/GI/Gtk/Objects/EventController.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.EventController where -import Prelude () 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 diff --git a/GI/Gtk/Objects/Expander.hs b/GI/Gtk/Objects/Expander.hs --- a/GI/Gtk/Objects/Expander.hs +++ b/GI/Gtk/Objects/Expander.hs @@ -111,13 +111,16 @@ -- ** Expanded ExpanderExpandedPropertyInfo , constructExpanderExpanded , + expanderExpanded , getExpanderExpanded , setExpanderExpanded , -- ** Label ExpanderLabelPropertyInfo , + clearExpanderLabel , constructExpanderLabel , + expanderLabel , getExpanderLabel , setExpanderLabel , @@ -125,13 +128,16 @@ -- ** LabelFill ExpanderLabelFillPropertyInfo , constructExpanderLabelFill , + expanderLabelFill , getExpanderLabelFill , setExpanderLabelFill , -- ** LabelWidget ExpanderLabelWidgetPropertyInfo , + clearExpanderLabelWidget , constructExpanderLabelWidget , + expanderLabelWidget , getExpanderLabelWidget , setExpanderLabelWidget , @@ -139,6 +145,7 @@ -- ** ResizeToplevel ExpanderResizeToplevelPropertyInfo , constructExpanderResizeToplevel , + expanderResizeToplevel , getExpanderResizeToplevel , setExpanderResizeToplevel , @@ -146,6 +153,7 @@ -- ** Spacing ExpanderSpacingPropertyInfo , constructExpanderSpacing , + expanderSpacing , getExpanderSpacing , setExpanderSpacing , @@ -153,6 +161,7 @@ -- ** UseMarkup ExpanderUseMarkupPropertyInfo , constructExpanderUseMarkup , + expanderUseMarkup , getExpanderUseMarkup , setExpanderUseMarkup , @@ -160,6 +169,7 @@ -- ** UseUnderline ExpanderUseUnderlinePropertyInfo , constructExpanderUseUnderline , + expanderUseUnderline , getExpanderUseUnderline , setExpanderUseUnderline , @@ -183,9 +193,9 @@ ) where -import Prelude () 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 @@ -596,6 +606,7 @@ -- VVV Prop "expanded" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Just False,Just False) getExpanderExpanded :: (MonadIO m, ExpanderK o) => o -> m Bool getExpanderExpanded obj = liftIO $ getObjectPropertyBool obj "expanded" @@ -616,23 +627,28 @@ attrGet _ = getExpanderExpanded attrSet _ = setExpanderExpanded attrConstruct _ = constructExpanderExpanded + attrClear _ = undefined -- VVV Prop "label" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Just False,Just True) getExpanderLabel :: (MonadIO m, ExpanderK o) => o -> m T.Text -getExpanderLabel obj = liftIO $ getObjectPropertyString obj "label" +getExpanderLabel obj = liftIO $ checkUnexpectedNothing "getExpanderLabel" $ getObjectPropertyString obj "label" setExpanderLabel :: (MonadIO m, ExpanderK o) => o -> T.Text -> m () -setExpanderLabel obj val = liftIO $ setObjectPropertyString obj "label" val +setExpanderLabel obj val = liftIO $ setObjectPropertyString obj "label" (Just val) constructExpanderLabel :: T.Text -> IO ([Char], GValue) -constructExpanderLabel val = constructObjectPropertyString "label" val +constructExpanderLabel val = constructObjectPropertyString "label" (Just val) +clearExpanderLabel :: (MonadIO m, ExpanderK o) => o -> m () +clearExpanderLabel obj = liftIO $ setObjectPropertyString obj "label" (Nothing :: Maybe T.Text) + data ExpanderLabelPropertyInfo instance AttrInfo ExpanderLabelPropertyInfo where - type AttrAllowedOps ExpanderLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps ExpanderLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ExpanderLabelPropertyInfo = (~) T.Text type AttrBaseTypeConstraint ExpanderLabelPropertyInfo = ExpanderK type AttrGetType ExpanderLabelPropertyInfo = T.Text @@ -640,10 +656,12 @@ attrGet _ = getExpanderLabel attrSet _ = setExpanderLabel attrConstruct _ = constructExpanderLabel + attrClear _ = clearExpanderLabel -- VVV Prop "label-fill" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Just False,Just False) getExpanderLabelFill :: (MonadIO m, ExpanderK o) => o -> m Bool getExpanderLabelFill obj = liftIO $ getObjectPropertyBool obj "label-fill" @@ -664,23 +682,28 @@ attrGet _ = getExpanderLabelFill attrSet _ = setExpanderLabelFill attrConstruct _ = constructExpanderLabelFill + attrClear _ = undefined -- VVV Prop "label-widget" -- Type: TInterface "Gtk" "Widget" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) getExpanderLabelWidget :: (MonadIO m, ExpanderK o) => o -> m Widget -getExpanderLabelWidget obj = liftIO $ getObjectPropertyObject obj "label-widget" Widget +getExpanderLabelWidget obj = liftIO $ checkUnexpectedNothing "getExpanderLabelWidget" $ getObjectPropertyObject obj "label-widget" Widget setExpanderLabelWidget :: (MonadIO m, ExpanderK o, WidgetK a) => o -> a -> m () -setExpanderLabelWidget obj val = liftIO $ setObjectPropertyObject obj "label-widget" val +setExpanderLabelWidget obj val = liftIO $ setObjectPropertyObject obj "label-widget" (Just val) constructExpanderLabelWidget :: (WidgetK a) => a -> IO ([Char], GValue) -constructExpanderLabelWidget val = constructObjectPropertyObject "label-widget" val +constructExpanderLabelWidget val = constructObjectPropertyObject "label-widget" (Just val) +clearExpanderLabelWidget :: (MonadIO m, ExpanderK o) => o -> m () +clearExpanderLabelWidget obj = liftIO $ setObjectPropertyObject obj "label-widget" (Nothing :: Maybe Widget) + data ExpanderLabelWidgetPropertyInfo instance AttrInfo ExpanderLabelWidgetPropertyInfo where - type AttrAllowedOps ExpanderLabelWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps ExpanderLabelWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ExpanderLabelWidgetPropertyInfo = WidgetK type AttrBaseTypeConstraint ExpanderLabelWidgetPropertyInfo = ExpanderK type AttrGetType ExpanderLabelWidgetPropertyInfo = Widget @@ -688,10 +711,12 @@ attrGet _ = getExpanderLabelWidget attrSet _ = setExpanderLabelWidget attrConstruct _ = constructExpanderLabelWidget + attrClear _ = clearExpanderLabelWidget -- VVV Prop "resize-toplevel" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getExpanderResizeToplevel :: (MonadIO m, ExpanderK o) => o -> m Bool getExpanderResizeToplevel obj = liftIO $ getObjectPropertyBool obj "resize-toplevel" @@ -712,19 +737,21 @@ attrGet _ = getExpanderResizeToplevel attrSet _ = setExpanderResizeToplevel attrConstruct _ = constructExpanderResizeToplevel + attrClear _ = undefined -- VVV Prop "spacing" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getExpanderSpacing :: (MonadIO m, ExpanderK o) => o -> m Int32 -getExpanderSpacing obj = liftIO $ getObjectPropertyCInt obj "spacing" +getExpanderSpacing obj = liftIO $ getObjectPropertyInt32 obj "spacing" setExpanderSpacing :: (MonadIO m, ExpanderK o) => o -> Int32 -> m () -setExpanderSpacing obj val = liftIO $ setObjectPropertyCInt obj "spacing" val +setExpanderSpacing obj val = liftIO $ setObjectPropertyInt32 obj "spacing" val constructExpanderSpacing :: Int32 -> IO ([Char], GValue) -constructExpanderSpacing val = constructObjectPropertyCInt "spacing" val +constructExpanderSpacing val = constructObjectPropertyInt32 "spacing" val data ExpanderSpacingPropertyInfo instance AttrInfo ExpanderSpacingPropertyInfo where @@ -736,10 +763,12 @@ attrGet _ = getExpanderSpacing attrSet _ = setExpanderSpacing attrConstruct _ = constructExpanderSpacing + attrClear _ = undefined -- VVV Prop "use-markup" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Just False,Just False) getExpanderUseMarkup :: (MonadIO m, ExpanderK o) => o -> m Bool getExpanderUseMarkup obj = liftIO $ getObjectPropertyBool obj "use-markup" @@ -760,10 +789,12 @@ attrGet _ = getExpanderUseMarkup attrSet _ = setExpanderUseMarkup attrConstruct _ = constructExpanderUseMarkup + attrClear _ = undefined -- VVV Prop "use-underline" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Just False,Just False) getExpanderUseUnderline :: (MonadIO m, ExpanderK o) => o -> m Bool getExpanderUseUnderline obj = liftIO $ getObjectPropertyBool obj "use-underline" @@ -784,10 +815,35 @@ attrGet _ = getExpanderUseUnderline attrSet _ = setExpanderUseUnderline attrConstruct _ = constructExpanderUseUnderline + attrClear _ = undefined type instance AttributeList Expander = ExpanderAttributeList type ExpanderAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("expanded", ExpanderExpandedPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", ExpanderLabelPropertyInfo), '("labelFill", ExpanderLabelFillPropertyInfo), '("labelWidget", ExpanderLabelWidgetPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("resizeToplevel", ExpanderResizeToplevelPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", ExpanderSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useMarkup", ExpanderUseMarkupPropertyInfo), '("useUnderline", ExpanderUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +expanderExpanded :: AttrLabelProxy "expanded" +expanderExpanded = AttrLabelProxy + +expanderLabel :: AttrLabelProxy "label" +expanderLabel = AttrLabelProxy + +expanderLabelFill :: AttrLabelProxy "labelFill" +expanderLabelFill = AttrLabelProxy + +expanderLabelWidget :: AttrLabelProxy "labelWidget" +expanderLabelWidget = AttrLabelProxy + +expanderResizeToplevel :: AttrLabelProxy "resizeToplevel" +expanderResizeToplevel = AttrLabelProxy + +expanderSpacing :: AttrLabelProxy "spacing" +expanderSpacing = AttrLabelProxy + +expanderUseMarkup :: AttrLabelProxy "useMarkup" +expanderUseMarkup = AttrLabelProxy + +expanderUseUnderline :: AttrLabelProxy "useUnderline" +expanderUseUnderline = AttrLabelProxy + data ExpanderActivateSignalInfo instance SignalInfo ExpanderActivateSignalInfo where type HaskellCallbackType ExpanderActivateSignalInfo = ExpanderActivateCallback @@ -800,7 +856,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Expander" +-- returnType : Just (TInterface "Gtk" "Expander") -- throws : False -- Skip return : False @@ -825,7 +881,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Expander" +-- returnType : Just (TInterface "Gtk" "Expander") -- throws : False -- Skip return : False @@ -854,7 +910,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -882,7 +938,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -911,7 +967,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -939,7 +995,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -968,7 +1024,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -996,7 +1052,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1023,7 +1079,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1051,7 +1107,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1079,7 +1135,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expanded", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1109,7 +1165,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1144,7 +1200,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label_fill", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1174,7 +1230,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1209,7 +1265,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resize_toplevel", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1237,15 +1293,15 @@ -- method Expander::set_spacing -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_expander_set_spacing" gtk_expander_set_spacing :: Ptr Expander -> -- _obj : TInterface "Gtk" "Expander" - Int32 -> -- spacing : TBasicType TInt32 + Int32 -> -- spacing : TBasicType TInt IO () @@ -1268,7 +1324,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_markup", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1298,7 +1354,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_underline", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/Expander.hs-boot b/GI/Gtk/Objects/Expander.hs-boot --- a/GI/Gtk/Objects/Expander.hs-boot +++ b/GI/Gtk/Objects/Expander.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.Expander where -import Prelude () 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 diff --git a/GI/Gtk/Objects/ExpanderAccessible.hs b/GI/Gtk/Objects/ExpanderAccessible.hs --- a/GI/Gtk/Objects/ExpanderAccessible.hs +++ b/GI/Gtk/Objects/ExpanderAccessible.hs @@ -18,9 +18,9 @@ ) where -import Prelude () 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 diff --git a/GI/Gtk/Objects/ExpanderAccessible.hs-boot b/GI/Gtk/Objects/ExpanderAccessible.hs-boot --- a/GI/Gtk/Objects/ExpanderAccessible.hs-boot +++ b/GI/Gtk/Objects/ExpanderAccessible.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.ExpanderAccessible where -import Prelude () 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 diff --git a/GI/Gtk/Objects/FileChooserButton.hs b/GI/Gtk/Objects/FileChooserButton.hs --- a/GI/Gtk/Objects/FileChooserButton.hs +++ b/GI/Gtk/Objects/FileChooserButton.hs @@ -61,11 +61,13 @@ -- ** Dialog FileChooserButtonDialogPropertyInfo , constructFileChooserButtonDialog , + fileChooserButtonDialog , -- ** FocusOnClick FileChooserButtonFocusOnClickPropertyInfo, constructFileChooserButtonFocusOnClick , + fileChooserButtonFocusOnClick , getFileChooserButtonFocusOnClick , setFileChooserButtonFocusOnClick , @@ -73,6 +75,7 @@ -- ** Title FileChooserButtonTitlePropertyInfo , constructFileChooserButtonTitle , + fileChooserButtonTitle , getFileChooserButtonTitle , setFileChooserButtonTitle , @@ -80,6 +83,7 @@ -- ** WidthChars FileChooserButtonWidthCharsPropertyInfo , constructFileChooserButtonWidthChars , + fileChooserButtonWidthChars , getFileChooserButtonWidthChars , setFileChooserButtonWidthChars , @@ -103,9 +107,9 @@ ) where -import Prelude () 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 @@ -579,13 +583,14 @@ -- VVV Prop "dialog" -- Type: TInterface "Gtk" "FileChooser" -- Flags: [PropertyWritable,PropertyConstructOnly] + -- Nullable: (Nothing,Nothing) constructFileChooserButtonDialog :: (FileChooserK a) => a -> IO ([Char], GValue) -constructFileChooserButtonDialog val = constructObjectPropertyObject "dialog" val +constructFileChooserButtonDialog val = constructObjectPropertyObject "dialog" (Just val) data FileChooserButtonDialogPropertyInfo instance AttrInfo FileChooserButtonDialogPropertyInfo where - type AttrAllowedOps FileChooserButtonDialogPropertyInfo = '[ 'AttrConstruct] + type AttrAllowedOps FileChooserButtonDialogPropertyInfo = '[ 'AttrConstruct, 'AttrClear] type AttrSetTypeConstraint FileChooserButtonDialogPropertyInfo = FileChooserK type AttrBaseTypeConstraint FileChooserButtonDialogPropertyInfo = FileChooserButtonK type AttrGetType FileChooserButtonDialogPropertyInfo = () @@ -593,10 +598,12 @@ attrGet _ = undefined attrSet _ = undefined attrConstruct _ = constructFileChooserButtonDialog + attrClear _ = undefined -- VVV Prop "focus-on-click" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getFileChooserButtonFocusOnClick :: (MonadIO m, FileChooserButtonK o) => o -> m Bool getFileChooserButtonFocusOnClick obj = liftIO $ getObjectPropertyBool obj "focus-on-click" @@ -617,19 +624,21 @@ attrGet _ = getFileChooserButtonFocusOnClick attrSet _ = setFileChooserButtonFocusOnClick attrConstruct _ = constructFileChooserButtonFocusOnClick + attrClear _ = undefined -- VVV Prop "title" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getFileChooserButtonTitle :: (MonadIO m, FileChooserButtonK o) => o -> m T.Text -getFileChooserButtonTitle obj = liftIO $ getObjectPropertyString obj "title" +getFileChooserButtonTitle obj = liftIO $ checkUnexpectedNothing "getFileChooserButtonTitle" $ getObjectPropertyString obj "title" setFileChooserButtonTitle :: (MonadIO m, FileChooserButtonK o) => o -> T.Text -> m () -setFileChooserButtonTitle obj val = liftIO $ setObjectPropertyString obj "title" val +setFileChooserButtonTitle obj val = liftIO $ setObjectPropertyString obj "title" (Just val) constructFileChooserButtonTitle :: T.Text -> IO ([Char], GValue) -constructFileChooserButtonTitle val = constructObjectPropertyString "title" val +constructFileChooserButtonTitle val = constructObjectPropertyString "title" (Just val) data FileChooserButtonTitlePropertyInfo instance AttrInfo FileChooserButtonTitlePropertyInfo where @@ -641,19 +650,21 @@ attrGet _ = getFileChooserButtonTitle attrSet _ = setFileChooserButtonTitle attrConstruct _ = constructFileChooserButtonTitle + attrClear _ = undefined -- VVV Prop "width-chars" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getFileChooserButtonWidthChars :: (MonadIO m, FileChooserButtonK o) => o -> m Int32 -getFileChooserButtonWidthChars obj = liftIO $ getObjectPropertyCInt obj "width-chars" +getFileChooserButtonWidthChars obj = liftIO $ getObjectPropertyInt32 obj "width-chars" setFileChooserButtonWidthChars :: (MonadIO m, FileChooserButtonK o) => o -> Int32 -> m () -setFileChooserButtonWidthChars obj val = liftIO $ setObjectPropertyCInt obj "width-chars" val +setFileChooserButtonWidthChars obj val = liftIO $ setObjectPropertyInt32 obj "width-chars" val constructFileChooserButtonWidthChars :: Int32 -> IO ([Char], GValue) -constructFileChooserButtonWidthChars val = constructObjectPropertyCInt "width-chars" val +constructFileChooserButtonWidthChars val = constructObjectPropertyInt32 "width-chars" val data FileChooserButtonWidthCharsPropertyInfo instance AttrInfo FileChooserButtonWidthCharsPropertyInfo where @@ -665,10 +676,23 @@ attrGet _ = getFileChooserButtonWidthChars attrSet _ = setFileChooserButtonWidthChars attrConstruct _ = constructFileChooserButtonWidthChars + attrClear _ = undefined type instance AttributeList FileChooserButton = FileChooserButtonAttributeList type FileChooserButtonAttributeList = ('[ '("action", FileChooserActionPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("baselinePosition", BoxBaselinePositionPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("createFolders", FileChooserCreateFoldersPropertyInfo), '("dialog", FileChooserButtonDialogPropertyInfo), '("doOverwriteConfirmation", FileChooserDoOverwriteConfirmationPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("extraWidget", FileChooserExtraWidgetPropertyInfo), '("filter", FileChooserFilterPropertyInfo), '("focusOnClick", FileChooserButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("localOnly", FileChooserLocalOnlyPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("previewWidget", FileChooserPreviewWidgetPropertyInfo), '("previewWidgetActive", FileChooserPreviewWidgetActivePropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("selectMultiple", FileChooserSelectMultiplePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showHidden", FileChooserShowHiddenPropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", FileChooserButtonTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("usePreviewLabel", FileChooserUsePreviewLabelPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthChars", FileChooserButtonWidthCharsPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +fileChooserButtonDialog :: AttrLabelProxy "dialog" +fileChooserButtonDialog = AttrLabelProxy + +fileChooserButtonFocusOnClick :: AttrLabelProxy "focusOnClick" +fileChooserButtonFocusOnClick = AttrLabelProxy + +fileChooserButtonTitle :: AttrLabelProxy "title" +fileChooserButtonTitle = AttrLabelProxy + +fileChooserButtonWidthChars :: AttrLabelProxy "widthChars" +fileChooserButtonWidthChars = AttrLabelProxy + data FileChooserButtonFileSetSignalInfo instance SignalInfo FileChooserButtonFileSetSignalInfo where type HaskellCallbackType FileChooserButtonFileSetSignalInfo = FileChooserButtonFileSetCallback @@ -681,7 +705,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TInterface "Gtk" "FileChooserAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "FileChooserButton" +-- returnType : Just (TInterface "Gtk" "FileChooserButton") -- throws : False -- Skip return : False @@ -709,7 +733,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "dialog", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "FileChooserButton" +-- returnType : Just (TInterface "Gtk" "FileChooserButton") -- throws : False -- Skip return : False @@ -734,7 +758,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -762,7 +786,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -791,7 +815,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -818,7 +842,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "focus_on_click", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -848,7 +872,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooserButton", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -877,15 +901,15 @@ -- method FileChooserButton::set_width_chars -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_file_chooser_button_set_width_chars" gtk_file_chooser_button_set_width_chars :: Ptr FileChooserButton -> -- _obj : TInterface "Gtk" "FileChooserButton" - Int32 -> -- n_chars : TBasicType TInt32 + Int32 -> -- n_chars : TBasicType TInt IO () diff --git a/GI/Gtk/Objects/FileChooserButton.hs-boot b/GI/Gtk/Objects/FileChooserButton.hs-boot --- a/GI/Gtk/Objects/FileChooserButton.hs-boot +++ b/GI/Gtk/Objects/FileChooserButton.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.FileChooserButton where -import Prelude () 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 diff --git a/GI/Gtk/Objects/FileChooserDialog.hs b/GI/Gtk/Objects/FileChooserDialog.hs --- a/GI/Gtk/Objects/FileChooserDialog.hs +++ b/GI/Gtk/Objects/FileChooserDialog.hs @@ -18,9 +18,9 @@ ) where -import Prelude () 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 diff --git a/GI/Gtk/Objects/FileChooserDialog.hs-boot b/GI/Gtk/Objects/FileChooserDialog.hs-boot --- a/GI/Gtk/Objects/FileChooserDialog.hs-boot +++ b/GI/Gtk/Objects/FileChooserDialog.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.FileChooserDialog where -import Prelude () 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 diff --git a/GI/Gtk/Objects/FileChooserWidget.hs b/GI/Gtk/Objects/FileChooserWidget.hs --- a/GI/Gtk/Objects/FileChooserWidget.hs +++ b/GI/Gtk/Objects/FileChooserWidget.hs @@ -27,12 +27,14 @@ -- ** SearchMode FileChooserWidgetSearchModePropertyInfo , constructFileChooserWidgetSearchMode , + fileChooserWidgetSearchMode , getFileChooserWidgetSearchMode , setFileChooserWidgetSearchMode , -- ** Subtitle FileChooserWidgetSubtitlePropertyInfo , + fileChooserWidgetSubtitle , getFileChooserWidgetSubtitle , @@ -187,9 +189,9 @@ ) where -import Prelude () 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 @@ -1082,6 +1084,7 @@ -- VVV Prop "search-mode" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getFileChooserWidgetSearchMode :: (MonadIO m, FileChooserWidgetK o) => o -> m Bool getFileChooserWidgetSearchMode obj = liftIO $ getObjectPropertyBool obj "search-mode" @@ -1102,28 +1105,37 @@ attrGet _ = getFileChooserWidgetSearchMode attrSet _ = setFileChooserWidgetSearchMode attrConstruct _ = constructFileChooserWidgetSearchMode + attrClear _ = undefined -- VVV Prop "subtitle" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getFileChooserWidgetSubtitle :: (MonadIO m, FileChooserWidgetK o) => o -> m T.Text +getFileChooserWidgetSubtitle :: (MonadIO m, FileChooserWidgetK o) => o -> m (Maybe T.Text) getFileChooserWidgetSubtitle obj = liftIO $ getObjectPropertyString obj "subtitle" data FileChooserWidgetSubtitlePropertyInfo instance AttrInfo FileChooserWidgetSubtitlePropertyInfo where - type AttrAllowedOps FileChooserWidgetSubtitlePropertyInfo = '[ 'AttrGet] + type AttrAllowedOps FileChooserWidgetSubtitlePropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint FileChooserWidgetSubtitlePropertyInfo = (~) () type AttrBaseTypeConstraint FileChooserWidgetSubtitlePropertyInfo = FileChooserWidgetK - type AttrGetType FileChooserWidgetSubtitlePropertyInfo = T.Text + type AttrGetType FileChooserWidgetSubtitlePropertyInfo = (Maybe T.Text) type AttrLabel FileChooserWidgetSubtitlePropertyInfo = "subtitle" attrGet _ = getFileChooserWidgetSubtitle attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList FileChooserWidget = FileChooserWidgetAttributeList type FileChooserWidgetAttributeList = ('[ '("action", FileChooserActionPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("baselinePosition", BoxBaselinePositionPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("createFolders", FileChooserCreateFoldersPropertyInfo), '("doOverwriteConfirmation", FileChooserDoOverwriteConfirmationPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("extraWidget", FileChooserExtraWidgetPropertyInfo), '("filter", FileChooserFilterPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("localOnly", FileChooserLocalOnlyPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("previewWidget", FileChooserPreviewWidgetPropertyInfo), '("previewWidgetActive", FileChooserPreviewWidgetActivePropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("searchMode", FileChooserWidgetSearchModePropertyInfo), '("selectMultiple", FileChooserSelectMultiplePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showHidden", FileChooserShowHiddenPropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("subtitle", FileChooserWidgetSubtitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("usePreviewLabel", FileChooserUsePreviewLabelPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +fileChooserWidgetSearchMode :: AttrLabelProxy "searchMode" +fileChooserWidgetSearchMode = AttrLabelProxy + +fileChooserWidgetSubtitle :: AttrLabelProxy "subtitle" +fileChooserWidgetSubtitle = AttrLabelProxy + data FileChooserWidgetDesktopFolderSignalInfo instance SignalInfo FileChooserWidgetDesktopFolderSignalInfo where type HaskellCallbackType FileChooserWidgetDesktopFolderSignalInfo = FileChooserWidgetDesktopFolderCallback @@ -1191,7 +1203,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "action", argType = TInterface "Gtk" "FileChooserAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "FileChooserWidget" +-- returnType : Just (TInterface "Gtk" "FileChooserWidget") -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/FileChooserWidget.hs-boot b/GI/Gtk/Objects/FileChooserWidget.hs-boot --- a/GI/Gtk/Objects/FileChooserWidget.hs-boot +++ b/GI/Gtk/Objects/FileChooserWidget.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.FileChooserWidget where -import Prelude () 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 diff --git a/GI/Gtk/Objects/FileFilter.hs b/GI/Gtk/Objects/FileFilter.hs --- a/GI/Gtk/Objects/FileFilter.hs +++ b/GI/Gtk/Objects/FileFilter.hs @@ -65,9 +65,9 @@ ) where -import Prelude () 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 @@ -155,7 +155,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "FileFilter" +-- returnType : Just (TInterface "Gtk" "FileFilter") -- throws : False -- Skip return : False @@ -174,9 +174,9 @@ -- method FileFilter::add_custom -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "needed", argType = TInterface "Gtk" "FileFilterFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "FileFilterFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, 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}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "needed", argType = TInterface "Gtk" "FileFilterFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "FileFilterFunc", 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 = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -184,7 +184,7 @@ Ptr FileFilter -> -- _obj : TInterface "Gtk" "FileFilter" CUInt -> -- needed : TInterface "Gtk" "FileFilterFlags" FunPtr FileFilterFuncC -> -- func : TInterface "Gtk" "FileFilterFunc" - Ptr () -> -- data : TBasicType TVoid + Ptr () -> -- data : TBasicType TPtr FunPtr GLib.DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify" IO () @@ -213,7 +213,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -244,7 +244,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -275,7 +275,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -302,7 +302,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter_info", argType = TInterface "Gtk" "FileFilterInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -334,7 +334,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -363,7 +363,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "FileFilterFlags" +-- returnType : Just (TInterface "Gtk" "FileFilterFlags") -- throws : False -- Skip return : False @@ -391,7 +391,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FileFilter", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/FileFilter.hs-boot b/GI/Gtk/Objects/FileFilter.hs-boot --- a/GI/Gtk/Objects/FileFilter.hs-boot +++ b/GI/Gtk/Objects/FileFilter.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.FileFilter where -import Prelude () 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 diff --git a/GI/Gtk/Objects/Fixed.hs b/GI/Gtk/Objects/Fixed.hs --- a/GI/Gtk/Objects/Fixed.hs +++ b/GI/Gtk/Objects/Fixed.hs @@ -35,9 +35,9 @@ ) where -import Prelude () 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 @@ -402,7 +402,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "Fixed" +-- returnType : Just (TInterface "Gtk" "Fixed") -- throws : False -- Skip return : False @@ -421,17 +421,17 @@ -- method Fixed::move -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Fixed", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Fixed", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_fixed_move" gtk_fixed_move :: Ptr Fixed -> -- _obj : TInterface "Gtk" "Fixed" Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - Int32 -> -- x : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 + Int32 -> -- x : TBasicType TInt + Int32 -> -- y : TBasicType TInt IO () @@ -456,17 +456,17 @@ -- method Fixed::put -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Fixed", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Fixed", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_fixed_put" gtk_fixed_put :: Ptr Fixed -> -- _obj : TInterface "Gtk" "Fixed" Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - Int32 -> -- x : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 + Int32 -> -- x : TBasicType TInt + Int32 -> -- y : TBasicType TInt IO () diff --git a/GI/Gtk/Objects/Fixed.hs-boot b/GI/Gtk/Objects/Fixed.hs-boot --- a/GI/Gtk/Objects/Fixed.hs-boot +++ b/GI/Gtk/Objects/Fixed.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.Fixed where -import Prelude () 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 diff --git a/GI/Gtk/Objects/FlowBox.hs b/GI/Gtk/Objects/FlowBox.hs --- a/GI/Gtk/Objects/FlowBox.hs +++ b/GI/Gtk/Objects/FlowBox.hs @@ -167,6 +167,7 @@ -- ** ActivateOnSingleClick FlowBoxActivateOnSingleClickPropertyInfo, constructFlowBoxActivateOnSingleClick , + flowBoxActivateOnSingleClick , getFlowBoxActivateOnSingleClick , setFlowBoxActivateOnSingleClick , @@ -174,6 +175,7 @@ -- ** ColumnSpacing FlowBoxColumnSpacingPropertyInfo , constructFlowBoxColumnSpacing , + flowBoxColumnSpacing , getFlowBoxColumnSpacing , setFlowBoxColumnSpacing , @@ -181,6 +183,7 @@ -- ** Homogeneous FlowBoxHomogeneousPropertyInfo , constructFlowBoxHomogeneous , + flowBoxHomogeneous , getFlowBoxHomogeneous , setFlowBoxHomogeneous , @@ -188,6 +191,7 @@ -- ** MaxChildrenPerLine FlowBoxMaxChildrenPerLinePropertyInfo , constructFlowBoxMaxChildrenPerLine , + flowBoxMaxChildrenPerLine , getFlowBoxMaxChildrenPerLine , setFlowBoxMaxChildrenPerLine , @@ -195,6 +199,7 @@ -- ** MinChildrenPerLine FlowBoxMinChildrenPerLinePropertyInfo , constructFlowBoxMinChildrenPerLine , + flowBoxMinChildrenPerLine , getFlowBoxMinChildrenPerLine , setFlowBoxMinChildrenPerLine , @@ -202,6 +207,7 @@ -- ** RowSpacing FlowBoxRowSpacingPropertyInfo , constructFlowBoxRowSpacing , + flowBoxRowSpacing , getFlowBoxRowSpacing , setFlowBoxRowSpacing , @@ -209,6 +215,7 @@ -- ** SelectionMode FlowBoxSelectionModePropertyInfo , constructFlowBoxSelectionMode , + flowBoxSelectionMode , getFlowBoxSelectionMode , setFlowBoxSelectionMode , @@ -304,9 +311,9 @@ ) where -import Prelude () 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 @@ -972,6 +979,7 @@ -- VVV Prop "activate-on-single-click" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getFlowBoxActivateOnSingleClick :: (MonadIO m, FlowBoxK o) => o -> m Bool getFlowBoxActivateOnSingleClick obj = liftIO $ getObjectPropertyBool obj "activate-on-single-click" @@ -992,19 +1000,21 @@ attrGet _ = getFlowBoxActivateOnSingleClick attrSet _ = setFlowBoxActivateOnSingleClick attrConstruct _ = constructFlowBoxActivateOnSingleClick + attrClear _ = undefined -- VVV Prop "column-spacing" - -- Type: TBasicType TUInt32 + -- Type: TBasicType TUInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getFlowBoxColumnSpacing :: (MonadIO m, FlowBoxK o) => o -> m Word32 -getFlowBoxColumnSpacing obj = liftIO $ getObjectPropertyCUInt obj "column-spacing" +getFlowBoxColumnSpacing obj = liftIO $ getObjectPropertyUInt32 obj "column-spacing" setFlowBoxColumnSpacing :: (MonadIO m, FlowBoxK o) => o -> Word32 -> m () -setFlowBoxColumnSpacing obj val = liftIO $ setObjectPropertyCUInt obj "column-spacing" val +setFlowBoxColumnSpacing obj val = liftIO $ setObjectPropertyUInt32 obj "column-spacing" val constructFlowBoxColumnSpacing :: Word32 -> IO ([Char], GValue) -constructFlowBoxColumnSpacing val = constructObjectPropertyCUInt "column-spacing" val +constructFlowBoxColumnSpacing val = constructObjectPropertyUInt32 "column-spacing" val data FlowBoxColumnSpacingPropertyInfo instance AttrInfo FlowBoxColumnSpacingPropertyInfo where @@ -1016,10 +1026,12 @@ attrGet _ = getFlowBoxColumnSpacing attrSet _ = setFlowBoxColumnSpacing attrConstruct _ = constructFlowBoxColumnSpacing + attrClear _ = undefined -- VVV Prop "homogeneous" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getFlowBoxHomogeneous :: (MonadIO m, FlowBoxK o) => o -> m Bool getFlowBoxHomogeneous obj = liftIO $ getObjectPropertyBool obj "homogeneous" @@ -1040,19 +1052,21 @@ attrGet _ = getFlowBoxHomogeneous attrSet _ = setFlowBoxHomogeneous attrConstruct _ = constructFlowBoxHomogeneous + attrClear _ = undefined -- VVV Prop "max-children-per-line" - -- Type: TBasicType TUInt32 + -- Type: TBasicType TUInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getFlowBoxMaxChildrenPerLine :: (MonadIO m, FlowBoxK o) => o -> m Word32 -getFlowBoxMaxChildrenPerLine obj = liftIO $ getObjectPropertyCUInt obj "max-children-per-line" +getFlowBoxMaxChildrenPerLine obj = liftIO $ getObjectPropertyUInt32 obj "max-children-per-line" setFlowBoxMaxChildrenPerLine :: (MonadIO m, FlowBoxK o) => o -> Word32 -> m () -setFlowBoxMaxChildrenPerLine obj val = liftIO $ setObjectPropertyCUInt obj "max-children-per-line" val +setFlowBoxMaxChildrenPerLine obj val = liftIO $ setObjectPropertyUInt32 obj "max-children-per-line" val constructFlowBoxMaxChildrenPerLine :: Word32 -> IO ([Char], GValue) -constructFlowBoxMaxChildrenPerLine val = constructObjectPropertyCUInt "max-children-per-line" val +constructFlowBoxMaxChildrenPerLine val = constructObjectPropertyUInt32 "max-children-per-line" val data FlowBoxMaxChildrenPerLinePropertyInfo instance AttrInfo FlowBoxMaxChildrenPerLinePropertyInfo where @@ -1064,19 +1078,21 @@ attrGet _ = getFlowBoxMaxChildrenPerLine attrSet _ = setFlowBoxMaxChildrenPerLine attrConstruct _ = constructFlowBoxMaxChildrenPerLine + attrClear _ = undefined -- VVV Prop "min-children-per-line" - -- Type: TBasicType TUInt32 + -- Type: TBasicType TUInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getFlowBoxMinChildrenPerLine :: (MonadIO m, FlowBoxK o) => o -> m Word32 -getFlowBoxMinChildrenPerLine obj = liftIO $ getObjectPropertyCUInt obj "min-children-per-line" +getFlowBoxMinChildrenPerLine obj = liftIO $ getObjectPropertyUInt32 obj "min-children-per-line" setFlowBoxMinChildrenPerLine :: (MonadIO m, FlowBoxK o) => o -> Word32 -> m () -setFlowBoxMinChildrenPerLine obj val = liftIO $ setObjectPropertyCUInt obj "min-children-per-line" val +setFlowBoxMinChildrenPerLine obj val = liftIO $ setObjectPropertyUInt32 obj "min-children-per-line" val constructFlowBoxMinChildrenPerLine :: Word32 -> IO ([Char], GValue) -constructFlowBoxMinChildrenPerLine val = constructObjectPropertyCUInt "min-children-per-line" val +constructFlowBoxMinChildrenPerLine val = constructObjectPropertyUInt32 "min-children-per-line" val data FlowBoxMinChildrenPerLinePropertyInfo instance AttrInfo FlowBoxMinChildrenPerLinePropertyInfo where @@ -1088,19 +1104,21 @@ attrGet _ = getFlowBoxMinChildrenPerLine attrSet _ = setFlowBoxMinChildrenPerLine attrConstruct _ = constructFlowBoxMinChildrenPerLine + attrClear _ = undefined -- VVV Prop "row-spacing" - -- Type: TBasicType TUInt32 + -- Type: TBasicType TUInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getFlowBoxRowSpacing :: (MonadIO m, FlowBoxK o) => o -> m Word32 -getFlowBoxRowSpacing obj = liftIO $ getObjectPropertyCUInt obj "row-spacing" +getFlowBoxRowSpacing obj = liftIO $ getObjectPropertyUInt32 obj "row-spacing" setFlowBoxRowSpacing :: (MonadIO m, FlowBoxK o) => o -> Word32 -> m () -setFlowBoxRowSpacing obj val = liftIO $ setObjectPropertyCUInt obj "row-spacing" val +setFlowBoxRowSpacing obj val = liftIO $ setObjectPropertyUInt32 obj "row-spacing" val constructFlowBoxRowSpacing :: Word32 -> IO ([Char], GValue) -constructFlowBoxRowSpacing val = constructObjectPropertyCUInt "row-spacing" val +constructFlowBoxRowSpacing val = constructObjectPropertyUInt32 "row-spacing" val data FlowBoxRowSpacingPropertyInfo instance AttrInfo FlowBoxRowSpacingPropertyInfo where @@ -1112,10 +1130,12 @@ attrGet _ = getFlowBoxRowSpacing attrSet _ = setFlowBoxRowSpacing attrConstruct _ = constructFlowBoxRowSpacing + attrClear _ = undefined -- VVV Prop "selection-mode" -- Type: TInterface "Gtk" "SelectionMode" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getFlowBoxSelectionMode :: (MonadIO m, FlowBoxK o) => o -> m SelectionMode getFlowBoxSelectionMode obj = liftIO $ getObjectPropertyEnum obj "selection-mode" @@ -1136,10 +1156,32 @@ attrGet _ = getFlowBoxSelectionMode attrSet _ = setFlowBoxSelectionMode attrConstruct _ = constructFlowBoxSelectionMode + attrClear _ = undefined type instance AttributeList FlowBox = FlowBoxAttributeList type FlowBoxAttributeList = ('[ '("activateOnSingleClick", FlowBoxActivateOnSingleClickPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("columnSpacing", FlowBoxColumnSpacingPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("homogeneous", FlowBoxHomogeneousPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("maxChildrenPerLine", FlowBoxMaxChildrenPerLinePropertyInfo), '("minChildrenPerLine", FlowBoxMinChildrenPerLinePropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rowSpacing", FlowBoxRowSpacingPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("selectionMode", FlowBoxSelectionModePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +flowBoxActivateOnSingleClick :: AttrLabelProxy "activateOnSingleClick" +flowBoxActivateOnSingleClick = AttrLabelProxy + +flowBoxColumnSpacing :: AttrLabelProxy "columnSpacing" +flowBoxColumnSpacing = AttrLabelProxy + +flowBoxHomogeneous :: AttrLabelProxy "homogeneous" +flowBoxHomogeneous = AttrLabelProxy + +flowBoxMaxChildrenPerLine :: AttrLabelProxy "maxChildrenPerLine" +flowBoxMaxChildrenPerLine = AttrLabelProxy + +flowBoxMinChildrenPerLine :: AttrLabelProxy "minChildrenPerLine" +flowBoxMinChildrenPerLine = AttrLabelProxy + +flowBoxRowSpacing :: AttrLabelProxy "rowSpacing" +flowBoxRowSpacing = AttrLabelProxy + +flowBoxSelectionMode :: AttrLabelProxy "selectionMode" +flowBoxSelectionMode = AttrLabelProxy + data FlowBoxActivateCursorChildSignalInfo instance SignalInfo FlowBoxActivateCursorChildSignalInfo where type HaskellCallbackType FlowBoxActivateCursorChildSignalInfo = FlowBoxActivateCursorChildCallback @@ -1182,7 +1224,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "FlowBox" +-- returnType : Just (TInterface "Gtk" "FlowBox") -- throws : False -- Skip return : False @@ -1203,7 +1245,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1229,15 +1271,15 @@ -- method FlowBox::get_child_at_index -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "idx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "idx", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "FlowBoxChild" +-- returnType : Just (TInterface "Gtk" "FlowBoxChild") -- throws : False -- Skip return : False foreign import ccall "gtk_flow_box_get_child_at_index" gtk_flow_box_get_child_at_index :: Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox" - Int32 -> -- idx : TBasicType TInt32 + Int32 -> -- idx : TBasicType TInt IO (Ptr FlowBoxChild) @@ -1245,24 +1287,25 @@ (MonadIO m, FlowBoxK a) => a -- _obj -> Int32 -- idx - -> m FlowBoxChild -- result + -> m (Maybe FlowBoxChild) -- result flowBoxGetChildAtIndex _obj idx = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_flow_box_get_child_at_index _obj' idx - checkUnexpectedReturnNULL "gtk_flow_box_get_child_at_index" result - result' <- (newObject FlowBoxChild) result + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (newObject FlowBoxChild) result' + return result'' touchManagedPtr _obj - return result' + return maybeResult data FlowBoxGetChildAtIndexMethodInfo -instance (signature ~ (Int32 -> m FlowBoxChild), MonadIO m, FlowBoxK a) => MethodInfo FlowBoxGetChildAtIndexMethodInfo a signature where +instance (signature ~ (Int32 -> m (Maybe FlowBoxChild)), MonadIO m, FlowBoxK a) => MethodInfo FlowBoxGetChildAtIndexMethodInfo a signature where overloadedMethod _ = flowBoxGetChildAtIndex -- method FlowBox::get_column_spacing -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt32 +-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -1289,7 +1332,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1317,7 +1360,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt32 +-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -1344,7 +1387,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt32 +-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -1371,7 +1414,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt32 +-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -1398,7 +1441,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TGList (TInterface "Gtk" "FlowBoxChild") +-- returnType : Just (TGList (TInterface "Gtk" "FlowBoxChild")) -- throws : False -- Skip return : False @@ -1414,7 +1457,6 @@ flowBoxGetSelectedChildren _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_flow_box_get_selected_children _obj' - checkUnexpectedReturnNULL "gtk_flow_box_get_selected_children" result result' <- unpackGList result result'' <- mapM (newObject FlowBoxChild) result' g_list_free result @@ -1429,7 +1471,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "SelectionMode" +-- returnType : Just (TInterface "Gtk" "SelectionMode") -- throws : False -- Skip return : False @@ -1455,16 +1497,16 @@ -- method FlowBox::insert -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_flow_box_insert" gtk_flow_box_insert :: Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox" Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - Int32 -> -- position : TBasicType TInt32 + Int32 -> -- position : TBasicType TInt IO () @@ -1490,7 +1532,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1517,7 +1559,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1544,7 +1586,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1571,7 +1613,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "FlowBoxChild", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1600,16 +1642,16 @@ -- method FlowBox::selected_foreach -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "FlowBoxForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "FlowBoxForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_flow_box_selected_foreach" gtk_flow_box_selected_foreach :: Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox" FunPtr FlowBoxForeachFuncC -> -- func : TInterface "Gtk" "FlowBoxForeachFunc" - Ptr () -> -- data : TBasicType TVoid + Ptr () -> -- data : TBasicType TPtr IO () @@ -1635,7 +1677,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "single", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1663,15 +1705,15 @@ -- method FlowBox::set_column_spacing -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_flow_box_set_column_spacing" gtk_flow_box_set_column_spacing :: Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox" - Word32 -> -- spacing : TBasicType TUInt32 + Word32 -> -- spacing : TBasicType TUInt IO () @@ -1692,16 +1734,16 @@ -- method FlowBox::set_filter_func -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter_func", argType = TInterface "Gtk" "FlowBoxFilterFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter_func", argType = TInterface "Gtk" "FlowBoxFilterFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, 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},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_flow_box_set_filter_func" gtk_flow_box_set_filter_func :: Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox" FunPtr FlowBoxFilterFuncC -> -- filter_func : TInterface "Gtk" "FlowBoxFilterFunc" - Ptr () -> -- user_data : TBasicType TVoid + Ptr () -> -- user_data : TBasicType TPtr FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" IO () @@ -1732,7 +1774,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1763,7 +1805,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1791,15 +1833,15 @@ -- method FlowBox::set_max_children_per_line -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_children", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_children", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_flow_box_set_max_children_per_line" gtk_flow_box_set_max_children_per_line :: Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox" - Word32 -> -- n_children : TBasicType TUInt32 + Word32 -> -- n_children : TBasicType TUInt IO () @@ -1820,15 +1862,15 @@ -- method FlowBox::set_min_children_per_line -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_children", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_children", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_flow_box_set_min_children_per_line" gtk_flow_box_set_min_children_per_line :: Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox" - Word32 -> -- n_children : TBasicType TUInt32 + Word32 -> -- n_children : TBasicType TUInt IO () @@ -1849,15 +1891,15 @@ -- method FlowBox::set_row_spacing -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_flow_box_set_row_spacing" gtk_flow_box_set_row_spacing :: Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox" - Word32 -> -- spacing : TBasicType TUInt32 + Word32 -> -- spacing : TBasicType TUInt IO () @@ -1880,7 +1922,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mode", argType = TInterface "Gtk" "SelectionMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1908,16 +1950,16 @@ -- method FlowBox::set_sort_func -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_func", argType = TInterface "Gtk" "FlowBoxSortFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_func", argType = TInterface "Gtk" "FlowBoxSortFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, 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},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_flow_box_set_sort_func" gtk_flow_box_set_sort_func :: Ptr FlowBox -> -- _obj : TInterface "Gtk" "FlowBox" FunPtr FlowBoxSortFuncC -> -- sort_func : TInterface "Gtk" "FlowBoxSortFunc" - Ptr () -> -- user_data : TBasicType TVoid + Ptr () -> -- user_data : TBasicType TPtr FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" IO () @@ -1948,7 +1990,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1979,7 +2021,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2006,7 +2048,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "FlowBoxChild", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/FlowBox.hs-boot b/GI/Gtk/Objects/FlowBox.hs-boot --- a/GI/Gtk/Objects/FlowBox.hs-boot +++ b/GI/Gtk/Objects/FlowBox.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.FlowBox where -import Prelude () 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 diff --git a/GI/Gtk/Objects/FlowBoxAccessible.hs b/GI/Gtk/Objects/FlowBoxAccessible.hs --- a/GI/Gtk/Objects/FlowBoxAccessible.hs +++ b/GI/Gtk/Objects/FlowBoxAccessible.hs @@ -18,9 +18,9 @@ ) where -import Prelude () 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 diff --git a/GI/Gtk/Objects/FlowBoxAccessible.hs-boot b/GI/Gtk/Objects/FlowBoxAccessible.hs-boot --- a/GI/Gtk/Objects/FlowBoxAccessible.hs-boot +++ b/GI/Gtk/Objects/FlowBoxAccessible.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.FlowBoxAccessible where -import Prelude () 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 diff --git a/GI/Gtk/Objects/FlowBoxChild.hs b/GI/Gtk/Objects/FlowBoxChild.hs --- a/GI/Gtk/Objects/FlowBoxChild.hs +++ b/GI/Gtk/Objects/FlowBoxChild.hs @@ -55,9 +55,9 @@ ) where -import Prelude () 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 @@ -467,7 +467,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "FlowBoxChild" +-- returnType : Just (TInterface "Gtk" "FlowBoxChild") -- throws : False -- Skip return : False @@ -488,7 +488,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBoxChild", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -515,7 +515,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBoxChild", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -542,7 +542,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FlowBoxChild", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/FlowBoxChild.hs-boot b/GI/Gtk/Objects/FlowBoxChild.hs-boot --- a/GI/Gtk/Objects/FlowBoxChild.hs-boot +++ b/GI/Gtk/Objects/FlowBoxChild.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.FlowBoxChild where -import Prelude () 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 diff --git a/GI/Gtk/Objects/FlowBoxChildAccessible.hs b/GI/Gtk/Objects/FlowBoxChildAccessible.hs --- a/GI/Gtk/Objects/FlowBoxChildAccessible.hs +++ b/GI/Gtk/Objects/FlowBoxChildAccessible.hs @@ -18,9 +18,9 @@ ) where -import Prelude () 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 diff --git a/GI/Gtk/Objects/FlowBoxChildAccessible.hs-boot b/GI/Gtk/Objects/FlowBoxChildAccessible.hs-boot --- a/GI/Gtk/Objects/FlowBoxChildAccessible.hs-boot +++ b/GI/Gtk/Objects/FlowBoxChildAccessible.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.FlowBoxChildAccessible where -import Prelude () 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 diff --git a/GI/Gtk/Objects/FontButton.hs b/GI/Gtk/Objects/FontButton.hs --- a/GI/Gtk/Objects/FontButton.hs +++ b/GI/Gtk/Objects/FontButton.hs @@ -90,7 +90,9 @@ -- * Properties -- ** FontName FontButtonFontNamePropertyInfo , + clearFontButtonFontName , constructFontButtonFontName , + fontButtonFontName , getFontButtonFontName , setFontButtonFontName , @@ -98,6 +100,7 @@ -- ** ShowSize FontButtonShowSizePropertyInfo , constructFontButtonShowSize , + fontButtonShowSize , getFontButtonShowSize , setFontButtonShowSize , @@ -105,6 +108,7 @@ -- ** ShowStyle FontButtonShowStylePropertyInfo , constructFontButtonShowStyle , + fontButtonShowStyle , getFontButtonShowStyle , setFontButtonShowStyle , @@ -112,6 +116,7 @@ -- ** Title FontButtonTitlePropertyInfo , constructFontButtonTitle , + fontButtonTitle , getFontButtonTitle , setFontButtonTitle , @@ -119,6 +124,7 @@ -- ** UseFont FontButtonUseFontPropertyInfo , constructFontButtonUseFont , + fontButtonUseFont , getFontButtonUseFont , setFontButtonUseFont , @@ -126,6 +132,7 @@ -- ** UseSize FontButtonUseSizePropertyInfo , constructFontButtonUseSize , + fontButtonUseSize , getFontButtonUseSize , setFontButtonUseSize , @@ -149,9 +156,9 @@ ) where -import Prelude () 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 @@ -603,19 +610,23 @@ -- VVV Prop "font-name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Nothing) getFontButtonFontName :: (MonadIO m, FontButtonK o) => o -> m T.Text -getFontButtonFontName obj = liftIO $ getObjectPropertyString obj "font-name" +getFontButtonFontName obj = liftIO $ checkUnexpectedNothing "getFontButtonFontName" $ getObjectPropertyString obj "font-name" setFontButtonFontName :: (MonadIO m, FontButtonK o) => o -> T.Text -> m () -setFontButtonFontName obj val = liftIO $ setObjectPropertyString obj "font-name" val +setFontButtonFontName obj val = liftIO $ setObjectPropertyString obj "font-name" (Just val) constructFontButtonFontName :: T.Text -> IO ([Char], GValue) -constructFontButtonFontName val = constructObjectPropertyString "font-name" val +constructFontButtonFontName val = constructObjectPropertyString "font-name" (Just val) +clearFontButtonFontName :: (MonadIO m, FontButtonK o) => o -> m () +clearFontButtonFontName obj = liftIO $ setObjectPropertyString obj "font-name" (Nothing :: Maybe T.Text) + data FontButtonFontNamePropertyInfo instance AttrInfo FontButtonFontNamePropertyInfo where - type AttrAllowedOps FontButtonFontNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps FontButtonFontNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint FontButtonFontNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint FontButtonFontNamePropertyInfo = FontButtonK type AttrGetType FontButtonFontNamePropertyInfo = T.Text @@ -623,10 +634,12 @@ attrGet _ = getFontButtonFontName attrSet _ = setFontButtonFontName attrConstruct _ = constructFontButtonFontName + attrClear _ = clearFontButtonFontName -- VVV Prop "show-size" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getFontButtonShowSize :: (MonadIO m, FontButtonK o) => o -> m Bool getFontButtonShowSize obj = liftIO $ getObjectPropertyBool obj "show-size" @@ -647,10 +660,12 @@ attrGet _ = getFontButtonShowSize attrSet _ = setFontButtonShowSize attrConstruct _ = constructFontButtonShowSize + attrClear _ = undefined -- VVV Prop "show-style" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getFontButtonShowStyle :: (MonadIO m, FontButtonK o) => o -> m Bool getFontButtonShowStyle obj = liftIO $ getObjectPropertyBool obj "show-style" @@ -671,19 +686,21 @@ attrGet _ = getFontButtonShowStyle attrSet _ = setFontButtonShowStyle attrConstruct _ = constructFontButtonShowStyle + attrClear _ = undefined -- VVV Prop "title" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getFontButtonTitle :: (MonadIO m, FontButtonK o) => o -> m T.Text -getFontButtonTitle obj = liftIO $ getObjectPropertyString obj "title" +getFontButtonTitle obj = liftIO $ checkUnexpectedNothing "getFontButtonTitle" $ getObjectPropertyString obj "title" setFontButtonTitle :: (MonadIO m, FontButtonK o) => o -> T.Text -> m () -setFontButtonTitle obj val = liftIO $ setObjectPropertyString obj "title" val +setFontButtonTitle obj val = liftIO $ setObjectPropertyString obj "title" (Just val) constructFontButtonTitle :: T.Text -> IO ([Char], GValue) -constructFontButtonTitle val = constructObjectPropertyString "title" val +constructFontButtonTitle val = constructObjectPropertyString "title" (Just val) data FontButtonTitlePropertyInfo instance AttrInfo FontButtonTitlePropertyInfo where @@ -695,10 +712,12 @@ attrGet _ = getFontButtonTitle attrSet _ = setFontButtonTitle attrConstruct _ = constructFontButtonTitle + attrClear _ = undefined -- VVV Prop "use-font" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getFontButtonUseFont :: (MonadIO m, FontButtonK o) => o -> m Bool getFontButtonUseFont obj = liftIO $ getObjectPropertyBool obj "use-font" @@ -719,10 +738,12 @@ attrGet _ = getFontButtonUseFont attrSet _ = setFontButtonUseFont attrConstruct _ = constructFontButtonUseFont + attrClear _ = undefined -- VVV Prop "use-size" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getFontButtonUseSize :: (MonadIO m, FontButtonK o) => o -> m Bool getFontButtonUseSize obj = liftIO $ getObjectPropertyBool obj "use-size" @@ -743,10 +764,29 @@ attrGet _ = getFontButtonUseSize attrSet _ = setFontButtonUseSize attrConstruct _ = constructFontButtonUseSize + attrClear _ = undefined type instance AttributeList FontButton = FontButtonAttributeList type FontButtonAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("alwaysShowImage", ButtonAlwaysShowImagePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnClick", ButtonFocusOnClickPropertyInfo), '("font", FontChooserFontPropertyInfo), '("fontDesc", FontChooserFontDescPropertyInfo), '("fontName", FontButtonFontNamePropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("image", ButtonImagePropertyInfo), '("imagePosition", ButtonImagePositionPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("previewText", FontChooserPreviewTextPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showPreviewEntry", FontChooserShowPreviewEntryPropertyInfo), '("showSize", FontButtonShowSizePropertyInfo), '("showStyle", FontButtonShowStylePropertyInfo), '("style", WidgetStylePropertyInfo), '("title", FontButtonTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useFont", FontButtonUseFontPropertyInfo), '("useSize", FontButtonUseSizePropertyInfo), '("useStock", ButtonUseStockPropertyInfo), '("useUnderline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) +fontButtonFontName :: AttrLabelProxy "fontName" +fontButtonFontName = AttrLabelProxy + +fontButtonShowSize :: AttrLabelProxy "showSize" +fontButtonShowSize = AttrLabelProxy + +fontButtonShowStyle :: AttrLabelProxy "showStyle" +fontButtonShowStyle = AttrLabelProxy + +fontButtonTitle :: AttrLabelProxy "title" +fontButtonTitle = AttrLabelProxy + +fontButtonUseFont :: AttrLabelProxy "useFont" +fontButtonUseFont = AttrLabelProxy + +fontButtonUseSize :: AttrLabelProxy "useSize" +fontButtonUseSize = AttrLabelProxy + data FontButtonFontSetSignalInfo instance SignalInfo FontButtonFontSetSignalInfo where type HaskellCallbackType FontButtonFontSetSignalInfo = FontButtonFontSetCallback @@ -759,7 +799,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "FontButton" +-- returnType : Just (TInterface "Gtk" "FontButton") -- throws : False -- Skip return : False @@ -780,7 +820,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "fontname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "FontButton" +-- returnType : Just (TInterface "Gtk" "FontButton") -- throws : False -- Skip return : False @@ -805,7 +845,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -834,7 +874,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -862,7 +902,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -890,7 +930,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -919,7 +959,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -947,7 +987,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -975,7 +1015,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fontname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1007,7 +1047,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_size", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1037,7 +1077,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_style", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1067,7 +1107,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontButton", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1098,7 +1138,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_font", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1128,7 +1168,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_size", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/FontButton.hs-boot b/GI/Gtk/Objects/FontButton.hs-boot --- a/GI/Gtk/Objects/FontButton.hs-boot +++ b/GI/Gtk/Objects/FontButton.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.FontButton where -import Prelude () 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 diff --git a/GI/Gtk/Objects/FontChooserDialog.hs b/GI/Gtk/Objects/FontChooserDialog.hs --- a/GI/Gtk/Objects/FontChooserDialog.hs +++ b/GI/Gtk/Objects/FontChooserDialog.hs @@ -25,9 +25,9 @@ ) where -import Prelude () 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 @@ -514,7 +514,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "FontChooserDialog" +-- returnType : Just (TInterface "Gtk" "FontChooserDialog") -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/FontChooserDialog.hs-boot b/GI/Gtk/Objects/FontChooserDialog.hs-boot --- a/GI/Gtk/Objects/FontChooserDialog.hs-boot +++ b/GI/Gtk/Objects/FontChooserDialog.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.FontChooserDialog where -import Prelude () 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 diff --git a/GI/Gtk/Objects/FontChooserWidget.hs b/GI/Gtk/Objects/FontChooserWidget.hs --- a/GI/Gtk/Objects/FontChooserWidget.hs +++ b/GI/Gtk/Objects/FontChooserWidget.hs @@ -25,9 +25,9 @@ ) where -import Prelude () 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 @@ -415,7 +415,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "FontChooserWidget" +-- returnType : Just (TInterface "Gtk" "FontChooserWidget") -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/FontChooserWidget.hs-boot b/GI/Gtk/Objects/FontChooserWidget.hs-boot --- a/GI/Gtk/Objects/FontChooserWidget.hs-boot +++ b/GI/Gtk/Objects/FontChooserWidget.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.FontChooserWidget where -import Prelude () 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 diff --git a/GI/Gtk/Objects/FontSelection.hs b/GI/Gtk/Objects/FontSelection.hs --- a/GI/Gtk/Objects/FontSelection.hs +++ b/GI/Gtk/Objects/FontSelection.hs @@ -86,7 +86,9 @@ -- * Properties -- ** FontName FontSelectionFontNamePropertyInfo , + clearFontSelectionFontName , constructFontSelectionFontName , + fontSelectionFontName , getFontSelectionFontName , setFontSelectionFontName , @@ -94,6 +96,7 @@ -- ** PreviewText FontSelectionPreviewTextPropertyInfo , constructFontSelectionPreviewText , + fontSelectionPreviewText , getFontSelectionPreviewText , setFontSelectionPreviewText , @@ -102,9 +105,9 @@ ) where -import Prelude () 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 @@ -488,39 +491,45 @@ -- VVV Prop "font-name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getFontSelectionFontName :: (MonadIO m, FontSelectionK o) => o -> m T.Text +getFontSelectionFontName :: (MonadIO m, FontSelectionK o) => o -> m (Maybe T.Text) getFontSelectionFontName obj = liftIO $ getObjectPropertyString obj "font-name" setFontSelectionFontName :: (MonadIO m, FontSelectionK o) => o -> T.Text -> m () -setFontSelectionFontName obj val = liftIO $ setObjectPropertyString obj "font-name" val +setFontSelectionFontName obj val = liftIO $ setObjectPropertyString obj "font-name" (Just val) constructFontSelectionFontName :: T.Text -> IO ([Char], GValue) -constructFontSelectionFontName val = constructObjectPropertyString "font-name" val +constructFontSelectionFontName val = constructObjectPropertyString "font-name" (Just val) +clearFontSelectionFontName :: (MonadIO m, FontSelectionK o) => o -> m () +clearFontSelectionFontName obj = liftIO $ setObjectPropertyString obj "font-name" (Nothing :: Maybe T.Text) + data FontSelectionFontNamePropertyInfo instance AttrInfo FontSelectionFontNamePropertyInfo where - type AttrAllowedOps FontSelectionFontNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps FontSelectionFontNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint FontSelectionFontNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint FontSelectionFontNamePropertyInfo = FontSelectionK - type AttrGetType FontSelectionFontNamePropertyInfo = T.Text + type AttrGetType FontSelectionFontNamePropertyInfo = (Maybe T.Text) type AttrLabel FontSelectionFontNamePropertyInfo = "font-name" attrGet _ = getFontSelectionFontName attrSet _ = setFontSelectionFontName attrConstruct _ = constructFontSelectionFontName + attrClear _ = clearFontSelectionFontName -- VVV Prop "preview-text" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getFontSelectionPreviewText :: (MonadIO m, FontSelectionK o) => o -> m T.Text -getFontSelectionPreviewText obj = liftIO $ getObjectPropertyString obj "preview-text" +getFontSelectionPreviewText obj = liftIO $ checkUnexpectedNothing "getFontSelectionPreviewText" $ getObjectPropertyString obj "preview-text" setFontSelectionPreviewText :: (MonadIO m, FontSelectionK o) => o -> T.Text -> m () -setFontSelectionPreviewText obj val = liftIO $ setObjectPropertyString obj "preview-text" val +setFontSelectionPreviewText obj val = liftIO $ setObjectPropertyString obj "preview-text" (Just val) constructFontSelectionPreviewText :: T.Text -> IO ([Char], GValue) -constructFontSelectionPreviewText val = constructObjectPropertyString "preview-text" val +constructFontSelectionPreviewText val = constructObjectPropertyString "preview-text" (Just val) data FontSelectionPreviewTextPropertyInfo instance AttrInfo FontSelectionPreviewTextPropertyInfo where @@ -532,10 +541,17 @@ attrGet _ = getFontSelectionPreviewText attrSet _ = setFontSelectionPreviewText attrConstruct _ = constructFontSelectionPreviewText + attrClear _ = undefined type instance AttributeList FontSelection = FontSelectionAttributeList type FontSelectionAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("baselinePosition", BoxBaselinePositionPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("fontName", FontSelectionFontNamePropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("previewText", FontSelectionPreviewTextPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +fontSelectionFontName :: AttrLabelProxy "fontName" +fontSelectionFontName = AttrLabelProxy + +fontSelectionPreviewText :: AttrLabelProxy "previewText" +fontSelectionPreviewText = AttrLabelProxy + type instance SignalList FontSelection = FontSelectionSignalList type FontSelectionSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -543,7 +559,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "FontSelection" +-- returnType : Just (TInterface "Gtk" "FontSelection") -- throws : False -- Skip return : False @@ -564,7 +580,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Pango" "FontFace" +-- returnType : Just (TInterface "Pango" "FontFace") -- throws : False -- Skip return : False @@ -593,7 +609,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -622,7 +638,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Pango" "FontFamily" +-- returnType : Just (TInterface "Pango" "FontFamily") -- throws : False -- Skip return : False @@ -651,7 +667,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -680,7 +696,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -710,7 +726,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -739,7 +755,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -768,7 +784,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -795,7 +811,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -824,7 +840,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -853,7 +869,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fontname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -885,7 +901,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/FontSelection.hs-boot b/GI/Gtk/Objects/FontSelection.hs-boot --- a/GI/Gtk/Objects/FontSelection.hs-boot +++ b/GI/Gtk/Objects/FontSelection.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.FontSelection where -import Prelude () 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 diff --git a/GI/Gtk/Objects/FontSelectionDialog.hs b/GI/Gtk/Objects/FontSelectionDialog.hs --- a/GI/Gtk/Objects/FontSelectionDialog.hs +++ b/GI/Gtk/Objects/FontSelectionDialog.hs @@ -60,9 +60,9 @@ ) where -import Prelude () 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 @@ -546,7 +546,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "FontSelectionDialog" +-- returnType : Just (TInterface "Gtk" "FontSelectionDialog") -- throws : False -- Skip return : False @@ -571,7 +571,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -600,7 +600,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -630,7 +630,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -659,7 +659,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -688,7 +688,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -717,7 +717,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fontname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -749,7 +749,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/FontSelectionDialog.hs-boot b/GI/Gtk/Objects/FontSelectionDialog.hs-boot --- a/GI/Gtk/Objects/FontSelectionDialog.hs-boot +++ b/GI/Gtk/Objects/FontSelectionDialog.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.FontSelectionDialog where -import Prelude () 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 diff --git a/GI/Gtk/Objects/Frame.hs b/GI/Gtk/Objects/Frame.hs --- a/GI/Gtk/Objects/Frame.hs +++ b/GI/Gtk/Objects/Frame.hs @@ -66,14 +66,18 @@ -- * Properties -- ** Label FrameLabelPropertyInfo , + clearFrameLabel , constructFrameLabel , + frameLabel , getFrameLabel , setFrameLabel , -- ** LabelWidget FrameLabelWidgetPropertyInfo , + clearFrameLabelWidget , constructFrameLabelWidget , + frameLabelWidget , getFrameLabelWidget , setFrameLabelWidget , @@ -81,6 +85,7 @@ -- ** LabelXalign FrameLabelXalignPropertyInfo , constructFrameLabelXalign , + frameLabelXalign , getFrameLabelXalign , setFrameLabelXalign , @@ -88,6 +93,7 @@ -- ** LabelYalign FrameLabelYalignPropertyInfo , constructFrameLabelYalign , + frameLabelYalign , getFrameLabelYalign , setFrameLabelYalign , @@ -95,6 +101,7 @@ -- ** ShadowType FrameShadowTypePropertyInfo , constructFrameShadowType , + frameShadowType , getFrameShadowType , setFrameShadowType , @@ -103,9 +110,9 @@ ) where -import Prelude () 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 @@ -470,19 +477,23 @@ -- VVV Prop "label" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) getFrameLabel :: (MonadIO m, FrameK o) => o -> m T.Text -getFrameLabel obj = liftIO $ getObjectPropertyString obj "label" +getFrameLabel obj = liftIO $ checkUnexpectedNothing "getFrameLabel" $ getObjectPropertyString obj "label" setFrameLabel :: (MonadIO m, FrameK o) => o -> T.Text -> m () -setFrameLabel obj val = liftIO $ setObjectPropertyString obj "label" val +setFrameLabel obj val = liftIO $ setObjectPropertyString obj "label" (Just val) constructFrameLabel :: T.Text -> IO ([Char], GValue) -constructFrameLabel val = constructObjectPropertyString "label" val +constructFrameLabel val = constructObjectPropertyString "label" (Just val) +clearFrameLabel :: (MonadIO m, FrameK o) => o -> m () +clearFrameLabel obj = liftIO $ setObjectPropertyString obj "label" (Nothing :: Maybe T.Text) + data FrameLabelPropertyInfo instance AttrInfo FrameLabelPropertyInfo where - type AttrAllowedOps FrameLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps FrameLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint FrameLabelPropertyInfo = (~) T.Text type AttrBaseTypeConstraint FrameLabelPropertyInfo = FrameK type AttrGetType FrameLabelPropertyInfo = T.Text @@ -490,34 +501,41 @@ attrGet _ = getFrameLabel attrSet _ = setFrameLabel attrConstruct _ = constructFrameLabel + attrClear _ = clearFrameLabel -- VVV Prop "label-widget" -- Type: TInterface "Gtk" "Widget" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just True,Just True) -getFrameLabelWidget :: (MonadIO m, FrameK o) => o -> m Widget +getFrameLabelWidget :: (MonadIO m, FrameK o) => o -> m (Maybe Widget) getFrameLabelWidget obj = liftIO $ getObjectPropertyObject obj "label-widget" Widget setFrameLabelWidget :: (MonadIO m, FrameK o, WidgetK a) => o -> a -> m () -setFrameLabelWidget obj val = liftIO $ setObjectPropertyObject obj "label-widget" val +setFrameLabelWidget obj val = liftIO $ setObjectPropertyObject obj "label-widget" (Just val) constructFrameLabelWidget :: (WidgetK a) => a -> IO ([Char], GValue) -constructFrameLabelWidget val = constructObjectPropertyObject "label-widget" val +constructFrameLabelWidget val = constructObjectPropertyObject "label-widget" (Just val) +clearFrameLabelWidget :: (MonadIO m, FrameK o) => o -> m () +clearFrameLabelWidget obj = liftIO $ setObjectPropertyObject obj "label-widget" (Nothing :: Maybe Widget) + data FrameLabelWidgetPropertyInfo instance AttrInfo FrameLabelWidgetPropertyInfo where - type AttrAllowedOps FrameLabelWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps FrameLabelWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint FrameLabelWidgetPropertyInfo = WidgetK type AttrBaseTypeConstraint FrameLabelWidgetPropertyInfo = FrameK - type AttrGetType FrameLabelWidgetPropertyInfo = Widget + type AttrGetType FrameLabelWidgetPropertyInfo = (Maybe Widget) type AttrLabel FrameLabelWidgetPropertyInfo = "label-widget" attrGet _ = getFrameLabelWidget attrSet _ = setFrameLabelWidget attrConstruct _ = constructFrameLabelWidget + attrClear _ = clearFrameLabelWidget -- VVV Prop "label-xalign" -- Type: TBasicType TFloat -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getFrameLabelXalign :: (MonadIO m, FrameK o) => o -> m Float getFrameLabelXalign obj = liftIO $ getObjectPropertyFloat obj "label-xalign" @@ -538,10 +556,12 @@ attrGet _ = getFrameLabelXalign attrSet _ = setFrameLabelXalign attrConstruct _ = constructFrameLabelXalign + attrClear _ = undefined -- VVV Prop "label-yalign" -- Type: TBasicType TFloat -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getFrameLabelYalign :: (MonadIO m, FrameK o) => o -> m Float getFrameLabelYalign obj = liftIO $ getObjectPropertyFloat obj "label-yalign" @@ -562,10 +582,12 @@ attrGet _ = getFrameLabelYalign attrSet _ = setFrameLabelYalign attrConstruct _ = constructFrameLabelYalign + attrClear _ = undefined -- VVV Prop "shadow-type" -- Type: TInterface "Gtk" "ShadowType" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getFrameShadowType :: (MonadIO m, FrameK o) => o -> m ShadowType getFrameShadowType obj = liftIO $ getObjectPropertyEnum obj "shadow-type" @@ -586,10 +608,26 @@ attrGet _ = getFrameShadowType attrSet _ = setFrameShadowType attrConstruct _ = constructFrameShadowType + attrClear _ = undefined type instance AttributeList Frame = FrameAttributeList type FrameAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", FrameLabelPropertyInfo), '("labelWidget", FrameLabelWidgetPropertyInfo), '("labelXalign", FrameLabelXalignPropertyInfo), '("labelYalign", FrameLabelYalignPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadowType", FrameShadowTypePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +frameLabel :: AttrLabelProxy "label" +frameLabel = AttrLabelProxy + +frameLabelWidget :: AttrLabelProxy "labelWidget" +frameLabelWidget = AttrLabelProxy + +frameLabelXalign :: AttrLabelProxy "labelXalign" +frameLabelXalign = AttrLabelProxy + +frameLabelYalign :: AttrLabelProxy "labelYalign" +frameLabelYalign = AttrLabelProxy + +frameShadowType :: AttrLabelProxy "shadowType" +frameShadowType = AttrLabelProxy + type instance SignalList Frame = FrameSignalList type FrameSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -597,7 +635,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Frame" +-- returnType : Just (TInterface "Gtk" "Frame") -- throws : False -- Skip return : False @@ -626,7 +664,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -655,7 +693,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "yalign", argType = TBasicType TFloat, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -692,7 +730,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -704,24 +742,25 @@ frameGetLabelWidget :: (MonadIO m, FrameK a) => a -- _obj - -> m Widget -- result + -> m (Maybe Widget) -- result frameGetLabelWidget _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_frame_get_label_widget _obj' - checkUnexpectedReturnNULL "gtk_frame_get_label_widget" result - result' <- (newObject Widget) result + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (newObject Widget) result' + return result'' touchManagedPtr _obj - return result' + return maybeResult data FrameGetLabelWidgetMethodInfo -instance (signature ~ (m Widget), MonadIO m, FrameK a) => MethodInfo FrameGetLabelWidgetMethodInfo a signature where +instance (signature ~ (m (Maybe Widget)), MonadIO m, FrameK a) => MethodInfo FrameGetLabelWidgetMethodInfo a signature where overloadedMethod _ = frameGetLabelWidget -- method Frame::get_shadow_type -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "ShadowType" +-- returnType : Just (TInterface "Gtk" "ShadowType") -- throws : False -- Skip return : False @@ -749,7 +788,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -784,7 +823,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -817,7 +856,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -852,7 +891,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/Frame.hs-boot b/GI/Gtk/Objects/Frame.hs-boot --- a/GI/Gtk/Objects/Frame.hs-boot +++ b/GI/Gtk/Objects/Frame.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.Frame where -import Prelude () 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 diff --git a/GI/Gtk/Objects/FrameAccessible.hs b/GI/Gtk/Objects/FrameAccessible.hs --- a/GI/Gtk/Objects/FrameAccessible.hs +++ b/GI/Gtk/Objects/FrameAccessible.hs @@ -18,9 +18,9 @@ ) where -import Prelude () 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 diff --git a/GI/Gtk/Objects/FrameAccessible.hs-boot b/GI/Gtk/Objects/FrameAccessible.hs-boot --- a/GI/Gtk/Objects/FrameAccessible.hs-boot +++ b/GI/Gtk/Objects/FrameAccessible.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.FrameAccessible where -import Prelude () 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 diff --git a/GI/Gtk/Objects/GLArea.hs b/GI/Gtk/Objects/GLArea.hs --- a/GI/Gtk/Objects/GLArea.hs +++ b/GI/Gtk/Objects/GLArea.hs @@ -107,18 +107,21 @@ -- ** AutoRender GLAreaAutoRenderPropertyInfo , constructGLAreaAutoRender , + gLAreaAutoRender , getGLAreaAutoRender , setGLAreaAutoRender , -- ** Context GLAreaContextPropertyInfo , + gLAreaContext , getGLAreaContext , -- ** HasAlpha GLAreaHasAlphaPropertyInfo , constructGLAreaHasAlpha , + gLAreaHasAlpha , getGLAreaHasAlpha , setGLAreaHasAlpha , @@ -126,6 +129,7 @@ -- ** HasDepthBuffer GLAreaHasDepthBufferPropertyInfo , constructGLAreaHasDepthBuffer , + gLAreaHasDepthBuffer , getGLAreaHasDepthBuffer , setGLAreaHasDepthBuffer , @@ -133,6 +137,7 @@ -- ** HasStencilBuffer GLAreaHasStencilBufferPropertyInfo , constructGLAreaHasStencilBuffer , + gLAreaHasStencilBuffer , getGLAreaHasStencilBuffer , setGLAreaHasStencilBuffer , @@ -180,9 +185,9 @@ ) where -import Prelude () 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 @@ -657,6 +662,7 @@ -- VVV Prop "auto-render" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getGLAreaAutoRender :: (MonadIO m, GLAreaK o) => o -> m Bool getGLAreaAutoRender obj = liftIO $ getObjectPropertyBool obj "auto-render" @@ -677,17 +683,19 @@ attrGet _ = getGLAreaAutoRender attrSet _ = setGLAreaAutoRender attrConstruct _ = constructGLAreaAutoRender + attrClear _ = undefined -- VVV Prop "context" -- Type: TInterface "Gdk" "GLContext" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getGLAreaContext :: (MonadIO m, GLAreaK o) => o -> m Gdk.GLContext -getGLAreaContext obj = liftIO $ getObjectPropertyObject obj "context" Gdk.GLContext +getGLAreaContext obj = liftIO $ checkUnexpectedNothing "getGLAreaContext" $ getObjectPropertyObject obj "context" Gdk.GLContext data GLAreaContextPropertyInfo instance AttrInfo GLAreaContextPropertyInfo where - type AttrAllowedOps GLAreaContextPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps GLAreaContextPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint GLAreaContextPropertyInfo = (~) () type AttrBaseTypeConstraint GLAreaContextPropertyInfo = GLAreaK type AttrGetType GLAreaContextPropertyInfo = Gdk.GLContext @@ -695,10 +703,12 @@ attrGet _ = getGLAreaContext attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "has-alpha" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getGLAreaHasAlpha :: (MonadIO m, GLAreaK o) => o -> m Bool getGLAreaHasAlpha obj = liftIO $ getObjectPropertyBool obj "has-alpha" @@ -719,10 +729,12 @@ attrGet _ = getGLAreaHasAlpha attrSet _ = setGLAreaHasAlpha attrConstruct _ = constructGLAreaHasAlpha + attrClear _ = undefined -- VVV Prop "has-depth-buffer" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getGLAreaHasDepthBuffer :: (MonadIO m, GLAreaK o) => o -> m Bool getGLAreaHasDepthBuffer obj = liftIO $ getObjectPropertyBool obj "has-depth-buffer" @@ -743,10 +755,12 @@ attrGet _ = getGLAreaHasDepthBuffer attrSet _ = setGLAreaHasDepthBuffer attrConstruct _ = constructGLAreaHasDepthBuffer + attrClear _ = undefined -- VVV Prop "has-stencil-buffer" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getGLAreaHasStencilBuffer :: (MonadIO m, GLAreaK o) => o -> m Bool getGLAreaHasStencilBuffer obj = liftIO $ getObjectPropertyBool obj "has-stencil-buffer" @@ -767,10 +781,26 @@ attrGet _ = getGLAreaHasStencilBuffer attrSet _ = setGLAreaHasStencilBuffer attrConstruct _ = constructGLAreaHasStencilBuffer + attrClear _ = undefined type instance AttributeList GLArea = GLAreaAttributeList type GLAreaAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("autoRender", GLAreaAutoRenderPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("context", GLAreaContextPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasAlpha", GLAreaHasAlphaPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasDepthBuffer", GLAreaHasDepthBufferPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasStencilBuffer", GLAreaHasStencilBufferPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +gLAreaAutoRender :: AttrLabelProxy "autoRender" +gLAreaAutoRender = AttrLabelProxy + +gLAreaContext :: AttrLabelProxy "context" +gLAreaContext = AttrLabelProxy + +gLAreaHasAlpha :: AttrLabelProxy "hasAlpha" +gLAreaHasAlpha = AttrLabelProxy + +gLAreaHasDepthBuffer :: AttrLabelProxy "hasDepthBuffer" +gLAreaHasDepthBuffer = AttrLabelProxy + +gLAreaHasStencilBuffer :: AttrLabelProxy "hasStencilBuffer" +gLAreaHasStencilBuffer = AttrLabelProxy + data GLAreaCreateContextSignalInfo instance SignalInfo GLAreaCreateContextSignalInfo where type HaskellCallbackType GLAreaCreateContextSignalInfo = GLAreaCreateContextCallback @@ -793,7 +823,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "GLArea" +-- returnType : Just (TInterface "Gtk" "GLArea") -- throws : False -- Skip return : False @@ -814,7 +844,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -841,7 +871,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -869,7 +899,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gdk" "GLContext" +-- returnType : Just (TInterface "Gdk" "GLContext") -- throws : False -- Skip return : False @@ -898,7 +928,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TError +-- returnType : Just TError -- throws : False -- Skip return : False @@ -927,7 +957,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -955,7 +985,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -983,7 +1013,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1009,16 +1039,16 @@ -- method GLArea::get_required_version -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "major", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "minor", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_gl_area_get_required_version" gtk_gl_area_get_required_version :: Ptr GLArea -> -- _obj : TInterface "Gtk" "GLArea" - Ptr Int32 -> -- major : TBasicType TInt32 - Ptr Int32 -> -- minor : TBasicType TInt32 + Ptr Int32 -> -- major : TBasicType TInt + Ptr Int32 -> -- minor : TBasicType TInt IO () @@ -1046,7 +1076,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1073,7 +1103,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1100,7 +1130,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "auto_render", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1130,7 +1160,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "error", argType = TError, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1165,7 +1195,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "has_alpha", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1195,7 +1225,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "has_depth_buffer", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1225,7 +1255,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "has_stencil_buffer", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1253,16 +1283,16 @@ -- method GLArea::set_required_version -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "major", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minor", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GLArea", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_gl_area_set_required_version" gtk_gl_area_set_required_version :: Ptr GLArea -> -- _obj : TInterface "Gtk" "GLArea" - Int32 -> -- major : TBasicType TInt32 - Int32 -> -- minor : TBasicType TInt32 + Int32 -> -- major : TBasicType TInt + Int32 -> -- minor : TBasicType TInt IO () diff --git a/GI/Gtk/Objects/GLArea.hs-boot b/GI/Gtk/Objects/GLArea.hs-boot --- a/GI/Gtk/Objects/GLArea.hs-boot +++ b/GI/Gtk/Objects/GLArea.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.GLArea where -import Prelude () 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 diff --git a/GI/Gtk/Objects/Gesture.hs b/GI/Gtk/Objects/Gesture.hs --- a/GI/Gtk/Objects/Gesture.hs +++ b/GI/Gtk/Objects/Gesture.hs @@ -118,12 +118,15 @@ -- ** NPoints GestureNPointsPropertyInfo , constructGestureNPoints , + gestureNPoints , getGestureNPoints , -- ** Window GestureWindowPropertyInfo , + clearGestureWindow , constructGestureWindow , + gestureWindow , getGestureWindow , setGestureWindow , @@ -195,9 +198,9 @@ ) where -import Prelude () 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 @@ -500,14 +503,15 @@ connectSignalFunPtr obj "update" cb' after -- VVV Prop "n-points" - -- Type: TBasicType TUInt32 + -- Type: TBasicType TUInt -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + -- Nullable: (Nothing,Nothing) getGestureNPoints :: (MonadIO m, GestureK o) => o -> m Word32 -getGestureNPoints obj = liftIO $ getObjectPropertyCUInt obj "n-points" +getGestureNPoints obj = liftIO $ getObjectPropertyUInt32 obj "n-points" constructGestureNPoints :: Word32 -> IO ([Char], GValue) -constructGestureNPoints val = constructObjectPropertyCUInt "n-points" val +constructGestureNPoints val = constructObjectPropertyUInt32 "n-points" val data GestureNPointsPropertyInfo instance AttrInfo GestureNPointsPropertyInfo where @@ -519,23 +523,28 @@ attrGet _ = getGestureNPoints attrSet _ = undefined attrConstruct _ = constructGestureNPoints + attrClear _ = undefined -- VVV Prop "window" -- Type: TInterface "Gdk" "Window" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) getGestureWindow :: (MonadIO m, GestureK o) => o -> m Gdk.Window -getGestureWindow obj = liftIO $ getObjectPropertyObject obj "window" Gdk.Window +getGestureWindow obj = liftIO $ checkUnexpectedNothing "getGestureWindow" $ getObjectPropertyObject obj "window" Gdk.Window setGestureWindow :: (MonadIO m, GestureK o, Gdk.WindowK a) => o -> a -> m () -setGestureWindow obj val = liftIO $ setObjectPropertyObject obj "window" val +setGestureWindow obj val = liftIO $ setObjectPropertyObject obj "window" (Just val) constructGestureWindow :: (Gdk.WindowK a) => a -> IO ([Char], GValue) -constructGestureWindow val = constructObjectPropertyObject "window" val +constructGestureWindow val = constructObjectPropertyObject "window" (Just val) +clearGestureWindow :: (MonadIO m, GestureK o) => o -> m () +clearGestureWindow obj = liftIO $ setObjectPropertyObject obj "window" (Nothing :: Maybe Gdk.Window) + data GestureWindowPropertyInfo instance AttrInfo GestureWindowPropertyInfo where - type AttrAllowedOps GestureWindowPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps GestureWindowPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint GestureWindowPropertyInfo = Gdk.WindowK type AttrBaseTypeConstraint GestureWindowPropertyInfo = GestureK type AttrGetType GestureWindowPropertyInfo = Gdk.Window @@ -543,10 +552,17 @@ attrGet _ = getGestureWindow attrSet _ = setGestureWindow attrConstruct _ = constructGestureWindow + attrClear _ = clearGestureWindow type instance AttributeList Gesture = GestureAttributeList type GestureAttributeList = ('[ '("nPoints", GestureNPointsPropertyInfo), '("propagationPhase", EventControllerPropagationPhasePropertyInfo), '("widget", EventControllerWidgetPropertyInfo), '("window", GestureWindowPropertyInfo)] :: [(Symbol, *)]) +gestureNPoints :: AttrLabelProxy "nPoints" +gestureNPoints = AttrLabelProxy + +gestureWindow :: AttrLabelProxy "window" +gestureWindow = AttrLabelProxy + data GestureBeginSignalInfo instance SignalInfo GestureBeginSignalInfo where type HaskellCallbackType GestureBeginSignalInfo = GestureBeginCallback @@ -579,7 +595,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", 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 : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -610,7 +626,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", 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 : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -648,7 +664,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gdk" "Device" +-- returnType : Just (TInterface "Gdk" "Device") -- throws : False -- Skip return : False @@ -677,7 +693,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TGList (TInterface "Gtk" "Gesture") +-- returnType : Just (TGList (TInterface "Gtk" "Gesture")) -- throws : False -- Skip return : False @@ -693,7 +709,6 @@ gestureGetGroup _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_gesture_get_group _obj' - checkUnexpectedReturnNULL "gtk_gesture_get_group" result result' <- unpackGList result result'' <- mapM (newObject Gesture) result' g_list_free result @@ -708,7 +723,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sequence", argType = TInterface "Gdk" "EventSequence", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gdk" "Event" +-- returnType : Just (TInterface "Gdk" "Event") -- throws : False -- Skip return : False @@ -722,26 +737,27 @@ (MonadIO m, GestureK a) => a -- _obj -> Gdk.EventSequence -- sequence - -> m Gdk.Event -- result + -> m (Maybe Gdk.Event) -- result gestureGetLastEvent _obj sequence = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let sequence' = unsafeManagedPtrGetPtr sequence result <- gtk_gesture_get_last_event _obj' sequence' - checkUnexpectedReturnNULL "gtk_gesture_get_last_event" result - result' <- (newBoxed Gdk.Event) result + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (newBoxed Gdk.Event) result' + return result'' touchManagedPtr _obj touchManagedPtr sequence - return result' + return maybeResult data GestureGetLastEventMethodInfo -instance (signature ~ (Gdk.EventSequence -> m Gdk.Event), MonadIO m, GestureK a) => MethodInfo GestureGetLastEventMethodInfo a signature where +instance (signature ~ (Gdk.EventSequence -> m (Maybe Gdk.Event)), MonadIO m, GestureK a) => MethodInfo GestureGetLastEventMethodInfo a signature where overloadedMethod _ = gestureGetLastEvent -- method Gesture::get_last_updated_sequence -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gdk" "EventSequence" +-- returnType : Just (TInterface "Gdk" "EventSequence") -- throws : False -- Skip return : False @@ -753,24 +769,25 @@ gestureGetLastUpdatedSequence :: (MonadIO m, GestureK a) => a -- _obj - -> m Gdk.EventSequence -- result + -> m (Maybe Gdk.EventSequence) -- result gestureGetLastUpdatedSequence _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_gesture_get_last_updated_sequence _obj' - checkUnexpectedReturnNULL "gtk_gesture_get_last_updated_sequence" result - result' <- (wrapBoxed Gdk.EventSequence) result + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (wrapBoxed Gdk.EventSequence) result' + return result'' touchManagedPtr _obj - return result' + return maybeResult data GestureGetLastUpdatedSequenceMethodInfo -instance (signature ~ (m Gdk.EventSequence), MonadIO m, GestureK a) => MethodInfo GestureGetLastUpdatedSequenceMethodInfo a signature where +instance (signature ~ (m (Maybe Gdk.EventSequence)), MonadIO m, GestureK a) => MethodInfo GestureGetLastUpdatedSequenceMethodInfo a signature where overloadedMethod _ = gestureGetLastUpdatedSequence -- method Gesture::get_point -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sequence", argType = TInterface "Gdk" "EventSequence", direction = DirectionIn, mayBeNull = True, 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 : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -816,7 +833,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sequence", argType = TInterface "Gdk" "EventSequence", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "EventSequenceState" +-- returnType : Just (TInterface "Gtk" "EventSequenceState") -- throws : False -- Skip return : False @@ -848,7 +865,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TGList (TInterface "Gdk" "EventSequence") +-- returnType : Just (TGList (TInterface "Gdk" "EventSequence")) -- throws : False -- Skip return : False @@ -864,7 +881,6 @@ gestureGetSequences _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_gesture_get_sequences _obj' - checkUnexpectedReturnNULL "gtk_gesture_get_sequences" result result' <- unpackGList result result'' <- mapM (newBoxed Gdk.EventSequence) result' g_list_free result @@ -879,7 +895,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gdk" "Window" +-- returnType : Just (TInterface "Gdk" "Window") -- throws : False -- Skip return : False @@ -908,7 +924,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gesture", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -939,7 +955,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sequence", argType = TInterface "Gdk" "EventSequence", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -971,7 +987,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -999,7 +1015,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "other", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1031,7 +1047,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1059,7 +1075,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sequence", argType = TInterface "Gdk" "EventSequence", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "EventSequenceState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1094,7 +1110,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "EventSequenceState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1125,7 +1141,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1160,7 +1176,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/Gesture.hs-boot b/GI/Gtk/Objects/Gesture.hs-boot --- a/GI/Gtk/Objects/Gesture.hs-boot +++ b/GI/Gtk/Objects/Gesture.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.Gesture where -import Prelude () 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 diff --git a/GI/Gtk/Objects/GestureDrag.hs b/GI/Gtk/Objects/GestureDrag.hs --- a/GI/Gtk/Objects/GestureDrag.hs +++ b/GI/Gtk/Objects/GestureDrag.hs @@ -17,9 +17,14 @@ -- * Methods --- ** Unsupported methods +-- ** gestureDragGetOffset GestureDragGetOffsetMethodInfo , + gestureDragGetOffset , + + +-- ** gestureDragGetStartPoint GestureDragGetStartPointMethodInfo , + gestureDragGetStartPoint , -- ** gestureDragNew @@ -69,9 +74,9 @@ ) where -import Prelude () 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 @@ -331,7 +336,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "GestureDrag" +-- returnType : Just (TInterface "Gtk" "GestureDrag") -- throws : False -- Skip return : False @@ -352,18 +357,80 @@ touchManagedPtr widget return result' --- XXX Could not generate method GestureDrag::get_offset --- Error was : Bad introspection data: "argument \"x\" is not of nullable type (TBasicType TDouble), but it is marked as such." --- XXX: Dummy instance, since code generation failed. --- Please file a bug at http://github.com/haskell-gi/haskell-gi. +-- method GestureDrag::get_offset +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GestureDrag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_gesture_drag_get_offset" gtk_gesture_drag_get_offset :: + Ptr GestureDrag -> -- _obj : TInterface "Gtk" "GestureDrag" + Ptr CDouble -> -- x : TBasicType TDouble + Ptr CDouble -> -- y : TBasicType TDouble + IO CInt + + +gestureDragGetOffset :: + (MonadIO m, GestureDragK a) => + a -- _obj + -> m (Bool,Double,Double) -- result +gestureDragGetOffset _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + x <- allocMem :: IO (Ptr CDouble) + y <- allocMem :: IO (Ptr CDouble) + result <- gtk_gesture_drag_get_offset _obj' x y + let result' = (/= 0) result + x' <- peek x + let x'' = realToFrac x' + y' <- peek y + let y'' = realToFrac y' + touchManagedPtr _obj + freeMem x + freeMem y + return (result', x'', y'') + data GestureDragGetOffsetMethodInfo -instance (p ~ (), o ~ MethodResolutionFailed "getOffset" GestureDrag) => MethodInfo GestureDragGetOffsetMethodInfo o p where - overloadedMethod _ = undefined --- XXX Could not generate method GestureDrag::get_start_point --- Error was : Bad introspection data: "argument \"x\" is not of nullable type (TBasicType TDouble), but it is marked as such." --- XXX: Dummy instance, since code generation failed. --- Please file a bug at http://github.com/haskell-gi/haskell-gi. +instance (signature ~ (m (Bool,Double,Double)), MonadIO m, GestureDragK a) => MethodInfo GestureDragGetOffsetMethodInfo a signature where + overloadedMethod _ = gestureDragGetOffset + +-- method GestureDrag::get_start_point +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GestureDrag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_gesture_drag_get_start_point" gtk_gesture_drag_get_start_point :: + Ptr GestureDrag -> -- _obj : TInterface "Gtk" "GestureDrag" + Ptr CDouble -> -- x : TBasicType TDouble + Ptr CDouble -> -- y : TBasicType TDouble + IO CInt + + +gestureDragGetStartPoint :: + (MonadIO m, GestureDragK a) => + a -- _obj + -> m (Bool,Double,Double) -- result +gestureDragGetStartPoint _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + x <- allocMem :: IO (Ptr CDouble) + y <- allocMem :: IO (Ptr CDouble) + result <- gtk_gesture_drag_get_start_point _obj' x y + let result' = (/= 0) result + x' <- peek x + let x'' = realToFrac x' + y' <- peek y + let y'' = realToFrac y' + touchManagedPtr _obj + freeMem x + freeMem y + return (result', x'', y'') + data GestureDragGetStartPointMethodInfo -instance (p ~ (), o ~ MethodResolutionFailed "getStartPoint" GestureDrag) => MethodInfo GestureDragGetStartPointMethodInfo o p where - overloadedMethod _ = undefined +instance (signature ~ (m (Bool,Double,Double)), MonadIO m, GestureDragK a) => MethodInfo GestureDragGetStartPointMethodInfo a signature where + overloadedMethod _ = gestureDragGetStartPoint + diff --git a/GI/Gtk/Objects/GestureDrag.hs-boot b/GI/Gtk/Objects/GestureDrag.hs-boot --- a/GI/Gtk/Objects/GestureDrag.hs-boot +++ b/GI/Gtk/Objects/GestureDrag.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.GestureDrag where -import Prelude () 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 diff --git a/GI/Gtk/Objects/GestureLongPress.hs b/GI/Gtk/Objects/GestureLongPress.hs --- a/GI/Gtk/Objects/GestureLongPress.hs +++ b/GI/Gtk/Objects/GestureLongPress.hs @@ -27,6 +27,7 @@ -- ** DelayFactor GestureLongPressDelayFactorPropertyInfo , constructGestureLongPressDelayFactor , + gestureLongPressDelayFactor , getGestureLongPressDelayFactor , setGestureLongPressDelayFactor , @@ -62,9 +63,9 @@ ) where -import Prelude () 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 @@ -246,6 +247,7 @@ -- VVV Prop "delay-factor" -- Type: TBasicType TDouble -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getGestureLongPressDelayFactor :: (MonadIO m, GestureLongPressK o) => o -> m Double getGestureLongPressDelayFactor obj = liftIO $ getObjectPropertyDouble obj "delay-factor" @@ -266,10 +268,14 @@ attrGet _ = getGestureLongPressDelayFactor attrSet _ = setGestureLongPressDelayFactor attrConstruct _ = constructGestureLongPressDelayFactor + attrClear _ = undefined type instance AttributeList GestureLongPress = GestureLongPressAttributeList type GestureLongPressAttributeList = ('[ '("button", GestureSingleButtonPropertyInfo), '("delayFactor", GestureLongPressDelayFactorPropertyInfo), '("exclusive", GestureSingleExclusivePropertyInfo), '("nPoints", GestureNPointsPropertyInfo), '("propagationPhase", EventControllerPropagationPhasePropertyInfo), '("touchOnly", GestureSingleTouchOnlyPropertyInfo), '("widget", EventControllerWidgetPropertyInfo), '("window", GestureWindowPropertyInfo)] :: [(Symbol, *)]) +gestureLongPressDelayFactor :: AttrLabelProxy "delayFactor" +gestureLongPressDelayFactor = AttrLabelProxy + data GestureLongPressCancelledSignalInfo instance SignalInfo GestureLongPressCancelledSignalInfo where type HaskellCallbackType GestureLongPressCancelledSignalInfo = GestureLongPressCancelledCallback @@ -287,7 +293,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "GestureLongPress" +-- returnType : Just (TInterface "Gtk" "GestureLongPress") -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/GestureLongPress.hs-boot b/GI/Gtk/Objects/GestureLongPress.hs-boot --- a/GI/Gtk/Objects/GestureLongPress.hs-boot +++ b/GI/Gtk/Objects/GestureLongPress.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.GestureLongPress where -import Prelude () 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 diff --git a/GI/Gtk/Objects/GestureMultiPress.hs b/GI/Gtk/Objects/GestureMultiPress.hs --- a/GI/Gtk/Objects/GestureMultiPress.hs +++ b/GI/Gtk/Objects/GestureMultiPress.hs @@ -74,9 +74,9 @@ ) where -import Prelude () 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 @@ -335,7 +335,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "GestureMultiPress" +-- returnType : Just (TInterface "Gtk" "GestureMultiPress") -- throws : False -- Skip return : False @@ -360,7 +360,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GestureMultiPress", 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 : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -391,7 +391,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GestureMultiPress", 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}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/GestureMultiPress.hs-boot b/GI/Gtk/Objects/GestureMultiPress.hs-boot --- a/GI/Gtk/Objects/GestureMultiPress.hs-boot +++ b/GI/Gtk/Objects/GestureMultiPress.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.GestureMultiPress where -import Prelude () 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 diff --git a/GI/Gtk/Objects/GesturePan.hs b/GI/Gtk/Objects/GesturePan.hs --- a/GI/Gtk/Objects/GesturePan.hs +++ b/GI/Gtk/Objects/GesturePan.hs @@ -37,6 +37,7 @@ -- ** Orientation GesturePanOrientationPropertyInfo , constructGesturePanOrientation , + gesturePanOrientation , getGesturePanOrientation , setGesturePanOrientation , @@ -60,9 +61,9 @@ ) where -import Prelude () 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 @@ -210,6 +211,7 @@ -- VVV Prop "orientation" -- Type: TInterface "Gtk" "Orientation" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getGesturePanOrientation :: (MonadIO m, GesturePanK o) => o -> m Orientation getGesturePanOrientation obj = liftIO $ getObjectPropertyEnum obj "orientation" @@ -230,10 +232,14 @@ attrGet _ = getGesturePanOrientation attrSet _ = setGesturePanOrientation attrConstruct _ = constructGesturePanOrientation + attrClear _ = undefined type instance AttributeList GesturePan = GesturePanAttributeList type GesturePanAttributeList = ('[ '("button", GestureSingleButtonPropertyInfo), '("exclusive", GestureSingleExclusivePropertyInfo), '("nPoints", GestureNPointsPropertyInfo), '("orientation", GesturePanOrientationPropertyInfo), '("propagationPhase", EventControllerPropagationPhasePropertyInfo), '("touchOnly", GestureSingleTouchOnlyPropertyInfo), '("widget", EventControllerWidgetPropertyInfo), '("window", GestureWindowPropertyInfo)] :: [(Symbol, *)]) +gesturePanOrientation :: AttrLabelProxy "orientation" +gesturePanOrientation = AttrLabelProxy + data GesturePanPanSignalInfo instance SignalInfo GesturePanPanSignalInfo where type HaskellCallbackType GesturePanPanSignalInfo = GesturePanPanCallback @@ -246,7 +252,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "GesturePan" +-- returnType : Just (TInterface "Gtk" "GesturePan") -- throws : False -- Skip return : False @@ -274,7 +280,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GesturePan", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Orientation" +-- returnType : Just (TInterface "Gtk" "Orientation") -- throws : False -- Skip return : False @@ -302,7 +308,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GesturePan", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/GesturePan.hs-boot b/GI/Gtk/Objects/GesturePan.hs-boot --- a/GI/Gtk/Objects/GesturePan.hs-boot +++ b/GI/Gtk/Objects/GesturePan.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.GesturePan where -import Prelude () 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 diff --git a/GI/Gtk/Objects/GestureRotate.hs b/GI/Gtk/Objects/GestureRotate.hs --- a/GI/Gtk/Objects/GestureRotate.hs +++ b/GI/Gtk/Objects/GestureRotate.hs @@ -45,9 +45,9 @@ ) where -import Prelude () 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 @@ -196,7 +196,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "GestureRotate" +-- returnType : Just (TInterface "Gtk" "GestureRotate") -- throws : False -- Skip return : False @@ -221,7 +221,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GestureRotate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/GestureRotate.hs-boot b/GI/Gtk/Objects/GestureRotate.hs-boot --- a/GI/Gtk/Objects/GestureRotate.hs-boot +++ b/GI/Gtk/Objects/GestureRotate.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.GestureRotate where -import Prelude () 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 diff --git a/GI/Gtk/Objects/GestureSingle.hs b/GI/Gtk/Objects/GestureSingle.hs --- a/GI/Gtk/Objects/GestureSingle.hs +++ b/GI/Gtk/Objects/GestureSingle.hs @@ -63,6 +63,7 @@ -- ** Button GestureSingleButtonPropertyInfo , constructGestureSingleButton , + gestureSingleButton , getGestureSingleButton , setGestureSingleButton , @@ -70,6 +71,7 @@ -- ** Exclusive GestureSingleExclusivePropertyInfo , constructGestureSingleExclusive , + gestureSingleExclusive , getGestureSingleExclusive , setGestureSingleExclusive , @@ -77,6 +79,7 @@ -- ** TouchOnly GestureSingleTouchOnlyPropertyInfo , constructGestureSingleTouchOnly , + gestureSingleTouchOnly , getGestureSingleTouchOnly , setGestureSingleTouchOnly , @@ -85,9 +88,9 @@ ) where -import Prelude () 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 @@ -184,17 +187,18 @@ #endif -- VVV Prop "button" - -- Type: TBasicType TUInt32 + -- Type: TBasicType TUInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getGestureSingleButton :: (MonadIO m, GestureSingleK o) => o -> m Word32 -getGestureSingleButton obj = liftIO $ getObjectPropertyCUInt obj "button" +getGestureSingleButton obj = liftIO $ getObjectPropertyUInt32 obj "button" setGestureSingleButton :: (MonadIO m, GestureSingleK o) => o -> Word32 -> m () -setGestureSingleButton obj val = liftIO $ setObjectPropertyCUInt obj "button" val +setGestureSingleButton obj val = liftIO $ setObjectPropertyUInt32 obj "button" val constructGestureSingleButton :: Word32 -> IO ([Char], GValue) -constructGestureSingleButton val = constructObjectPropertyCUInt "button" val +constructGestureSingleButton val = constructObjectPropertyUInt32 "button" val data GestureSingleButtonPropertyInfo instance AttrInfo GestureSingleButtonPropertyInfo where @@ -206,10 +210,12 @@ attrGet _ = getGestureSingleButton attrSet _ = setGestureSingleButton attrConstruct _ = constructGestureSingleButton + attrClear _ = undefined -- VVV Prop "exclusive" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getGestureSingleExclusive :: (MonadIO m, GestureSingleK o) => o -> m Bool getGestureSingleExclusive obj = liftIO $ getObjectPropertyBool obj "exclusive" @@ -230,10 +236,12 @@ attrGet _ = getGestureSingleExclusive attrSet _ = setGestureSingleExclusive attrConstruct _ = constructGestureSingleExclusive + attrClear _ = undefined -- VVV Prop "touch-only" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getGestureSingleTouchOnly :: (MonadIO m, GestureSingleK o) => o -> m Bool getGestureSingleTouchOnly obj = liftIO $ getObjectPropertyBool obj "touch-only" @@ -254,10 +262,20 @@ attrGet _ = getGestureSingleTouchOnly attrSet _ = setGestureSingleTouchOnly attrConstruct _ = constructGestureSingleTouchOnly + attrClear _ = undefined type instance AttributeList GestureSingle = GestureSingleAttributeList type GestureSingleAttributeList = ('[ '("button", GestureSingleButtonPropertyInfo), '("exclusive", GestureSingleExclusivePropertyInfo), '("nPoints", GestureNPointsPropertyInfo), '("propagationPhase", EventControllerPropagationPhasePropertyInfo), '("touchOnly", GestureSingleTouchOnlyPropertyInfo), '("widget", EventControllerWidgetPropertyInfo), '("window", GestureWindowPropertyInfo)] :: [(Symbol, *)]) +gestureSingleButton :: AttrLabelProxy "button" +gestureSingleButton = AttrLabelProxy + +gestureSingleExclusive :: AttrLabelProxy "exclusive" +gestureSingleExclusive = AttrLabelProxy + +gestureSingleTouchOnly :: AttrLabelProxy "touchOnly" +gestureSingleTouchOnly = AttrLabelProxy + type instance SignalList GestureSingle = GestureSingleSignalList type GestureSingleSignalList = ('[ '("begin", GestureBeginSignalInfo), '("cancel", GestureCancelSignalInfo), '("end", GestureEndSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("sequenceStateChanged", GestureSequenceStateChangedSignalInfo), '("update", GestureUpdateSignalInfo)] :: [(Symbol, *)]) @@ -265,7 +283,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt32 +-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -292,7 +310,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt32 +-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -319,7 +337,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gdk" "EventSequence" +-- returnType : Just (TInterface "Gdk" "EventSequence") -- throws : False -- Skip return : False @@ -331,24 +349,25 @@ gestureSingleGetCurrentSequence :: (MonadIO m, GestureSingleK a) => a -- _obj - -> m Gdk.EventSequence -- result + -> m (Maybe Gdk.EventSequence) -- result gestureSingleGetCurrentSequence _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_gesture_single_get_current_sequence _obj' - checkUnexpectedReturnNULL "gtk_gesture_single_get_current_sequence" result - result' <- (wrapBoxed Gdk.EventSequence) result + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (wrapBoxed Gdk.EventSequence) result' + return result'' touchManagedPtr _obj - return result' + return maybeResult data GestureSingleGetCurrentSequenceMethodInfo -instance (signature ~ (m Gdk.EventSequence), MonadIO m, GestureSingleK a) => MethodInfo GestureSingleGetCurrentSequenceMethodInfo a signature where +instance (signature ~ (m (Maybe Gdk.EventSequence)), MonadIO m, GestureSingleK a) => MethodInfo GestureSingleGetCurrentSequenceMethodInfo a signature where overloadedMethod _ = gestureSingleGetCurrentSequence -- method GestureSingle::get_exclusive -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -376,7 +395,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -402,15 +421,15 @@ -- method GestureSingle::set_button -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GestureSingle", 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}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_gesture_single_set_button" gtk_gesture_single_set_button :: Ptr GestureSingle -> -- _obj : TInterface "Gtk" "GestureSingle" - Word32 -> -- button : TBasicType TUInt32 + Word32 -> -- button : TBasicType TUInt IO () @@ -433,7 +452,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "exclusive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -463,7 +482,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "touch_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/GestureSingle.hs-boot b/GI/Gtk/Objects/GestureSingle.hs-boot --- a/GI/Gtk/Objects/GestureSingle.hs-boot +++ b/GI/Gtk/Objects/GestureSingle.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.GestureSingle where -import Prelude () 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 diff --git a/GI/Gtk/Objects/GestureSwipe.hs b/GI/Gtk/Objects/GestureSwipe.hs --- a/GI/Gtk/Objects/GestureSwipe.hs +++ b/GI/Gtk/Objects/GestureSwipe.hs @@ -45,9 +45,9 @@ ) where -import Prelude () 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 @@ -204,7 +204,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "GestureSwipe" +-- returnType : Just (TInterface "Gtk" "GestureSwipe") -- throws : False -- Skip return : False @@ -229,7 +229,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GestureSwipe", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "velocity_x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "velocity_y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/GestureSwipe.hs-boot b/GI/Gtk/Objects/GestureSwipe.hs-boot --- a/GI/Gtk/Objects/GestureSwipe.hs-boot +++ b/GI/Gtk/Objects/GestureSwipe.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.GestureSwipe where -import Prelude () 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 diff --git a/GI/Gtk/Objects/GestureZoom.hs b/GI/Gtk/Objects/GestureZoom.hs --- a/GI/Gtk/Objects/GestureZoom.hs +++ b/GI/Gtk/Objects/GestureZoom.hs @@ -45,9 +45,9 @@ ) where -import Prelude () 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 @@ -192,7 +192,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "GestureZoom" +-- returnType : Just (TInterface "Gtk" "GestureZoom") -- throws : False -- Skip return : False @@ -217,7 +217,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "GestureZoom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/GestureZoom.hs-boot b/GI/Gtk/Objects/GestureZoom.hs-boot --- a/GI/Gtk/Objects/GestureZoom.hs-boot +++ b/GI/Gtk/Objects/GestureZoom.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.GestureZoom where -import Prelude () 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 diff --git a/GI/Gtk/Objects/Grid.hs b/GI/Gtk/Objects/Grid.hs --- a/GI/Gtk/Objects/Grid.hs +++ b/GI/Gtk/Objects/Grid.hs @@ -128,6 +128,7 @@ GridBaselineRowPropertyInfo , constructGridBaselineRow , getGridBaselineRow , + gridBaselineRow , setGridBaselineRow , @@ -135,6 +136,7 @@ GridColumnHomogeneousPropertyInfo , constructGridColumnHomogeneous , getGridColumnHomogeneous , + gridColumnHomogeneous , setGridColumnHomogeneous , @@ -142,6 +144,7 @@ GridColumnSpacingPropertyInfo , constructGridColumnSpacing , getGridColumnSpacing , + gridColumnSpacing , setGridColumnSpacing , @@ -149,6 +152,7 @@ GridRowHomogeneousPropertyInfo , constructGridRowHomogeneous , getGridRowHomogeneous , + gridRowHomogeneous , setGridRowHomogeneous , @@ -156,6 +160,7 @@ GridRowSpacingPropertyInfo , constructGridRowSpacing , getGridRowSpacing , + gridRowSpacing , setGridRowSpacing , @@ -163,9 +168,9 @@ ) where -import Prelude () 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 @@ -541,17 +546,18 @@ #endif -- VVV Prop "baseline-row" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getGridBaselineRow :: (MonadIO m, GridK o) => o -> m Int32 -getGridBaselineRow obj = liftIO $ getObjectPropertyCInt obj "baseline-row" +getGridBaselineRow obj = liftIO $ getObjectPropertyInt32 obj "baseline-row" setGridBaselineRow :: (MonadIO m, GridK o) => o -> Int32 -> m () -setGridBaselineRow obj val = liftIO $ setObjectPropertyCInt obj "baseline-row" val +setGridBaselineRow obj val = liftIO $ setObjectPropertyInt32 obj "baseline-row" val constructGridBaselineRow :: Int32 -> IO ([Char], GValue) -constructGridBaselineRow val = constructObjectPropertyCInt "baseline-row" val +constructGridBaselineRow val = constructObjectPropertyInt32 "baseline-row" val data GridBaselineRowPropertyInfo instance AttrInfo GridBaselineRowPropertyInfo where @@ -563,10 +569,12 @@ attrGet _ = getGridBaselineRow attrSet _ = setGridBaselineRow attrConstruct _ = constructGridBaselineRow + attrClear _ = undefined -- VVV Prop "column-homogeneous" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getGridColumnHomogeneous :: (MonadIO m, GridK o) => o -> m Bool getGridColumnHomogeneous obj = liftIO $ getObjectPropertyBool obj "column-homogeneous" @@ -587,19 +595,21 @@ attrGet _ = getGridColumnHomogeneous attrSet _ = setGridColumnHomogeneous attrConstruct _ = constructGridColumnHomogeneous + attrClear _ = undefined -- VVV Prop "column-spacing" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getGridColumnSpacing :: (MonadIO m, GridK o) => o -> m Int32 -getGridColumnSpacing obj = liftIO $ getObjectPropertyCInt obj "column-spacing" +getGridColumnSpacing obj = liftIO $ getObjectPropertyInt32 obj "column-spacing" setGridColumnSpacing :: (MonadIO m, GridK o) => o -> Int32 -> m () -setGridColumnSpacing obj val = liftIO $ setObjectPropertyCInt obj "column-spacing" val +setGridColumnSpacing obj val = liftIO $ setObjectPropertyInt32 obj "column-spacing" val constructGridColumnSpacing :: Int32 -> IO ([Char], GValue) -constructGridColumnSpacing val = constructObjectPropertyCInt "column-spacing" val +constructGridColumnSpacing val = constructObjectPropertyInt32 "column-spacing" val data GridColumnSpacingPropertyInfo instance AttrInfo GridColumnSpacingPropertyInfo where @@ -611,10 +621,12 @@ attrGet _ = getGridColumnSpacing attrSet _ = setGridColumnSpacing attrConstruct _ = constructGridColumnSpacing + attrClear _ = undefined -- VVV Prop "row-homogeneous" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getGridRowHomogeneous :: (MonadIO m, GridK o) => o -> m Bool getGridRowHomogeneous obj = liftIO $ getObjectPropertyBool obj "row-homogeneous" @@ -635,19 +647,21 @@ attrGet _ = getGridRowHomogeneous attrSet _ = setGridRowHomogeneous attrConstruct _ = constructGridRowHomogeneous + attrClear _ = undefined -- VVV Prop "row-spacing" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getGridRowSpacing :: (MonadIO m, GridK o) => o -> m Int32 -getGridRowSpacing obj = liftIO $ getObjectPropertyCInt obj "row-spacing" +getGridRowSpacing obj = liftIO $ getObjectPropertyInt32 obj "row-spacing" setGridRowSpacing :: (MonadIO m, GridK o) => o -> Int32 -> m () -setGridRowSpacing obj val = liftIO $ setObjectPropertyCInt obj "row-spacing" val +setGridRowSpacing obj val = liftIO $ setObjectPropertyInt32 obj "row-spacing" val constructGridRowSpacing :: Int32 -> IO ([Char], GValue) -constructGridRowSpacing val = constructObjectPropertyCInt "row-spacing" val +constructGridRowSpacing val = constructObjectPropertyInt32 "row-spacing" val data GridRowSpacingPropertyInfo instance AttrInfo GridRowSpacingPropertyInfo where @@ -659,10 +673,26 @@ attrGet _ = getGridRowSpacing attrSet _ = setGridRowSpacing attrConstruct _ = constructGridRowSpacing + attrClear _ = undefined type instance AttributeList Grid = GridAttributeList type GridAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("baselineRow", GridBaselineRowPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("columnHomogeneous", GridColumnHomogeneousPropertyInfo), '("columnSpacing", GridColumnSpacingPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rowHomogeneous", GridRowHomogeneousPropertyInfo), '("rowSpacing", GridRowSpacingPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +gridBaselineRow :: AttrLabelProxy "baselineRow" +gridBaselineRow = AttrLabelProxy + +gridColumnHomogeneous :: AttrLabelProxy "columnHomogeneous" +gridColumnHomogeneous = AttrLabelProxy + +gridColumnSpacing :: AttrLabelProxy "columnSpacing" +gridColumnSpacing = AttrLabelProxy + +gridRowHomogeneous :: AttrLabelProxy "rowHomogeneous" +gridRowHomogeneous = AttrLabelProxy + +gridRowSpacing :: AttrLabelProxy "rowSpacing" +gridRowSpacing = AttrLabelProxy + type instance SignalList Grid = GridSignalList type GridSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -670,7 +700,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "Grid" +-- returnType : Just (TInterface "Gtk" "Grid") -- throws : False -- Skip return : False @@ -689,19 +719,19 @@ -- method Grid::attach -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "left", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "top", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", 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 = "top", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_grid_attach" gtk_grid_attach :: Ptr Grid -> -- _obj : TInterface "Gtk" "Grid" Ptr Widget -> -- child : TInterface "Gtk" "Widget" - Int32 -> -- left : TBasicType TInt32 - Int32 -> -- top : TBasicType TInt32 - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 + Int32 -> -- left : TBasicType TInt + Int32 -> -- top : TBasicType TInt + Int32 -> -- width : TBasicType TInt + Int32 -> -- height : TBasicType TInt IO () @@ -728,9 +758,9 @@ -- method Grid::attach_next_to -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sibling", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sibling", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "side", argType = TInterface "Gtk" "PositionType", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -739,8 +769,8 @@ Ptr Widget -> -- child : TInterface "Gtk" "Widget" Ptr Widget -> -- sibling : TInterface "Gtk" "Widget" CUInt -> -- side : TInterface "Gtk" "PositionType" - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 + Int32 -> -- width : TBasicType TInt + Int32 -> -- height : TBasicType TInt IO () @@ -776,7 +806,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -801,16 +831,16 @@ -- method Grid::get_child_at -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "left", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "top", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", 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 = "top", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False foreign import ccall "gtk_grid_get_child_at" gtk_grid_get_child_at :: Ptr Grid -> -- _obj : TInterface "Gtk" "Grid" - Int32 -> -- left : TBasicType TInt32 - Int32 -> -- top : TBasicType TInt32 + Int32 -> -- left : TBasicType TInt + Int32 -> -- top : TBasicType TInt IO (Ptr Widget) @@ -819,24 +849,25 @@ a -- _obj -> Int32 -- left -> Int32 -- top - -> m Widget -- result + -> m (Maybe Widget) -- result gridGetChildAt _obj left top = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_grid_get_child_at _obj' left top - checkUnexpectedReturnNULL "gtk_grid_get_child_at" result - result' <- (newObject Widget) result + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (newObject Widget) result' + return result'' touchManagedPtr _obj - return result' + return maybeResult data GridGetChildAtMethodInfo -instance (signature ~ (Int32 -> Int32 -> m Widget), MonadIO m, GridK a) => MethodInfo GridGetChildAtMethodInfo a signature where +instance (signature ~ (Int32 -> Int32 -> m (Maybe Widget)), MonadIO m, GridK a) => MethodInfo GridGetChildAtMethodInfo a signature where overloadedMethod _ = gridGetChildAt -- method Grid::get_column_homogeneous -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -864,7 +895,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt32 +-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -889,15 +920,15 @@ -- method Grid::get_row_baseline_position -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "BaselinePosition" +-- returnType : Just (TInterface "Gtk" "BaselinePosition") -- throws : False -- Skip return : False foreign import ccall "gtk_grid_get_row_baseline_position" gtk_grid_get_row_baseline_position :: Ptr Grid -> -- _obj : TInterface "Gtk" "Grid" - Int32 -> -- row : TBasicType TInt32 + Int32 -> -- row : TBasicType TInt IO CUInt @@ -921,7 +952,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -949,7 +980,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt32 +-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -974,15 +1005,15 @@ -- method Grid::insert_column -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_grid_insert_column" gtk_grid_insert_column :: Ptr Grid -> -- _obj : TInterface "Gtk" "Grid" - Int32 -> -- position : TBasicType TInt32 + Int32 -> -- position : TBasicType TInt IO () @@ -1005,7 +1036,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sibling", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1037,15 +1068,15 @@ -- method Grid::insert_row -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_grid_insert_row" gtk_grid_insert_row :: Ptr Grid -> -- _obj : TInterface "Gtk" "Grid" - Int32 -> -- position : TBasicType TInt32 + Int32 -> -- position : TBasicType TInt IO () @@ -1066,15 +1097,15 @@ -- method Grid::remove_column -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_grid_remove_column" gtk_grid_remove_column :: Ptr Grid -> -- _obj : TInterface "Gtk" "Grid" - Int32 -> -- position : TBasicType TInt32 + Int32 -> -- position : TBasicType TInt IO () @@ -1095,15 +1126,15 @@ -- method Grid::remove_row -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_grid_remove_row" gtk_grid_remove_row :: Ptr Grid -> -- _obj : TInterface "Gtk" "Grid" - Int32 -> -- position : TBasicType TInt32 + Int32 -> -- position : TBasicType TInt IO () @@ -1124,15 +1155,15 @@ -- method Grid::set_baseline_row -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_grid_set_baseline_row" gtk_grid_set_baseline_row :: Ptr Grid -> -- _obj : TInterface "Gtk" "Grid" - Int32 -> -- row : TBasicType TInt32 + Int32 -> -- row : TBasicType TInt IO () @@ -1155,7 +1186,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1183,15 +1214,15 @@ -- method Grid::set_column_spacing -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_grid_set_column_spacing" gtk_grid_set_column_spacing :: Ptr Grid -> -- _obj : TInterface "Gtk" "Grid" - Word32 -> -- spacing : TBasicType TUInt32 + Word32 -> -- spacing : TBasicType TUInt IO () @@ -1212,15 +1243,15 @@ -- method Grid::set_row_baseline_position -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TInterface "Gtk" "BaselinePosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TInterface "Gtk" "BaselinePosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_grid_set_row_baseline_position" gtk_grid_set_row_baseline_position :: Ptr Grid -> -- _obj : TInterface "Gtk" "Grid" - Int32 -> -- row : TBasicType TInt32 + Int32 -> -- row : TBasicType TInt CUInt -> -- pos : TInterface "Gtk" "BaselinePosition" IO () @@ -1246,7 +1277,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1274,15 +1305,15 @@ -- method Grid::set_row_spacing -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_grid_set_row_spacing" gtk_grid_set_row_spacing :: Ptr Grid -> -- _obj : TInterface "Gtk" "Grid" - Word32 -> -- spacing : TBasicType TUInt32 + Word32 -> -- spacing : TBasicType TUInt IO () diff --git a/GI/Gtk/Objects/Grid.hs-boot b/GI/Gtk/Objects/Grid.hs-boot --- a/GI/Gtk/Objects/Grid.hs-boot +++ b/GI/Gtk/Objects/Grid.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.Grid where -import Prelude () 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 diff --git a/GI/Gtk/Objects/HBox.hs b/GI/Gtk/Objects/HBox.hs --- a/GI/Gtk/Objects/HBox.hs +++ b/GI/Gtk/Objects/HBox.hs @@ -25,9 +25,9 @@ ) where -import Prelude () 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 @@ -403,15 +403,15 @@ -- method HBox::new -- method type : Constructor --- Args : [Arg {argCName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "HBox" +-- returnType : Just (TInterface "Gtk" "HBox") -- throws : False -- Skip return : False foreign import ccall "gtk_hbox_new" gtk_hbox_new :: CInt -> -- homogeneous : TBasicType TBoolean - Int32 -> -- spacing : TBasicType TInt32 + Int32 -> -- spacing : TBasicType TInt IO (Ptr HBox) {-# DEPRECATED hBoxNew ["(Since version 3.2)","You can use gtk_box_new() with %GTK_ORIENTATION_HORIZONTAL instead,"," which is a quick and easy change. But the recommendation is to switch to"," #GtkGrid, since #GtkBox is going to go away eventually."," See [Migrating from other containers to GtkGrid][gtk-migrating-GtkGrid]."]#-} diff --git a/GI/Gtk/Objects/HBox.hs-boot b/GI/Gtk/Objects/HBox.hs-boot --- a/GI/Gtk/Objects/HBox.hs-boot +++ b/GI/Gtk/Objects/HBox.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.HBox where -import Prelude () 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 diff --git a/GI/Gtk/Objects/HButtonBox.hs b/GI/Gtk/Objects/HButtonBox.hs --- a/GI/Gtk/Objects/HButtonBox.hs +++ b/GI/Gtk/Objects/HButtonBox.hs @@ -25,9 +25,9 @@ ) where -import Prelude () 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 @@ -411,7 +411,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "HButtonBox" +-- returnType : Just (TInterface "Gtk" "HButtonBox") -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/HButtonBox.hs-boot b/GI/Gtk/Objects/HButtonBox.hs-boot --- a/GI/Gtk/Objects/HButtonBox.hs-boot +++ b/GI/Gtk/Objects/HButtonBox.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.HButtonBox where -import Prelude () 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 diff --git a/GI/Gtk/Objects/HPaned.hs b/GI/Gtk/Objects/HPaned.hs --- a/GI/Gtk/Objects/HPaned.hs +++ b/GI/Gtk/Objects/HPaned.hs @@ -25,9 +25,9 @@ ) where -import Prelude () 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 @@ -403,7 +403,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "HPaned" +-- returnType : Just (TInterface "Gtk" "HPaned") -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/HPaned.hs-boot b/GI/Gtk/Objects/HPaned.hs-boot --- a/GI/Gtk/Objects/HPaned.hs-boot +++ b/GI/Gtk/Objects/HPaned.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.HPaned where -import Prelude () 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 diff --git a/GI/Gtk/Objects/HSV.hs b/GI/Gtk/Objects/HSV.hs --- a/GI/Gtk/Objects/HSV.hs +++ b/GI/Gtk/Objects/HSV.hs @@ -81,9 +81,9 @@ ) where -import Prelude () 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 @@ -515,7 +515,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "HSV" +-- returnType : Just (TInterface "Gtk" "HSV") -- throws : False -- Skip return : False @@ -536,7 +536,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HSV", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "h", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "s", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "v", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -576,16 +576,16 @@ -- method HSV::get_metrics -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HSV", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "ring_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HSV", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "ring_width", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_hsv_get_metrics" gtk_hsv_get_metrics :: Ptr HSV -> -- _obj : TInterface "Gtk" "HSV" - Ptr Int32 -> -- size : TBasicType TInt32 - Ptr Int32 -> -- ring_width : TBasicType TInt32 + Ptr Int32 -> -- size : TBasicType TInt + Ptr Int32 -> -- ring_width : TBasicType TInt IO () @@ -613,7 +613,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HSV", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -641,7 +641,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HSV", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "h", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "s", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "v", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -675,16 +675,16 @@ -- method HSV::set_metrics -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HSV", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ring_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HSV", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ring_width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_hsv_set_metrics" gtk_hsv_set_metrics :: Ptr HSV -> -- _obj : TInterface "Gtk" "HSV" - Int32 -> -- size : TBasicType TInt32 - Int32 -> -- ring_width : TBasicType TInt32 + Int32 -> -- size : TBasicType TInt + Int32 -> -- ring_width : TBasicType TInt IO () @@ -708,7 +708,7 @@ -- method type : MemberFunction -- Args : [Arg {argCName = "h", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "s", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "v", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "r", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "g", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "b", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/HSV.hs-boot b/GI/Gtk/Objects/HSV.hs-boot --- a/GI/Gtk/Objects/HSV.hs-boot +++ b/GI/Gtk/Objects/HSV.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.HSV where -import Prelude () 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 diff --git a/GI/Gtk/Objects/HScale.hs b/GI/Gtk/Objects/HScale.hs --- a/GI/Gtk/Objects/HScale.hs +++ b/GI/Gtk/Objects/HScale.hs @@ -29,9 +29,9 @@ ) where -import Prelude () 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 @@ -410,7 +410,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "HScale" +-- returnType : Just (TInterface "Gtk" "HScale") -- throws : False -- Skip return : False @@ -439,7 +439,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "HScale" +-- returnType : Just (TInterface "Gtk" "HScale") -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/HScale.hs-boot b/GI/Gtk/Objects/HScale.hs-boot --- a/GI/Gtk/Objects/HScale.hs-boot +++ b/GI/Gtk/Objects/HScale.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.HScale where -import Prelude () 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 diff --git a/GI/Gtk/Objects/HScrollbar.hs b/GI/Gtk/Objects/HScrollbar.hs --- a/GI/Gtk/Objects/HScrollbar.hs +++ b/GI/Gtk/Objects/HScrollbar.hs @@ -25,9 +25,9 @@ ) where -import Prelude () 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 @@ -394,7 +394,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "HScrollbar" +-- returnType : Just (TInterface "Gtk" "HScrollbar") -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/HScrollbar.hs-boot b/GI/Gtk/Objects/HScrollbar.hs-boot --- a/GI/Gtk/Objects/HScrollbar.hs-boot +++ b/GI/Gtk/Objects/HScrollbar.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.HScrollbar where -import Prelude () 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 diff --git a/GI/Gtk/Objects/HSeparator.hs b/GI/Gtk/Objects/HSeparator.hs --- a/GI/Gtk/Objects/HSeparator.hs +++ b/GI/Gtk/Objects/HSeparator.hs @@ -25,9 +25,9 @@ ) where -import Prelude () 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 @@ -366,7 +366,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "HSeparator" +-- returnType : Just (TInterface "Gtk" "HSeparator") -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/HSeparator.hs-boot b/GI/Gtk/Objects/HSeparator.hs-boot --- a/GI/Gtk/Objects/HSeparator.hs-boot +++ b/GI/Gtk/Objects/HSeparator.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.HSeparator where -import Prelude () 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 diff --git a/GI/Gtk/Objects/HandleBox.hs b/GI/Gtk/Objects/HandleBox.hs --- a/GI/Gtk/Objects/HandleBox.hs +++ b/GI/Gtk/Objects/HandleBox.hs @@ -62,12 +62,14 @@ -- ** ChildDetached HandleBoxChildDetachedPropertyInfo , getHandleBoxChildDetached , + handleBoxChildDetached , -- ** HandlePosition HandleBoxHandlePositionPropertyInfo , constructHandleBoxHandlePosition , getHandleBoxHandlePosition , + handleBoxHandlePosition , setHandleBoxHandlePosition , @@ -75,6 +77,7 @@ HandleBoxShadowTypePropertyInfo , constructHandleBoxShadowType , getHandleBoxShadowType , + handleBoxShadowType , setHandleBoxShadowType , @@ -82,6 +85,7 @@ HandleBoxSnapEdgePropertyInfo , constructHandleBoxSnapEdge , getHandleBoxSnapEdge , + handleBoxSnapEdge , setHandleBoxSnapEdge , @@ -89,6 +93,7 @@ HandleBoxSnapEdgeSetPropertyInfo , constructHandleBoxSnapEdgeSet , getHandleBoxSnapEdgeSet , + handleBoxSnapEdgeSet , setHandleBoxSnapEdgeSet , @@ -123,9 +128,9 @@ ) where -import Prelude () 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 @@ -573,6 +578,7 @@ -- VVV Prop "child-detached" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getHandleBoxChildDetached :: (MonadIO m, HandleBoxK o) => o -> m Bool getHandleBoxChildDetached obj = liftIO $ getObjectPropertyBool obj "child-detached" @@ -587,10 +593,12 @@ attrGet _ = getHandleBoxChildDetached attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "handle-position" -- Type: TInterface "Gtk" "PositionType" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getHandleBoxHandlePosition :: (MonadIO m, HandleBoxK o) => o -> m PositionType getHandleBoxHandlePosition obj = liftIO $ getObjectPropertyEnum obj "handle-position" @@ -611,10 +619,12 @@ attrGet _ = getHandleBoxHandlePosition attrSet _ = setHandleBoxHandlePosition attrConstruct _ = constructHandleBoxHandlePosition + attrClear _ = undefined -- VVV Prop "shadow-type" -- Type: TInterface "Gtk" "ShadowType" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getHandleBoxShadowType :: (MonadIO m, HandleBoxK o) => o -> m ShadowType getHandleBoxShadowType obj = liftIO $ getObjectPropertyEnum obj "shadow-type" @@ -635,10 +645,12 @@ attrGet _ = getHandleBoxShadowType attrSet _ = setHandleBoxShadowType attrConstruct _ = constructHandleBoxShadowType + attrClear _ = undefined -- VVV Prop "snap-edge" -- Type: TInterface "Gtk" "PositionType" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getHandleBoxSnapEdge :: (MonadIO m, HandleBoxK o) => o -> m PositionType getHandleBoxSnapEdge obj = liftIO $ getObjectPropertyEnum obj "snap-edge" @@ -659,10 +671,12 @@ attrGet _ = getHandleBoxSnapEdge attrSet _ = setHandleBoxSnapEdge attrConstruct _ = constructHandleBoxSnapEdge + attrClear _ = undefined -- VVV Prop "snap-edge-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getHandleBoxSnapEdgeSet :: (MonadIO m, HandleBoxK o) => o -> m Bool getHandleBoxSnapEdgeSet obj = liftIO $ getObjectPropertyBool obj "snap-edge-set" @@ -683,10 +697,26 @@ attrGet _ = getHandleBoxSnapEdgeSet attrSet _ = setHandleBoxSnapEdgeSet attrConstruct _ = constructHandleBoxSnapEdgeSet + attrClear _ = undefined type instance AttributeList HandleBox = HandleBoxAttributeList type HandleBoxAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("childDetached", HandleBoxChildDetachedPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("handlePosition", HandleBoxHandlePositionPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadowType", HandleBoxShadowTypePropertyInfo), '("snapEdge", HandleBoxSnapEdgePropertyInfo), '("snapEdgeSet", HandleBoxSnapEdgeSetPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +handleBoxChildDetached :: AttrLabelProxy "childDetached" +handleBoxChildDetached = AttrLabelProxy + +handleBoxHandlePosition :: AttrLabelProxy "handlePosition" +handleBoxHandlePosition = AttrLabelProxy + +handleBoxShadowType :: AttrLabelProxy "shadowType" +handleBoxShadowType = AttrLabelProxy + +handleBoxSnapEdge :: AttrLabelProxy "snapEdge" +handleBoxSnapEdge = AttrLabelProxy + +handleBoxSnapEdgeSet :: AttrLabelProxy "snapEdgeSet" +handleBoxSnapEdgeSet = AttrLabelProxy + data HandleBoxChildAttachedSignalInfo instance SignalInfo HandleBoxChildAttachedSignalInfo where type HaskellCallbackType HandleBoxChildAttachedSignalInfo = HandleBoxChildAttachedCallback @@ -704,7 +734,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "HandleBox" +-- returnType : Just (TInterface "Gtk" "HandleBox") -- throws : False -- Skip return : False @@ -725,7 +755,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -753,7 +783,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "PositionType" +-- returnType : Just (TInterface "Gtk" "PositionType") -- throws : False -- Skip return : False @@ -781,7 +811,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "ShadowType" +-- returnType : Just (TInterface "Gtk" "ShadowType") -- throws : False -- Skip return : False @@ -809,7 +839,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "PositionType" +-- returnType : Just (TInterface "Gtk" "PositionType") -- throws : False -- Skip return : False @@ -837,7 +867,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -867,7 +897,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -897,7 +927,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "edge", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/HandleBox.hs-boot b/GI/Gtk/Objects/HandleBox.hs-boot --- a/GI/Gtk/Objects/HandleBox.hs-boot +++ b/GI/Gtk/Objects/HandleBox.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.HandleBox where -import Prelude () 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 diff --git a/GI/Gtk/Objects/HeaderBar.hs b/GI/Gtk/Objects/HeaderBar.hs --- a/GI/Gtk/Objects/HeaderBar.hs +++ b/GI/Gtk/Objects/HeaderBar.hs @@ -96,15 +96,19 @@ -- * Properties -- ** CustomTitle HeaderBarCustomTitlePropertyInfo , + clearHeaderBarCustomTitle , constructHeaderBarCustomTitle , getHeaderBarCustomTitle , + headerBarCustomTitle , setHeaderBarCustomTitle , -- ** DecorationLayout HeaderBarDecorationLayoutPropertyInfo , + clearHeaderBarDecorationLayout , constructHeaderBarDecorationLayout , getHeaderBarDecorationLayout , + headerBarDecorationLayout , setHeaderBarDecorationLayout , @@ -112,6 +116,7 @@ HeaderBarDecorationLayoutSetPropertyInfo, constructHeaderBarDecorationLayoutSet , getHeaderBarDecorationLayoutSet , + headerBarDecorationLayoutSet , setHeaderBarDecorationLayoutSet , @@ -119,6 +124,7 @@ HeaderBarHasSubtitlePropertyInfo , constructHeaderBarHasSubtitle , getHeaderBarHasSubtitle , + headerBarHasSubtitle , setHeaderBarHasSubtitle , @@ -126,6 +132,7 @@ HeaderBarShowCloseButtonPropertyInfo , constructHeaderBarShowCloseButton , getHeaderBarShowCloseButton , + headerBarShowCloseButton , setHeaderBarShowCloseButton , @@ -133,20 +140,25 @@ HeaderBarSpacingPropertyInfo , constructHeaderBarSpacing , getHeaderBarSpacing , + headerBarSpacing , setHeaderBarSpacing , -- ** Subtitle HeaderBarSubtitlePropertyInfo , + clearHeaderBarSubtitle , constructHeaderBarSubtitle , getHeaderBarSubtitle , + headerBarSubtitle , setHeaderBarSubtitle , -- ** Title HeaderBarTitlePropertyInfo , + clearHeaderBarTitle , constructHeaderBarTitle , getHeaderBarTitle , + headerBarTitle , setHeaderBarTitle , @@ -154,9 +166,9 @@ ) where -import Prelude () 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 @@ -526,19 +538,23 @@ -- VVV Prop "custom-title" -- Type: TInterface "Gtk" "Widget" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) getHeaderBarCustomTitle :: (MonadIO m, HeaderBarK o) => o -> m Widget -getHeaderBarCustomTitle obj = liftIO $ getObjectPropertyObject obj "custom-title" Widget +getHeaderBarCustomTitle obj = liftIO $ checkUnexpectedNothing "getHeaderBarCustomTitle" $ getObjectPropertyObject obj "custom-title" Widget setHeaderBarCustomTitle :: (MonadIO m, HeaderBarK o, WidgetK a) => o -> a -> m () -setHeaderBarCustomTitle obj val = liftIO $ setObjectPropertyObject obj "custom-title" val +setHeaderBarCustomTitle obj val = liftIO $ setObjectPropertyObject obj "custom-title" (Just val) constructHeaderBarCustomTitle :: (WidgetK a) => a -> IO ([Char], GValue) -constructHeaderBarCustomTitle val = constructObjectPropertyObject "custom-title" val +constructHeaderBarCustomTitle val = constructObjectPropertyObject "custom-title" (Just val) +clearHeaderBarCustomTitle :: (MonadIO m, HeaderBarK o) => o -> m () +clearHeaderBarCustomTitle obj = liftIO $ setObjectPropertyObject obj "custom-title" (Nothing :: Maybe Widget) + data HeaderBarCustomTitlePropertyInfo instance AttrInfo HeaderBarCustomTitlePropertyInfo where - type AttrAllowedOps HeaderBarCustomTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps HeaderBarCustomTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint HeaderBarCustomTitlePropertyInfo = WidgetK type AttrBaseTypeConstraint HeaderBarCustomTitlePropertyInfo = HeaderBarK type AttrGetType HeaderBarCustomTitlePropertyInfo = Widget @@ -546,23 +562,28 @@ attrGet _ = getHeaderBarCustomTitle attrSet _ = setHeaderBarCustomTitle attrConstruct _ = constructHeaderBarCustomTitle + attrClear _ = clearHeaderBarCustomTitle -- VVV Prop "decoration-layout" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) getHeaderBarDecorationLayout :: (MonadIO m, HeaderBarK o) => o -> m T.Text -getHeaderBarDecorationLayout obj = liftIO $ getObjectPropertyString obj "decoration-layout" +getHeaderBarDecorationLayout obj = liftIO $ checkUnexpectedNothing "getHeaderBarDecorationLayout" $ getObjectPropertyString obj "decoration-layout" setHeaderBarDecorationLayout :: (MonadIO m, HeaderBarK o) => o -> T.Text -> m () -setHeaderBarDecorationLayout obj val = liftIO $ setObjectPropertyString obj "decoration-layout" val +setHeaderBarDecorationLayout obj val = liftIO $ setObjectPropertyString obj "decoration-layout" (Just val) constructHeaderBarDecorationLayout :: T.Text -> IO ([Char], GValue) -constructHeaderBarDecorationLayout val = constructObjectPropertyString "decoration-layout" val +constructHeaderBarDecorationLayout val = constructObjectPropertyString "decoration-layout" (Just val) +clearHeaderBarDecorationLayout :: (MonadIO m, HeaderBarK o) => o -> m () +clearHeaderBarDecorationLayout obj = liftIO $ setObjectPropertyString obj "decoration-layout" (Nothing :: Maybe T.Text) + data HeaderBarDecorationLayoutPropertyInfo instance AttrInfo HeaderBarDecorationLayoutPropertyInfo where - type AttrAllowedOps HeaderBarDecorationLayoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps HeaderBarDecorationLayoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint HeaderBarDecorationLayoutPropertyInfo = (~) T.Text type AttrBaseTypeConstraint HeaderBarDecorationLayoutPropertyInfo = HeaderBarK type AttrGetType HeaderBarDecorationLayoutPropertyInfo = T.Text @@ -570,10 +591,12 @@ attrGet _ = getHeaderBarDecorationLayout attrSet _ = setHeaderBarDecorationLayout attrConstruct _ = constructHeaderBarDecorationLayout + attrClear _ = clearHeaderBarDecorationLayout -- VVV Prop "decoration-layout-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getHeaderBarDecorationLayoutSet :: (MonadIO m, HeaderBarK o) => o -> m Bool getHeaderBarDecorationLayoutSet obj = liftIO $ getObjectPropertyBool obj "decoration-layout-set" @@ -594,10 +617,12 @@ attrGet _ = getHeaderBarDecorationLayoutSet attrSet _ = setHeaderBarDecorationLayoutSet attrConstruct _ = constructHeaderBarDecorationLayoutSet + attrClear _ = undefined -- VVV Prop "has-subtitle" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getHeaderBarHasSubtitle :: (MonadIO m, HeaderBarK o) => o -> m Bool getHeaderBarHasSubtitle obj = liftIO $ getObjectPropertyBool obj "has-subtitle" @@ -618,10 +643,12 @@ attrGet _ = getHeaderBarHasSubtitle attrSet _ = setHeaderBarHasSubtitle attrConstruct _ = constructHeaderBarHasSubtitle + attrClear _ = undefined -- VVV Prop "show-close-button" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getHeaderBarShowCloseButton :: (MonadIO m, HeaderBarK o) => o -> m Bool getHeaderBarShowCloseButton obj = liftIO $ getObjectPropertyBool obj "show-close-button" @@ -642,19 +669,21 @@ attrGet _ = getHeaderBarShowCloseButton attrSet _ = setHeaderBarShowCloseButton attrConstruct _ = constructHeaderBarShowCloseButton + attrClear _ = undefined -- VVV Prop "spacing" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getHeaderBarSpacing :: (MonadIO m, HeaderBarK o) => o -> m Int32 -getHeaderBarSpacing obj = liftIO $ getObjectPropertyCInt obj "spacing" +getHeaderBarSpacing obj = liftIO $ getObjectPropertyInt32 obj "spacing" setHeaderBarSpacing :: (MonadIO m, HeaderBarK o) => o -> Int32 -> m () -setHeaderBarSpacing obj val = liftIO $ setObjectPropertyCInt obj "spacing" val +setHeaderBarSpacing obj val = liftIO $ setObjectPropertyInt32 obj "spacing" val constructHeaderBarSpacing :: Int32 -> IO ([Char], GValue) -constructHeaderBarSpacing val = constructObjectPropertyCInt "spacing" val +constructHeaderBarSpacing val = constructObjectPropertyInt32 "spacing" val data HeaderBarSpacingPropertyInfo instance AttrInfo HeaderBarSpacingPropertyInfo where @@ -666,23 +695,28 @@ attrGet _ = getHeaderBarSpacing attrSet _ = setHeaderBarSpacing attrConstruct _ = constructHeaderBarSpacing + attrClear _ = undefined -- VVV Prop "subtitle" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) getHeaderBarSubtitle :: (MonadIO m, HeaderBarK o) => o -> m T.Text -getHeaderBarSubtitle obj = liftIO $ getObjectPropertyString obj "subtitle" +getHeaderBarSubtitle obj = liftIO $ checkUnexpectedNothing "getHeaderBarSubtitle" $ getObjectPropertyString obj "subtitle" setHeaderBarSubtitle :: (MonadIO m, HeaderBarK o) => o -> T.Text -> m () -setHeaderBarSubtitle obj val = liftIO $ setObjectPropertyString obj "subtitle" val +setHeaderBarSubtitle obj val = liftIO $ setObjectPropertyString obj "subtitle" (Just val) constructHeaderBarSubtitle :: T.Text -> IO ([Char], GValue) -constructHeaderBarSubtitle val = constructObjectPropertyString "subtitle" val +constructHeaderBarSubtitle val = constructObjectPropertyString "subtitle" (Just val) +clearHeaderBarSubtitle :: (MonadIO m, HeaderBarK o) => o -> m () +clearHeaderBarSubtitle obj = liftIO $ setObjectPropertyString obj "subtitle" (Nothing :: Maybe T.Text) + data HeaderBarSubtitlePropertyInfo instance AttrInfo HeaderBarSubtitlePropertyInfo where - type AttrAllowedOps HeaderBarSubtitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps HeaderBarSubtitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint HeaderBarSubtitlePropertyInfo = (~) T.Text type AttrBaseTypeConstraint HeaderBarSubtitlePropertyInfo = HeaderBarK type AttrGetType HeaderBarSubtitlePropertyInfo = T.Text @@ -690,23 +724,28 @@ attrGet _ = getHeaderBarSubtitle attrSet _ = setHeaderBarSubtitle attrConstruct _ = constructHeaderBarSubtitle + attrClear _ = clearHeaderBarSubtitle -- VVV Prop "title" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) getHeaderBarTitle :: (MonadIO m, HeaderBarK o) => o -> m T.Text -getHeaderBarTitle obj = liftIO $ getObjectPropertyString obj "title" +getHeaderBarTitle obj = liftIO $ checkUnexpectedNothing "getHeaderBarTitle" $ getObjectPropertyString obj "title" setHeaderBarTitle :: (MonadIO m, HeaderBarK o) => o -> T.Text -> m () -setHeaderBarTitle obj val = liftIO $ setObjectPropertyString obj "title" val +setHeaderBarTitle obj val = liftIO $ setObjectPropertyString obj "title" (Just val) constructHeaderBarTitle :: T.Text -> IO ([Char], GValue) -constructHeaderBarTitle val = constructObjectPropertyString "title" val +constructHeaderBarTitle val = constructObjectPropertyString "title" (Just val) +clearHeaderBarTitle :: (MonadIO m, HeaderBarK o) => o -> m () +clearHeaderBarTitle obj = liftIO $ setObjectPropertyString obj "title" (Nothing :: Maybe T.Text) + data HeaderBarTitlePropertyInfo instance AttrInfo HeaderBarTitlePropertyInfo where - type AttrAllowedOps HeaderBarTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps HeaderBarTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint HeaderBarTitlePropertyInfo = (~) T.Text type AttrBaseTypeConstraint HeaderBarTitlePropertyInfo = HeaderBarK type AttrGetType HeaderBarTitlePropertyInfo = T.Text @@ -714,10 +753,35 @@ attrGet _ = getHeaderBarTitle attrSet _ = setHeaderBarTitle attrConstruct _ = constructHeaderBarTitle + attrClear _ = clearHeaderBarTitle type instance AttributeList HeaderBar = HeaderBarAttributeList type HeaderBarAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("customTitle", HeaderBarCustomTitlePropertyInfo), '("decorationLayout", HeaderBarDecorationLayoutPropertyInfo), '("decorationLayoutSet", HeaderBarDecorationLayoutSetPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasSubtitle", HeaderBarHasSubtitlePropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showCloseButton", HeaderBarShowCloseButtonPropertyInfo), '("spacing", HeaderBarSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("subtitle", HeaderBarSubtitlePropertyInfo), '("title", HeaderBarTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +headerBarCustomTitle :: AttrLabelProxy "customTitle" +headerBarCustomTitle = AttrLabelProxy + +headerBarDecorationLayout :: AttrLabelProxy "decorationLayout" +headerBarDecorationLayout = AttrLabelProxy + +headerBarDecorationLayoutSet :: AttrLabelProxy "decorationLayoutSet" +headerBarDecorationLayoutSet = AttrLabelProxy + +headerBarHasSubtitle :: AttrLabelProxy "hasSubtitle" +headerBarHasSubtitle = AttrLabelProxy + +headerBarShowCloseButton :: AttrLabelProxy "showCloseButton" +headerBarShowCloseButton = AttrLabelProxy + +headerBarSpacing :: AttrLabelProxy "spacing" +headerBarSpacing = AttrLabelProxy + +headerBarSubtitle :: AttrLabelProxy "subtitle" +headerBarSubtitle = AttrLabelProxy + +headerBarTitle :: AttrLabelProxy "title" +headerBarTitle = AttrLabelProxy + type instance SignalList HeaderBar = HeaderBarSignalList type HeaderBarSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -725,7 +789,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "HeaderBar" +-- returnType : Just (TInterface "Gtk" "HeaderBar") -- throws : False -- Skip return : False @@ -746,7 +810,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -775,7 +839,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -804,7 +868,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -832,7 +896,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -860,7 +924,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -889,7 +953,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -918,7 +982,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -949,7 +1013,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -980,7 +1044,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "title_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1015,7 +1079,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "layout", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1050,7 +1114,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HeaderBar", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1080,7 +1144,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HeaderBar", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1110,7 +1174,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "subtitle", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1145,7 +1209,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/HeaderBar.hs-boot b/GI/Gtk/Objects/HeaderBar.hs-boot --- a/GI/Gtk/Objects/HeaderBar.hs-boot +++ b/GI/Gtk/Objects/HeaderBar.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.HeaderBar where -import Prelude () 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 diff --git a/GI/Gtk/Objects/IMContext.hs b/GI/Gtk/Objects/IMContext.hs --- a/GI/Gtk/Objects/IMContext.hs +++ b/GI/Gtk/Objects/IMContext.hs @@ -79,6 +79,7 @@ IMContextInputHintsPropertyInfo , constructIMContextInputHints , getIMContextInputHints , + iMContextInputHints , setIMContextInputHints , @@ -86,6 +87,7 @@ IMContextInputPurposePropertyInfo , constructIMContextInputPurpose , getIMContextInputPurpose , + iMContextInputPurpose , setIMContextInputPurpose , @@ -168,9 +170,9 @@ ) where -import Prelude () 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 @@ -491,6 +493,7 @@ -- VVV Prop "input-hints" -- Type: TInterface "Gtk" "InputHints" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getIMContextInputHints :: (MonadIO m, IMContextK o) => o -> m [InputHints] getIMContextInputHints obj = liftIO $ getObjectPropertyFlags obj "input-hints" @@ -511,10 +514,12 @@ attrGet _ = getIMContextInputHints attrSet _ = setIMContextInputHints attrConstruct _ = constructIMContextInputHints + attrClear _ = undefined -- VVV Prop "input-purpose" -- Type: TInterface "Gtk" "InputPurpose" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getIMContextInputPurpose :: (MonadIO m, IMContextK o) => o -> m InputPurpose getIMContextInputPurpose obj = liftIO $ getObjectPropertyEnum obj "input-purpose" @@ -535,10 +540,17 @@ attrGet _ = getIMContextInputPurpose attrSet _ = setIMContextInputPurpose attrConstruct _ = constructIMContextInputPurpose + attrClear _ = undefined type instance AttributeList IMContext = IMContextAttributeList type IMContextAttributeList = ('[ '("inputHints", IMContextInputHintsPropertyInfo), '("inputPurpose", IMContextInputPurposePropertyInfo)] :: [(Symbol, *)]) +iMContextInputHints :: AttrLabelProxy "inputHints" +iMContextInputHints = AttrLabelProxy + +iMContextInputPurpose :: AttrLabelProxy "inputPurpose" +iMContextInputPurpose = AttrLabelProxy + data IMContextCommitSignalInfo instance SignalInfo IMContextCommitSignalInfo where type HaskellCallbackType IMContextCommitSignalInfo = IMContextCommitCallback @@ -574,16 +586,16 @@ -- method IMContext::delete_surrounding -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_im_context_delete_surrounding" gtk_im_context_delete_surrounding :: Ptr IMContext -> -- _obj : TInterface "Gtk" "IMContext" - Int32 -> -- offset : TBasicType TInt32 - Int32 -> -- n_chars : TBasicType TInt32 + Int32 -> -- offset : TBasicType TInt + Int32 -> -- n_chars : TBasicType TInt IO CInt @@ -608,7 +620,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "EventKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -640,7 +652,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -667,7 +679,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -692,9 +704,9 @@ -- method IMContext::get_preedit_string -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "attrs", argType = TInterface "Pango" "AttrList", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cursor_pos", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "attrs", argType = TInterface "Pango" "AttrList", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cursor_pos", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -702,7 +714,7 @@ Ptr IMContext -> -- _obj : TInterface "Gtk" "IMContext" Ptr CString -> -- str : TBasicType TUTF8 Ptr (Ptr Pango.AttrList) -> -- attrs : TInterface "Pango" "AttrList" - Ptr Int32 -> -- cursor_pos : TBasicType TInt32 + Ptr Int32 -> -- cursor_pos : TBasicType TInt IO () @@ -734,16 +746,16 @@ -- method IMContext::get_surrounding -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cursor_index", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cursor_index", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_im_context_get_surrounding" gtk_im_context_get_surrounding :: Ptr IMContext -> -- _obj : TInterface "Gtk" "IMContext" Ptr CString -> -- text : TBasicType TUTF8 - Ptr Int32 -> -- cursor_index : TBasicType TInt32 + Ptr Int32 -> -- cursor_index : TBasicType TInt IO CInt @@ -774,7 +786,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -801,7 +813,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -836,7 +848,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -865,17 +877,17 @@ -- method IMContext::set_surrounding -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cursor_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cursor_index", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_im_context_set_surrounding" gtk_im_context_set_surrounding :: Ptr IMContext -> -- _obj : TInterface "Gtk" "IMContext" CString -> -- text : TBasicType TUTF8 - Int32 -> -- len : TBasicType TInt32 - Int32 -> -- cursor_index : TBasicType TInt32 + Int32 -> -- len : TBasicType TInt + Int32 -> -- cursor_index : TBasicType TInt IO () @@ -902,7 +914,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_preedit", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/IMContext.hs-boot b/GI/Gtk/Objects/IMContext.hs-boot --- a/GI/Gtk/Objects/IMContext.hs-boot +++ b/GI/Gtk/Objects/IMContext.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.IMContext where -import Prelude () 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 diff --git a/GI/Gtk/Objects/IMContextSimple.hs b/GI/Gtk/Objects/IMContextSimple.hs --- a/GI/Gtk/Objects/IMContextSimple.hs +++ b/GI/Gtk/Objects/IMContextSimple.hs @@ -25,9 +25,9 @@ ) where -import Prelude () 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 @@ -111,7 +111,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "IMContextSimple" +-- returnType : Just (TInterface "Gtk" "IMContextSimple") -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/IMContextSimple.hs-boot b/GI/Gtk/Objects/IMContextSimple.hs-boot --- a/GI/Gtk/Objects/IMContextSimple.hs-boot +++ b/GI/Gtk/Objects/IMContextSimple.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.IMContextSimple where -import Prelude () 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 diff --git a/GI/Gtk/Objects/IMMulticontext.hs b/GI/Gtk/Objects/IMMulticontext.hs --- a/GI/Gtk/Objects/IMMulticontext.hs +++ b/GI/Gtk/Objects/IMMulticontext.hs @@ -40,9 +40,9 @@ ) where -import Prelude () 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 @@ -129,7 +129,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "IMMulticontext" +-- returnType : Just (TInterface "Gtk" "IMMulticontext") -- throws : False -- Skip return : False @@ -150,7 +150,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMMulticontext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menushell", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -181,7 +181,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMMulticontext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -210,7 +210,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IMMulticontext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/IMMulticontext.hs-boot b/GI/Gtk/Objects/IMMulticontext.hs-boot --- a/GI/Gtk/Objects/IMMulticontext.hs-boot +++ b/GI/Gtk/Objects/IMMulticontext.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.IMMulticontext where -import Prelude () 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 diff --git a/GI/Gtk/Objects/IconFactory.hs b/GI/Gtk/Objects/IconFactory.hs --- a/GI/Gtk/Objects/IconFactory.hs +++ b/GI/Gtk/Objects/IconFactory.hs @@ -49,9 +49,9 @@ ) where -import Prelude () 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 @@ -138,7 +138,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "IconFactory" +-- returnType : Just (TInterface "Gtk" "IconFactory") -- throws : False -- Skip return : False @@ -159,7 +159,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_set", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -194,7 +194,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -221,7 +221,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "IconSet" +-- returnType : Just (TInterface "Gtk" "IconSet") -- throws : False -- Skip return : False @@ -254,7 +254,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -281,7 +281,7 @@ -- method type : MemberFunction -- Args : [Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "IconSet" +-- returnType : Just (TInterface "Gtk" "IconSet") -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/IconFactory.hs-boot b/GI/Gtk/Objects/IconFactory.hs-boot --- a/GI/Gtk/Objects/IconFactory.hs-boot +++ b/GI/Gtk/Objects/IconFactory.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.IconFactory where -import Prelude () 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 diff --git a/GI/Gtk/Objects/IconInfo.hs b/GI/Gtk/Objects/IconInfo.hs --- a/GI/Gtk/Objects/IconInfo.hs +++ b/GI/Gtk/Objects/IconInfo.hs @@ -125,9 +125,9 @@ ) where -import Prelude () 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 @@ -224,7 +224,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "icon_theme", argType = TInterface "Gtk" "IconTheme", 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}] -- Lengths : [] --- returnType : TInterface "Gtk" "IconInfo" +-- returnType : Just (TInterface "Gtk" "IconInfo") -- throws : False -- Skip return : False @@ -251,16 +251,16 @@ -- method IconInfo::get_attach_points -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "points", argType = TCArray False (-1) 2 (TInterface "Gdk" "Point"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "n_points", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "n_points", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : TBasicType TBoolean +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "points", argType = TCArray False (-1) 2 (TInterface "Gdk" "Point"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "n_points", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [Arg {argCName = "n_points", 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 "gtk_icon_info_get_attach_points" gtk_icon_info_get_attach_points :: Ptr IconInfo -> -- _obj : TInterface "Gtk" "IconInfo" Ptr (Ptr Gdk.Point) -> -- points : TCArray False (-1) 2 (TInterface "Gdk" "Point") - Ptr Int32 -> -- n_points : TBasicType TInt32 + Ptr Int32 -> -- n_points : TBasicType TInt IO CInt {-# DEPRECATED iconInfoGetAttachPoints ["(Since version 3.14)","Attachment points are deprecated"]#-} @@ -292,7 +292,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -319,7 +319,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -346,7 +346,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : False -- Skip return : False @@ -375,7 +375,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -404,7 +404,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rectangle", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -435,7 +435,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TFileName +-- returnType : Just (TBasicType TFileName) -- throws : False -- Skip return : False @@ -464,7 +464,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -492,7 +492,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : True -- Skip return : False @@ -524,9 +524,9 @@ -- method IconInfo::load_icon_async -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -534,7 +534,7 @@ Ptr IconInfo -> -- _obj : TInterface "Gtk" "IconInfo" Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TVoid + Ptr () -> -- user_data : TBasicType TPtr IO () @@ -572,7 +572,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : True -- Skip return : False @@ -610,7 +610,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", 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 : TInterface "cairo" "Surface" +-- returnType : Just (TInterface "cairo" "Surface") -- throws : True -- Skip return : False @@ -652,7 +652,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fg", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "success_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "warning_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "error_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "was_symbolic", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : True -- Skip return : False @@ -717,9 +717,9 @@ -- method IconInfo::load_symbolic_async -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fg", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "success_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "warning_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "error_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 7, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fg", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "success_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "warning_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "error_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 7, 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -731,7 +731,7 @@ Ptr Gdk.RGBA -> -- error_color : TInterface "Gdk" "RGBA" Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TVoid + Ptr () -> -- user_data : TBasicType TPtr IO () @@ -793,7 +793,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "was_symbolic", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : True -- Skip return : False @@ -836,7 +836,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "was_symbolic", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : True -- Skip return : False @@ -877,9 +877,9 @@ -- method IconInfo::load_symbolic_for_context_async -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -888,7 +888,7 @@ Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext" Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TVoid + Ptr () -> -- user_data : TBasicType TPtr IO () @@ -929,7 +929,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "was_symbolic", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : True -- Skip return : False @@ -972,7 +972,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "was_symbolic", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : True -- Skip return : False @@ -1018,7 +1018,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "raw_coordinates", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/IconInfo.hs-boot b/GI/Gtk/Objects/IconInfo.hs-boot --- a/GI/Gtk/Objects/IconInfo.hs-boot +++ b/GI/Gtk/Objects/IconInfo.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.IconInfo where -import Prelude () 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 diff --git a/GI/Gtk/Objects/IconTheme.hs b/GI/Gtk/Objects/IconTheme.hs --- a/GI/Gtk/Objects/IconTheme.hs +++ b/GI/Gtk/Objects/IconTheme.hs @@ -162,9 +162,9 @@ ) where -import Prelude () 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 @@ -306,7 +306,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "IconTheme" +-- returnType : Just (TInterface "Gtk" "IconTheme") -- throws : False -- Skip return : False @@ -327,7 +327,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -358,7 +358,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -387,16 +387,16 @@ -- method IconTheme::choose_icon -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_names", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_names", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "IconInfo" +-- returnType : Just (TInterface "Gtk" "IconInfo") -- throws : False -- Skip return : False foreign import ccall "gtk_icon_theme_choose_icon" gtk_icon_theme_choose_icon :: Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme" Ptr CString -> -- icon_names : TCArray True (-1) (-1) (TBasicType TUTF8) - Int32 -> -- size : TBasicType TInt32 + Int32 -> -- size : TBasicType TInt CUInt -> -- flags : TInterface "Gtk" "IconLookupFlags" IO (Ptr IconInfo) @@ -407,36 +407,37 @@ -> [T.Text] -- iconNames -> Int32 -- size -> [IconLookupFlags] -- flags - -> m IconInfo -- result + -> m (Maybe IconInfo) -- result iconThemeChooseIcon _obj iconNames size flags = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj iconNames' <- packZeroTerminatedUTF8CArray iconNames let flags' = gflagsToWord flags result <- gtk_icon_theme_choose_icon _obj' iconNames' size flags' - checkUnexpectedReturnNULL "gtk_icon_theme_choose_icon" result - result' <- (wrapObject IconInfo) result + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (wrapObject IconInfo) result' + return result'' touchManagedPtr _obj mapZeroTerminatedCArray freeMem iconNames' freeMem iconNames' - return result' + return maybeResult data IconThemeChooseIconMethodInfo -instance (signature ~ ([T.Text] -> Int32 -> [IconLookupFlags] -> m IconInfo), MonadIO m, IconThemeK a) => MethodInfo IconThemeChooseIconMethodInfo a signature where +instance (signature ~ ([T.Text] -> Int32 -> [IconLookupFlags] -> m (Maybe IconInfo)), MonadIO m, IconThemeK a) => MethodInfo IconThemeChooseIconMethodInfo a signature where overloadedMethod _ = iconThemeChooseIcon -- method IconTheme::choose_icon_for_scale -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_names", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_names", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", 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},Arg {argCName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "IconInfo" +-- returnType : Just (TInterface "Gtk" "IconInfo") -- throws : False -- Skip return : False foreign import ccall "gtk_icon_theme_choose_icon_for_scale" gtk_icon_theme_choose_icon_for_scale :: Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme" Ptr CString -> -- icon_names : TCArray True (-1) (-1) (TBasicType TUTF8) - Int32 -> -- size : TBasicType TInt32 - Int32 -> -- scale : TBasicType TInt32 + Int32 -> -- size : TBasicType TInt + Int32 -> -- scale : TBasicType TInt CUInt -> -- flags : TInterface "Gtk" "IconLookupFlags" IO (Ptr IconInfo) @@ -448,28 +449,29 @@ -> Int32 -- size -> Int32 -- scale -> [IconLookupFlags] -- flags - -> m IconInfo -- result + -> m (Maybe IconInfo) -- result iconThemeChooseIconForScale _obj iconNames size scale flags = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj iconNames' <- packZeroTerminatedUTF8CArray iconNames let flags' = gflagsToWord flags result <- gtk_icon_theme_choose_icon_for_scale _obj' iconNames' size scale flags' - checkUnexpectedReturnNULL "gtk_icon_theme_choose_icon_for_scale" result - result' <- (wrapObject IconInfo) result + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (wrapObject IconInfo) result' + return result'' touchManagedPtr _obj mapZeroTerminatedCArray freeMem iconNames' freeMem iconNames' - return result' + return maybeResult data IconThemeChooseIconForScaleMethodInfo -instance (signature ~ ([T.Text] -> Int32 -> Int32 -> [IconLookupFlags] -> m IconInfo), MonadIO m, IconThemeK a) => MethodInfo IconThemeChooseIconForScaleMethodInfo a signature where +instance (signature ~ ([T.Text] -> Int32 -> Int32 -> [IconLookupFlags] -> m (Maybe IconInfo)), MonadIO m, IconThemeK a) => MethodInfo IconThemeChooseIconForScaleMethodInfo a signature where overloadedMethod _ = iconThemeChooseIconForScale -- method IconTheme::get_example_icon_name -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -481,25 +483,26 @@ iconThemeGetExampleIconName :: (MonadIO m, IconThemeK a) => a -- _obj - -> m T.Text -- result + -> m (Maybe T.Text) -- result iconThemeGetExampleIconName _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_icon_theme_get_example_icon_name _obj' - checkUnexpectedReturnNULL "gtk_icon_theme_get_example_icon_name" result - result' <- cstringToText result - freeMem result + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- cstringToText result' + freeMem result' + return result'' touchManagedPtr _obj - return result' + return maybeResult data IconThemeGetExampleIconNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, IconThemeK a) => MethodInfo IconThemeGetExampleIconNameMethodInfo a signature where +instance (signature ~ (m (Maybe T.Text)), MonadIO m, IconThemeK a) => MethodInfo IconThemeGetExampleIconNameMethodInfo a signature where overloadedMethod _ = iconThemeGetExampleIconName -- method IconTheme::get_icon_sizes -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TCArray True (-1) (-1) (TBasicType TInt32) +-- returnType : Just (TCArray True (-1) (-1) (TBasicType TInt)) -- throws : False -- Skip return : False @@ -531,16 +534,16 @@ -- method IconTheme::get_search_path -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TCArray False (-1) 2 (TBasicType TFileName), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "n_elements", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "n_elements", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : TBasicType TVoid +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TCArray False (-1) 2 (TBasicType TFileName), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "n_elements", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [Arg {argCName = "n_elements", 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 "gtk_icon_theme_get_search_path" gtk_icon_theme_get_search_path :: Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme" Ptr (Ptr CString) -> -- path : TCArray False (-1) 2 (TBasicType TFileName) - Ptr Int32 -> -- n_elements : TBasicType TInt32 + Ptr Int32 -> -- n_elements : TBasicType TInt IO () @@ -571,7 +574,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -603,7 +606,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TGList (TBasicType TUTF8) +-- returnType : Just (TGList (TBasicType TUTF8)) -- throws : False -- Skip return : False @@ -619,7 +622,6 @@ iconThemeListContexts _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_icon_theme_list_contexts _obj' - checkUnexpectedReturnNULL "gtk_icon_theme_list_contexts" result result' <- unpackGList result result'' <- mapM cstringToText result' mapGList freeMem result @@ -635,7 +637,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TGList (TBasicType TUTF8) +-- returnType : Just (TGList (TBasicType TUTF8)) -- throws : False -- Skip return : False @@ -658,7 +660,6 @@ jContext' <- textToCString jContext return jContext' result <- gtk_icon_theme_list_icons _obj' maybeContext - checkUnexpectedReturnNULL "gtk_icon_theme_list_icons" result result' <- unpackGList result result'' <- mapM cstringToText result' mapGList freeMem result @@ -673,16 +674,16 @@ -- method IconTheme::load_icon -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : True -- Skip return : False foreign import ccall "gtk_icon_theme_load_icon" gtk_icon_theme_load_icon :: Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme" CString -> -- icon_name : TBasicType TUTF8 - Int32 -> -- size : TBasicType TInt32 + Int32 -> -- size : TBasicType TInt CUInt -> -- flags : TInterface "Gtk" "IconLookupFlags" Ptr (Ptr GError) -> -- error IO (Ptr GdkPixbuf.Pixbuf) @@ -694,39 +695,40 @@ -> T.Text -- iconName -> Int32 -- size -> [IconLookupFlags] -- flags - -> m GdkPixbuf.Pixbuf -- result + -> m (Maybe GdkPixbuf.Pixbuf) -- result iconThemeLoadIcon _obj iconName size flags = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj iconName' <- textToCString iconName let flags' = gflagsToWord flags onException (do result <- propagateGError $ gtk_icon_theme_load_icon _obj' iconName' size flags' - checkUnexpectedReturnNULL "gtk_icon_theme_load_icon" result - result' <- (wrapObject GdkPixbuf.Pixbuf) result + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (wrapObject GdkPixbuf.Pixbuf) result' + return result'' touchManagedPtr _obj freeMem iconName' - return result' + return maybeResult ) (do freeMem iconName' ) data IconThemeLoadIconMethodInfo -instance (signature ~ (T.Text -> Int32 -> [IconLookupFlags] -> m GdkPixbuf.Pixbuf), MonadIO m, IconThemeK a) => MethodInfo IconThemeLoadIconMethodInfo a signature where +instance (signature ~ (T.Text -> Int32 -> [IconLookupFlags] -> m (Maybe GdkPixbuf.Pixbuf)), MonadIO m, IconThemeK a) => MethodInfo IconThemeLoadIconMethodInfo a signature where overloadedMethod _ = iconThemeLoadIcon -- method IconTheme::load_icon_for_scale -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", 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},Arg {argCName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : True -- Skip return : False foreign import ccall "gtk_icon_theme_load_icon_for_scale" gtk_icon_theme_load_icon_for_scale :: Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme" CString -> -- icon_name : TBasicType TUTF8 - Int32 -> -- size : TBasicType TInt32 - Int32 -> -- scale : TBasicType TInt32 + Int32 -> -- size : TBasicType TInt + Int32 -> -- scale : TBasicType TInt CUInt -> -- flags : TInterface "Gtk" "IconLookupFlags" Ptr (Ptr GError) -> -- error IO (Ptr GdkPixbuf.Pixbuf) @@ -739,39 +741,40 @@ -> Int32 -- size -> Int32 -- scale -> [IconLookupFlags] -- flags - -> m GdkPixbuf.Pixbuf -- result + -> m (Maybe GdkPixbuf.Pixbuf) -- result iconThemeLoadIconForScale _obj iconName size scale flags = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj iconName' <- textToCString iconName let flags' = gflagsToWord flags onException (do result <- propagateGError $ gtk_icon_theme_load_icon_for_scale _obj' iconName' size scale flags' - checkUnexpectedReturnNULL "gtk_icon_theme_load_icon_for_scale" result - result' <- (wrapObject GdkPixbuf.Pixbuf) result + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (wrapObject GdkPixbuf.Pixbuf) result' + return result'' touchManagedPtr _obj freeMem iconName' - return result' + return maybeResult ) (do freeMem iconName' ) data IconThemeLoadIconForScaleMethodInfo -instance (signature ~ (T.Text -> Int32 -> Int32 -> [IconLookupFlags] -> m GdkPixbuf.Pixbuf), MonadIO m, IconThemeK a) => MethodInfo IconThemeLoadIconForScaleMethodInfo a signature where +instance (signature ~ (T.Text -> Int32 -> Int32 -> [IconLookupFlags] -> m (Maybe GdkPixbuf.Pixbuf)), MonadIO m, IconThemeK a) => MethodInfo IconThemeLoadIconForScaleMethodInfo a signature where overloadedMethod _ = iconThemeLoadIconForScale -- method IconTheme::load_surface -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale", argType = TBasicType TInt32, 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},Arg {argCName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", 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},Arg {argCName = "for_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "cairo" "Surface" +-- returnType : Just (TInterface "cairo" "Surface") -- throws : True -- Skip return : False foreign import ccall "gtk_icon_theme_load_surface" gtk_icon_theme_load_surface :: Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme" CString -> -- icon_name : TBasicType TUTF8 - Int32 -> -- size : TBasicType TInt32 - Int32 -> -- scale : TBasicType TInt32 + Int32 -> -- size : TBasicType TInt + Int32 -> -- scale : TBasicType TInt Ptr Gdk.Window -> -- for_window : TInterface "Gdk" "Window" CUInt -> -- flags : TInterface "Gtk" "IconLookupFlags" Ptr (Ptr GError) -> -- error @@ -786,7 +789,7 @@ -> Int32 -- scale -> Maybe (b) -- forWindow -> [IconLookupFlags] -- flags - -> m Cairo.Surface -- result + -> m (Maybe Cairo.Surface) -- result iconThemeLoadSurface _obj iconName size scale forWindow flags = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj iconName' <- textToCString iconName @@ -798,32 +801,33 @@ let flags' = gflagsToWord flags onException (do result <- propagateGError $ gtk_icon_theme_load_surface _obj' iconName' size scale maybeForWindow flags' - checkUnexpectedReturnNULL "gtk_icon_theme_load_surface" result - result' <- (wrapBoxed Cairo.Surface) result + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (wrapBoxed Cairo.Surface) result' + return result'' touchManagedPtr _obj whenJust forWindow touchManagedPtr freeMem iconName' - return result' + return maybeResult ) (do freeMem iconName' ) data IconThemeLoadSurfaceMethodInfo -instance (signature ~ (T.Text -> Int32 -> Int32 -> Maybe (b) -> [IconLookupFlags] -> m Cairo.Surface), MonadIO m, IconThemeK a, Gdk.WindowK b) => MethodInfo IconThemeLoadSurfaceMethodInfo a signature where +instance (signature ~ (T.Text -> Int32 -> Int32 -> Maybe (b) -> [IconLookupFlags] -> m (Maybe Cairo.Surface)), MonadIO m, IconThemeK a, Gdk.WindowK b) => MethodInfo IconThemeLoadSurfaceMethodInfo a signature where overloadedMethod _ = iconThemeLoadSurface -- method IconTheme::lookup_by_gicon -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "IconInfo" +-- returnType : Just (TInterface "Gtk" "IconInfo") -- throws : False -- Skip return : False foreign import ccall "gtk_icon_theme_lookup_by_gicon" gtk_icon_theme_lookup_by_gicon :: Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme" Ptr Gio.Icon -> -- icon : TInterface "Gio" "Icon" - Int32 -> -- size : TBasicType TInt32 + Int32 -> -- size : TBasicType TInt CUInt -> -- flags : TInterface "Gtk" "IconLookupFlags" IO (Ptr IconInfo) @@ -834,35 +838,36 @@ -> b -- icon -> Int32 -- size -> [IconLookupFlags] -- flags - -> m IconInfo -- result + -> m (Maybe IconInfo) -- result iconThemeLookupByGicon _obj icon size flags = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let icon' = unsafeManagedPtrCastPtr icon let flags' = gflagsToWord flags result <- gtk_icon_theme_lookup_by_gicon _obj' icon' size flags' - checkUnexpectedReturnNULL "gtk_icon_theme_lookup_by_gicon" result - result' <- (wrapObject IconInfo) result + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (wrapObject IconInfo) result' + return result'' touchManagedPtr _obj touchManagedPtr icon - return result' + return maybeResult data IconThemeLookupByGiconMethodInfo -instance (signature ~ (b -> Int32 -> [IconLookupFlags] -> m IconInfo), MonadIO m, IconThemeK a, Gio.IconK b) => MethodInfo IconThemeLookupByGiconMethodInfo a signature where +instance (signature ~ (b -> Int32 -> [IconLookupFlags] -> m (Maybe IconInfo)), MonadIO m, IconThemeK a, Gio.IconK b) => MethodInfo IconThemeLookupByGiconMethodInfo a signature where overloadedMethod _ = iconThemeLookupByGicon -- method IconTheme::lookup_by_gicon_for_scale -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", 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},Arg {argCName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "IconInfo" +-- returnType : Just (TInterface "Gtk" "IconInfo") -- throws : False -- Skip return : False foreign import ccall "gtk_icon_theme_lookup_by_gicon_for_scale" gtk_icon_theme_lookup_by_gicon_for_scale :: Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme" Ptr Gio.Icon -> -- icon : TInterface "Gio" "Icon" - Int32 -> -- size : TBasicType TInt32 - Int32 -> -- scale : TBasicType TInt32 + Int32 -> -- size : TBasicType TInt + Int32 -> -- scale : TBasicType TInt CUInt -> -- flags : TInterface "Gtk" "IconLookupFlags" IO (Ptr IconInfo) @@ -874,34 +879,35 @@ -> Int32 -- size -> Int32 -- scale -> [IconLookupFlags] -- flags - -> m IconInfo -- result + -> m (Maybe IconInfo) -- result iconThemeLookupByGiconForScale _obj icon size scale flags = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let icon' = unsafeManagedPtrCastPtr icon let flags' = gflagsToWord flags result <- gtk_icon_theme_lookup_by_gicon_for_scale _obj' icon' size scale flags' - checkUnexpectedReturnNULL "gtk_icon_theme_lookup_by_gicon_for_scale" result - result' <- (wrapObject IconInfo) result + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (wrapObject IconInfo) result' + return result'' touchManagedPtr _obj touchManagedPtr icon - return result' + return maybeResult data IconThemeLookupByGiconForScaleMethodInfo -instance (signature ~ (b -> Int32 -> Int32 -> [IconLookupFlags] -> m IconInfo), MonadIO m, IconThemeK a, Gio.IconK b) => MethodInfo IconThemeLookupByGiconForScaleMethodInfo a signature where +instance (signature ~ (b -> Int32 -> Int32 -> [IconLookupFlags] -> m (Maybe IconInfo)), MonadIO m, IconThemeK a, Gio.IconK b) => MethodInfo IconThemeLookupByGiconForScaleMethodInfo a signature where overloadedMethod _ = iconThemeLookupByGiconForScale -- method IconTheme::lookup_icon -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "IconInfo" +-- returnType : Just (TInterface "Gtk" "IconInfo") -- throws : False -- Skip return : False foreign import ccall "gtk_icon_theme_lookup_icon" gtk_icon_theme_lookup_icon :: Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme" CString -> -- icon_name : TBasicType TUTF8 - Int32 -> -- size : TBasicType TInt32 + Int32 -> -- size : TBasicType TInt CUInt -> -- flags : TInterface "Gtk" "IconLookupFlags" IO (Ptr IconInfo) @@ -912,35 +918,36 @@ -> T.Text -- iconName -> Int32 -- size -> [IconLookupFlags] -- flags - -> m IconInfo -- result + -> m (Maybe IconInfo) -- result iconThemeLookupIcon _obj iconName size flags = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj iconName' <- textToCString iconName let flags' = gflagsToWord flags result <- gtk_icon_theme_lookup_icon _obj' iconName' size flags' - checkUnexpectedReturnNULL "gtk_icon_theme_lookup_icon" result - result' <- (wrapObject IconInfo) result + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (wrapObject IconInfo) result' + return result'' touchManagedPtr _obj freeMem iconName' - return result' + return maybeResult data IconThemeLookupIconMethodInfo -instance (signature ~ (T.Text -> Int32 -> [IconLookupFlags] -> m IconInfo), MonadIO m, IconThemeK a) => MethodInfo IconThemeLookupIconMethodInfo a signature where +instance (signature ~ (T.Text -> Int32 -> [IconLookupFlags] -> m (Maybe IconInfo)), MonadIO m, IconThemeK a) => MethodInfo IconThemeLookupIconMethodInfo a signature where overloadedMethod _ = iconThemeLookupIcon -- method IconTheme::lookup_icon_for_scale -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", 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},Arg {argCName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "IconInfo" +-- returnType : Just (TInterface "Gtk" "IconInfo") -- throws : False -- Skip return : False foreign import ccall "gtk_icon_theme_lookup_icon_for_scale" gtk_icon_theme_lookup_icon_for_scale :: Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme" CString -> -- icon_name : TBasicType TUTF8 - Int32 -> -- size : TBasicType TInt32 - Int32 -> -- scale : TBasicType TInt32 + Int32 -> -- size : TBasicType TInt + Int32 -> -- scale : TBasicType TInt CUInt -> -- flags : TInterface "Gtk" "IconLookupFlags" IO (Ptr IconInfo) @@ -952,27 +959,28 @@ -> Int32 -- size -> Int32 -- scale -> [IconLookupFlags] -- flags - -> m IconInfo -- result + -> m (Maybe IconInfo) -- result iconThemeLookupIconForScale _obj iconName size scale flags = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj iconName' <- textToCString iconName let flags' = gflagsToWord flags result <- gtk_icon_theme_lookup_icon_for_scale _obj' iconName' size scale flags' - checkUnexpectedReturnNULL "gtk_icon_theme_lookup_icon_for_scale" result - result' <- (wrapObject IconInfo) result + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (wrapObject IconInfo) result' + return result'' touchManagedPtr _obj freeMem iconName' - return result' + return maybeResult data IconThemeLookupIconForScaleMethodInfo -instance (signature ~ (T.Text -> Int32 -> Int32 -> [IconLookupFlags] -> m IconInfo), MonadIO m, IconThemeK a) => MethodInfo IconThemeLookupIconForScaleMethodInfo a signature where +instance (signature ~ (T.Text -> Int32 -> Int32 -> [IconLookupFlags] -> m (Maybe IconInfo)), MonadIO m, IconThemeK a) => MethodInfo IconThemeLookupIconForScaleMethodInfo a signature where overloadedMethod _ = iconThemeLookupIconForScale -- method IconTheme::prepend_search_path -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1003,7 +1011,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1031,7 +1039,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "theme_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1066,7 +1074,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1095,16 +1103,16 @@ -- method IconTheme::set_search_path -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TCArray False (-1) 2 (TBasicType TFileName), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_elements", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "n_elements", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : TBasicType TVoid +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TCArray False (-1) 2 (TBasicType TFileName), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_elements", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "n_elements", 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 "gtk_icon_theme_set_search_path" gtk_icon_theme_set_search_path :: Ptr IconTheme -> -- _obj : TInterface "Gtk" "IconTheme" Ptr CString -> -- path : TCArray False (-1) 2 (TBasicType TFileName) - Int32 -> -- n_elements : TBasicType TInt32 + Int32 -> -- n_elements : TBasicType TInt IO () @@ -1129,15 +1137,15 @@ -- method IconTheme::add_builtin_icon -- method type : MemberFunction --- Args : [Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, 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}] +-- Args : [Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, 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}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_icon_theme_add_builtin_icon" gtk_icon_theme_add_builtin_icon :: CString -> -- icon_name : TBasicType TUTF8 - Int32 -> -- size : TBasicType TInt32 + Int32 -> -- size : TBasicType TInt Ptr GdkPixbuf.Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf" IO () @@ -1160,7 +1168,7 @@ -- method type : MemberFunction -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "IconTheme" +-- returnType : Just (TInterface "Gtk" "IconTheme") -- throws : False -- Skip return : False @@ -1181,7 +1189,7 @@ -- method type : MemberFunction -- Args : [Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "IconTheme" +-- returnType : Just (TInterface "Gtk" "IconTheme") -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/IconTheme.hs-boot b/GI/Gtk/Objects/IconTheme.hs-boot --- a/GI/Gtk/Objects/IconTheme.hs-boot +++ b/GI/Gtk/Objects/IconTheme.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.IconTheme where -import Prelude () 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 diff --git a/GI/Gtk/Objects/IconView.hs b/GI/Gtk/Objects/IconView.hs --- a/GI/Gtk/Objects/IconView.hs +++ b/GI/Gtk/Objects/IconView.hs @@ -341,6 +341,7 @@ IconViewActivateOnSingleClickPropertyInfo, constructIconViewActivateOnSingleClick , getIconViewActivateOnSingleClick , + iconViewActivateOnSingleClick , setIconViewActivateOnSingleClick , @@ -348,12 +349,14 @@ IconViewCellAreaPropertyInfo , constructIconViewCellArea , getIconViewCellArea , + iconViewCellArea , -- ** ColumnSpacing IconViewColumnSpacingPropertyInfo , constructIconViewColumnSpacing , getIconViewColumnSpacing , + iconViewColumnSpacing , setIconViewColumnSpacing , @@ -361,6 +364,7 @@ IconViewColumnsPropertyInfo , constructIconViewColumns , getIconViewColumns , + iconViewColumns , setIconViewColumns , @@ -368,6 +372,7 @@ IconViewItemOrientationPropertyInfo , constructIconViewItemOrientation , getIconViewItemOrientation , + iconViewItemOrientation , setIconViewItemOrientation , @@ -375,6 +380,7 @@ IconViewItemPaddingPropertyInfo , constructIconViewItemPadding , getIconViewItemPadding , + iconViewItemPadding , setIconViewItemPadding , @@ -382,6 +388,7 @@ IconViewItemWidthPropertyInfo , constructIconViewItemWidth , getIconViewItemWidth , + iconViewItemWidth , setIconViewItemWidth , @@ -389,6 +396,7 @@ IconViewMarginPropertyInfo , constructIconViewMargin , getIconViewMargin , + iconViewMargin , setIconViewMargin , @@ -396,13 +404,16 @@ IconViewMarkupColumnPropertyInfo , constructIconViewMarkupColumn , getIconViewMarkupColumn , + iconViewMarkupColumn , setIconViewMarkupColumn , -- ** Model IconViewModelPropertyInfo , + clearIconViewModel , constructIconViewModel , getIconViewModel , + iconViewModel , setIconViewModel , @@ -410,6 +421,7 @@ IconViewPixbufColumnPropertyInfo , constructIconViewPixbufColumn , getIconViewPixbufColumn , + iconViewPixbufColumn , setIconViewPixbufColumn , @@ -417,6 +429,7 @@ IconViewReorderablePropertyInfo , constructIconViewReorderable , getIconViewReorderable , + iconViewReorderable , setIconViewReorderable , @@ -424,6 +437,7 @@ IconViewRowSpacingPropertyInfo , constructIconViewRowSpacing , getIconViewRowSpacing , + iconViewRowSpacing , setIconViewRowSpacing , @@ -431,6 +445,7 @@ IconViewSelectionModePropertyInfo , constructIconViewSelectionMode , getIconViewSelectionMode , + iconViewSelectionMode , setIconViewSelectionMode , @@ -438,6 +453,7 @@ IconViewSpacingPropertyInfo , constructIconViewSpacing , getIconViewSpacing , + iconViewSpacing , setIconViewSpacing , @@ -445,6 +461,7 @@ IconViewTextColumnPropertyInfo , constructIconViewTextColumn , getIconViewTextColumn , + iconViewTextColumn , setIconViewTextColumn , @@ -452,6 +469,7 @@ IconViewTooltipColumnPropertyInfo , constructIconViewTooltipColumn , getIconViewTooltipColumn , + iconViewTooltipColumn , setIconViewTooltipColumn , @@ -558,9 +576,9 @@ ) where -import Prelude () 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 @@ -1316,6 +1334,7 @@ -- VVV Prop "activate-on-single-click" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getIconViewActivateOnSingleClick :: (MonadIO m, IconViewK o) => o -> m Bool getIconViewActivateOnSingleClick obj = liftIO $ getObjectPropertyBool obj "activate-on-single-click" @@ -1336,40 +1355,44 @@ attrGet _ = getIconViewActivateOnSingleClick attrSet _ = setIconViewActivateOnSingleClick attrConstruct _ = constructIconViewActivateOnSingleClick + attrClear _ = undefined -- VVV Prop "cell-area" -- Type: TInterface "Gtk" "CellArea" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + -- Nullable: (Nothing,Nothing) -getIconViewCellArea :: (MonadIO m, IconViewK o) => o -> m CellArea +getIconViewCellArea :: (MonadIO m, IconViewK o) => o -> m (Maybe CellArea) getIconViewCellArea obj = liftIO $ getObjectPropertyObject obj "cell-area" CellArea constructIconViewCellArea :: (CellAreaK a) => a -> IO ([Char], GValue) -constructIconViewCellArea val = constructObjectPropertyObject "cell-area" val +constructIconViewCellArea val = constructObjectPropertyObject "cell-area" (Just val) data IconViewCellAreaPropertyInfo instance AttrInfo IconViewCellAreaPropertyInfo where - type AttrAllowedOps IconViewCellAreaPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrAllowedOps IconViewCellAreaPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint IconViewCellAreaPropertyInfo = CellAreaK type AttrBaseTypeConstraint IconViewCellAreaPropertyInfo = IconViewK - type AttrGetType IconViewCellAreaPropertyInfo = CellArea + type AttrGetType IconViewCellAreaPropertyInfo = (Maybe CellArea) type AttrLabel IconViewCellAreaPropertyInfo = "cell-area" attrGet _ = getIconViewCellArea attrSet _ = undefined attrConstruct _ = constructIconViewCellArea + attrClear _ = undefined -- VVV Prop "column-spacing" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getIconViewColumnSpacing :: (MonadIO m, IconViewK o) => o -> m Int32 -getIconViewColumnSpacing obj = liftIO $ getObjectPropertyCInt obj "column-spacing" +getIconViewColumnSpacing obj = liftIO $ getObjectPropertyInt32 obj "column-spacing" setIconViewColumnSpacing :: (MonadIO m, IconViewK o) => o -> Int32 -> m () -setIconViewColumnSpacing obj val = liftIO $ setObjectPropertyCInt obj "column-spacing" val +setIconViewColumnSpacing obj val = liftIO $ setObjectPropertyInt32 obj "column-spacing" val constructIconViewColumnSpacing :: Int32 -> IO ([Char], GValue) -constructIconViewColumnSpacing val = constructObjectPropertyCInt "column-spacing" val +constructIconViewColumnSpacing val = constructObjectPropertyInt32 "column-spacing" val data IconViewColumnSpacingPropertyInfo instance AttrInfo IconViewColumnSpacingPropertyInfo where @@ -1381,19 +1404,21 @@ attrGet _ = getIconViewColumnSpacing attrSet _ = setIconViewColumnSpacing attrConstruct _ = constructIconViewColumnSpacing + attrClear _ = undefined -- VVV Prop "columns" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getIconViewColumns :: (MonadIO m, IconViewK o) => o -> m Int32 -getIconViewColumns obj = liftIO $ getObjectPropertyCInt obj "columns" +getIconViewColumns obj = liftIO $ getObjectPropertyInt32 obj "columns" setIconViewColumns :: (MonadIO m, IconViewK o) => o -> Int32 -> m () -setIconViewColumns obj val = liftIO $ setObjectPropertyCInt obj "columns" val +setIconViewColumns obj val = liftIO $ setObjectPropertyInt32 obj "columns" val constructIconViewColumns :: Int32 -> IO ([Char], GValue) -constructIconViewColumns val = constructObjectPropertyCInt "columns" val +constructIconViewColumns val = constructObjectPropertyInt32 "columns" val data IconViewColumnsPropertyInfo instance AttrInfo IconViewColumnsPropertyInfo where @@ -1405,10 +1430,12 @@ attrGet _ = getIconViewColumns attrSet _ = setIconViewColumns attrConstruct _ = constructIconViewColumns + attrClear _ = undefined -- VVV Prop "item-orientation" -- Type: TInterface "Gtk" "Orientation" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getIconViewItemOrientation :: (MonadIO m, IconViewK o) => o -> m Orientation getIconViewItemOrientation obj = liftIO $ getObjectPropertyEnum obj "item-orientation" @@ -1429,19 +1456,21 @@ attrGet _ = getIconViewItemOrientation attrSet _ = setIconViewItemOrientation attrConstruct _ = constructIconViewItemOrientation + attrClear _ = undefined -- VVV Prop "item-padding" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getIconViewItemPadding :: (MonadIO m, IconViewK o) => o -> m Int32 -getIconViewItemPadding obj = liftIO $ getObjectPropertyCInt obj "item-padding" +getIconViewItemPadding obj = liftIO $ getObjectPropertyInt32 obj "item-padding" setIconViewItemPadding :: (MonadIO m, IconViewK o) => o -> Int32 -> m () -setIconViewItemPadding obj val = liftIO $ setObjectPropertyCInt obj "item-padding" val +setIconViewItemPadding obj val = liftIO $ setObjectPropertyInt32 obj "item-padding" val constructIconViewItemPadding :: Int32 -> IO ([Char], GValue) -constructIconViewItemPadding val = constructObjectPropertyCInt "item-padding" val +constructIconViewItemPadding val = constructObjectPropertyInt32 "item-padding" val data IconViewItemPaddingPropertyInfo instance AttrInfo IconViewItemPaddingPropertyInfo where @@ -1453,19 +1482,21 @@ attrGet _ = getIconViewItemPadding attrSet _ = setIconViewItemPadding attrConstruct _ = constructIconViewItemPadding + attrClear _ = undefined -- VVV Prop "item-width" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getIconViewItemWidth :: (MonadIO m, IconViewK o) => o -> m Int32 -getIconViewItemWidth obj = liftIO $ getObjectPropertyCInt obj "item-width" +getIconViewItemWidth obj = liftIO $ getObjectPropertyInt32 obj "item-width" setIconViewItemWidth :: (MonadIO m, IconViewK o) => o -> Int32 -> m () -setIconViewItemWidth obj val = liftIO $ setObjectPropertyCInt obj "item-width" val +setIconViewItemWidth obj val = liftIO $ setObjectPropertyInt32 obj "item-width" val constructIconViewItemWidth :: Int32 -> IO ([Char], GValue) -constructIconViewItemWidth val = constructObjectPropertyCInt "item-width" val +constructIconViewItemWidth val = constructObjectPropertyInt32 "item-width" val data IconViewItemWidthPropertyInfo instance AttrInfo IconViewItemWidthPropertyInfo where @@ -1477,19 +1508,21 @@ attrGet _ = getIconViewItemWidth attrSet _ = setIconViewItemWidth attrConstruct _ = constructIconViewItemWidth + attrClear _ = undefined -- VVV Prop "margin" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getIconViewMargin :: (MonadIO m, IconViewK o) => o -> m Int32 -getIconViewMargin obj = liftIO $ getObjectPropertyCInt obj "margin" +getIconViewMargin obj = liftIO $ getObjectPropertyInt32 obj "margin" setIconViewMargin :: (MonadIO m, IconViewK o) => o -> Int32 -> m () -setIconViewMargin obj val = liftIO $ setObjectPropertyCInt obj "margin" val +setIconViewMargin obj val = liftIO $ setObjectPropertyInt32 obj "margin" val constructIconViewMargin :: Int32 -> IO ([Char], GValue) -constructIconViewMargin val = constructObjectPropertyCInt "margin" val +constructIconViewMargin val = constructObjectPropertyInt32 "margin" val data IconViewMarginPropertyInfo instance AttrInfo IconViewMarginPropertyInfo where @@ -1501,19 +1534,21 @@ attrGet _ = getIconViewMargin attrSet _ = setIconViewMargin attrConstruct _ = constructIconViewMargin + attrClear _ = undefined -- VVV Prop "markup-column" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getIconViewMarkupColumn :: (MonadIO m, IconViewK o) => o -> m Int32 -getIconViewMarkupColumn obj = liftIO $ getObjectPropertyCInt obj "markup-column" +getIconViewMarkupColumn obj = liftIO $ getObjectPropertyInt32 obj "markup-column" setIconViewMarkupColumn :: (MonadIO m, IconViewK o) => o -> Int32 -> m () -setIconViewMarkupColumn obj val = liftIO $ setObjectPropertyCInt obj "markup-column" val +setIconViewMarkupColumn obj val = liftIO $ setObjectPropertyInt32 obj "markup-column" val constructIconViewMarkupColumn :: Int32 -> IO ([Char], GValue) -constructIconViewMarkupColumn val = constructObjectPropertyCInt "markup-column" val +constructIconViewMarkupColumn val = constructObjectPropertyInt32 "markup-column" val data IconViewMarkupColumnPropertyInfo instance AttrInfo IconViewMarkupColumnPropertyInfo where @@ -1525,23 +1560,28 @@ attrGet _ = getIconViewMarkupColumn attrSet _ = setIconViewMarkupColumn attrConstruct _ = constructIconViewMarkupColumn + attrClear _ = undefined -- VVV Prop "model" -- Type: TInterface "Gtk" "TreeModel" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) getIconViewModel :: (MonadIO m, IconViewK o) => o -> m TreeModel -getIconViewModel obj = liftIO $ getObjectPropertyObject obj "model" TreeModel +getIconViewModel obj = liftIO $ checkUnexpectedNothing "getIconViewModel" $ getObjectPropertyObject obj "model" TreeModel setIconViewModel :: (MonadIO m, IconViewK o, TreeModelK a) => o -> a -> m () -setIconViewModel obj val = liftIO $ setObjectPropertyObject obj "model" val +setIconViewModel obj val = liftIO $ setObjectPropertyObject obj "model" (Just val) constructIconViewModel :: (TreeModelK a) => a -> IO ([Char], GValue) -constructIconViewModel val = constructObjectPropertyObject "model" val +constructIconViewModel val = constructObjectPropertyObject "model" (Just val) +clearIconViewModel :: (MonadIO m, IconViewK o) => o -> m () +clearIconViewModel obj = liftIO $ setObjectPropertyObject obj "model" (Nothing :: Maybe TreeModel) + data IconViewModelPropertyInfo instance AttrInfo IconViewModelPropertyInfo where - type AttrAllowedOps IconViewModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps IconViewModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint IconViewModelPropertyInfo = TreeModelK type AttrBaseTypeConstraint IconViewModelPropertyInfo = IconViewK type AttrGetType IconViewModelPropertyInfo = TreeModel @@ -1549,19 +1589,21 @@ attrGet _ = getIconViewModel attrSet _ = setIconViewModel attrConstruct _ = constructIconViewModel + attrClear _ = clearIconViewModel -- VVV Prop "pixbuf-column" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getIconViewPixbufColumn :: (MonadIO m, IconViewK o) => o -> m Int32 -getIconViewPixbufColumn obj = liftIO $ getObjectPropertyCInt obj "pixbuf-column" +getIconViewPixbufColumn obj = liftIO $ getObjectPropertyInt32 obj "pixbuf-column" setIconViewPixbufColumn :: (MonadIO m, IconViewK o) => o -> Int32 -> m () -setIconViewPixbufColumn obj val = liftIO $ setObjectPropertyCInt obj "pixbuf-column" val +setIconViewPixbufColumn obj val = liftIO $ setObjectPropertyInt32 obj "pixbuf-column" val constructIconViewPixbufColumn :: Int32 -> IO ([Char], GValue) -constructIconViewPixbufColumn val = constructObjectPropertyCInt "pixbuf-column" val +constructIconViewPixbufColumn val = constructObjectPropertyInt32 "pixbuf-column" val data IconViewPixbufColumnPropertyInfo instance AttrInfo IconViewPixbufColumnPropertyInfo where @@ -1573,10 +1615,12 @@ attrGet _ = getIconViewPixbufColumn attrSet _ = setIconViewPixbufColumn attrConstruct _ = constructIconViewPixbufColumn + attrClear _ = undefined -- VVV Prop "reorderable" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getIconViewReorderable :: (MonadIO m, IconViewK o) => o -> m Bool getIconViewReorderable obj = liftIO $ getObjectPropertyBool obj "reorderable" @@ -1597,19 +1641,21 @@ attrGet _ = getIconViewReorderable attrSet _ = setIconViewReorderable attrConstruct _ = constructIconViewReorderable + attrClear _ = undefined -- VVV Prop "row-spacing" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getIconViewRowSpacing :: (MonadIO m, IconViewK o) => o -> m Int32 -getIconViewRowSpacing obj = liftIO $ getObjectPropertyCInt obj "row-spacing" +getIconViewRowSpacing obj = liftIO $ getObjectPropertyInt32 obj "row-spacing" setIconViewRowSpacing :: (MonadIO m, IconViewK o) => o -> Int32 -> m () -setIconViewRowSpacing obj val = liftIO $ setObjectPropertyCInt obj "row-spacing" val +setIconViewRowSpacing obj val = liftIO $ setObjectPropertyInt32 obj "row-spacing" val constructIconViewRowSpacing :: Int32 -> IO ([Char], GValue) -constructIconViewRowSpacing val = constructObjectPropertyCInt "row-spacing" val +constructIconViewRowSpacing val = constructObjectPropertyInt32 "row-spacing" val data IconViewRowSpacingPropertyInfo instance AttrInfo IconViewRowSpacingPropertyInfo where @@ -1621,10 +1667,12 @@ attrGet _ = getIconViewRowSpacing attrSet _ = setIconViewRowSpacing attrConstruct _ = constructIconViewRowSpacing + attrClear _ = undefined -- VVV Prop "selection-mode" -- Type: TInterface "Gtk" "SelectionMode" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getIconViewSelectionMode :: (MonadIO m, IconViewK o) => o -> m SelectionMode getIconViewSelectionMode obj = liftIO $ getObjectPropertyEnum obj "selection-mode" @@ -1645,19 +1693,21 @@ attrGet _ = getIconViewSelectionMode attrSet _ = setIconViewSelectionMode attrConstruct _ = constructIconViewSelectionMode + attrClear _ = undefined -- VVV Prop "spacing" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getIconViewSpacing :: (MonadIO m, IconViewK o) => o -> m Int32 -getIconViewSpacing obj = liftIO $ getObjectPropertyCInt obj "spacing" +getIconViewSpacing obj = liftIO $ getObjectPropertyInt32 obj "spacing" setIconViewSpacing :: (MonadIO m, IconViewK o) => o -> Int32 -> m () -setIconViewSpacing obj val = liftIO $ setObjectPropertyCInt obj "spacing" val +setIconViewSpacing obj val = liftIO $ setObjectPropertyInt32 obj "spacing" val constructIconViewSpacing :: Int32 -> IO ([Char], GValue) -constructIconViewSpacing val = constructObjectPropertyCInt "spacing" val +constructIconViewSpacing val = constructObjectPropertyInt32 "spacing" val data IconViewSpacingPropertyInfo instance AttrInfo IconViewSpacingPropertyInfo where @@ -1669,19 +1719,21 @@ attrGet _ = getIconViewSpacing attrSet _ = setIconViewSpacing attrConstruct _ = constructIconViewSpacing + attrClear _ = undefined -- VVV Prop "text-column" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getIconViewTextColumn :: (MonadIO m, IconViewK o) => o -> m Int32 -getIconViewTextColumn obj = liftIO $ getObjectPropertyCInt obj "text-column" +getIconViewTextColumn obj = liftIO $ getObjectPropertyInt32 obj "text-column" setIconViewTextColumn :: (MonadIO m, IconViewK o) => o -> Int32 -> m () -setIconViewTextColumn obj val = liftIO $ setObjectPropertyCInt obj "text-column" val +setIconViewTextColumn obj val = liftIO $ setObjectPropertyInt32 obj "text-column" val constructIconViewTextColumn :: Int32 -> IO ([Char], GValue) -constructIconViewTextColumn val = constructObjectPropertyCInt "text-column" val +constructIconViewTextColumn val = constructObjectPropertyInt32 "text-column" val data IconViewTextColumnPropertyInfo instance AttrInfo IconViewTextColumnPropertyInfo where @@ -1693,19 +1745,21 @@ attrGet _ = getIconViewTextColumn attrSet _ = setIconViewTextColumn attrConstruct _ = constructIconViewTextColumn + attrClear _ = undefined -- VVV Prop "tooltip-column" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getIconViewTooltipColumn :: (MonadIO m, IconViewK o) => o -> m Int32 -getIconViewTooltipColumn obj = liftIO $ getObjectPropertyCInt obj "tooltip-column" +getIconViewTooltipColumn obj = liftIO $ getObjectPropertyInt32 obj "tooltip-column" setIconViewTooltipColumn :: (MonadIO m, IconViewK o) => o -> Int32 -> m () -setIconViewTooltipColumn obj val = liftIO $ setObjectPropertyCInt obj "tooltip-column" val +setIconViewTooltipColumn obj val = liftIO $ setObjectPropertyInt32 obj "tooltip-column" val constructIconViewTooltipColumn :: Int32 -> IO ([Char], GValue) -constructIconViewTooltipColumn val = constructObjectPropertyCInt "tooltip-column" val +constructIconViewTooltipColumn val = constructObjectPropertyInt32 "tooltip-column" val data IconViewTooltipColumnPropertyInfo instance AttrInfo IconViewTooltipColumnPropertyInfo where @@ -1717,10 +1771,62 @@ attrGet _ = getIconViewTooltipColumn attrSet _ = setIconViewTooltipColumn attrConstruct _ = constructIconViewTooltipColumn + attrClear _ = undefined type instance AttributeList IconView = IconViewAttributeList type IconViewAttributeList = ('[ '("activateOnSingleClick", IconViewActivateOnSingleClickPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("cellArea", IconViewCellAreaPropertyInfo), '("child", ContainerChildPropertyInfo), '("columnSpacing", IconViewColumnSpacingPropertyInfo), '("columns", IconViewColumnsPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("hadjustment", ScrollableHadjustmentPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hscrollPolicy", ScrollableHscrollPolicyPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("itemOrientation", IconViewItemOrientationPropertyInfo), '("itemPadding", IconViewItemPaddingPropertyInfo), '("itemWidth", IconViewItemWidthPropertyInfo), '("margin", IconViewMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("markupColumn", IconViewMarkupColumnPropertyInfo), '("model", IconViewModelPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("pixbufColumn", IconViewPixbufColumnPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("reorderable", IconViewReorderablePropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rowSpacing", IconViewRowSpacingPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("selectionMode", IconViewSelectionModePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", IconViewSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("textColumn", IconViewTextColumnPropertyInfo), '("tooltipColumn", IconViewTooltipColumnPropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("vadjustment", ScrollableVadjustmentPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("vscrollPolicy", ScrollableVscrollPolicyPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +iconViewActivateOnSingleClick :: AttrLabelProxy "activateOnSingleClick" +iconViewActivateOnSingleClick = AttrLabelProxy + +iconViewCellArea :: AttrLabelProxy "cellArea" +iconViewCellArea = AttrLabelProxy + +iconViewColumnSpacing :: AttrLabelProxy "columnSpacing" +iconViewColumnSpacing = AttrLabelProxy + +iconViewColumns :: AttrLabelProxy "columns" +iconViewColumns = AttrLabelProxy + +iconViewItemOrientation :: AttrLabelProxy "itemOrientation" +iconViewItemOrientation = AttrLabelProxy + +iconViewItemPadding :: AttrLabelProxy "itemPadding" +iconViewItemPadding = AttrLabelProxy + +iconViewItemWidth :: AttrLabelProxy "itemWidth" +iconViewItemWidth = AttrLabelProxy + +iconViewMargin :: AttrLabelProxy "margin" +iconViewMargin = AttrLabelProxy + +iconViewMarkupColumn :: AttrLabelProxy "markupColumn" +iconViewMarkupColumn = AttrLabelProxy + +iconViewModel :: AttrLabelProxy "model" +iconViewModel = AttrLabelProxy + +iconViewPixbufColumn :: AttrLabelProxy "pixbufColumn" +iconViewPixbufColumn = AttrLabelProxy + +iconViewReorderable :: AttrLabelProxy "reorderable" +iconViewReorderable = AttrLabelProxy + +iconViewRowSpacing :: AttrLabelProxy "rowSpacing" +iconViewRowSpacing = AttrLabelProxy + +iconViewSelectionMode :: AttrLabelProxy "selectionMode" +iconViewSelectionMode = AttrLabelProxy + +iconViewSpacing :: AttrLabelProxy "spacing" +iconViewSpacing = AttrLabelProxy + +iconViewTextColumn :: AttrLabelProxy "textColumn" +iconViewTextColumn = AttrLabelProxy + +iconViewTooltipColumn :: AttrLabelProxy "tooltipColumn" +iconViewTooltipColumn = AttrLabelProxy + data IconViewActivateCursorItemSignalInfo instance SignalInfo IconViewActivateCursorItemSignalInfo where type HaskellCallbackType IconViewActivateCursorItemSignalInfo = IconViewActivateCursorItemCallback @@ -1768,7 +1874,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "IconView" +-- returnType : Just (TInterface "Gtk" "IconView") -- throws : False -- Skip return : False @@ -1789,7 +1895,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "area", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "IconView" +-- returnType : Just (TInterface "Gtk" "IconView") -- throws : False -- Skip return : False @@ -1814,7 +1920,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "IconView" +-- returnType : Just (TInterface "Gtk" "IconView") -- throws : False -- Skip return : False @@ -1837,18 +1943,18 @@ -- method IconView::convert_widget_to_bin_window_coords -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wy", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bx", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "by", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wx", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wy", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bx", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "by", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_icon_view_convert_widget_to_bin_window_coords" gtk_icon_view_convert_widget_to_bin_window_coords :: Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Int32 -> -- wx : TBasicType TInt32 - Int32 -> -- wy : TBasicType TInt32 - Ptr Int32 -> -- bx : TBasicType TInt32 - Ptr Int32 -> -- by : TBasicType TInt32 + Int32 -> -- wx : TBasicType TInt + Int32 -> -- wy : TBasicType TInt + Ptr Int32 -> -- bx : TBasicType TInt + Ptr Int32 -> -- by : TBasicType TInt IO () @@ -1878,7 +1984,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "cairo" "Surface" +-- returnType : Just (TInterface "cairo" "Surface") -- throws : False -- Skip return : False @@ -1909,16 +2015,16 @@ -- method IconView::enable_model_drag_dest -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TCArray False (-1) 2 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : TBasicType TVoid +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TCArray False (-1) 2 (TInterface "Gtk" "TargetEntry"), 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},Arg {argCName = "actions", argType = TInterface "Gdk" "DragAction", 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 "gtk_icon_view_enable_model_drag_dest" gtk_icon_view_enable_model_drag_dest :: Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" Ptr TargetEntry -> -- targets : TCArray False (-1) 2 (TInterface "Gtk" "TargetEntry") - Int32 -> -- n_targets : TBasicType TInt32 + Int32 -> -- n_targets : TBasicType TInt CUInt -> -- actions : TInterface "Gdk" "DragAction" IO () @@ -1947,9 +2053,9 @@ -- method IconView::enable_model_drag_source -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_button_mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : TBasicType TVoid +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_button_mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry"), 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},Arg {argCName = "actions", argType = TInterface "Gdk" "DragAction", 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 @@ -1957,7 +2063,7 @@ Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" CUInt -> -- start_button_mask : TInterface "Gdk" "ModifierType" Ptr TargetEntry -> -- targets : TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry") - Int32 -> -- n_targets : TBasicType TInt32 + Int32 -> -- n_targets : TBasicType TInt CUInt -> -- actions : TInterface "Gdk" "DragAction" IO () @@ -1990,7 +2096,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2018,7 +2124,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = True, 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 : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2061,7 +2167,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -2088,7 +2194,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -2115,7 +2221,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2151,16 +2257,16 @@ -- method IconView::get_dest_item_at_pos -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "drag_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "drag_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "pos", argType = TInterface "Gtk" "IconViewDropPosition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "drag_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "drag_y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "pos", argType = TInterface "Gtk" "IconViewDropPosition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_icon_view_get_dest_item_at_pos" gtk_icon_view_get_dest_item_at_pos :: Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Int32 -> -- drag_x : TBasicType TInt32 - Int32 -> -- drag_y : TBasicType TInt32 + Int32 -> -- drag_x : TBasicType TInt + Int32 -> -- drag_y : TBasicType TInt Ptr (Ptr TreePath) -> -- path : TInterface "Gtk" "TreePath" Ptr CUInt -> -- pos : TInterface "Gtk" "IconViewDropPosition" IO CInt @@ -2195,7 +2301,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "pos", argType = TInterface "Gtk" "IconViewDropPosition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2230,16 +2336,16 @@ -- method IconView::get_item_at_pos -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", 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 = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_icon_view_get_item_at_pos" gtk_icon_view_get_item_at_pos :: Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Int32 -> -- x : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 + Int32 -> -- x : TBasicType TInt + Int32 -> -- y : TBasicType TInt Ptr (Ptr TreePath) -> -- path : TInterface "Gtk" "TreePath" Ptr (Ptr CellRenderer) -> -- cell : TInterface "Gtk" "CellRenderer" IO CInt @@ -2274,7 +2380,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -2305,7 +2411,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Orientation" +-- returnType : Just (TInterface "Gtk" "Orientation") -- throws : False -- Skip return : False @@ -2333,7 +2439,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -2360,7 +2466,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -2391,7 +2497,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -2418,7 +2524,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -2445,7 +2551,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -2472,7 +2578,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "TreeModel" +-- returnType : Just (TInterface "Gtk" "TreeModel") -- throws : False -- Skip return : False @@ -2499,16 +2605,16 @@ -- method IconView::get_path_at_pos -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", 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 : TInterface "Gtk" "TreePath" +-- returnType : Just (TInterface "Gtk" "TreePath") -- throws : False -- Skip return : False foreign import ccall "gtk_icon_view_get_path_at_pos" gtk_icon_view_get_path_at_pos :: Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Int32 -> -- x : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 + Int32 -> -- x : TBasicType TInt + Int32 -> -- y : TBasicType TInt IO (Ptr TreePath) @@ -2534,7 +2640,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -2561,7 +2667,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2589,7 +2695,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -2616,7 +2722,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TGList (TInterface "Gtk" "TreePath") +-- returnType : Just (TGList (TInterface "Gtk" "TreePath")) -- throws : False -- Skip return : False @@ -2632,7 +2738,6 @@ iconViewGetSelectedItems _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_icon_view_get_selected_items _obj' - checkUnexpectedReturnNULL "gtk_icon_view_get_selected_items" result result' <- unpackGList result result'' <- mapM (wrapBoxed TreePath) result' g_list_free result @@ -2647,7 +2752,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "SelectionMode" +-- returnType : Just (TInterface "Gtk" "SelectionMode") -- throws : False -- Skip return : False @@ -2675,7 +2780,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -2702,7 +2807,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -2729,7 +2834,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -2754,16 +2859,16 @@ -- method IconView::get_tooltip_context -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "keyboard_tip", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "keyboard_tip", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_icon_view_get_tooltip_context" gtk_icon_view_get_tooltip_context :: Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Ptr Int32 -> -- x : TBasicType TInt32 - Ptr Int32 -> -- y : TBasicType TInt32 + Ptr Int32 -> -- x : TBasicType TInt + Ptr Int32 -> -- y : TBasicType TInt CInt -> -- keyboard_tip : TBasicType TBoolean Ptr (Ptr TreeModel) -> -- model : TInterface "Gtk" "TreeModel" Ptr (Ptr TreePath) -> -- path : TInterface "Gtk" "TreePath" @@ -2812,7 +2917,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "end_path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2850,7 +2955,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2881,7 +2986,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2913,7 +3018,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_align", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row_align", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "col_align", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2953,7 +3058,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2980,7 +3085,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3009,16 +3114,16 @@ -- method IconView::selected_foreach -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "IconViewForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "IconViewForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_icon_view_selected_foreach" gtk_icon_view_selected_foreach :: Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" FunPtr IconViewForeachFuncC -> -- func : TInterface "Gtk" "IconViewForeachFunc" - Ptr () -> -- data : TBasicType TVoid + Ptr () -> -- data : TBasicType TPtr IO () @@ -3044,7 +3149,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "single", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3072,15 +3177,15 @@ -- method IconView::set_column_spacing -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column_spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column_spacing", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_icon_view_set_column_spacing" gtk_icon_view_set_column_spacing :: Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Int32 -> -- column_spacing : TBasicType TInt32 + Int32 -> -- column_spacing : TBasicType TInt IO () @@ -3101,15 +3206,15 @@ -- method IconView::set_columns -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "columns", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "columns", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_icon_view_set_columns" gtk_icon_view_set_columns :: Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Int32 -> -- columns : TBasicType TInt32 + Int32 -> -- columns : TBasicType TInt IO () @@ -3132,7 +3237,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_editing", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3174,7 +3279,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TInterface "Gtk" "IconViewDropPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3212,7 +3317,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3240,15 +3345,15 @@ -- method IconView::set_item_padding -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item_padding", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item_padding", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_icon_view_set_item_padding" gtk_icon_view_set_item_padding :: Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Int32 -> -- item_padding : TBasicType TInt32 + Int32 -> -- item_padding : TBasicType TInt IO () @@ -3269,15 +3374,15 @@ -- method IconView::set_item_width -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item_width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_icon_view_set_item_width" gtk_icon_view_set_item_width :: Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Int32 -> -- item_width : TBasicType TInt32 + Int32 -> -- item_width : TBasicType TInt IO () @@ -3298,15 +3403,15 @@ -- method IconView::set_margin -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "margin", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_icon_view_set_margin" gtk_icon_view_set_margin :: Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Int32 -> -- margin : TBasicType TInt32 + Int32 -> -- margin : TBasicType TInt IO () @@ -3327,15 +3432,15 @@ -- method IconView::set_markup_column -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_icon_view_set_markup_column" gtk_icon_view_set_markup_column :: Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Int32 -> -- column : TBasicType TInt32 + Int32 -> -- column : TBasicType TInt IO () @@ -3358,7 +3463,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3391,15 +3496,15 @@ -- method IconView::set_pixbuf_column -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_icon_view_set_pixbuf_column" gtk_icon_view_set_pixbuf_column :: Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Int32 -> -- column : TBasicType TInt32 + Int32 -> -- column : TBasicType TInt IO () @@ -3422,7 +3527,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "reorderable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3450,15 +3555,15 @@ -- method IconView::set_row_spacing -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row_spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row_spacing", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_icon_view_set_row_spacing" gtk_icon_view_set_row_spacing :: Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Int32 -> -- row_spacing : TBasicType TInt32 + Int32 -> -- row_spacing : TBasicType TInt IO () @@ -3481,7 +3586,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mode", argType = TInterface "Gtk" "SelectionMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3509,15 +3614,15 @@ -- method IconView::set_spacing -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_icon_view_set_spacing" gtk_icon_view_set_spacing :: Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Int32 -> -- spacing : TBasicType TInt32 + Int32 -> -- spacing : TBasicType TInt IO () @@ -3538,15 +3643,15 @@ -- method IconView::set_text_column -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_icon_view_set_text_column" gtk_icon_view_set_text_column :: Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Int32 -> -- column : TBasicType TInt32 + Int32 -> -- column : TBasicType TInt IO () @@ -3569,7 +3674,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tooltip", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3610,15 +3715,15 @@ -- method IconView::set_tooltip_column -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_icon_view_set_tooltip_column" gtk_icon_view_set_tooltip_column :: Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Int32 -> -- column : TBasicType TInt32 + Int32 -> -- column : TBasicType TInt IO () @@ -3641,7 +3746,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tooltip", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3676,7 +3781,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3703,7 +3808,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3734,7 +3839,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3761,7 +3866,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/IconView.hs-boot b/GI/Gtk/Objects/IconView.hs-boot --- a/GI/Gtk/Objects/IconView.hs-boot +++ b/GI/Gtk/Objects/IconView.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.IconView where -import Prelude () 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 diff --git a/GI/Gtk/Objects/IconViewAccessible.hs b/GI/Gtk/Objects/IconViewAccessible.hs --- a/GI/Gtk/Objects/IconViewAccessible.hs +++ b/GI/Gtk/Objects/IconViewAccessible.hs @@ -18,9 +18,9 @@ ) where -import Prelude () 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 diff --git a/GI/Gtk/Objects/IconViewAccessible.hs-boot b/GI/Gtk/Objects/IconViewAccessible.hs-boot --- a/GI/Gtk/Objects/IconViewAccessible.hs-boot +++ b/GI/Gtk/Objects/IconViewAccessible.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.IconViewAccessible where -import Prelude () 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 diff --git a/GI/Gtk/Objects/Image.hs b/GI/Gtk/Objects/Image.hs --- a/GI/Gtk/Objects/Image.hs +++ b/GI/Gtk/Objects/Image.hs @@ -157,29 +157,37 @@ -- * Properties -- ** File ImageFilePropertyInfo , + clearImageFile , constructImageFile , getImageFile , + imageFile , setImageFile , -- ** Gicon ImageGiconPropertyInfo , + clearImageGicon , constructImageGicon , getImageGicon , + imageGicon , setImageGicon , -- ** IconName ImageIconNamePropertyInfo , + clearImageIconName , constructImageIconName , getImageIconName , + imageIconName , setImageIconName , -- ** IconSet ImageIconSetPropertyInfo , + clearImageIconSet , constructImageIconSet , getImageIconSet , + imageIconSet , setImageIconSet , @@ -187,20 +195,25 @@ ImageIconSizePropertyInfo , constructImageIconSize , getImageIconSize , + imageIconSize , setImageIconSize , -- ** Pixbuf ImagePixbufPropertyInfo , + clearImagePixbuf , constructImagePixbuf , getImagePixbuf , + imagePixbuf , setImagePixbuf , -- ** PixbufAnimation ImagePixbufAnimationPropertyInfo , + clearImagePixbufAnimation , constructImagePixbufAnimation , getImagePixbufAnimation , + imagePixbufAnimation , setImagePixbufAnimation , @@ -208,32 +221,40 @@ ImagePixelSizePropertyInfo , constructImagePixelSize , getImagePixelSize , + imagePixelSize , setImagePixelSize , -- ** Resource ImageResourcePropertyInfo , + clearImageResource , constructImageResource , getImageResource , + imageResource , setImageResource , -- ** Stock ImageStockPropertyInfo , + clearImageStock , constructImageStock , getImageStock , + imageStock , setImageStock , -- ** StorageType ImageStorageTypePropertyInfo , getImageStorageType , + imageStorageType , -- ** Surface ImageSurfacePropertyInfo , + clearImageSurface , constructImageSurface , getImageSurface , + imageSurface , setImageSurface , @@ -241,6 +262,7 @@ ImageUseFallbackPropertyInfo , constructImageUseFallback , getImageUseFallback , + imageUseFallback , setImageUseFallback , @@ -248,9 +270,9 @@ ) where -import Prelude () 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 @@ -606,111 +628,132 @@ -- VVV Prop "file" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getImageFile :: (MonadIO m, ImageK o) => o -> m T.Text +getImageFile :: (MonadIO m, ImageK o) => o -> m (Maybe T.Text) getImageFile obj = liftIO $ getObjectPropertyString obj "file" setImageFile :: (MonadIO m, ImageK o) => o -> T.Text -> m () -setImageFile obj val = liftIO $ setObjectPropertyString obj "file" val +setImageFile obj val = liftIO $ setObjectPropertyString obj "file" (Just val) constructImageFile :: T.Text -> IO ([Char], GValue) -constructImageFile val = constructObjectPropertyString "file" val +constructImageFile val = constructObjectPropertyString "file" (Just val) +clearImageFile :: (MonadIO m, ImageK o) => o -> m () +clearImageFile obj = liftIO $ setObjectPropertyString obj "file" (Nothing :: Maybe T.Text) + data ImageFilePropertyInfo instance AttrInfo ImageFilePropertyInfo where - type AttrAllowedOps ImageFilePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps ImageFilePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ImageFilePropertyInfo = (~) T.Text type AttrBaseTypeConstraint ImageFilePropertyInfo = ImageK - type AttrGetType ImageFilePropertyInfo = T.Text + type AttrGetType ImageFilePropertyInfo = (Maybe T.Text) type AttrLabel ImageFilePropertyInfo = "file" attrGet _ = getImageFile attrSet _ = setImageFile attrConstruct _ = constructImageFile + attrClear _ = clearImageFile -- VVV Prop "gicon" -- Type: TInterface "Gio" "Icon" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getImageGicon :: (MonadIO m, ImageK o) => o -> m Gio.Icon +getImageGicon :: (MonadIO m, ImageK o) => o -> m (Maybe Gio.Icon) getImageGicon obj = liftIO $ getObjectPropertyObject obj "gicon" Gio.Icon setImageGicon :: (MonadIO m, ImageK o, Gio.IconK a) => o -> a -> m () -setImageGicon obj val = liftIO $ setObjectPropertyObject obj "gicon" val +setImageGicon obj val = liftIO $ setObjectPropertyObject obj "gicon" (Just val) constructImageGicon :: (Gio.IconK a) => a -> IO ([Char], GValue) -constructImageGicon val = constructObjectPropertyObject "gicon" val +constructImageGicon val = constructObjectPropertyObject "gicon" (Just val) +clearImageGicon :: (MonadIO m, ImageK o) => o -> m () +clearImageGicon obj = liftIO $ setObjectPropertyObject obj "gicon" (Nothing :: Maybe Gio.Icon) + data ImageGiconPropertyInfo instance AttrInfo ImageGiconPropertyInfo where - type AttrAllowedOps ImageGiconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps ImageGiconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ImageGiconPropertyInfo = Gio.IconK type AttrBaseTypeConstraint ImageGiconPropertyInfo = ImageK - type AttrGetType ImageGiconPropertyInfo = Gio.Icon + type AttrGetType ImageGiconPropertyInfo = (Maybe Gio.Icon) type AttrLabel ImageGiconPropertyInfo = "gicon" attrGet _ = getImageGicon attrSet _ = setImageGicon attrConstruct _ = constructImageGicon + attrClear _ = clearImageGicon -- VVV Prop "icon-name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getImageIconName :: (MonadIO m, ImageK o) => o -> m T.Text +getImageIconName :: (MonadIO m, ImageK o) => o -> m (Maybe T.Text) getImageIconName obj = liftIO $ getObjectPropertyString obj "icon-name" setImageIconName :: (MonadIO m, ImageK o) => o -> T.Text -> m () -setImageIconName obj val = liftIO $ setObjectPropertyString obj "icon-name" val +setImageIconName obj val = liftIO $ setObjectPropertyString obj "icon-name" (Just val) constructImageIconName :: T.Text -> IO ([Char], GValue) -constructImageIconName val = constructObjectPropertyString "icon-name" val +constructImageIconName val = constructObjectPropertyString "icon-name" (Just val) +clearImageIconName :: (MonadIO m, ImageK o) => o -> m () +clearImageIconName obj = liftIO $ setObjectPropertyString obj "icon-name" (Nothing :: Maybe T.Text) + data ImageIconNamePropertyInfo instance AttrInfo ImageIconNamePropertyInfo where - type AttrAllowedOps ImageIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps ImageIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ImageIconNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint ImageIconNamePropertyInfo = ImageK - type AttrGetType ImageIconNamePropertyInfo = T.Text + type AttrGetType ImageIconNamePropertyInfo = (Maybe T.Text) type AttrLabel ImageIconNamePropertyInfo = "icon-name" attrGet _ = getImageIconName attrSet _ = setImageIconName attrConstruct _ = constructImageIconName + attrClear _ = clearImageIconName -- VVV Prop "icon-set" -- Type: TInterface "Gtk" "IconSet" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getImageIconSet :: (MonadIO m, ImageK o) => o -> m IconSet +getImageIconSet :: (MonadIO m, ImageK o) => o -> m (Maybe IconSet) getImageIconSet obj = liftIO $ getObjectPropertyBoxed obj "icon-set" IconSet setImageIconSet :: (MonadIO m, ImageK o) => o -> IconSet -> m () -setImageIconSet obj val = liftIO $ setObjectPropertyBoxed obj "icon-set" val +setImageIconSet obj val = liftIO $ setObjectPropertyBoxed obj "icon-set" (Just val) constructImageIconSet :: IconSet -> IO ([Char], GValue) -constructImageIconSet val = constructObjectPropertyBoxed "icon-set" val +constructImageIconSet val = constructObjectPropertyBoxed "icon-set" (Just val) +clearImageIconSet :: (MonadIO m, ImageK o) => o -> m () +clearImageIconSet obj = liftIO $ setObjectPropertyBoxed obj "icon-set" (Nothing :: Maybe IconSet) + data ImageIconSetPropertyInfo instance AttrInfo ImageIconSetPropertyInfo where - type AttrAllowedOps ImageIconSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps ImageIconSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ImageIconSetPropertyInfo = (~) IconSet type AttrBaseTypeConstraint ImageIconSetPropertyInfo = ImageK - type AttrGetType ImageIconSetPropertyInfo = IconSet + type AttrGetType ImageIconSetPropertyInfo = (Maybe IconSet) type AttrLabel ImageIconSetPropertyInfo = "icon-set" attrGet _ = getImageIconSet attrSet _ = setImageIconSet attrConstruct _ = constructImageIconSet + attrClear _ = clearImageIconSet -- VVV Prop "icon-size" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getImageIconSize :: (MonadIO m, ImageK o) => o -> m Int32 -getImageIconSize obj = liftIO $ getObjectPropertyCInt obj "icon-size" +getImageIconSize obj = liftIO $ getObjectPropertyInt32 obj "icon-size" setImageIconSize :: (MonadIO m, ImageK o) => o -> Int32 -> m () -setImageIconSize obj val = liftIO $ setObjectPropertyCInt obj "icon-size" val +setImageIconSize obj val = liftIO $ setObjectPropertyInt32 obj "icon-size" val constructImageIconSize :: Int32 -> IO ([Char], GValue) -constructImageIconSize val = constructObjectPropertyCInt "icon-size" val +constructImageIconSize val = constructObjectPropertyInt32 "icon-size" val data ImageIconSizePropertyInfo instance AttrInfo ImageIconSizePropertyInfo where @@ -722,23 +765,28 @@ attrGet _ = getImageIconSize attrSet _ = setImageIconSize attrConstruct _ = constructImageIconSize + attrClear _ = undefined -- VVV Prop "pixbuf" -- Type: TInterface "GdkPixbuf" "Pixbuf" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Nothing) getImagePixbuf :: (MonadIO m, ImageK o) => o -> m GdkPixbuf.Pixbuf -getImagePixbuf obj = liftIO $ getObjectPropertyObject obj "pixbuf" GdkPixbuf.Pixbuf +getImagePixbuf obj = liftIO $ checkUnexpectedNothing "getImagePixbuf" $ getObjectPropertyObject obj "pixbuf" GdkPixbuf.Pixbuf setImagePixbuf :: (MonadIO m, ImageK o, GdkPixbuf.PixbufK a) => o -> a -> m () -setImagePixbuf obj val = liftIO $ setObjectPropertyObject obj "pixbuf" val +setImagePixbuf obj val = liftIO $ setObjectPropertyObject obj "pixbuf" (Just val) constructImagePixbuf :: (GdkPixbuf.PixbufK a) => a -> IO ([Char], GValue) -constructImagePixbuf val = constructObjectPropertyObject "pixbuf" val +constructImagePixbuf val = constructObjectPropertyObject "pixbuf" (Just val) +clearImagePixbuf :: (MonadIO m, ImageK o) => o -> m () +clearImagePixbuf obj = liftIO $ setObjectPropertyObject obj "pixbuf" (Nothing :: Maybe GdkPixbuf.Pixbuf) + data ImagePixbufPropertyInfo instance AttrInfo ImagePixbufPropertyInfo where - type AttrAllowedOps ImagePixbufPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps ImagePixbufPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ImagePixbufPropertyInfo = GdkPixbuf.PixbufK type AttrBaseTypeConstraint ImagePixbufPropertyInfo = ImageK type AttrGetType ImagePixbufPropertyInfo = GdkPixbuf.Pixbuf @@ -746,43 +794,50 @@ attrGet _ = getImagePixbuf attrSet _ = setImagePixbuf attrConstruct _ = constructImagePixbuf + attrClear _ = clearImagePixbuf -- VVV Prop "pixbuf-animation" -- Type: TInterface "GdkPixbuf" "PixbufAnimation" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getImagePixbufAnimation :: (MonadIO m, ImageK o) => o -> m GdkPixbuf.PixbufAnimation +getImagePixbufAnimation :: (MonadIO m, ImageK o) => o -> m (Maybe GdkPixbuf.PixbufAnimation) getImagePixbufAnimation obj = liftIO $ getObjectPropertyObject obj "pixbuf-animation" GdkPixbuf.PixbufAnimation setImagePixbufAnimation :: (MonadIO m, ImageK o, GdkPixbuf.PixbufAnimationK a) => o -> a -> m () -setImagePixbufAnimation obj val = liftIO $ setObjectPropertyObject obj "pixbuf-animation" val +setImagePixbufAnimation obj val = liftIO $ setObjectPropertyObject obj "pixbuf-animation" (Just val) constructImagePixbufAnimation :: (GdkPixbuf.PixbufAnimationK a) => a -> IO ([Char], GValue) -constructImagePixbufAnimation val = constructObjectPropertyObject "pixbuf-animation" val +constructImagePixbufAnimation val = constructObjectPropertyObject "pixbuf-animation" (Just val) +clearImagePixbufAnimation :: (MonadIO m, ImageK o) => o -> m () +clearImagePixbufAnimation obj = liftIO $ setObjectPropertyObject obj "pixbuf-animation" (Nothing :: Maybe GdkPixbuf.PixbufAnimation) + data ImagePixbufAnimationPropertyInfo instance AttrInfo ImagePixbufAnimationPropertyInfo where - type AttrAllowedOps ImagePixbufAnimationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps ImagePixbufAnimationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ImagePixbufAnimationPropertyInfo = GdkPixbuf.PixbufAnimationK type AttrBaseTypeConstraint ImagePixbufAnimationPropertyInfo = ImageK - type AttrGetType ImagePixbufAnimationPropertyInfo = GdkPixbuf.PixbufAnimation + type AttrGetType ImagePixbufAnimationPropertyInfo = (Maybe GdkPixbuf.PixbufAnimation) type AttrLabel ImagePixbufAnimationPropertyInfo = "pixbuf-animation" attrGet _ = getImagePixbufAnimation attrSet _ = setImagePixbufAnimation attrConstruct _ = constructImagePixbufAnimation + attrClear _ = clearImagePixbufAnimation -- VVV Prop "pixel-size" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getImagePixelSize :: (MonadIO m, ImageK o) => o -> m Int32 -getImagePixelSize obj = liftIO $ getObjectPropertyCInt obj "pixel-size" +getImagePixelSize obj = liftIO $ getObjectPropertyInt32 obj "pixel-size" setImagePixelSize :: (MonadIO m, ImageK o) => o -> Int32 -> m () -setImagePixelSize obj val = liftIO $ setObjectPropertyCInt obj "pixel-size" val +setImagePixelSize obj val = liftIO $ setObjectPropertyInt32 obj "pixel-size" val constructImagePixelSize :: Int32 -> IO ([Char], GValue) -constructImagePixelSize val = constructObjectPropertyCInt "pixel-size" val +constructImagePixelSize val = constructObjectPropertyInt32 "pixel-size" val data ImagePixelSizePropertyInfo instance AttrInfo ImagePixelSizePropertyInfo where @@ -794,58 +849,70 @@ attrGet _ = getImagePixelSize attrSet _ = setImagePixelSize attrConstruct _ = constructImagePixelSize + attrClear _ = undefined -- VVV Prop "resource" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getImageResource :: (MonadIO m, ImageK o) => o -> m T.Text +getImageResource :: (MonadIO m, ImageK o) => o -> m (Maybe T.Text) getImageResource obj = liftIO $ getObjectPropertyString obj "resource" setImageResource :: (MonadIO m, ImageK o) => o -> T.Text -> m () -setImageResource obj val = liftIO $ setObjectPropertyString obj "resource" val +setImageResource obj val = liftIO $ setObjectPropertyString obj "resource" (Just val) constructImageResource :: T.Text -> IO ([Char], GValue) -constructImageResource val = constructObjectPropertyString "resource" val +constructImageResource val = constructObjectPropertyString "resource" (Just val) +clearImageResource :: (MonadIO m, ImageK o) => o -> m () +clearImageResource obj = liftIO $ setObjectPropertyString obj "resource" (Nothing :: Maybe T.Text) + data ImageResourcePropertyInfo instance AttrInfo ImageResourcePropertyInfo where - type AttrAllowedOps ImageResourcePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps ImageResourcePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ImageResourcePropertyInfo = (~) T.Text type AttrBaseTypeConstraint ImageResourcePropertyInfo = ImageK - type AttrGetType ImageResourcePropertyInfo = T.Text + type AttrGetType ImageResourcePropertyInfo = (Maybe T.Text) type AttrLabel ImageResourcePropertyInfo = "resource" attrGet _ = getImageResource attrSet _ = setImageResource attrConstruct _ = constructImageResource + attrClear _ = clearImageResource -- VVV Prop "stock" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getImageStock :: (MonadIO m, ImageK o) => o -> m T.Text +getImageStock :: (MonadIO m, ImageK o) => o -> m (Maybe T.Text) getImageStock obj = liftIO $ getObjectPropertyString obj "stock" setImageStock :: (MonadIO m, ImageK o) => o -> T.Text -> m () -setImageStock obj val = liftIO $ setObjectPropertyString obj "stock" val +setImageStock obj val = liftIO $ setObjectPropertyString obj "stock" (Just val) constructImageStock :: T.Text -> IO ([Char], GValue) -constructImageStock val = constructObjectPropertyString "stock" val +constructImageStock val = constructObjectPropertyString "stock" (Just val) +clearImageStock :: (MonadIO m, ImageK o) => o -> m () +clearImageStock obj = liftIO $ setObjectPropertyString obj "stock" (Nothing :: Maybe T.Text) + data ImageStockPropertyInfo instance AttrInfo ImageStockPropertyInfo where - type AttrAllowedOps ImageStockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps ImageStockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ImageStockPropertyInfo = (~) T.Text type AttrBaseTypeConstraint ImageStockPropertyInfo = ImageK - type AttrGetType ImageStockPropertyInfo = T.Text + type AttrGetType ImageStockPropertyInfo = (Maybe T.Text) type AttrLabel ImageStockPropertyInfo = "stock" attrGet _ = getImageStock attrSet _ = setImageStock attrConstruct _ = constructImageStock + attrClear _ = clearImageStock -- VVV Prop "storage-type" -- Type: TInterface "Gtk" "ImageType" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getImageStorageType :: (MonadIO m, ImageK o) => o -> m ImageType getImageStorageType obj = liftIO $ getObjectPropertyEnum obj "storage-type" @@ -860,34 +927,41 @@ attrGet _ = getImageStorageType attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "surface" -- Type: TInterface "cairo" "Surface" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getImageSurface :: (MonadIO m, ImageK o) => o -> m Cairo.Surface +getImageSurface :: (MonadIO m, ImageK o) => o -> m (Maybe Cairo.Surface) getImageSurface obj = liftIO $ getObjectPropertyBoxed obj "surface" Cairo.Surface setImageSurface :: (MonadIO m, ImageK o) => o -> Cairo.Surface -> m () -setImageSurface obj val = liftIO $ setObjectPropertyBoxed obj "surface" val +setImageSurface obj val = liftIO $ setObjectPropertyBoxed obj "surface" (Just val) constructImageSurface :: Cairo.Surface -> IO ([Char], GValue) -constructImageSurface val = constructObjectPropertyBoxed "surface" val +constructImageSurface val = constructObjectPropertyBoxed "surface" (Just val) +clearImageSurface :: (MonadIO m, ImageK o) => o -> m () +clearImageSurface obj = liftIO $ setObjectPropertyBoxed obj "surface" (Nothing :: Maybe Cairo.Surface) + data ImageSurfacePropertyInfo instance AttrInfo ImageSurfacePropertyInfo where - type AttrAllowedOps ImageSurfacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps ImageSurfacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ImageSurfacePropertyInfo = (~) Cairo.Surface type AttrBaseTypeConstraint ImageSurfacePropertyInfo = ImageK - type AttrGetType ImageSurfacePropertyInfo = Cairo.Surface + type AttrGetType ImageSurfacePropertyInfo = (Maybe Cairo.Surface) type AttrLabel ImageSurfacePropertyInfo = "surface" attrGet _ = getImageSurface attrSet _ = setImageSurface attrConstruct _ = constructImageSurface + attrClear _ = clearImageSurface -- VVV Prop "use-fallback" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getImageUseFallback :: (MonadIO m, ImageK o) => o -> m Bool getImageUseFallback obj = liftIO $ getObjectPropertyBool obj "use-fallback" @@ -908,10 +982,50 @@ attrGet _ = getImageUseFallback attrSet _ = setImageUseFallback attrConstruct _ = constructImageUseFallback + attrClear _ = undefined type instance AttributeList Image = ImageAttributeList type ImageAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("file", ImageFilePropertyInfo), '("gicon", ImageGiconPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("iconName", ImageIconNamePropertyInfo), '("iconSet", ImageIconSetPropertyInfo), '("iconSize", ImageIconSizePropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("pixbuf", ImagePixbufPropertyInfo), '("pixbufAnimation", ImagePixbufAnimationPropertyInfo), '("pixelSize", ImagePixelSizePropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resource", ImageResourcePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("stock", ImageStockPropertyInfo), '("storageType", ImageStorageTypePropertyInfo), '("style", WidgetStylePropertyInfo), '("surface", ImageSurfacePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useFallback", ImageUseFallbackPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", MiscXalignPropertyInfo), '("xpad", MiscXpadPropertyInfo), '("yalign", MiscYalignPropertyInfo), '("ypad", MiscYpadPropertyInfo)] :: [(Symbol, *)]) +imageFile :: AttrLabelProxy "file" +imageFile = AttrLabelProxy + +imageGicon :: AttrLabelProxy "gicon" +imageGicon = AttrLabelProxy + +imageIconName :: AttrLabelProxy "iconName" +imageIconName = AttrLabelProxy + +imageIconSet :: AttrLabelProxy "iconSet" +imageIconSet = AttrLabelProxy + +imageIconSize :: AttrLabelProxy "iconSize" +imageIconSize = AttrLabelProxy + +imagePixbuf :: AttrLabelProxy "pixbuf" +imagePixbuf = AttrLabelProxy + +imagePixbufAnimation :: AttrLabelProxy "pixbufAnimation" +imagePixbufAnimation = AttrLabelProxy + +imagePixelSize :: AttrLabelProxy "pixelSize" +imagePixelSize = AttrLabelProxy + +imageResource :: AttrLabelProxy "resource" +imageResource = AttrLabelProxy + +imageStock :: AttrLabelProxy "stock" +imageStock = AttrLabelProxy + +imageStorageType :: AttrLabelProxy "storageType" +imageStorageType = AttrLabelProxy + +imageSurface :: AttrLabelProxy "surface" +imageSurface = AttrLabelProxy + +imageUseFallback :: AttrLabelProxy "useFallback" +imageUseFallback = AttrLabelProxy + type instance SignalList Image = ImageSignalList type ImageSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -919,7 +1033,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "Image" +-- returnType : Just (TInterface "Gtk" "Image") -- throws : False -- Skip return : False @@ -940,7 +1054,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "animation", argType = TInterface "GdkPixbuf" "PixbufAnimation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Image" +-- returnType : Just (TInterface "Gtk" "Image") -- throws : False -- Skip return : False @@ -965,7 +1079,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Image" +-- returnType : Just (TInterface "Gtk" "Image") -- throws : False -- Skip return : False @@ -988,15 +1102,15 @@ -- method Image::new_from_gicon -- method type : Constructor --- Args : [Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Image" +-- returnType : Just (TInterface "Gtk" "Image") -- throws : False -- Skip return : False foreign import ccall "gtk_image_new_from_gicon" gtk_image_new_from_gicon :: Ptr Gio.Icon -> -- icon : TInterface "Gio" "Icon" - Int32 -> -- size : TBasicType TInt32 + Int32 -> -- size : TBasicType TInt IO (Ptr Image) @@ -1015,15 +1129,15 @@ -- method Image::new_from_icon_name -- method type : Constructor --- Args : [Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Image" +-- returnType : Just (TInterface "Gtk" "Image") -- throws : False -- Skip return : False foreign import ccall "gtk_image_new_from_icon_name" gtk_image_new_from_icon_name :: CString -> -- icon_name : TBasicType TUTF8 - Int32 -> -- size : TBasicType TInt32 + Int32 -> -- size : TBasicType TInt IO (Ptr Image) @@ -1042,15 +1156,15 @@ -- method Image::new_from_icon_set -- method type : Constructor --- Args : [Arg {argCName = "icon_set", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "icon_set", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Image" +-- returnType : Just (TInterface "Gtk" "Image") -- throws : False -- Skip return : False foreign import ccall "gtk_image_new_from_icon_set" gtk_image_new_from_icon_set :: Ptr IconSet -> -- icon_set : TInterface "Gtk" "IconSet" - Int32 -> -- size : TBasicType TInt32 + Int32 -> -- size : TBasicType TInt IO (Ptr Image) {-# DEPRECATED imageNewFromIconSet ["(Since version 3.10)","Use gtk_image_new_from_icon_name() instead."]#-} @@ -1071,7 +1185,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Image" +-- returnType : Just (TInterface "Gtk" "Image") -- throws : False -- Skip return : False @@ -1100,7 +1214,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Image" +-- returnType : Just (TInterface "Gtk" "Image") -- throws : False -- Skip return : False @@ -1123,15 +1237,15 @@ -- method Image::new_from_stock -- method type : Constructor --- Args : [Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Image" +-- returnType : Just (TInterface "Gtk" "Image") -- throws : False -- Skip return : False foreign import ccall "gtk_image_new_from_stock" gtk_image_new_from_stock :: CString -> -- stock_id : TBasicType TUTF8 - Int32 -> -- size : TBasicType TInt32 + Int32 -> -- size : TBasicType TInt IO (Ptr Image) {-# DEPRECATED imageNewFromStock ["(Since version 3.10)","Use gtk_image_new_from_icon_name() instead."]#-} @@ -1152,7 +1266,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Image" +-- returnType : Just (TInterface "Gtk" "Image") -- throws : False -- Skip return : False @@ -1181,7 +1295,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1208,7 +1322,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "GdkPixbuf" "PixbufAnimation" +-- returnType : Just (TInterface "GdkPixbuf" "PixbufAnimation") -- throws : False -- Skip return : False @@ -1235,16 +1349,16 @@ -- method Image::get_gicon -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gicon", argType = TInterface "Gio" "Icon", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gicon", argType = TInterface "Gio" "Icon", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_image_get_gicon" gtk_image_get_gicon :: Ptr Image -> -- _obj : TInterface "Gtk" "Image" Ptr (Ptr Gio.Icon) -> -- gicon : TInterface "Gio" "Icon" - Ptr Int32 -> -- size : TBasicType TInt32 + Ptr Int32 -> -- size : TBasicType TInt IO () @@ -1271,16 +1385,16 @@ -- method Image::get_icon_name -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_image_get_icon_name" gtk_image_get_icon_name :: Ptr Image -> -- _obj : TInterface "Gtk" "Image" Ptr CString -> -- icon_name : TBasicType TUTF8 - Ptr Int32 -> -- size : TBasicType TInt32 + Ptr Int32 -> -- size : TBasicType TInt IO () @@ -1307,16 +1421,16 @@ -- method Image::get_icon_set -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_set", argType = TInterface "Gtk" "IconSet", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_set", argType = TInterface "Gtk" "IconSet", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_image_get_icon_set" gtk_image_get_icon_set :: Ptr Image -> -- _obj : TInterface "Gtk" "Image" Ptr (Ptr IconSet) -> -- icon_set : TInterface "Gtk" "IconSet" - Ptr Int32 -> -- size : TBasicType TInt32 + Ptr Int32 -> -- size : TBasicType TInt IO () {-# DEPRECATED imageGetIconSet ["(Since version 3.10)","Use gtk_image_get_icon_name() instead."]#-} @@ -1345,7 +1459,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : False -- Skip return : False @@ -1374,7 +1488,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1399,16 +1513,16 @@ -- method Image::get_stock -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_image_get_stock" gtk_image_get_stock :: Ptr Image -> -- _obj : TInterface "Gtk" "Image" Ptr CString -> -- stock_id : TBasicType TUTF8 - Ptr Int32 -> -- size : TBasicType TInt32 + Ptr Int32 -> -- size : TBasicType TInt IO () {-# DEPRECATED imageGetStock ["(Since version 3.10)","Use gtk_image_get_icon_name() instead."]#-} @@ -1437,7 +1551,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "ImageType" +-- returnType : Just (TInterface "Gtk" "ImageType") -- throws : False -- Skip return : False @@ -1465,7 +1579,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "animation", argType = TInterface "GdkPixbuf" "PixbufAnimation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1496,7 +1610,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1529,16 +1643,16 @@ -- method Image::set_from_gicon -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_image_set_from_gicon" gtk_image_set_from_gicon :: Ptr Image -> -- _obj : TInterface "Gtk" "Image" Ptr Gio.Icon -> -- icon : TInterface "Gio" "Icon" - Int32 -> -- size : TBasicType TInt32 + Int32 -> -- size : TBasicType TInt IO () @@ -1562,16 +1676,16 @@ -- method Image::set_from_icon_name -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_image_set_from_icon_name" gtk_image_set_from_icon_name :: Ptr Image -> -- _obj : TInterface "Gtk" "Image" CString -> -- icon_name : TBasicType TUTF8 - Int32 -> -- size : TBasicType TInt32 + Int32 -> -- size : TBasicType TInt IO () @@ -1595,16 +1709,16 @@ -- method Image::set_from_icon_set -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_set", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_set", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_image_set_from_icon_set" gtk_image_set_from_icon_set :: Ptr Image -> -- _obj : TInterface "Gtk" "Image" Ptr IconSet -> -- icon_set : TInterface "Gtk" "IconSet" - Int32 -> -- size : TBasicType TInt32 + Int32 -> -- size : TBasicType TInt IO () {-# DEPRECATED imageSetFromIconSet ["(Since version 3.10)","Use gtk_image_set_from_icon_name() instead."]#-} @@ -1630,7 +1744,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1665,7 +1779,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1698,16 +1812,16 @@ -- method Image::set_from_stock -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_image_set_from_stock" gtk_image_set_from_stock :: Ptr Image -> -- _obj : TInterface "Gtk" "Image" CString -> -- stock_id : TBasicType TUTF8 - Int32 -> -- size : TBasicType TInt32 + Int32 -> -- size : TBasicType TInt IO () {-# DEPRECATED imageSetFromStock ["(Since version 3.10)","Use gtk_image_set_from_icon_name() instead."]#-} @@ -1733,7 +1847,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", 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}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1762,15 +1876,15 @@ -- method Image::set_pixel_size -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixel_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixel_size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_image_set_pixel_size" gtk_image_set_pixel_size :: Ptr Image -> -- _obj : TInterface "Gtk" "Image" - Int32 -> -- pixel_size : TBasicType TInt32 + Int32 -> -- pixel_size : TBasicType TInt IO () diff --git a/GI/Gtk/Objects/Image.hs-boot b/GI/Gtk/Objects/Image.hs-boot --- a/GI/Gtk/Objects/Image.hs-boot +++ b/GI/Gtk/Objects/Image.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.Image where -import Prelude () 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 diff --git a/GI/Gtk/Objects/ImageAccessible.hs b/GI/Gtk/Objects/ImageAccessible.hs --- a/GI/Gtk/Objects/ImageAccessible.hs +++ b/GI/Gtk/Objects/ImageAccessible.hs @@ -18,9 +18,9 @@ ) where -import Prelude () 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 diff --git a/GI/Gtk/Objects/ImageAccessible.hs-boot b/GI/Gtk/Objects/ImageAccessible.hs-boot --- a/GI/Gtk/Objects/ImageAccessible.hs-boot +++ b/GI/Gtk/Objects/ImageAccessible.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.ImageAccessible where -import Prelude () 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 diff --git a/GI/Gtk/Objects/ImageCellAccessible.hs b/GI/Gtk/Objects/ImageCellAccessible.hs --- a/GI/Gtk/Objects/ImageCellAccessible.hs +++ b/GI/Gtk/Objects/ImageCellAccessible.hs @@ -18,9 +18,9 @@ ) where -import Prelude () 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 diff --git a/GI/Gtk/Objects/ImageCellAccessible.hs-boot b/GI/Gtk/Objects/ImageCellAccessible.hs-boot --- a/GI/Gtk/Objects/ImageCellAccessible.hs-boot +++ b/GI/Gtk/Objects/ImageCellAccessible.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.ImageCellAccessible where -import Prelude () 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 diff --git a/GI/Gtk/Objects/ImageMenuItem.hs b/GI/Gtk/Objects/ImageMenuItem.hs --- a/GI/Gtk/Objects/ImageMenuItem.hs +++ b/GI/Gtk/Objects/ImageMenuItem.hs @@ -74,6 +74,7 @@ -- ** AccelGroup ImageMenuItemAccelGroupPropertyInfo , constructImageMenuItemAccelGroup , + imageMenuItemAccelGroup , setImageMenuItemAccelGroup , @@ -81,13 +82,16 @@ ImageMenuItemAlwaysShowImagePropertyInfo, constructImageMenuItemAlwaysShowImage , getImageMenuItemAlwaysShowImage , + imageMenuItemAlwaysShowImage , setImageMenuItemAlwaysShowImage , -- ** Image ImageMenuItemImagePropertyInfo , + clearImageMenuItemImage , constructImageMenuItemImage , getImageMenuItemImage , + imageMenuItemImage , setImageMenuItemImage , @@ -95,6 +99,7 @@ ImageMenuItemUseStockPropertyInfo , constructImageMenuItemUseStock , getImageMenuItemUseStock , + imageMenuItemUseStock , setImageMenuItemUseStock , @@ -102,9 +107,9 @@ ) where -import Prelude () 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 @@ -492,12 +497,13 @@ -- VVV Prop "accel-group" -- Type: TInterface "Gtk" "AccelGroup" -- Flags: [PropertyWritable] + -- Nullable: (Nothing,Just False) setImageMenuItemAccelGroup :: (MonadIO m, ImageMenuItemK o, AccelGroupK a) => o -> a -> m () -setImageMenuItemAccelGroup obj val = liftIO $ setObjectPropertyObject obj "accel-group" val +setImageMenuItemAccelGroup obj val = liftIO $ setObjectPropertyObject obj "accel-group" (Just val) constructImageMenuItemAccelGroup :: (AccelGroupK a) => a -> IO ([Char], GValue) -constructImageMenuItemAccelGroup val = constructObjectPropertyObject "accel-group" val +constructImageMenuItemAccelGroup val = constructObjectPropertyObject "accel-group" (Just val) data ImageMenuItemAccelGroupPropertyInfo instance AttrInfo ImageMenuItemAccelGroupPropertyInfo where @@ -509,10 +515,12 @@ attrGet _ = undefined attrSet _ = setImageMenuItemAccelGroup attrConstruct _ = constructImageMenuItemAccelGroup + attrClear _ = undefined -- VVV Prop "always-show-image" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Just False,Just False) getImageMenuItemAlwaysShowImage :: (MonadIO m, ImageMenuItemK o) => o -> m Bool getImageMenuItemAlwaysShowImage obj = liftIO $ getObjectPropertyBool obj "always-show-image" @@ -533,23 +541,28 @@ attrGet _ = getImageMenuItemAlwaysShowImage attrSet _ = setImageMenuItemAlwaysShowImage attrConstruct _ = constructImageMenuItemAlwaysShowImage + attrClear _ = undefined -- VVV Prop "image" -- Type: TInterface "Gtk" "Widget" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) getImageMenuItemImage :: (MonadIO m, ImageMenuItemK o) => o -> m Widget -getImageMenuItemImage obj = liftIO $ getObjectPropertyObject obj "image" Widget +getImageMenuItemImage obj = liftIO $ checkUnexpectedNothing "getImageMenuItemImage" $ getObjectPropertyObject obj "image" Widget setImageMenuItemImage :: (MonadIO m, ImageMenuItemK o, WidgetK a) => o -> a -> m () -setImageMenuItemImage obj val = liftIO $ setObjectPropertyObject obj "image" val +setImageMenuItemImage obj val = liftIO $ setObjectPropertyObject obj "image" (Just val) constructImageMenuItemImage :: (WidgetK a) => a -> IO ([Char], GValue) -constructImageMenuItemImage val = constructObjectPropertyObject "image" val +constructImageMenuItemImage val = constructObjectPropertyObject "image" (Just val) +clearImageMenuItemImage :: (MonadIO m, ImageMenuItemK o) => o -> m () +clearImageMenuItemImage obj = liftIO $ setObjectPropertyObject obj "image" (Nothing :: Maybe Widget) + data ImageMenuItemImagePropertyInfo instance AttrInfo ImageMenuItemImagePropertyInfo where - type AttrAllowedOps ImageMenuItemImagePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps ImageMenuItemImagePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ImageMenuItemImagePropertyInfo = WidgetK type AttrBaseTypeConstraint ImageMenuItemImagePropertyInfo = ImageMenuItemK type AttrGetType ImageMenuItemImagePropertyInfo = Widget @@ -557,10 +570,12 @@ attrGet _ = getImageMenuItemImage attrSet _ = setImageMenuItemImage attrConstruct _ = constructImageMenuItemImage + attrClear _ = clearImageMenuItemImage -- VVV Prop "use-stock" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Just False,Just False) getImageMenuItemUseStock :: (MonadIO m, ImageMenuItemK o) => o -> m Bool getImageMenuItemUseStock obj = liftIO $ getObjectPropertyBool obj "use-stock" @@ -581,10 +596,23 @@ attrGet _ = getImageMenuItemUseStock attrSet _ = setImageMenuItemUseStock attrConstruct _ = constructImageMenuItemUseStock + attrClear _ = undefined type instance AttributeList ImageMenuItem = ImageMenuItemAttributeList type ImageMenuItemAttributeList = ('[ '("accelGroup", ImageMenuItemAccelGroupPropertyInfo), '("accelPath", MenuItemAccelPathPropertyInfo), '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("alwaysShowImage", ImageMenuItemAlwaysShowImagePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("image", ImageMenuItemImagePropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", MenuItemLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rightJustified", MenuItemRightJustifiedPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("submenu", MenuItemSubmenuPropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useStock", ImageMenuItemUseStockPropertyInfo), '("useUnderline", MenuItemUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +imageMenuItemAccelGroup :: AttrLabelProxy "accelGroup" +imageMenuItemAccelGroup = AttrLabelProxy + +imageMenuItemAlwaysShowImage :: AttrLabelProxy "alwaysShowImage" +imageMenuItemAlwaysShowImage = AttrLabelProxy + +imageMenuItemImage :: AttrLabelProxy "image" +imageMenuItemImage = AttrLabelProxy + +imageMenuItemUseStock :: AttrLabelProxy "useStock" +imageMenuItemUseStock = AttrLabelProxy + type instance SignalList ImageMenuItem = ImageMenuItemSignalList type ImageMenuItemSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activate", MenuItemActivateSignalInfo), '("activateItem", MenuItemActivateItemSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("deselect", MenuItemDeselectSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("select", MenuItemSelectSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("toggleSizeAllocate", MenuItemToggleSizeAllocateSignalInfo), '("toggleSizeRequest", MenuItemToggleSizeRequestSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -592,7 +620,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "ImageMenuItem" +-- returnType : Just (TInterface "Gtk" "ImageMenuItem") -- throws : False -- Skip return : False @@ -613,7 +641,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "ImageMenuItem" +-- returnType : Just (TInterface "Gtk" "ImageMenuItem") -- throws : False -- Skip return : False @@ -646,7 +674,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "ImageMenuItem" +-- returnType : Just (TInterface "Gtk" "ImageMenuItem") -- throws : False -- Skip return : False @@ -671,7 +699,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "ImageMenuItem" +-- returnType : Just (TInterface "Gtk" "ImageMenuItem") -- throws : False -- Skip return : False @@ -696,7 +724,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -724,7 +752,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -753,7 +781,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -781,7 +809,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -812,7 +840,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "always_show", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -842,7 +870,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "image", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -877,7 +905,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_stock", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/ImageMenuItem.hs-boot b/GI/Gtk/Objects/ImageMenuItem.hs-boot --- a/GI/Gtk/Objects/ImageMenuItem.hs-boot +++ b/GI/Gtk/Objects/ImageMenuItem.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.ImageMenuItem where -import Prelude () 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 diff --git a/GI/Gtk/Objects/InfoBar.hs b/GI/Gtk/Objects/InfoBar.hs --- a/GI/Gtk/Objects/InfoBar.hs +++ b/GI/Gtk/Objects/InfoBar.hs @@ -83,6 +83,7 @@ InfoBarMessageTypePropertyInfo , constructInfoBarMessageType , getInfoBarMessageType , + infoBarMessageType , setInfoBarMessageType , @@ -90,6 +91,7 @@ InfoBarShowCloseButtonPropertyInfo , constructInfoBarShowCloseButton , getInfoBarShowCloseButton , + infoBarShowCloseButton , setInfoBarShowCloseButton , @@ -124,9 +126,9 @@ ) where -import Prelude () 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 @@ -587,6 +589,7 @@ -- VVV Prop "message-type" -- Type: TInterface "Gtk" "MessageType" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Just False,Just False) getInfoBarMessageType :: (MonadIO m, InfoBarK o) => o -> m MessageType getInfoBarMessageType obj = liftIO $ getObjectPropertyEnum obj "message-type" @@ -607,10 +610,12 @@ attrGet _ = getInfoBarMessageType attrSet _ = setInfoBarMessageType attrConstruct _ = constructInfoBarMessageType + attrClear _ = undefined -- VVV Prop "show-close-button" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Just False,Just False) getInfoBarShowCloseButton :: (MonadIO m, InfoBarK o) => o -> m Bool getInfoBarShowCloseButton obj = liftIO $ getObjectPropertyBool obj "show-close-button" @@ -631,10 +636,17 @@ attrGet _ = getInfoBarShowCloseButton attrSet _ = setInfoBarShowCloseButton attrConstruct _ = constructInfoBarShowCloseButton + attrClear _ = undefined type instance AttributeList InfoBar = InfoBarAttributeList type InfoBarAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("baselinePosition", BoxBaselinePositionPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("messageType", InfoBarMessageTypePropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showCloseButton", InfoBarShowCloseButtonPropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +infoBarMessageType :: AttrLabelProxy "messageType" +infoBarMessageType = AttrLabelProxy + +infoBarShowCloseButton :: AttrLabelProxy "showCloseButton" +infoBarShowCloseButton = AttrLabelProxy + data InfoBarCloseSignalInfo instance SignalInfo InfoBarCloseSignalInfo where type HaskellCallbackType InfoBarCloseSignalInfo = InfoBarCloseCallback @@ -652,7 +664,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "InfoBar" +-- returnType : Just (TInterface "Gtk" "InfoBar") -- throws : False -- Skip return : False @@ -671,16 +683,16 @@ -- method InfoBar::add_action_widget -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_info_bar_add_action_widget" gtk_info_bar_add_action_widget :: Ptr InfoBar -> -- _obj : TInterface "Gtk" "InfoBar" Ptr Widget -> -- child : TInterface "Gtk" "Widget" - Int32 -> -- response_id : TBasicType TInt32 + Int32 -> -- response_id : TBasicType TInt IO () @@ -704,16 +716,16 @@ -- method InfoBar::add_button -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Button" +-- returnType : Just (TInterface "Gtk" "Button") -- throws : False -- Skip return : False foreign import ccall "gtk_info_bar_add_button" gtk_info_bar_add_button :: Ptr InfoBar -> -- _obj : TInterface "Gtk" "InfoBar" CString -> -- button_text : TBasicType TUTF8 - Int32 -> -- response_id : TBasicType TInt32 + Int32 -> -- response_id : TBasicType TInt IO (Ptr Button) @@ -741,7 +753,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -770,7 +782,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -799,7 +811,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "MessageType" +-- returnType : Just (TInterface "Gtk" "MessageType") -- throws : False -- Skip return : False @@ -827,7 +839,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -853,15 +865,15 @@ -- method InfoBar::response -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_info_bar_response" gtk_info_bar_response :: Ptr InfoBar -> -- _obj : TInterface "Gtk" "InfoBar" - Int32 -> -- response_id : TBasicType TInt32 + Int32 -> -- response_id : TBasicType TInt IO () @@ -882,15 +894,15 @@ -- method InfoBar::set_default_response -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_info_bar_set_default_response" gtk_info_bar_set_default_response :: Ptr InfoBar -> -- _obj : TInterface "Gtk" "InfoBar" - Int32 -> -- response_id : TBasicType TInt32 + Int32 -> -- response_id : TBasicType TInt IO () @@ -913,7 +925,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "message_type", argType = TInterface "Gtk" "MessageType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -941,15 +953,15 @@ -- method InfoBar::set_response_sensitive -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", argType = TBasicType TInt32, 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}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_id", argType = TBasicType TInt, 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_info_bar_set_response_sensitive" gtk_info_bar_set_response_sensitive :: Ptr InfoBar -> -- _obj : TInterface "Gtk" "InfoBar" - Int32 -> -- response_id : TBasicType TInt32 + Int32 -> -- response_id : TBasicType TInt CInt -> -- setting : TBasicType TBoolean IO () @@ -975,7 +987,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "InfoBar", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/InfoBar.hs-boot b/GI/Gtk/Objects/InfoBar.hs-boot --- a/GI/Gtk/Objects/InfoBar.hs-boot +++ b/GI/Gtk/Objects/InfoBar.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.InfoBar where -import Prelude () 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 diff --git a/GI/Gtk/Objects/Invisible.hs b/GI/Gtk/Objects/Invisible.hs --- a/GI/Gtk/Objects/Invisible.hs +++ b/GI/Gtk/Objects/Invisible.hs @@ -42,6 +42,7 @@ InvisibleScreenPropertyInfo , constructInvisibleScreen , getInvisibleScreen , + invisibleScreen , setInvisibleScreen , @@ -49,9 +50,9 @@ ) where -import Prelude () 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 @@ -382,15 +383,16 @@ -- VVV Prop "screen" -- Type: TInterface "Gdk" "Screen" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getInvisibleScreen :: (MonadIO m, InvisibleK o) => o -> m Gdk.Screen -getInvisibleScreen obj = liftIO $ getObjectPropertyObject obj "screen" Gdk.Screen +getInvisibleScreen obj = liftIO $ checkUnexpectedNothing "getInvisibleScreen" $ getObjectPropertyObject obj "screen" Gdk.Screen setInvisibleScreen :: (MonadIO m, InvisibleK o, Gdk.ScreenK a) => o -> a -> m () -setInvisibleScreen obj val = liftIO $ setObjectPropertyObject obj "screen" val +setInvisibleScreen obj val = liftIO $ setObjectPropertyObject obj "screen" (Just val) constructInvisibleScreen :: (Gdk.ScreenK a) => a -> IO ([Char], GValue) -constructInvisibleScreen val = constructObjectPropertyObject "screen" val +constructInvisibleScreen val = constructObjectPropertyObject "screen" (Just val) data InvisibleScreenPropertyInfo instance AttrInfo InvisibleScreenPropertyInfo where @@ -402,10 +404,14 @@ attrGet _ = getInvisibleScreen attrSet _ = setInvisibleScreen attrConstruct _ = constructInvisibleScreen + attrClear _ = undefined type instance AttributeList Invisible = InvisibleAttributeList type InvisibleAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("screen", InvisibleScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +invisibleScreen :: AttrLabelProxy "screen" +invisibleScreen = AttrLabelProxy + type instance SignalList Invisible = InvisibleSignalList type InvisibleSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -413,7 +419,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "Invisible" +-- returnType : Just (TInterface "Gtk" "Invisible") -- throws : False -- Skip return : False @@ -434,7 +440,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Invisible" +-- returnType : Just (TInterface "Gtk" "Invisible") -- throws : False -- Skip return : False @@ -459,7 +465,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Invisible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gdk" "Screen" +-- returnType : Just (TInterface "Gdk" "Screen") -- throws : False -- Skip return : False @@ -488,7 +494,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Invisible", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/Invisible.hs-boot b/GI/Gtk/Objects/Invisible.hs-boot --- a/GI/Gtk/Objects/Invisible.hs-boot +++ b/GI/Gtk/Objects/Invisible.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.Invisible where -import Prelude () 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 diff --git a/GI/Gtk/Objects/Label.hs b/GI/Gtk/Objects/Label.hs --- a/GI/Gtk/Objects/Label.hs +++ b/GI/Gtk/Objects/Label.hs @@ -272,25 +272,30 @@ LabelAnglePropertyInfo , constructLabelAngle , getLabelAngle , + labelAngle , setLabelAngle , -- ** Attributes LabelAttributesPropertyInfo , + clearLabelAttributes , constructLabelAttributes , getLabelAttributes , + labelAttributes , setLabelAttributes , -- ** CursorPosition LabelCursorPositionPropertyInfo , getLabelCursorPosition , + labelCursorPosition , -- ** Ellipsize LabelEllipsizePropertyInfo , constructLabelEllipsize , getLabelEllipsize , + labelEllipsize , setLabelEllipsize , @@ -298,6 +303,7 @@ LabelJustifyPropertyInfo , constructLabelJustify , getLabelJustify , + labelJustify , setLabelJustify , @@ -305,6 +311,7 @@ LabelLabelPropertyInfo , constructLabelLabel , getLabelLabel , + labelLabel , setLabelLabel , @@ -312,6 +319,7 @@ LabelLinesPropertyInfo , constructLabelLines , getLabelLines , + labelLines , setLabelLines , @@ -319,24 +327,29 @@ LabelMaxWidthCharsPropertyInfo , constructLabelMaxWidthChars , getLabelMaxWidthChars , + labelMaxWidthChars , setLabelMaxWidthChars , -- ** MnemonicKeyval LabelMnemonicKeyvalPropertyInfo , getLabelMnemonicKeyval , + labelMnemonicKeyval , -- ** MnemonicWidget LabelMnemonicWidgetPropertyInfo , + clearLabelMnemonicWidget , constructLabelMnemonicWidget , getLabelMnemonicWidget , + labelMnemonicWidget , setLabelMnemonicWidget , -- ** Pattern LabelPatternPropertyInfo , constructLabelPattern , + labelPattern , setLabelPattern , @@ -344,18 +357,21 @@ LabelSelectablePropertyInfo , constructLabelSelectable , getLabelSelectable , + labelSelectable , setLabelSelectable , -- ** SelectionBound LabelSelectionBoundPropertyInfo , getLabelSelectionBound , + labelSelectionBound , -- ** SingleLineMode LabelSingleLineModePropertyInfo , constructLabelSingleLineMode , getLabelSingleLineMode , + labelSingleLineMode , setLabelSingleLineMode , @@ -363,6 +379,7 @@ LabelTrackVisitedLinksPropertyInfo , constructLabelTrackVisitedLinks , getLabelTrackVisitedLinks , + labelTrackVisitedLinks , setLabelTrackVisitedLinks , @@ -370,6 +387,7 @@ LabelUseMarkupPropertyInfo , constructLabelUseMarkup , getLabelUseMarkup , + labelUseMarkup , setLabelUseMarkup , @@ -377,6 +395,7 @@ LabelUseUnderlinePropertyInfo , constructLabelUseUnderline , getLabelUseUnderline , + labelUseUnderline , setLabelUseUnderline , @@ -384,6 +403,7 @@ LabelWidthCharsPropertyInfo , constructLabelWidthChars , getLabelWidthChars , + labelWidthChars , setLabelWidthChars , @@ -391,6 +411,7 @@ LabelWrapPropertyInfo , constructLabelWrap , getLabelWrap , + labelWrap , setLabelWrap , @@ -398,6 +419,7 @@ LabelWrapModePropertyInfo , constructLabelWrapMode , getLabelWrapMode , + labelWrapMode , setLabelWrapMode , @@ -405,6 +427,7 @@ LabelXalignPropertyInfo , constructLabelXalign , getLabelXalign , + labelXalign , setLabelXalign , @@ -412,6 +435,7 @@ LabelYalignPropertyInfo , constructLabelYalign , getLabelYalign , + labelYalign , setLabelYalign , @@ -482,9 +506,9 @@ ) where -import Prelude () 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 @@ -1076,14 +1100,15 @@ connectSignalFunPtr obj "populate-popup" cb' after --- XXX Duplicated object with different types: - --- Name {namespace = "Gtk", name = "Label"} -> Property {propName = "xalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], propTransfer = TransferNothing, propDeprecated = Nothing} - --- Name {namespace = "Gtk", name = "Misc"} -> Property {propName = "xalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], propTransfer = TransferNothing, propDeprecated = Just DeprecationInfo {deprecatedSinceVersion = Just "3.14", deprecationMessage = Just "Use gtk_widget_set_halign() instead. If you are using\n #GtkLabel, use #GtkLabel:xalign instead."}} + --- Name {namespace = "Gtk", name = "Label"} -> Property {propName = "xalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDeprecated = Nothing} + --- Name {namespace = "Gtk", name = "Misc"} -> Property {propName = "xalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDeprecated = Just (DeprecationInfo {deprecatedSinceVersion = Just "3.14", deprecationMessage = Just "Use gtk_widget_set_halign() instead. If you are using\n #GtkLabel, use #GtkLabel:xalign instead."})} --- XXX Duplicated object with different types: - --- Name {namespace = "Gtk", name = "Label"} -> Property {propName = "yalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], propTransfer = TransferNothing, propDeprecated = Nothing} - --- Name {namespace = "Gtk", name = "Misc"} -> Property {propName = "yalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], propTransfer = TransferNothing, propDeprecated = Just DeprecationInfo {deprecatedSinceVersion = Just "3.14", deprecationMessage = Just "Use gtk_widget_set_valign() instead. If you are using\n #GtkLabel, use #GtkLabel:yalign instead."}} + --- Name {namespace = "Gtk", name = "Label"} -> Property {propName = "yalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDeprecated = Nothing} + --- Name {namespace = "Gtk", name = "Misc"} -> Property {propName = "yalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDeprecated = Just (DeprecationInfo {deprecatedSinceVersion = Just "3.14", deprecationMessage = Just "Use gtk_widget_set_valign() instead. If you are using\n #GtkLabel, use #GtkLabel:yalign instead."})} -- VVV Prop "angle" -- Type: TBasicType TDouble -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getLabelAngle :: (MonadIO m, LabelK o) => o -> m Double getLabelAngle obj = liftIO $ getObjectPropertyDouble obj "angle" @@ -1104,23 +1129,28 @@ attrGet _ = getLabelAngle attrSet _ = setLabelAngle attrConstruct _ = constructLabelAngle + attrClear _ = undefined -- VVV Prop "attributes" -- Type: TInterface "Pango" "AttrList" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) getLabelAttributes :: (MonadIO m, LabelK o) => o -> m Pango.AttrList -getLabelAttributes obj = liftIO $ getObjectPropertyBoxed obj "attributes" Pango.AttrList +getLabelAttributes obj = liftIO $ checkUnexpectedNothing "getLabelAttributes" $ getObjectPropertyBoxed obj "attributes" Pango.AttrList setLabelAttributes :: (MonadIO m, LabelK o) => o -> Pango.AttrList -> m () -setLabelAttributes obj val = liftIO $ setObjectPropertyBoxed obj "attributes" val +setLabelAttributes obj val = liftIO $ setObjectPropertyBoxed obj "attributes" (Just val) constructLabelAttributes :: Pango.AttrList -> IO ([Char], GValue) -constructLabelAttributes val = constructObjectPropertyBoxed "attributes" val +constructLabelAttributes val = constructObjectPropertyBoxed "attributes" (Just val) +clearLabelAttributes :: (MonadIO m, LabelK o) => o -> m () +clearLabelAttributes obj = liftIO $ setObjectPropertyBoxed obj "attributes" (Nothing :: Maybe Pango.AttrList) + data LabelAttributesPropertyInfo instance AttrInfo LabelAttributesPropertyInfo where - type AttrAllowedOps LabelAttributesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps LabelAttributesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint LabelAttributesPropertyInfo = (~) Pango.AttrList type AttrBaseTypeConstraint LabelAttributesPropertyInfo = LabelK type AttrGetType LabelAttributesPropertyInfo = Pango.AttrList @@ -1128,13 +1158,15 @@ attrGet _ = getLabelAttributes attrSet _ = setLabelAttributes attrConstruct _ = constructLabelAttributes + attrClear _ = clearLabelAttributes -- VVV Prop "cursor-position" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) getLabelCursorPosition :: (MonadIO m, LabelK o) => o -> m Int32 -getLabelCursorPosition obj = liftIO $ getObjectPropertyCInt obj "cursor-position" +getLabelCursorPosition obj = liftIO $ getObjectPropertyInt32 obj "cursor-position" data LabelCursorPositionPropertyInfo instance AttrInfo LabelCursorPositionPropertyInfo where @@ -1146,10 +1178,12 @@ attrGet _ = getLabelCursorPosition attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "ellipsize" -- Type: TInterface "Pango" "EllipsizeMode" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getLabelEllipsize :: (MonadIO m, LabelK o) => o -> m Pango.EllipsizeMode getLabelEllipsize obj = liftIO $ getObjectPropertyEnum obj "ellipsize" @@ -1170,10 +1204,12 @@ attrGet _ = getLabelEllipsize attrSet _ = setLabelEllipsize attrConstruct _ = constructLabelEllipsize + attrClear _ = undefined -- VVV Prop "justify" -- Type: TInterface "Gtk" "Justification" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getLabelJustify :: (MonadIO m, LabelK o) => o -> m Justification getLabelJustify obj = liftIO $ getObjectPropertyEnum obj "justify" @@ -1194,19 +1230,21 @@ attrGet _ = getLabelJustify attrSet _ = setLabelJustify attrConstruct _ = constructLabelJustify + attrClear _ = undefined -- VVV Prop "label" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getLabelLabel :: (MonadIO m, LabelK o) => o -> m T.Text -getLabelLabel obj = liftIO $ getObjectPropertyString obj "label" +getLabelLabel obj = liftIO $ checkUnexpectedNothing "getLabelLabel" $ getObjectPropertyString obj "label" setLabelLabel :: (MonadIO m, LabelK o) => o -> T.Text -> m () -setLabelLabel obj val = liftIO $ setObjectPropertyString obj "label" val +setLabelLabel obj val = liftIO $ setObjectPropertyString obj "label" (Just val) constructLabelLabel :: T.Text -> IO ([Char], GValue) -constructLabelLabel val = constructObjectPropertyString "label" val +constructLabelLabel val = constructObjectPropertyString "label" (Just val) data LabelLabelPropertyInfo instance AttrInfo LabelLabelPropertyInfo where @@ -1218,19 +1256,21 @@ attrGet _ = getLabelLabel attrSet _ = setLabelLabel attrConstruct _ = constructLabelLabel + attrClear _ = undefined -- VVV Prop "lines" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getLabelLines :: (MonadIO m, LabelK o) => o -> m Int32 -getLabelLines obj = liftIO $ getObjectPropertyCInt obj "lines" +getLabelLines obj = liftIO $ getObjectPropertyInt32 obj "lines" setLabelLines :: (MonadIO m, LabelK o) => o -> Int32 -> m () -setLabelLines obj val = liftIO $ setObjectPropertyCInt obj "lines" val +setLabelLines obj val = liftIO $ setObjectPropertyInt32 obj "lines" val constructLabelLines :: Int32 -> IO ([Char], GValue) -constructLabelLines val = constructObjectPropertyCInt "lines" val +constructLabelLines val = constructObjectPropertyInt32 "lines" val data LabelLinesPropertyInfo instance AttrInfo LabelLinesPropertyInfo where @@ -1242,19 +1282,21 @@ attrGet _ = getLabelLines attrSet _ = setLabelLines attrConstruct _ = constructLabelLines + attrClear _ = undefined -- VVV Prop "max-width-chars" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getLabelMaxWidthChars :: (MonadIO m, LabelK o) => o -> m Int32 -getLabelMaxWidthChars obj = liftIO $ getObjectPropertyCInt obj "max-width-chars" +getLabelMaxWidthChars obj = liftIO $ getObjectPropertyInt32 obj "max-width-chars" setLabelMaxWidthChars :: (MonadIO m, LabelK o) => o -> Int32 -> m () -setLabelMaxWidthChars obj val = liftIO $ setObjectPropertyCInt obj "max-width-chars" val +setLabelMaxWidthChars obj val = liftIO $ setObjectPropertyInt32 obj "max-width-chars" val constructLabelMaxWidthChars :: Int32 -> IO ([Char], GValue) -constructLabelMaxWidthChars val = constructObjectPropertyCInt "max-width-chars" val +constructLabelMaxWidthChars val = constructObjectPropertyInt32 "max-width-chars" val data LabelMaxWidthCharsPropertyInfo instance AttrInfo LabelMaxWidthCharsPropertyInfo where @@ -1266,13 +1308,15 @@ attrGet _ = getLabelMaxWidthChars attrSet _ = setLabelMaxWidthChars attrConstruct _ = constructLabelMaxWidthChars + attrClear _ = undefined -- VVV Prop "mnemonic-keyval" - -- Type: TBasicType TUInt32 + -- Type: TBasicType TUInt -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getLabelMnemonicKeyval :: (MonadIO m, LabelK o) => o -> m Word32 -getLabelMnemonicKeyval obj = liftIO $ getObjectPropertyCUInt obj "mnemonic-keyval" +getLabelMnemonicKeyval obj = liftIO $ getObjectPropertyUInt32 obj "mnemonic-keyval" data LabelMnemonicKeyvalPropertyInfo instance AttrInfo LabelMnemonicKeyvalPropertyInfo where @@ -1284,23 +1328,28 @@ attrGet _ = getLabelMnemonicKeyval attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "mnemonic-widget" -- Type: TInterface "Gtk" "Widget" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) getLabelMnemonicWidget :: (MonadIO m, LabelK o) => o -> m Widget -getLabelMnemonicWidget obj = liftIO $ getObjectPropertyObject obj "mnemonic-widget" Widget +getLabelMnemonicWidget obj = liftIO $ checkUnexpectedNothing "getLabelMnemonicWidget" $ getObjectPropertyObject obj "mnemonic-widget" Widget setLabelMnemonicWidget :: (MonadIO m, LabelK o, WidgetK a) => o -> a -> m () -setLabelMnemonicWidget obj val = liftIO $ setObjectPropertyObject obj "mnemonic-widget" val +setLabelMnemonicWidget obj val = liftIO $ setObjectPropertyObject obj "mnemonic-widget" (Just val) constructLabelMnemonicWidget :: (WidgetK a) => a -> IO ([Char], GValue) -constructLabelMnemonicWidget val = constructObjectPropertyObject "mnemonic-widget" val +constructLabelMnemonicWidget val = constructObjectPropertyObject "mnemonic-widget" (Just val) +clearLabelMnemonicWidget :: (MonadIO m, LabelK o) => o -> m () +clearLabelMnemonicWidget obj = liftIO $ setObjectPropertyObject obj "mnemonic-widget" (Nothing :: Maybe Widget) + data LabelMnemonicWidgetPropertyInfo instance AttrInfo LabelMnemonicWidgetPropertyInfo where - type AttrAllowedOps LabelMnemonicWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps LabelMnemonicWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint LabelMnemonicWidgetPropertyInfo = WidgetK type AttrBaseTypeConstraint LabelMnemonicWidgetPropertyInfo = LabelK type AttrGetType LabelMnemonicWidgetPropertyInfo = Widget @@ -1308,16 +1357,18 @@ attrGet _ = getLabelMnemonicWidget attrSet _ = setLabelMnemonicWidget attrConstruct _ = constructLabelMnemonicWidget + attrClear _ = clearLabelMnemonicWidget -- VVV Prop "pattern" -- Type: TBasicType TUTF8 -- Flags: [PropertyWritable] + -- Nullable: (Nothing,Just False) setLabelPattern :: (MonadIO m, LabelK o) => o -> T.Text -> m () -setLabelPattern obj val = liftIO $ setObjectPropertyString obj "pattern" val +setLabelPattern obj val = liftIO $ setObjectPropertyString obj "pattern" (Just val) constructLabelPattern :: T.Text -> IO ([Char], GValue) -constructLabelPattern val = constructObjectPropertyString "pattern" val +constructLabelPattern val = constructObjectPropertyString "pattern" (Just val) data LabelPatternPropertyInfo instance AttrInfo LabelPatternPropertyInfo where @@ -1329,10 +1380,12 @@ attrGet _ = undefined attrSet _ = setLabelPattern attrConstruct _ = constructLabelPattern + attrClear _ = undefined -- VVV Prop "selectable" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getLabelSelectable :: (MonadIO m, LabelK o) => o -> m Bool getLabelSelectable obj = liftIO $ getObjectPropertyBool obj "selectable" @@ -1353,13 +1406,15 @@ attrGet _ = getLabelSelectable attrSet _ = setLabelSelectable attrConstruct _ = constructLabelSelectable + attrClear _ = undefined -- VVV Prop "selection-bound" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) getLabelSelectionBound :: (MonadIO m, LabelK o) => o -> m Int32 -getLabelSelectionBound obj = liftIO $ getObjectPropertyCInt obj "selection-bound" +getLabelSelectionBound obj = liftIO $ getObjectPropertyInt32 obj "selection-bound" data LabelSelectionBoundPropertyInfo instance AttrInfo LabelSelectionBoundPropertyInfo where @@ -1371,10 +1426,12 @@ attrGet _ = getLabelSelectionBound attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "single-line-mode" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getLabelSingleLineMode :: (MonadIO m, LabelK o) => o -> m Bool getLabelSingleLineMode obj = liftIO $ getObjectPropertyBool obj "single-line-mode" @@ -1395,10 +1452,12 @@ attrGet _ = getLabelSingleLineMode attrSet _ = setLabelSingleLineMode attrConstruct _ = constructLabelSingleLineMode + attrClear _ = undefined -- VVV Prop "track-visited-links" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getLabelTrackVisitedLinks :: (MonadIO m, LabelK o) => o -> m Bool getLabelTrackVisitedLinks obj = liftIO $ getObjectPropertyBool obj "track-visited-links" @@ -1419,10 +1478,12 @@ attrGet _ = getLabelTrackVisitedLinks attrSet _ = setLabelTrackVisitedLinks attrConstruct _ = constructLabelTrackVisitedLinks + attrClear _ = undefined -- VVV Prop "use-markup" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getLabelUseMarkup :: (MonadIO m, LabelK o) => o -> m Bool getLabelUseMarkup obj = liftIO $ getObjectPropertyBool obj "use-markup" @@ -1443,10 +1504,12 @@ attrGet _ = getLabelUseMarkup attrSet _ = setLabelUseMarkup attrConstruct _ = constructLabelUseMarkup + attrClear _ = undefined -- VVV Prop "use-underline" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getLabelUseUnderline :: (MonadIO m, LabelK o) => o -> m Bool getLabelUseUnderline obj = liftIO $ getObjectPropertyBool obj "use-underline" @@ -1467,19 +1530,21 @@ attrGet _ = getLabelUseUnderline attrSet _ = setLabelUseUnderline attrConstruct _ = constructLabelUseUnderline + attrClear _ = undefined -- VVV Prop "width-chars" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getLabelWidthChars :: (MonadIO m, LabelK o) => o -> m Int32 -getLabelWidthChars obj = liftIO $ getObjectPropertyCInt obj "width-chars" +getLabelWidthChars obj = liftIO $ getObjectPropertyInt32 obj "width-chars" setLabelWidthChars :: (MonadIO m, LabelK o) => o -> Int32 -> m () -setLabelWidthChars obj val = liftIO $ setObjectPropertyCInt obj "width-chars" val +setLabelWidthChars obj val = liftIO $ setObjectPropertyInt32 obj "width-chars" val constructLabelWidthChars :: Int32 -> IO ([Char], GValue) -constructLabelWidthChars val = constructObjectPropertyCInt "width-chars" val +constructLabelWidthChars val = constructObjectPropertyInt32 "width-chars" val data LabelWidthCharsPropertyInfo instance AttrInfo LabelWidthCharsPropertyInfo where @@ -1491,10 +1556,12 @@ attrGet _ = getLabelWidthChars attrSet _ = setLabelWidthChars attrConstruct _ = constructLabelWidthChars + attrClear _ = undefined -- VVV Prop "wrap" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getLabelWrap :: (MonadIO m, LabelK o) => o -> m Bool getLabelWrap obj = liftIO $ getObjectPropertyBool obj "wrap" @@ -1515,10 +1582,12 @@ attrGet _ = getLabelWrap attrSet _ = setLabelWrap attrConstruct _ = constructLabelWrap + attrClear _ = undefined -- VVV Prop "wrap-mode" -- Type: TInterface "Pango" "WrapMode" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getLabelWrapMode :: (MonadIO m, LabelK o) => o -> m Pango.WrapMode getLabelWrapMode obj = liftIO $ getObjectPropertyEnum obj "wrap-mode" @@ -1539,10 +1608,12 @@ attrGet _ = getLabelWrapMode attrSet _ = setLabelWrapMode attrConstruct _ = constructLabelWrapMode + attrClear _ = undefined -- VVV Prop "xalign" -- Type: TBasicType TFloat -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getLabelXalign :: (MonadIO m, LabelK o) => o -> m Float getLabelXalign obj = liftIO $ getObjectPropertyFloat obj "xalign" @@ -1563,10 +1634,12 @@ attrGet _ = getLabelXalign attrSet _ = setLabelXalign attrConstruct _ = constructLabelXalign + attrClear _ = undefined -- VVV Prop "yalign" -- Type: TBasicType TFloat -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getLabelYalign :: (MonadIO m, LabelK o) => o -> m Float getLabelYalign obj = liftIO $ getObjectPropertyFloat obj "yalign" @@ -1587,10 +1660,77 @@ attrGet _ = getLabelYalign attrSet _ = setLabelYalign attrConstruct _ = constructLabelYalign + attrClear _ = undefined type instance AttributeList Label = LabelAttributeList type LabelAttributeList = ('[ '("angle", LabelAnglePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("attributes", LabelAttributesPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("cursorPosition", LabelCursorPositionPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("ellipsize", LabelEllipsizePropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("justify", LabelJustifyPropertyInfo), '("label", LabelLabelPropertyInfo), '("lines", LabelLinesPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("maxWidthChars", LabelMaxWidthCharsPropertyInfo), '("mnemonicKeyval", LabelMnemonicKeyvalPropertyInfo), '("mnemonicWidget", LabelMnemonicWidgetPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("pattern", LabelPatternPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("selectable", LabelSelectablePropertyInfo), '("selectionBound", LabelSelectionBoundPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("singleLineMode", LabelSingleLineModePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("trackVisitedLinks", LabelTrackVisitedLinksPropertyInfo), '("useMarkup", LabelUseMarkupPropertyInfo), '("useUnderline", LabelUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthChars", LabelWidthCharsPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("wrap", LabelWrapPropertyInfo), '("wrapMode", LabelWrapModePropertyInfo), '("xpad", MiscXpadPropertyInfo), '("ypad", MiscYpadPropertyInfo)] :: [(Symbol, *)]) +labelAngle :: AttrLabelProxy "angle" +labelAngle = AttrLabelProxy + +labelAttributes :: AttrLabelProxy "attributes" +labelAttributes = AttrLabelProxy + +labelCursorPosition :: AttrLabelProxy "cursorPosition" +labelCursorPosition = AttrLabelProxy + +labelEllipsize :: AttrLabelProxy "ellipsize" +labelEllipsize = AttrLabelProxy + +labelJustify :: AttrLabelProxy "justify" +labelJustify = AttrLabelProxy + +labelLabel :: AttrLabelProxy "label" +labelLabel = AttrLabelProxy + +labelLines :: AttrLabelProxy "lines" +labelLines = AttrLabelProxy + +labelMaxWidthChars :: AttrLabelProxy "maxWidthChars" +labelMaxWidthChars = AttrLabelProxy + +labelMnemonicKeyval :: AttrLabelProxy "mnemonicKeyval" +labelMnemonicKeyval = AttrLabelProxy + +labelMnemonicWidget :: AttrLabelProxy "mnemonicWidget" +labelMnemonicWidget = AttrLabelProxy + +labelPattern :: AttrLabelProxy "pattern" +labelPattern = AttrLabelProxy + +labelSelectable :: AttrLabelProxy "selectable" +labelSelectable = AttrLabelProxy + +labelSelectionBound :: AttrLabelProxy "selectionBound" +labelSelectionBound = AttrLabelProxy + +labelSingleLineMode :: AttrLabelProxy "singleLineMode" +labelSingleLineMode = AttrLabelProxy + +labelTrackVisitedLinks :: AttrLabelProxy "trackVisitedLinks" +labelTrackVisitedLinks = AttrLabelProxy + +labelUseMarkup :: AttrLabelProxy "useMarkup" +labelUseMarkup = AttrLabelProxy + +labelUseUnderline :: AttrLabelProxy "useUnderline" +labelUseUnderline = AttrLabelProxy + +labelWidthChars :: AttrLabelProxy "widthChars" +labelWidthChars = AttrLabelProxy + +labelWrap :: AttrLabelProxy "wrap" +labelWrap = AttrLabelProxy + +labelWrapMode :: AttrLabelProxy "wrapMode" +labelWrapMode = AttrLabelProxy + +labelXalign :: AttrLabelProxy "xalign" +labelXalign = AttrLabelProxy + +labelYalign :: AttrLabelProxy "yalign" +labelYalign = AttrLabelProxy + data LabelActivateCurrentLinkSignalInfo instance SignalInfo LabelActivateCurrentLinkSignalInfo where type HaskellCallbackType LabelActivateCurrentLinkSignalInfo = LabelActivateCurrentLinkCallback @@ -1623,7 +1763,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Label" +-- returnType : Just (TInterface "Gtk" "Label") -- throws : False -- Skip return : False @@ -1652,7 +1792,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Label" +-- returnType : Just (TInterface "Gtk" "Label") -- throws : False -- Skip return : False @@ -1681,7 +1821,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -1709,7 +1849,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Pango" "AttrList" +-- returnType : Just (TInterface "Pango" "AttrList") -- throws : False -- Skip return : False @@ -1738,7 +1878,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1767,7 +1907,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Pango" "EllipsizeMode" +-- returnType : Just (TInterface "Pango" "EllipsizeMode") -- throws : False -- Skip return : False @@ -1795,7 +1935,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Justification" +-- returnType : Just (TInterface "Gtk" "Justification") -- throws : False -- Skip return : False @@ -1823,7 +1963,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1852,7 +1992,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Pango" "Layout" +-- returnType : Just (TInterface "Pango" "Layout") -- throws : False -- Skip return : False @@ -1879,16 +2019,16 @@ -- method Label::get_layout_offsets -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_label_get_layout_offsets" gtk_label_get_layout_offsets :: Ptr Label -> -- _obj : TInterface "Gtk" "Label" - Ptr Int32 -> -- x : TBasicType TInt32 - Ptr Int32 -> -- y : TBasicType TInt32 + Ptr Int32 -> -- x : TBasicType TInt + Ptr Int32 -> -- y : TBasicType TInt IO () @@ -1916,7 +2056,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1944,7 +2084,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Pango" "WrapMode" +-- returnType : Just (TInterface "Pango" "WrapMode") -- throws : False -- Skip return : False @@ -1972,7 +2112,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1999,7 +2139,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -2026,7 +2166,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt32 +-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -2053,7 +2193,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -2082,7 +2222,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2108,16 +2248,16 @@ -- method Label::get_selection_bounds -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "end", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "end", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_label_get_selection_bounds" gtk_label_get_selection_bounds :: Ptr Label -> -- _obj : TInterface "Gtk" "Label" - Ptr Int32 -> -- start : TBasicType TInt32 - Ptr Int32 -> -- end : TBasicType TInt32 + Ptr Int32 -> -- start : TBasicType TInt + Ptr Int32 -> -- end : TBasicType TInt IO CInt @@ -2146,7 +2286,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2174,7 +2314,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -2203,7 +2343,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2231,7 +2371,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2259,7 +2399,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2287,7 +2427,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -2314,7 +2454,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TFloat +-- returnType : Just (TBasicType TFloat) -- throws : False -- Skip return : False @@ -2342,7 +2482,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TFloat +-- returnType : Just (TBasicType TFloat) -- throws : False -- Skip return : False @@ -2368,16 +2508,16 @@ -- method Label::select_region -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_offset", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end_offset", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_label_select_region" gtk_label_select_region :: Ptr Label -> -- _obj : TInterface "Gtk" "Label" - Int32 -> -- start_offset : TBasicType TInt32 - Int32 -> -- end_offset : TBasicType TInt32 + Int32 -> -- start_offset : TBasicType TInt + Int32 -> -- end_offset : TBasicType TInt IO () @@ -2401,7 +2541,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "angle", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2431,7 +2571,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attrs", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2466,7 +2606,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mode", argType = TInterface "Pango" "EllipsizeMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2496,7 +2636,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "jtype", argType = TInterface "Gtk" "Justification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2526,7 +2666,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2557,7 +2697,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wrap", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2587,7 +2727,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wrap_mode", argType = TInterface "Pango" "WrapMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2615,15 +2755,15 @@ -- method Label::set_lines -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lines", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lines", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_label_set_lines" gtk_label_set_lines :: Ptr Label -> -- _obj : TInterface "Gtk" "Label" - Int32 -> -- lines : TBasicType TInt32 + Int32 -> -- lines : TBasicType TInt IO () @@ -2646,7 +2786,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2677,7 +2817,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2706,15 +2846,15 @@ -- method Label::set_max_width_chars -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_label_set_max_width_chars" gtk_label_set_max_width_chars :: Ptr Label -> -- _obj : TInterface "Gtk" "Label" - Int32 -> -- n_chars : TBasicType TInt32 + Int32 -> -- n_chars : TBasicType TInt IO () @@ -2737,7 +2877,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2772,7 +2912,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2803,7 +2943,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2833,7 +2973,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "single_line_mode", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2863,7 +3003,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2894,7 +3034,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2925,7 +3065,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "track_links", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2955,7 +3095,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2985,7 +3125,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3013,15 +3153,15 @@ -- method Label::set_width_chars -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_chars", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_label_set_width_chars" gtk_label_set_width_chars :: Ptr Label -> -- _obj : TInterface "Gtk" "Label" - Int32 -> -- n_chars : TBasicType TInt32 + Int32 -> -- n_chars : TBasicType TInt IO () @@ -3044,7 +3184,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3074,7 +3214,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/Label.hs-boot b/GI/Gtk/Objects/Label.hs-boot --- a/GI/Gtk/Objects/Label.hs-boot +++ b/GI/Gtk/Objects/Label.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.Label where -import Prelude () 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 diff --git a/GI/Gtk/Objects/LabelAccessible.hs b/GI/Gtk/Objects/LabelAccessible.hs --- a/GI/Gtk/Objects/LabelAccessible.hs +++ b/GI/Gtk/Objects/LabelAccessible.hs @@ -18,9 +18,9 @@ ) where -import Prelude () 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 diff --git a/GI/Gtk/Objects/LabelAccessible.hs-boot b/GI/Gtk/Objects/LabelAccessible.hs-boot --- a/GI/Gtk/Objects/LabelAccessible.hs-boot +++ b/GI/Gtk/Objects/LabelAccessible.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.LabelAccessible where -import Prelude () 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 diff --git a/GI/Gtk/Objects/Layout.hs b/GI/Gtk/Objects/Layout.hs --- a/GI/Gtk/Objects/Layout.hs +++ b/GI/Gtk/Objects/Layout.hs @@ -73,6 +73,7 @@ LayoutHeightPropertyInfo , constructLayoutHeight , getLayoutHeight , + layoutHeight , setLayoutHeight , @@ -80,6 +81,7 @@ LayoutWidthPropertyInfo , constructLayoutWidth , getLayoutWidth , + layoutWidth , setLayoutWidth , @@ -87,9 +89,9 @@ ) where -import Prelude () 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 @@ -454,17 +456,18 @@ #endif -- VVV Prop "height" - -- Type: TBasicType TUInt32 + -- Type: TBasicType TUInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getLayoutHeight :: (MonadIO m, LayoutK o) => o -> m Word32 -getLayoutHeight obj = liftIO $ getObjectPropertyCUInt obj "height" +getLayoutHeight obj = liftIO $ getObjectPropertyUInt32 obj "height" setLayoutHeight :: (MonadIO m, LayoutK o) => o -> Word32 -> m () -setLayoutHeight obj val = liftIO $ setObjectPropertyCUInt obj "height" val +setLayoutHeight obj val = liftIO $ setObjectPropertyUInt32 obj "height" val constructLayoutHeight :: Word32 -> IO ([Char], GValue) -constructLayoutHeight val = constructObjectPropertyCUInt "height" val +constructLayoutHeight val = constructObjectPropertyUInt32 "height" val data LayoutHeightPropertyInfo instance AttrInfo LayoutHeightPropertyInfo where @@ -476,19 +479,21 @@ attrGet _ = getLayoutHeight attrSet _ = setLayoutHeight attrConstruct _ = constructLayoutHeight + attrClear _ = undefined -- VVV Prop "width" - -- Type: TBasicType TUInt32 + -- Type: TBasicType TUInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getLayoutWidth :: (MonadIO m, LayoutK o) => o -> m Word32 -getLayoutWidth obj = liftIO $ getObjectPropertyCUInt obj "width" +getLayoutWidth obj = liftIO $ getObjectPropertyUInt32 obj "width" setLayoutWidth :: (MonadIO m, LayoutK o) => o -> Word32 -> m () -setLayoutWidth obj val = liftIO $ setObjectPropertyCUInt obj "width" val +setLayoutWidth obj val = liftIO $ setObjectPropertyUInt32 obj "width" val constructLayoutWidth :: Word32 -> IO ([Char], GValue) -constructLayoutWidth val = constructObjectPropertyCUInt "width" val +constructLayoutWidth val = constructObjectPropertyUInt32 "width" val data LayoutWidthPropertyInfo instance AttrInfo LayoutWidthPropertyInfo where @@ -500,10 +505,17 @@ attrGet _ = getLayoutWidth attrSet _ = setLayoutWidth attrConstruct _ = constructLayoutWidth + attrClear _ = undefined type instance AttributeList Layout = LayoutAttributeList type LayoutAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("hadjustment", ScrollableHadjustmentPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("height", LayoutHeightPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hscrollPolicy", ScrollableHscrollPolicyPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("vadjustment", ScrollableVadjustmentPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("vscrollPolicy", ScrollableVscrollPolicyPropertyInfo), '("width", LayoutWidthPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +layoutHeight :: AttrLabelProxy "height" +layoutHeight = AttrLabelProxy + +layoutWidth :: AttrLabelProxy "width" +layoutWidth = AttrLabelProxy + type instance SignalList Layout = LayoutSignalList type LayoutSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -511,7 +523,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "hadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "vadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Layout" +-- returnType : Just (TInterface "Gtk" "Layout") -- throws : False -- Skip return : False @@ -548,7 +560,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gdk" "Window" +-- returnType : Just (TInterface "Gdk" "Window") -- throws : False -- Skip return : False @@ -577,7 +589,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Adjustment" +-- returnType : Just (TInterface "Gtk" "Adjustment") -- throws : False -- Skip return : False @@ -604,16 +616,16 @@ -- method Layout::get_size -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Layout", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_layout_get_size" gtk_layout_get_size :: Ptr Layout -> -- _obj : TInterface "Gtk" "Layout" - Ptr Word32 -> -- width : TBasicType TUInt32 - Ptr Word32 -> -- height : TBasicType TUInt32 + Ptr Word32 -> -- width : TBasicType TUInt + Ptr Word32 -> -- height : TBasicType TUInt IO () @@ -641,7 +653,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Adjustment" +-- returnType : Just (TInterface "Gtk" "Adjustment") -- throws : False -- Skip return : False @@ -668,17 +680,17 @@ -- method Layout::move -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child_widget", argType = TInterface "Gtk" "Widget", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_layout_move" gtk_layout_move :: Ptr Layout -> -- _obj : TInterface "Gtk" "Layout" Ptr Widget -> -- child_widget : TInterface "Gtk" "Widget" - Int32 -> -- x : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 + Int32 -> -- x : TBasicType TInt + Int32 -> -- y : TBasicType TInt IO () @@ -703,17 +715,17 @@ -- method Layout::put -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child_widget", argType = TInterface "Gtk" "Widget", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_layout_put" gtk_layout_put :: Ptr Layout -> -- _obj : TInterface "Gtk" "Layout" Ptr Widget -> -- child_widget : TInterface "Gtk" "Widget" - Int32 -> -- x : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 + Int32 -> -- x : TBasicType TInt + Int32 -> -- y : TBasicType TInt IO () @@ -740,7 +752,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -773,16 +785,16 @@ -- method Layout::set_size -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_layout_set_size" gtk_layout_set_size :: Ptr Layout -> -- _obj : TInterface "Gtk" "Layout" - Word32 -> -- width : TBasicType TUInt32 - Word32 -> -- height : TBasicType TUInt32 + Word32 -> -- width : TBasicType TUInt + Word32 -> -- height : TBasicType TUInt IO () @@ -806,7 +818,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/Layout.hs-boot b/GI/Gtk/Objects/Layout.hs-boot --- a/GI/Gtk/Objects/Layout.hs-boot +++ b/GI/Gtk/Objects/Layout.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.Layout where -import Prelude () 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 diff --git a/GI/Gtk/Objects/LevelBar.hs b/GI/Gtk/Objects/LevelBar.hs --- a/GI/Gtk/Objects/LevelBar.hs +++ b/GI/Gtk/Objects/LevelBar.hs @@ -97,6 +97,7 @@ LevelBarInvertedPropertyInfo , constructLevelBarInverted , getLevelBarInverted , + levelBarInverted , setLevelBarInverted , @@ -104,6 +105,7 @@ LevelBarMaxValuePropertyInfo , constructLevelBarMaxValue , getLevelBarMaxValue , + levelBarMaxValue , setLevelBarMaxValue , @@ -111,6 +113,7 @@ LevelBarMinValuePropertyInfo , constructLevelBarMinValue , getLevelBarMinValue , + levelBarMinValue , setLevelBarMinValue , @@ -118,6 +121,7 @@ LevelBarModePropertyInfo , constructLevelBarMode , getLevelBarMode , + levelBarMode , setLevelBarMode , @@ -125,6 +129,7 @@ LevelBarValuePropertyInfo , constructLevelBarValue , getLevelBarValue , + levelBarValue , setLevelBarValue , @@ -147,9 +152,9 @@ ) where -import Prelude () 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 @@ -536,6 +541,7 @@ -- VVV Prop "inverted" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getLevelBarInverted :: (MonadIO m, LevelBarK o) => o -> m Bool getLevelBarInverted obj = liftIO $ getObjectPropertyBool obj "inverted" @@ -556,10 +562,12 @@ attrGet _ = getLevelBarInverted attrSet _ = setLevelBarInverted attrConstruct _ = constructLevelBarInverted + attrClear _ = undefined -- VVV Prop "max-value" -- Type: TBasicType TDouble -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getLevelBarMaxValue :: (MonadIO m, LevelBarK o) => o -> m Double getLevelBarMaxValue obj = liftIO $ getObjectPropertyDouble obj "max-value" @@ -580,10 +588,12 @@ attrGet _ = getLevelBarMaxValue attrSet _ = setLevelBarMaxValue attrConstruct _ = constructLevelBarMaxValue + attrClear _ = undefined -- VVV Prop "min-value" -- Type: TBasicType TDouble -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getLevelBarMinValue :: (MonadIO m, LevelBarK o) => o -> m Double getLevelBarMinValue obj = liftIO $ getObjectPropertyDouble obj "min-value" @@ -604,10 +614,12 @@ attrGet _ = getLevelBarMinValue attrSet _ = setLevelBarMinValue attrConstruct _ = constructLevelBarMinValue + attrClear _ = undefined -- VVV Prop "mode" -- Type: TInterface "Gtk" "LevelBarMode" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getLevelBarMode :: (MonadIO m, LevelBarK o) => o -> m LevelBarMode getLevelBarMode obj = liftIO $ getObjectPropertyEnum obj "mode" @@ -628,10 +640,12 @@ attrGet _ = getLevelBarMode attrSet _ = setLevelBarMode attrConstruct _ = constructLevelBarMode + attrClear _ = undefined -- VVV Prop "value" -- Type: TBasicType TDouble -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getLevelBarValue :: (MonadIO m, LevelBarK o) => o -> m Double getLevelBarValue obj = liftIO $ getObjectPropertyDouble obj "value" @@ -652,10 +666,26 @@ attrGet _ = getLevelBarValue attrSet _ = setLevelBarValue attrConstruct _ = constructLevelBarValue + attrClear _ = undefined type instance AttributeList LevelBar = LevelBarAttributeList type LevelBarAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("inverted", LevelBarInvertedPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("maxValue", LevelBarMaxValuePropertyInfo), '("minValue", LevelBarMinValuePropertyInfo), '("mode", LevelBarModePropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("value", LevelBarValuePropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +levelBarInverted :: AttrLabelProxy "inverted" +levelBarInverted = AttrLabelProxy + +levelBarMaxValue :: AttrLabelProxy "maxValue" +levelBarMaxValue = AttrLabelProxy + +levelBarMinValue :: AttrLabelProxy "minValue" +levelBarMinValue = AttrLabelProxy + +levelBarMode :: AttrLabelProxy "mode" +levelBarMode = AttrLabelProxy + +levelBarValue :: AttrLabelProxy "value" +levelBarValue = AttrLabelProxy + data LevelBarOffsetChangedSignalInfo instance SignalInfo LevelBarOffsetChangedSignalInfo where type HaskellCallbackType LevelBarOffsetChangedSignalInfo = LevelBarOffsetChangedCallback @@ -668,7 +698,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "LevelBar" +-- returnType : Just (TInterface "Gtk" "LevelBar") -- throws : False -- Skip return : False @@ -689,7 +719,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "min_value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max_value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "LevelBar" +-- returnType : Just (TInterface "Gtk" "LevelBar") -- throws : False -- Skip return : False @@ -716,7 +746,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LevelBar", 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 = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -750,7 +780,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -778,7 +808,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -806,7 +836,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -834,7 +864,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "LevelBarMode" +-- returnType : Just (TInterface "Gtk" "LevelBarMode") -- throws : False -- Skip return : False @@ -862,7 +892,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LevelBar", 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},Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -903,7 +933,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -931,7 +961,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LevelBar", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -966,7 +996,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "inverted", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -996,7 +1026,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1026,7 +1056,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1056,7 +1086,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mode", argType = TInterface "Gtk" "LevelBarMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1086,7 +1116,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/LevelBar.hs-boot b/GI/Gtk/Objects/LevelBar.hs-boot --- a/GI/Gtk/Objects/LevelBar.hs-boot +++ b/GI/Gtk/Objects/LevelBar.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.LevelBar where -import Prelude () 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 diff --git a/GI/Gtk/Objects/LevelBarAccessible.hs b/GI/Gtk/Objects/LevelBarAccessible.hs --- a/GI/Gtk/Objects/LevelBarAccessible.hs +++ b/GI/Gtk/Objects/LevelBarAccessible.hs @@ -18,9 +18,9 @@ ) where -import Prelude () 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 diff --git a/GI/Gtk/Objects/LevelBarAccessible.hs-boot b/GI/Gtk/Objects/LevelBarAccessible.hs-boot --- a/GI/Gtk/Objects/LevelBarAccessible.hs-boot +++ b/GI/Gtk/Objects/LevelBarAccessible.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.LevelBarAccessible where -import Prelude () 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 diff --git a/GI/Gtk/Objects/LinkButton.hs b/GI/Gtk/Objects/LinkButton.hs --- a/GI/Gtk/Objects/LinkButton.hs +++ b/GI/Gtk/Objects/LinkButton.hs @@ -52,6 +52,7 @@ LinkButtonUriPropertyInfo , constructLinkButtonUri , getLinkButtonUri , + linkButtonUri , setLinkButtonUri , @@ -59,6 +60,7 @@ LinkButtonVisitedPropertyInfo , constructLinkButtonVisited , getLinkButtonVisited , + linkButtonVisited , setLinkButtonVisited , @@ -81,9 +83,9 @@ ) where -import Prelude () 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 @@ -519,15 +521,16 @@ -- VVV Prop "uri" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getLinkButtonUri :: (MonadIO m, LinkButtonK o) => o -> m T.Text -getLinkButtonUri obj = liftIO $ getObjectPropertyString obj "uri" +getLinkButtonUri obj = liftIO $ checkUnexpectedNothing "getLinkButtonUri" $ getObjectPropertyString obj "uri" setLinkButtonUri :: (MonadIO m, LinkButtonK o) => o -> T.Text -> m () -setLinkButtonUri obj val = liftIO $ setObjectPropertyString obj "uri" val +setLinkButtonUri obj val = liftIO $ setObjectPropertyString obj "uri" (Just val) constructLinkButtonUri :: T.Text -> IO ([Char], GValue) -constructLinkButtonUri val = constructObjectPropertyString "uri" val +constructLinkButtonUri val = constructObjectPropertyString "uri" (Just val) data LinkButtonUriPropertyInfo instance AttrInfo LinkButtonUriPropertyInfo where @@ -539,10 +542,12 @@ attrGet _ = getLinkButtonUri attrSet _ = setLinkButtonUri attrConstruct _ = constructLinkButtonUri + attrClear _ = undefined -- VVV Prop "visited" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getLinkButtonVisited :: (MonadIO m, LinkButtonK o) => o -> m Bool getLinkButtonVisited obj = liftIO $ getObjectPropertyBool obj "visited" @@ -563,10 +568,17 @@ attrGet _ = getLinkButtonVisited attrSet _ = setLinkButtonVisited attrConstruct _ = constructLinkButtonVisited + attrClear _ = undefined type instance AttributeList LinkButton = LinkButtonAttributeList type LinkButtonAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("alwaysShowImage", ButtonAlwaysShowImagePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnClick", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("image", ButtonImagePropertyInfo), '("imagePosition", ButtonImagePositionPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("uri", LinkButtonUriPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useStock", ButtonUseStockPropertyInfo), '("useUnderline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visited", LinkButtonVisitedPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) +linkButtonUri :: AttrLabelProxy "uri" +linkButtonUri = AttrLabelProxy + +linkButtonVisited :: AttrLabelProxy "visited" +linkButtonVisited = AttrLabelProxy + data LinkButtonActivateLinkSignalInfo instance SignalInfo LinkButtonActivateLinkSignalInfo where type HaskellCallbackType LinkButtonActivateLinkSignalInfo = LinkButtonActivateLinkCallback @@ -579,7 +591,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "LinkButton" +-- returnType : Just (TInterface "Gtk" "LinkButton") -- throws : False -- Skip return : False @@ -604,7 +616,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "LinkButton" +-- returnType : Just (TInterface "Gtk" "LinkButton") -- throws : False -- Skip return : False @@ -637,7 +649,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LinkButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -666,7 +678,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LinkButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -694,7 +706,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LinkButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -725,7 +737,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LinkButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visited", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/LinkButton.hs-boot b/GI/Gtk/Objects/LinkButton.hs-boot --- a/GI/Gtk/Objects/LinkButton.hs-boot +++ b/GI/Gtk/Objects/LinkButton.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.LinkButton where -import Prelude () 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 diff --git a/GI/Gtk/Objects/LinkButtonAccessible.hs b/GI/Gtk/Objects/LinkButtonAccessible.hs --- a/GI/Gtk/Objects/LinkButtonAccessible.hs +++ b/GI/Gtk/Objects/LinkButtonAccessible.hs @@ -18,9 +18,9 @@ ) where -import Prelude () 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 diff --git a/GI/Gtk/Objects/LinkButtonAccessible.hs-boot b/GI/Gtk/Objects/LinkButtonAccessible.hs-boot --- a/GI/Gtk/Objects/LinkButtonAccessible.hs-boot +++ b/GI/Gtk/Objects/LinkButtonAccessible.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.LinkButtonAccessible where -import Prelude () 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 diff --git a/GI/Gtk/Objects/ListBox.hs b/GI/Gtk/Objects/ListBox.hs --- a/GI/Gtk/Objects/ListBox.hs +++ b/GI/Gtk/Objects/ListBox.hs @@ -163,6 +163,7 @@ ListBoxActivateOnSingleClickPropertyInfo, constructListBoxActivateOnSingleClick , getListBoxActivateOnSingleClick , + listBoxActivateOnSingleClick , setListBoxActivateOnSingleClick , @@ -170,6 +171,7 @@ ListBoxSelectionModePropertyInfo , constructListBoxSelectionMode , getListBoxSelectionMode , + listBoxSelectionMode , setListBoxSelectionMode , @@ -276,9 +278,9 @@ ) where -import Prelude () 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 @@ -987,6 +989,7 @@ -- VVV Prop "activate-on-single-click" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getListBoxActivateOnSingleClick :: (MonadIO m, ListBoxK o) => o -> m Bool getListBoxActivateOnSingleClick obj = liftIO $ getObjectPropertyBool obj "activate-on-single-click" @@ -1007,10 +1010,12 @@ attrGet _ = getListBoxActivateOnSingleClick attrSet _ = setListBoxActivateOnSingleClick attrConstruct _ = constructListBoxActivateOnSingleClick + attrClear _ = undefined -- VVV Prop "selection-mode" -- Type: TInterface "Gtk" "SelectionMode" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getListBoxSelectionMode :: (MonadIO m, ListBoxK o) => o -> m SelectionMode getListBoxSelectionMode obj = liftIO $ getObjectPropertyEnum obj "selection-mode" @@ -1031,10 +1036,17 @@ attrGet _ = getListBoxSelectionMode attrSet _ = setListBoxSelectionMode attrConstruct _ = constructListBoxSelectionMode + attrClear _ = undefined type instance AttributeList ListBox = ListBoxAttributeList type ListBoxAttributeList = ('[ '("activateOnSingleClick", ListBoxActivateOnSingleClickPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("selectionMode", ListBoxSelectionModePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +listBoxActivateOnSingleClick :: AttrLabelProxy "activateOnSingleClick" +listBoxActivateOnSingleClick = AttrLabelProxy + +listBoxSelectionMode :: AttrLabelProxy "selectionMode" +listBoxSelectionMode = AttrLabelProxy + data ListBoxActivateCursorRowSignalInfo instance SignalInfo ListBoxActivateCursorRowSignalInfo where type HaskellCallbackType ListBoxActivateCursorRowSignalInfo = ListBoxActivateCursorRowCallback @@ -1082,7 +1094,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "ListBox" +-- returnType : Just (TInterface "Gtk" "ListBox") -- throws : False -- Skip return : False @@ -1101,9 +1113,9 @@ -- method ListBox::bind_model -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "model", argType = TInterface "Gio" "ListModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "create_widget_func", argType = TInterface "Gtk" "ListBoxCreateWidgetFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data_free_func", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "model", argType = TInterface "Gio" "ListModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "create_widget_func", argType = TInterface "Gtk" "ListBoxCreateWidgetFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, 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},Arg {argCName = "user_data_free_func", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1111,7 +1123,7 @@ Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox" Ptr Gio.ListModel -> -- model : TInterface "Gio" "ListModel" FunPtr ListBoxCreateWidgetFuncC -> -- create_widget_func : TInterface "Gtk" "ListBoxCreateWidgetFunc" - Ptr () -> -- user_data : TBasicType TVoid + Ptr () -> -- user_data : TBasicType TPtr FunPtr GLib.DestroyNotifyC -> -- user_data_free_func : TInterface "GLib" "DestroyNotify" IO () @@ -1149,7 +1161,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1180,7 +1192,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1207,7 +1219,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1235,7 +1247,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Adjustment" +-- returnType : Just (TInterface "Gtk" "Adjustment") -- throws : False -- Skip return : False @@ -1262,46 +1274,47 @@ -- method ListBox::get_row_at_index -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "ListBoxRow" +-- returnType : Just (TInterface "Gtk" "ListBoxRow") -- throws : False -- Skip return : False foreign import ccall "gtk_list_box_get_row_at_index" gtk_list_box_get_row_at_index :: Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox" - Int32 -> -- index_ : TBasicType TInt32 + Int32 -> -- index_ : TBasicType TInt IO (Ptr ListBoxRow) listBoxGetRowAtIndex :: (MonadIO m, ListBoxK a) => a -- _obj - -> Int32 -- index - -> m ListBoxRow -- result -listBoxGetRowAtIndex _obj index = liftIO $ do + -> Int32 -- index_ + -> m (Maybe ListBoxRow) -- result +listBoxGetRowAtIndex _obj index_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_list_box_get_row_at_index _obj' index - checkUnexpectedReturnNULL "gtk_list_box_get_row_at_index" result - result' <- (newObject ListBoxRow) result + result <- gtk_list_box_get_row_at_index _obj' index_ + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (newObject ListBoxRow) result' + return result'' touchManagedPtr _obj - return result' + return maybeResult data ListBoxGetRowAtIndexMethodInfo -instance (signature ~ (Int32 -> m ListBoxRow), MonadIO m, ListBoxK a) => MethodInfo ListBoxGetRowAtIndexMethodInfo a signature where +instance (signature ~ (Int32 -> m (Maybe ListBoxRow)), MonadIO m, ListBoxK a) => MethodInfo ListBoxGetRowAtIndexMethodInfo a signature where overloadedMethod _ = listBoxGetRowAtIndex -- method ListBox::get_row_at_y -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", 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 : TInterface "Gtk" "ListBoxRow" +-- returnType : Just (TInterface "Gtk" "ListBoxRow") -- throws : False -- Skip return : False foreign import ccall "gtk_list_box_get_row_at_y" gtk_list_box_get_row_at_y :: Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox" - Int32 -> -- y : TBasicType TInt32 + Int32 -> -- y : TBasicType TInt IO (Ptr ListBoxRow) @@ -1309,24 +1322,25 @@ (MonadIO m, ListBoxK a) => a -- _obj -> Int32 -- y - -> m ListBoxRow -- result + -> m (Maybe ListBoxRow) -- result listBoxGetRowAtY _obj y = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_list_box_get_row_at_y _obj' y - checkUnexpectedReturnNULL "gtk_list_box_get_row_at_y" result - result' <- (newObject ListBoxRow) result + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (newObject ListBoxRow) result' + return result'' touchManagedPtr _obj - return result' + return maybeResult data ListBoxGetRowAtYMethodInfo -instance (signature ~ (Int32 -> m ListBoxRow), MonadIO m, ListBoxK a) => MethodInfo ListBoxGetRowAtYMethodInfo a signature where +instance (signature ~ (Int32 -> m (Maybe ListBoxRow)), MonadIO m, ListBoxK a) => MethodInfo ListBoxGetRowAtYMethodInfo a signature where overloadedMethod _ = listBoxGetRowAtY -- method ListBox::get_selected_row -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "ListBoxRow" +-- returnType : Just (TInterface "Gtk" "ListBoxRow") -- throws : False -- Skip return : False @@ -1355,7 +1369,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TGList (TInterface "Gtk" "ListBoxRow") +-- returnType : Just (TGList (TInterface "Gtk" "ListBoxRow")) -- throws : False -- Skip return : False @@ -1371,7 +1385,6 @@ listBoxGetSelectedRows _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_list_box_get_selected_rows _obj' - checkUnexpectedReturnNULL "gtk_list_box_get_selected_rows" result result' <- unpackGList result result'' <- mapM (newObject ListBoxRow) result' g_list_free result @@ -1386,7 +1399,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "SelectionMode" +-- returnType : Just (TInterface "Gtk" "SelectionMode") -- throws : False -- Skip return : False @@ -1412,16 +1425,16 @@ -- method ListBox::insert -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_list_box_insert" gtk_list_box_insert :: Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox" Ptr Widget -> -- child : TInterface "Gtk" "Widget" - Int32 -> -- position : TBasicType TInt32 + Int32 -> -- position : TBasicType TInt IO () @@ -1447,7 +1460,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1474,7 +1487,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1501,7 +1514,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1528,7 +1541,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1559,7 +1572,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1586,7 +1599,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1619,16 +1632,16 @@ -- method ListBox::selected_foreach -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "ListBoxForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "ListBoxForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_list_box_selected_foreach" gtk_list_box_selected_foreach :: Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox" FunPtr ListBoxForeachFuncC -> -- func : TInterface "Gtk" "ListBoxForeachFunc" - Ptr () -> -- data : TBasicType TVoid + Ptr () -> -- data : TBasicType TPtr IO () @@ -1654,7 +1667,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "single", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1684,7 +1697,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1717,16 +1730,16 @@ -- method ListBox::set_filter_func -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter_func", argType = TInterface "Gtk" "ListBoxFilterFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter_func", argType = TInterface "Gtk" "ListBoxFilterFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, 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},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_list_box_set_filter_func" gtk_list_box_set_filter_func :: Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox" FunPtr ListBoxFilterFuncC -> -- filter_func : TInterface "Gtk" "ListBoxFilterFunc" - Ptr () -> -- user_data : TBasicType TVoid + Ptr () -> -- user_data : TBasicType TPtr FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" IO () @@ -1755,16 +1768,16 @@ -- method ListBox::set_header_func -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "update_header", argType = TInterface "Gtk" "ListBoxUpdateHeaderFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "update_header", argType = TInterface "Gtk" "ListBoxUpdateHeaderFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, 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},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_list_box_set_header_func" gtk_list_box_set_header_func :: Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox" FunPtr ListBoxUpdateHeaderFuncC -> -- update_header : TInterface "Gtk" "ListBoxUpdateHeaderFunc" - Ptr () -> -- user_data : TBasicType TVoid + Ptr () -> -- user_data : TBasicType TPtr FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" IO () @@ -1795,7 +1808,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "placeholder", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1830,7 +1843,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mode", argType = TInterface "Gtk" "SelectionMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1858,16 +1871,16 @@ -- method ListBox::set_sort_func -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_func", argType = TInterface "Gtk" "ListBoxSortFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_func", argType = TInterface "Gtk" "ListBoxSortFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, 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},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_list_box_set_sort_func" gtk_list_box_set_sort_func :: Ptr ListBox -> -- _obj : TInterface "Gtk" "ListBox" FunPtr ListBoxSortFuncC -> -- sort_func : TInterface "Gtk" "ListBoxSortFunc" - Ptr () -> -- user_data : TBasicType TVoid + Ptr () -> -- user_data : TBasicType TPtr FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" IO () @@ -1898,7 +1911,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1925,7 +1938,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/ListBox.hs-boot b/GI/Gtk/Objects/ListBox.hs-boot --- a/GI/Gtk/Objects/ListBox.hs-boot +++ b/GI/Gtk/Objects/ListBox.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.ListBox where -import Prelude () 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 diff --git a/GI/Gtk/Objects/ListBoxAccessible.hs b/GI/Gtk/Objects/ListBoxAccessible.hs --- a/GI/Gtk/Objects/ListBoxAccessible.hs +++ b/GI/Gtk/Objects/ListBoxAccessible.hs @@ -18,9 +18,9 @@ ) where -import Prelude () 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 diff --git a/GI/Gtk/Objects/ListBoxAccessible.hs-boot b/GI/Gtk/Objects/ListBoxAccessible.hs-boot --- a/GI/Gtk/Objects/ListBoxAccessible.hs-boot +++ b/GI/Gtk/Objects/ListBoxAccessible.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.ListBoxAccessible where -import Prelude () 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 diff --git a/GI/Gtk/Objects/ListBoxRow.hs b/GI/Gtk/Objects/ListBoxRow.hs --- a/GI/Gtk/Objects/ListBoxRow.hs +++ b/GI/Gtk/Objects/ListBoxRow.hs @@ -73,6 +73,7 @@ ListBoxRowActivatablePropertyInfo , constructListBoxRowActivatable , getListBoxRowActivatable , + listBoxRowActivatable , setListBoxRowActivatable , @@ -80,6 +81,7 @@ ListBoxRowSelectablePropertyInfo , constructListBoxRowSelectable , getListBoxRowSelectable , + listBoxRowSelectable , setListBoxRowSelectable , @@ -102,9 +104,9 @@ ) where -import Prelude () 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 @@ -508,6 +510,7 @@ -- VVV Prop "activatable" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getListBoxRowActivatable :: (MonadIO m, ListBoxRowK o) => o -> m Bool getListBoxRowActivatable obj = liftIO $ getObjectPropertyBool obj "activatable" @@ -528,10 +531,12 @@ attrGet _ = getListBoxRowActivatable attrSet _ = setListBoxRowActivatable attrConstruct _ = constructListBoxRowActivatable + attrClear _ = undefined -- VVV Prop "selectable" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getListBoxRowSelectable :: (MonadIO m, ListBoxRowK o) => o -> m Bool getListBoxRowSelectable obj = liftIO $ getObjectPropertyBool obj "selectable" @@ -552,10 +557,17 @@ attrGet _ = getListBoxRowSelectable attrSet _ = setListBoxRowSelectable attrConstruct _ = constructListBoxRowSelectable + attrClear _ = undefined type instance AttributeList ListBoxRow = ListBoxRowAttributeList type ListBoxRowAttributeList = ('[ '("activatable", ListBoxRowActivatablePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("selectable", ListBoxRowSelectablePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +listBoxRowActivatable :: AttrLabelProxy "activatable" +listBoxRowActivatable = AttrLabelProxy + +listBoxRowSelectable :: AttrLabelProxy "selectable" +listBoxRowSelectable = AttrLabelProxy + data ListBoxRowActivateSignalInfo instance SignalInfo ListBoxRowActivateSignalInfo where type HaskellCallbackType ListBoxRowActivateSignalInfo = ListBoxRowActivateCallback @@ -568,7 +580,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "ListBoxRow" +-- returnType : Just (TInterface "Gtk" "ListBoxRow") -- throws : False -- Skip return : False @@ -589,7 +601,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -616,7 +628,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -644,7 +656,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -656,24 +668,25 @@ listBoxRowGetHeader :: (MonadIO m, ListBoxRowK a) => a -- _obj - -> m Widget -- result + -> m (Maybe Widget) -- result listBoxRowGetHeader _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_list_box_row_get_header _obj' - checkUnexpectedReturnNULL "gtk_list_box_row_get_header" result - result' <- (newObject Widget) result + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (newObject Widget) result' + return result'' touchManagedPtr _obj - return result' + return maybeResult data ListBoxRowGetHeaderMethodInfo -instance (signature ~ (m Widget), MonadIO m, ListBoxRowK a) => MethodInfo ListBoxRowGetHeaderMethodInfo a signature where +instance (signature ~ (m (Maybe Widget)), MonadIO m, ListBoxRowK a) => MethodInfo ListBoxRowGetHeaderMethodInfo a signature where overloadedMethod _ = listBoxRowGetHeader -- method ListBoxRow::get_index -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -700,7 +713,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -728,7 +741,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -756,7 +769,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "activatable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -786,7 +799,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "header", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -821,7 +834,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selectable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/ListBoxRow.hs-boot b/GI/Gtk/Objects/ListBoxRow.hs-boot --- a/GI/Gtk/Objects/ListBoxRow.hs-boot +++ b/GI/Gtk/Objects/ListBoxRow.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.ListBoxRow where -import Prelude () 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 diff --git a/GI/Gtk/Objects/ListBoxRowAccessible.hs b/GI/Gtk/Objects/ListBoxRowAccessible.hs --- a/GI/Gtk/Objects/ListBoxRowAccessible.hs +++ b/GI/Gtk/Objects/ListBoxRowAccessible.hs @@ -18,9 +18,9 @@ ) where -import Prelude () 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 diff --git a/GI/Gtk/Objects/ListBoxRowAccessible.hs-boot b/GI/Gtk/Objects/ListBoxRowAccessible.hs-boot --- a/GI/Gtk/Objects/ListBoxRowAccessible.hs-boot +++ b/GI/Gtk/Objects/ListBoxRowAccessible.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.ListBoxRowAccessible where -import Prelude () 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 diff --git a/GI/Gtk/Objects/ListStore.hs b/GI/Gtk/Objects/ListStore.hs --- a/GI/Gtk/Objects/ListStore.hs +++ b/GI/Gtk/Objects/ListStore.hs @@ -105,9 +105,9 @@ ) where -import Prelude () 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 @@ -241,14 +241,14 @@ -- method ListStore::new -- method type : Constructor --- Args : [Arg {argCName = "n_columns", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "types", argType = TCArray False (-1) 0 (TBasicType TGType), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "n_columns", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "ListStore" +-- Args : [Arg {argCName = "n_columns", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "types", argType = TCArray False (-1) 0 (TBasicType TGType), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "n_columns", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- returnType : Just (TInterface "Gtk" "ListStore") -- throws : False -- Skip return : False foreign import ccall "gtk_list_store_newv" gtk_list_store_newv :: - Int32 -> -- n_columns : TBasicType TInt32 + Int32 -> -- n_columns : TBasicType TInt Ptr CGType -> -- types : TCArray False (-1) 0 (TBasicType TGType) IO (Ptr ListStore) @@ -270,7 +270,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -300,7 +300,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -325,16 +325,16 @@ -- method ListStore::insert -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_list_store_insert" gtk_list_store_insert :: Ptr ListStore -> -- _obj : TInterface "Gtk" "ListStore" Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - Int32 -> -- position : TBasicType TInt32 + Int32 -> -- position : TBasicType TInt IO () @@ -359,7 +359,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "sibling", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -397,7 +397,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "sibling", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -433,19 +433,19 @@ -- method ListStore::insert_with_valuesv -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "columns", argType = TCArray False (-1) 5 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "values", argType = TCArray False (-1) 5 (TInterface "GObject" "Value"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : TBasicType TVoid +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "columns", argType = TCArray False (-1) 5 (TBasicType TInt), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "values", argType = TCArray False (-1) 5 (TInterface "GObject" "Value"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_values", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "n_values", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_values", 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 "gtk_list_store_insert_with_valuesv" gtk_list_store_insert_with_valuesv :: Ptr ListStore -> -- _obj : TInterface "Gtk" "ListStore" Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - Int32 -> -- position : TBasicType TInt32 - Ptr Int32 -> -- columns : TCArray False (-1) 5 (TBasicType TInt32) + Int32 -> -- position : TBasicType TInt + Ptr Int32 -> -- columns : TCArray False (-1) 5 (TBasicType TInt) Ptr GValue -> -- values : TCArray False (-1) 5 (TInterface "GObject" "Value") - Int32 -> -- n_values : TBasicType TInt32 + Int32 -> -- n_values : TBasicType TInt IO () @@ -482,7 +482,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -514,7 +514,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -553,7 +553,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -592,7 +592,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -622,7 +622,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -652,15 +652,15 @@ -- method ListStore::reorder -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_order", argType = TCArray True (-1) (-1) (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_order", argType = TCArray True (-1) (-1) (TBasicType TInt), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_list_store_reorder" gtk_list_store_reorder :: Ptr ListStore -> -- _obj : TInterface "Gtk" "ListStore" - Ptr Int32 -> -- new_order : TCArray True (-1) (-1) (TBasicType TInt32) + Ptr Int32 -> -- new_order : TCArray True (-1) (-1) (TBasicType TInt) IO () @@ -683,15 +683,15 @@ -- method ListStore::set_column_types -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_columns", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "types", argType = TCArray False (-1) 1 (TBasicType TGType), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "n_columns", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : TBasicType TVoid +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_columns", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "types", argType = TCArray False (-1) 1 (TBasicType TGType), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "n_columns", 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 "gtk_list_store_set_column_types" gtk_list_store_set_column_types :: Ptr ListStore -> -- _obj : TInterface "Gtk" "ListStore" - Int32 -> -- n_columns : TBasicType TInt32 + Int32 -> -- n_columns : TBasicType TInt Ptr CGType -> -- types : TCArray False (-1) 1 (TBasicType TGType) IO () @@ -716,16 +716,16 @@ -- method ListStore::set_value -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt32, 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}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt, 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_list_store_set_value" gtk_list_store_set_value :: Ptr ListStore -> -- _obj : TInterface "Gtk" "ListStore" Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - Int32 -> -- column : TBasicType TInt32 + Int32 -> -- column : TBasicType TInt Ptr GValue -> -- value : TInterface "GObject" "Value" IO () @@ -753,18 +753,18 @@ -- method ListStore::set -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "columns", argType = TCArray False (-1) 4 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "values", argType = TCArray False (-1) 4 (TInterface "GObject" "Value"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : TBasicType TVoid +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "columns", argType = TCArray False (-1) 4 (TBasicType TInt), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "values", argType = TCArray False (-1) 4 (TInterface "GObject" "Value"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_values", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "n_values", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_values", 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 "gtk_list_store_set_valuesv" gtk_list_store_set_valuesv :: Ptr ListStore -> -- _obj : TInterface "Gtk" "ListStore" Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - Ptr Int32 -> -- columns : TCArray False (-1) 4 (TBasicType TInt32) + Ptr Int32 -> -- columns : TCArray False (-1) 4 (TBasicType TInt) Ptr GValue -> -- values : TCArray False (-1) 4 (TInterface "GObject" "Value") - Int32 -> -- n_values : TBasicType TInt32 + Int32 -> -- n_values : TBasicType TInt IO () @@ -801,7 +801,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "a", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "b", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/ListStore.hs-boot b/GI/Gtk/Objects/ListStore.hs-boot --- a/GI/Gtk/Objects/ListStore.hs-boot +++ b/GI/Gtk/Objects/ListStore.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.ListStore where -import Prelude () 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 diff --git a/GI/Gtk/Objects/LockButton.hs b/GI/Gtk/Objects/LockButton.hs --- a/GI/Gtk/Objects/LockButton.hs +++ b/GI/Gtk/Objects/LockButton.hs @@ -36,43 +36,55 @@ -- * Properties -- ** Permission LockButtonPermissionPropertyInfo , + clearLockButtonPermission , constructLockButtonPermission , getLockButtonPermission , + lockButtonPermission , setLockButtonPermission , -- ** TextLock LockButtonTextLockPropertyInfo , + clearLockButtonTextLock , constructLockButtonTextLock , getLockButtonTextLock , + lockButtonTextLock , setLockButtonTextLock , -- ** TextUnlock LockButtonTextUnlockPropertyInfo , + clearLockButtonTextUnlock , constructLockButtonTextUnlock , getLockButtonTextUnlock , + lockButtonTextUnlock , setLockButtonTextUnlock , -- ** TooltipLock LockButtonTooltipLockPropertyInfo , + clearLockButtonTooltipLock , constructLockButtonTooltipLock , getLockButtonTooltipLock , + lockButtonTooltipLock , setLockButtonTooltipLock , -- ** TooltipNotAuthorized LockButtonTooltipNotAuthorizedPropertyInfo, + clearLockButtonTooltipNotAuthorized , constructLockButtonTooltipNotAuthorized , getLockButtonTooltipNotAuthorized , + lockButtonTooltipNotAuthorized , setLockButtonTooltipNotAuthorized , -- ** TooltipUnlock LockButtonTooltipUnlockPropertyInfo , + clearLockButtonTooltipUnlock , constructLockButtonTooltipUnlock , getLockButtonTooltipUnlock , + lockButtonTooltipUnlock , setLockButtonTooltipUnlock , @@ -80,9 +92,9 @@ ) where -import Prelude () 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 @@ -477,19 +489,23 @@ -- VVV Prop "permission" -- Type: TInterface "Gio" "Permission" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) getLockButtonPermission :: (MonadIO m, LockButtonK o) => o -> m Gio.Permission -getLockButtonPermission obj = liftIO $ getObjectPropertyObject obj "permission" Gio.Permission +getLockButtonPermission obj = liftIO $ checkUnexpectedNothing "getLockButtonPermission" $ getObjectPropertyObject obj "permission" Gio.Permission setLockButtonPermission :: (MonadIO m, LockButtonK o, Gio.PermissionK a) => o -> a -> m () -setLockButtonPermission obj val = liftIO $ setObjectPropertyObject obj "permission" val +setLockButtonPermission obj val = liftIO $ setObjectPropertyObject obj "permission" (Just val) constructLockButtonPermission :: (Gio.PermissionK a) => a -> IO ([Char], GValue) -constructLockButtonPermission val = constructObjectPropertyObject "permission" val +constructLockButtonPermission val = constructObjectPropertyObject "permission" (Just val) +clearLockButtonPermission :: (MonadIO m, LockButtonK o) => o -> m () +clearLockButtonPermission obj = liftIO $ setObjectPropertyObject obj "permission" (Nothing :: Maybe Gio.Permission) + data LockButtonPermissionPropertyInfo instance AttrInfo LockButtonPermissionPropertyInfo where - type AttrAllowedOps LockButtonPermissionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps LockButtonPermissionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint LockButtonPermissionPropertyInfo = Gio.PermissionK type AttrBaseTypeConstraint LockButtonPermissionPropertyInfo = LockButtonK type AttrGetType LockButtonPermissionPropertyInfo = Gio.Permission @@ -497,130 +513,174 @@ attrGet _ = getLockButtonPermission attrSet _ = setLockButtonPermission attrConstruct _ = constructLockButtonPermission + attrClear _ = clearLockButtonPermission -- VVV Prop "text-lock" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) -getLockButtonTextLock :: (MonadIO m, LockButtonK o) => o -> m T.Text +getLockButtonTextLock :: (MonadIO m, LockButtonK o) => o -> m (Maybe T.Text) getLockButtonTextLock obj = liftIO $ getObjectPropertyString obj "text-lock" setLockButtonTextLock :: (MonadIO m, LockButtonK o) => o -> T.Text -> m () -setLockButtonTextLock obj val = liftIO $ setObjectPropertyString obj "text-lock" val +setLockButtonTextLock obj val = liftIO $ setObjectPropertyString obj "text-lock" (Just val) constructLockButtonTextLock :: T.Text -> IO ([Char], GValue) -constructLockButtonTextLock val = constructObjectPropertyString "text-lock" val +constructLockButtonTextLock val = constructObjectPropertyString "text-lock" (Just val) +clearLockButtonTextLock :: (MonadIO m, LockButtonK o) => o -> m () +clearLockButtonTextLock obj = liftIO $ setObjectPropertyString obj "text-lock" (Nothing :: Maybe T.Text) + data LockButtonTextLockPropertyInfo instance AttrInfo LockButtonTextLockPropertyInfo where - type AttrAllowedOps LockButtonTextLockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps LockButtonTextLockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint LockButtonTextLockPropertyInfo = (~) T.Text type AttrBaseTypeConstraint LockButtonTextLockPropertyInfo = LockButtonK - type AttrGetType LockButtonTextLockPropertyInfo = T.Text + type AttrGetType LockButtonTextLockPropertyInfo = (Maybe T.Text) type AttrLabel LockButtonTextLockPropertyInfo = "text-lock" attrGet _ = getLockButtonTextLock attrSet _ = setLockButtonTextLock attrConstruct _ = constructLockButtonTextLock + attrClear _ = clearLockButtonTextLock -- VVV Prop "text-unlock" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) -getLockButtonTextUnlock :: (MonadIO m, LockButtonK o) => o -> m T.Text +getLockButtonTextUnlock :: (MonadIO m, LockButtonK o) => o -> m (Maybe T.Text) getLockButtonTextUnlock obj = liftIO $ getObjectPropertyString obj "text-unlock" setLockButtonTextUnlock :: (MonadIO m, LockButtonK o) => o -> T.Text -> m () -setLockButtonTextUnlock obj val = liftIO $ setObjectPropertyString obj "text-unlock" val +setLockButtonTextUnlock obj val = liftIO $ setObjectPropertyString obj "text-unlock" (Just val) constructLockButtonTextUnlock :: T.Text -> IO ([Char], GValue) -constructLockButtonTextUnlock val = constructObjectPropertyString "text-unlock" val +constructLockButtonTextUnlock val = constructObjectPropertyString "text-unlock" (Just val) +clearLockButtonTextUnlock :: (MonadIO m, LockButtonK o) => o -> m () +clearLockButtonTextUnlock obj = liftIO $ setObjectPropertyString obj "text-unlock" (Nothing :: Maybe T.Text) + data LockButtonTextUnlockPropertyInfo instance AttrInfo LockButtonTextUnlockPropertyInfo where - type AttrAllowedOps LockButtonTextUnlockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps LockButtonTextUnlockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint LockButtonTextUnlockPropertyInfo = (~) T.Text type AttrBaseTypeConstraint LockButtonTextUnlockPropertyInfo = LockButtonK - type AttrGetType LockButtonTextUnlockPropertyInfo = T.Text + type AttrGetType LockButtonTextUnlockPropertyInfo = (Maybe T.Text) type AttrLabel LockButtonTextUnlockPropertyInfo = "text-unlock" attrGet _ = getLockButtonTextUnlock attrSet _ = setLockButtonTextUnlock attrConstruct _ = constructLockButtonTextUnlock + attrClear _ = clearLockButtonTextUnlock -- VVV Prop "tooltip-lock" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) -getLockButtonTooltipLock :: (MonadIO m, LockButtonK o) => o -> m T.Text +getLockButtonTooltipLock :: (MonadIO m, LockButtonK o) => o -> m (Maybe T.Text) getLockButtonTooltipLock obj = liftIO $ getObjectPropertyString obj "tooltip-lock" setLockButtonTooltipLock :: (MonadIO m, LockButtonK o) => o -> T.Text -> m () -setLockButtonTooltipLock obj val = liftIO $ setObjectPropertyString obj "tooltip-lock" val +setLockButtonTooltipLock obj val = liftIO $ setObjectPropertyString obj "tooltip-lock" (Just val) constructLockButtonTooltipLock :: T.Text -> IO ([Char], GValue) -constructLockButtonTooltipLock val = constructObjectPropertyString "tooltip-lock" val +constructLockButtonTooltipLock val = constructObjectPropertyString "tooltip-lock" (Just val) +clearLockButtonTooltipLock :: (MonadIO m, LockButtonK o) => o -> m () +clearLockButtonTooltipLock obj = liftIO $ setObjectPropertyString obj "tooltip-lock" (Nothing :: Maybe T.Text) + data LockButtonTooltipLockPropertyInfo instance AttrInfo LockButtonTooltipLockPropertyInfo where - type AttrAllowedOps LockButtonTooltipLockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps LockButtonTooltipLockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint LockButtonTooltipLockPropertyInfo = (~) T.Text type AttrBaseTypeConstraint LockButtonTooltipLockPropertyInfo = LockButtonK - type AttrGetType LockButtonTooltipLockPropertyInfo = T.Text + type AttrGetType LockButtonTooltipLockPropertyInfo = (Maybe T.Text) type AttrLabel LockButtonTooltipLockPropertyInfo = "tooltip-lock" attrGet _ = getLockButtonTooltipLock attrSet _ = setLockButtonTooltipLock attrConstruct _ = constructLockButtonTooltipLock + attrClear _ = clearLockButtonTooltipLock -- VVV Prop "tooltip-not-authorized" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) -getLockButtonTooltipNotAuthorized :: (MonadIO m, LockButtonK o) => o -> m T.Text +getLockButtonTooltipNotAuthorized :: (MonadIO m, LockButtonK o) => o -> m (Maybe T.Text) getLockButtonTooltipNotAuthorized obj = liftIO $ getObjectPropertyString obj "tooltip-not-authorized" setLockButtonTooltipNotAuthorized :: (MonadIO m, LockButtonK o) => o -> T.Text -> m () -setLockButtonTooltipNotAuthorized obj val = liftIO $ setObjectPropertyString obj "tooltip-not-authorized" val +setLockButtonTooltipNotAuthorized obj val = liftIO $ setObjectPropertyString obj "tooltip-not-authorized" (Just val) constructLockButtonTooltipNotAuthorized :: T.Text -> IO ([Char], GValue) -constructLockButtonTooltipNotAuthorized val = constructObjectPropertyString "tooltip-not-authorized" val +constructLockButtonTooltipNotAuthorized val = constructObjectPropertyString "tooltip-not-authorized" (Just val) +clearLockButtonTooltipNotAuthorized :: (MonadIO m, LockButtonK o) => o -> m () +clearLockButtonTooltipNotAuthorized obj = liftIO $ setObjectPropertyString obj "tooltip-not-authorized" (Nothing :: Maybe T.Text) + data LockButtonTooltipNotAuthorizedPropertyInfo instance AttrInfo LockButtonTooltipNotAuthorizedPropertyInfo where - type AttrAllowedOps LockButtonTooltipNotAuthorizedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps LockButtonTooltipNotAuthorizedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint LockButtonTooltipNotAuthorizedPropertyInfo = (~) T.Text type AttrBaseTypeConstraint LockButtonTooltipNotAuthorizedPropertyInfo = LockButtonK - type AttrGetType LockButtonTooltipNotAuthorizedPropertyInfo = T.Text + type AttrGetType LockButtonTooltipNotAuthorizedPropertyInfo = (Maybe T.Text) type AttrLabel LockButtonTooltipNotAuthorizedPropertyInfo = "tooltip-not-authorized" attrGet _ = getLockButtonTooltipNotAuthorized attrSet _ = setLockButtonTooltipNotAuthorized attrConstruct _ = constructLockButtonTooltipNotAuthorized + attrClear _ = clearLockButtonTooltipNotAuthorized -- VVV Prop "tooltip-unlock" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) -getLockButtonTooltipUnlock :: (MonadIO m, LockButtonK o) => o -> m T.Text +getLockButtonTooltipUnlock :: (MonadIO m, LockButtonK o) => o -> m (Maybe T.Text) getLockButtonTooltipUnlock obj = liftIO $ getObjectPropertyString obj "tooltip-unlock" setLockButtonTooltipUnlock :: (MonadIO m, LockButtonK o) => o -> T.Text -> m () -setLockButtonTooltipUnlock obj val = liftIO $ setObjectPropertyString obj "tooltip-unlock" val +setLockButtonTooltipUnlock obj val = liftIO $ setObjectPropertyString obj "tooltip-unlock" (Just val) constructLockButtonTooltipUnlock :: T.Text -> IO ([Char], GValue) -constructLockButtonTooltipUnlock val = constructObjectPropertyString "tooltip-unlock" val +constructLockButtonTooltipUnlock val = constructObjectPropertyString "tooltip-unlock" (Just val) +clearLockButtonTooltipUnlock :: (MonadIO m, LockButtonK o) => o -> m () +clearLockButtonTooltipUnlock obj = liftIO $ setObjectPropertyString obj "tooltip-unlock" (Nothing :: Maybe T.Text) + data LockButtonTooltipUnlockPropertyInfo instance AttrInfo LockButtonTooltipUnlockPropertyInfo where - type AttrAllowedOps LockButtonTooltipUnlockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps LockButtonTooltipUnlockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint LockButtonTooltipUnlockPropertyInfo = (~) T.Text type AttrBaseTypeConstraint LockButtonTooltipUnlockPropertyInfo = LockButtonK - type AttrGetType LockButtonTooltipUnlockPropertyInfo = T.Text + type AttrGetType LockButtonTooltipUnlockPropertyInfo = (Maybe T.Text) type AttrLabel LockButtonTooltipUnlockPropertyInfo = "tooltip-unlock" attrGet _ = getLockButtonTooltipUnlock attrSet _ = setLockButtonTooltipUnlock attrConstruct _ = constructLockButtonTooltipUnlock + attrClear _ = clearLockButtonTooltipUnlock type instance AttributeList LockButton = LockButtonAttributeList type LockButtonAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("alwaysShowImage", ButtonAlwaysShowImagePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnClick", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("image", ButtonImagePropertyInfo), '("imagePosition", ButtonImagePositionPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("permission", LockButtonPermissionPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("textLock", LockButtonTextLockPropertyInfo), '("textUnlock", LockButtonTextUnlockPropertyInfo), '("tooltipLock", LockButtonTooltipLockPropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipNotAuthorized", LockButtonTooltipNotAuthorizedPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("tooltipUnlock", LockButtonTooltipUnlockPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useStock", ButtonUseStockPropertyInfo), '("useUnderline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) +lockButtonPermission :: AttrLabelProxy "permission" +lockButtonPermission = AttrLabelProxy + +lockButtonTextLock :: AttrLabelProxy "textLock" +lockButtonTextLock = AttrLabelProxy + +lockButtonTextUnlock :: AttrLabelProxy "textUnlock" +lockButtonTextUnlock = AttrLabelProxy + +lockButtonTooltipLock :: AttrLabelProxy "tooltipLock" +lockButtonTooltipLock = AttrLabelProxy + +lockButtonTooltipNotAuthorized :: AttrLabelProxy "tooltipNotAuthorized" +lockButtonTooltipNotAuthorized = AttrLabelProxy + +lockButtonTooltipUnlock :: AttrLabelProxy "tooltipUnlock" +lockButtonTooltipUnlock = AttrLabelProxy + type instance SignalList LockButton = LockButtonSignalList type LockButtonSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -628,7 +688,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "permission", argType = TInterface "Gio" "Permission", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "LockButton" +-- returnType : Just (TInterface "Gtk" "LockButton") -- throws : False -- Skip return : False @@ -657,7 +717,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LockButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gio" "Permission" +-- returnType : Just (TInterface "Gio" "Permission") -- throws : False -- Skip return : False @@ -686,7 +746,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "LockButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "permission", argType = TInterface "Gio" "Permission", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/LockButton.hs-boot b/GI/Gtk/Objects/LockButton.hs-boot --- a/GI/Gtk/Objects/LockButton.hs-boot +++ b/GI/Gtk/Objects/LockButton.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.LockButton where -import Prelude () 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 diff --git a/GI/Gtk/Objects/LockButtonAccessible.hs b/GI/Gtk/Objects/LockButtonAccessible.hs --- a/GI/Gtk/Objects/LockButtonAccessible.hs +++ b/GI/Gtk/Objects/LockButtonAccessible.hs @@ -18,9 +18,9 @@ ) where -import Prelude () 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 diff --git a/GI/Gtk/Objects/LockButtonAccessible.hs-boot b/GI/Gtk/Objects/LockButtonAccessible.hs-boot --- a/GI/Gtk/Objects/LockButtonAccessible.hs-boot +++ b/GI/Gtk/Objects/LockButtonAccessible.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.LockButtonAccessible where -import Prelude () 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 diff --git a/GI/Gtk/Objects/Menu.hs b/GI/Gtk/Objects/Menu.hs --- a/GI/Gtk/Objects/Menu.hs +++ b/GI/Gtk/Objects/Menu.hs @@ -154,15 +154,19 @@ -- * Properties -- ** AccelGroup MenuAccelGroupPropertyInfo , + clearMenuAccelGroup , constructMenuAccelGroup , getMenuAccelGroup , + menuAccelGroup , setMenuAccelGroup , -- ** AccelPath MenuAccelPathPropertyInfo , + clearMenuAccelPath , constructMenuAccelPath , getMenuAccelPath , + menuAccelPath , setMenuAccelPath , @@ -170,13 +174,16 @@ MenuActivePropertyInfo , constructMenuActive , getMenuActive , + menuActive , setMenuActive , -- ** AttachWidget MenuAttachWidgetPropertyInfo , + clearMenuAttachWidget , constructMenuAttachWidget , getMenuAttachWidget , + menuAttachWidget , setMenuAttachWidget , @@ -184,6 +191,7 @@ MenuMonitorPropertyInfo , constructMenuMonitor , getMenuMonitor , + menuMonitor , setMenuMonitor , @@ -191,6 +199,7 @@ MenuReserveToggleSizePropertyInfo , constructMenuReserveToggleSize , getMenuReserveToggleSize , + menuReserveToggleSize , setMenuReserveToggleSize , @@ -198,13 +207,16 @@ MenuTearoffStatePropertyInfo , constructMenuTearoffState , getMenuTearoffState , + menuTearoffState , setMenuTearoffState , -- ** TearoffTitle MenuTearoffTitlePropertyInfo , + clearMenuTearoffTitle , constructMenuTearoffTitle , getMenuTearoffTitle , + menuTearoffTitle , setMenuTearoffTitle , @@ -227,9 +239,9 @@ ) where -import Prelude () 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 @@ -666,19 +678,23 @@ -- VVV Prop "accel-group" -- Type: TInterface "Gtk" "AccelGroup" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) getMenuAccelGroup :: (MonadIO m, MenuK o) => o -> m AccelGroup -getMenuAccelGroup obj = liftIO $ getObjectPropertyObject obj "accel-group" AccelGroup +getMenuAccelGroup obj = liftIO $ checkUnexpectedNothing "getMenuAccelGroup" $ getObjectPropertyObject obj "accel-group" AccelGroup setMenuAccelGroup :: (MonadIO m, MenuK o, AccelGroupK a) => o -> a -> m () -setMenuAccelGroup obj val = liftIO $ setObjectPropertyObject obj "accel-group" val +setMenuAccelGroup obj val = liftIO $ setObjectPropertyObject obj "accel-group" (Just val) constructMenuAccelGroup :: (AccelGroupK a) => a -> IO ([Char], GValue) -constructMenuAccelGroup val = constructObjectPropertyObject "accel-group" val +constructMenuAccelGroup val = constructObjectPropertyObject "accel-group" (Just val) +clearMenuAccelGroup :: (MonadIO m, MenuK o) => o -> m () +clearMenuAccelGroup obj = liftIO $ setObjectPropertyObject obj "accel-group" (Nothing :: Maybe AccelGroup) + data MenuAccelGroupPropertyInfo instance AttrInfo MenuAccelGroupPropertyInfo where - type AttrAllowedOps MenuAccelGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps MenuAccelGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint MenuAccelGroupPropertyInfo = AccelGroupK type AttrBaseTypeConstraint MenuAccelGroupPropertyInfo = MenuK type AttrGetType MenuAccelGroupPropertyInfo = AccelGroup @@ -686,23 +702,28 @@ attrGet _ = getMenuAccelGroup attrSet _ = setMenuAccelGroup attrConstruct _ = constructMenuAccelGroup + attrClear _ = clearMenuAccelGroup -- VVV Prop "accel-path" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) getMenuAccelPath :: (MonadIO m, MenuK o) => o -> m T.Text -getMenuAccelPath obj = liftIO $ getObjectPropertyString obj "accel-path" +getMenuAccelPath obj = liftIO $ checkUnexpectedNothing "getMenuAccelPath" $ getObjectPropertyString obj "accel-path" setMenuAccelPath :: (MonadIO m, MenuK o) => o -> T.Text -> m () -setMenuAccelPath obj val = liftIO $ setObjectPropertyString obj "accel-path" val +setMenuAccelPath obj val = liftIO $ setObjectPropertyString obj "accel-path" (Just val) constructMenuAccelPath :: T.Text -> IO ([Char], GValue) -constructMenuAccelPath val = constructObjectPropertyString "accel-path" val +constructMenuAccelPath val = constructObjectPropertyString "accel-path" (Just val) +clearMenuAccelPath :: (MonadIO m, MenuK o) => o -> m () +clearMenuAccelPath obj = liftIO $ setObjectPropertyString obj "accel-path" (Nothing :: Maybe T.Text) + data MenuAccelPathPropertyInfo instance AttrInfo MenuAccelPathPropertyInfo where - type AttrAllowedOps MenuAccelPathPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps MenuAccelPathPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint MenuAccelPathPropertyInfo = (~) T.Text type AttrBaseTypeConstraint MenuAccelPathPropertyInfo = MenuK type AttrGetType MenuAccelPathPropertyInfo = T.Text @@ -710,19 +731,21 @@ attrGet _ = getMenuAccelPath attrSet _ = setMenuAccelPath attrConstruct _ = constructMenuAccelPath + attrClear _ = clearMenuAccelPath -- VVV Prop "active" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getMenuActive :: (MonadIO m, MenuK o) => o -> m Int32 -getMenuActive obj = liftIO $ getObjectPropertyCInt obj "active" +getMenuActive obj = liftIO $ getObjectPropertyInt32 obj "active" setMenuActive :: (MonadIO m, MenuK o) => o -> Int32 -> m () -setMenuActive obj val = liftIO $ setObjectPropertyCInt obj "active" val +setMenuActive obj val = liftIO $ setObjectPropertyInt32 obj "active" val constructMenuActive :: Int32 -> IO ([Char], GValue) -constructMenuActive val = constructObjectPropertyCInt "active" val +constructMenuActive val = constructObjectPropertyInt32 "active" val data MenuActivePropertyInfo instance AttrInfo MenuActivePropertyInfo where @@ -734,23 +757,28 @@ attrGet _ = getMenuActive attrSet _ = setMenuActive attrConstruct _ = constructMenuActive + attrClear _ = undefined -- VVV Prop "attach-widget" -- Type: TInterface "Gtk" "Widget" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Nothing) getMenuAttachWidget :: (MonadIO m, MenuK o) => o -> m Widget -getMenuAttachWidget obj = liftIO $ getObjectPropertyObject obj "attach-widget" Widget +getMenuAttachWidget obj = liftIO $ checkUnexpectedNothing "getMenuAttachWidget" $ getObjectPropertyObject obj "attach-widget" Widget setMenuAttachWidget :: (MonadIO m, MenuK o, WidgetK a) => o -> a -> m () -setMenuAttachWidget obj val = liftIO $ setObjectPropertyObject obj "attach-widget" val +setMenuAttachWidget obj val = liftIO $ setObjectPropertyObject obj "attach-widget" (Just val) constructMenuAttachWidget :: (WidgetK a) => a -> IO ([Char], GValue) -constructMenuAttachWidget val = constructObjectPropertyObject "attach-widget" val +constructMenuAttachWidget val = constructObjectPropertyObject "attach-widget" (Just val) +clearMenuAttachWidget :: (MonadIO m, MenuK o) => o -> m () +clearMenuAttachWidget obj = liftIO $ setObjectPropertyObject obj "attach-widget" (Nothing :: Maybe Widget) + data MenuAttachWidgetPropertyInfo instance AttrInfo MenuAttachWidgetPropertyInfo where - type AttrAllowedOps MenuAttachWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps MenuAttachWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint MenuAttachWidgetPropertyInfo = WidgetK type AttrBaseTypeConstraint MenuAttachWidgetPropertyInfo = MenuK type AttrGetType MenuAttachWidgetPropertyInfo = Widget @@ -758,19 +786,21 @@ attrGet _ = getMenuAttachWidget attrSet _ = setMenuAttachWidget attrConstruct _ = constructMenuAttachWidget + attrClear _ = clearMenuAttachWidget -- VVV Prop "monitor" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getMenuMonitor :: (MonadIO m, MenuK o) => o -> m Int32 -getMenuMonitor obj = liftIO $ getObjectPropertyCInt obj "monitor" +getMenuMonitor obj = liftIO $ getObjectPropertyInt32 obj "monitor" setMenuMonitor :: (MonadIO m, MenuK o) => o -> Int32 -> m () -setMenuMonitor obj val = liftIO $ setObjectPropertyCInt obj "monitor" val +setMenuMonitor obj val = liftIO $ setObjectPropertyInt32 obj "monitor" val constructMenuMonitor :: Int32 -> IO ([Char], GValue) -constructMenuMonitor val = constructObjectPropertyCInt "monitor" val +constructMenuMonitor val = constructObjectPropertyInt32 "monitor" val data MenuMonitorPropertyInfo instance AttrInfo MenuMonitorPropertyInfo where @@ -782,10 +812,12 @@ attrGet _ = getMenuMonitor attrSet _ = setMenuMonitor attrConstruct _ = constructMenuMonitor + attrClear _ = undefined -- VVV Prop "reserve-toggle-size" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getMenuReserveToggleSize :: (MonadIO m, MenuK o) => o -> m Bool getMenuReserveToggleSize obj = liftIO $ getObjectPropertyBool obj "reserve-toggle-size" @@ -806,10 +838,12 @@ attrGet _ = getMenuReserveToggleSize attrSet _ = setMenuReserveToggleSize attrConstruct _ = constructMenuReserveToggleSize + attrClear _ = undefined -- VVV Prop "tearoff-state" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getMenuTearoffState :: (MonadIO m, MenuK o) => o -> m Bool getMenuTearoffState obj = liftIO $ getObjectPropertyBool obj "tearoff-state" @@ -830,34 +864,64 @@ attrGet _ = getMenuTearoffState attrSet _ = setMenuTearoffState attrConstruct _ = constructMenuTearoffState + attrClear _ = undefined -- VVV Prop "tearoff-title" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getMenuTearoffTitle :: (MonadIO m, MenuK o) => o -> m T.Text +getMenuTearoffTitle :: (MonadIO m, MenuK o) => o -> m (Maybe T.Text) getMenuTearoffTitle obj = liftIO $ getObjectPropertyString obj "tearoff-title" setMenuTearoffTitle :: (MonadIO m, MenuK o) => o -> T.Text -> m () -setMenuTearoffTitle obj val = liftIO $ setObjectPropertyString obj "tearoff-title" val +setMenuTearoffTitle obj val = liftIO $ setObjectPropertyString obj "tearoff-title" (Just val) constructMenuTearoffTitle :: T.Text -> IO ([Char], GValue) -constructMenuTearoffTitle val = constructObjectPropertyString "tearoff-title" val +constructMenuTearoffTitle val = constructObjectPropertyString "tearoff-title" (Just val) +clearMenuTearoffTitle :: (MonadIO m, MenuK o) => o -> m () +clearMenuTearoffTitle obj = liftIO $ setObjectPropertyString obj "tearoff-title" (Nothing :: Maybe T.Text) + data MenuTearoffTitlePropertyInfo instance AttrInfo MenuTearoffTitlePropertyInfo where - type AttrAllowedOps MenuTearoffTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps MenuTearoffTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint MenuTearoffTitlePropertyInfo = (~) T.Text type AttrBaseTypeConstraint MenuTearoffTitlePropertyInfo = MenuK - type AttrGetType MenuTearoffTitlePropertyInfo = T.Text + type AttrGetType MenuTearoffTitlePropertyInfo = (Maybe T.Text) type AttrLabel MenuTearoffTitlePropertyInfo = "tearoff-title" attrGet _ = getMenuTearoffTitle attrSet _ = setMenuTearoffTitle attrConstruct _ = constructMenuTearoffTitle + attrClear _ = clearMenuTearoffTitle type instance AttributeList Menu = MenuAttributeList type MenuAttributeList = ('[ '("accelGroup", MenuAccelGroupPropertyInfo), '("accelPath", MenuAccelPathPropertyInfo), '("active", MenuActivePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("attachWidget", MenuAttachWidgetPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("monitor", MenuMonitorPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("reserveToggleSize", MenuReserveToggleSizePropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("takeFocus", MenuShellTakeFocusPropertyInfo), '("tearoffState", MenuTearoffStatePropertyInfo), '("tearoffTitle", MenuTearoffTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +menuAccelGroup :: AttrLabelProxy "accelGroup" +menuAccelGroup = AttrLabelProxy + +menuAccelPath :: AttrLabelProxy "accelPath" +menuAccelPath = AttrLabelProxy + +menuActive :: AttrLabelProxy "active" +menuActive = AttrLabelProxy + +menuAttachWidget :: AttrLabelProxy "attachWidget" +menuAttachWidget = AttrLabelProxy + +menuMonitor :: AttrLabelProxy "monitor" +menuMonitor = AttrLabelProxy + +menuReserveToggleSize :: AttrLabelProxy "reserveToggleSize" +menuReserveToggleSize = AttrLabelProxy + +menuTearoffState :: AttrLabelProxy "tearoffState" +menuTearoffState = AttrLabelProxy + +menuTearoffTitle :: AttrLabelProxy "tearoffTitle" +menuTearoffTitle = AttrLabelProxy + data MenuMoveScrollSignalInfo instance SignalInfo MenuMoveScrollSignalInfo where type HaskellCallbackType MenuMoveScrollSignalInfo = MenuMoveScrollCallback @@ -870,7 +934,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "Menu" +-- returnType : Just (TInterface "Gtk" "Menu") -- throws : False -- Skip return : False @@ -891,7 +955,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Menu" +-- returnType : Just (TInterface "Gtk" "Menu") -- throws : False -- Skip return : False @@ -914,19 +978,19 @@ -- method Menu::attach -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "left_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "right_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "top_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bottom_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "left_attach", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "right_attach", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "top_attach", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bottom_attach", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_menu_attach" gtk_menu_attach :: Ptr Menu -> -- _obj : TInterface "Gtk" "Menu" Ptr Widget -> -- child : TInterface "Gtk" "Widget" - Word32 -> -- left_attach : TBasicType TUInt32 - Word32 -> -- right_attach : TBasicType TUInt32 - Word32 -> -- top_attach : TBasicType TUInt32 - Word32 -> -- bottom_attach : TBasicType TUInt32 + Word32 -> -- left_attach : TBasicType TUInt + Word32 -> -- right_attach : TBasicType TUInt + Word32 -> -- top_attach : TBasicType TUInt + Word32 -> -- bottom_attach : TBasicType TUInt IO () @@ -955,7 +1019,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attach_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detacher", argType = TInterface "Gtk" "MenuDetachFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -995,7 +1059,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1022,7 +1086,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "AccelGroup" +-- returnType : Just (TInterface "Gtk" "AccelGroup") -- throws : False -- Skip return : False @@ -1051,7 +1115,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1080,7 +1144,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -1109,7 +1173,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -1138,7 +1202,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1165,7 +1229,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1193,7 +1257,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1221,7 +1285,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1250,7 +1314,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1275,9 +1339,9 @@ -- method Menu::popup -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent_menu_shell", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent_menu_item", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "MenuPositionFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "activate_time", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent_menu_shell", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent_menu_item", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "MenuPositionFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, 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 = "button", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "activate_time", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1286,8 +1350,8 @@ Ptr Widget -> -- parent_menu_shell : TInterface "Gtk" "Widget" Ptr Widget -> -- parent_menu_item : TInterface "Gtk" "Widget" FunPtr MenuPositionFuncC -> -- func : TInterface "Gtk" "MenuPositionFunc" - Ptr () -> -- data : TBasicType TVoid - Word32 -> -- button : TBasicType TUInt32 + Ptr () -> -- data : TBasicType TPtr + Word32 -> -- button : TBasicType TUInt Word32 -> -- activate_time : TBasicType TUInt32 IO () @@ -1333,9 +1397,9 @@ -- method Menu::popup_for_device -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent_menu_shell", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent_menu_item", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "MenuPositionFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 5, argDestroy = 6, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "activate_time", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent_menu_shell", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent_menu_item", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "MenuPositionFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 5, argDestroy = 6, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, 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 = "activate_time", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1345,9 +1409,9 @@ Ptr Widget -> -- parent_menu_shell : TInterface "Gtk" "Widget" Ptr Widget -> -- parent_menu_item : TInterface "Gtk" "Widget" FunPtr MenuPositionFuncC -> -- func : TInterface "Gtk" "MenuPositionFunc" - Ptr () -> -- data : TBasicType TVoid + Ptr () -> -- data : TBasicType TPtr FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - Word32 -> -- button : TBasicType TUInt32 + Word32 -> -- button : TBasicType TUInt Word32 -> -- activate_time : TBasicType TUInt32 IO () @@ -1399,16 +1463,16 @@ -- method Menu::reorder_child -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_menu_reorder_child" gtk_menu_reorder_child :: Ptr Menu -> -- _obj : TInterface "Gtk" "Menu" Ptr Widget -> -- child : TInterface "Gtk" "Widget" - Int32 -> -- position : TBasicType TInt32 + Int32 -> -- position : TBasicType TInt IO () @@ -1434,7 +1498,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1461,7 +1525,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1496,7 +1560,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1529,15 +1593,15 @@ -- method Menu::set_active -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_menu_set_active" gtk_menu_set_active :: Ptr Menu -> -- _obj : TInterface "Gtk" "Menu" - Word32 -> -- index : TBasicType TUInt32 + Word32 -> -- index : TBasicType TUInt IO () @@ -1558,15 +1622,15 @@ -- method Menu::set_monitor -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "monitor_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_menu_set_monitor" gtk_menu_set_monitor :: Ptr Menu -> -- _obj : TInterface "Gtk" "Menu" - Int32 -> -- monitor_num : TBasicType TInt32 + Int32 -> -- monitor_num : TBasicType TInt IO () @@ -1589,7 +1653,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "reserve_toggle_size", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1619,7 +1683,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1654,7 +1718,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "torn_off", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1684,7 +1748,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Menu", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1715,7 +1779,7 @@ -- method type : MemberFunction -- Args : [Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TGList (TInterface "Gtk" "Widget") +-- returnType : Just (TGList (TInterface "Gtk" "Widget")) -- throws : False -- Skip return : False @@ -1731,7 +1795,6 @@ menuGetForAttachWidget widget = liftIO $ do let widget' = unsafeManagedPtrCastPtr widget result <- gtk_menu_get_for_attach_widget widget' - checkUnexpectedReturnNULL "gtk_menu_get_for_attach_widget" result result' <- unpackGList result result'' <- mapM (newObject Widget) result' touchManagedPtr widget diff --git a/GI/Gtk/Objects/Menu.hs-boot b/GI/Gtk/Objects/Menu.hs-boot --- a/GI/Gtk/Objects/Menu.hs-boot +++ b/GI/Gtk/Objects/Menu.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.Menu where -import Prelude () 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 diff --git a/GI/Gtk/Objects/MenuAccessible.hs b/GI/Gtk/Objects/MenuAccessible.hs --- a/GI/Gtk/Objects/MenuAccessible.hs +++ b/GI/Gtk/Objects/MenuAccessible.hs @@ -18,9 +18,9 @@ ) where -import Prelude () 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 diff --git a/GI/Gtk/Objects/MenuAccessible.hs-boot b/GI/Gtk/Objects/MenuAccessible.hs-boot --- a/GI/Gtk/Objects/MenuAccessible.hs-boot +++ b/GI/Gtk/Objects/MenuAccessible.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.MenuAccessible where -import Prelude () 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 diff --git a/GI/Gtk/Objects/MenuBar.hs b/GI/Gtk/Objects/MenuBar.hs --- a/GI/Gtk/Objects/MenuBar.hs +++ b/GI/Gtk/Objects/MenuBar.hs @@ -52,6 +52,7 @@ MenuBarChildPackDirectionPropertyInfo , constructMenuBarChildPackDirection , getMenuBarChildPackDirection , + menuBarChildPackDirection , setMenuBarChildPackDirection , @@ -59,6 +60,7 @@ MenuBarPackDirectionPropertyInfo , constructMenuBarPackDirection , getMenuBarPackDirection , + menuBarPackDirection , setMenuBarPackDirection , @@ -66,9 +68,9 @@ ) where -import Prelude () 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 @@ -443,6 +445,7 @@ -- VVV Prop "child-pack-direction" -- Type: TInterface "Gtk" "PackDirection" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getMenuBarChildPackDirection :: (MonadIO m, MenuBarK o) => o -> m PackDirection getMenuBarChildPackDirection obj = liftIO $ getObjectPropertyEnum obj "child-pack-direction" @@ -463,10 +466,12 @@ attrGet _ = getMenuBarChildPackDirection attrSet _ = setMenuBarChildPackDirection attrConstruct _ = constructMenuBarChildPackDirection + attrClear _ = undefined -- VVV Prop "pack-direction" -- Type: TInterface "Gtk" "PackDirection" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getMenuBarPackDirection :: (MonadIO m, MenuBarK o) => o -> m PackDirection getMenuBarPackDirection obj = liftIO $ getObjectPropertyEnum obj "pack-direction" @@ -487,10 +492,17 @@ attrGet _ = getMenuBarPackDirection attrSet _ = setMenuBarPackDirection attrConstruct _ = constructMenuBarPackDirection + attrClear _ = undefined type instance AttributeList MenuBar = MenuBarAttributeList type MenuBarAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("childPackDirection", MenuBarChildPackDirectionPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("packDirection", MenuBarPackDirectionPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("takeFocus", MenuShellTakeFocusPropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +menuBarChildPackDirection :: AttrLabelProxy "childPackDirection" +menuBarChildPackDirection = AttrLabelProxy + +menuBarPackDirection :: AttrLabelProxy "packDirection" +menuBarPackDirection = AttrLabelProxy + type instance SignalList MenuBar = MenuBarSignalList type MenuBarSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activateCurrent", MenuShellActivateCurrentSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("cancel", MenuShellCancelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("cycleFocus", MenuShellCycleFocusSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deactivate", MenuShellDeactivateSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("insert", MenuShellInsertSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveCurrent", MenuShellMoveCurrentSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("moveSelected", MenuShellMoveSelectedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionDone", MenuShellSelectionDoneSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -498,7 +510,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "MenuBar" +-- returnType : Just (TInterface "Gtk" "MenuBar") -- throws : False -- Skip return : False @@ -519,7 +531,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "MenuBar" +-- returnType : Just (TInterface "Gtk" "MenuBar") -- throws : False -- Skip return : False @@ -544,7 +556,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "PackDirection" +-- returnType : Just (TInterface "Gtk" "PackDirection") -- throws : False -- Skip return : False @@ -572,7 +584,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "PackDirection" +-- returnType : Just (TInterface "Gtk" "PackDirection") -- throws : False -- Skip return : False @@ -600,7 +612,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child_pack_dir", argType = TInterface "Gtk" "PackDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -630,7 +642,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pack_dir", argType = TInterface "Gtk" "PackDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/MenuBar.hs-boot b/GI/Gtk/Objects/MenuBar.hs-boot --- a/GI/Gtk/Objects/MenuBar.hs-boot +++ b/GI/Gtk/Objects/MenuBar.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.MenuBar where -import Prelude () 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 diff --git a/GI/Gtk/Objects/MenuButton.hs b/GI/Gtk/Objects/MenuButton.hs --- a/GI/Gtk/Objects/MenuButton.hs +++ b/GI/Gtk/Objects/MenuButton.hs @@ -86,8 +86,10 @@ -- * Properties -- ** AlignWidget MenuButtonAlignWidgetPropertyInfo , + clearMenuButtonAlignWidget , constructMenuButtonAlignWidget , getMenuButtonAlignWidget , + menuButtonAlignWidget , setMenuButtonAlignWidget , @@ -95,27 +97,34 @@ MenuButtonDirectionPropertyInfo , constructMenuButtonDirection , getMenuButtonDirection , + menuButtonDirection , setMenuButtonDirection , -- ** MenuModel MenuButtonMenuModelPropertyInfo , + clearMenuButtonMenuModel , constructMenuButtonMenuModel , getMenuButtonMenuModel , + menuButtonMenuModel , setMenuButtonMenuModel , -- ** Popover MenuButtonPopoverPropertyInfo , + clearMenuButtonPopover , constructMenuButtonPopover , getMenuButtonPopover , + menuButtonPopover , setMenuButtonPopover , -- ** Popup MenuButtonPopupPropertyInfo , + clearMenuButtonPopup , constructMenuButtonPopup , getMenuButtonPopup , + menuButtonPopup , setMenuButtonPopup , @@ -123,6 +132,7 @@ MenuButtonUsePopoverPropertyInfo , constructMenuButtonUsePopover , getMenuButtonUsePopover , + menuButtonUsePopover , setMenuButtonUsePopover , @@ -130,9 +140,9 @@ ) where -import Prelude () 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 @@ -540,30 +550,36 @@ -- VVV Prop "align-widget" -- Type: TInterface "Gtk" "Container" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getMenuButtonAlignWidget :: (MonadIO m, MenuButtonK o) => o -> m Container +getMenuButtonAlignWidget :: (MonadIO m, MenuButtonK o) => o -> m (Maybe Container) getMenuButtonAlignWidget obj = liftIO $ getObjectPropertyObject obj "align-widget" Container setMenuButtonAlignWidget :: (MonadIO m, MenuButtonK o, ContainerK a) => o -> a -> m () -setMenuButtonAlignWidget obj val = liftIO $ setObjectPropertyObject obj "align-widget" val +setMenuButtonAlignWidget obj val = liftIO $ setObjectPropertyObject obj "align-widget" (Just val) constructMenuButtonAlignWidget :: (ContainerK a) => a -> IO ([Char], GValue) -constructMenuButtonAlignWidget val = constructObjectPropertyObject "align-widget" val +constructMenuButtonAlignWidget val = constructObjectPropertyObject "align-widget" (Just val) +clearMenuButtonAlignWidget :: (MonadIO m, MenuButtonK o) => o -> m () +clearMenuButtonAlignWidget obj = liftIO $ setObjectPropertyObject obj "align-widget" (Nothing :: Maybe Container) + data MenuButtonAlignWidgetPropertyInfo instance AttrInfo MenuButtonAlignWidgetPropertyInfo where - type AttrAllowedOps MenuButtonAlignWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps MenuButtonAlignWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint MenuButtonAlignWidgetPropertyInfo = ContainerK type AttrBaseTypeConstraint MenuButtonAlignWidgetPropertyInfo = MenuButtonK - type AttrGetType MenuButtonAlignWidgetPropertyInfo = Container + type AttrGetType MenuButtonAlignWidgetPropertyInfo = (Maybe Container) type AttrLabel MenuButtonAlignWidgetPropertyInfo = "align-widget" attrGet _ = getMenuButtonAlignWidget attrSet _ = setMenuButtonAlignWidget attrConstruct _ = constructMenuButtonAlignWidget + attrClear _ = clearMenuButtonAlignWidget -- VVV Prop "direction" -- Type: TInterface "Gtk" "ArrowType" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getMenuButtonDirection :: (MonadIO m, MenuButtonK o) => o -> m ArrowType getMenuButtonDirection obj = liftIO $ getObjectPropertyEnum obj "direction" @@ -584,23 +600,28 @@ attrGet _ = getMenuButtonDirection attrSet _ = setMenuButtonDirection attrConstruct _ = constructMenuButtonDirection + attrClear _ = undefined -- VVV Prop "menu-model" -- Type: TInterface "Gio" "MenuModel" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) getMenuButtonMenuModel :: (MonadIO m, MenuButtonK o) => o -> m Gio.MenuModel -getMenuButtonMenuModel obj = liftIO $ getObjectPropertyObject obj "menu-model" Gio.MenuModel +getMenuButtonMenuModel obj = liftIO $ checkUnexpectedNothing "getMenuButtonMenuModel" $ getObjectPropertyObject obj "menu-model" Gio.MenuModel setMenuButtonMenuModel :: (MonadIO m, MenuButtonK o, Gio.MenuModelK a) => o -> a -> m () -setMenuButtonMenuModel obj val = liftIO $ setObjectPropertyObject obj "menu-model" val +setMenuButtonMenuModel obj val = liftIO $ setObjectPropertyObject obj "menu-model" (Just val) constructMenuButtonMenuModel :: (Gio.MenuModelK a) => a -> IO ([Char], GValue) -constructMenuButtonMenuModel val = constructObjectPropertyObject "menu-model" val +constructMenuButtonMenuModel val = constructObjectPropertyObject "menu-model" (Just val) +clearMenuButtonMenuModel :: (MonadIO m, MenuButtonK o) => o -> m () +clearMenuButtonMenuModel obj = liftIO $ setObjectPropertyObject obj "menu-model" (Nothing :: Maybe Gio.MenuModel) + data MenuButtonMenuModelPropertyInfo instance AttrInfo MenuButtonMenuModelPropertyInfo where - type AttrAllowedOps MenuButtonMenuModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps MenuButtonMenuModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint MenuButtonMenuModelPropertyInfo = Gio.MenuModelK type AttrBaseTypeConstraint MenuButtonMenuModelPropertyInfo = MenuButtonK type AttrGetType MenuButtonMenuModelPropertyInfo = Gio.MenuModel @@ -608,23 +629,28 @@ attrGet _ = getMenuButtonMenuModel attrSet _ = setMenuButtonMenuModel attrConstruct _ = constructMenuButtonMenuModel + attrClear _ = clearMenuButtonMenuModel -- VVV Prop "popover" -- Type: TInterface "Gtk" "Popover" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Nothing) getMenuButtonPopover :: (MonadIO m, MenuButtonK o) => o -> m Popover -getMenuButtonPopover obj = liftIO $ getObjectPropertyObject obj "popover" Popover +getMenuButtonPopover obj = liftIO $ checkUnexpectedNothing "getMenuButtonPopover" $ getObjectPropertyObject obj "popover" Popover setMenuButtonPopover :: (MonadIO m, MenuButtonK o, PopoverK a) => o -> a -> m () -setMenuButtonPopover obj val = liftIO $ setObjectPropertyObject obj "popover" val +setMenuButtonPopover obj val = liftIO $ setObjectPropertyObject obj "popover" (Just val) constructMenuButtonPopover :: (PopoverK a) => a -> IO ([Char], GValue) -constructMenuButtonPopover val = constructObjectPropertyObject "popover" val +constructMenuButtonPopover val = constructObjectPropertyObject "popover" (Just val) +clearMenuButtonPopover :: (MonadIO m, MenuButtonK o) => o -> m () +clearMenuButtonPopover obj = liftIO $ setObjectPropertyObject obj "popover" (Nothing :: Maybe Popover) + data MenuButtonPopoverPropertyInfo instance AttrInfo MenuButtonPopoverPropertyInfo where - type AttrAllowedOps MenuButtonPopoverPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps MenuButtonPopoverPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint MenuButtonPopoverPropertyInfo = PopoverK type AttrBaseTypeConstraint MenuButtonPopoverPropertyInfo = MenuButtonK type AttrGetType MenuButtonPopoverPropertyInfo = Popover @@ -632,23 +658,28 @@ attrGet _ = getMenuButtonPopover attrSet _ = setMenuButtonPopover attrConstruct _ = constructMenuButtonPopover + attrClear _ = clearMenuButtonPopover -- VVV Prop "popup" -- Type: TInterface "Gtk" "Menu" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Nothing) getMenuButtonPopup :: (MonadIO m, MenuButtonK o) => o -> m Menu -getMenuButtonPopup obj = liftIO $ getObjectPropertyObject obj "popup" Menu +getMenuButtonPopup obj = liftIO $ checkUnexpectedNothing "getMenuButtonPopup" $ getObjectPropertyObject obj "popup" Menu setMenuButtonPopup :: (MonadIO m, MenuButtonK o, MenuK a) => o -> a -> m () -setMenuButtonPopup obj val = liftIO $ setObjectPropertyObject obj "popup" val +setMenuButtonPopup obj val = liftIO $ setObjectPropertyObject obj "popup" (Just val) constructMenuButtonPopup :: (MenuK a) => a -> IO ([Char], GValue) -constructMenuButtonPopup val = constructObjectPropertyObject "popup" val +constructMenuButtonPopup val = constructObjectPropertyObject "popup" (Just val) +clearMenuButtonPopup :: (MonadIO m, MenuButtonK o) => o -> m () +clearMenuButtonPopup obj = liftIO $ setObjectPropertyObject obj "popup" (Nothing :: Maybe Menu) + data MenuButtonPopupPropertyInfo instance AttrInfo MenuButtonPopupPropertyInfo where - type AttrAllowedOps MenuButtonPopupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps MenuButtonPopupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint MenuButtonPopupPropertyInfo = MenuK type AttrBaseTypeConstraint MenuButtonPopupPropertyInfo = MenuButtonK type AttrGetType MenuButtonPopupPropertyInfo = Menu @@ -656,10 +687,12 @@ attrGet _ = getMenuButtonPopup attrSet _ = setMenuButtonPopup attrConstruct _ = constructMenuButtonPopup + attrClear _ = clearMenuButtonPopup -- VVV Prop "use-popover" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getMenuButtonUsePopover :: (MonadIO m, MenuButtonK o) => o -> m Bool getMenuButtonUsePopover obj = liftIO $ getObjectPropertyBool obj "use-popover" @@ -680,10 +713,29 @@ attrGet _ = getMenuButtonUsePopover attrSet _ = setMenuButtonUsePopover attrConstruct _ = constructMenuButtonUsePopover + attrClear _ = undefined type instance AttributeList MenuButton = MenuButtonAttributeList type MenuButtonAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("active", ToggleButtonActivePropertyInfo), '("alignWidget", MenuButtonAlignWidgetPropertyInfo), '("alwaysShowImage", ButtonAlwaysShowImagePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("direction", MenuButtonDirectionPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("drawIndicator", ToggleButtonDrawIndicatorPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnClick", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("image", ButtonImagePropertyInfo), '("imagePosition", ButtonImagePositionPropertyInfo), '("inconsistent", ToggleButtonInconsistentPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("menuModel", MenuButtonMenuModelPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("popover", MenuButtonPopoverPropertyInfo), '("popup", MenuButtonPopupPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("usePopover", MenuButtonUsePopoverPropertyInfo), '("useStock", ButtonUseStockPropertyInfo), '("useUnderline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) +menuButtonAlignWidget :: AttrLabelProxy "alignWidget" +menuButtonAlignWidget = AttrLabelProxy + +menuButtonDirection :: AttrLabelProxy "direction" +menuButtonDirection = AttrLabelProxy + +menuButtonMenuModel :: AttrLabelProxy "menuModel" +menuButtonMenuModel = AttrLabelProxy + +menuButtonPopover :: AttrLabelProxy "popover" +menuButtonPopover = AttrLabelProxy + +menuButtonPopup :: AttrLabelProxy "popup" +menuButtonPopup = AttrLabelProxy + +menuButtonUsePopover :: AttrLabelProxy "usePopover" +menuButtonUsePopover = AttrLabelProxy + type instance SignalList MenuButton = MenuButtonSignalList type MenuButtonSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("toggled", ToggleButtonToggledSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -691,7 +743,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "MenuButton" +-- returnType : Just (TInterface "Gtk" "MenuButton") -- throws : False -- Skip return : False @@ -712,7 +764,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -741,7 +793,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "ArrowType" +-- returnType : Just (TInterface "Gtk" "ArrowType") -- throws : False -- Skip return : False @@ -769,7 +821,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gio" "MenuModel" +-- returnType : Just (TInterface "Gio" "MenuModel") -- throws : False -- Skip return : False @@ -798,7 +850,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Popover" +-- returnType : Just (TInterface "Gtk" "Popover") -- throws : False -- Skip return : False @@ -827,7 +879,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Menu" +-- returnType : Just (TInterface "Gtk" "Menu") -- throws : False -- Skip return : False @@ -856,7 +908,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -884,7 +936,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "align_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -919,7 +971,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "direction", argType = TInterface "Gtk" "ArrowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -949,7 +1001,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menu_model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -984,7 +1036,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "popover", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1019,7 +1071,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menu", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1054,7 +1106,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_popover", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/MenuButton.hs-boot b/GI/Gtk/Objects/MenuButton.hs-boot --- a/GI/Gtk/Objects/MenuButton.hs-boot +++ b/GI/Gtk/Objects/MenuButton.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.MenuButton where -import Prelude () 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 diff --git a/GI/Gtk/Objects/MenuButtonAccessible.hs b/GI/Gtk/Objects/MenuButtonAccessible.hs --- a/GI/Gtk/Objects/MenuButtonAccessible.hs +++ b/GI/Gtk/Objects/MenuButtonAccessible.hs @@ -18,9 +18,9 @@ ) where -import Prelude () 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 diff --git a/GI/Gtk/Objects/MenuButtonAccessible.hs-boot b/GI/Gtk/Objects/MenuButtonAccessible.hs-boot --- a/GI/Gtk/Objects/MenuButtonAccessible.hs-boot +++ b/GI/Gtk/Objects/MenuButtonAccessible.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.MenuButtonAccessible where -import Prelude () 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 diff --git a/GI/Gtk/Objects/MenuItem.hs b/GI/Gtk/Objects/MenuItem.hs --- a/GI/Gtk/Objects/MenuItem.hs +++ b/GI/Gtk/Objects/MenuItem.hs @@ -119,8 +119,10 @@ -- * Properties -- ** AccelPath MenuItemAccelPathPropertyInfo , + clearMenuItemAccelPath , constructMenuItemAccelPath , getMenuItemAccelPath , + menuItemAccelPath , setMenuItemAccelPath , @@ -128,6 +130,7 @@ MenuItemLabelPropertyInfo , constructMenuItemLabel , getMenuItemLabel , + menuItemLabel , setMenuItemLabel , @@ -135,13 +138,16 @@ MenuItemRightJustifiedPropertyInfo , constructMenuItemRightJustified , getMenuItemRightJustified , + menuItemRightJustified , setMenuItemRightJustified , -- ** Submenu MenuItemSubmenuPropertyInfo , + clearMenuItemSubmenu , constructMenuItemSubmenu , getMenuItemSubmenu , + menuItemSubmenu , setMenuItemSubmenu , @@ -149,6 +155,7 @@ MenuItemUseUnderlinePropertyInfo , constructMenuItemUseUnderline , getMenuItemUseUnderline , + menuItemUseUnderline , setMenuItemUseUnderline , @@ -231,9 +238,9 @@ ) where -import Prelude () 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 @@ -848,19 +855,23 @@ -- VVV Prop "accel-path" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) getMenuItemAccelPath :: (MonadIO m, MenuItemK o) => o -> m T.Text -getMenuItemAccelPath obj = liftIO $ getObjectPropertyString obj "accel-path" +getMenuItemAccelPath obj = liftIO $ checkUnexpectedNothing "getMenuItemAccelPath" $ getObjectPropertyString obj "accel-path" setMenuItemAccelPath :: (MonadIO m, MenuItemK o) => o -> T.Text -> m () -setMenuItemAccelPath obj val = liftIO $ setObjectPropertyString obj "accel-path" val +setMenuItemAccelPath obj val = liftIO $ setObjectPropertyString obj "accel-path" (Just val) constructMenuItemAccelPath :: T.Text -> IO ([Char], GValue) -constructMenuItemAccelPath val = constructObjectPropertyString "accel-path" val +constructMenuItemAccelPath val = constructObjectPropertyString "accel-path" (Just val) +clearMenuItemAccelPath :: (MonadIO m, MenuItemK o) => o -> m () +clearMenuItemAccelPath obj = liftIO $ setObjectPropertyString obj "accel-path" (Nothing :: Maybe T.Text) + data MenuItemAccelPathPropertyInfo instance AttrInfo MenuItemAccelPathPropertyInfo where - type AttrAllowedOps MenuItemAccelPathPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps MenuItemAccelPathPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint MenuItemAccelPathPropertyInfo = (~) T.Text type AttrBaseTypeConstraint MenuItemAccelPathPropertyInfo = MenuItemK type AttrGetType MenuItemAccelPathPropertyInfo = T.Text @@ -868,19 +879,21 @@ attrGet _ = getMenuItemAccelPath attrSet _ = setMenuItemAccelPath attrConstruct _ = constructMenuItemAccelPath + attrClear _ = clearMenuItemAccelPath -- VVV Prop "label" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getMenuItemLabel :: (MonadIO m, MenuItemK o) => o -> m T.Text -getMenuItemLabel obj = liftIO $ getObjectPropertyString obj "label" +getMenuItemLabel obj = liftIO $ checkUnexpectedNothing "getMenuItemLabel" $ getObjectPropertyString obj "label" setMenuItemLabel :: (MonadIO m, MenuItemK o) => o -> T.Text -> m () -setMenuItemLabel obj val = liftIO $ setObjectPropertyString obj "label" val +setMenuItemLabel obj val = liftIO $ setObjectPropertyString obj "label" (Just val) constructMenuItemLabel :: T.Text -> IO ([Char], GValue) -constructMenuItemLabel val = constructObjectPropertyString "label" val +constructMenuItemLabel val = constructObjectPropertyString "label" (Just val) data MenuItemLabelPropertyInfo instance AttrInfo MenuItemLabelPropertyInfo where @@ -892,10 +905,12 @@ attrGet _ = getMenuItemLabel attrSet _ = setMenuItemLabel attrConstruct _ = constructMenuItemLabel + attrClear _ = undefined -- VVV Prop "right-justified" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getMenuItemRightJustified :: (MonadIO m, MenuItemK o) => o -> m Bool getMenuItemRightJustified obj = liftIO $ getObjectPropertyBool obj "right-justified" @@ -916,34 +931,41 @@ attrGet _ = getMenuItemRightJustified attrSet _ = setMenuItemRightJustified attrConstruct _ = constructMenuItemRightJustified + attrClear _ = undefined -- VVV Prop "submenu" -- Type: TInterface "Gtk" "Menu" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just True) -getMenuItemSubmenu :: (MonadIO m, MenuItemK o) => o -> m Menu +getMenuItemSubmenu :: (MonadIO m, MenuItemK o) => o -> m (Maybe Menu) getMenuItemSubmenu obj = liftIO $ getObjectPropertyObject obj "submenu" Menu setMenuItemSubmenu :: (MonadIO m, MenuItemK o, MenuK a) => o -> a -> m () -setMenuItemSubmenu obj val = liftIO $ setObjectPropertyObject obj "submenu" val +setMenuItemSubmenu obj val = liftIO $ setObjectPropertyObject obj "submenu" (Just val) constructMenuItemSubmenu :: (MenuK a) => a -> IO ([Char], GValue) -constructMenuItemSubmenu val = constructObjectPropertyObject "submenu" val +constructMenuItemSubmenu val = constructObjectPropertyObject "submenu" (Just val) +clearMenuItemSubmenu :: (MonadIO m, MenuItemK o) => o -> m () +clearMenuItemSubmenu obj = liftIO $ setObjectPropertyObject obj "submenu" (Nothing :: Maybe Menu) + data MenuItemSubmenuPropertyInfo instance AttrInfo MenuItemSubmenuPropertyInfo where - type AttrAllowedOps MenuItemSubmenuPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps MenuItemSubmenuPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint MenuItemSubmenuPropertyInfo = MenuK type AttrBaseTypeConstraint MenuItemSubmenuPropertyInfo = MenuItemK - type AttrGetType MenuItemSubmenuPropertyInfo = Menu + type AttrGetType MenuItemSubmenuPropertyInfo = (Maybe Menu) type AttrLabel MenuItemSubmenuPropertyInfo = "submenu" attrGet _ = getMenuItemSubmenu attrSet _ = setMenuItemSubmenu attrConstruct _ = constructMenuItemSubmenu + attrClear _ = clearMenuItemSubmenu -- VVV Prop "use-underline" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getMenuItemUseUnderline :: (MonadIO m, MenuItemK o) => o -> m Bool getMenuItemUseUnderline obj = liftIO $ getObjectPropertyBool obj "use-underline" @@ -964,10 +986,26 @@ attrGet _ = getMenuItemUseUnderline attrSet _ = setMenuItemUseUnderline attrConstruct _ = constructMenuItemUseUnderline + attrClear _ = undefined type instance AttributeList MenuItem = MenuItemAttributeList type MenuItemAttributeList = ('[ '("accelPath", MenuItemAccelPathPropertyInfo), '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", MenuItemLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rightJustified", MenuItemRightJustifiedPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("submenu", MenuItemSubmenuPropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useUnderline", MenuItemUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +menuItemAccelPath :: AttrLabelProxy "accelPath" +menuItemAccelPath = AttrLabelProxy + +menuItemLabel :: AttrLabelProxy "label" +menuItemLabel = AttrLabelProxy + +menuItemRightJustified :: AttrLabelProxy "rightJustified" +menuItemRightJustified = AttrLabelProxy + +menuItemSubmenu :: AttrLabelProxy "submenu" +menuItemSubmenu = AttrLabelProxy + +menuItemUseUnderline :: AttrLabelProxy "useUnderline" +menuItemUseUnderline = AttrLabelProxy + data MenuItemActivateSignalInfo instance SignalInfo MenuItemActivateSignalInfo where type HaskellCallbackType MenuItemActivateSignalInfo = MenuItemActivateCallback @@ -1005,7 +1043,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "MenuItem" +-- returnType : Just (TInterface "Gtk" "MenuItem") -- throws : False -- Skip return : False @@ -1026,7 +1064,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "MenuItem" +-- returnType : Just (TInterface "Gtk" "MenuItem") -- throws : False -- Skip return : False @@ -1051,7 +1089,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "MenuItem" +-- returnType : Just (TInterface "Gtk" "MenuItem") -- throws : False -- Skip return : False @@ -1076,7 +1114,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1103,7 +1141,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1130,7 +1168,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1159,7 +1197,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1188,7 +1226,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1216,7 +1254,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1244,7 +1282,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -1273,7 +1311,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1301,7 +1339,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1328,7 +1366,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1363,7 +1401,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1394,7 +1432,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "reserve", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1424,7 +1462,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "right_justified", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1454,7 +1492,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "submenu", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1489,7 +1527,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1517,15 +1555,15 @@ -- method MenuItem::toggle_size_allocate -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allocation", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allocation", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_menu_item_toggle_size_allocate" gtk_menu_item_toggle_size_allocate :: Ptr MenuItem -> -- _obj : TInterface "Gtk" "MenuItem" - Int32 -> -- allocation : TBasicType TInt32 + Int32 -> -- allocation : TBasicType TInt IO () @@ -1546,15 +1584,15 @@ -- method MenuItem::toggle_size_request -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "requisition", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "requisition", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_menu_item_toggle_size_request" gtk_menu_item_toggle_size_request :: Ptr MenuItem -> -- _obj : TInterface "Gtk" "MenuItem" - Ptr Int32 -> -- requisition : TBasicType TInt32 + Ptr Int32 -> -- requisition : TBasicType TInt IO () diff --git a/GI/Gtk/Objects/MenuItem.hs-boot b/GI/Gtk/Objects/MenuItem.hs-boot --- a/GI/Gtk/Objects/MenuItem.hs-boot +++ b/GI/Gtk/Objects/MenuItem.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.MenuItem where -import Prelude () 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 diff --git a/GI/Gtk/Objects/MenuItemAccessible.hs b/GI/Gtk/Objects/MenuItemAccessible.hs --- a/GI/Gtk/Objects/MenuItemAccessible.hs +++ b/GI/Gtk/Objects/MenuItemAccessible.hs @@ -18,9 +18,9 @@ ) where -import Prelude () 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 diff --git a/GI/Gtk/Objects/MenuItemAccessible.hs-boot b/GI/Gtk/Objects/MenuItemAccessible.hs-boot --- a/GI/Gtk/Objects/MenuItemAccessible.hs-boot +++ b/GI/Gtk/Objects/MenuItemAccessible.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.MenuItemAccessible where -import Prelude () 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 diff --git a/GI/Gtk/Objects/MenuShell.hs b/GI/Gtk/Objects/MenuShell.hs --- a/GI/Gtk/Objects/MenuShell.hs +++ b/GI/Gtk/Objects/MenuShell.hs @@ -94,6 +94,7 @@ MenuShellTakeFocusPropertyInfo , constructMenuShellTakeFocus , getMenuShellTakeFocus , + menuShellTakeFocus , setMenuShellTakeFocus , @@ -200,9 +201,9 @@ ) where -import Prelude () 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 @@ -901,6 +902,7 @@ -- VVV Prop "take-focus" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getMenuShellTakeFocus :: (MonadIO m, MenuShellK o) => o -> m Bool getMenuShellTakeFocus obj = liftIO $ getObjectPropertyBool obj "take-focus" @@ -921,10 +923,14 @@ attrGet _ = getMenuShellTakeFocus attrSet _ = setMenuShellTakeFocus attrConstruct _ = constructMenuShellTakeFocus + attrClear _ = undefined type instance AttributeList MenuShell = MenuShellAttributeList type MenuShellAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("takeFocus", MenuShellTakeFocusPropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +menuShellTakeFocus :: AttrLabelProxy "takeFocus" +menuShellTakeFocus = AttrLabelProxy + data MenuShellActivateCurrentSignalInfo instance SignalInfo MenuShellActivateCurrentSignalInfo where type HaskellCallbackType MenuShellActivateCurrentSignalInfo = MenuShellActivateCurrentCallback @@ -972,7 +978,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menu_item", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "force_deactivate", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1006,7 +1012,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1037,7 +1043,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_namespace", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "with_separators", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1083,7 +1089,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1110,7 +1116,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1137,7 +1143,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1164,7 +1170,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -1193,7 +1199,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -1222,7 +1228,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1248,16 +1254,16 @@ -- method MenuShell::insert -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_menu_shell_insert" gtk_menu_shell_insert :: Ptr MenuShell -> -- _obj : TInterface "Gtk" "MenuShell" Ptr Widget -> -- child : TInterface "Gtk" "Widget" - Int32 -> -- position : TBasicType TInt32 + Int32 -> -- position : TBasicType TInt IO () @@ -1283,7 +1289,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1314,7 +1320,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "search_sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1344,7 +1350,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menu_item", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1375,7 +1381,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "take_focus", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/MenuShell.hs-boot b/GI/Gtk/Objects/MenuShell.hs-boot --- a/GI/Gtk/Objects/MenuShell.hs-boot +++ b/GI/Gtk/Objects/MenuShell.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.MenuShell where -import Prelude () 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 diff --git a/GI/Gtk/Objects/MenuShellAccessible.hs b/GI/Gtk/Objects/MenuShellAccessible.hs --- a/GI/Gtk/Objects/MenuShellAccessible.hs +++ b/GI/Gtk/Objects/MenuShellAccessible.hs @@ -18,9 +18,9 @@ ) where -import Prelude () 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 diff --git a/GI/Gtk/Objects/MenuShellAccessible.hs-boot b/GI/Gtk/Objects/MenuShellAccessible.hs-boot --- a/GI/Gtk/Objects/MenuShellAccessible.hs-boot +++ b/GI/Gtk/Objects/MenuShellAccessible.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.MenuShellAccessible where -import Prelude () 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 diff --git a/GI/Gtk/Objects/MenuToolButton.hs b/GI/Gtk/Objects/MenuToolButton.hs --- a/GI/Gtk/Objects/MenuToolButton.hs +++ b/GI/Gtk/Objects/MenuToolButton.hs @@ -50,8 +50,10 @@ -- * Properties -- ** Menu MenuToolButtonMenuPropertyInfo , + clearMenuToolButtonMenu , constructMenuToolButtonMenu , getMenuToolButtonMenu , + menuToolButtonMenu , setMenuToolButtonMenu , @@ -74,9 +76,9 @@ ) where -import Prelude () 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 @@ -521,30 +523,38 @@ -- VVV Prop "menu" -- Type: TInterface "Gtk" "Menu" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getMenuToolButtonMenu :: (MonadIO m, MenuToolButtonK o) => o -> m Menu +getMenuToolButtonMenu :: (MonadIO m, MenuToolButtonK o) => o -> m (Maybe Menu) getMenuToolButtonMenu obj = liftIO $ getObjectPropertyObject obj "menu" Menu setMenuToolButtonMenu :: (MonadIO m, MenuToolButtonK o, MenuK a) => o -> a -> m () -setMenuToolButtonMenu obj val = liftIO $ setObjectPropertyObject obj "menu" val +setMenuToolButtonMenu obj val = liftIO $ setObjectPropertyObject obj "menu" (Just val) constructMenuToolButtonMenu :: (MenuK a) => a -> IO ([Char], GValue) -constructMenuToolButtonMenu val = constructObjectPropertyObject "menu" val +constructMenuToolButtonMenu val = constructObjectPropertyObject "menu" (Just val) +clearMenuToolButtonMenu :: (MonadIO m, MenuToolButtonK o) => o -> m () +clearMenuToolButtonMenu obj = liftIO $ setObjectPropertyObject obj "menu" (Nothing :: Maybe Menu) + data MenuToolButtonMenuPropertyInfo instance AttrInfo MenuToolButtonMenuPropertyInfo where - type AttrAllowedOps MenuToolButtonMenuPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps MenuToolButtonMenuPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint MenuToolButtonMenuPropertyInfo = MenuK type AttrBaseTypeConstraint MenuToolButtonMenuPropertyInfo = MenuToolButtonK - type AttrGetType MenuToolButtonMenuPropertyInfo = Menu + type AttrGetType MenuToolButtonMenuPropertyInfo = (Maybe Menu) type AttrLabel MenuToolButtonMenuPropertyInfo = "menu" attrGet _ = getMenuToolButtonMenu attrSet _ = setMenuToolButtonMenu attrConstruct _ = constructMenuToolButtonMenu + attrClear _ = clearMenuToolButtonMenu type instance AttributeList MenuToolButton = MenuToolButtonAttributeList type MenuToolButtonAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("iconName", ToolButtonIconNamePropertyInfo), '("iconWidget", ToolButtonIconWidgetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isImportant", ToolItemIsImportantPropertyInfo), '("label", ToolButtonLabelPropertyInfo), '("labelWidget", ToolButtonLabelWidgetPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("menu", MenuToolButtonMenuPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("stockId", ToolButtonStockIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useUnderline", ToolButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visibleHorizontal", ToolItemVisibleHorizontalPropertyInfo), '("visibleVertical", ToolItemVisibleVerticalPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +menuToolButtonMenu :: AttrLabelProxy "menu" +menuToolButtonMenu = AttrLabelProxy + data MenuToolButtonShowMenuSignalInfo instance SignalInfo MenuToolButtonShowMenuSignalInfo where type HaskellCallbackType MenuToolButtonShowMenuSignalInfo = MenuToolButtonShowMenuCallback @@ -557,7 +567,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "icon_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "MenuToolButton" +-- returnType : Just (TInterface "Gtk" "MenuToolButton") -- throws : False -- Skip return : False @@ -594,7 +604,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "MenuToolButton" +-- returnType : Just (TInterface "Gtk" "MenuToolButton") -- throws : False -- Skip return : False @@ -619,7 +629,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -648,7 +658,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -679,7 +689,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -710,7 +720,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MenuToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menu", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/MenuToolButton.hs-boot b/GI/Gtk/Objects/MenuToolButton.hs-boot --- a/GI/Gtk/Objects/MenuToolButton.hs-boot +++ b/GI/Gtk/Objects/MenuToolButton.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.MenuToolButton where -import Prelude () 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 diff --git a/GI/Gtk/Objects/MessageDialog.hs b/GI/Gtk/Objects/MessageDialog.hs --- a/GI/Gtk/Objects/MessageDialog.hs +++ b/GI/Gtk/Objects/MessageDialog.hs @@ -43,31 +43,37 @@ -- ** Buttons MessageDialogButtonsPropertyInfo , constructMessageDialogButtons , + messageDialogButtons , -- ** Image MessageDialogImagePropertyInfo , constructMessageDialogImage , getMessageDialogImage , + messageDialogImage , setMessageDialogImage , -- ** MessageArea MessageDialogMessageAreaPropertyInfo , getMessageDialogMessageArea , + messageDialogMessageArea , -- ** MessageType MessageDialogMessageTypePropertyInfo , constructMessageDialogMessageType , getMessageDialogMessageType , + messageDialogMessageType , setMessageDialogMessageType , -- ** SecondaryText MessageDialogSecondaryTextPropertyInfo , + clearMessageDialogSecondaryText , constructMessageDialogSecondaryText , getMessageDialogSecondaryText , + messageDialogSecondaryText , setMessageDialogSecondaryText , @@ -75,13 +81,16 @@ MessageDialogSecondaryUseMarkupPropertyInfo, constructMessageDialogSecondaryUseMarkup, getMessageDialogSecondaryUseMarkup , + messageDialogSecondaryUseMarkup , setMessageDialogSecondaryUseMarkup , -- ** Text MessageDialogTextPropertyInfo , + clearMessageDialogText , constructMessageDialogText , getMessageDialogText , + messageDialogText , setMessageDialogText , @@ -89,6 +98,7 @@ MessageDialogUseMarkupPropertyInfo , constructMessageDialogUseMarkup , getMessageDialogUseMarkup , + messageDialogUseMarkup , setMessageDialogUseMarkup , @@ -96,9 +106,9 @@ ) where -import Prelude () 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 @@ -572,6 +582,7 @@ -- VVV Prop "buttons" -- Type: TInterface "Gtk" "ButtonsType" -- Flags: [PropertyWritable,PropertyConstructOnly] + -- Nullable: (Nothing,Nothing) constructMessageDialogButtons :: ButtonsType -> IO ([Char], GValue) constructMessageDialogButtons val = constructObjectPropertyEnum "buttons" val @@ -586,19 +597,21 @@ attrGet _ = undefined attrSet _ = undefined attrConstruct _ = constructMessageDialogButtons + attrClear _ = undefined -- VVV Prop "image" -- Type: TInterface "Gtk" "Widget" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getMessageDialogImage :: (MonadIO m, MessageDialogK o) => o -> m Widget -getMessageDialogImage obj = liftIO $ getObjectPropertyObject obj "image" Widget +getMessageDialogImage obj = liftIO $ checkUnexpectedNothing "getMessageDialogImage" $ getObjectPropertyObject obj "image" Widget setMessageDialogImage :: (MonadIO m, MessageDialogK o, WidgetK a) => o -> a -> m () -setMessageDialogImage obj val = liftIO $ setObjectPropertyObject obj "image" val +setMessageDialogImage obj val = liftIO $ setObjectPropertyObject obj "image" (Just val) constructMessageDialogImage :: (WidgetK a) => a -> IO ([Char], GValue) -constructMessageDialogImage val = constructObjectPropertyObject "image" val +constructMessageDialogImage val = constructObjectPropertyObject "image" (Just val) data MessageDialogImagePropertyInfo instance AttrInfo MessageDialogImagePropertyInfo where @@ -610,17 +623,19 @@ attrGet _ = getMessageDialogImage attrSet _ = setMessageDialogImage attrConstruct _ = constructMessageDialogImage + attrClear _ = undefined -- VVV Prop "message-area" -- Type: TInterface "Gtk" "Widget" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getMessageDialogMessageArea :: (MonadIO m, MessageDialogK o) => o -> m Widget -getMessageDialogMessageArea obj = liftIO $ getObjectPropertyObject obj "message-area" Widget +getMessageDialogMessageArea obj = liftIO $ checkUnexpectedNothing "getMessageDialogMessageArea" $ getObjectPropertyObject obj "message-area" Widget data MessageDialogMessageAreaPropertyInfo instance AttrInfo MessageDialogMessageAreaPropertyInfo where - type AttrAllowedOps MessageDialogMessageAreaPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps MessageDialogMessageAreaPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint MessageDialogMessageAreaPropertyInfo = (~) () type AttrBaseTypeConstraint MessageDialogMessageAreaPropertyInfo = MessageDialogK type AttrGetType MessageDialogMessageAreaPropertyInfo = Widget @@ -628,10 +643,12 @@ attrGet _ = getMessageDialogMessageArea attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "message-type" -- Type: TInterface "Gtk" "MessageType" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) getMessageDialogMessageType :: (MonadIO m, MessageDialogK o) => o -> m MessageType getMessageDialogMessageType obj = liftIO $ getObjectPropertyEnum obj "message-type" @@ -652,34 +669,41 @@ attrGet _ = getMessageDialogMessageType attrSet _ = setMessageDialogMessageType attrConstruct _ = constructMessageDialogMessageType + attrClear _ = undefined -- VVV Prop "secondary-text" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getMessageDialogSecondaryText :: (MonadIO m, MessageDialogK o) => o -> m T.Text +getMessageDialogSecondaryText :: (MonadIO m, MessageDialogK o) => o -> m (Maybe T.Text) getMessageDialogSecondaryText obj = liftIO $ getObjectPropertyString obj "secondary-text" setMessageDialogSecondaryText :: (MonadIO m, MessageDialogK o) => o -> T.Text -> m () -setMessageDialogSecondaryText obj val = liftIO $ setObjectPropertyString obj "secondary-text" val +setMessageDialogSecondaryText obj val = liftIO $ setObjectPropertyString obj "secondary-text" (Just val) constructMessageDialogSecondaryText :: T.Text -> IO ([Char], GValue) -constructMessageDialogSecondaryText val = constructObjectPropertyString "secondary-text" val +constructMessageDialogSecondaryText val = constructObjectPropertyString "secondary-text" (Just val) +clearMessageDialogSecondaryText :: (MonadIO m, MessageDialogK o) => o -> m () +clearMessageDialogSecondaryText obj = liftIO $ setObjectPropertyString obj "secondary-text" (Nothing :: Maybe T.Text) + data MessageDialogSecondaryTextPropertyInfo instance AttrInfo MessageDialogSecondaryTextPropertyInfo where - type AttrAllowedOps MessageDialogSecondaryTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps MessageDialogSecondaryTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint MessageDialogSecondaryTextPropertyInfo = (~) T.Text type AttrBaseTypeConstraint MessageDialogSecondaryTextPropertyInfo = MessageDialogK - type AttrGetType MessageDialogSecondaryTextPropertyInfo = T.Text + type AttrGetType MessageDialogSecondaryTextPropertyInfo = (Maybe T.Text) type AttrLabel MessageDialogSecondaryTextPropertyInfo = "secondary-text" attrGet _ = getMessageDialogSecondaryText attrSet _ = setMessageDialogSecondaryText attrConstruct _ = constructMessageDialogSecondaryText + attrClear _ = clearMessageDialogSecondaryText -- VVV Prop "secondary-use-markup" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getMessageDialogSecondaryUseMarkup :: (MonadIO m, MessageDialogK o) => o -> m Bool getMessageDialogSecondaryUseMarkup obj = liftIO $ getObjectPropertyBool obj "secondary-use-markup" @@ -700,34 +724,41 @@ attrGet _ = getMessageDialogSecondaryUseMarkup attrSet _ = setMessageDialogSecondaryUseMarkup attrConstruct _ = constructMessageDialogSecondaryUseMarkup + attrClear _ = undefined -- VVV Prop "text" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getMessageDialogText :: (MonadIO m, MessageDialogK o) => o -> m T.Text +getMessageDialogText :: (MonadIO m, MessageDialogK o) => o -> m (Maybe T.Text) getMessageDialogText obj = liftIO $ getObjectPropertyString obj "text" setMessageDialogText :: (MonadIO m, MessageDialogK o) => o -> T.Text -> m () -setMessageDialogText obj val = liftIO $ setObjectPropertyString obj "text" val +setMessageDialogText obj val = liftIO $ setObjectPropertyString obj "text" (Just val) constructMessageDialogText :: T.Text -> IO ([Char], GValue) -constructMessageDialogText val = constructObjectPropertyString "text" val +constructMessageDialogText val = constructObjectPropertyString "text" (Just val) +clearMessageDialogText :: (MonadIO m, MessageDialogK o) => o -> m () +clearMessageDialogText obj = liftIO $ setObjectPropertyString obj "text" (Nothing :: Maybe T.Text) + data MessageDialogTextPropertyInfo instance AttrInfo MessageDialogTextPropertyInfo where - type AttrAllowedOps MessageDialogTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps MessageDialogTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint MessageDialogTextPropertyInfo = (~) T.Text type AttrBaseTypeConstraint MessageDialogTextPropertyInfo = MessageDialogK - type AttrGetType MessageDialogTextPropertyInfo = T.Text + type AttrGetType MessageDialogTextPropertyInfo = (Maybe T.Text) type AttrLabel MessageDialogTextPropertyInfo = "text" attrGet _ = getMessageDialogText attrSet _ = setMessageDialogText attrConstruct _ = constructMessageDialogText + attrClear _ = clearMessageDialogText -- VVV Prop "use-markup" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getMessageDialogUseMarkup :: (MonadIO m, MessageDialogK o) => o -> m Bool getMessageDialogUseMarkup obj = liftIO $ getObjectPropertyBool obj "use-markup" @@ -748,10 +779,35 @@ attrGet _ = getMessageDialogUseMarkup attrSet _ = setMessageDialogUseMarkup attrConstruct _ = constructMessageDialogUseMarkup + attrClear _ = undefined type instance AttributeList MessageDialog = MessageDialogAttributeList type MessageDialogAttributeList = ('[ '("acceptFocus", WindowAcceptFocusPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attachedTo", WindowAttachedToPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("buttons", MessageDialogButtonsPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("defaultHeight", WindowDefaultHeightPropertyInfo), '("defaultWidth", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroyWithParent", WindowDestroyWithParentPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnMap", WindowFocusOnMapPropertyInfo), '("focusVisible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasResizeGrip", WindowHasResizeGripPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("hasToplevelFocus", WindowHasToplevelFocusPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hideTitlebarWhenMaximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("iconName", WindowIconNamePropertyInfo), '("image", MessageDialogImagePropertyInfo), '("isActive", WindowIsActivePropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isMaximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("messageArea", MessageDialogMessageAreaPropertyInfo), '("messageType", MessageDialogMessageTypePropertyInfo), '("mnemonicsVisible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resizeGripVisible", WindowResizeGripVisiblePropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("secondaryText", MessageDialogSecondaryTextPropertyInfo), '("secondaryUseMarkup", MessageDialogSecondaryUseMarkupPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skipPagerHint", WindowSkipPagerHintPropertyInfo), '("skipTaskbarHint", WindowSkipTaskbarHintPropertyInfo), '("startupId", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("text", MessageDialogTextPropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("transientFor", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("typeHint", WindowTypeHintPropertyInfo), '("urgencyHint", WindowUrgencyHintPropertyInfo), '("useHeaderBar", DialogUseHeaderBarPropertyInfo), '("useMarkup", MessageDialogUseMarkupPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("windowPosition", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) +messageDialogButtons :: AttrLabelProxy "buttons" +messageDialogButtons = AttrLabelProxy + +messageDialogImage :: AttrLabelProxy "image" +messageDialogImage = AttrLabelProxy + +messageDialogMessageArea :: AttrLabelProxy "messageArea" +messageDialogMessageArea = AttrLabelProxy + +messageDialogMessageType :: AttrLabelProxy "messageType" +messageDialogMessageType = AttrLabelProxy + +messageDialogSecondaryText :: AttrLabelProxy "secondaryText" +messageDialogSecondaryText = AttrLabelProxy + +messageDialogSecondaryUseMarkup :: AttrLabelProxy "secondaryUseMarkup" +messageDialogSecondaryUseMarkup = AttrLabelProxy + +messageDialogText :: AttrLabelProxy "text" +messageDialogText = AttrLabelProxy + +messageDialogUseMarkup :: AttrLabelProxy "useMarkup" +messageDialogUseMarkup = AttrLabelProxy + type instance SignalList MessageDialog = MessageDialogSignalList type MessageDialogSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activateDefault", WindowActivateDefaultSignalInfo), '("activateFocus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("close", DialogCloseSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enableDebugging", WindowEnableDebuggingSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("keysChanged", WindowKeysChangedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("response", DialogResponseSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocus", WindowSetFocusSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -759,7 +815,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MessageDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -788,7 +844,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MessageDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -817,7 +873,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MessageDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "image", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -848,7 +904,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MessageDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/MessageDialog.hs-boot b/GI/Gtk/Objects/MessageDialog.hs-boot --- a/GI/Gtk/Objects/MessageDialog.hs-boot +++ b/GI/Gtk/Objects/MessageDialog.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.MessageDialog where -import Prelude () 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 diff --git a/GI/Gtk/Objects/Misc.hs b/GI/Gtk/Objects/Misc.hs --- a/GI/Gtk/Objects/Misc.hs +++ b/GI/Gtk/Objects/Misc.hs @@ -44,6 +44,7 @@ MiscXalignPropertyInfo , constructMiscXalign , getMiscXalign , + miscXalign , setMiscXalign , @@ -51,6 +52,7 @@ MiscXpadPropertyInfo , constructMiscXpad , getMiscXpad , + miscXpad , setMiscXpad , @@ -58,6 +60,7 @@ MiscYalignPropertyInfo , constructMiscYalign , getMiscYalign , + miscYalign , setMiscYalign , @@ -65,6 +68,7 @@ MiscYpadPropertyInfo , constructMiscYpad , getMiscYpad , + miscYpad , setMiscYpad , @@ -72,9 +76,9 @@ ) where -import Prelude () 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 @@ -408,6 +412,7 @@ -- VVV Prop "xalign" -- Type: TBasicType TFloat -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getMiscXalign :: (MonadIO m, MiscK o) => o -> m Float getMiscXalign obj = liftIO $ getObjectPropertyFloat obj "xalign" @@ -428,19 +433,21 @@ attrGet _ = getMiscXalign attrSet _ = setMiscXalign attrConstruct _ = constructMiscXalign + attrClear _ = undefined -- VVV Prop "xpad" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getMiscXpad :: (MonadIO m, MiscK o) => o -> m Int32 -getMiscXpad obj = liftIO $ getObjectPropertyCInt obj "xpad" +getMiscXpad obj = liftIO $ getObjectPropertyInt32 obj "xpad" setMiscXpad :: (MonadIO m, MiscK o) => o -> Int32 -> m () -setMiscXpad obj val = liftIO $ setObjectPropertyCInt obj "xpad" val +setMiscXpad obj val = liftIO $ setObjectPropertyInt32 obj "xpad" val constructMiscXpad :: Int32 -> IO ([Char], GValue) -constructMiscXpad val = constructObjectPropertyCInt "xpad" val +constructMiscXpad val = constructObjectPropertyInt32 "xpad" val data MiscXpadPropertyInfo instance AttrInfo MiscXpadPropertyInfo where @@ -452,10 +459,12 @@ attrGet _ = getMiscXpad attrSet _ = setMiscXpad attrConstruct _ = constructMiscXpad + attrClear _ = undefined -- VVV Prop "yalign" -- Type: TBasicType TFloat -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getMiscYalign :: (MonadIO m, MiscK o) => o -> m Float getMiscYalign obj = liftIO $ getObjectPropertyFloat obj "yalign" @@ -476,19 +485,21 @@ attrGet _ = getMiscYalign attrSet _ = setMiscYalign attrConstruct _ = constructMiscYalign + attrClear _ = undefined -- VVV Prop "ypad" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getMiscYpad :: (MonadIO m, MiscK o) => o -> m Int32 -getMiscYpad obj = liftIO $ getObjectPropertyCInt obj "ypad" +getMiscYpad obj = liftIO $ getObjectPropertyInt32 obj "ypad" setMiscYpad :: (MonadIO m, MiscK o) => o -> Int32 -> m () -setMiscYpad obj val = liftIO $ setObjectPropertyCInt obj "ypad" val +setMiscYpad obj val = liftIO $ setObjectPropertyInt32 obj "ypad" val constructMiscYpad :: Int32 -> IO ([Char], GValue) -constructMiscYpad val = constructObjectPropertyCInt "ypad" val +constructMiscYpad val = constructObjectPropertyInt32 "ypad" val data MiscYpadPropertyInfo instance AttrInfo MiscYpadPropertyInfo where @@ -500,10 +511,23 @@ attrGet _ = getMiscYpad attrSet _ = setMiscYpad attrConstruct _ = constructMiscYpad + attrClear _ = undefined type instance AttributeList Misc = MiscAttributeList type MiscAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", MiscXalignPropertyInfo), '("xpad", MiscXpadPropertyInfo), '("yalign", MiscYalignPropertyInfo), '("ypad", MiscYpadPropertyInfo)] :: [(Symbol, *)]) +miscXalign :: AttrLabelProxy "xalign" +miscXalign = AttrLabelProxy + +miscXpad :: AttrLabelProxy "xpad" +miscXpad = AttrLabelProxy + +miscYalign :: AttrLabelProxy "yalign" +miscYalign = AttrLabelProxy + +miscYpad :: AttrLabelProxy "ypad" +miscYpad = AttrLabelProxy + type instance SignalList Misc = MiscSignalList type MiscSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -511,7 +535,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Misc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "yalign", argType = TBasicType TFloat, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -546,16 +570,16 @@ -- method Misc::get_padding -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Misc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xpad", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "ypad", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Misc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xpad", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "ypad", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_misc_get_padding" gtk_misc_get_padding :: Ptr Misc -> -- _obj : TInterface "Gtk" "Misc" - Ptr Int32 -> -- xpad : TBasicType TInt32 - Ptr Int32 -> -- ypad : TBasicType TInt32 + Ptr Int32 -> -- xpad : TBasicType TInt + Ptr Int32 -> -- ypad : TBasicType TInt IO () {-# DEPRECATED miscGetPadding ["(Since version 3.14)","Use #GtkWidget alignment and margin properties."]#-} @@ -583,7 +607,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Misc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -614,16 +638,16 @@ -- method Misc::set_padding -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Misc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xpad", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ypad", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Misc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xpad", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ypad", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_misc_set_padding" gtk_misc_set_padding :: Ptr Misc -> -- _obj : TInterface "Gtk" "Misc" - Int32 -> -- xpad : TBasicType TInt32 - Int32 -> -- ypad : TBasicType TInt32 + Int32 -> -- xpad : TBasicType TInt + Int32 -> -- ypad : TBasicType TInt IO () {-# DEPRECATED miscSetPadding ["(Since version 3.14)","Use #GtkWidget alignment and margin properties."]#-} diff --git a/GI/Gtk/Objects/Misc.hs-boot b/GI/Gtk/Objects/Misc.hs-boot --- a/GI/Gtk/Objects/Misc.hs-boot +++ b/GI/Gtk/Objects/Misc.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.Misc where -import Prelude () 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 diff --git a/GI/Gtk/Objects/ModelButton.hs b/GI/Gtk/Objects/ModelButton.hs --- a/GI/Gtk/Objects/ModelButton.hs +++ b/GI/Gtk/Objects/ModelButton.hs @@ -28,6 +28,7 @@ ModelButtonActivePropertyInfo , constructModelButtonActive , getModelButtonActive , + modelButtonActive , setModelButtonActive , @@ -35,13 +36,16 @@ ModelButtonCenteredPropertyInfo , constructModelButtonCentered , getModelButtonCentered , + modelButtonCentered , setModelButtonCentered , -- ** Icon ModelButtonIconPropertyInfo , + clearModelButtonIcon , constructModelButtonIcon , getModelButtonIcon , + modelButtonIcon , setModelButtonIcon , @@ -49,6 +53,7 @@ ModelButtonIconicPropertyInfo , constructModelButtonIconic , getModelButtonIconic , + modelButtonIconic , setModelButtonIconic , @@ -56,13 +61,16 @@ ModelButtonInvertedPropertyInfo , constructModelButtonInverted , getModelButtonInverted , + modelButtonInverted , setModelButtonInverted , -- ** MenuName ModelButtonMenuNamePropertyInfo , + clearModelButtonMenuName , constructModelButtonMenuName , getModelButtonMenuName , + modelButtonMenuName , setModelButtonMenuName , @@ -70,13 +78,16 @@ ModelButtonRolePropertyInfo , constructModelButtonRole , getModelButtonRole , + modelButtonRole , setModelButtonRole , -- ** Text ModelButtonTextPropertyInfo , + clearModelButtonText , constructModelButtonText , getModelButtonText , + modelButtonText , setModelButtonText , @@ -84,9 +95,9 @@ ) where -import Prelude () 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 @@ -479,6 +490,7 @@ -- VVV Prop "active" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getModelButtonActive :: (MonadIO m, ModelButtonK o) => o -> m Bool getModelButtonActive obj = liftIO $ getObjectPropertyBool obj "active" @@ -499,10 +511,12 @@ attrGet _ = getModelButtonActive attrSet _ = setModelButtonActive attrConstruct _ = constructModelButtonActive + attrClear _ = undefined -- VVV Prop "centered" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getModelButtonCentered :: (MonadIO m, ModelButtonK o) => o -> m Bool getModelButtonCentered obj = liftIO $ getObjectPropertyBool obj "centered" @@ -523,34 +537,41 @@ attrGet _ = getModelButtonCentered attrSet _ = setModelButtonCentered attrConstruct _ = constructModelButtonCentered + attrClear _ = undefined -- VVV Prop "icon" -- Type: TInterface "Gio" "Icon" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getModelButtonIcon :: (MonadIO m, ModelButtonK o) => o -> m Gio.Icon +getModelButtonIcon :: (MonadIO m, ModelButtonK o) => o -> m (Maybe Gio.Icon) getModelButtonIcon obj = liftIO $ getObjectPropertyObject obj "icon" Gio.Icon setModelButtonIcon :: (MonadIO m, ModelButtonK o, Gio.IconK a) => o -> a -> m () -setModelButtonIcon obj val = liftIO $ setObjectPropertyObject obj "icon" val +setModelButtonIcon obj val = liftIO $ setObjectPropertyObject obj "icon" (Just val) constructModelButtonIcon :: (Gio.IconK a) => a -> IO ([Char], GValue) -constructModelButtonIcon val = constructObjectPropertyObject "icon" val +constructModelButtonIcon val = constructObjectPropertyObject "icon" (Just val) +clearModelButtonIcon :: (MonadIO m, ModelButtonK o) => o -> m () +clearModelButtonIcon obj = liftIO $ setObjectPropertyObject obj "icon" (Nothing :: Maybe Gio.Icon) + data ModelButtonIconPropertyInfo instance AttrInfo ModelButtonIconPropertyInfo where - type AttrAllowedOps ModelButtonIconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps ModelButtonIconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ModelButtonIconPropertyInfo = Gio.IconK type AttrBaseTypeConstraint ModelButtonIconPropertyInfo = ModelButtonK - type AttrGetType ModelButtonIconPropertyInfo = Gio.Icon + type AttrGetType ModelButtonIconPropertyInfo = (Maybe Gio.Icon) type AttrLabel ModelButtonIconPropertyInfo = "icon" attrGet _ = getModelButtonIcon attrSet _ = setModelButtonIcon attrConstruct _ = constructModelButtonIcon + attrClear _ = clearModelButtonIcon -- VVV Prop "iconic" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getModelButtonIconic :: (MonadIO m, ModelButtonK o) => o -> m Bool getModelButtonIconic obj = liftIO $ getObjectPropertyBool obj "iconic" @@ -571,10 +592,12 @@ attrGet _ = getModelButtonIconic attrSet _ = setModelButtonIconic attrConstruct _ = constructModelButtonIconic + attrClear _ = undefined -- VVV Prop "inverted" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getModelButtonInverted :: (MonadIO m, ModelButtonK o) => o -> m Bool getModelButtonInverted obj = liftIO $ getObjectPropertyBool obj "inverted" @@ -595,34 +618,41 @@ attrGet _ = getModelButtonInverted attrSet _ = setModelButtonInverted attrConstruct _ = constructModelButtonInverted + attrClear _ = undefined -- VVV Prop "menu-name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getModelButtonMenuName :: (MonadIO m, ModelButtonK o) => o -> m T.Text +getModelButtonMenuName :: (MonadIO m, ModelButtonK o) => o -> m (Maybe T.Text) getModelButtonMenuName obj = liftIO $ getObjectPropertyString obj "menu-name" setModelButtonMenuName :: (MonadIO m, ModelButtonK o) => o -> T.Text -> m () -setModelButtonMenuName obj val = liftIO $ setObjectPropertyString obj "menu-name" val +setModelButtonMenuName obj val = liftIO $ setObjectPropertyString obj "menu-name" (Just val) constructModelButtonMenuName :: T.Text -> IO ([Char], GValue) -constructModelButtonMenuName val = constructObjectPropertyString "menu-name" val +constructModelButtonMenuName val = constructObjectPropertyString "menu-name" (Just val) +clearModelButtonMenuName :: (MonadIO m, ModelButtonK o) => o -> m () +clearModelButtonMenuName obj = liftIO $ setObjectPropertyString obj "menu-name" (Nothing :: Maybe T.Text) + data ModelButtonMenuNamePropertyInfo instance AttrInfo ModelButtonMenuNamePropertyInfo where - type AttrAllowedOps ModelButtonMenuNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps ModelButtonMenuNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ModelButtonMenuNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint ModelButtonMenuNamePropertyInfo = ModelButtonK - type AttrGetType ModelButtonMenuNamePropertyInfo = T.Text + type AttrGetType ModelButtonMenuNamePropertyInfo = (Maybe T.Text) type AttrLabel ModelButtonMenuNamePropertyInfo = "menu-name" attrGet _ = getModelButtonMenuName attrSet _ = setModelButtonMenuName attrConstruct _ = constructModelButtonMenuName + attrClear _ = clearModelButtonMenuName -- VVV Prop "role" -- Type: TInterface "Gtk" "ButtonRole" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getModelButtonRole :: (MonadIO m, ModelButtonK o) => o -> m ButtonRole getModelButtonRole obj = liftIO $ getObjectPropertyEnum obj "role" @@ -643,34 +673,64 @@ attrGet _ = getModelButtonRole attrSet _ = setModelButtonRole attrConstruct _ = constructModelButtonRole + attrClear _ = undefined -- VVV Prop "text" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getModelButtonText :: (MonadIO m, ModelButtonK o) => o -> m T.Text +getModelButtonText :: (MonadIO m, ModelButtonK o) => o -> m (Maybe T.Text) getModelButtonText obj = liftIO $ getObjectPropertyString obj "text" setModelButtonText :: (MonadIO m, ModelButtonK o) => o -> T.Text -> m () -setModelButtonText obj val = liftIO $ setObjectPropertyString obj "text" val +setModelButtonText obj val = liftIO $ setObjectPropertyString obj "text" (Just val) constructModelButtonText :: T.Text -> IO ([Char], GValue) -constructModelButtonText val = constructObjectPropertyString "text" val +constructModelButtonText val = constructObjectPropertyString "text" (Just val) +clearModelButtonText :: (MonadIO m, ModelButtonK o) => o -> m () +clearModelButtonText obj = liftIO $ setObjectPropertyString obj "text" (Nothing :: Maybe T.Text) + data ModelButtonTextPropertyInfo instance AttrInfo ModelButtonTextPropertyInfo where - type AttrAllowedOps ModelButtonTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps ModelButtonTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ModelButtonTextPropertyInfo = (~) T.Text type AttrBaseTypeConstraint ModelButtonTextPropertyInfo = ModelButtonK - type AttrGetType ModelButtonTextPropertyInfo = T.Text + type AttrGetType ModelButtonTextPropertyInfo = (Maybe T.Text) type AttrLabel ModelButtonTextPropertyInfo = "text" attrGet _ = getModelButtonText attrSet _ = setModelButtonText attrConstruct _ = constructModelButtonText + attrClear _ = clearModelButtonText type instance AttributeList ModelButton = ModelButtonAttributeList type ModelButtonAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("active", ModelButtonActivePropertyInfo), '("alwaysShowImage", ButtonAlwaysShowImagePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("centered", ModelButtonCenteredPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnClick", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("icon", ModelButtonIconPropertyInfo), '("iconic", ModelButtonIconicPropertyInfo), '("image", ButtonImagePropertyInfo), '("imagePosition", ButtonImagePositionPropertyInfo), '("inverted", ModelButtonInvertedPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("menuName", ModelButtonMenuNamePropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("role", ModelButtonRolePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("text", ModelButtonTextPropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useStock", ButtonUseStockPropertyInfo), '("useUnderline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) +modelButtonActive :: AttrLabelProxy "active" +modelButtonActive = AttrLabelProxy + +modelButtonCentered :: AttrLabelProxy "centered" +modelButtonCentered = AttrLabelProxy + +modelButtonIcon :: AttrLabelProxy "icon" +modelButtonIcon = AttrLabelProxy + +modelButtonIconic :: AttrLabelProxy "iconic" +modelButtonIconic = AttrLabelProxy + +modelButtonInverted :: AttrLabelProxy "inverted" +modelButtonInverted = AttrLabelProxy + +modelButtonMenuName :: AttrLabelProxy "menuName" +modelButtonMenuName = AttrLabelProxy + +modelButtonRole :: AttrLabelProxy "role" +modelButtonRole = AttrLabelProxy + +modelButtonText :: AttrLabelProxy "text" +modelButtonText = AttrLabelProxy + type instance SignalList ModelButton = ModelButtonSignalList type ModelButtonSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -678,7 +738,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "ModelButton" +-- returnType : Just (TInterface "Gtk" "ModelButton") -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/ModelButton.hs-boot b/GI/Gtk/Objects/ModelButton.hs-boot --- a/GI/Gtk/Objects/ModelButton.hs-boot +++ b/GI/Gtk/Objects/ModelButton.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.ModelButton where -import Prelude () 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 diff --git a/GI/Gtk/Objects/MountOperation.hs b/GI/Gtk/Objects/MountOperation.hs --- a/GI/Gtk/Objects/MountOperation.hs +++ b/GI/Gtk/Objects/MountOperation.hs @@ -56,8 +56,10 @@ -- ** Parent MountOperationParentPropertyInfo , + clearMountOperationParent , constructMountOperationParent , getMountOperationParent , + mountOperationParent , setMountOperationParent , @@ -65,6 +67,7 @@ MountOperationScreenPropertyInfo , constructMountOperationScreen , getMountOperationScreen , + mountOperationScreen , setMountOperationScreen , @@ -72,9 +75,9 @@ ) where -import Prelude () 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 @@ -160,6 +163,7 @@ -- VVV Prop "is-showing" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) getMountOperationIsShowing :: (MonadIO m, MountOperationK o) => o -> m Bool getMountOperationIsShowing obj = liftIO $ getObjectPropertyBool obj "is-showing" @@ -174,23 +178,28 @@ attrGet _ = getMountOperationIsShowing attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "parent" -- Type: TInterface "Gtk" "Window" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) getMountOperationParent :: (MonadIO m, MountOperationK o) => o -> m Window -getMountOperationParent obj = liftIO $ getObjectPropertyObject obj "parent" Window +getMountOperationParent obj = liftIO $ checkUnexpectedNothing "getMountOperationParent" $ getObjectPropertyObject obj "parent" Window setMountOperationParent :: (MonadIO m, MountOperationK o, WindowK a) => o -> a -> m () -setMountOperationParent obj val = liftIO $ setObjectPropertyObject obj "parent" val +setMountOperationParent obj val = liftIO $ setObjectPropertyObject obj "parent" (Just val) constructMountOperationParent :: (WindowK a) => a -> IO ([Char], GValue) -constructMountOperationParent val = constructObjectPropertyObject "parent" val +constructMountOperationParent val = constructObjectPropertyObject "parent" (Just val) +clearMountOperationParent :: (MonadIO m, MountOperationK o) => o -> m () +clearMountOperationParent obj = liftIO $ setObjectPropertyObject obj "parent" (Nothing :: Maybe Window) + data MountOperationParentPropertyInfo instance AttrInfo MountOperationParentPropertyInfo where - type AttrAllowedOps MountOperationParentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps MountOperationParentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint MountOperationParentPropertyInfo = WindowK type AttrBaseTypeConstraint MountOperationParentPropertyInfo = MountOperationK type AttrGetType MountOperationParentPropertyInfo = Window @@ -198,19 +207,21 @@ attrGet _ = getMountOperationParent attrSet _ = setMountOperationParent attrConstruct _ = constructMountOperationParent + attrClear _ = clearMountOperationParent -- VVV Prop "screen" -- Type: TInterface "Gdk" "Screen" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getMountOperationScreen :: (MonadIO m, MountOperationK o) => o -> m Gdk.Screen -getMountOperationScreen obj = liftIO $ getObjectPropertyObject obj "screen" Gdk.Screen +getMountOperationScreen obj = liftIO $ checkUnexpectedNothing "getMountOperationScreen" $ getObjectPropertyObject obj "screen" Gdk.Screen setMountOperationScreen :: (MonadIO m, MountOperationK o, Gdk.ScreenK a) => o -> a -> m () -setMountOperationScreen obj val = liftIO $ setObjectPropertyObject obj "screen" val +setMountOperationScreen obj val = liftIO $ setObjectPropertyObject obj "screen" (Just val) constructMountOperationScreen :: (Gdk.ScreenK a) => a -> IO ([Char], GValue) -constructMountOperationScreen val = constructObjectPropertyObject "screen" val +constructMountOperationScreen val = constructObjectPropertyObject "screen" (Just val) data MountOperationScreenPropertyInfo instance AttrInfo MountOperationScreenPropertyInfo where @@ -222,10 +233,17 @@ attrGet _ = getMountOperationScreen attrSet _ = setMountOperationScreen attrConstruct _ = constructMountOperationScreen + attrClear _ = undefined type instance AttributeList MountOperation = MountOperationAttributeList type MountOperationAttributeList = ('[ '("anonymous", Gio.MountOperationAnonymousPropertyInfo), '("choice", Gio.MountOperationChoicePropertyInfo), '("domain", Gio.MountOperationDomainPropertyInfo), '("isShowing", MountOperationIsShowingPropertyInfo), '("parent", MountOperationParentPropertyInfo), '("password", Gio.MountOperationPasswordPropertyInfo), '("passwordSave", Gio.MountOperationPasswordSavePropertyInfo), '("screen", MountOperationScreenPropertyInfo), '("username", Gio.MountOperationUsernamePropertyInfo)] :: [(Symbol, *)]) +mountOperationParent :: AttrLabelProxy "parent" +mountOperationParent = AttrLabelProxy + +mountOperationScreen :: AttrLabelProxy "screen" +mountOperationScreen = AttrLabelProxy + type instance SignalList MountOperation = MountOperationSignalList type MountOperationSignalList = ('[ '("aborted", Gio.MountOperationAbortedSignalInfo), '("askPassword", Gio.MountOperationAskPasswordSignalInfo), '("askQuestion", Gio.MountOperationAskQuestionSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("reply", Gio.MountOperationReplySignalInfo), '("showProcesses", Gio.MountOperationShowProcessesSignalInfo), '("showUnmountProgress", Gio.MountOperationShowUnmountProgressSignalInfo)] :: [(Symbol, *)]) @@ -233,7 +251,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "MountOperation" +-- returnType : Just (TInterface "Gtk" "MountOperation") -- throws : False -- Skip return : False @@ -262,7 +280,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Window" +-- returnType : Just (TInterface "Gtk" "Window") -- throws : False -- Skip return : False @@ -291,7 +309,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gdk" "Screen" +-- returnType : Just (TInterface "Gdk" "Screen") -- throws : False -- Skip return : False @@ -320,7 +338,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -348,7 +366,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -383,7 +401,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "MountOperation", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/MountOperation.hs-boot b/GI/Gtk/Objects/MountOperation.hs-boot --- a/GI/Gtk/Objects/MountOperation.hs-boot +++ b/GI/Gtk/Objects/MountOperation.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.MountOperation where -import Prelude () 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 diff --git a/GI/Gtk/Objects/Notebook.hs b/GI/Gtk/Objects/Notebook.hs --- a/GI/Gtk/Objects/Notebook.hs +++ b/GI/Gtk/Objects/Notebook.hs @@ -248,13 +248,16 @@ NotebookEnablePopupPropertyInfo , constructNotebookEnablePopup , getNotebookEnablePopup , + notebookEnablePopup , setNotebookEnablePopup , -- ** GroupName NotebookGroupNamePropertyInfo , + clearNotebookGroupName , constructNotebookGroupName , getNotebookGroupName , + notebookGroupName , setNotebookGroupName , @@ -262,6 +265,7 @@ NotebookPagePropertyInfo , constructNotebookPage , getNotebookPage , + notebookPage , setNotebookPage , @@ -269,6 +273,7 @@ NotebookScrollablePropertyInfo , constructNotebookScrollable , getNotebookScrollable , + notebookScrollable , setNotebookScrollable , @@ -276,6 +281,7 @@ NotebookShowBorderPropertyInfo , constructNotebookShowBorder , getNotebookShowBorder , + notebookShowBorder , setNotebookShowBorder , @@ -283,6 +289,7 @@ NotebookShowTabsPropertyInfo , constructNotebookShowTabs , getNotebookShowTabs , + notebookShowTabs , setNotebookShowTabs , @@ -290,6 +297,7 @@ NotebookTabPosPropertyInfo , constructNotebookTabPos , getNotebookTabPos , + notebookTabPos , setNotebookTabPos , @@ -420,9 +428,9 @@ ) where -import Prelude () 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 @@ -1273,6 +1281,7 @@ -- VVV Prop "enable-popup" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getNotebookEnablePopup :: (MonadIO m, NotebookK o) => o -> m Bool getNotebookEnablePopup obj = liftIO $ getObjectPropertyBool obj "enable-popup" @@ -1293,23 +1302,28 @@ attrGet _ = getNotebookEnablePopup attrSet _ = setNotebookEnablePopup attrConstruct _ = constructNotebookEnablePopup + attrClear _ = undefined -- VVV Prop "group-name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) getNotebookGroupName :: (MonadIO m, NotebookK o) => o -> m T.Text -getNotebookGroupName obj = liftIO $ getObjectPropertyString obj "group-name" +getNotebookGroupName obj = liftIO $ checkUnexpectedNothing "getNotebookGroupName" $ getObjectPropertyString obj "group-name" setNotebookGroupName :: (MonadIO m, NotebookK o) => o -> T.Text -> m () -setNotebookGroupName obj val = liftIO $ setObjectPropertyString obj "group-name" val +setNotebookGroupName obj val = liftIO $ setObjectPropertyString obj "group-name" (Just val) constructNotebookGroupName :: T.Text -> IO ([Char], GValue) -constructNotebookGroupName val = constructObjectPropertyString "group-name" val +constructNotebookGroupName val = constructObjectPropertyString "group-name" (Just val) +clearNotebookGroupName :: (MonadIO m, NotebookK o) => o -> m () +clearNotebookGroupName obj = liftIO $ setObjectPropertyString obj "group-name" (Nothing :: Maybe T.Text) + data NotebookGroupNamePropertyInfo instance AttrInfo NotebookGroupNamePropertyInfo where - type AttrAllowedOps NotebookGroupNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps NotebookGroupNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint NotebookGroupNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint NotebookGroupNamePropertyInfo = NotebookK type AttrGetType NotebookGroupNamePropertyInfo = T.Text @@ -1317,19 +1331,21 @@ attrGet _ = getNotebookGroupName attrSet _ = setNotebookGroupName attrConstruct _ = constructNotebookGroupName + attrClear _ = clearNotebookGroupName -- VVV Prop "page" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getNotebookPage :: (MonadIO m, NotebookK o) => o -> m Int32 -getNotebookPage obj = liftIO $ getObjectPropertyCInt obj "page" +getNotebookPage obj = liftIO $ getObjectPropertyInt32 obj "page" setNotebookPage :: (MonadIO m, NotebookK o) => o -> Int32 -> m () -setNotebookPage obj val = liftIO $ setObjectPropertyCInt obj "page" val +setNotebookPage obj val = liftIO $ setObjectPropertyInt32 obj "page" val constructNotebookPage :: Int32 -> IO ([Char], GValue) -constructNotebookPage val = constructObjectPropertyCInt "page" val +constructNotebookPage val = constructObjectPropertyInt32 "page" val data NotebookPagePropertyInfo instance AttrInfo NotebookPagePropertyInfo where @@ -1341,10 +1357,12 @@ attrGet _ = getNotebookPage attrSet _ = setNotebookPage attrConstruct _ = constructNotebookPage + attrClear _ = undefined -- VVV Prop "scrollable" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getNotebookScrollable :: (MonadIO m, NotebookK o) => o -> m Bool getNotebookScrollable obj = liftIO $ getObjectPropertyBool obj "scrollable" @@ -1365,10 +1383,12 @@ attrGet _ = getNotebookScrollable attrSet _ = setNotebookScrollable attrConstruct _ = constructNotebookScrollable + attrClear _ = undefined -- VVV Prop "show-border" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getNotebookShowBorder :: (MonadIO m, NotebookK o) => o -> m Bool getNotebookShowBorder obj = liftIO $ getObjectPropertyBool obj "show-border" @@ -1389,10 +1409,12 @@ attrGet _ = getNotebookShowBorder attrSet _ = setNotebookShowBorder attrConstruct _ = constructNotebookShowBorder + attrClear _ = undefined -- VVV Prop "show-tabs" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getNotebookShowTabs :: (MonadIO m, NotebookK o) => o -> m Bool getNotebookShowTabs obj = liftIO $ getObjectPropertyBool obj "show-tabs" @@ -1413,10 +1435,12 @@ attrGet _ = getNotebookShowTabs attrSet _ = setNotebookShowTabs attrConstruct _ = constructNotebookShowTabs + attrClear _ = undefined -- VVV Prop "tab-pos" -- Type: TInterface "Gtk" "PositionType" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getNotebookTabPos :: (MonadIO m, NotebookK o) => o -> m PositionType getNotebookTabPos obj = liftIO $ getObjectPropertyEnum obj "tab-pos" @@ -1437,10 +1461,32 @@ attrGet _ = getNotebookTabPos attrSet _ = setNotebookTabPos attrConstruct _ = constructNotebookTabPos + attrClear _ = undefined type instance AttributeList Notebook = NotebookAttributeList type NotebookAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("enablePopup", NotebookEnablePopupPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("groupName", NotebookGroupNamePropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("page", NotebookPagePropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("scrollable", NotebookScrollablePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showBorder", NotebookShowBorderPropertyInfo), '("showTabs", NotebookShowTabsPropertyInfo), '("style", WidgetStylePropertyInfo), '("tabPos", NotebookTabPosPropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +notebookEnablePopup :: AttrLabelProxy "enablePopup" +notebookEnablePopup = AttrLabelProxy + +notebookGroupName :: AttrLabelProxy "groupName" +notebookGroupName = AttrLabelProxy + +notebookPage :: AttrLabelProxy "page" +notebookPage = AttrLabelProxy + +notebookScrollable :: AttrLabelProxy "scrollable" +notebookScrollable = AttrLabelProxy + +notebookShowBorder :: AttrLabelProxy "showBorder" +notebookShowBorder = AttrLabelProxy + +notebookShowTabs :: AttrLabelProxy "showTabs" +notebookShowTabs = AttrLabelProxy + +notebookTabPos :: AttrLabelProxy "tabPos" +notebookTabPos = AttrLabelProxy + data NotebookChangeCurrentPageSignalInfo instance SignalInfo NotebookChangeCurrentPageSignalInfo where type HaskellCallbackType NotebookChangeCurrentPageSignalInfo = NotebookChangeCurrentPageCallback @@ -1498,7 +1544,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "Notebook" +-- returnType : Just (TInterface "Gtk" "Notebook") -- throws : False -- Skip return : False @@ -1519,7 +1565,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1558,7 +1604,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menu_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1605,7 +1651,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1636,7 +1682,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pack_type", argType = TInterface "Gtk" "PackType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -1668,7 +1714,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1695,7 +1741,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1724,7 +1770,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -1757,7 +1803,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1790,7 +1836,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1815,15 +1861,15 @@ -- method Notebook::get_nth_page -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_num", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False foreign import ccall "gtk_notebook_get_nth_page" gtk_notebook_get_nth_page :: Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - Int32 -> -- page_num : TBasicType TInt32 + Int32 -> -- page_num : TBasicType TInt IO (Ptr Widget) @@ -1848,7 +1894,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1876,7 +1922,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1904,7 +1950,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1932,7 +1978,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1964,7 +2010,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt16 +-- returnType : Just (TBasicType TUInt16) -- throws : False -- Skip return : False @@ -1991,7 +2037,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -2024,7 +2070,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -2057,7 +2103,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "PositionType" +-- returnType : Just (TInterface "Gtk" "PositionType") -- throws : False -- Skip return : False @@ -2085,7 +2131,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2117,7 +2163,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt16 +-- returnType : Just (TBasicType TUInt16) -- throws : False -- Skip return : False @@ -2142,9 +2188,9 @@ -- method Notebook::insert_page -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -2152,7 +2198,7 @@ Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" Ptr Widget -> -- child : TInterface "Gtk" "Widget" Ptr Widget -> -- tab_label : TInterface "Gtk" "Widget" - Int32 -> -- position : TBasicType TInt32 + Int32 -> -- position : TBasicType TInt IO Int32 @@ -2183,9 +2229,9 @@ -- method Notebook::insert_page_menu -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menu_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menu_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -2194,7 +2240,7 @@ Ptr Widget -> -- child : TInterface "Gtk" "Widget" Ptr Widget -> -- tab_label : TInterface "Gtk" "Widget" Ptr Widget -> -- menu_label : TInterface "Gtk" "Widget" - Int32 -> -- position : TBasicType TInt32 + Int32 -> -- position : TBasicType TInt IO Int32 @@ -2234,7 +2280,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2261,7 +2307,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -2292,7 +2338,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2319,7 +2365,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2346,7 +2392,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -2385,7 +2431,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menu_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -2432,7 +2478,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2457,15 +2503,15 @@ -- method Notebook::remove_page -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_num", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_notebook_remove_page" gtk_notebook_remove_page :: Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - Int32 -> -- page_num : TBasicType TInt32 + Int32 -> -- page_num : TBasicType TInt IO () @@ -2486,16 +2532,16 @@ -- method Notebook::reorder_child -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_notebook_reorder_child" gtk_notebook_reorder_child :: Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" Ptr Widget -> -- child : TInterface "Gtk" "Widget" - Int32 -> -- position : TBasicType TInt32 + Int32 -> -- position : TBasicType TInt IO () @@ -2521,7 +2567,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pack_type", argType = TInterface "Gtk" "PackType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2553,15 +2599,15 @@ -- method Notebook::set_current_page -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_num", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_notebook_set_current_page" gtk_notebook_set_current_page :: Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - Int32 -> -- page_num : TBasicType TInt32 + Int32 -> -- page_num : TBasicType TInt IO () @@ -2584,7 +2630,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2619,7 +2665,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menu_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2658,7 +2704,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menu_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2693,7 +2739,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scrollable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2723,7 +2769,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_border", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2753,7 +2799,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_tabs", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2783,7 +2829,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detachable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2817,7 +2863,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2856,7 +2902,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tab_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2891,7 +2937,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2921,7 +2967,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "reorderable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/Notebook.hs-boot b/GI/Gtk/Objects/Notebook.hs-boot --- a/GI/Gtk/Objects/Notebook.hs-boot +++ b/GI/Gtk/Objects/Notebook.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.Notebook where -import Prelude () 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 diff --git a/GI/Gtk/Objects/NotebookAccessible.hs b/GI/Gtk/Objects/NotebookAccessible.hs --- a/GI/Gtk/Objects/NotebookAccessible.hs +++ b/GI/Gtk/Objects/NotebookAccessible.hs @@ -18,9 +18,9 @@ ) where -import Prelude () 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 diff --git a/GI/Gtk/Objects/NotebookAccessible.hs-boot b/GI/Gtk/Objects/NotebookAccessible.hs-boot --- a/GI/Gtk/Objects/NotebookAccessible.hs-boot +++ b/GI/Gtk/Objects/NotebookAccessible.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.NotebookAccessible where -import Prelude () 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 diff --git a/GI/Gtk/Objects/NotebookPageAccessible.hs b/GI/Gtk/Objects/NotebookPageAccessible.hs --- a/GI/Gtk/Objects/NotebookPageAccessible.hs +++ b/GI/Gtk/Objects/NotebookPageAccessible.hs @@ -30,9 +30,9 @@ ) where -import Prelude () 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 @@ -139,7 +139,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "notebook", argType = TInterface "Gtk" "NotebookAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "NotebookPageAccessible" +-- returnType : Just (TInterface "Gtk" "NotebookPageAccessible") -- throws : False -- Skip return : False @@ -168,7 +168,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "NotebookPageAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/NotebookPageAccessible.hs-boot b/GI/Gtk/Objects/NotebookPageAccessible.hs-boot --- a/GI/Gtk/Objects/NotebookPageAccessible.hs-boot +++ b/GI/Gtk/Objects/NotebookPageAccessible.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.NotebookPageAccessible where -import Prelude () 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 diff --git a/GI/Gtk/Objects/NumerableIcon.hs b/GI/Gtk/Objects/NumerableIcon.hs --- a/GI/Gtk/Objects/NumerableIcon.hs +++ b/GI/Gtk/Objects/NumerableIcon.hs @@ -80,15 +80,19 @@ -- * Properties -- ** BackgroundIcon NumerableIconBackgroundIconPropertyInfo , + clearNumerableIconBackgroundIcon , constructNumerableIconBackgroundIcon , getNumerableIconBackgroundIcon , + numerableIconBackgroundIcon , setNumerableIconBackgroundIcon , -- ** BackgroundIconName NumerableIconBackgroundIconNamePropertyInfo, + clearNumerableIconBackgroundIconName , constructNumerableIconBackgroundIconName, getNumerableIconBackgroundIconName , + numerableIconBackgroundIconName , setNumerableIconBackgroundIconName , @@ -96,13 +100,16 @@ NumerableIconCountPropertyInfo , constructNumerableIconCount , getNumerableIconCount , + numerableIconCount , setNumerableIconCount , -- ** Label NumerableIconLabelPropertyInfo , + clearNumerableIconLabel , constructNumerableIconLabel , getNumerableIconLabel , + numerableIconLabel , setNumerableIconLabel , @@ -110,6 +117,7 @@ NumerableIconStyleContextPropertyInfo , constructNumerableIconStyleContext , getNumerableIconStyleContext , + numerableIconStyleContext , setNumerableIconStyleContext , @@ -117,9 +125,9 @@ ) where -import Prelude () 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 @@ -203,43 +211,52 @@ -- VVV Prop "background-icon" -- Type: TInterface "Gio" "Icon" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getNumerableIconBackgroundIcon :: (MonadIO m, NumerableIconK o) => o -> m Gio.Icon +getNumerableIconBackgroundIcon :: (MonadIO m, NumerableIconK o) => o -> m (Maybe Gio.Icon) getNumerableIconBackgroundIcon obj = liftIO $ getObjectPropertyObject obj "background-icon" Gio.Icon setNumerableIconBackgroundIcon :: (MonadIO m, NumerableIconK o, Gio.IconK a) => o -> a -> m () -setNumerableIconBackgroundIcon obj val = liftIO $ setObjectPropertyObject obj "background-icon" val +setNumerableIconBackgroundIcon obj val = liftIO $ setObjectPropertyObject obj "background-icon" (Just val) constructNumerableIconBackgroundIcon :: (Gio.IconK a) => a -> IO ([Char], GValue) -constructNumerableIconBackgroundIcon val = constructObjectPropertyObject "background-icon" val +constructNumerableIconBackgroundIcon val = constructObjectPropertyObject "background-icon" (Just val) +clearNumerableIconBackgroundIcon :: (MonadIO m, NumerableIconK o) => o -> m () +clearNumerableIconBackgroundIcon obj = liftIO $ setObjectPropertyObject obj "background-icon" (Nothing :: Maybe Gio.Icon) + data NumerableIconBackgroundIconPropertyInfo instance AttrInfo NumerableIconBackgroundIconPropertyInfo where - type AttrAllowedOps NumerableIconBackgroundIconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps NumerableIconBackgroundIconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint NumerableIconBackgroundIconPropertyInfo = Gio.IconK type AttrBaseTypeConstraint NumerableIconBackgroundIconPropertyInfo = NumerableIconK - type AttrGetType NumerableIconBackgroundIconPropertyInfo = Gio.Icon + type AttrGetType NumerableIconBackgroundIconPropertyInfo = (Maybe Gio.Icon) type AttrLabel NumerableIconBackgroundIconPropertyInfo = "background-icon" attrGet _ = getNumerableIconBackgroundIcon attrSet _ = setNumerableIconBackgroundIcon attrConstruct _ = constructNumerableIconBackgroundIcon + attrClear _ = clearNumerableIconBackgroundIcon -- VVV Prop "background-icon-name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) getNumerableIconBackgroundIconName :: (MonadIO m, NumerableIconK o) => o -> m T.Text -getNumerableIconBackgroundIconName obj = liftIO $ getObjectPropertyString obj "background-icon-name" +getNumerableIconBackgroundIconName obj = liftIO $ checkUnexpectedNothing "getNumerableIconBackgroundIconName" $ getObjectPropertyString obj "background-icon-name" setNumerableIconBackgroundIconName :: (MonadIO m, NumerableIconK o) => o -> T.Text -> m () -setNumerableIconBackgroundIconName obj val = liftIO $ setObjectPropertyString obj "background-icon-name" val +setNumerableIconBackgroundIconName obj val = liftIO $ setObjectPropertyString obj "background-icon-name" (Just val) constructNumerableIconBackgroundIconName :: T.Text -> IO ([Char], GValue) -constructNumerableIconBackgroundIconName val = constructObjectPropertyString "background-icon-name" val +constructNumerableIconBackgroundIconName val = constructObjectPropertyString "background-icon-name" (Just val) +clearNumerableIconBackgroundIconName :: (MonadIO m, NumerableIconK o) => o -> m () +clearNumerableIconBackgroundIconName obj = liftIO $ setObjectPropertyString obj "background-icon-name" (Nothing :: Maybe T.Text) + data NumerableIconBackgroundIconNamePropertyInfo instance AttrInfo NumerableIconBackgroundIconNamePropertyInfo where - type AttrAllowedOps NumerableIconBackgroundIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps NumerableIconBackgroundIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint NumerableIconBackgroundIconNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint NumerableIconBackgroundIconNamePropertyInfo = NumerableIconK type AttrGetType NumerableIconBackgroundIconNamePropertyInfo = T.Text @@ -247,19 +264,21 @@ attrGet _ = getNumerableIconBackgroundIconName attrSet _ = setNumerableIconBackgroundIconName attrConstruct _ = constructNumerableIconBackgroundIconName + attrClear _ = clearNumerableIconBackgroundIconName -- VVV Prop "count" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getNumerableIconCount :: (MonadIO m, NumerableIconK o) => o -> m Int32 -getNumerableIconCount obj = liftIO $ getObjectPropertyCInt obj "count" +getNumerableIconCount obj = liftIO $ getObjectPropertyInt32 obj "count" setNumerableIconCount :: (MonadIO m, NumerableIconK o) => o -> Int32 -> m () -setNumerableIconCount obj val = liftIO $ setObjectPropertyCInt obj "count" val +setNumerableIconCount obj val = liftIO $ setObjectPropertyInt32 obj "count" val constructNumerableIconCount :: Int32 -> IO ([Char], GValue) -constructNumerableIconCount val = constructObjectPropertyCInt "count" val +constructNumerableIconCount val = constructObjectPropertyInt32 "count" val data NumerableIconCountPropertyInfo instance AttrInfo NumerableIconCountPropertyInfo where @@ -271,23 +290,28 @@ attrGet _ = getNumerableIconCount attrSet _ = setNumerableIconCount attrConstruct _ = constructNumerableIconCount + attrClear _ = undefined -- VVV Prop "label" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) getNumerableIconLabel :: (MonadIO m, NumerableIconK o) => o -> m T.Text -getNumerableIconLabel obj = liftIO $ getObjectPropertyString obj "label" +getNumerableIconLabel obj = liftIO $ checkUnexpectedNothing "getNumerableIconLabel" $ getObjectPropertyString obj "label" setNumerableIconLabel :: (MonadIO m, NumerableIconK o) => o -> T.Text -> m () -setNumerableIconLabel obj val = liftIO $ setObjectPropertyString obj "label" val +setNumerableIconLabel obj val = liftIO $ setObjectPropertyString obj "label" (Just val) constructNumerableIconLabel :: T.Text -> IO ([Char], GValue) -constructNumerableIconLabel val = constructObjectPropertyString "label" val +constructNumerableIconLabel val = constructObjectPropertyString "label" (Just val) +clearNumerableIconLabel :: (MonadIO m, NumerableIconK o) => o -> m () +clearNumerableIconLabel obj = liftIO $ setObjectPropertyString obj "label" (Nothing :: Maybe T.Text) + data NumerableIconLabelPropertyInfo instance AttrInfo NumerableIconLabelPropertyInfo where - type AttrAllowedOps NumerableIconLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps NumerableIconLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint NumerableIconLabelPropertyInfo = (~) T.Text type AttrBaseTypeConstraint NumerableIconLabelPropertyInfo = NumerableIconK type AttrGetType NumerableIconLabelPropertyInfo = T.Text @@ -295,19 +319,21 @@ attrGet _ = getNumerableIconLabel attrSet _ = setNumerableIconLabel attrConstruct _ = constructNumerableIconLabel + attrClear _ = clearNumerableIconLabel -- VVV Prop "style-context" -- Type: TInterface "Gtk" "StyleContext" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getNumerableIconStyleContext :: (MonadIO m, NumerableIconK o) => o -> m StyleContext -getNumerableIconStyleContext obj = liftIO $ getObjectPropertyObject obj "style-context" StyleContext +getNumerableIconStyleContext obj = liftIO $ checkUnexpectedNothing "getNumerableIconStyleContext" $ getObjectPropertyObject obj "style-context" StyleContext setNumerableIconStyleContext :: (MonadIO m, NumerableIconK o, StyleContextK a) => o -> a -> m () -setNumerableIconStyleContext obj val = liftIO $ setObjectPropertyObject obj "style-context" val +setNumerableIconStyleContext obj val = liftIO $ setObjectPropertyObject obj "style-context" (Just val) constructNumerableIconStyleContext :: (StyleContextK a) => a -> IO ([Char], GValue) -constructNumerableIconStyleContext val = constructObjectPropertyObject "style-context" val +constructNumerableIconStyleContext val = constructObjectPropertyObject "style-context" (Just val) data NumerableIconStyleContextPropertyInfo instance AttrInfo NumerableIconStyleContextPropertyInfo where @@ -319,10 +345,26 @@ attrGet _ = getNumerableIconStyleContext attrSet _ = setNumerableIconStyleContext attrConstruct _ = constructNumerableIconStyleContext + attrClear _ = undefined type instance AttributeList NumerableIcon = NumerableIconAttributeList type NumerableIconAttributeList = ('[ '("backgroundIcon", NumerableIconBackgroundIconPropertyInfo), '("backgroundIconName", NumerableIconBackgroundIconNamePropertyInfo), '("count", NumerableIconCountPropertyInfo), '("gicon", Gio.EmblemedIconGiconPropertyInfo), '("label", NumerableIconLabelPropertyInfo), '("styleContext", NumerableIconStyleContextPropertyInfo)] :: [(Symbol, *)]) +numerableIconBackgroundIcon :: AttrLabelProxy "backgroundIcon" +numerableIconBackgroundIcon = AttrLabelProxy + +numerableIconBackgroundIconName :: AttrLabelProxy "backgroundIconName" +numerableIconBackgroundIconName = AttrLabelProxy + +numerableIconCount :: AttrLabelProxy "count" +numerableIconCount = AttrLabelProxy + +numerableIconLabel :: AttrLabelProxy "label" +numerableIconLabel = AttrLabelProxy + +numerableIconStyleContext :: AttrLabelProxy "styleContext" +numerableIconStyleContext = AttrLabelProxy + type instance SignalList NumerableIcon = NumerableIconSignalList type NumerableIconSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -330,7 +372,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gio" "Icon" +-- returnType : Just (TInterface "Gio" "Icon") -- throws : False -- Skip return : False @@ -359,7 +401,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -388,7 +430,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -415,7 +457,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -444,7 +486,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "StyleContext" +-- returnType : Just (TInterface "Gtk" "StyleContext") -- throws : False -- Skip return : False @@ -473,7 +515,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "NumerableIcon", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -508,7 +550,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "NumerableIcon", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -541,15 +583,15 @@ -- method NumerableIcon::set_count -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_numerable_icon_set_count" gtk_numerable_icon_set_count :: Ptr NumerableIcon -> -- _obj : TInterface "Gtk" "NumerableIcon" - Int32 -> -- count : TBasicType TInt32 + Int32 -> -- count : TBasicType TInt IO () {-# DEPRECATED numerableIconSetCount ["(Since version 3.14)"]#-} @@ -572,7 +614,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -607,7 +649,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "style", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -638,7 +680,7 @@ -- method type : MemberFunction -- Args : [Arg {argCName = "base_icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gio" "Icon" +-- returnType : Just (TInterface "Gio" "Icon") -- throws : False -- Skip return : False @@ -663,7 +705,7 @@ -- method type : MemberFunction -- Args : [Arg {argCName = "base_icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gio" "Icon" +-- returnType : Just (TInterface "Gio" "Icon") -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/NumerableIcon.hs-boot b/GI/Gtk/Objects/NumerableIcon.hs-boot --- a/GI/Gtk/Objects/NumerableIcon.hs-boot +++ b/GI/Gtk/Objects/NumerableIcon.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.NumerableIcon where -import Prelude () 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 diff --git a/GI/Gtk/Objects/OffscreenWindow.hs b/GI/Gtk/Objects/OffscreenWindow.hs --- a/GI/Gtk/Objects/OffscreenWindow.hs +++ b/GI/Gtk/Objects/OffscreenWindow.hs @@ -35,9 +35,9 @@ ) where -import Prelude () 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 @@ -506,7 +506,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "OffscreenWindow" +-- returnType : Just (TInterface "Gtk" "OffscreenWindow") -- throws : False -- Skip return : False @@ -527,7 +527,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "OffscreenWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : False -- Skip return : False @@ -556,7 +556,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "OffscreenWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "cairo" "Surface" +-- returnType : Just (TInterface "cairo" "Surface") -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/OffscreenWindow.hs-boot b/GI/Gtk/Objects/OffscreenWindow.hs-boot --- a/GI/Gtk/Objects/OffscreenWindow.hs-boot +++ b/GI/Gtk/Objects/OffscreenWindow.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.OffscreenWindow where -import Prelude () 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 diff --git a/GI/Gtk/Objects/Overlay.hs b/GI/Gtk/Objects/Overlay.hs --- a/GI/Gtk/Objects/Overlay.hs +++ b/GI/Gtk/Objects/Overlay.hs @@ -45,9 +45,9 @@ ) where -import Prelude () 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 @@ -415,7 +415,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "Overlay" +-- returnType : Just (TInterface "Gtk" "Overlay") -- throws : False -- Skip return : False @@ -436,7 +436,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Overlay", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -467,7 +467,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Overlay", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -497,16 +497,16 @@ -- method Overlay::reorder_overlay -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Overlay", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Overlay", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_overlay_reorder_overlay" gtk_overlay_reorder_overlay :: Ptr Overlay -> -- _obj : TInterface "Gtk" "Overlay" Ptr Widget -> -- child : TInterface "Gtk" "Widget" - Int32 -> -- position : TBasicType TInt32 + Int32 -> -- position : TBasicType TInt IO () @@ -532,7 +532,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Overlay", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/Overlay.hs-boot b/GI/Gtk/Objects/Overlay.hs-boot --- a/GI/Gtk/Objects/Overlay.hs-boot +++ b/GI/Gtk/Objects/Overlay.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.Overlay where -import Prelude () 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 diff --git a/GI/Gtk/Objects/PageSetup.hs b/GI/Gtk/Objects/PageSetup.hs --- a/GI/Gtk/Objects/PageSetup.hs +++ b/GI/Gtk/Objects/PageSetup.hs @@ -143,9 +143,9 @@ ) where -import Prelude () 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 @@ -241,7 +241,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "PageSetup" +-- returnType : Just (TInterface "Gtk" "PageSetup") -- throws : False -- Skip return : False @@ -262,7 +262,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "PageSetup" +-- returnType : Just (TInterface "Gtk" "PageSetup") -- throws : True -- Skip return : False @@ -292,7 +292,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "PageSetup" +-- returnType : Just (TInterface "Gtk" "PageSetup") -- throws : True -- Skip return : False @@ -330,7 +330,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "PageSetup" +-- returnType : Just (TInterface "Gtk" "PageSetup") -- throws : False -- Skip return : False @@ -359,7 +359,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -390,7 +390,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -421,7 +421,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "PageOrientation" +-- returnType : Just (TInterface "Gtk" "PageOrientation") -- throws : False -- Skip return : False @@ -449,7 +449,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -480,7 +480,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -511,7 +511,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -542,7 +542,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "PaperSize" +-- returnType : Just (TInterface "Gtk" "PaperSize") -- throws : False -- Skip return : False @@ -571,7 +571,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -602,7 +602,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -633,7 +633,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -664,7 +664,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -700,7 +700,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -744,7 +744,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -777,7 +777,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -810,7 +810,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "orientation", argType = TInterface "Gtk" "PageOrientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -840,7 +840,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -871,7 +871,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -902,7 +902,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -935,7 +935,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -968,7 +968,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -1004,7 +1004,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/PageSetup.hs-boot b/GI/Gtk/Objects/PageSetup.hs-boot --- a/GI/Gtk/Objects/PageSetup.hs-boot +++ b/GI/Gtk/Objects/PageSetup.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.PageSetup where -import Prelude () 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 diff --git a/GI/Gtk/Objects/Paned.hs b/GI/Gtk/Objects/Paned.hs --- a/GI/Gtk/Objects/Paned.hs +++ b/GI/Gtk/Objects/Paned.hs @@ -82,17 +82,20 @@ -- ** MaxPosition PanedMaxPositionPropertyInfo , getPanedMaxPosition , + panedMaxPosition , -- ** MinPosition PanedMinPositionPropertyInfo , getPanedMinPosition , + panedMinPosition , -- ** Position PanedPositionPropertyInfo , constructPanedPosition , getPanedPosition , + panedPosition , setPanedPosition , @@ -100,6 +103,7 @@ PanedPositionSetPropertyInfo , constructPanedPositionSet , getPanedPositionSet , + panedPositionSet , setPanedPositionSet , @@ -107,6 +111,7 @@ PanedWideHandlePropertyInfo , constructPanedWideHandle , getPanedWideHandle , + panedWideHandle , setPanedWideHandle , @@ -189,9 +194,9 @@ ) where -import Prelude () 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 @@ -811,11 +816,12 @@ connectSignalFunPtr obj "toggle-handle-focus" cb' after -- VVV Prop "max-position" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) getPanedMaxPosition :: (MonadIO m, PanedK o) => o -> m Int32 -getPanedMaxPosition obj = liftIO $ getObjectPropertyCInt obj "max-position" +getPanedMaxPosition obj = liftIO $ getObjectPropertyInt32 obj "max-position" data PanedMaxPositionPropertyInfo instance AttrInfo PanedMaxPositionPropertyInfo where @@ -827,13 +833,15 @@ attrGet _ = getPanedMaxPosition attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "min-position" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) getPanedMinPosition :: (MonadIO m, PanedK o) => o -> m Int32 -getPanedMinPosition obj = liftIO $ getObjectPropertyCInt obj "min-position" +getPanedMinPosition obj = liftIO $ getObjectPropertyInt32 obj "min-position" data PanedMinPositionPropertyInfo instance AttrInfo PanedMinPositionPropertyInfo where @@ -845,19 +853,21 @@ attrGet _ = getPanedMinPosition attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "position" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getPanedPosition :: (MonadIO m, PanedK o) => o -> m Int32 -getPanedPosition obj = liftIO $ getObjectPropertyCInt obj "position" +getPanedPosition obj = liftIO $ getObjectPropertyInt32 obj "position" setPanedPosition :: (MonadIO m, PanedK o) => o -> Int32 -> m () -setPanedPosition obj val = liftIO $ setObjectPropertyCInt obj "position" val +setPanedPosition obj val = liftIO $ setObjectPropertyInt32 obj "position" val constructPanedPosition :: Int32 -> IO ([Char], GValue) -constructPanedPosition val = constructObjectPropertyCInt "position" val +constructPanedPosition val = constructObjectPropertyInt32 "position" val data PanedPositionPropertyInfo instance AttrInfo PanedPositionPropertyInfo where @@ -869,10 +879,12 @@ attrGet _ = getPanedPosition attrSet _ = setPanedPosition attrConstruct _ = constructPanedPosition + attrClear _ = undefined -- VVV Prop "position-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getPanedPositionSet :: (MonadIO m, PanedK o) => o -> m Bool getPanedPositionSet obj = liftIO $ getObjectPropertyBool obj "position-set" @@ -893,10 +905,12 @@ attrGet _ = getPanedPositionSet attrSet _ = setPanedPositionSet attrConstruct _ = constructPanedPositionSet + attrClear _ = undefined -- VVV Prop "wide-handle" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getPanedWideHandle :: (MonadIO m, PanedK o) => o -> m Bool getPanedWideHandle obj = liftIO $ getObjectPropertyBool obj "wide-handle" @@ -917,10 +931,26 @@ attrGet _ = getPanedWideHandle attrSet _ = setPanedWideHandle attrConstruct _ = constructPanedWideHandle + attrClear _ = undefined type instance AttributeList Paned = PanedAttributeList type PanedAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("maxPosition", PanedMaxPositionPropertyInfo), '("minPosition", PanedMinPositionPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("position", PanedPositionPropertyInfo), '("positionSet", PanedPositionSetPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("wideHandle", PanedWideHandlePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +panedMaxPosition :: AttrLabelProxy "maxPosition" +panedMaxPosition = AttrLabelProxy + +panedMinPosition :: AttrLabelProxy "minPosition" +panedMinPosition = AttrLabelProxy + +panedPosition :: AttrLabelProxy "position" +panedPosition = AttrLabelProxy + +panedPositionSet :: AttrLabelProxy "positionSet" +panedPositionSet = AttrLabelProxy + +panedWideHandle :: AttrLabelProxy "wideHandle" +panedWideHandle = AttrLabelProxy + data PanedAcceptPositionSignalInfo instance SignalInfo PanedAcceptPositionSignalInfo where type HaskellCallbackType PanedAcceptPositionSignalInfo = PanedAcceptPositionCallback @@ -958,7 +988,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Paned" +-- returnType : Just (TInterface "Gtk" "Paned") -- throws : False -- Skip return : False @@ -982,7 +1012,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1013,7 +1043,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1044,7 +1074,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -1073,7 +1103,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -1102,7 +1132,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gdk" "Window" +-- returnType : Just (TInterface "Gdk" "Window") -- throws : False -- Skip return : False @@ -1131,7 +1161,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1158,7 +1188,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1186,7 +1216,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resize", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shrink", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1223,7 +1253,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resize", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shrink", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1258,15 +1288,15 @@ -- method Paned::set_position -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_paned_set_position" gtk_paned_set_position :: Ptr Paned -> -- _obj : TInterface "Gtk" "Paned" - Int32 -> -- position : TBasicType TInt32 + Int32 -> -- position : TBasicType TInt IO () @@ -1289,7 +1319,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wide", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/Paned.hs-boot b/GI/Gtk/Objects/Paned.hs-boot --- a/GI/Gtk/Objects/Paned.hs-boot +++ b/GI/Gtk/Objects/Paned.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.Paned where -import Prelude () 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 diff --git a/GI/Gtk/Objects/PanedAccessible.hs b/GI/Gtk/Objects/PanedAccessible.hs --- a/GI/Gtk/Objects/PanedAccessible.hs +++ b/GI/Gtk/Objects/PanedAccessible.hs @@ -18,9 +18,9 @@ ) where -import Prelude () 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 diff --git a/GI/Gtk/Objects/PanedAccessible.hs-boot b/GI/Gtk/Objects/PanedAccessible.hs-boot --- a/GI/Gtk/Objects/PanedAccessible.hs-boot +++ b/GI/Gtk/Objects/PanedAccessible.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.PanedAccessible where -import Prelude () 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 diff --git a/GI/Gtk/Objects/PlacesSidebar.hs b/GI/Gtk/Objects/PlacesSidebar.hs --- a/GI/Gtk/Objects/PlacesSidebar.hs +++ b/GI/Gtk/Objects/PlacesSidebar.hs @@ -143,13 +143,16 @@ PlacesSidebarLocalOnlyPropertyInfo , constructPlacesSidebarLocalOnly , getPlacesSidebarLocalOnly , + placesSidebarLocalOnly , setPlacesSidebarLocalOnly , -- ** Location PlacesSidebarLocationPropertyInfo , + clearPlacesSidebarLocation , constructPlacesSidebarLocation , getPlacesSidebarLocation , + placesSidebarLocation , setPlacesSidebarLocation , @@ -157,6 +160,7 @@ PlacesSidebarOpenFlagsPropertyInfo , constructPlacesSidebarOpenFlags , getPlacesSidebarOpenFlags , + placesSidebarOpenFlags , setPlacesSidebarOpenFlags , @@ -164,6 +168,7 @@ PlacesSidebarPopulateAllPropertyInfo , constructPlacesSidebarPopulateAll , getPlacesSidebarPopulateAll , + placesSidebarPopulateAll , setPlacesSidebarPopulateAll , @@ -171,6 +176,7 @@ PlacesSidebarShowConnectToServerPropertyInfo, constructPlacesSidebarShowConnectToServer, getPlacesSidebarShowConnectToServer , + placesSidebarShowConnectToServer , setPlacesSidebarShowConnectToServer , @@ -178,6 +184,7 @@ PlacesSidebarShowDesktopPropertyInfo , constructPlacesSidebarShowDesktop , getPlacesSidebarShowDesktop , + placesSidebarShowDesktop , setPlacesSidebarShowDesktop , @@ -185,6 +192,7 @@ PlacesSidebarShowEnterLocationPropertyInfo, constructPlacesSidebarShowEnterLocation , getPlacesSidebarShowEnterLocation , + placesSidebarShowEnterLocation , setPlacesSidebarShowEnterLocation , @@ -192,6 +200,7 @@ PlacesSidebarShowOtherLocationsPropertyInfo, constructPlacesSidebarShowOtherLocations, getPlacesSidebarShowOtherLocations , + placesSidebarShowOtherLocations , setPlacesSidebarShowOtherLocations , @@ -199,6 +208,7 @@ PlacesSidebarShowRecentPropertyInfo , constructPlacesSidebarShowRecent , getPlacesSidebarShowRecent , + placesSidebarShowRecent , setPlacesSidebarShowRecent , @@ -206,6 +216,7 @@ PlacesSidebarShowTrashPropertyInfo , constructPlacesSidebarShowTrash , getPlacesSidebarShowTrash , + placesSidebarShowTrash , setPlacesSidebarShowTrash , @@ -324,9 +335,9 @@ ) where -import Prelude () 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 @@ -1142,6 +1153,7 @@ -- VVV Prop "local-only" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getPlacesSidebarLocalOnly :: (MonadIO m, PlacesSidebarK o) => o -> m Bool getPlacesSidebarLocalOnly obj = liftIO $ getObjectPropertyBool obj "local-only" @@ -1162,34 +1174,41 @@ attrGet _ = getPlacesSidebarLocalOnly attrSet _ = setPlacesSidebarLocalOnly attrConstruct _ = constructPlacesSidebarLocalOnly + attrClear _ = undefined -- VVV Prop "location" -- Type: TInterface "Gio" "File" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just True) -getPlacesSidebarLocation :: (MonadIO m, PlacesSidebarK o) => o -> m Gio.File +getPlacesSidebarLocation :: (MonadIO m, PlacesSidebarK o) => o -> m (Maybe Gio.File) getPlacesSidebarLocation obj = liftIO $ getObjectPropertyObject obj "location" Gio.File setPlacesSidebarLocation :: (MonadIO m, PlacesSidebarK o, Gio.FileK a) => o -> a -> m () -setPlacesSidebarLocation obj val = liftIO $ setObjectPropertyObject obj "location" val +setPlacesSidebarLocation obj val = liftIO $ setObjectPropertyObject obj "location" (Just val) constructPlacesSidebarLocation :: (Gio.FileK a) => a -> IO ([Char], GValue) -constructPlacesSidebarLocation val = constructObjectPropertyObject "location" val +constructPlacesSidebarLocation val = constructObjectPropertyObject "location" (Just val) +clearPlacesSidebarLocation :: (MonadIO m, PlacesSidebarK o) => o -> m () +clearPlacesSidebarLocation obj = liftIO $ setObjectPropertyObject obj "location" (Nothing :: Maybe Gio.File) + data PlacesSidebarLocationPropertyInfo instance AttrInfo PlacesSidebarLocationPropertyInfo where - type AttrAllowedOps PlacesSidebarLocationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps PlacesSidebarLocationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint PlacesSidebarLocationPropertyInfo = Gio.FileK type AttrBaseTypeConstraint PlacesSidebarLocationPropertyInfo = PlacesSidebarK - type AttrGetType PlacesSidebarLocationPropertyInfo = Gio.File + type AttrGetType PlacesSidebarLocationPropertyInfo = (Maybe Gio.File) type AttrLabel PlacesSidebarLocationPropertyInfo = "location" attrGet _ = getPlacesSidebarLocation attrSet _ = setPlacesSidebarLocation attrConstruct _ = constructPlacesSidebarLocation + attrClear _ = clearPlacesSidebarLocation -- VVV Prop "open-flags" -- Type: TInterface "Gtk" "PlacesOpenFlags" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getPlacesSidebarOpenFlags :: (MonadIO m, PlacesSidebarK o) => o -> m [PlacesOpenFlags] getPlacesSidebarOpenFlags obj = liftIO $ getObjectPropertyFlags obj "open-flags" @@ -1210,10 +1229,12 @@ attrGet _ = getPlacesSidebarOpenFlags attrSet _ = setPlacesSidebarOpenFlags attrConstruct _ = constructPlacesSidebarOpenFlags + attrClear _ = undefined -- VVV Prop "populate-all" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getPlacesSidebarPopulateAll :: (MonadIO m, PlacesSidebarK o) => o -> m Bool getPlacesSidebarPopulateAll obj = liftIO $ getObjectPropertyBool obj "populate-all" @@ -1234,10 +1255,12 @@ attrGet _ = getPlacesSidebarPopulateAll attrSet _ = setPlacesSidebarPopulateAll attrConstruct _ = constructPlacesSidebarPopulateAll + attrClear _ = undefined -- VVV Prop "show-connect-to-server" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getPlacesSidebarShowConnectToServer :: (MonadIO m, PlacesSidebarK o) => o -> m Bool getPlacesSidebarShowConnectToServer obj = liftIO $ getObjectPropertyBool obj "show-connect-to-server" @@ -1258,10 +1281,12 @@ attrGet _ = getPlacesSidebarShowConnectToServer attrSet _ = setPlacesSidebarShowConnectToServer attrConstruct _ = constructPlacesSidebarShowConnectToServer + attrClear _ = undefined -- VVV Prop "show-desktop" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getPlacesSidebarShowDesktop :: (MonadIO m, PlacesSidebarK o) => o -> m Bool getPlacesSidebarShowDesktop obj = liftIO $ getObjectPropertyBool obj "show-desktop" @@ -1282,10 +1307,12 @@ attrGet _ = getPlacesSidebarShowDesktop attrSet _ = setPlacesSidebarShowDesktop attrConstruct _ = constructPlacesSidebarShowDesktop + attrClear _ = undefined -- VVV Prop "show-enter-location" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getPlacesSidebarShowEnterLocation :: (MonadIO m, PlacesSidebarK o) => o -> m Bool getPlacesSidebarShowEnterLocation obj = liftIO $ getObjectPropertyBool obj "show-enter-location" @@ -1306,10 +1333,12 @@ attrGet _ = getPlacesSidebarShowEnterLocation attrSet _ = setPlacesSidebarShowEnterLocation attrConstruct _ = constructPlacesSidebarShowEnterLocation + attrClear _ = undefined -- VVV Prop "show-other-locations" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getPlacesSidebarShowOtherLocations :: (MonadIO m, PlacesSidebarK o) => o -> m Bool getPlacesSidebarShowOtherLocations obj = liftIO $ getObjectPropertyBool obj "show-other-locations" @@ -1330,10 +1359,12 @@ attrGet _ = getPlacesSidebarShowOtherLocations attrSet _ = setPlacesSidebarShowOtherLocations attrConstruct _ = constructPlacesSidebarShowOtherLocations + attrClear _ = undefined -- VVV Prop "show-recent" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getPlacesSidebarShowRecent :: (MonadIO m, PlacesSidebarK o) => o -> m Bool getPlacesSidebarShowRecent obj = liftIO $ getObjectPropertyBool obj "show-recent" @@ -1354,10 +1385,12 @@ attrGet _ = getPlacesSidebarShowRecent attrSet _ = setPlacesSidebarShowRecent attrConstruct _ = constructPlacesSidebarShowRecent + attrClear _ = undefined -- VVV Prop "show-trash" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getPlacesSidebarShowTrash :: (MonadIO m, PlacesSidebarK o) => o -> m Bool getPlacesSidebarShowTrash obj = liftIO $ getObjectPropertyBool obj "show-trash" @@ -1378,10 +1411,41 @@ attrGet _ = getPlacesSidebarShowTrash attrSet _ = setPlacesSidebarShowTrash attrConstruct _ = constructPlacesSidebarShowTrash + attrClear _ = undefined type instance AttributeList PlacesSidebar = PlacesSidebarAttributeList type PlacesSidebarAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("hadjustment", ScrolledWindowHadjustmentPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hscrollbarPolicy", ScrolledWindowHscrollbarPolicyPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("kineticScrolling", ScrolledWindowKineticScrollingPropertyInfo), '("localOnly", PlacesSidebarLocalOnlyPropertyInfo), '("location", PlacesSidebarLocationPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("minContentHeight", ScrolledWindowMinContentHeightPropertyInfo), '("minContentWidth", ScrolledWindowMinContentWidthPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("openFlags", PlacesSidebarOpenFlagsPropertyInfo), '("overlayScrolling", ScrolledWindowOverlayScrollingPropertyInfo), '("parent", WidgetParentPropertyInfo), '("populateAll", PlacesSidebarPopulateAllPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadowType", ScrolledWindowShadowTypePropertyInfo), '("showConnectToServer", PlacesSidebarShowConnectToServerPropertyInfo), '("showDesktop", PlacesSidebarShowDesktopPropertyInfo), '("showEnterLocation", PlacesSidebarShowEnterLocationPropertyInfo), '("showOtherLocations", PlacesSidebarShowOtherLocationsPropertyInfo), '("showRecent", PlacesSidebarShowRecentPropertyInfo), '("showTrash", PlacesSidebarShowTrashPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("vadjustment", ScrolledWindowVadjustmentPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("vscrollbarPolicy", ScrolledWindowVscrollbarPolicyPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("windowPlacement", ScrolledWindowWindowPlacementPropertyInfo), '("windowPlacementSet", ScrolledWindowWindowPlacementSetPropertyInfo)] :: [(Symbol, *)]) +placesSidebarLocalOnly :: AttrLabelProxy "localOnly" +placesSidebarLocalOnly = AttrLabelProxy + +placesSidebarLocation :: AttrLabelProxy "location" +placesSidebarLocation = AttrLabelProxy + +placesSidebarOpenFlags :: AttrLabelProxy "openFlags" +placesSidebarOpenFlags = AttrLabelProxy + +placesSidebarPopulateAll :: AttrLabelProxy "populateAll" +placesSidebarPopulateAll = AttrLabelProxy + +placesSidebarShowConnectToServer :: AttrLabelProxy "showConnectToServer" +placesSidebarShowConnectToServer = AttrLabelProxy + +placesSidebarShowDesktop :: AttrLabelProxy "showDesktop" +placesSidebarShowDesktop = AttrLabelProxy + +placesSidebarShowEnterLocation :: AttrLabelProxy "showEnterLocation" +placesSidebarShowEnterLocation = AttrLabelProxy + +placesSidebarShowOtherLocations :: AttrLabelProxy "showOtherLocations" +placesSidebarShowOtherLocations = AttrLabelProxy + +placesSidebarShowRecent :: AttrLabelProxy "showRecent" +placesSidebarShowRecent = AttrLabelProxy + +placesSidebarShowTrash :: AttrLabelProxy "showTrash" +placesSidebarShowTrash = AttrLabelProxy + data PlacesSidebarDragActionAskSignalInfo instance SignalInfo PlacesSidebarDragActionAskSignalInfo where type HaskellCallbackType PlacesSidebarDragActionAskSignalInfo = PlacesSidebarDragActionAskCallback @@ -1434,7 +1498,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "PlacesSidebar" +-- returnType : Just (TInterface "Gtk" "PlacesSidebar") -- throws : False -- Skip return : False @@ -1455,7 +1519,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "location", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1486,7 +1550,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1514,7 +1578,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gio" "File" +-- returnType : Just (TInterface "Gio" "File") -- throws : False -- Skip return : False @@ -1541,15 +1605,15 @@ -- method PlacesSidebar::get_nth_bookmark -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gio" "File" +-- returnType : Just (TInterface "Gio" "File") -- throws : False -- Skip return : False foreign import ccall "gtk_places_sidebar_get_nth_bookmark" gtk_places_sidebar_get_nth_bookmark :: Ptr PlacesSidebar -> -- _obj : TInterface "Gtk" "PlacesSidebar" - Int32 -> -- n : TBasicType TInt32 + Int32 -> -- n : TBasicType TInt IO (Ptr Gio.File) @@ -1574,7 +1638,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "PlacesOpenFlags" +-- returnType : Just (TInterface "Gtk" "PlacesOpenFlags") -- throws : False -- Skip return : False @@ -1602,7 +1666,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1630,7 +1694,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1658,7 +1722,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1686,7 +1750,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1714,7 +1778,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1742,7 +1806,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1770,7 +1834,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TGSList (TInterface "Gio" "File") +-- returnType : Just (TGSList (TInterface "Gio" "File")) -- throws : False -- Skip return : False @@ -1786,7 +1850,6 @@ placesSidebarListShortcuts _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_places_sidebar_list_shortcuts _obj' - checkUnexpectedReturnNULL "gtk_places_sidebar_list_shortcuts" result result' <- unpackGSList result result'' <- mapM (wrapObject Gio.File) result' g_slist_free result @@ -1801,7 +1864,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "location", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1832,7 +1895,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1866,7 +1929,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "local_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1896,7 +1959,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "location", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1931,7 +1994,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "PlacesOpenFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1961,7 +2024,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_connect_to_server", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1991,7 +2054,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_desktop", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2021,7 +2084,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_enter_location", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2051,7 +2114,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_other_locations", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2081,7 +2144,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_recent", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2111,7 +2174,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_trash", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/PlacesSidebar.hs-boot b/GI/Gtk/Objects/PlacesSidebar.hs-boot --- a/GI/Gtk/Objects/PlacesSidebar.hs-boot +++ b/GI/Gtk/Objects/PlacesSidebar.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.PlacesSidebar where -import Prelude () 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 diff --git a/GI/Gtk/Objects/Plug.hs b/GI/Gtk/Objects/Plug.hs --- a/GI/Gtk/Objects/Plug.hs +++ b/GI/Gtk/Objects/Plug.hs @@ -56,11 +56,13 @@ -- ** Embedded PlugEmbeddedPropertyInfo , getPlugEmbedded , + plugEmbedded , -- ** SocketWindow PlugSocketWindowPropertyInfo , getPlugSocketWindow , + plugSocketWindow , @@ -82,9 +84,9 @@ ) where -import Prelude () 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 @@ -586,6 +588,7 @@ -- VVV Prop "embedded" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getPlugEmbedded :: (MonadIO m, PlugK o) => o -> m Bool getPlugEmbedded obj = liftIO $ getObjectPropertyBool obj "embedded" @@ -600,17 +603,19 @@ attrGet _ = getPlugEmbedded attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "socket-window" -- Type: TInterface "Gdk" "Window" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getPlugSocketWindow :: (MonadIO m, PlugK o) => o -> m Gdk.Window -getPlugSocketWindow obj = liftIO $ getObjectPropertyObject obj "socket-window" Gdk.Window +getPlugSocketWindow obj = liftIO $ checkUnexpectedNothing "getPlugSocketWindow" $ getObjectPropertyObject obj "socket-window" Gdk.Window data PlugSocketWindowPropertyInfo instance AttrInfo PlugSocketWindowPropertyInfo where - type AttrAllowedOps PlugSocketWindowPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps PlugSocketWindowPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint PlugSocketWindowPropertyInfo = (~) () type AttrBaseTypeConstraint PlugSocketWindowPropertyInfo = PlugK type AttrGetType PlugSocketWindowPropertyInfo = Gdk.Window @@ -618,10 +623,17 @@ attrGet _ = getPlugSocketWindow attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList Plug = PlugAttributeList type PlugAttributeList = ('[ '("acceptFocus", WindowAcceptFocusPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attachedTo", WindowAttachedToPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("defaultHeight", WindowDefaultHeightPropertyInfo), '("defaultWidth", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroyWithParent", WindowDestroyWithParentPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("embedded", PlugEmbeddedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnMap", WindowFocusOnMapPropertyInfo), '("focusVisible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasResizeGrip", WindowHasResizeGripPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("hasToplevelFocus", WindowHasToplevelFocusPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hideTitlebarWhenMaximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("iconName", WindowIconNamePropertyInfo), '("isActive", WindowIsActivePropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isMaximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("mnemonicsVisible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resizeGripVisible", WindowResizeGripVisiblePropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skipPagerHint", WindowSkipPagerHintPropertyInfo), '("skipTaskbarHint", WindowSkipTaskbarHintPropertyInfo), '("socketWindow", PlugSocketWindowPropertyInfo), '("startupId", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("transientFor", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("typeHint", WindowTypeHintPropertyInfo), '("urgencyHint", WindowUrgencyHintPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("windowPosition", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) +plugEmbedded :: AttrLabelProxy "embedded" +plugEmbedded = AttrLabelProxy + +plugSocketWindow :: AttrLabelProxy "socketWindow" +plugSocketWindow = AttrLabelProxy + data PlugEmbeddedSignalInfo instance SignalInfo PlugEmbeddedSignalInfo where type HaskellCallbackType PlugEmbeddedSignalInfo = PlugEmbeddedCallback @@ -632,20 +644,20 @@ -- method Plug::new -- method type : Constructor --- Args : [Arg {argCName = "socket_id", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "socket_id", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Plug" +-- returnType : Just (TInterface "Gtk" "Plug") -- throws : False -- Skip return : False foreign import ccall "gtk_plug_new" gtk_plug_new :: - Word64 -> -- socket_id : TBasicType TUInt64 + CULong -> -- socket_id : TBasicType TULong IO (Ptr Plug) plugNew :: (MonadIO m) => - Word64 -- socketId + CULong -- socketId -> m Plug -- result plugNew socketId = liftIO $ do result <- gtk_plug_new socketId @@ -655,22 +667,22 @@ -- method Plug::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 = "socket_id", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "socket_id", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Plug" +-- returnType : Just (TInterface "Gtk" "Plug") -- throws : False -- Skip return : False foreign import ccall "gtk_plug_new_for_display" gtk_plug_new_for_display :: Ptr Gdk.Display -> -- display : TInterface "Gdk" "Display" - Word64 -> -- socket_id : TBasicType TUInt64 + CULong -> -- socket_id : TBasicType TULong IO (Ptr Plug) plugNewForDisplay :: (MonadIO m, Gdk.DisplayK a) => a -- display - -> Word64 -- socketId + -> CULong -- socketId -> m Plug -- result plugNewForDisplay display socketId = liftIO $ do let display' = unsafeManagedPtrCastPtr display @@ -682,22 +694,22 @@ -- method Plug::construct -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Plug", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "socket_id", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Plug", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "socket_id", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_plug_construct" gtk_plug_construct :: Ptr Plug -> -- _obj : TInterface "Gtk" "Plug" - Word64 -> -- socket_id : TBasicType TUInt64 + CULong -> -- socket_id : TBasicType TULong IO () plugConstruct :: (MonadIO m, PlugK a) => a -- _obj - -> Word64 -- socketId + -> CULong -- socketId -> m () -- result plugConstruct _obj socketId = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -706,21 +718,21 @@ return () data PlugConstructMethodInfo -instance (signature ~ (Word64 -> m ()), MonadIO m, PlugK a) => MethodInfo PlugConstructMethodInfo a signature where +instance (signature ~ (CULong -> m ()), MonadIO m, PlugK a) => MethodInfo PlugConstructMethodInfo a signature where overloadedMethod _ = plugConstruct -- method Plug::construct_for_display -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Plug", 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},Arg {argCName = "socket_id", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Plug", 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},Arg {argCName = "socket_id", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_plug_construct_for_display" gtk_plug_construct_for_display :: Ptr Plug -> -- _obj : TInterface "Gtk" "Plug" Ptr Gdk.Display -> -- display : TInterface "Gdk" "Display" - Word64 -> -- socket_id : TBasicType TUInt64 + CULong -> -- socket_id : TBasicType TULong IO () @@ -728,7 +740,7 @@ (MonadIO m, PlugK a, Gdk.DisplayK b) => a -- _obj -> b -- display - -> Word64 -- socketId + -> CULong -- socketId -> m () -- result plugConstructForDisplay _obj display socketId = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -739,14 +751,14 @@ return () data PlugConstructForDisplayMethodInfo -instance (signature ~ (b -> Word64 -> m ()), MonadIO m, PlugK a, Gdk.DisplayK b) => MethodInfo PlugConstructForDisplayMethodInfo a signature where +instance (signature ~ (b -> CULong -> m ()), MonadIO m, PlugK a, Gdk.DisplayK b) => MethodInfo PlugConstructForDisplayMethodInfo a signature where overloadedMethod _ = plugConstructForDisplay -- method Plug::get_embedded -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Plug", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -774,19 +786,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Plug", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "gtk_plug_get_id" gtk_plug_get_id :: Ptr Plug -> -- _obj : TInterface "Gtk" "Plug" - IO Word64 + IO CULong plugGetId :: (MonadIO m, PlugK a) => a -- _obj - -> m Word64 -- result + -> m CULong -- result plugGetId _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_plug_get_id _obj' @@ -794,14 +806,14 @@ return result data PlugGetIdMethodInfo -instance (signature ~ (m Word64), MonadIO m, PlugK a) => MethodInfo PlugGetIdMethodInfo a signature where +instance (signature ~ (m CULong), MonadIO m, PlugK a) => MethodInfo PlugGetIdMethodInfo a signature where overloadedMethod _ = plugGetId -- method Plug::get_socket_window -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Plug", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gdk" "Window" +-- returnType : Just (TInterface "Gdk" "Window") -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/Plug.hs-boot b/GI/Gtk/Objects/Plug.hs-boot --- a/GI/Gtk/Objects/Plug.hs-boot +++ b/GI/Gtk/Objects/Plug.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.Plug where -import Prelude () 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 diff --git a/GI/Gtk/Objects/Popover.hs b/GI/Gtk/Objects/Popover.hs --- a/GI/Gtk/Objects/Popover.hs +++ b/GI/Gtk/Objects/Popover.hs @@ -97,6 +97,7 @@ PopoverModalPropertyInfo , constructPopoverModal , getPopoverModal , + popoverModal , setPopoverModal , @@ -104,6 +105,7 @@ PopoverPointingToPropertyInfo , constructPopoverPointingTo , getPopoverPointingTo , + popoverPointingTo , setPopoverPointingTo , @@ -111,13 +113,16 @@ PopoverPositionPropertyInfo , constructPopoverPosition , getPopoverPosition , + popoverPosition , setPopoverPosition , -- ** RelativeTo PopoverRelativeToPropertyInfo , + clearPopoverRelativeTo , constructPopoverRelativeTo , getPopoverRelativeTo , + popoverRelativeTo , setPopoverRelativeTo , @@ -125,6 +130,7 @@ PopoverTransitionsEnabledPropertyInfo , constructPopoverTransitionsEnabled , getPopoverTransitionsEnabled , + popoverTransitionsEnabled , setPopoverTransitionsEnabled , @@ -147,9 +153,9 @@ ) where -import Prelude () 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 @@ -559,6 +565,7 @@ -- VVV Prop "modal" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getPopoverModal :: (MonadIO m, PopoverK o) => o -> m Bool getPopoverModal obj = liftIO $ getObjectPropertyBool obj "modal" @@ -579,34 +586,38 @@ attrGet _ = getPopoverModal attrSet _ = setPopoverModal attrConstruct _ = constructPopoverModal + attrClear _ = undefined -- VVV Prop "pointing-to" -- Type: TInterface "Gdk" "Rectangle" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getPopoverPointingTo :: (MonadIO m, PopoverK o) => o -> m Gdk.Rectangle +getPopoverPointingTo :: (MonadIO m, PopoverK o) => o -> m (Maybe Gdk.Rectangle) getPopoverPointingTo obj = liftIO $ getObjectPropertyBoxed obj "pointing-to" Gdk.Rectangle setPopoverPointingTo :: (MonadIO m, PopoverK o) => o -> Gdk.Rectangle -> m () -setPopoverPointingTo obj val = liftIO $ setObjectPropertyBoxed obj "pointing-to" val +setPopoverPointingTo obj val = liftIO $ setObjectPropertyBoxed obj "pointing-to" (Just val) constructPopoverPointingTo :: Gdk.Rectangle -> IO ([Char], GValue) -constructPopoverPointingTo val = constructObjectPropertyBoxed "pointing-to" val +constructPopoverPointingTo val = constructObjectPropertyBoxed "pointing-to" (Just val) data PopoverPointingToPropertyInfo instance AttrInfo PopoverPointingToPropertyInfo where type AttrAllowedOps PopoverPointingToPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint PopoverPointingToPropertyInfo = (~) Gdk.Rectangle type AttrBaseTypeConstraint PopoverPointingToPropertyInfo = PopoverK - type AttrGetType PopoverPointingToPropertyInfo = Gdk.Rectangle + type AttrGetType PopoverPointingToPropertyInfo = (Maybe Gdk.Rectangle) type AttrLabel PopoverPointingToPropertyInfo = "pointing-to" attrGet _ = getPopoverPointingTo attrSet _ = setPopoverPointingTo attrConstruct _ = constructPopoverPointingTo + attrClear _ = undefined -- VVV Prop "position" -- Type: TInterface "Gtk" "PositionType" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Just False,Just False) getPopoverPosition :: (MonadIO m, PopoverK o) => o -> m PositionType getPopoverPosition obj = liftIO $ getObjectPropertyEnum obj "position" @@ -627,23 +638,28 @@ attrGet _ = getPopoverPosition attrSet _ = setPopoverPosition attrConstruct _ = constructPopoverPosition + attrClear _ = undefined -- VVV Prop "relative-to" -- Type: TInterface "Gtk" "Widget" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) getPopoverRelativeTo :: (MonadIO m, PopoverK o) => o -> m Widget -getPopoverRelativeTo obj = liftIO $ getObjectPropertyObject obj "relative-to" Widget +getPopoverRelativeTo obj = liftIO $ checkUnexpectedNothing "getPopoverRelativeTo" $ getObjectPropertyObject obj "relative-to" Widget setPopoverRelativeTo :: (MonadIO m, PopoverK o, WidgetK a) => o -> a -> m () -setPopoverRelativeTo obj val = liftIO $ setObjectPropertyObject obj "relative-to" val +setPopoverRelativeTo obj val = liftIO $ setObjectPropertyObject obj "relative-to" (Just val) constructPopoverRelativeTo :: (WidgetK a) => a -> IO ([Char], GValue) -constructPopoverRelativeTo val = constructObjectPropertyObject "relative-to" val +constructPopoverRelativeTo val = constructObjectPropertyObject "relative-to" (Just val) +clearPopoverRelativeTo :: (MonadIO m, PopoverK o) => o -> m () +clearPopoverRelativeTo obj = liftIO $ setObjectPropertyObject obj "relative-to" (Nothing :: Maybe Widget) + data PopoverRelativeToPropertyInfo instance AttrInfo PopoverRelativeToPropertyInfo where - type AttrAllowedOps PopoverRelativeToPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps PopoverRelativeToPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint PopoverRelativeToPropertyInfo = WidgetK type AttrBaseTypeConstraint PopoverRelativeToPropertyInfo = PopoverK type AttrGetType PopoverRelativeToPropertyInfo = Widget @@ -651,10 +667,12 @@ attrGet _ = getPopoverRelativeTo attrSet _ = setPopoverRelativeTo attrConstruct _ = constructPopoverRelativeTo + attrClear _ = clearPopoverRelativeTo -- VVV Prop "transitions-enabled" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getPopoverTransitionsEnabled :: (MonadIO m, PopoverK o) => o -> m Bool getPopoverTransitionsEnabled obj = liftIO $ getObjectPropertyBool obj "transitions-enabled" @@ -675,10 +693,26 @@ attrGet _ = getPopoverTransitionsEnabled attrSet _ = setPopoverTransitionsEnabled attrConstruct _ = constructPopoverTransitionsEnabled + attrClear _ = undefined type instance AttributeList Popover = PopoverAttributeList type PopoverAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("modal", PopoverModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("pointingTo", PopoverPointingToPropertyInfo), '("position", PopoverPositionPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relativeTo", PopoverRelativeToPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("transitionsEnabled", PopoverTransitionsEnabledPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +popoverModal :: AttrLabelProxy "modal" +popoverModal = AttrLabelProxy + +popoverPointingTo :: AttrLabelProxy "pointingTo" +popoverPointingTo = AttrLabelProxy + +popoverPosition :: AttrLabelProxy "position" +popoverPosition = AttrLabelProxy + +popoverRelativeTo :: AttrLabelProxy "relativeTo" +popoverRelativeTo = AttrLabelProxy + +popoverTransitionsEnabled :: AttrLabelProxy "transitionsEnabled" +popoverTransitionsEnabled = AttrLabelProxy + data PopoverClosedSignalInfo instance SignalInfo PopoverClosedSignalInfo where type HaskellCallbackType PopoverClosedSignalInfo = PopoverClosedCallback @@ -691,7 +725,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "relative_to", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Popover" +-- returnType : Just (TInterface "Gtk" "Popover") -- throws : False -- Skip return : False @@ -720,7 +754,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "relative_to", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Popover" +-- returnType : Just (TInterface "Gtk" "Popover") -- throws : False -- Skip return : False @@ -753,7 +787,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_namespace", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -796,7 +830,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -825,7 +859,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -853,7 +887,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Popover", 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 : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -884,7 +918,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "PositionType" +-- returnType : Just (TInterface "Gtk" "PositionType") -- throws : False -- Skip return : False @@ -912,7 +946,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -941,7 +975,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -969,7 +1003,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1004,7 +1038,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Popover", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1034,7 +1068,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1065,7 +1099,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1095,7 +1129,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "relative_to", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1130,7 +1164,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "transitions_enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/Popover.hs-boot b/GI/Gtk/Objects/Popover.hs-boot --- a/GI/Gtk/Objects/Popover.hs-boot +++ b/GI/Gtk/Objects/Popover.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.Popover where -import Prelude () 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 diff --git a/GI/Gtk/Objects/PopoverAccessible.hs b/GI/Gtk/Objects/PopoverAccessible.hs --- a/GI/Gtk/Objects/PopoverAccessible.hs +++ b/GI/Gtk/Objects/PopoverAccessible.hs @@ -18,9 +18,9 @@ ) where -import Prelude () 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 diff --git a/GI/Gtk/Objects/PopoverAccessible.hs-boot b/GI/Gtk/Objects/PopoverAccessible.hs-boot --- a/GI/Gtk/Objects/PopoverAccessible.hs-boot +++ b/GI/Gtk/Objects/PopoverAccessible.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.PopoverAccessible where -import Prelude () 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 diff --git a/GI/Gtk/Objects/PopoverMenu.hs b/GI/Gtk/Objects/PopoverMenu.hs --- a/GI/Gtk/Objects/PopoverMenu.hs +++ b/GI/Gtk/Objects/PopoverMenu.hs @@ -31,8 +31,10 @@ -- * Properties -- ** VisibleSubmenu PopoverMenuVisibleSubmenuPropertyInfo , + clearPopoverMenuVisibleSubmenu , constructPopoverMenuVisibleSubmenu , getPopoverMenuVisibleSubmenu , + popoverMenuVisibleSubmenu , setPopoverMenuVisibleSubmenu , @@ -40,9 +42,9 @@ ) where -import Prelude () 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 @@ -413,30 +415,38 @@ -- VVV Prop "visible-submenu" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getPopoverMenuVisibleSubmenu :: (MonadIO m, PopoverMenuK o) => o -> m T.Text +getPopoverMenuVisibleSubmenu :: (MonadIO m, PopoverMenuK o) => o -> m (Maybe T.Text) getPopoverMenuVisibleSubmenu obj = liftIO $ getObjectPropertyString obj "visible-submenu" setPopoverMenuVisibleSubmenu :: (MonadIO m, PopoverMenuK o) => o -> T.Text -> m () -setPopoverMenuVisibleSubmenu obj val = liftIO $ setObjectPropertyString obj "visible-submenu" val +setPopoverMenuVisibleSubmenu obj val = liftIO $ setObjectPropertyString obj "visible-submenu" (Just val) constructPopoverMenuVisibleSubmenu :: T.Text -> IO ([Char], GValue) -constructPopoverMenuVisibleSubmenu val = constructObjectPropertyString "visible-submenu" val +constructPopoverMenuVisibleSubmenu val = constructObjectPropertyString "visible-submenu" (Just val) +clearPopoverMenuVisibleSubmenu :: (MonadIO m, PopoverMenuK o) => o -> m () +clearPopoverMenuVisibleSubmenu obj = liftIO $ setObjectPropertyString obj "visible-submenu" (Nothing :: Maybe T.Text) + data PopoverMenuVisibleSubmenuPropertyInfo instance AttrInfo PopoverMenuVisibleSubmenuPropertyInfo where - type AttrAllowedOps PopoverMenuVisibleSubmenuPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps PopoverMenuVisibleSubmenuPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint PopoverMenuVisibleSubmenuPropertyInfo = (~) T.Text type AttrBaseTypeConstraint PopoverMenuVisibleSubmenuPropertyInfo = PopoverMenuK - type AttrGetType PopoverMenuVisibleSubmenuPropertyInfo = T.Text + type AttrGetType PopoverMenuVisibleSubmenuPropertyInfo = (Maybe T.Text) type AttrLabel PopoverMenuVisibleSubmenuPropertyInfo = "visible-submenu" attrGet _ = getPopoverMenuVisibleSubmenu attrSet _ = setPopoverMenuVisibleSubmenu attrConstruct _ = constructPopoverMenuVisibleSubmenu + attrClear _ = clearPopoverMenuVisibleSubmenu type instance AttributeList PopoverMenu = PopoverMenuAttributeList type PopoverMenuAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("modal", PopoverModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("pointingTo", PopoverPointingToPropertyInfo), '("position", PopoverPositionPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relativeTo", PopoverRelativeToPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("transitionsEnabled", PopoverTransitionsEnabledPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visibleSubmenu", PopoverMenuVisibleSubmenuPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +popoverMenuVisibleSubmenu :: AttrLabelProxy "visibleSubmenu" +popoverMenuVisibleSubmenu = AttrLabelProxy + type instance SignalList PopoverMenu = PopoverMenuSignalList type PopoverMenuSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("closed", PopoverClosedSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -444,7 +454,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "PopoverMenu" +-- returnType : Just (TInterface "Gtk" "PopoverMenu") -- throws : False -- Skip return : False @@ -465,7 +475,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PopoverMenu", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/PopoverMenu.hs-boot b/GI/Gtk/Objects/PopoverMenu.hs-boot --- a/GI/Gtk/Objects/PopoverMenu.hs-boot +++ b/GI/Gtk/Objects/PopoverMenu.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.PopoverMenu where -import Prelude () 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 diff --git a/GI/Gtk/Objects/PrintContext.hs b/GI/Gtk/Objects/PrintContext.hs --- a/GI/Gtk/Objects/PrintContext.hs +++ b/GI/Gtk/Objects/PrintContext.hs @@ -76,9 +76,9 @@ ) where -import Prelude () 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 @@ -164,7 +164,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Pango" "Context" +-- returnType : Just (TInterface "Pango" "Context") -- throws : False -- Skip return : False @@ -193,7 +193,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Pango" "Layout" +-- returnType : Just (TInterface "Pango" "Layout") -- throws : False -- Skip return : False @@ -222,7 +222,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "cairo" "Context" +-- returnType : Just (TInterface "cairo" "Context") -- throws : False -- Skip return : False @@ -251,7 +251,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -279,7 +279,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -307,7 +307,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "top", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "bottom", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "left", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "right", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -355,7 +355,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -383,7 +383,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "PageSetup" +-- returnType : Just (TInterface "Gtk" "PageSetup") -- throws : False -- Skip return : False @@ -412,7 +412,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Pango" "FontMap" +-- returnType : Just (TInterface "Pango" "FontMap") -- throws : False -- Skip return : False @@ -441,7 +441,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -469,7 +469,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintContext", 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},Arg {argCName = "dpi_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dpi_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/PrintContext.hs-boot b/GI/Gtk/Objects/PrintContext.hs-boot --- a/GI/Gtk/Objects/PrintContext.hs-boot +++ b/GI/Gtk/Objects/PrintContext.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.PrintContext where -import Prelude () 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 diff --git a/GI/Gtk/Objects/PrintOperation.hs b/GI/Gtk/Objects/PrintOperation.hs --- a/GI/Gtk/Objects/PrintOperation.hs +++ b/GI/Gtk/Objects/PrintOperation.hs @@ -173,6 +173,7 @@ PrintOperationAllowAsyncPropertyInfo , constructPrintOperationAllowAsync , getPrintOperationAllowAsync , + printOperationAllowAsync , setPrintOperationAllowAsync , @@ -180,20 +181,25 @@ PrintOperationCurrentPagePropertyInfo , constructPrintOperationCurrentPage , getPrintOperationCurrentPage , + printOperationCurrentPage , setPrintOperationCurrentPage , -- ** CustomTabLabel PrintOperationCustomTabLabelPropertyInfo, + clearPrintOperationCustomTabLabel , constructPrintOperationCustomTabLabel , getPrintOperationCustomTabLabel , + printOperationCustomTabLabel , setPrintOperationCustomTabLabel , -- ** DefaultPageSetup PrintOperationDefaultPageSetupPropertyInfo, + clearPrintOperationDefaultPageSetup , constructPrintOperationDefaultPageSetup , getPrintOperationDefaultPageSetup , + printOperationDefaultPageSetup , setPrintOperationDefaultPageSetup , @@ -201,13 +207,16 @@ PrintOperationEmbedPageSetupPropertyInfo, constructPrintOperationEmbedPageSetup , getPrintOperationEmbedPageSetup , + printOperationEmbedPageSetup , setPrintOperationEmbedPageSetup , -- ** ExportFilename PrintOperationExportFilenamePropertyInfo, + clearPrintOperationExportFilename , constructPrintOperationExportFilename , getPrintOperationExportFilename , + printOperationExportFilename , setPrintOperationExportFilename , @@ -215,6 +224,7 @@ PrintOperationHasSelectionPropertyInfo , constructPrintOperationHasSelection , getPrintOperationHasSelection , + printOperationHasSelection , setPrintOperationHasSelection , @@ -222,6 +232,7 @@ PrintOperationJobNamePropertyInfo , constructPrintOperationJobName , getPrintOperationJobName , + printOperationJobName , setPrintOperationJobName , @@ -229,18 +240,22 @@ PrintOperationNPagesPropertyInfo , constructPrintOperationNPages , getPrintOperationNPages , + printOperationNPages , setPrintOperationNPages , -- ** NPagesToPrint PrintOperationNPagesToPrintPropertyInfo , getPrintOperationNPagesToPrint , + printOperationNPagesToPrint , -- ** PrintSettings PrintOperationPrintSettingsPropertyInfo , + clearPrintOperationPrintSettings , constructPrintOperationPrintSettings , getPrintOperationPrintSettings , + printOperationPrintSettings , setPrintOperationPrintSettings , @@ -248,23 +263,27 @@ PrintOperationShowProgressPropertyInfo , constructPrintOperationShowProgress , getPrintOperationShowProgress , + printOperationShowProgress , setPrintOperationShowProgress , -- ** Status PrintOperationStatusPropertyInfo , getPrintOperationStatus , + printOperationStatus , -- ** StatusString PrintOperationStatusStringPropertyInfo , getPrintOperationStatusString , + printOperationStatusString , -- ** SupportSelection PrintOperationSupportSelectionPropertyInfo, constructPrintOperationSupportSelection , getPrintOperationSupportSelection , + printOperationSupportSelection , setPrintOperationSupportSelection , @@ -272,6 +291,7 @@ PrintOperationTrackPrintStatusPropertyInfo, constructPrintOperationTrackPrintStatus , getPrintOperationTrackPrintStatus , + printOperationTrackPrintStatus , setPrintOperationTrackPrintStatus , @@ -279,6 +299,7 @@ PrintOperationUnitPropertyInfo , constructPrintOperationUnit , getPrintOperationUnit , + printOperationUnit , setPrintOperationUnit , @@ -286,6 +307,7 @@ PrintOperationUseFullPagePropertyInfo , constructPrintOperationUseFullPage , getPrintOperationUseFullPage , + printOperationUseFullPage , setPrintOperationUseFullPage , @@ -428,9 +450,9 @@ ) where -import Prelude () 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 @@ -1019,6 +1041,7 @@ -- VVV Prop "allow-async" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) getPrintOperationAllowAsync :: (MonadIO m, PrintOperationK o) => o -> m Bool getPrintOperationAllowAsync obj = liftIO $ getObjectPropertyBool obj "allow-async" @@ -1039,19 +1062,21 @@ attrGet _ = getPrintOperationAllowAsync attrSet _ = setPrintOperationAllowAsync attrConstruct _ = constructPrintOperationAllowAsync + attrClear _ = undefined -- VVV Prop "current-page" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) getPrintOperationCurrentPage :: (MonadIO m, PrintOperationK o) => o -> m Int32 -getPrintOperationCurrentPage obj = liftIO $ getObjectPropertyCInt obj "current-page" +getPrintOperationCurrentPage obj = liftIO $ getObjectPropertyInt32 obj "current-page" setPrintOperationCurrentPage :: (MonadIO m, PrintOperationK o) => o -> Int32 -> m () -setPrintOperationCurrentPage obj val = liftIO $ setObjectPropertyCInt obj "current-page" val +setPrintOperationCurrentPage obj val = liftIO $ setObjectPropertyInt32 obj "current-page" val constructPrintOperationCurrentPage :: Int32 -> IO ([Char], GValue) -constructPrintOperationCurrentPage val = constructObjectPropertyCInt "current-page" val +constructPrintOperationCurrentPage val = constructObjectPropertyInt32 "current-page" val data PrintOperationCurrentPagePropertyInfo instance AttrInfo PrintOperationCurrentPagePropertyInfo where @@ -1063,47 +1088,57 @@ attrGet _ = getPrintOperationCurrentPage attrSet _ = setPrintOperationCurrentPage attrConstruct _ = constructPrintOperationCurrentPage + attrClear _ = undefined -- VVV Prop "custom-tab-label" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just True) -getPrintOperationCustomTabLabel :: (MonadIO m, PrintOperationK o) => o -> m T.Text +getPrintOperationCustomTabLabel :: (MonadIO m, PrintOperationK o) => o -> m (Maybe T.Text) getPrintOperationCustomTabLabel obj = liftIO $ getObjectPropertyString obj "custom-tab-label" setPrintOperationCustomTabLabel :: (MonadIO m, PrintOperationK o) => o -> T.Text -> m () -setPrintOperationCustomTabLabel obj val = liftIO $ setObjectPropertyString obj "custom-tab-label" val +setPrintOperationCustomTabLabel obj val = liftIO $ setObjectPropertyString obj "custom-tab-label" (Just val) constructPrintOperationCustomTabLabel :: T.Text -> IO ([Char], GValue) -constructPrintOperationCustomTabLabel val = constructObjectPropertyString "custom-tab-label" val +constructPrintOperationCustomTabLabel val = constructObjectPropertyString "custom-tab-label" (Just val) +clearPrintOperationCustomTabLabel :: (MonadIO m, PrintOperationK o) => o -> m () +clearPrintOperationCustomTabLabel obj = liftIO $ setObjectPropertyString obj "custom-tab-label" (Nothing :: Maybe T.Text) + data PrintOperationCustomTabLabelPropertyInfo instance AttrInfo PrintOperationCustomTabLabelPropertyInfo where - type AttrAllowedOps PrintOperationCustomTabLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps PrintOperationCustomTabLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint PrintOperationCustomTabLabelPropertyInfo = (~) T.Text type AttrBaseTypeConstraint PrintOperationCustomTabLabelPropertyInfo = PrintOperationK - type AttrGetType PrintOperationCustomTabLabelPropertyInfo = T.Text + type AttrGetType PrintOperationCustomTabLabelPropertyInfo = (Maybe T.Text) type AttrLabel PrintOperationCustomTabLabelPropertyInfo = "custom-tab-label" attrGet _ = getPrintOperationCustomTabLabel attrSet _ = setPrintOperationCustomTabLabel attrConstruct _ = constructPrintOperationCustomTabLabel + attrClear _ = clearPrintOperationCustomTabLabel -- VVV Prop "default-page-setup" -- Type: TInterface "Gtk" "PageSetup" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) getPrintOperationDefaultPageSetup :: (MonadIO m, PrintOperationK o) => o -> m PageSetup -getPrintOperationDefaultPageSetup obj = liftIO $ getObjectPropertyObject obj "default-page-setup" PageSetup +getPrintOperationDefaultPageSetup obj = liftIO $ checkUnexpectedNothing "getPrintOperationDefaultPageSetup" $ getObjectPropertyObject obj "default-page-setup" PageSetup setPrintOperationDefaultPageSetup :: (MonadIO m, PrintOperationK o, PageSetupK a) => o -> a -> m () -setPrintOperationDefaultPageSetup obj val = liftIO $ setObjectPropertyObject obj "default-page-setup" val +setPrintOperationDefaultPageSetup obj val = liftIO $ setObjectPropertyObject obj "default-page-setup" (Just val) constructPrintOperationDefaultPageSetup :: (PageSetupK a) => a -> IO ([Char], GValue) -constructPrintOperationDefaultPageSetup val = constructObjectPropertyObject "default-page-setup" val +constructPrintOperationDefaultPageSetup val = constructObjectPropertyObject "default-page-setup" (Just val) +clearPrintOperationDefaultPageSetup :: (MonadIO m, PrintOperationK o) => o -> m () +clearPrintOperationDefaultPageSetup obj = liftIO $ setObjectPropertyObject obj "default-page-setup" (Nothing :: Maybe PageSetup) + data PrintOperationDefaultPageSetupPropertyInfo instance AttrInfo PrintOperationDefaultPageSetupPropertyInfo where - type AttrAllowedOps PrintOperationDefaultPageSetupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps PrintOperationDefaultPageSetupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint PrintOperationDefaultPageSetupPropertyInfo = PageSetupK type AttrBaseTypeConstraint PrintOperationDefaultPageSetupPropertyInfo = PrintOperationK type AttrGetType PrintOperationDefaultPageSetupPropertyInfo = PageSetup @@ -1111,10 +1146,12 @@ attrGet _ = getPrintOperationDefaultPageSetup attrSet _ = setPrintOperationDefaultPageSetup attrConstruct _ = constructPrintOperationDefaultPageSetup + attrClear _ = clearPrintOperationDefaultPageSetup -- VVV Prop "embed-page-setup" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getPrintOperationEmbedPageSetup :: (MonadIO m, PrintOperationK o) => o -> m Bool getPrintOperationEmbedPageSetup obj = liftIO $ getObjectPropertyBool obj "embed-page-setup" @@ -1135,34 +1172,41 @@ attrGet _ = getPrintOperationEmbedPageSetup attrSet _ = setPrintOperationEmbedPageSetup attrConstruct _ = constructPrintOperationEmbedPageSetup + attrClear _ = undefined -- VVV Prop "export-filename" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getPrintOperationExportFilename :: (MonadIO m, PrintOperationK o) => o -> m T.Text +getPrintOperationExportFilename :: (MonadIO m, PrintOperationK o) => o -> m (Maybe T.Text) getPrintOperationExportFilename obj = liftIO $ getObjectPropertyString obj "export-filename" setPrintOperationExportFilename :: (MonadIO m, PrintOperationK o) => o -> T.Text -> m () -setPrintOperationExportFilename obj val = liftIO $ setObjectPropertyString obj "export-filename" val +setPrintOperationExportFilename obj val = liftIO $ setObjectPropertyString obj "export-filename" (Just val) constructPrintOperationExportFilename :: T.Text -> IO ([Char], GValue) -constructPrintOperationExportFilename val = constructObjectPropertyString "export-filename" val +constructPrintOperationExportFilename val = constructObjectPropertyString "export-filename" (Just val) +clearPrintOperationExportFilename :: (MonadIO m, PrintOperationK o) => o -> m () +clearPrintOperationExportFilename obj = liftIO $ setObjectPropertyString obj "export-filename" (Nothing :: Maybe T.Text) + data PrintOperationExportFilenamePropertyInfo instance AttrInfo PrintOperationExportFilenamePropertyInfo where - type AttrAllowedOps PrintOperationExportFilenamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps PrintOperationExportFilenamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint PrintOperationExportFilenamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint PrintOperationExportFilenamePropertyInfo = PrintOperationK - type AttrGetType PrintOperationExportFilenamePropertyInfo = T.Text + type AttrGetType PrintOperationExportFilenamePropertyInfo = (Maybe T.Text) type AttrLabel PrintOperationExportFilenamePropertyInfo = "export-filename" attrGet _ = getPrintOperationExportFilename attrSet _ = setPrintOperationExportFilename attrConstruct _ = constructPrintOperationExportFilename + attrClear _ = clearPrintOperationExportFilename -- VVV Prop "has-selection" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getPrintOperationHasSelection :: (MonadIO m, PrintOperationK o) => o -> m Bool getPrintOperationHasSelection obj = liftIO $ getObjectPropertyBool obj "has-selection" @@ -1183,43 +1227,47 @@ attrGet _ = getPrintOperationHasSelection attrSet _ = setPrintOperationHasSelection attrConstruct _ = constructPrintOperationHasSelection + attrClear _ = undefined -- VVV Prop "job-name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getPrintOperationJobName :: (MonadIO m, PrintOperationK o) => o -> m T.Text +getPrintOperationJobName :: (MonadIO m, PrintOperationK o) => o -> m (Maybe T.Text) getPrintOperationJobName obj = liftIO $ getObjectPropertyString obj "job-name" setPrintOperationJobName :: (MonadIO m, PrintOperationK o) => o -> T.Text -> m () -setPrintOperationJobName obj val = liftIO $ setObjectPropertyString obj "job-name" val +setPrintOperationJobName obj val = liftIO $ setObjectPropertyString obj "job-name" (Just val) constructPrintOperationJobName :: T.Text -> IO ([Char], GValue) -constructPrintOperationJobName val = constructObjectPropertyString "job-name" val +constructPrintOperationJobName val = constructObjectPropertyString "job-name" (Just val) data PrintOperationJobNamePropertyInfo instance AttrInfo PrintOperationJobNamePropertyInfo where type AttrAllowedOps PrintOperationJobNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint PrintOperationJobNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint PrintOperationJobNamePropertyInfo = PrintOperationK - type AttrGetType PrintOperationJobNamePropertyInfo = T.Text + type AttrGetType PrintOperationJobNamePropertyInfo = (Maybe T.Text) type AttrLabel PrintOperationJobNamePropertyInfo = "job-name" attrGet _ = getPrintOperationJobName attrSet _ = setPrintOperationJobName attrConstruct _ = constructPrintOperationJobName + attrClear _ = undefined -- VVV Prop "n-pages" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) getPrintOperationNPages :: (MonadIO m, PrintOperationK o) => o -> m Int32 -getPrintOperationNPages obj = liftIO $ getObjectPropertyCInt obj "n-pages" +getPrintOperationNPages obj = liftIO $ getObjectPropertyInt32 obj "n-pages" setPrintOperationNPages :: (MonadIO m, PrintOperationK o) => o -> Int32 -> m () -setPrintOperationNPages obj val = liftIO $ setObjectPropertyCInt obj "n-pages" val +setPrintOperationNPages obj val = liftIO $ setObjectPropertyInt32 obj "n-pages" val constructPrintOperationNPages :: Int32 -> IO ([Char], GValue) -constructPrintOperationNPages val = constructObjectPropertyCInt "n-pages" val +constructPrintOperationNPages val = constructObjectPropertyInt32 "n-pages" val data PrintOperationNPagesPropertyInfo instance AttrInfo PrintOperationNPagesPropertyInfo where @@ -1231,13 +1279,15 @@ attrGet _ = getPrintOperationNPages attrSet _ = setPrintOperationNPages attrConstruct _ = constructPrintOperationNPages + attrClear _ = undefined -- VVV Prop "n-pages-to-print" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getPrintOperationNPagesToPrint :: (MonadIO m, PrintOperationK o) => o -> m Int32 -getPrintOperationNPagesToPrint obj = liftIO $ getObjectPropertyCInt obj "n-pages-to-print" +getPrintOperationNPagesToPrint obj = liftIO $ getObjectPropertyInt32 obj "n-pages-to-print" data PrintOperationNPagesToPrintPropertyInfo instance AttrInfo PrintOperationNPagesToPrintPropertyInfo where @@ -1249,23 +1299,28 @@ attrGet _ = getPrintOperationNPagesToPrint attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "print-settings" -- Type: TInterface "Gtk" "PrintSettings" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) getPrintOperationPrintSettings :: (MonadIO m, PrintOperationK o) => o -> m PrintSettings -getPrintOperationPrintSettings obj = liftIO $ getObjectPropertyObject obj "print-settings" PrintSettings +getPrintOperationPrintSettings obj = liftIO $ checkUnexpectedNothing "getPrintOperationPrintSettings" $ getObjectPropertyObject obj "print-settings" PrintSettings setPrintOperationPrintSettings :: (MonadIO m, PrintOperationK o, PrintSettingsK a) => o -> a -> m () -setPrintOperationPrintSettings obj val = liftIO $ setObjectPropertyObject obj "print-settings" val +setPrintOperationPrintSettings obj val = liftIO $ setObjectPropertyObject obj "print-settings" (Just val) constructPrintOperationPrintSettings :: (PrintSettingsK a) => a -> IO ([Char], GValue) -constructPrintOperationPrintSettings val = constructObjectPropertyObject "print-settings" val +constructPrintOperationPrintSettings val = constructObjectPropertyObject "print-settings" (Just val) +clearPrintOperationPrintSettings :: (MonadIO m, PrintOperationK o) => o -> m () +clearPrintOperationPrintSettings obj = liftIO $ setObjectPropertyObject obj "print-settings" (Nothing :: Maybe PrintSettings) + data PrintOperationPrintSettingsPropertyInfo instance AttrInfo PrintOperationPrintSettingsPropertyInfo where - type AttrAllowedOps PrintOperationPrintSettingsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps PrintOperationPrintSettingsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint PrintOperationPrintSettingsPropertyInfo = PrintSettingsK type AttrBaseTypeConstraint PrintOperationPrintSettingsPropertyInfo = PrintOperationK type AttrGetType PrintOperationPrintSettingsPropertyInfo = PrintSettings @@ -1273,10 +1328,12 @@ attrGet _ = getPrintOperationPrintSettings attrSet _ = setPrintOperationPrintSettings attrConstruct _ = constructPrintOperationPrintSettings + attrClear _ = clearPrintOperationPrintSettings -- VVV Prop "show-progress" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) getPrintOperationShowProgress :: (MonadIO m, PrintOperationK o) => o -> m Bool getPrintOperationShowProgress obj = liftIO $ getObjectPropertyBool obj "show-progress" @@ -1297,10 +1354,12 @@ attrGet _ = getPrintOperationShowProgress attrSet _ = setPrintOperationShowProgress attrConstruct _ = constructPrintOperationShowProgress + attrClear _ = undefined -- VVV Prop "status" -- Type: TInterface "Gtk" "PrintStatus" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getPrintOperationStatus :: (MonadIO m, PrintOperationK o) => o -> m PrintStatus getPrintOperationStatus obj = liftIO $ getObjectPropertyEnum obj "status" @@ -1315,17 +1374,19 @@ attrGet _ = getPrintOperationStatus attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "status-string" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getPrintOperationStatusString :: (MonadIO m, PrintOperationK o) => o -> m T.Text -getPrintOperationStatusString obj = liftIO $ getObjectPropertyString obj "status-string" +getPrintOperationStatusString obj = liftIO $ checkUnexpectedNothing "getPrintOperationStatusString" $ getObjectPropertyString obj "status-string" data PrintOperationStatusStringPropertyInfo instance AttrInfo PrintOperationStatusStringPropertyInfo where - type AttrAllowedOps PrintOperationStatusStringPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps PrintOperationStatusStringPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint PrintOperationStatusStringPropertyInfo = (~) () type AttrBaseTypeConstraint PrintOperationStatusStringPropertyInfo = PrintOperationK type AttrGetType PrintOperationStatusStringPropertyInfo = T.Text @@ -1333,10 +1394,12 @@ attrGet _ = getPrintOperationStatusString attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "support-selection" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getPrintOperationSupportSelection :: (MonadIO m, PrintOperationK o) => o -> m Bool getPrintOperationSupportSelection obj = liftIO $ getObjectPropertyBool obj "support-selection" @@ -1357,10 +1420,12 @@ attrGet _ = getPrintOperationSupportSelection attrSet _ = setPrintOperationSupportSelection attrConstruct _ = constructPrintOperationSupportSelection + attrClear _ = undefined -- VVV Prop "track-print-status" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) getPrintOperationTrackPrintStatus :: (MonadIO m, PrintOperationK o) => o -> m Bool getPrintOperationTrackPrintStatus obj = liftIO $ getObjectPropertyBool obj "track-print-status" @@ -1381,10 +1446,12 @@ attrGet _ = getPrintOperationTrackPrintStatus attrSet _ = setPrintOperationTrackPrintStatus attrConstruct _ = constructPrintOperationTrackPrintStatus + attrClear _ = undefined -- VVV Prop "unit" -- Type: TInterface "Gtk" "Unit" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) getPrintOperationUnit :: (MonadIO m, PrintOperationK o) => o -> m Unit getPrintOperationUnit obj = liftIO $ getObjectPropertyEnum obj "unit" @@ -1405,10 +1472,12 @@ attrGet _ = getPrintOperationUnit attrSet _ = setPrintOperationUnit attrConstruct _ = constructPrintOperationUnit + attrClear _ = undefined -- VVV Prop "use-full-page" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) getPrintOperationUseFullPage :: (MonadIO m, PrintOperationK o) => o -> m Bool getPrintOperationUseFullPage obj = liftIO $ getObjectPropertyBool obj "use-full-page" @@ -1429,10 +1498,65 @@ attrGet _ = getPrintOperationUseFullPage attrSet _ = setPrintOperationUseFullPage attrConstruct _ = constructPrintOperationUseFullPage + attrClear _ = undefined type instance AttributeList PrintOperation = PrintOperationAttributeList type PrintOperationAttributeList = ('[ '("allowAsync", PrintOperationAllowAsyncPropertyInfo), '("currentPage", PrintOperationCurrentPagePropertyInfo), '("customTabLabel", PrintOperationCustomTabLabelPropertyInfo), '("defaultPageSetup", PrintOperationDefaultPageSetupPropertyInfo), '("embedPageSetup", PrintOperationEmbedPageSetupPropertyInfo), '("exportFilename", PrintOperationExportFilenamePropertyInfo), '("hasSelection", PrintOperationHasSelectionPropertyInfo), '("jobName", PrintOperationJobNamePropertyInfo), '("nPages", PrintOperationNPagesPropertyInfo), '("nPagesToPrint", PrintOperationNPagesToPrintPropertyInfo), '("printSettings", PrintOperationPrintSettingsPropertyInfo), '("showProgress", PrintOperationShowProgressPropertyInfo), '("status", PrintOperationStatusPropertyInfo), '("statusString", PrintOperationStatusStringPropertyInfo), '("supportSelection", PrintOperationSupportSelectionPropertyInfo), '("trackPrintStatus", PrintOperationTrackPrintStatusPropertyInfo), '("unit", PrintOperationUnitPropertyInfo), '("useFullPage", PrintOperationUseFullPagePropertyInfo)] :: [(Symbol, *)]) +printOperationAllowAsync :: AttrLabelProxy "allowAsync" +printOperationAllowAsync = AttrLabelProxy + +printOperationCurrentPage :: AttrLabelProxy "currentPage" +printOperationCurrentPage = AttrLabelProxy + +printOperationCustomTabLabel :: AttrLabelProxy "customTabLabel" +printOperationCustomTabLabel = AttrLabelProxy + +printOperationDefaultPageSetup :: AttrLabelProxy "defaultPageSetup" +printOperationDefaultPageSetup = AttrLabelProxy + +printOperationEmbedPageSetup :: AttrLabelProxy "embedPageSetup" +printOperationEmbedPageSetup = AttrLabelProxy + +printOperationExportFilename :: AttrLabelProxy "exportFilename" +printOperationExportFilename = AttrLabelProxy + +printOperationHasSelection :: AttrLabelProxy "hasSelection" +printOperationHasSelection = AttrLabelProxy + +printOperationJobName :: AttrLabelProxy "jobName" +printOperationJobName = AttrLabelProxy + +printOperationNPages :: AttrLabelProxy "nPages" +printOperationNPages = AttrLabelProxy + +printOperationNPagesToPrint :: AttrLabelProxy "nPagesToPrint" +printOperationNPagesToPrint = AttrLabelProxy + +printOperationPrintSettings :: AttrLabelProxy "printSettings" +printOperationPrintSettings = AttrLabelProxy + +printOperationShowProgress :: AttrLabelProxy "showProgress" +printOperationShowProgress = AttrLabelProxy + +printOperationStatus :: AttrLabelProxy "status" +printOperationStatus = AttrLabelProxy + +printOperationStatusString :: AttrLabelProxy "statusString" +printOperationStatusString = AttrLabelProxy + +printOperationSupportSelection :: AttrLabelProxy "supportSelection" +printOperationSupportSelection = AttrLabelProxy + +printOperationTrackPrintStatus :: AttrLabelProxy "trackPrintStatus" +printOperationTrackPrintStatus = AttrLabelProxy + +printOperationUnit :: AttrLabelProxy "unit" +printOperationUnit = AttrLabelProxy + +printOperationUseFullPage :: AttrLabelProxy "useFullPage" +printOperationUseFullPage = AttrLabelProxy + data PrintOperationBeginPrintSignalInfo instance SignalInfo PrintOperationBeginPrintSignalInfo where type HaskellCallbackType PrintOperationBeginPrintSignalInfo = PrintOperationBeginPrintCallback @@ -1495,7 +1619,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "PrintOperation" +-- returnType : Just (TInterface "Gtk" "PrintOperation") -- throws : False -- Skip return : False @@ -1516,7 +1640,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1543,7 +1667,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1570,7 +1694,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "PageSetup" +-- returnType : Just (TInterface "Gtk" "PageSetup") -- throws : False -- Skip return : False @@ -1599,7 +1723,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1627,7 +1751,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : True -- Skip return : False @@ -1659,7 +1783,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1687,7 +1811,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1714,7 +1838,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "PrintSettings" +-- returnType : Just (TInterface "Gtk" "PrintSettings") -- throws : False -- Skip return : False @@ -1743,7 +1867,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "PrintStatus" +-- returnType : Just (TInterface "Gtk" "PrintStatus") -- throws : False -- Skip return : False @@ -1771,7 +1895,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1800,7 +1924,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1828,7 +1952,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1856,7 +1980,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TInterface "Gtk" "PrintOperationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "PrintOperationResult" +-- returnType : Just (TInterface "Gtk" "PrintOperationResult") -- throws : True -- Skip return : False @@ -1900,7 +2024,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allow_async", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1928,15 +2052,15 @@ -- method PrintOperation::set_current_page -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "current_page", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "current_page", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_print_operation_set_current_page" gtk_print_operation_set_current_page :: Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation" - Int32 -> -- current_page : TBasicType TInt32 + Int32 -> -- current_page : TBasicType TInt IO () @@ -1959,7 +2083,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1994,7 +2118,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_page_setup", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2029,7 +2153,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2056,7 +2180,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "embed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2086,7 +2210,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2117,7 +2241,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "has_selection", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2147,7 +2271,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "job_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2176,15 +2300,15 @@ -- method PrintOperation::set_n_pages -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_pages", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_pages", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_print_operation_set_n_pages" gtk_print_operation_set_n_pages :: Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation" - Int32 -> -- n_pages : TBasicType TInt32 + Int32 -> -- n_pages : TBasicType TInt IO () @@ -2207,7 +2331,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "print_settings", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2242,7 +2366,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_progress", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2272,7 +2396,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "support_selection", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2302,7 +2426,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "track_status", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2332,7 +2456,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2362,7 +2486,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "full_page", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/PrintOperation.hs-boot b/GI/Gtk/Objects/PrintOperation.hs-boot --- a/GI/Gtk/Objects/PrintOperation.hs-boot +++ b/GI/Gtk/Objects/PrintOperation.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.PrintOperation where -import Prelude () 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 diff --git a/GI/Gtk/Objects/PrintSettings.hs b/GI/Gtk/Objects/PrintSettings.hs --- a/GI/Gtk/Objects/PrintSettings.hs +++ b/GI/Gtk/Objects/PrintSettings.hs @@ -388,9 +388,9 @@ ) where -import Prelude () 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 @@ -535,7 +535,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "PrintSettings" +-- returnType : Just (TInterface "Gtk" "PrintSettings") -- throws : False -- Skip return : False @@ -556,7 +556,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "PrintSettings" +-- returnType : Just (TInterface "Gtk" "PrintSettings") -- throws : True -- Skip return : False @@ -586,7 +586,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "PrintSettings" +-- returnType : Just (TInterface "Gtk" "PrintSettings") -- throws : True -- Skip return : False @@ -624,7 +624,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "PrintSettings" +-- returnType : Just (TInterface "Gtk" "PrintSettings") -- throws : False -- Skip return : False @@ -651,16 +651,16 @@ -- method PrintSettings::foreach -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "PrintSettingsFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "PrintSettingsFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_print_settings_foreach" gtk_print_settings_foreach :: Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" FunPtr PrintSettingsFuncC -> -- func : TInterface "Gtk" "PrintSettingsFunc" - Ptr () -> -- user_data : TBasicType TVoid + Ptr () -> -- user_data : TBasicType TPtr IO () @@ -686,7 +686,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -719,7 +719,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -751,7 +751,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -779,7 +779,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -808,7 +808,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -837,7 +837,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -869,7 +869,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "def", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -904,7 +904,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "PrintDuplex" +-- returnType : Just (TInterface "Gtk" "PrintDuplex") -- throws : False -- Skip return : False @@ -932,7 +932,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -961,7 +961,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -990,16 +990,16 @@ -- method PrintSettings::get_int_with_default -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "def", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "def", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False foreign import ccall "gtk_print_settings_get_int_with_default" gtk_print_settings_get_int_with_default :: Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" CString -> -- key : TBasicType TUTF8 - Int32 -> -- def : TBasicType TInt32 + Int32 -> -- def : TBasicType TInt IO Int32 @@ -1025,7 +1025,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -1060,7 +1060,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1089,7 +1089,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1116,7 +1116,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1143,7 +1143,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "NumberUpLayout" +-- returnType : Just (TInterface "Gtk" "NumberUpLayout") -- throws : False -- Skip return : False @@ -1171,7 +1171,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "PageOrientation" +-- returnType : Just (TInterface "Gtk" "PageOrientation") -- throws : False -- Skip return : False @@ -1199,7 +1199,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1226,15 +1226,15 @@ -- method PrintSettings::get_page_ranges -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "num_ranges", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "num_ranges", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : TCArray False (-1) 1 (TInterface "Gtk" "PageRange") +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "num_ranges", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [Arg {argCName = "num_ranges", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- returnType : Just (TCArray False (-1) 1 (TInterface "Gtk" "PageRange")) -- throws : False -- Skip return : False foreign import ccall "gtk_print_settings_get_page_ranges" gtk_print_settings_get_page_ranges :: Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - Ptr Int32 -> -- num_ranges : TBasicType TInt32 + Ptr Int32 -> -- num_ranges : TBasicType TInt IO (Ptr PageRange) @@ -1263,7 +1263,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "PageSet" +-- returnType : Just (TInterface "Gtk" "PageSet") -- throws : False -- Skip return : False @@ -1291,7 +1291,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -1322,7 +1322,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "PaperSize" +-- returnType : Just (TInterface "Gtk" "PaperSize") -- throws : False -- Skip return : False @@ -1351,7 +1351,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -1382,7 +1382,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "PrintPages" +-- returnType : Just (TInterface "Gtk" "PrintPages") -- throws : False -- Skip return : False @@ -1410,7 +1410,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1439,7 +1439,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -1467,7 +1467,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "PrintQuality" +-- returnType : Just (TInterface "Gtk" "PrintQuality") -- throws : False -- Skip return : False @@ -1495,7 +1495,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1522,7 +1522,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1549,7 +1549,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1576,7 +1576,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1604,7 +1604,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -1632,7 +1632,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1660,7 +1660,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1692,7 +1692,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -1728,7 +1728,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -1772,7 +1772,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1811,7 +1811,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1845,7 +1845,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "collate", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1875,7 +1875,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_source", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1906,7 +1906,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dither", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1937,7 +1937,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1971,7 +1971,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "duplex", argType = TInterface "Gtk" "PrintDuplex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2001,7 +2001,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "finishings", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2030,16 +2030,16 @@ -- method PrintSettings::set_int -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_print_settings_set_int" gtk_print_settings_set_int :: Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" CString -> -- key : TBasicType TUTF8 - Int32 -> -- value : TBasicType TInt32 + Int32 -> -- value : TBasicType TInt IO () @@ -2065,7 +2065,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2102,7 +2102,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "media_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2131,15 +2131,15 @@ -- method PrintSettings::set_n_copies -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "num_copies", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "num_copies", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_print_settings_set_n_copies" gtk_print_settings_set_n_copies :: Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - Int32 -> -- num_copies : TBasicType TInt32 + Int32 -> -- num_copies : TBasicType TInt IO () @@ -2160,15 +2160,15 @@ -- method PrintSettings::set_number_up -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "number_up", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "number_up", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_print_settings_set_number_up" gtk_print_settings_set_number_up :: Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - Int32 -> -- number_up : TBasicType TInt32 + Int32 -> -- number_up : TBasicType TInt IO () @@ -2191,7 +2191,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "number_up_layout", argType = TInterface "Gtk" "NumberUpLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2221,7 +2221,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "orientation", argType = TInterface "Gtk" "PageOrientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2251,7 +2251,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "output_bin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2280,16 +2280,16 @@ -- method PrintSettings::set_page_ranges -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_ranges", argType = TCArray False (-1) 2 (TInterface "Gtk" "PageRange"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "num_ranges", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "num_ranges", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : TBasicType TVoid +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_ranges", argType = TCArray False (-1) 2 (TInterface "Gtk" "PageRange"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "num_ranges", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "num_ranges", 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 "gtk_print_settings_set_page_ranges" gtk_print_settings_set_page_ranges :: Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" Ptr PageRange -> -- page_ranges : TCArray False (-1) 2 (TInterface "Gtk" "PageRange") - Int32 -> -- num_ranges : TBasicType TInt32 + Int32 -> -- num_ranges : TBasicType TInt IO () @@ -2317,7 +2317,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page_set", argType = TInterface "Gtk" "PageSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2347,7 +2347,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2380,7 +2380,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "paper_size", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2411,7 +2411,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2444,7 +2444,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pages", argType = TInterface "Gtk" "PrintPages", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2474,7 +2474,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "printer", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2505,7 +2505,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lpi", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2535,7 +2535,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "quality", argType = TInterface "Gtk" "PrintQuality", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2563,15 +2563,15 @@ -- method PrintSettings::set_resolution -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resolution", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resolution", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_print_settings_set_resolution" gtk_print_settings_set_resolution :: Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - Int32 -> -- resolution : TBasicType TInt32 + Int32 -> -- resolution : TBasicType TInt IO () @@ -2592,16 +2592,16 @@ -- method PrintSettings::set_resolution_xy -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resolution_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resolution_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resolution_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resolution_y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_print_settings_set_resolution_xy" gtk_print_settings_set_resolution_xy :: Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - Int32 -> -- resolution_x : TBasicType TInt32 - Int32 -> -- resolution_y : TBasicType TInt32 + Int32 -> -- resolution_x : TBasicType TInt + Int32 -> -- resolution_y : TBasicType TInt IO () @@ -2625,7 +2625,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "reverse", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2655,7 +2655,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2685,7 +2685,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_color", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2715,7 +2715,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -2751,7 +2751,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2786,7 +2786,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/PrintSettings.hs-boot b/GI/Gtk/Objects/PrintSettings.hs-boot --- a/GI/Gtk/Objects/PrintSettings.hs-boot +++ b/GI/Gtk/Objects/PrintSettings.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.PrintSettings where -import Prelude () 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 diff --git a/GI/Gtk/Objects/ProgressBar.hs b/GI/Gtk/Objects/ProgressBar.hs --- a/GI/Gtk/Objects/ProgressBar.hs +++ b/GI/Gtk/Objects/ProgressBar.hs @@ -93,6 +93,7 @@ ProgressBarEllipsizePropertyInfo , constructProgressBarEllipsize , getProgressBarEllipsize , + progressBarEllipsize , setProgressBarEllipsize , @@ -100,6 +101,7 @@ ProgressBarFractionPropertyInfo , constructProgressBarFraction , getProgressBarFraction , + progressBarFraction , setProgressBarFraction , @@ -107,6 +109,7 @@ ProgressBarInvertedPropertyInfo , constructProgressBarInverted , getProgressBarInverted , + progressBarInverted , setProgressBarInverted , @@ -114,6 +117,7 @@ ProgressBarPulseStepPropertyInfo , constructProgressBarPulseStep , getProgressBarPulseStep , + progressBarPulseStep , setProgressBarPulseStep , @@ -121,13 +125,16 @@ ProgressBarShowTextPropertyInfo , constructProgressBarShowText , getProgressBarShowText , + progressBarShowText , setProgressBarShowText , -- ** Text ProgressBarTextPropertyInfo , + clearProgressBarText , constructProgressBarText , getProgressBarText , + progressBarText , setProgressBarText , @@ -135,9 +142,9 @@ ) where -import Prelude () 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 @@ -483,6 +490,7 @@ -- VVV Prop "ellipsize" -- Type: TInterface "Pango" "EllipsizeMode" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getProgressBarEllipsize :: (MonadIO m, ProgressBarK o) => o -> m Pango.EllipsizeMode getProgressBarEllipsize obj = liftIO $ getObjectPropertyEnum obj "ellipsize" @@ -503,10 +511,12 @@ attrGet _ = getProgressBarEllipsize attrSet _ = setProgressBarEllipsize attrConstruct _ = constructProgressBarEllipsize + attrClear _ = undefined -- VVV Prop "fraction" -- Type: TBasicType TDouble -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getProgressBarFraction :: (MonadIO m, ProgressBarK o) => o -> m Double getProgressBarFraction obj = liftIO $ getObjectPropertyDouble obj "fraction" @@ -527,10 +537,12 @@ attrGet _ = getProgressBarFraction attrSet _ = setProgressBarFraction attrConstruct _ = constructProgressBarFraction + attrClear _ = undefined -- VVV Prop "inverted" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getProgressBarInverted :: (MonadIO m, ProgressBarK o) => o -> m Bool getProgressBarInverted obj = liftIO $ getObjectPropertyBool obj "inverted" @@ -551,10 +563,12 @@ attrGet _ = getProgressBarInverted attrSet _ = setProgressBarInverted attrConstruct _ = constructProgressBarInverted + attrClear _ = undefined -- VVV Prop "pulse-step" -- Type: TBasicType TDouble -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getProgressBarPulseStep :: (MonadIO m, ProgressBarK o) => o -> m Double getProgressBarPulseStep obj = liftIO $ getObjectPropertyDouble obj "pulse-step" @@ -575,10 +589,12 @@ attrGet _ = getProgressBarPulseStep attrSet _ = setProgressBarPulseStep attrConstruct _ = constructProgressBarPulseStep + attrClear _ = undefined -- VVV Prop "show-text" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getProgressBarShowText :: (MonadIO m, ProgressBarK o) => o -> m Bool getProgressBarShowText obj = liftIO $ getObjectPropertyBool obj "show-text" @@ -599,23 +615,28 @@ attrGet _ = getProgressBarShowText attrSet _ = setProgressBarShowText attrConstruct _ = constructProgressBarShowText + attrClear _ = undefined -- VVV Prop "text" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) getProgressBarText :: (MonadIO m, ProgressBarK o) => o -> m T.Text -getProgressBarText obj = liftIO $ getObjectPropertyString obj "text" +getProgressBarText obj = liftIO $ checkUnexpectedNothing "getProgressBarText" $ getObjectPropertyString obj "text" setProgressBarText :: (MonadIO m, ProgressBarK o) => o -> T.Text -> m () -setProgressBarText obj val = liftIO $ setObjectPropertyString obj "text" val +setProgressBarText obj val = liftIO $ setObjectPropertyString obj "text" (Just val) constructProgressBarText :: T.Text -> IO ([Char], GValue) -constructProgressBarText val = constructObjectPropertyString "text" val +constructProgressBarText val = constructObjectPropertyString "text" (Just val) +clearProgressBarText :: (MonadIO m, ProgressBarK o) => o -> m () +clearProgressBarText obj = liftIO $ setObjectPropertyString obj "text" (Nothing :: Maybe T.Text) + data ProgressBarTextPropertyInfo instance AttrInfo ProgressBarTextPropertyInfo where - type AttrAllowedOps ProgressBarTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps ProgressBarTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ProgressBarTextPropertyInfo = (~) T.Text type AttrBaseTypeConstraint ProgressBarTextPropertyInfo = ProgressBarK type AttrGetType ProgressBarTextPropertyInfo = T.Text @@ -623,10 +644,29 @@ attrGet _ = getProgressBarText attrSet _ = setProgressBarText attrConstruct _ = constructProgressBarText + attrClear _ = clearProgressBarText type instance AttributeList ProgressBar = ProgressBarAttributeList type ProgressBarAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("ellipsize", ProgressBarEllipsizePropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("fraction", ProgressBarFractionPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("inverted", ProgressBarInvertedPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("pulseStep", ProgressBarPulseStepPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showText", ProgressBarShowTextPropertyInfo), '("style", WidgetStylePropertyInfo), '("text", ProgressBarTextPropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +progressBarEllipsize :: AttrLabelProxy "ellipsize" +progressBarEllipsize = AttrLabelProxy + +progressBarFraction :: AttrLabelProxy "fraction" +progressBarFraction = AttrLabelProxy + +progressBarInverted :: AttrLabelProxy "inverted" +progressBarInverted = AttrLabelProxy + +progressBarPulseStep :: AttrLabelProxy "pulseStep" +progressBarPulseStep = AttrLabelProxy + +progressBarShowText :: AttrLabelProxy "showText" +progressBarShowText = AttrLabelProxy + +progressBarText :: AttrLabelProxy "text" +progressBarText = AttrLabelProxy + type instance SignalList ProgressBar = ProgressBarSignalList type ProgressBarSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -634,7 +674,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "ProgressBar" +-- returnType : Just (TInterface "Gtk" "ProgressBar") -- throws : False -- Skip return : False @@ -655,7 +695,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Pango" "EllipsizeMode" +-- returnType : Just (TInterface "Pango" "EllipsizeMode") -- throws : False -- Skip return : False @@ -683,7 +723,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -711,7 +751,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -739,7 +779,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -767,7 +807,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -795,7 +835,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -824,7 +864,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -851,7 +891,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mode", argType = TInterface "Pango" "EllipsizeMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -881,7 +921,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fraction", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -911,7 +951,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "inverted", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -941,7 +981,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fraction", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -971,7 +1011,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_text", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1001,7 +1041,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/ProgressBar.hs-boot b/GI/Gtk/Objects/ProgressBar.hs-boot --- a/GI/Gtk/Objects/ProgressBar.hs-boot +++ b/GI/Gtk/Objects/ProgressBar.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.ProgressBar where -import Prelude () 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 diff --git a/GI/Gtk/Objects/ProgressBarAccessible.hs b/GI/Gtk/Objects/ProgressBarAccessible.hs --- a/GI/Gtk/Objects/ProgressBarAccessible.hs +++ b/GI/Gtk/Objects/ProgressBarAccessible.hs @@ -18,9 +18,9 @@ ) where -import Prelude () 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 diff --git a/GI/Gtk/Objects/ProgressBarAccessible.hs-boot b/GI/Gtk/Objects/ProgressBarAccessible.hs-boot --- a/GI/Gtk/Objects/ProgressBarAccessible.hs-boot +++ b/GI/Gtk/Objects/ProgressBarAccessible.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.ProgressBarAccessible where -import Prelude () 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 diff --git a/GI/Gtk/Objects/RadioAction.hs b/GI/Gtk/Objects/RadioAction.hs --- a/GI/Gtk/Objects/RadioAction.hs +++ b/GI/Gtk/Objects/RadioAction.hs @@ -53,12 +53,15 @@ RadioActionCurrentValuePropertyInfo , constructRadioActionCurrentValue , getRadioActionCurrentValue , + radioActionCurrentValue , setRadioActionCurrentValue , -- ** Group RadioActionGroupPropertyInfo , + clearRadioActionGroup , constructRadioActionGroup , + radioActionGroup , setRadioActionGroup , @@ -66,6 +69,7 @@ RadioActionValuePropertyInfo , constructRadioActionValue , getRadioActionValue , + radioActionValue , setRadioActionValue , @@ -88,9 +92,9 @@ ) where -import Prelude () 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 @@ -255,17 +259,18 @@ connectSignalFunPtr obj "changed" cb' after -- VVV Prop "current-value" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getRadioActionCurrentValue :: (MonadIO m, RadioActionK o) => o -> m Int32 -getRadioActionCurrentValue obj = liftIO $ getObjectPropertyCInt obj "current-value" +getRadioActionCurrentValue obj = liftIO $ getObjectPropertyInt32 obj "current-value" setRadioActionCurrentValue :: (MonadIO m, RadioActionK o) => o -> Int32 -> m () -setRadioActionCurrentValue obj val = liftIO $ setObjectPropertyCInt obj "current-value" val +setRadioActionCurrentValue obj val = liftIO $ setObjectPropertyInt32 obj "current-value" val constructRadioActionCurrentValue :: Int32 -> IO ([Char], GValue) -constructRadioActionCurrentValue val = constructObjectPropertyCInt "current-value" val +constructRadioActionCurrentValue val = constructObjectPropertyInt32 "current-value" val data RadioActionCurrentValuePropertyInfo instance AttrInfo RadioActionCurrentValuePropertyInfo where @@ -277,20 +282,25 @@ attrGet _ = getRadioActionCurrentValue attrSet _ = setRadioActionCurrentValue attrConstruct _ = constructRadioActionCurrentValue + attrClear _ = undefined -- VVV Prop "group" -- Type: TInterface "Gtk" "RadioAction" -- Flags: [PropertyWritable] + -- Nullable: (Nothing,Nothing) setRadioActionGroup :: (MonadIO m, RadioActionK o, RadioActionK a) => o -> a -> m () -setRadioActionGroup obj val = liftIO $ setObjectPropertyObject obj "group" val +setRadioActionGroup obj val = liftIO $ setObjectPropertyObject obj "group" (Just val) constructRadioActionGroup :: (RadioActionK a) => a -> IO ([Char], GValue) -constructRadioActionGroup val = constructObjectPropertyObject "group" val +constructRadioActionGroup val = constructObjectPropertyObject "group" (Just val) +clearRadioActionGroup :: (MonadIO m, RadioActionK o) => o -> m () +clearRadioActionGroup obj = liftIO $ setObjectPropertyObject obj "group" (Nothing :: Maybe RadioAction) + data RadioActionGroupPropertyInfo instance AttrInfo RadioActionGroupPropertyInfo where - type AttrAllowedOps RadioActionGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct] + type AttrAllowedOps RadioActionGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear] type AttrSetTypeConstraint RadioActionGroupPropertyInfo = RadioActionK type AttrBaseTypeConstraint RadioActionGroupPropertyInfo = RadioActionK type AttrGetType RadioActionGroupPropertyInfo = () @@ -298,19 +308,21 @@ attrGet _ = undefined attrSet _ = setRadioActionGroup attrConstruct _ = constructRadioActionGroup + attrClear _ = clearRadioActionGroup -- VVV Prop "value" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getRadioActionValue :: (MonadIO m, RadioActionK o) => o -> m Int32 -getRadioActionValue obj = liftIO $ getObjectPropertyCInt obj "value" +getRadioActionValue obj = liftIO $ getObjectPropertyInt32 obj "value" setRadioActionValue :: (MonadIO m, RadioActionK o) => o -> Int32 -> m () -setRadioActionValue obj val = liftIO $ setObjectPropertyCInt obj "value" val +setRadioActionValue obj val = liftIO $ setObjectPropertyInt32 obj "value" val constructRadioActionValue :: Int32 -> IO ([Char], GValue) -constructRadioActionValue val = constructObjectPropertyCInt "value" val +constructRadioActionValue val = constructObjectPropertyInt32 "value" val data RadioActionValuePropertyInfo instance AttrInfo RadioActionValuePropertyInfo where @@ -322,10 +334,20 @@ attrGet _ = getRadioActionValue attrSet _ = setRadioActionValue attrConstruct _ = constructRadioActionValue + attrClear _ = undefined type instance AttributeList RadioAction = RadioActionAttributeList type RadioActionAttributeList = ('[ '("actionGroup", ActionActionGroupPropertyInfo), '("active", ToggleActionActivePropertyInfo), '("alwaysShowImage", ActionAlwaysShowImagePropertyInfo), '("currentValue", RadioActionCurrentValuePropertyInfo), '("drawAsRadio", ToggleActionDrawAsRadioPropertyInfo), '("gicon", ActionGiconPropertyInfo), '("group", RadioActionGroupPropertyInfo), '("hideIfEmpty", ActionHideIfEmptyPropertyInfo), '("iconName", ActionIconNamePropertyInfo), '("isImportant", ActionIsImportantPropertyInfo), '("label", ActionLabelPropertyInfo), '("name", ActionNamePropertyInfo), '("sensitive", ActionSensitivePropertyInfo), '("shortLabel", ActionShortLabelPropertyInfo), '("stockId", ActionStockIdPropertyInfo), '("tooltip", ActionTooltipPropertyInfo), '("value", RadioActionValuePropertyInfo), '("visible", ActionVisiblePropertyInfo), '("visibleHorizontal", ActionVisibleHorizontalPropertyInfo), '("visibleOverflown", ActionVisibleOverflownPropertyInfo), '("visibleVertical", ActionVisibleVerticalPropertyInfo)] :: [(Symbol, *)]) +radioActionCurrentValue :: AttrLabelProxy "currentValue" +radioActionCurrentValue = AttrLabelProxy + +radioActionGroup :: AttrLabelProxy "group" +radioActionGroup = AttrLabelProxy + +radioActionValue :: AttrLabelProxy "value" +radioActionValue = AttrLabelProxy + data RadioActionChangedSignalInfo instance SignalInfo RadioActionChangedSignalInfo where type HaskellCallbackType RadioActionChangedSignalInfo = RadioActionChangedCallback @@ -336,9 +358,9 @@ -- method RadioAction::new -- method type : Constructor --- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "RadioAction" +-- returnType : Just (TInterface "Gtk" "RadioAction") -- throws : False -- Skip return : False @@ -347,7 +369,7 @@ CString -> -- label : TBasicType TUTF8 CString -> -- tooltip : TBasicType TUTF8 CString -> -- stock_id : TBasicType TUTF8 - Int32 -> -- value : TBasicType TInt32 + Int32 -> -- value : TBasicType TInt IO (Ptr RadioAction) {-# DEPRECATED radioActionNew ["(Since version 3.10)"]#-} @@ -389,7 +411,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -416,7 +438,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TGSList (TInterface "Gtk" "RadioAction") +-- returnType : Just (TGSList (TInterface "Gtk" "RadioAction")) -- throws : False -- Skip return : False @@ -432,7 +454,6 @@ radioActionGetGroup _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_radio_action_get_group _obj' - checkUnexpectedReturnNULL "gtk_radio_action_get_group" result result' <- unpackGSList result result'' <- mapM (newObject RadioAction) result' touchManagedPtr _obj @@ -446,7 +467,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_source", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -479,15 +500,15 @@ -- method RadioAction::set_current_value -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "current_value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "current_value", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_radio_action_set_current_value" gtk_radio_action_set_current_value :: Ptr RadioAction -> -- _obj : TInterface "Gtk" "RadioAction" - Int32 -> -- current_value : TBasicType TInt32 + Int32 -> -- current_value : TBasicType TInt IO () {-# DEPRECATED radioActionSetCurrentValue ["(Since version 3.10)"]#-} @@ -510,7 +531,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group", argType = TGSList (TInterface "Gtk" "RadioAction"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/RadioAction.hs-boot b/GI/Gtk/Objects/RadioAction.hs-boot --- a/GI/Gtk/Objects/RadioAction.hs-boot +++ b/GI/Gtk/Objects/RadioAction.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.RadioAction where -import Prelude () 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 diff --git a/GI/Gtk/Objects/RadioButton.hs b/GI/Gtk/Objects/RadioButton.hs --- a/GI/Gtk/Objects/RadioButton.hs +++ b/GI/Gtk/Objects/RadioButton.hs @@ -61,7 +61,9 @@ -- * Properties -- ** Group RadioButtonGroupPropertyInfo , + clearRadioButtonGroup , constructRadioButtonGroup , + radioButtonGroup , setRadioButtonGroup , @@ -84,9 +86,9 @@ ) where -import Prelude () 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 @@ -526,16 +528,20 @@ -- VVV Prop "group" -- Type: TInterface "Gtk" "RadioButton" -- Flags: [PropertyWritable] + -- Nullable: (Nothing,Nothing) setRadioButtonGroup :: (MonadIO m, RadioButtonK o, RadioButtonK a) => o -> a -> m () -setRadioButtonGroup obj val = liftIO $ setObjectPropertyObject obj "group" val +setRadioButtonGroup obj val = liftIO $ setObjectPropertyObject obj "group" (Just val) constructRadioButtonGroup :: (RadioButtonK a) => a -> IO ([Char], GValue) -constructRadioButtonGroup val = constructObjectPropertyObject "group" val +constructRadioButtonGroup val = constructObjectPropertyObject "group" (Just val) +clearRadioButtonGroup :: (MonadIO m, RadioButtonK o) => o -> m () +clearRadioButtonGroup obj = liftIO $ setObjectPropertyObject obj "group" (Nothing :: Maybe RadioButton) + data RadioButtonGroupPropertyInfo instance AttrInfo RadioButtonGroupPropertyInfo where - type AttrAllowedOps RadioButtonGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct] + type AttrAllowedOps RadioButtonGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear] type AttrSetTypeConstraint RadioButtonGroupPropertyInfo = RadioButtonK type AttrBaseTypeConstraint RadioButtonGroupPropertyInfo = RadioButtonK type AttrGetType RadioButtonGroupPropertyInfo = () @@ -543,10 +549,14 @@ attrGet _ = undefined attrSet _ = setRadioButtonGroup attrConstruct _ = constructRadioButtonGroup + attrClear _ = clearRadioButtonGroup type instance AttributeList RadioButton = RadioButtonAttributeList type RadioButtonAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("active", ToggleButtonActivePropertyInfo), '("alwaysShowImage", ButtonAlwaysShowImagePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("drawIndicator", ToggleButtonDrawIndicatorPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnClick", ButtonFocusOnClickPropertyInfo), '("group", RadioButtonGroupPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("image", ButtonImagePropertyInfo), '("imagePosition", ButtonImagePositionPropertyInfo), '("inconsistent", ToggleButtonInconsistentPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useStock", ButtonUseStockPropertyInfo), '("useUnderline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) +radioButtonGroup :: AttrLabelProxy "group" +radioButtonGroup = AttrLabelProxy + data RadioButtonGroupChangedSignalInfo instance SignalInfo RadioButtonGroupChangedSignalInfo where type HaskellCallbackType RadioButtonGroupChangedSignalInfo = RadioButtonGroupChangedCallback @@ -559,7 +569,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "RadioButton" +-- returnType : Just (TInterface "Gtk" "RadioButton") -- throws : False -- Skip return : False @@ -586,7 +596,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "radio_group_member", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "RadioButton" +-- returnType : Just (TInterface "Gtk" "RadioButton") -- throws : False -- Skip return : False @@ -615,7 +625,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "RadioButton" +-- returnType : Just (TInterface "Gtk" "RadioButton") -- throws : False -- Skip return : False @@ -646,7 +656,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "radio_group_member", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "RadioButton" +-- returnType : Just (TInterface "Gtk" "RadioButton") -- throws : False -- Skip return : False @@ -679,7 +689,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "RadioButton" +-- returnType : Just (TInterface "Gtk" "RadioButton") -- throws : False -- Skip return : False @@ -710,7 +720,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "radio_group_member", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "RadioButton" +-- returnType : Just (TInterface "Gtk" "RadioButton") -- throws : False -- Skip return : False @@ -743,7 +753,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TGSList (TInterface "Gtk" "RadioButton") +-- returnType : Just (TGSList (TInterface "Gtk" "RadioButton")) -- throws : False -- Skip return : False @@ -759,7 +769,6 @@ radioButtonGetGroup _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_radio_button_get_group _obj' - checkUnexpectedReturnNULL "gtk_radio_button_get_group" result result' <- unpackGSList result result'' <- mapM (newObject RadioButton) result' touchManagedPtr _obj @@ -773,7 +782,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_source", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -808,7 +817,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/RadioButton.hs-boot b/GI/Gtk/Objects/RadioButton.hs-boot --- a/GI/Gtk/Objects/RadioButton.hs-boot +++ b/GI/Gtk/Objects/RadioButton.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.RadioButton where -import Prelude () 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 diff --git a/GI/Gtk/Objects/RadioButtonAccessible.hs b/GI/Gtk/Objects/RadioButtonAccessible.hs --- a/GI/Gtk/Objects/RadioButtonAccessible.hs +++ b/GI/Gtk/Objects/RadioButtonAccessible.hs @@ -18,9 +18,9 @@ ) where -import Prelude () 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 diff --git a/GI/Gtk/Objects/RadioButtonAccessible.hs-boot b/GI/Gtk/Objects/RadioButtonAccessible.hs-boot --- a/GI/Gtk/Objects/RadioButtonAccessible.hs-boot +++ b/GI/Gtk/Objects/RadioButtonAccessible.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.RadioButtonAccessible where -import Prelude () 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 diff --git a/GI/Gtk/Objects/RadioMenuItem.hs b/GI/Gtk/Objects/RadioMenuItem.hs --- a/GI/Gtk/Objects/RadioMenuItem.hs +++ b/GI/Gtk/Objects/RadioMenuItem.hs @@ -61,7 +61,9 @@ -- * Properties -- ** Group RadioMenuItemGroupPropertyInfo , + clearRadioMenuItemGroup , constructRadioMenuItemGroup , + radioMenuItemGroup , setRadioMenuItemGroup , @@ -84,9 +86,9 @@ ) where -import Prelude () 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 @@ -515,16 +517,20 @@ -- VVV Prop "group" -- Type: TInterface "Gtk" "RadioMenuItem" -- Flags: [PropertyWritable] + -- Nullable: (Nothing,Nothing) setRadioMenuItemGroup :: (MonadIO m, RadioMenuItemK o, RadioMenuItemK a) => o -> a -> m () -setRadioMenuItemGroup obj val = liftIO $ setObjectPropertyObject obj "group" val +setRadioMenuItemGroup obj val = liftIO $ setObjectPropertyObject obj "group" (Just val) constructRadioMenuItemGroup :: (RadioMenuItemK a) => a -> IO ([Char], GValue) -constructRadioMenuItemGroup val = constructObjectPropertyObject "group" val +constructRadioMenuItemGroup val = constructObjectPropertyObject "group" (Just val) +clearRadioMenuItemGroup :: (MonadIO m, RadioMenuItemK o) => o -> m () +clearRadioMenuItemGroup obj = liftIO $ setObjectPropertyObject obj "group" (Nothing :: Maybe RadioMenuItem) + data RadioMenuItemGroupPropertyInfo instance AttrInfo RadioMenuItemGroupPropertyInfo where - type AttrAllowedOps RadioMenuItemGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct] + type AttrAllowedOps RadioMenuItemGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear] type AttrSetTypeConstraint RadioMenuItemGroupPropertyInfo = RadioMenuItemK type AttrBaseTypeConstraint RadioMenuItemGroupPropertyInfo = RadioMenuItemK type AttrGetType RadioMenuItemGroupPropertyInfo = () @@ -532,10 +538,14 @@ attrGet _ = undefined attrSet _ = setRadioMenuItemGroup attrConstruct _ = constructRadioMenuItemGroup + attrClear _ = clearRadioMenuItemGroup type instance AttributeList RadioMenuItem = RadioMenuItemAttributeList type RadioMenuItemAttributeList = ('[ '("accelPath", MenuItemAccelPathPropertyInfo), '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("active", CheckMenuItemActivePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("drawAsRadio", CheckMenuItemDrawAsRadioPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("group", RadioMenuItemGroupPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("inconsistent", CheckMenuItemInconsistentPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", MenuItemLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rightJustified", MenuItemRightJustifiedPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("submenu", MenuItemSubmenuPropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useUnderline", MenuItemUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +radioMenuItemGroup :: AttrLabelProxy "group" +radioMenuItemGroup = AttrLabelProxy + data RadioMenuItemGroupChangedSignalInfo instance SignalInfo RadioMenuItemGroupChangedSignalInfo where type HaskellCallbackType RadioMenuItemGroupChangedSignalInfo = RadioMenuItemGroupChangedCallback @@ -548,7 +558,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "group", argType = TGSList (TInterface "Gtk" "RadioMenuItem"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "RadioMenuItem" +-- returnType : Just (TInterface "Gtk" "RadioMenuItem") -- throws : False -- Skip return : False @@ -575,7 +585,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "group", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "RadioMenuItem" +-- returnType : Just (TInterface "Gtk" "RadioMenuItem") -- throws : False -- Skip return : False @@ -604,7 +614,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "group", argType = TGSList (TInterface "Gtk" "RadioMenuItem"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "RadioMenuItem" +-- returnType : Just (TInterface "Gtk" "RadioMenuItem") -- throws : False -- Skip return : False @@ -635,7 +645,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "group", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "RadioMenuItem" +-- returnType : Just (TInterface "Gtk" "RadioMenuItem") -- throws : False -- Skip return : False @@ -672,7 +682,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "group", argType = TGSList (TInterface "Gtk" "RadioMenuItem"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "RadioMenuItem" +-- returnType : Just (TInterface "Gtk" "RadioMenuItem") -- throws : False -- Skip return : False @@ -703,7 +713,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "group", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "RadioMenuItem" +-- returnType : Just (TInterface "Gtk" "RadioMenuItem") -- throws : False -- Skip return : False @@ -740,7 +750,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TGSList (TInterface "Gtk" "RadioMenuItem") +-- returnType : Just (TGSList (TInterface "Gtk" "RadioMenuItem")) -- throws : False -- Skip return : False @@ -756,7 +766,6 @@ radioMenuItemGetGroup _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_radio_menu_item_get_group _obj' - checkUnexpectedReturnNULL "gtk_radio_menu_item_get_group" result result' <- unpackGSList result result'' <- mapM (newObject RadioMenuItem) result' touchManagedPtr _obj @@ -770,7 +779,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_source", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -805,7 +814,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group", argType = TGSList (TInterface "Gtk" "RadioMenuItem"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/RadioMenuItem.hs-boot b/GI/Gtk/Objects/RadioMenuItem.hs-boot --- a/GI/Gtk/Objects/RadioMenuItem.hs-boot +++ b/GI/Gtk/Objects/RadioMenuItem.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.RadioMenuItem where -import Prelude () 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 diff --git a/GI/Gtk/Objects/RadioMenuItemAccessible.hs b/GI/Gtk/Objects/RadioMenuItemAccessible.hs --- a/GI/Gtk/Objects/RadioMenuItemAccessible.hs +++ b/GI/Gtk/Objects/RadioMenuItemAccessible.hs @@ -18,9 +18,9 @@ ) where -import Prelude () 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 diff --git a/GI/Gtk/Objects/RadioMenuItemAccessible.hs-boot b/GI/Gtk/Objects/RadioMenuItemAccessible.hs-boot --- a/GI/Gtk/Objects/RadioMenuItemAccessible.hs-boot +++ b/GI/Gtk/Objects/RadioMenuItemAccessible.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.RadioMenuItemAccessible where -import Prelude () 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 diff --git a/GI/Gtk/Objects/RadioToolButton.hs b/GI/Gtk/Objects/RadioToolButton.hs --- a/GI/Gtk/Objects/RadioToolButton.hs +++ b/GI/Gtk/Objects/RadioToolButton.hs @@ -48,7 +48,9 @@ -- * Properties -- ** Group RadioToolButtonGroupPropertyInfo , + clearRadioToolButtonGroup , constructRadioToolButtonGroup , + radioToolButtonGroup , setRadioToolButtonGroup , @@ -56,9 +58,9 @@ ) where -import Prelude () 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 @@ -465,16 +467,20 @@ -- VVV Prop "group" -- Type: TInterface "Gtk" "RadioToolButton" -- Flags: [PropertyWritable] + -- Nullable: (Nothing,Nothing) setRadioToolButtonGroup :: (MonadIO m, RadioToolButtonK o, RadioToolButtonK a) => o -> a -> m () -setRadioToolButtonGroup obj val = liftIO $ setObjectPropertyObject obj "group" val +setRadioToolButtonGroup obj val = liftIO $ setObjectPropertyObject obj "group" (Just val) constructRadioToolButtonGroup :: (RadioToolButtonK a) => a -> IO ([Char], GValue) -constructRadioToolButtonGroup val = constructObjectPropertyObject "group" val +constructRadioToolButtonGroup val = constructObjectPropertyObject "group" (Just val) +clearRadioToolButtonGroup :: (MonadIO m, RadioToolButtonK o) => o -> m () +clearRadioToolButtonGroup obj = liftIO $ setObjectPropertyObject obj "group" (Nothing :: Maybe RadioToolButton) + data RadioToolButtonGroupPropertyInfo instance AttrInfo RadioToolButtonGroupPropertyInfo where - type AttrAllowedOps RadioToolButtonGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct] + type AttrAllowedOps RadioToolButtonGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear] type AttrSetTypeConstraint RadioToolButtonGroupPropertyInfo = RadioToolButtonK type AttrBaseTypeConstraint RadioToolButtonGroupPropertyInfo = RadioToolButtonK type AttrGetType RadioToolButtonGroupPropertyInfo = () @@ -482,10 +488,14 @@ attrGet _ = undefined attrSet _ = setRadioToolButtonGroup attrConstruct _ = constructRadioToolButtonGroup + attrClear _ = clearRadioToolButtonGroup type instance AttributeList RadioToolButton = RadioToolButtonAttributeList type RadioToolButtonAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("active", ToggleToolButtonActivePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("group", RadioToolButtonGroupPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("iconName", ToolButtonIconNamePropertyInfo), '("iconWidget", ToolButtonIconWidgetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isImportant", ToolItemIsImportantPropertyInfo), '("label", ToolButtonLabelPropertyInfo), '("labelWidget", ToolButtonLabelWidgetPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("stockId", ToolButtonStockIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useUnderline", ToolButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visibleHorizontal", ToolItemVisibleHorizontalPropertyInfo), '("visibleVertical", ToolItemVisibleVerticalPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +radioToolButtonGroup :: AttrLabelProxy "group" +radioToolButtonGroup = AttrLabelProxy + type instance SignalList RadioToolButton = RadioToolButtonSignalList type RadioToolButtonSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("clicked", ToolButtonClickedSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("createMenuProxy", ToolItemCreateMenuProxySignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("toggled", ToggleToolButtonToggledSignalInfo), '("toolbarReconfigured", ToolItemToolbarReconfiguredSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -493,7 +503,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "RadioToolButton" +-- returnType : Just (TInterface "Gtk" "RadioToolButton") -- throws : False -- Skip return : False @@ -520,7 +530,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "RadioToolButton" +-- returnType : Just (TInterface "Gtk" "RadioToolButton") -- throws : False -- Skip return : False @@ -551,7 +561,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "group", argType = TInterface "Gtk" "RadioToolButton", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "RadioToolButton" +-- returnType : Just (TInterface "Gtk" "RadioToolButton") -- throws : False -- Skip return : False @@ -580,7 +590,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "group", argType = TInterface "Gtk" "RadioToolButton", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "RadioToolButton" +-- returnType : Just (TInterface "Gtk" "RadioToolButton") -- throws : False -- Skip return : False @@ -613,7 +623,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RadioToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TGSList (TInterface "Gtk" "RadioButton") +-- returnType : Just (TGSList (TInterface "Gtk" "RadioButton")) -- throws : False -- Skip return : False @@ -629,7 +639,6 @@ radioToolButtonGetGroup _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_radio_tool_button_get_group _obj' - checkUnexpectedReturnNULL "gtk_radio_tool_button_get_group" result result' <- unpackGSList result result'' <- mapM (newObject RadioButton) result' touchManagedPtr _obj @@ -643,7 +652,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RadioToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/RadioToolButton.hs-boot b/GI/Gtk/Objects/RadioToolButton.hs-boot --- a/GI/Gtk/Objects/RadioToolButton.hs-boot +++ b/GI/Gtk/Objects/RadioToolButton.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.RadioToolButton where -import Prelude () 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 diff --git a/GI/Gtk/Objects/Range.hs b/GI/Gtk/Objects/Range.hs --- a/GI/Gtk/Objects/Range.hs +++ b/GI/Gtk/Objects/Range.hs @@ -164,6 +164,7 @@ RangeAdjustmentPropertyInfo , constructRangeAdjustment , getRangeAdjustment , + rangeAdjustment , setRangeAdjustment , @@ -171,6 +172,7 @@ RangeFillLevelPropertyInfo , constructRangeFillLevel , getRangeFillLevel , + rangeFillLevel , setRangeFillLevel , @@ -178,6 +180,7 @@ RangeInvertedPropertyInfo , constructRangeInverted , getRangeInverted , + rangeInverted , setRangeInverted , @@ -185,6 +188,7 @@ RangeLowerStepperSensitivityPropertyInfo, constructRangeLowerStepperSensitivity , getRangeLowerStepperSensitivity , + rangeLowerStepperSensitivity , setRangeLowerStepperSensitivity , @@ -192,6 +196,7 @@ RangeRestrictToFillLevelPropertyInfo , constructRangeRestrictToFillLevel , getRangeRestrictToFillLevel , + rangeRestrictToFillLevel , setRangeRestrictToFillLevel , @@ -199,6 +204,7 @@ RangeRoundDigitsPropertyInfo , constructRangeRoundDigits , getRangeRoundDigits , + rangeRoundDigits , setRangeRoundDigits , @@ -206,6 +212,7 @@ RangeShowFillLevelPropertyInfo , constructRangeShowFillLevel , getRangeShowFillLevel , + rangeShowFillLevel , setRangeShowFillLevel , @@ -213,6 +220,7 @@ RangeUpperStepperSensitivityPropertyInfo, constructRangeUpperStepperSensitivity , getRangeUpperStepperSensitivity , + rangeUpperStepperSensitivity , setRangeUpperStepperSensitivity , @@ -271,9 +279,9 @@ ) where -import Prelude () 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 @@ -804,15 +812,16 @@ -- VVV Prop "adjustment" -- Type: TInterface "Gtk" "Adjustment" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Just False,Just False) getRangeAdjustment :: (MonadIO m, RangeK o) => o -> m Adjustment -getRangeAdjustment obj = liftIO $ getObjectPropertyObject obj "adjustment" Adjustment +getRangeAdjustment obj = liftIO $ checkUnexpectedNothing "getRangeAdjustment" $ getObjectPropertyObject obj "adjustment" Adjustment setRangeAdjustment :: (MonadIO m, RangeK o, AdjustmentK a) => o -> a -> m () -setRangeAdjustment obj val = liftIO $ setObjectPropertyObject obj "adjustment" val +setRangeAdjustment obj val = liftIO $ setObjectPropertyObject obj "adjustment" (Just val) constructRangeAdjustment :: (AdjustmentK a) => a -> IO ([Char], GValue) -constructRangeAdjustment val = constructObjectPropertyObject "adjustment" val +constructRangeAdjustment val = constructObjectPropertyObject "adjustment" (Just val) data RangeAdjustmentPropertyInfo instance AttrInfo RangeAdjustmentPropertyInfo where @@ -824,10 +833,12 @@ attrGet _ = getRangeAdjustment attrSet _ = setRangeAdjustment attrConstruct _ = constructRangeAdjustment + attrClear _ = undefined -- VVV Prop "fill-level" -- Type: TBasicType TDouble -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getRangeFillLevel :: (MonadIO m, RangeK o) => o -> m Double getRangeFillLevel obj = liftIO $ getObjectPropertyDouble obj "fill-level" @@ -848,10 +859,12 @@ attrGet _ = getRangeFillLevel attrSet _ = setRangeFillLevel attrConstruct _ = constructRangeFillLevel + attrClear _ = undefined -- VVV Prop "inverted" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getRangeInverted :: (MonadIO m, RangeK o) => o -> m Bool getRangeInverted obj = liftIO $ getObjectPropertyBool obj "inverted" @@ -872,10 +885,12 @@ attrGet _ = getRangeInverted attrSet _ = setRangeInverted attrConstruct _ = constructRangeInverted + attrClear _ = undefined -- VVV Prop "lower-stepper-sensitivity" -- Type: TInterface "Gtk" "SensitivityType" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getRangeLowerStepperSensitivity :: (MonadIO m, RangeK o) => o -> m SensitivityType getRangeLowerStepperSensitivity obj = liftIO $ getObjectPropertyEnum obj "lower-stepper-sensitivity" @@ -896,10 +911,12 @@ attrGet _ = getRangeLowerStepperSensitivity attrSet _ = setRangeLowerStepperSensitivity attrConstruct _ = constructRangeLowerStepperSensitivity + attrClear _ = undefined -- VVV Prop "restrict-to-fill-level" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getRangeRestrictToFillLevel :: (MonadIO m, RangeK o) => o -> m Bool getRangeRestrictToFillLevel obj = liftIO $ getObjectPropertyBool obj "restrict-to-fill-level" @@ -920,19 +937,21 @@ attrGet _ = getRangeRestrictToFillLevel attrSet _ = setRangeRestrictToFillLevel attrConstruct _ = constructRangeRestrictToFillLevel + attrClear _ = undefined -- VVV Prop "round-digits" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getRangeRoundDigits :: (MonadIO m, RangeK o) => o -> m Int32 -getRangeRoundDigits obj = liftIO $ getObjectPropertyCInt obj "round-digits" +getRangeRoundDigits obj = liftIO $ getObjectPropertyInt32 obj "round-digits" setRangeRoundDigits :: (MonadIO m, RangeK o) => o -> Int32 -> m () -setRangeRoundDigits obj val = liftIO $ setObjectPropertyCInt obj "round-digits" val +setRangeRoundDigits obj val = liftIO $ setObjectPropertyInt32 obj "round-digits" val constructRangeRoundDigits :: Int32 -> IO ([Char], GValue) -constructRangeRoundDigits val = constructObjectPropertyCInt "round-digits" val +constructRangeRoundDigits val = constructObjectPropertyInt32 "round-digits" val data RangeRoundDigitsPropertyInfo instance AttrInfo RangeRoundDigitsPropertyInfo where @@ -944,10 +963,12 @@ attrGet _ = getRangeRoundDigits attrSet _ = setRangeRoundDigits attrConstruct _ = constructRangeRoundDigits + attrClear _ = undefined -- VVV Prop "show-fill-level" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getRangeShowFillLevel :: (MonadIO m, RangeK o) => o -> m Bool getRangeShowFillLevel obj = liftIO $ getObjectPropertyBool obj "show-fill-level" @@ -968,10 +989,12 @@ attrGet _ = getRangeShowFillLevel attrSet _ = setRangeShowFillLevel attrConstruct _ = constructRangeShowFillLevel + attrClear _ = undefined -- VVV Prop "upper-stepper-sensitivity" -- Type: TInterface "Gtk" "SensitivityType" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getRangeUpperStepperSensitivity :: (MonadIO m, RangeK o) => o -> m SensitivityType getRangeUpperStepperSensitivity obj = liftIO $ getObjectPropertyEnum obj "upper-stepper-sensitivity" @@ -992,10 +1015,35 @@ attrGet _ = getRangeUpperStepperSensitivity attrSet _ = setRangeUpperStepperSensitivity attrConstruct _ = constructRangeUpperStepperSensitivity + attrClear _ = undefined type instance AttributeList Range = RangeAttributeList type RangeAttributeList = ('[ '("adjustment", RangeAdjustmentPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("fillLevel", RangeFillLevelPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("inverted", RangeInvertedPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("lowerStepperSensitivity", RangeLowerStepperSensitivityPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("restrictToFillLevel", RangeRestrictToFillLevelPropertyInfo), '("roundDigits", RangeRoundDigitsPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showFillLevel", RangeShowFillLevelPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("upperStepperSensitivity", RangeUpperStepperSensitivityPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +rangeAdjustment :: AttrLabelProxy "adjustment" +rangeAdjustment = AttrLabelProxy + +rangeFillLevel :: AttrLabelProxy "fillLevel" +rangeFillLevel = AttrLabelProxy + +rangeInverted :: AttrLabelProxy "inverted" +rangeInverted = AttrLabelProxy + +rangeLowerStepperSensitivity :: AttrLabelProxy "lowerStepperSensitivity" +rangeLowerStepperSensitivity = AttrLabelProxy + +rangeRestrictToFillLevel :: AttrLabelProxy "restrictToFillLevel" +rangeRestrictToFillLevel = AttrLabelProxy + +rangeRoundDigits :: AttrLabelProxy "roundDigits" +rangeRoundDigits = AttrLabelProxy + +rangeShowFillLevel :: AttrLabelProxy "showFillLevel" +rangeShowFillLevel = AttrLabelProxy + +rangeUpperStepperSensitivity :: AttrLabelProxy "upperStepperSensitivity" +rangeUpperStepperSensitivity = AttrLabelProxy + data RangeAdjustBoundsSignalInfo instance SignalInfo RangeAdjustBoundsSignalInfo where type HaskellCallbackType RangeAdjustBoundsSignalInfo = RangeAdjustBoundsCallback @@ -1023,7 +1071,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Adjustment" +-- returnType : Just (TInterface "Gtk" "Adjustment") -- throws : False -- Skip return : False @@ -1052,7 +1100,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -1080,7 +1128,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1108,7 +1156,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1136,7 +1184,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "SensitivityType" +-- returnType : Just (TInterface "Gtk" "SensitivityType") -- throws : False -- Skip return : False @@ -1164,7 +1212,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1191,7 +1239,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "range_rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1221,7 +1269,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1249,7 +1297,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1276,7 +1324,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1302,16 +1350,16 @@ -- method Range::get_slider_range -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "slider_start", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "slider_end", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "slider_start", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "slider_end", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_range_get_slider_range" gtk_range_get_slider_range :: Ptr Range -> -- _obj : TInterface "Gtk" "Range" - Ptr Int32 -> -- slider_start : TBasicType TInt32 - Ptr Int32 -> -- slider_end : TBasicType TInt32 + Ptr Int32 -> -- slider_start : TBasicType TInt + Ptr Int32 -> -- slider_end : TBasicType TInt IO () @@ -1339,7 +1387,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1367,7 +1415,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "SensitivityType" +-- returnType : Just (TInterface "Gtk" "SensitivityType") -- throws : False -- Skip return : False @@ -1395,7 +1443,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -1423,7 +1471,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1454,7 +1502,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fill_level", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1484,7 +1532,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flippable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1514,7 +1562,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1547,7 +1595,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1577,7 +1625,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sensitivity", argType = TInterface "Gtk" "SensitivityType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1605,15 +1653,15 @@ -- method Range::set_min_slider_size -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "min_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "min_size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_range_set_min_slider_size" gtk_range_set_min_slider_size :: Ptr Range -> -- _obj : TInterface "Gtk" "Range" - Int32 -> -- min_size : TBasicType TInt32 + Int32 -> -- min_size : TBasicType TInt IO () @@ -1636,7 +1684,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1669,7 +1717,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "restrict_to_fill_level", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1697,15 +1745,15 @@ -- method Range::set_round_digits -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "round_digits", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "round_digits", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_range_set_round_digits" gtk_range_set_round_digits :: Ptr Range -> -- _obj : TInterface "Gtk" "Range" - Int32 -> -- round_digits : TBasicType TInt32 + Int32 -> -- round_digits : TBasicType TInt IO () @@ -1728,7 +1776,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_fill_level", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1758,7 +1806,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size_fixed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1788,7 +1836,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sensitivity", argType = TInterface "Gtk" "SensitivityType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1818,7 +1866,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/Range.hs-boot b/GI/Gtk/Objects/Range.hs-boot --- a/GI/Gtk/Objects/Range.hs-boot +++ b/GI/Gtk/Objects/Range.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.Range where -import Prelude () 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 diff --git a/GI/Gtk/Objects/RangeAccessible.hs b/GI/Gtk/Objects/RangeAccessible.hs --- a/GI/Gtk/Objects/RangeAccessible.hs +++ b/GI/Gtk/Objects/RangeAccessible.hs @@ -18,9 +18,9 @@ ) where -import Prelude () 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 diff --git a/GI/Gtk/Objects/RangeAccessible.hs-boot b/GI/Gtk/Objects/RangeAccessible.hs-boot --- a/GI/Gtk/Objects/RangeAccessible.hs-boot +++ b/GI/Gtk/Objects/RangeAccessible.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.RangeAccessible where -import Prelude () 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 diff --git a/GI/Gtk/Objects/RcStyle.hs b/GI/Gtk/Objects/RcStyle.hs --- a/GI/Gtk/Objects/RcStyle.hs +++ b/GI/Gtk/Objects/RcStyle.hs @@ -30,9 +30,9 @@ ) where -import Prelude () 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 @@ -106,7 +106,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "RcStyle" +-- returnType : Just (TInterface "Gtk" "RcStyle") -- throws : False -- Skip return : False @@ -127,7 +127,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RcStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "RcStyle" +-- returnType : Just (TInterface "Gtk" "RcStyle") -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/RcStyle.hs-boot b/GI/Gtk/Objects/RcStyle.hs-boot --- a/GI/Gtk/Objects/RcStyle.hs-boot +++ b/GI/Gtk/Objects/RcStyle.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.RcStyle where -import Prelude () 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 diff --git a/GI/Gtk/Objects/RecentAction.hs b/GI/Gtk/Objects/RecentAction.hs --- a/GI/Gtk/Objects/RecentAction.hs +++ b/GI/Gtk/Objects/RecentAction.hs @@ -42,6 +42,7 @@ RecentActionShowNumbersPropertyInfo , constructRecentActionShowNumbers , getRecentActionShowNumbers , + recentActionShowNumbers , setRecentActionShowNumbers , @@ -49,9 +50,9 @@ ) where -import Prelude () 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 @@ -199,6 +200,7 @@ -- VVV Prop "show-numbers" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getRecentActionShowNumbers :: (MonadIO m, RecentActionK o) => o -> m Bool getRecentActionShowNumbers obj = liftIO $ getObjectPropertyBool obj "show-numbers" @@ -219,10 +221,14 @@ attrGet _ = getRecentActionShowNumbers attrSet _ = setRecentActionShowNumbers attrConstruct _ = constructRecentActionShowNumbers + attrClear _ = undefined type instance AttributeList RecentAction = RecentActionAttributeList type RecentActionAttributeList = ('[ '("actionGroup", ActionActionGroupPropertyInfo), '("alwaysShowImage", ActionAlwaysShowImagePropertyInfo), '("filter", RecentChooserFilterPropertyInfo), '("gicon", ActionGiconPropertyInfo), '("hideIfEmpty", ActionHideIfEmptyPropertyInfo), '("iconName", ActionIconNamePropertyInfo), '("isImportant", ActionIsImportantPropertyInfo), '("label", ActionLabelPropertyInfo), '("limit", RecentChooserLimitPropertyInfo), '("localOnly", RecentChooserLocalOnlyPropertyInfo), '("name", ActionNamePropertyInfo), '("recentManager", RecentChooserRecentManagerPropertyInfo), '("selectMultiple", RecentChooserSelectMultiplePropertyInfo), '("sensitive", ActionSensitivePropertyInfo), '("shortLabel", ActionShortLabelPropertyInfo), '("showIcons", RecentChooserShowIconsPropertyInfo), '("showNotFound", RecentChooserShowNotFoundPropertyInfo), '("showNumbers", RecentActionShowNumbersPropertyInfo), '("showPrivate", RecentChooserShowPrivatePropertyInfo), '("showTips", RecentChooserShowTipsPropertyInfo), '("sortType", RecentChooserSortTypePropertyInfo), '("stockId", ActionStockIdPropertyInfo), '("tooltip", ActionTooltipPropertyInfo), '("visible", ActionVisiblePropertyInfo), '("visibleHorizontal", ActionVisibleHorizontalPropertyInfo), '("visibleOverflown", ActionVisibleOverflownPropertyInfo), '("visibleVertical", ActionVisibleVerticalPropertyInfo)] :: [(Symbol, *)]) +recentActionShowNumbers :: AttrLabelProxy "showNumbers" +recentActionShowNumbers = AttrLabelProxy + type instance SignalList RecentAction = RecentActionSignalList type RecentActionSignalList = ('[ '("activate", ActionActivateSignalInfo), '("itemActivated", RecentChooserItemActivatedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("selectionChanged", RecentChooserSelectionChangedSignalInfo)] :: [(Symbol, *)]) @@ -230,7 +236,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "RecentAction" +-- returnType : Just (TInterface "Gtk" "RecentAction") -- throws : False -- Skip return : False @@ -279,7 +285,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "manager", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "RecentAction" +-- returnType : Just (TInterface "Gtk" "RecentAction") -- throws : False -- Skip return : False @@ -336,7 +342,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -364,7 +370,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_numbers", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/RecentAction.hs-boot b/GI/Gtk/Objects/RecentAction.hs-boot --- a/GI/Gtk/Objects/RecentAction.hs-boot +++ b/GI/Gtk/Objects/RecentAction.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.RecentAction where -import Prelude () 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 diff --git a/GI/Gtk/Objects/RecentChooserDialog.hs b/GI/Gtk/Objects/RecentChooserDialog.hs --- a/GI/Gtk/Objects/RecentChooserDialog.hs +++ b/GI/Gtk/Objects/RecentChooserDialog.hs @@ -18,9 +18,9 @@ ) where -import Prelude () 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 diff --git a/GI/Gtk/Objects/RecentChooserDialog.hs-boot b/GI/Gtk/Objects/RecentChooserDialog.hs-boot --- a/GI/Gtk/Objects/RecentChooserDialog.hs-boot +++ b/GI/Gtk/Objects/RecentChooserDialog.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.RecentChooserDialog where -import Prelude () 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 diff --git a/GI/Gtk/Objects/RecentChooserMenu.hs b/GI/Gtk/Objects/RecentChooserMenu.hs --- a/GI/Gtk/Objects/RecentChooserMenu.hs +++ b/GI/Gtk/Objects/RecentChooserMenu.hs @@ -42,6 +42,7 @@ RecentChooserMenuShowNumbersPropertyInfo, constructRecentChooserMenuShowNumbers , getRecentChooserMenuShowNumbers , + recentChooserMenuShowNumbers , setRecentChooserMenuShowNumbers , @@ -49,9 +50,9 @@ ) where -import Prelude () 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 @@ -482,6 +483,7 @@ -- VVV Prop "show-numbers" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getRecentChooserMenuShowNumbers :: (MonadIO m, RecentChooserMenuK o) => o -> m Bool getRecentChooserMenuShowNumbers obj = liftIO $ getObjectPropertyBool obj "show-numbers" @@ -502,10 +504,14 @@ attrGet _ = getRecentChooserMenuShowNumbers attrSet _ = setRecentChooserMenuShowNumbers attrConstruct _ = constructRecentChooserMenuShowNumbers + attrClear _ = undefined type instance AttributeList RecentChooserMenu = RecentChooserMenuAttributeList type RecentChooserMenuAttributeList = ('[ '("accelGroup", MenuAccelGroupPropertyInfo), '("accelPath", MenuAccelPathPropertyInfo), '("active", MenuActivePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("attachWidget", MenuAttachWidgetPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("filter", RecentChooserFilterPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("limit", RecentChooserLimitPropertyInfo), '("localOnly", RecentChooserLocalOnlyPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("monitor", MenuMonitorPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("recentManager", RecentChooserRecentManagerPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("reserveToggleSize", MenuReserveToggleSizePropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("selectMultiple", RecentChooserSelectMultiplePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showIcons", RecentChooserShowIconsPropertyInfo), '("showNotFound", RecentChooserShowNotFoundPropertyInfo), '("showNumbers", RecentChooserMenuShowNumbersPropertyInfo), '("showPrivate", RecentChooserShowPrivatePropertyInfo), '("showTips", RecentChooserShowTipsPropertyInfo), '("sortType", RecentChooserSortTypePropertyInfo), '("style", WidgetStylePropertyInfo), '("takeFocus", MenuShellTakeFocusPropertyInfo), '("tearoffState", MenuTearoffStatePropertyInfo), '("tearoffTitle", MenuTearoffTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +recentChooserMenuShowNumbers :: AttrLabelProxy "showNumbers" +recentChooserMenuShowNumbers = AttrLabelProxy + type instance SignalList RecentChooserMenu = RecentChooserMenuSignalList type RecentChooserMenuSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activateCurrent", MenuShellActivateCurrentSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("cancel", MenuShellCancelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("cycleFocus", MenuShellCycleFocusSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deactivate", MenuShellDeactivateSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("insert", MenuShellInsertSignalInfo), '("itemActivated", RecentChooserItemActivatedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveCurrent", MenuShellMoveCurrentSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("moveScroll", MenuMoveScrollSignalInfo), '("moveSelected", MenuShellMoveSelectedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionChanged", RecentChooserSelectionChangedSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionDone", MenuShellSelectionDoneSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -513,7 +519,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "RecentChooserMenu" +-- returnType : Just (TInterface "Gtk" "RecentChooserMenu") -- throws : False -- Skip return : False @@ -534,7 +540,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "manager", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "RecentChooserMenu" +-- returnType : Just (TInterface "Gtk" "RecentChooserMenu") -- throws : False -- Skip return : False @@ -559,7 +565,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooserMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -587,7 +593,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentChooserMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_numbers", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/RecentChooserMenu.hs-boot b/GI/Gtk/Objects/RecentChooserMenu.hs-boot --- a/GI/Gtk/Objects/RecentChooserMenu.hs-boot +++ b/GI/Gtk/Objects/RecentChooserMenu.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.RecentChooserMenu where -import Prelude () 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 diff --git a/GI/Gtk/Objects/RecentChooserWidget.hs b/GI/Gtk/Objects/RecentChooserWidget.hs --- a/GI/Gtk/Objects/RecentChooserWidget.hs +++ b/GI/Gtk/Objects/RecentChooserWidget.hs @@ -29,9 +29,9 @@ ) where -import Prelude () 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 @@ -440,7 +440,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "RecentChooserWidget" +-- returnType : Just (TInterface "Gtk" "RecentChooserWidget") -- throws : False -- Skip return : False @@ -461,7 +461,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "manager", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "RecentChooserWidget" +-- returnType : Just (TInterface "Gtk" "RecentChooserWidget") -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/RecentChooserWidget.hs-boot b/GI/Gtk/Objects/RecentChooserWidget.hs-boot --- a/GI/Gtk/Objects/RecentChooserWidget.hs-boot +++ b/GI/Gtk/Objects/RecentChooserWidget.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.RecentChooserWidget where -import Prelude () 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 diff --git a/GI/Gtk/Objects/RecentFilter.hs b/GI/Gtk/Objects/RecentFilter.hs --- a/GI/Gtk/Objects/RecentFilter.hs +++ b/GI/Gtk/Objects/RecentFilter.hs @@ -80,9 +80,9 @@ ) where -import Prelude () 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 @@ -173,7 +173,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "RecentFilter" +-- returnType : Just (TInterface "Gtk" "RecentFilter") -- throws : False -- Skip return : False @@ -192,15 +192,15 @@ -- method RecentFilter::add_age -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "days", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "days", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_recent_filter_add_age" gtk_recent_filter_add_age :: Ptr RecentFilter -> -- _obj : TInterface "Gtk" "RecentFilter" - Int32 -> -- days : TBasicType TInt32 + Int32 -> -- days : TBasicType TInt IO () @@ -223,7 +223,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "application", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -252,9 +252,9 @@ -- method RecentFilter::add_custom -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "needed", argType = TInterface "Gtk" "RecentFilterFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "RecentFilterFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "needed", argType = TInterface "Gtk" "RecentFilterFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "RecentFilterFunc", 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 = "data_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -262,7 +262,7 @@ Ptr RecentFilter -> -- _obj : TInterface "Gtk" "RecentFilter" CUInt -> -- needed : TInterface "Gtk" "RecentFilterFlags" FunPtr RecentFilterFuncC -> -- func : TInterface "Gtk" "RecentFilterFunc" - Ptr () -> -- data : TBasicType TVoid + Ptr () -> -- data : TBasicType TPtr FunPtr GLib.DestroyNotifyC -> -- data_destroy : TInterface "GLib" "DestroyNotify" IO () @@ -291,7 +291,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -322,7 +322,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -353,7 +353,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -384,7 +384,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -411,7 +411,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter_info", argType = TInterface "Gtk" "RecentFilterInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -443,7 +443,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -472,7 +472,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "RecentFilterFlags" +-- returnType : Just (TInterface "Gtk" "RecentFilterFlags") -- throws : False -- Skip return : False @@ -500,7 +500,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentFilter", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/RecentFilter.hs-boot b/GI/Gtk/Objects/RecentFilter.hs-boot --- a/GI/Gtk/Objects/RecentFilter.hs-boot +++ b/GI/Gtk/Objects/RecentFilter.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.RecentFilter where -import Prelude () 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 diff --git a/GI/Gtk/Objects/RecentManager.hs b/GI/Gtk/Objects/RecentManager.hs --- a/GI/Gtk/Objects/RecentManager.hs +++ b/GI/Gtk/Objects/RecentManager.hs @@ -72,11 +72,13 @@ RecentManagerFilenamePropertyInfo , constructRecentManagerFilename , getRecentManagerFilename , + recentManagerFilename , -- ** Size RecentManagerSizePropertyInfo , getRecentManagerSize , + recentManagerSize , @@ -98,9 +100,9 @@ ) where -import Prelude () 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 @@ -212,30 +214,33 @@ -- VVV Prop "filename" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + -- Nullable: (Nothing,Nothing) -getRecentManagerFilename :: (MonadIO m, RecentManagerK o) => o -> m T.Text +getRecentManagerFilename :: (MonadIO m, RecentManagerK o) => o -> m (Maybe T.Text) getRecentManagerFilename obj = liftIO $ getObjectPropertyString obj "filename" constructRecentManagerFilename :: T.Text -> IO ([Char], GValue) -constructRecentManagerFilename val = constructObjectPropertyString "filename" val +constructRecentManagerFilename val = constructObjectPropertyString "filename" (Just val) data RecentManagerFilenamePropertyInfo instance AttrInfo RecentManagerFilenamePropertyInfo where - type AttrAllowedOps RecentManagerFilenamePropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrAllowedOps RecentManagerFilenamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint RecentManagerFilenamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint RecentManagerFilenamePropertyInfo = RecentManagerK - type AttrGetType RecentManagerFilenamePropertyInfo = T.Text + type AttrGetType RecentManagerFilenamePropertyInfo = (Maybe T.Text) type AttrLabel RecentManagerFilenamePropertyInfo = "filename" attrGet _ = getRecentManagerFilename attrSet _ = undefined attrConstruct _ = constructRecentManagerFilename + attrClear _ = undefined -- VVV Prop "size" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) getRecentManagerSize :: (MonadIO m, RecentManagerK o) => o -> m Int32 -getRecentManagerSize obj = liftIO $ getObjectPropertyCInt obj "size" +getRecentManagerSize obj = liftIO $ getObjectPropertyInt32 obj "size" data RecentManagerSizePropertyInfo instance AttrInfo RecentManagerSizePropertyInfo where @@ -247,10 +252,17 @@ attrGet _ = getRecentManagerSize attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList RecentManager = RecentManagerAttributeList type RecentManagerAttributeList = ('[ '("filename", RecentManagerFilenamePropertyInfo), '("size", RecentManagerSizePropertyInfo)] :: [(Symbol, *)]) +recentManagerFilename :: AttrLabelProxy "filename" +recentManagerFilename = AttrLabelProxy + +recentManagerSize :: AttrLabelProxy "size" +recentManagerSize = AttrLabelProxy + data RecentManagerChangedSignalInfo instance SignalInfo RecentManagerChangedSignalInfo where type HaskellCallbackType RecentManagerChangedSignalInfo = RecentManagerChangedCallback @@ -263,7 +275,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "RecentManager" +-- returnType : Just (TInterface "Gtk" "RecentManager") -- throws : False -- Skip return : False @@ -284,7 +296,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "recent_data", argType = TInterface "Gtk" "RecentData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -320,7 +332,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -352,7 +364,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TGList (TInterface "Gtk" "RecentInfo") +-- returnType : Just (TGList (TInterface "Gtk" "RecentInfo")) -- throws : False -- Skip return : False @@ -368,7 +380,6 @@ recentManagerGetItems _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_recent_manager_get_items _obj' - checkUnexpectedReturnNULL "gtk_recent_manager_get_items" result result' <- unpackGList result result'' <- mapM (wrapBoxed RecentInfo) result' g_list_free result @@ -383,7 +394,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -415,7 +426,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "RecentInfo" +-- returnType : Just (TInterface "Gtk" "RecentInfo") -- throws : True -- Skip return : False @@ -453,7 +464,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -498,7 +509,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : True -- Skip return : False @@ -530,7 +541,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -566,7 +577,7 @@ -- method type : MemberFunction -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "RecentManager" +-- returnType : Just (TInterface "Gtk" "RecentManager") -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/RecentManager.hs-boot b/GI/Gtk/Objects/RecentManager.hs-boot --- a/GI/Gtk/Objects/RecentManager.hs-boot +++ b/GI/Gtk/Objects/RecentManager.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.RecentManager where -import Prelude () 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 diff --git a/GI/Gtk/Objects/RendererCellAccessible.hs b/GI/Gtk/Objects/RendererCellAccessible.hs --- a/GI/Gtk/Objects/RendererCellAccessible.hs +++ b/GI/Gtk/Objects/RendererCellAccessible.hs @@ -28,15 +28,16 @@ RendererCellAccessibleRendererPropertyInfo, constructRendererCellAccessibleRenderer , getRendererCellAccessibleRenderer , + rendererCellAccessibleRenderer , ) where -import Prelude () 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 @@ -139,27 +140,32 @@ -- VVV Prop "renderer" -- Type: TInterface "Gtk" "CellRenderer" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + -- Nullable: (Nothing,Nothing) -getRendererCellAccessibleRenderer :: (MonadIO m, RendererCellAccessibleK o) => o -> m CellRenderer +getRendererCellAccessibleRenderer :: (MonadIO m, RendererCellAccessibleK o) => o -> m (Maybe CellRenderer) getRendererCellAccessibleRenderer obj = liftIO $ getObjectPropertyObject obj "renderer" CellRenderer constructRendererCellAccessibleRenderer :: (CellRendererK a) => a -> IO ([Char], GValue) -constructRendererCellAccessibleRenderer val = constructObjectPropertyObject "renderer" val +constructRendererCellAccessibleRenderer val = constructObjectPropertyObject "renderer" (Just val) data RendererCellAccessibleRendererPropertyInfo instance AttrInfo RendererCellAccessibleRendererPropertyInfo where - type AttrAllowedOps RendererCellAccessibleRendererPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrAllowedOps RendererCellAccessibleRendererPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint RendererCellAccessibleRendererPropertyInfo = CellRendererK type AttrBaseTypeConstraint RendererCellAccessibleRendererPropertyInfo = RendererCellAccessibleK - type AttrGetType RendererCellAccessibleRendererPropertyInfo = CellRenderer + type AttrGetType RendererCellAccessibleRendererPropertyInfo = (Maybe CellRenderer) type AttrLabel RendererCellAccessibleRendererPropertyInfo = "renderer" attrGet _ = getRendererCellAccessibleRenderer attrSet _ = undefined attrConstruct _ = constructRendererCellAccessibleRenderer + attrClear _ = undefined type instance AttributeList RendererCellAccessible = RendererCellAccessibleAttributeList type RendererCellAccessibleAttributeList = ('[ '("accessibleComponentLayer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessibleComponentMdiZorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessibleDescription", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessibleHypertextNlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessibleName", Atk.ObjectAccessibleNamePropertyInfo), '("accessibleParent", Atk.ObjectAccessibleParentPropertyInfo), '("accessibleRole", Atk.ObjectAccessibleRolePropertyInfo), '("accessibleTableCaption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessibleTableCaptionObject", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessibleTableColumnDescription", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessibleTableColumnHeader", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessibleTableRowDescription", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessibleTableRowHeader", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessibleTableSummary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessibleValue", Atk.ObjectAccessibleValuePropertyInfo), '("renderer", RendererCellAccessibleRendererPropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) +rendererCellAccessibleRenderer :: AttrLabelProxy "renderer" +rendererCellAccessibleRenderer = AttrLabelProxy + type instance SignalList RendererCellAccessible = RendererCellAccessibleSignalList type RendererCellAccessibleSignalList = ('[ '("activeDescendantChanged", Atk.ObjectActiveDescendantChangedSignalInfo), '("boundsChanged", Atk.ComponentBoundsChangedSignalInfo), '("childrenChanged", Atk.ObjectChildrenChangedSignalInfo), '("focusEvent", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("propertyChange", Atk.ObjectPropertyChangeSignalInfo), '("stateChange", Atk.ObjectStateChangeSignalInfo), '("visibleDataChanged", Atk.ObjectVisibleDataChangedSignalInfo)] :: [(Symbol, *)]) @@ -167,7 +173,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "RendererCellAccessible" +-- returnType : Just (TInterface "Gtk" "RendererCellAccessible") -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/RendererCellAccessible.hs-boot b/GI/Gtk/Objects/RendererCellAccessible.hs-boot --- a/GI/Gtk/Objects/RendererCellAccessible.hs-boot +++ b/GI/Gtk/Objects/RendererCellAccessible.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.RendererCellAccessible where -import Prelude () 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 diff --git a/GI/Gtk/Objects/Revealer.hs b/GI/Gtk/Objects/Revealer.hs --- a/GI/Gtk/Objects/Revealer.hs +++ b/GI/Gtk/Objects/Revealer.hs @@ -62,12 +62,14 @@ -- ** ChildRevealed RevealerChildRevealedPropertyInfo , getRevealerChildRevealed , + revealerChildRevealed , -- ** RevealChild RevealerRevealChildPropertyInfo , constructRevealerRevealChild , getRevealerRevealChild , + revealerRevealChild , setRevealerRevealChild , @@ -75,6 +77,7 @@ RevealerTransitionDurationPropertyInfo , constructRevealerTransitionDuration , getRevealerTransitionDuration , + revealerTransitionDuration , setRevealerTransitionDuration , @@ -82,6 +85,7 @@ RevealerTransitionTypePropertyInfo , constructRevealerTransitionType , getRevealerTransitionType , + revealerTransitionType , setRevealerTransitionType , @@ -89,9 +93,9 @@ ) where -import Prelude () 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 @@ -455,6 +459,7 @@ -- VVV Prop "child-revealed" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getRevealerChildRevealed :: (MonadIO m, RevealerK o) => o -> m Bool getRevealerChildRevealed obj = liftIO $ getObjectPropertyBool obj "child-revealed" @@ -469,10 +474,12 @@ attrGet _ = getRevealerChildRevealed attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "reveal-child" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Just False,Just False) getRevealerRevealChild :: (MonadIO m, RevealerK o) => o -> m Bool getRevealerRevealChild obj = liftIO $ getObjectPropertyBool obj "reveal-child" @@ -493,19 +500,21 @@ attrGet _ = getRevealerRevealChild attrSet _ = setRevealerRevealChild attrConstruct _ = constructRevealerRevealChild + attrClear _ = undefined -- VVV Prop "transition-duration" - -- Type: TBasicType TUInt32 + -- Type: TBasicType TUInt -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Just False,Just False) getRevealerTransitionDuration :: (MonadIO m, RevealerK o) => o -> m Word32 -getRevealerTransitionDuration obj = liftIO $ getObjectPropertyCUInt obj "transition-duration" +getRevealerTransitionDuration obj = liftIO $ getObjectPropertyUInt32 obj "transition-duration" setRevealerTransitionDuration :: (MonadIO m, RevealerK o) => o -> Word32 -> m () -setRevealerTransitionDuration obj val = liftIO $ setObjectPropertyCUInt obj "transition-duration" val +setRevealerTransitionDuration obj val = liftIO $ setObjectPropertyUInt32 obj "transition-duration" val constructRevealerTransitionDuration :: Word32 -> IO ([Char], GValue) -constructRevealerTransitionDuration val = constructObjectPropertyCUInt "transition-duration" val +constructRevealerTransitionDuration val = constructObjectPropertyUInt32 "transition-duration" val data RevealerTransitionDurationPropertyInfo instance AttrInfo RevealerTransitionDurationPropertyInfo where @@ -517,10 +526,12 @@ attrGet _ = getRevealerTransitionDuration attrSet _ = setRevealerTransitionDuration attrConstruct _ = constructRevealerTransitionDuration + attrClear _ = undefined -- VVV Prop "transition-type" -- Type: TInterface "Gtk" "RevealerTransitionType" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Just False,Just False) getRevealerTransitionType :: (MonadIO m, RevealerK o) => o -> m RevealerTransitionType getRevealerTransitionType obj = liftIO $ getObjectPropertyEnum obj "transition-type" @@ -541,10 +552,23 @@ attrGet _ = getRevealerTransitionType attrSet _ = setRevealerTransitionType attrConstruct _ = constructRevealerTransitionType + attrClear _ = undefined type instance AttributeList Revealer = RevealerAttributeList type RevealerAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("childRevealed", RevealerChildRevealedPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("revealChild", RevealerRevealChildPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("transitionDuration", RevealerTransitionDurationPropertyInfo), '("transitionType", RevealerTransitionTypePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +revealerChildRevealed :: AttrLabelProxy "childRevealed" +revealerChildRevealed = AttrLabelProxy + +revealerRevealChild :: AttrLabelProxy "revealChild" +revealerRevealChild = AttrLabelProxy + +revealerTransitionDuration :: AttrLabelProxy "transitionDuration" +revealerTransitionDuration = AttrLabelProxy + +revealerTransitionType :: AttrLabelProxy "transitionType" +revealerTransitionType = AttrLabelProxy + type instance SignalList Revealer = RevealerSignalList type RevealerSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -552,7 +576,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "Revealer" +-- returnType : Just (TInterface "Gtk" "Revealer") -- throws : False -- Skip return : False @@ -573,7 +597,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Revealer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -601,7 +625,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Revealer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -629,7 +653,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Revealer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt32 +-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -656,7 +680,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Revealer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "RevealerTransitionType" +-- returnType : Just (TInterface "Gtk" "RevealerTransitionType") -- throws : False -- Skip return : False @@ -684,7 +708,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Revealer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "reveal_child", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -712,15 +736,15 @@ -- method Revealer::set_transition_duration -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Revealer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "duration", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Revealer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "duration", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_revealer_set_transition_duration" gtk_revealer_set_transition_duration :: Ptr Revealer -> -- _obj : TInterface "Gtk" "Revealer" - Word32 -> -- duration : TBasicType TUInt32 + Word32 -> -- duration : TBasicType TUInt IO () @@ -743,7 +767,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Revealer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "transition", argType = TInterface "Gtk" "RevealerTransitionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/Revealer.hs-boot b/GI/Gtk/Objects/Revealer.hs-boot --- a/GI/Gtk/Objects/Revealer.hs-boot +++ b/GI/Gtk/Objects/Revealer.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.Revealer where -import Prelude () 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 diff --git a/GI/Gtk/Objects/Scale.hs b/GI/Gtk/Objects/Scale.hs --- a/GI/Gtk/Objects/Scale.hs +++ b/GI/Gtk/Objects/Scale.hs @@ -92,6 +92,7 @@ ScaleDigitsPropertyInfo , constructScaleDigits , getScaleDigits , + scaleDigits , setScaleDigits , @@ -99,6 +100,7 @@ ScaleDrawValuePropertyInfo , constructScaleDrawValue , getScaleDrawValue , + scaleDrawValue , setScaleDrawValue , @@ -106,6 +108,7 @@ ScaleHasOriginPropertyInfo , constructScaleHasOrigin , getScaleHasOrigin , + scaleHasOrigin , setScaleHasOrigin , @@ -113,6 +116,7 @@ ScaleValuePosPropertyInfo , constructScaleValuePos , getScaleValuePos , + scaleValuePos , setScaleValuePos , @@ -135,9 +139,9 @@ ) where -import Prelude () 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 @@ -552,17 +556,18 @@ connectSignalFunPtr obj "format-value" cb' after -- VVV Prop "digits" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getScaleDigits :: (MonadIO m, ScaleK o) => o -> m Int32 -getScaleDigits obj = liftIO $ getObjectPropertyCInt obj "digits" +getScaleDigits obj = liftIO $ getObjectPropertyInt32 obj "digits" setScaleDigits :: (MonadIO m, ScaleK o) => o -> Int32 -> m () -setScaleDigits obj val = liftIO $ setObjectPropertyCInt obj "digits" val +setScaleDigits obj val = liftIO $ setObjectPropertyInt32 obj "digits" val constructScaleDigits :: Int32 -> IO ([Char], GValue) -constructScaleDigits val = constructObjectPropertyCInt "digits" val +constructScaleDigits val = constructObjectPropertyInt32 "digits" val data ScaleDigitsPropertyInfo instance AttrInfo ScaleDigitsPropertyInfo where @@ -574,10 +579,12 @@ attrGet _ = getScaleDigits attrSet _ = setScaleDigits attrConstruct _ = constructScaleDigits + attrClear _ = undefined -- VVV Prop "draw-value" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getScaleDrawValue :: (MonadIO m, ScaleK o) => o -> m Bool getScaleDrawValue obj = liftIO $ getObjectPropertyBool obj "draw-value" @@ -598,10 +605,12 @@ attrGet _ = getScaleDrawValue attrSet _ = setScaleDrawValue attrConstruct _ = constructScaleDrawValue + attrClear _ = undefined -- VVV Prop "has-origin" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getScaleHasOrigin :: (MonadIO m, ScaleK o) => o -> m Bool getScaleHasOrigin obj = liftIO $ getObjectPropertyBool obj "has-origin" @@ -622,10 +631,12 @@ attrGet _ = getScaleHasOrigin attrSet _ = setScaleHasOrigin attrConstruct _ = constructScaleHasOrigin + attrClear _ = undefined -- VVV Prop "value-pos" -- Type: TInterface "Gtk" "PositionType" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getScaleValuePos :: (MonadIO m, ScaleK o) => o -> m PositionType getScaleValuePos obj = liftIO $ getObjectPropertyEnum obj "value-pos" @@ -646,10 +657,23 @@ attrGet _ = getScaleValuePos attrSet _ = setScaleValuePos attrConstruct _ = constructScaleValuePos + attrClear _ = undefined type instance AttributeList Scale = ScaleAttributeList type ScaleAttributeList = ('[ '("adjustment", RangeAdjustmentPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("digits", ScaleDigitsPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("drawValue", ScaleDrawValuePropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("fillLevel", RangeFillLevelPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasOrigin", ScaleHasOriginPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("inverted", RangeInvertedPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("lowerStepperSensitivity", RangeLowerStepperSensitivityPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("restrictToFillLevel", RangeRestrictToFillLevelPropertyInfo), '("roundDigits", RangeRoundDigitsPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showFillLevel", RangeShowFillLevelPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("upperStepperSensitivity", RangeUpperStepperSensitivityPropertyInfo), '("valign", WidgetValignPropertyInfo), '("valuePos", ScaleValuePosPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +scaleDigits :: AttrLabelProxy "digits" +scaleDigits = AttrLabelProxy + +scaleDrawValue :: AttrLabelProxy "drawValue" +scaleDrawValue = AttrLabelProxy + +scaleHasOrigin :: AttrLabelProxy "hasOrigin" +scaleHasOrigin = AttrLabelProxy + +scaleValuePos :: AttrLabelProxy "valuePos" +scaleValuePos = AttrLabelProxy + data ScaleFormatValueSignalInfo instance SignalInfo ScaleFormatValueSignalInfo where type HaskellCallbackType ScaleFormatValueSignalInfo = ScaleFormatValueCallback @@ -662,7 +686,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Scale" +-- returnType : Just (TInterface "Gtk" "Scale") -- throws : False -- Skip return : False @@ -694,7 +718,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Scale" +-- returnType : Just (TInterface "Gtk" "Scale") -- throws : False -- Skip return : False @@ -727,7 +751,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -768,7 +792,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -795,7 +819,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -822,7 +846,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -850,7 +874,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -878,7 +902,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Pango" "Layout" +-- returnType : Just (TInterface "Pango" "Layout") -- throws : False -- Skip return : False @@ -905,16 +929,16 @@ -- method Scale::get_layout_offsets -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scale", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_scale_get_layout_offsets" gtk_scale_get_layout_offsets :: Ptr Scale -> -- _obj : TInterface "Gtk" "Scale" - Ptr Int32 -> -- x : TBasicType TInt32 - Ptr Int32 -> -- y : TBasicType TInt32 + Ptr Int32 -> -- x : TBasicType TInt + Ptr Int32 -> -- y : TBasicType TInt IO () @@ -942,7 +966,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "PositionType" +-- returnType : Just (TInterface "Gtk" "PositionType") -- throws : False -- Skip return : False @@ -968,15 +992,15 @@ -- method Scale::set_digits -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "digits", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "digits", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_scale_set_digits" gtk_scale_set_digits :: Ptr Scale -> -- _obj : TInterface "Gtk" "Scale" - Int32 -> -- digits : TBasicType TInt32 + Int32 -> -- digits : TBasicType TInt IO () @@ -999,7 +1023,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "draw_value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1029,7 +1053,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "has_origin", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1059,7 +1083,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/Scale.hs-boot b/GI/Gtk/Objects/Scale.hs-boot --- a/GI/Gtk/Objects/Scale.hs-boot +++ b/GI/Gtk/Objects/Scale.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.Scale where -import Prelude () 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 diff --git a/GI/Gtk/Objects/ScaleAccessible.hs b/GI/Gtk/Objects/ScaleAccessible.hs --- a/GI/Gtk/Objects/ScaleAccessible.hs +++ b/GI/Gtk/Objects/ScaleAccessible.hs @@ -18,9 +18,9 @@ ) where -import Prelude () 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 diff --git a/GI/Gtk/Objects/ScaleAccessible.hs-boot b/GI/Gtk/Objects/ScaleAccessible.hs-boot --- a/GI/Gtk/Objects/ScaleAccessible.hs-boot +++ b/GI/Gtk/Objects/ScaleAccessible.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.ScaleAccessible where -import Prelude () 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 diff --git a/GI/Gtk/Objects/ScaleButton.hs b/GI/Gtk/Objects/ScaleButton.hs --- a/GI/Gtk/Objects/ScaleButton.hs +++ b/GI/Gtk/Objects/ScaleButton.hs @@ -68,6 +68,7 @@ ScaleButtonAdjustmentPropertyInfo , constructScaleButtonAdjustment , getScaleButtonAdjustment , + scaleButtonAdjustment , setScaleButtonAdjustment , @@ -75,6 +76,7 @@ ScaleButtonIconsPropertyInfo , constructScaleButtonIcons , getScaleButtonIcons , + scaleButtonIcons , setScaleButtonIcons , @@ -82,6 +84,7 @@ ScaleButtonSizePropertyInfo , constructScaleButtonSize , getScaleButtonSize , + scaleButtonSize , setScaleButtonSize , @@ -89,6 +92,7 @@ ScaleButtonValuePropertyInfo , constructScaleButtonValue , getScaleButtonValue , + scaleButtonValue , setScaleButtonValue , @@ -135,9 +139,9 @@ ) where -import Prelude () 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 @@ -657,15 +661,16 @@ -- VVV Prop "adjustment" -- Type: TInterface "Gtk" "Adjustment" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getScaleButtonAdjustment :: (MonadIO m, ScaleButtonK o) => o -> m Adjustment -getScaleButtonAdjustment obj = liftIO $ getObjectPropertyObject obj "adjustment" Adjustment +getScaleButtonAdjustment obj = liftIO $ checkUnexpectedNothing "getScaleButtonAdjustment" $ getObjectPropertyObject obj "adjustment" Adjustment setScaleButtonAdjustment :: (MonadIO m, ScaleButtonK o, AdjustmentK a) => o -> a -> m () -setScaleButtonAdjustment obj val = liftIO $ setObjectPropertyObject obj "adjustment" val +setScaleButtonAdjustment obj val = liftIO $ setObjectPropertyObject obj "adjustment" (Just val) constructScaleButtonAdjustment :: (AdjustmentK a) => a -> IO ([Char], GValue) -constructScaleButtonAdjustment val = constructObjectPropertyObject "adjustment" val +constructScaleButtonAdjustment val = constructObjectPropertyObject "adjustment" (Just val) data ScaleButtonAdjustmentPropertyInfo instance AttrInfo ScaleButtonAdjustmentPropertyInfo where @@ -677,34 +682,38 @@ attrGet _ = getScaleButtonAdjustment attrSet _ = setScaleButtonAdjustment attrConstruct _ = constructScaleButtonAdjustment + attrClear _ = undefined -- VVV Prop "icons" -- Type: TCArray True (-1) (-1) (TBasicType TUTF8) -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getScaleButtonIcons :: (MonadIO m, ScaleButtonK o) => o -> m [T.Text] +getScaleButtonIcons :: (MonadIO m, ScaleButtonK o) => o -> m (Maybe [T.Text]) getScaleButtonIcons obj = liftIO $ getObjectPropertyStringArray obj "icons" setScaleButtonIcons :: (MonadIO m, ScaleButtonK o) => o -> [T.Text] -> m () -setScaleButtonIcons obj val = liftIO $ setObjectPropertyStringArray obj "icons" val +setScaleButtonIcons obj val = liftIO $ setObjectPropertyStringArray obj "icons" (Just val) constructScaleButtonIcons :: [T.Text] -> IO ([Char], GValue) -constructScaleButtonIcons val = constructObjectPropertyStringArray "icons" val +constructScaleButtonIcons val = constructObjectPropertyStringArray "icons" (Just val) data ScaleButtonIconsPropertyInfo instance AttrInfo ScaleButtonIconsPropertyInfo where type AttrAllowedOps ScaleButtonIconsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint ScaleButtonIconsPropertyInfo = (~) [T.Text] type AttrBaseTypeConstraint ScaleButtonIconsPropertyInfo = ScaleButtonK - type AttrGetType ScaleButtonIconsPropertyInfo = [T.Text] + type AttrGetType ScaleButtonIconsPropertyInfo = (Maybe [T.Text]) type AttrLabel ScaleButtonIconsPropertyInfo = "icons" attrGet _ = getScaleButtonIcons attrSet _ = setScaleButtonIcons attrConstruct _ = constructScaleButtonIcons + attrClear _ = undefined -- VVV Prop "size" -- Type: TInterface "Gtk" "IconSize" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getScaleButtonSize :: (MonadIO m, ScaleButtonK o) => o -> m IconSize getScaleButtonSize obj = liftIO $ getObjectPropertyEnum obj "size" @@ -725,10 +734,12 @@ attrGet _ = getScaleButtonSize attrSet _ = setScaleButtonSize attrConstruct _ = constructScaleButtonSize + attrClear _ = undefined -- VVV Prop "value" -- Type: TBasicType TDouble -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getScaleButtonValue :: (MonadIO m, ScaleButtonK o) => o -> m Double getScaleButtonValue obj = liftIO $ getObjectPropertyDouble obj "value" @@ -749,10 +760,23 @@ attrGet _ = getScaleButtonValue attrSet _ = setScaleButtonValue attrConstruct _ = constructScaleButtonValue + attrClear _ = undefined type instance AttributeList ScaleButton = ScaleButtonAttributeList type ScaleButtonAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("adjustment", ScaleButtonAdjustmentPropertyInfo), '("alwaysShowImage", ButtonAlwaysShowImagePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnClick", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("icons", ScaleButtonIconsPropertyInfo), '("image", ButtonImagePropertyInfo), '("imagePosition", ButtonImagePositionPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("size", ScaleButtonSizePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useStock", ButtonUseStockPropertyInfo), '("useUnderline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("value", ScaleButtonValuePropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) +scaleButtonAdjustment :: AttrLabelProxy "adjustment" +scaleButtonAdjustment = AttrLabelProxy + +scaleButtonIcons :: AttrLabelProxy "icons" +scaleButtonIcons = AttrLabelProxy + +scaleButtonSize :: AttrLabelProxy "size" +scaleButtonSize = AttrLabelProxy + +scaleButtonValue :: AttrLabelProxy "value" +scaleButtonValue = AttrLabelProxy + data ScaleButtonPopdownSignalInfo instance SignalInfo ScaleButtonPopdownSignalInfo where type HaskellCallbackType ScaleButtonPopdownSignalInfo = ScaleButtonPopdownCallback @@ -773,14 +797,14 @@ -- method ScaleButton::new -- method type : Constructor --- Args : [Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icons", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icons", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "ScaleButton" +-- returnType : Just (TInterface "Gtk" "ScaleButton") -- throws : False -- Skip return : False foreign import ccall "gtk_scale_button_new" gtk_scale_button_new :: - Int32 -> -- size : TBasicType TInt32 + Int32 -> -- size : TBasicType TInt CDouble -> -- min : TBasicType TDouble CDouble -> -- max : TBasicType TDouble CDouble -> -- step : TBasicType TDouble @@ -816,7 +840,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Adjustment" +-- returnType : Just (TInterface "Gtk" "Adjustment") -- throws : False -- Skip return : False @@ -845,7 +869,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Button" +-- returnType : Just (TInterface "Gtk" "Button") -- throws : False -- Skip return : False @@ -874,7 +898,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Button" +-- returnType : Just (TInterface "Gtk" "Button") -- throws : False -- Skip return : False @@ -903,7 +927,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -932,7 +956,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -960,7 +984,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -991,7 +1015,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icons", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1023,7 +1047,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/ScaleButton.hs-boot b/GI/Gtk/Objects/ScaleButton.hs-boot --- a/GI/Gtk/Objects/ScaleButton.hs-boot +++ b/GI/Gtk/Objects/ScaleButton.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.ScaleButton where -import Prelude () 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 diff --git a/GI/Gtk/Objects/ScaleButtonAccessible.hs b/GI/Gtk/Objects/ScaleButtonAccessible.hs --- a/GI/Gtk/Objects/ScaleButtonAccessible.hs +++ b/GI/Gtk/Objects/ScaleButtonAccessible.hs @@ -18,9 +18,9 @@ ) where -import Prelude () 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 diff --git a/GI/Gtk/Objects/ScaleButtonAccessible.hs-boot b/GI/Gtk/Objects/ScaleButtonAccessible.hs-boot --- a/GI/Gtk/Objects/ScaleButtonAccessible.hs-boot +++ b/GI/Gtk/Objects/ScaleButtonAccessible.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.ScaleButtonAccessible where -import Prelude () 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 diff --git a/GI/Gtk/Objects/Scrollbar.hs b/GI/Gtk/Objects/Scrollbar.hs --- a/GI/Gtk/Objects/Scrollbar.hs +++ b/GI/Gtk/Objects/Scrollbar.hs @@ -25,9 +25,9 @@ ) where -import Prelude () 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 @@ -394,7 +394,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Scrollbar" +-- returnType : Just (TInterface "Gtk" "Scrollbar") -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/Scrollbar.hs-boot b/GI/Gtk/Objects/Scrollbar.hs-boot --- a/GI/Gtk/Objects/Scrollbar.hs-boot +++ b/GI/Gtk/Objects/Scrollbar.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.Scrollbar where -import Prelude () 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 diff --git a/GI/Gtk/Objects/ScrolledWindow.hs b/GI/Gtk/Objects/ScrolledWindow.hs --- a/GI/Gtk/Objects/ScrolledWindow.hs +++ b/GI/Gtk/Objects/ScrolledWindow.hs @@ -148,6 +148,7 @@ ScrolledWindowHadjustmentPropertyInfo , constructScrolledWindowHadjustment , getScrolledWindowHadjustment , + scrolledWindowHadjustment , setScrolledWindowHadjustment , @@ -155,6 +156,7 @@ ScrolledWindowHscrollbarPolicyPropertyInfo, constructScrolledWindowHscrollbarPolicy , getScrolledWindowHscrollbarPolicy , + scrolledWindowHscrollbarPolicy , setScrolledWindowHscrollbarPolicy , @@ -162,6 +164,7 @@ ScrolledWindowKineticScrollingPropertyInfo, constructScrolledWindowKineticScrolling , getScrolledWindowKineticScrolling , + scrolledWindowKineticScrolling , setScrolledWindowKineticScrolling , @@ -169,6 +172,7 @@ ScrolledWindowMinContentHeightPropertyInfo, constructScrolledWindowMinContentHeight , getScrolledWindowMinContentHeight , + scrolledWindowMinContentHeight , setScrolledWindowMinContentHeight , @@ -176,6 +180,7 @@ ScrolledWindowMinContentWidthPropertyInfo, constructScrolledWindowMinContentWidth , getScrolledWindowMinContentWidth , + scrolledWindowMinContentWidth , setScrolledWindowMinContentWidth , @@ -183,6 +188,7 @@ ScrolledWindowOverlayScrollingPropertyInfo, constructScrolledWindowOverlayScrolling , getScrolledWindowOverlayScrolling , + scrolledWindowOverlayScrolling , setScrolledWindowOverlayScrolling , @@ -190,6 +196,7 @@ ScrolledWindowShadowTypePropertyInfo , constructScrolledWindowShadowType , getScrolledWindowShadowType , + scrolledWindowShadowType , setScrolledWindowShadowType , @@ -197,6 +204,7 @@ ScrolledWindowVadjustmentPropertyInfo , constructScrolledWindowVadjustment , getScrolledWindowVadjustment , + scrolledWindowVadjustment , setScrolledWindowVadjustment , @@ -204,6 +212,7 @@ ScrolledWindowVscrollbarPolicyPropertyInfo, constructScrolledWindowVscrollbarPolicy , getScrolledWindowVscrollbarPolicy , + scrolledWindowVscrollbarPolicy , setScrolledWindowVscrollbarPolicy , @@ -211,6 +220,7 @@ ScrolledWindowWindowPlacementPropertyInfo, constructScrolledWindowWindowPlacement , getScrolledWindowWindowPlacement , + scrolledWindowWindowPlacement , setScrolledWindowWindowPlacement , @@ -218,6 +228,7 @@ ScrolledWindowWindowPlacementSetPropertyInfo, constructScrolledWindowWindowPlacementSet, getScrolledWindowWindowPlacementSet , + scrolledWindowWindowPlacementSet , setScrolledWindowWindowPlacementSet , @@ -276,9 +287,9 @@ ) where -import Prelude () 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 @@ -833,15 +844,16 @@ -- VVV Prop "hadjustment" -- Type: TInterface "Gtk" "Adjustment" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Just False,Just False) getScrolledWindowHadjustment :: (MonadIO m, ScrolledWindowK o) => o -> m Adjustment -getScrolledWindowHadjustment obj = liftIO $ getObjectPropertyObject obj "hadjustment" Adjustment +getScrolledWindowHadjustment obj = liftIO $ checkUnexpectedNothing "getScrolledWindowHadjustment" $ getObjectPropertyObject obj "hadjustment" Adjustment setScrolledWindowHadjustment :: (MonadIO m, ScrolledWindowK o, AdjustmentK a) => o -> a -> m () -setScrolledWindowHadjustment obj val = liftIO $ setObjectPropertyObject obj "hadjustment" val +setScrolledWindowHadjustment obj val = liftIO $ setObjectPropertyObject obj "hadjustment" (Just val) constructScrolledWindowHadjustment :: (AdjustmentK a) => a -> IO ([Char], GValue) -constructScrolledWindowHadjustment val = constructObjectPropertyObject "hadjustment" val +constructScrolledWindowHadjustment val = constructObjectPropertyObject "hadjustment" (Just val) data ScrolledWindowHadjustmentPropertyInfo instance AttrInfo ScrolledWindowHadjustmentPropertyInfo where @@ -853,10 +865,12 @@ attrGet _ = getScrolledWindowHadjustment attrSet _ = setScrolledWindowHadjustment attrConstruct _ = constructScrolledWindowHadjustment + attrClear _ = undefined -- VVV Prop "hscrollbar-policy" -- Type: TInterface "Gtk" "PolicyType" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getScrolledWindowHscrollbarPolicy :: (MonadIO m, ScrolledWindowK o) => o -> m PolicyType getScrolledWindowHscrollbarPolicy obj = liftIO $ getObjectPropertyEnum obj "hscrollbar-policy" @@ -877,10 +891,12 @@ attrGet _ = getScrolledWindowHscrollbarPolicy attrSet _ = setScrolledWindowHscrollbarPolicy attrConstruct _ = constructScrolledWindowHscrollbarPolicy + attrClear _ = undefined -- VVV Prop "kinetic-scrolling" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getScrolledWindowKineticScrolling :: (MonadIO m, ScrolledWindowK o) => o -> m Bool getScrolledWindowKineticScrolling obj = liftIO $ getObjectPropertyBool obj "kinetic-scrolling" @@ -901,19 +917,21 @@ attrGet _ = getScrolledWindowKineticScrolling attrSet _ = setScrolledWindowKineticScrolling attrConstruct _ = constructScrolledWindowKineticScrolling + attrClear _ = undefined -- VVV Prop "min-content-height" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getScrolledWindowMinContentHeight :: (MonadIO m, ScrolledWindowK o) => o -> m Int32 -getScrolledWindowMinContentHeight obj = liftIO $ getObjectPropertyCInt obj "min-content-height" +getScrolledWindowMinContentHeight obj = liftIO $ getObjectPropertyInt32 obj "min-content-height" setScrolledWindowMinContentHeight :: (MonadIO m, ScrolledWindowK o) => o -> Int32 -> m () -setScrolledWindowMinContentHeight obj val = liftIO $ setObjectPropertyCInt obj "min-content-height" val +setScrolledWindowMinContentHeight obj val = liftIO $ setObjectPropertyInt32 obj "min-content-height" val constructScrolledWindowMinContentHeight :: Int32 -> IO ([Char], GValue) -constructScrolledWindowMinContentHeight val = constructObjectPropertyCInt "min-content-height" val +constructScrolledWindowMinContentHeight val = constructObjectPropertyInt32 "min-content-height" val data ScrolledWindowMinContentHeightPropertyInfo instance AttrInfo ScrolledWindowMinContentHeightPropertyInfo where @@ -925,19 +943,21 @@ attrGet _ = getScrolledWindowMinContentHeight attrSet _ = setScrolledWindowMinContentHeight attrConstruct _ = constructScrolledWindowMinContentHeight + attrClear _ = undefined -- VVV Prop "min-content-width" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getScrolledWindowMinContentWidth :: (MonadIO m, ScrolledWindowK o) => o -> m Int32 -getScrolledWindowMinContentWidth obj = liftIO $ getObjectPropertyCInt obj "min-content-width" +getScrolledWindowMinContentWidth obj = liftIO $ getObjectPropertyInt32 obj "min-content-width" setScrolledWindowMinContentWidth :: (MonadIO m, ScrolledWindowK o) => o -> Int32 -> m () -setScrolledWindowMinContentWidth obj val = liftIO $ setObjectPropertyCInt obj "min-content-width" val +setScrolledWindowMinContentWidth obj val = liftIO $ setObjectPropertyInt32 obj "min-content-width" val constructScrolledWindowMinContentWidth :: Int32 -> IO ([Char], GValue) -constructScrolledWindowMinContentWidth val = constructObjectPropertyCInt "min-content-width" val +constructScrolledWindowMinContentWidth val = constructObjectPropertyInt32 "min-content-width" val data ScrolledWindowMinContentWidthPropertyInfo instance AttrInfo ScrolledWindowMinContentWidthPropertyInfo where @@ -949,10 +969,12 @@ attrGet _ = getScrolledWindowMinContentWidth attrSet _ = setScrolledWindowMinContentWidth attrConstruct _ = constructScrolledWindowMinContentWidth + attrClear _ = undefined -- VVV Prop "overlay-scrolling" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getScrolledWindowOverlayScrolling :: (MonadIO m, ScrolledWindowK o) => o -> m Bool getScrolledWindowOverlayScrolling obj = liftIO $ getObjectPropertyBool obj "overlay-scrolling" @@ -973,10 +995,12 @@ attrGet _ = getScrolledWindowOverlayScrolling attrSet _ = setScrolledWindowOverlayScrolling attrConstruct _ = constructScrolledWindowOverlayScrolling + attrClear _ = undefined -- VVV Prop "shadow-type" -- Type: TInterface "Gtk" "ShadowType" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getScrolledWindowShadowType :: (MonadIO m, ScrolledWindowK o) => o -> m ShadowType getScrolledWindowShadowType obj = liftIO $ getObjectPropertyEnum obj "shadow-type" @@ -997,19 +1021,21 @@ attrGet _ = getScrolledWindowShadowType attrSet _ = setScrolledWindowShadowType attrConstruct _ = constructScrolledWindowShadowType + attrClear _ = undefined -- VVV Prop "vadjustment" -- Type: TInterface "Gtk" "Adjustment" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Just False,Just False) getScrolledWindowVadjustment :: (MonadIO m, ScrolledWindowK o) => o -> m Adjustment -getScrolledWindowVadjustment obj = liftIO $ getObjectPropertyObject obj "vadjustment" Adjustment +getScrolledWindowVadjustment obj = liftIO $ checkUnexpectedNothing "getScrolledWindowVadjustment" $ getObjectPropertyObject obj "vadjustment" Adjustment setScrolledWindowVadjustment :: (MonadIO m, ScrolledWindowK o, AdjustmentK a) => o -> a -> m () -setScrolledWindowVadjustment obj val = liftIO $ setObjectPropertyObject obj "vadjustment" val +setScrolledWindowVadjustment obj val = liftIO $ setObjectPropertyObject obj "vadjustment" (Just val) constructScrolledWindowVadjustment :: (AdjustmentK a) => a -> IO ([Char], GValue) -constructScrolledWindowVadjustment val = constructObjectPropertyObject "vadjustment" val +constructScrolledWindowVadjustment val = constructObjectPropertyObject "vadjustment" (Just val) data ScrolledWindowVadjustmentPropertyInfo instance AttrInfo ScrolledWindowVadjustmentPropertyInfo where @@ -1021,10 +1047,12 @@ attrGet _ = getScrolledWindowVadjustment attrSet _ = setScrolledWindowVadjustment attrConstruct _ = constructScrolledWindowVadjustment + attrClear _ = undefined -- VVV Prop "vscrollbar-policy" -- Type: TInterface "Gtk" "PolicyType" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getScrolledWindowVscrollbarPolicy :: (MonadIO m, ScrolledWindowK o) => o -> m PolicyType getScrolledWindowVscrollbarPolicy obj = liftIO $ getObjectPropertyEnum obj "vscrollbar-policy" @@ -1045,10 +1073,12 @@ attrGet _ = getScrolledWindowVscrollbarPolicy attrSet _ = setScrolledWindowVscrollbarPolicy attrConstruct _ = constructScrolledWindowVscrollbarPolicy + attrClear _ = undefined -- VVV Prop "window-placement" -- Type: TInterface "Gtk" "CornerType" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getScrolledWindowWindowPlacement :: (MonadIO m, ScrolledWindowK o) => o -> m CornerType getScrolledWindowWindowPlacement obj = liftIO $ getObjectPropertyEnum obj "window-placement" @@ -1069,10 +1099,12 @@ attrGet _ = getScrolledWindowWindowPlacement attrSet _ = setScrolledWindowWindowPlacement attrConstruct _ = constructScrolledWindowWindowPlacement + attrClear _ = undefined -- VVV Prop "window-placement-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getScrolledWindowWindowPlacementSet :: (MonadIO m, ScrolledWindowK o) => o -> m Bool getScrolledWindowWindowPlacementSet obj = liftIO $ getObjectPropertyBool obj "window-placement-set" @@ -1093,10 +1125,44 @@ attrGet _ = getScrolledWindowWindowPlacementSet attrSet _ = setScrolledWindowWindowPlacementSet attrConstruct _ = constructScrolledWindowWindowPlacementSet + attrClear _ = undefined type instance AttributeList ScrolledWindow = ScrolledWindowAttributeList type ScrolledWindowAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("hadjustment", ScrolledWindowHadjustmentPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hscrollbarPolicy", ScrolledWindowHscrollbarPolicyPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("kineticScrolling", ScrolledWindowKineticScrollingPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("minContentHeight", ScrolledWindowMinContentHeightPropertyInfo), '("minContentWidth", ScrolledWindowMinContentWidthPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("overlayScrolling", ScrolledWindowOverlayScrollingPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadowType", ScrolledWindowShadowTypePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("vadjustment", ScrolledWindowVadjustmentPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("vscrollbarPolicy", ScrolledWindowVscrollbarPolicyPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("windowPlacement", ScrolledWindowWindowPlacementPropertyInfo), '("windowPlacementSet", ScrolledWindowWindowPlacementSetPropertyInfo)] :: [(Symbol, *)]) +scrolledWindowHadjustment :: AttrLabelProxy "hadjustment" +scrolledWindowHadjustment = AttrLabelProxy + +scrolledWindowHscrollbarPolicy :: AttrLabelProxy "hscrollbarPolicy" +scrolledWindowHscrollbarPolicy = AttrLabelProxy + +scrolledWindowKineticScrolling :: AttrLabelProxy "kineticScrolling" +scrolledWindowKineticScrolling = AttrLabelProxy + +scrolledWindowMinContentHeight :: AttrLabelProxy "minContentHeight" +scrolledWindowMinContentHeight = AttrLabelProxy + +scrolledWindowMinContentWidth :: AttrLabelProxy "minContentWidth" +scrolledWindowMinContentWidth = AttrLabelProxy + +scrolledWindowOverlayScrolling :: AttrLabelProxy "overlayScrolling" +scrolledWindowOverlayScrolling = AttrLabelProxy + +scrolledWindowShadowType :: AttrLabelProxy "shadowType" +scrolledWindowShadowType = AttrLabelProxy + +scrolledWindowVadjustment :: AttrLabelProxy "vadjustment" +scrolledWindowVadjustment = AttrLabelProxy + +scrolledWindowVscrollbarPolicy :: AttrLabelProxy "vscrollbarPolicy" +scrolledWindowVscrollbarPolicy = AttrLabelProxy + +scrolledWindowWindowPlacement :: AttrLabelProxy "windowPlacement" +scrolledWindowWindowPlacement = AttrLabelProxy + +scrolledWindowWindowPlacementSet :: AttrLabelProxy "windowPlacementSet" +scrolledWindowWindowPlacementSet = AttrLabelProxy + data ScrolledWindowEdgeOvershotSignalInfo instance SignalInfo ScrolledWindowEdgeOvershotSignalInfo where type HaskellCallbackType ScrolledWindowEdgeOvershotSignalInfo = ScrolledWindowEdgeOvershotCallback @@ -1124,7 +1190,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "hadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "vadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "ScrolledWindow" +-- returnType : Just (TInterface "Gtk" "ScrolledWindow") -- throws : False -- Skip return : False @@ -1161,7 +1227,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1192,7 +1258,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1220,7 +1286,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Adjustment" +-- returnType : Just (TInterface "Gtk" "Adjustment") -- throws : False -- Skip return : False @@ -1249,7 +1315,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -1278,7 +1344,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1306,7 +1372,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1333,7 +1399,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1360,7 +1426,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1388,7 +1454,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "CornerType" +-- returnType : Just (TInterface "Gtk" "CornerType") -- throws : False -- Skip return : False @@ -1416,7 +1482,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hscrollbar_policy", argType = TInterface "Gtk" "PolicyType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "vscrollbar_policy", argType = TInterface "Gtk" "PolicyType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1453,7 +1519,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "ShadowType" +-- returnType : Just (TInterface "Gtk" "ShadowType") -- throws : False -- Skip return : False @@ -1481,7 +1547,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Adjustment" +-- returnType : Just (TInterface "Gtk" "Adjustment") -- throws : False -- Skip return : False @@ -1510,7 +1576,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -1539,7 +1605,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "capture_button_press", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1569,7 +1635,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1600,7 +1666,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "kinetic_scrolling", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1628,15 +1694,15 @@ -- method ScrolledWindow::set_min_content_height -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_scrolled_window_set_min_content_height" gtk_scrolled_window_set_min_content_height :: Ptr ScrolledWindow -> -- _obj : TInterface "Gtk" "ScrolledWindow" - Int32 -> -- height : TBasicType TInt32 + Int32 -> -- height : TBasicType TInt IO () @@ -1657,15 +1723,15 @@ -- method ScrolledWindow::set_min_content_width -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", 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}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_scrolled_window_set_min_content_width" gtk_scrolled_window_set_min_content_width :: Ptr ScrolledWindow -> -- _obj : TInterface "Gtk" "ScrolledWindow" - Int32 -> -- width : TBasicType TInt32 + Int32 -> -- width : TBasicType TInt IO () @@ -1688,7 +1754,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "overlay_scrolling", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1718,7 +1784,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window_placement", argType = TInterface "Gtk" "CornerType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1748,7 +1814,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hscrollbar_policy", argType = TInterface "Gtk" "PolicyType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "vscrollbar_policy", argType = TInterface "Gtk" "PolicyType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1781,7 +1847,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1811,7 +1877,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "vadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1842,7 +1908,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/ScrolledWindow.hs-boot b/GI/Gtk/Objects/ScrolledWindow.hs-boot --- a/GI/Gtk/Objects/ScrolledWindow.hs-boot +++ b/GI/Gtk/Objects/ScrolledWindow.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.ScrolledWindow where -import Prelude () 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 diff --git a/GI/Gtk/Objects/ScrolledWindowAccessible.hs b/GI/Gtk/Objects/ScrolledWindowAccessible.hs --- a/GI/Gtk/Objects/ScrolledWindowAccessible.hs +++ b/GI/Gtk/Objects/ScrolledWindowAccessible.hs @@ -18,9 +18,9 @@ ) where -import Prelude () 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 diff --git a/GI/Gtk/Objects/ScrolledWindowAccessible.hs-boot b/GI/Gtk/Objects/ScrolledWindowAccessible.hs-boot --- a/GI/Gtk/Objects/ScrolledWindowAccessible.hs-boot +++ b/GI/Gtk/Objects/ScrolledWindowAccessible.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.ScrolledWindowAccessible where -import Prelude () 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 diff --git a/GI/Gtk/Objects/SearchBar.hs b/GI/Gtk/Objects/SearchBar.hs --- a/GI/Gtk/Objects/SearchBar.hs +++ b/GI/Gtk/Objects/SearchBar.hs @@ -58,6 +58,7 @@ SearchBarSearchModeEnabledPropertyInfo , constructSearchBarSearchModeEnabled , getSearchBarSearchModeEnabled , + searchBarSearchModeEnabled , setSearchBarSearchModeEnabled , @@ -65,6 +66,7 @@ SearchBarShowCloseButtonPropertyInfo , constructSearchBarShowCloseButton , getSearchBarShowCloseButton , + searchBarShowCloseButton , setSearchBarShowCloseButton , @@ -72,9 +74,9 @@ ) where -import Prelude () 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 @@ -438,6 +440,7 @@ -- VVV Prop "search-mode-enabled" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getSearchBarSearchModeEnabled :: (MonadIO m, SearchBarK o) => o -> m Bool getSearchBarSearchModeEnabled obj = liftIO $ getObjectPropertyBool obj "search-mode-enabled" @@ -458,10 +461,12 @@ attrGet _ = getSearchBarSearchModeEnabled attrSet _ = setSearchBarSearchModeEnabled attrConstruct _ = constructSearchBarSearchModeEnabled + attrClear _ = undefined -- VVV Prop "show-close-button" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Just False,Just False) getSearchBarShowCloseButton :: (MonadIO m, SearchBarK o) => o -> m Bool getSearchBarShowCloseButton obj = liftIO $ getObjectPropertyBool obj "show-close-button" @@ -482,10 +487,17 @@ attrGet _ = getSearchBarShowCloseButton attrSet _ = setSearchBarShowCloseButton attrConstruct _ = constructSearchBarShowCloseButton + attrClear _ = undefined type instance AttributeList SearchBar = SearchBarAttributeList type SearchBarAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("searchModeEnabled", SearchBarSearchModeEnabledPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showCloseButton", SearchBarShowCloseButtonPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +searchBarSearchModeEnabled :: AttrLabelProxy "searchModeEnabled" +searchBarSearchModeEnabled = AttrLabelProxy + +searchBarShowCloseButton :: AttrLabelProxy "showCloseButton" +searchBarShowCloseButton = AttrLabelProxy + type instance SignalList SearchBar = SearchBarSignalList type SearchBarSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -493,7 +505,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "SearchBar" +-- returnType : Just (TInterface "Gtk" "SearchBar") -- throws : False -- Skip return : False @@ -514,7 +526,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SearchBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "entry", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -545,7 +557,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SearchBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -573,7 +585,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SearchBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -601,7 +613,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SearchBar", 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 : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -633,7 +645,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SearchBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "search_mode", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -663,7 +675,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SearchBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/SearchBar.hs-boot b/GI/Gtk/Objects/SearchBar.hs-boot --- a/GI/Gtk/Objects/SearchBar.hs-boot +++ b/GI/Gtk/Objects/SearchBar.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.SearchBar where -import Prelude () 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 diff --git a/GI/Gtk/Objects/SearchEntry.hs b/GI/Gtk/Objects/SearchEntry.hs --- a/GI/Gtk/Objects/SearchEntry.hs +++ b/GI/Gtk/Objects/SearchEntry.hs @@ -81,9 +81,9 @@ ) where -import Prelude () 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 @@ -684,7 +684,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "SearchEntry" +-- returnType : Just (TInterface "Gtk" "SearchEntry") -- throws : False -- Skip return : False @@ -705,7 +705,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SearchEntry", 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 : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/SearchEntry.hs-boot b/GI/Gtk/Objects/SearchEntry.hs-boot --- a/GI/Gtk/Objects/SearchEntry.hs-boot +++ b/GI/Gtk/Objects/SearchEntry.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.SearchEntry where -import Prelude () 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 diff --git a/GI/Gtk/Objects/Separator.hs b/GI/Gtk/Objects/Separator.hs --- a/GI/Gtk/Objects/Separator.hs +++ b/GI/Gtk/Objects/Separator.hs @@ -25,9 +25,9 @@ ) where -import Prelude () 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 @@ -366,7 +366,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Separator" +-- returnType : Just (TInterface "Gtk" "Separator") -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/Separator.hs-boot b/GI/Gtk/Objects/Separator.hs-boot --- a/GI/Gtk/Objects/Separator.hs-boot +++ b/GI/Gtk/Objects/Separator.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.Separator where -import Prelude () 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 diff --git a/GI/Gtk/Objects/SeparatorMenuItem.hs b/GI/Gtk/Objects/SeparatorMenuItem.hs --- a/GI/Gtk/Objects/SeparatorMenuItem.hs +++ b/GI/Gtk/Objects/SeparatorMenuItem.hs @@ -25,9 +25,9 @@ ) where -import Prelude () 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 @@ -415,7 +415,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "SeparatorMenuItem" +-- returnType : Just (TInterface "Gtk" "SeparatorMenuItem") -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/SeparatorMenuItem.hs-boot b/GI/Gtk/Objects/SeparatorMenuItem.hs-boot --- a/GI/Gtk/Objects/SeparatorMenuItem.hs-boot +++ b/GI/Gtk/Objects/SeparatorMenuItem.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.SeparatorMenuItem where -import Prelude () 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 diff --git a/GI/Gtk/Objects/SeparatorToolItem.hs b/GI/Gtk/Objects/SeparatorToolItem.hs --- a/GI/Gtk/Objects/SeparatorToolItem.hs +++ b/GI/Gtk/Objects/SeparatorToolItem.hs @@ -38,6 +38,7 @@ SeparatorToolItemDrawPropertyInfo , constructSeparatorToolItemDraw , getSeparatorToolItemDraw , + separatorToolItemDraw , setSeparatorToolItemDraw , @@ -45,9 +46,9 @@ ) where -import Prelude () 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 @@ -435,6 +436,7 @@ -- VVV Prop "draw" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getSeparatorToolItemDraw :: (MonadIO m, SeparatorToolItemK o) => o -> m Bool getSeparatorToolItemDraw obj = liftIO $ getObjectPropertyBool obj "draw" @@ -455,10 +457,14 @@ attrGet _ = getSeparatorToolItemDraw attrSet _ = setSeparatorToolItemDraw attrConstruct _ = constructSeparatorToolItemDraw + attrClear _ = undefined type instance AttributeList SeparatorToolItem = SeparatorToolItemAttributeList type SeparatorToolItemAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("draw", SeparatorToolItemDrawPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isImportant", ToolItemIsImportantPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visibleHorizontal", ToolItemVisibleHorizontalPropertyInfo), '("visibleVertical", ToolItemVisibleVerticalPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +separatorToolItemDraw :: AttrLabelProxy "draw" +separatorToolItemDraw = AttrLabelProxy + type instance SignalList SeparatorToolItem = SeparatorToolItemSignalList type SeparatorToolItemSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("createMenuProxy", ToolItemCreateMenuProxySignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("toolbarReconfigured", ToolItemToolbarReconfiguredSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -466,7 +472,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "SeparatorToolItem" +-- returnType : Just (TInterface "Gtk" "SeparatorToolItem") -- throws : False -- Skip return : False @@ -487,7 +493,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SeparatorToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -515,7 +521,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SeparatorToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "draw", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/SeparatorToolItem.hs-boot b/GI/Gtk/Objects/SeparatorToolItem.hs-boot --- a/GI/Gtk/Objects/SeparatorToolItem.hs-boot +++ b/GI/Gtk/Objects/SeparatorToolItem.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.SeparatorToolItem where -import Prelude () 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 diff --git a/GI/Gtk/Objects/Settings.hs b/GI/Gtk/Objects/Settings.hs --- a/GI/Gtk/Objects/Settings.hs +++ b/GI/Gtk/Objects/Settings.hs @@ -58,2836 +58,3415 @@ -- * Properties -- ** ColorHash SettingsColorHashPropertyInfo , - - --- ** GtkAlternativeButtonOrder - SettingsGtkAlternativeButtonOrderPropertyInfo, - constructSettingsGtkAlternativeButtonOrder, - getSettingsGtkAlternativeButtonOrder , - setSettingsGtkAlternativeButtonOrder , - - --- ** GtkAlternativeSortArrows - SettingsGtkAlternativeSortArrowsPropertyInfo, - constructSettingsGtkAlternativeSortArrows, - getSettingsGtkAlternativeSortArrows , - setSettingsGtkAlternativeSortArrows , - - --- ** GtkApplicationPreferDarkTheme - SettingsGtkApplicationPreferDarkThemePropertyInfo, - constructSettingsGtkApplicationPreferDarkTheme, - getSettingsGtkApplicationPreferDarkTheme, - setSettingsGtkApplicationPreferDarkTheme, - - --- ** GtkAutoMnemonics - SettingsGtkAutoMnemonicsPropertyInfo , - constructSettingsGtkAutoMnemonics , - getSettingsGtkAutoMnemonics , - setSettingsGtkAutoMnemonics , - - --- ** GtkButtonImages - SettingsGtkButtonImagesPropertyInfo , - constructSettingsGtkButtonImages , - getSettingsGtkButtonImages , - setSettingsGtkButtonImages , - - --- ** GtkCanChangeAccels - SettingsGtkCanChangeAccelsPropertyInfo , - constructSettingsGtkCanChangeAccels , - getSettingsGtkCanChangeAccels , - setSettingsGtkCanChangeAccels , - - --- ** GtkColorPalette - SettingsGtkColorPalettePropertyInfo , - constructSettingsGtkColorPalette , - getSettingsGtkColorPalette , - setSettingsGtkColorPalette , - - --- ** GtkColorScheme - SettingsGtkColorSchemePropertyInfo , - constructSettingsGtkColorScheme , - getSettingsGtkColorScheme , - setSettingsGtkColorScheme , - - --- ** GtkCursorBlink - SettingsGtkCursorBlinkPropertyInfo , - constructSettingsGtkCursorBlink , - getSettingsGtkCursorBlink , - setSettingsGtkCursorBlink , - - --- ** GtkCursorBlinkTime - SettingsGtkCursorBlinkTimePropertyInfo , - constructSettingsGtkCursorBlinkTime , - getSettingsGtkCursorBlinkTime , - setSettingsGtkCursorBlinkTime , - - --- ** GtkCursorBlinkTimeout - SettingsGtkCursorBlinkTimeoutPropertyInfo, - constructSettingsGtkCursorBlinkTimeout , - getSettingsGtkCursorBlinkTimeout , - setSettingsGtkCursorBlinkTimeout , - - --- ** GtkCursorThemeName - SettingsGtkCursorThemeNamePropertyInfo , - constructSettingsGtkCursorThemeName , - getSettingsGtkCursorThemeName , - setSettingsGtkCursorThemeName , - - --- ** GtkCursorThemeSize - SettingsGtkCursorThemeSizePropertyInfo , - constructSettingsGtkCursorThemeSize , - getSettingsGtkCursorThemeSize , - setSettingsGtkCursorThemeSize , - - --- ** GtkDecorationLayout - SettingsGtkDecorationLayoutPropertyInfo , - constructSettingsGtkDecorationLayout , - getSettingsGtkDecorationLayout , - setSettingsGtkDecorationLayout , - - --- ** GtkDialogsUseHeader - SettingsGtkDialogsUseHeaderPropertyInfo , - constructSettingsGtkDialogsUseHeader , - getSettingsGtkDialogsUseHeader , - setSettingsGtkDialogsUseHeader , - - --- ** GtkDndDragThreshold - SettingsGtkDndDragThresholdPropertyInfo , - constructSettingsGtkDndDragThreshold , - getSettingsGtkDndDragThreshold , - setSettingsGtkDndDragThreshold , - - --- ** GtkDoubleClickDistance - SettingsGtkDoubleClickDistancePropertyInfo, - constructSettingsGtkDoubleClickDistance , - getSettingsGtkDoubleClickDistance , - setSettingsGtkDoubleClickDistance , - - --- ** GtkDoubleClickTime - SettingsGtkDoubleClickTimePropertyInfo , - constructSettingsGtkDoubleClickTime , - getSettingsGtkDoubleClickTime , - setSettingsGtkDoubleClickTime , - - --- ** GtkEnableAccels - SettingsGtkEnableAccelsPropertyInfo , - constructSettingsGtkEnableAccels , - getSettingsGtkEnableAccels , - setSettingsGtkEnableAccels , - - --- ** GtkEnableAnimations - SettingsGtkEnableAnimationsPropertyInfo , - constructSettingsGtkEnableAnimations , - getSettingsGtkEnableAnimations , - setSettingsGtkEnableAnimations , - - --- ** GtkEnableEventSounds - SettingsGtkEnableEventSoundsPropertyInfo, - constructSettingsGtkEnableEventSounds , - getSettingsGtkEnableEventSounds , - setSettingsGtkEnableEventSounds , - - --- ** GtkEnableInputFeedbackSounds - SettingsGtkEnableInputFeedbackSoundsPropertyInfo, - constructSettingsGtkEnableInputFeedbackSounds, - getSettingsGtkEnableInputFeedbackSounds , - setSettingsGtkEnableInputFeedbackSounds , - - --- ** GtkEnableMnemonics - SettingsGtkEnableMnemonicsPropertyInfo , - constructSettingsGtkEnableMnemonics , - getSettingsGtkEnableMnemonics , - setSettingsGtkEnableMnemonics , - - --- ** GtkEnablePrimaryPaste - SettingsGtkEnablePrimaryPastePropertyInfo, - constructSettingsGtkEnablePrimaryPaste , - getSettingsGtkEnablePrimaryPaste , - setSettingsGtkEnablePrimaryPaste , - - --- ** GtkEnableTooltips - SettingsGtkEnableTooltipsPropertyInfo , - constructSettingsGtkEnableTooltips , - getSettingsGtkEnableTooltips , - setSettingsGtkEnableTooltips , - - --- ** GtkEntryPasswordHintTimeout - SettingsGtkEntryPasswordHintTimeoutPropertyInfo, - constructSettingsGtkEntryPasswordHintTimeout, - getSettingsGtkEntryPasswordHintTimeout , - setSettingsGtkEntryPasswordHintTimeout , - - --- ** GtkEntrySelectOnFocus - SettingsGtkEntrySelectOnFocusPropertyInfo, - constructSettingsGtkEntrySelectOnFocus , - getSettingsGtkEntrySelectOnFocus , - setSettingsGtkEntrySelectOnFocus , - - --- ** GtkErrorBell - SettingsGtkErrorBellPropertyInfo , - constructSettingsGtkErrorBell , - getSettingsGtkErrorBell , - setSettingsGtkErrorBell , - - --- ** GtkFallbackIconTheme - SettingsGtkFallbackIconThemePropertyInfo, - constructSettingsGtkFallbackIconTheme , - getSettingsGtkFallbackIconTheme , - setSettingsGtkFallbackIconTheme , - - --- ** GtkFileChooserBackend - SettingsGtkFileChooserBackendPropertyInfo, - constructSettingsGtkFileChooserBackend , - getSettingsGtkFileChooserBackend , - setSettingsGtkFileChooserBackend , - - --- ** GtkFontName - SettingsGtkFontNamePropertyInfo , - constructSettingsGtkFontName , - getSettingsGtkFontName , - setSettingsGtkFontName , - - --- ** GtkFontconfigTimestamp - SettingsGtkFontconfigTimestampPropertyInfo, - constructSettingsGtkFontconfigTimestamp , - getSettingsGtkFontconfigTimestamp , - setSettingsGtkFontconfigTimestamp , - - --- ** GtkIconSizes - SettingsGtkIconSizesPropertyInfo , - constructSettingsGtkIconSizes , - getSettingsGtkIconSizes , - setSettingsGtkIconSizes , - - --- ** GtkIconThemeName - SettingsGtkIconThemeNamePropertyInfo , - constructSettingsGtkIconThemeName , - getSettingsGtkIconThemeName , - setSettingsGtkIconThemeName , - - --- ** GtkImModule - SettingsGtkImModulePropertyInfo , - constructSettingsGtkImModule , - getSettingsGtkImModule , - setSettingsGtkImModule , - - --- ** GtkImPreeditStyle - SettingsGtkImPreeditStylePropertyInfo , - constructSettingsGtkImPreeditStyle , - getSettingsGtkImPreeditStyle , - setSettingsGtkImPreeditStyle , - - --- ** GtkImStatusStyle - SettingsGtkImStatusStylePropertyInfo , - constructSettingsGtkImStatusStyle , - getSettingsGtkImStatusStyle , - setSettingsGtkImStatusStyle , - - --- ** GtkKeyThemeName - SettingsGtkKeyThemeNamePropertyInfo , - constructSettingsGtkKeyThemeName , - getSettingsGtkKeyThemeName , - setSettingsGtkKeyThemeName , - - --- ** GtkKeynavCursorOnly - SettingsGtkKeynavCursorOnlyPropertyInfo , - constructSettingsGtkKeynavCursorOnly , - getSettingsGtkKeynavCursorOnly , - setSettingsGtkKeynavCursorOnly , - - --- ** GtkKeynavWrapAround - SettingsGtkKeynavWrapAroundPropertyInfo , - constructSettingsGtkKeynavWrapAround , - getSettingsGtkKeynavWrapAround , - setSettingsGtkKeynavWrapAround , - - --- ** GtkLabelSelectOnFocus - SettingsGtkLabelSelectOnFocusPropertyInfo, - constructSettingsGtkLabelSelectOnFocus , - getSettingsGtkLabelSelectOnFocus , - setSettingsGtkLabelSelectOnFocus , - - --- ** GtkLongPressTime - SettingsGtkLongPressTimePropertyInfo , - constructSettingsGtkLongPressTime , - getSettingsGtkLongPressTime , - setSettingsGtkLongPressTime , - - --- ** GtkMenuBarAccel - SettingsGtkMenuBarAccelPropertyInfo , - constructSettingsGtkMenuBarAccel , - getSettingsGtkMenuBarAccel , - setSettingsGtkMenuBarAccel , - - --- ** GtkMenuBarPopupDelay - SettingsGtkMenuBarPopupDelayPropertyInfo, - constructSettingsGtkMenuBarPopupDelay , - getSettingsGtkMenuBarPopupDelay , - setSettingsGtkMenuBarPopupDelay , - - --- ** GtkMenuImages - SettingsGtkMenuImagesPropertyInfo , - constructSettingsGtkMenuImages , - getSettingsGtkMenuImages , - setSettingsGtkMenuImages , - - --- ** GtkMenuPopdownDelay - SettingsGtkMenuPopdownDelayPropertyInfo , - constructSettingsGtkMenuPopdownDelay , - getSettingsGtkMenuPopdownDelay , - setSettingsGtkMenuPopdownDelay , - - --- ** GtkMenuPopupDelay - SettingsGtkMenuPopupDelayPropertyInfo , - constructSettingsGtkMenuPopupDelay , - getSettingsGtkMenuPopupDelay , - setSettingsGtkMenuPopupDelay , - - --- ** GtkModules - SettingsGtkModulesPropertyInfo , - constructSettingsGtkModules , - getSettingsGtkModules , - setSettingsGtkModules , - - --- ** GtkPrimaryButtonWarpsSlider - SettingsGtkPrimaryButtonWarpsSliderPropertyInfo, - constructSettingsGtkPrimaryButtonWarpsSlider, - getSettingsGtkPrimaryButtonWarpsSlider , - setSettingsGtkPrimaryButtonWarpsSlider , - - --- ** GtkPrintBackends - SettingsGtkPrintBackendsPropertyInfo , - constructSettingsGtkPrintBackends , - getSettingsGtkPrintBackends , - setSettingsGtkPrintBackends , - - --- ** GtkPrintPreviewCommand - SettingsGtkPrintPreviewCommandPropertyInfo, - constructSettingsGtkPrintPreviewCommand , - getSettingsGtkPrintPreviewCommand , - setSettingsGtkPrintPreviewCommand , - - --- ** GtkRecentFilesEnabled - SettingsGtkRecentFilesEnabledPropertyInfo, - constructSettingsGtkRecentFilesEnabled , - getSettingsGtkRecentFilesEnabled , - setSettingsGtkRecentFilesEnabled , - - --- ** GtkRecentFilesLimit - SettingsGtkRecentFilesLimitPropertyInfo , - constructSettingsGtkRecentFilesLimit , - getSettingsGtkRecentFilesLimit , - setSettingsGtkRecentFilesLimit , - - --- ** GtkRecentFilesMaxAge - SettingsGtkRecentFilesMaxAgePropertyInfo, - constructSettingsGtkRecentFilesMaxAge , - getSettingsGtkRecentFilesMaxAge , - setSettingsGtkRecentFilesMaxAge , - - --- ** GtkScrolledWindowPlacement - SettingsGtkScrolledWindowPlacementPropertyInfo, - constructSettingsGtkScrolledWindowPlacement, - getSettingsGtkScrolledWindowPlacement , - setSettingsGtkScrolledWindowPlacement , - - --- ** GtkShellShowsAppMenu - SettingsGtkShellShowsAppMenuPropertyInfo, - constructSettingsGtkShellShowsAppMenu , - getSettingsGtkShellShowsAppMenu , - setSettingsGtkShellShowsAppMenu , - - --- ** GtkShellShowsDesktop - SettingsGtkShellShowsDesktopPropertyInfo, - constructSettingsGtkShellShowsDesktop , - getSettingsGtkShellShowsDesktop , - setSettingsGtkShellShowsDesktop , - - --- ** GtkShellShowsMenubar - SettingsGtkShellShowsMenubarPropertyInfo, - constructSettingsGtkShellShowsMenubar , - getSettingsGtkShellShowsMenubar , - setSettingsGtkShellShowsMenubar , - - --- ** GtkShowInputMethodMenu - SettingsGtkShowInputMethodMenuPropertyInfo, - constructSettingsGtkShowInputMethodMenu , - getSettingsGtkShowInputMethodMenu , - setSettingsGtkShowInputMethodMenu , - - --- ** GtkShowUnicodeMenu - SettingsGtkShowUnicodeMenuPropertyInfo , - constructSettingsGtkShowUnicodeMenu , - getSettingsGtkShowUnicodeMenu , - setSettingsGtkShowUnicodeMenu , - - --- ** GtkSoundThemeName - SettingsGtkSoundThemeNamePropertyInfo , - constructSettingsGtkSoundThemeName , - getSettingsGtkSoundThemeName , - setSettingsGtkSoundThemeName , - - --- ** GtkSplitCursor - SettingsGtkSplitCursorPropertyInfo , - constructSettingsGtkSplitCursor , - getSettingsGtkSplitCursor , - setSettingsGtkSplitCursor , - - --- ** GtkThemeName - SettingsGtkThemeNamePropertyInfo , - constructSettingsGtkThemeName , - getSettingsGtkThemeName , - setSettingsGtkThemeName , - - --- ** GtkTimeoutExpand - SettingsGtkTimeoutExpandPropertyInfo , - constructSettingsGtkTimeoutExpand , - getSettingsGtkTimeoutExpand , - setSettingsGtkTimeoutExpand , - - --- ** GtkTimeoutInitial - SettingsGtkTimeoutInitialPropertyInfo , - constructSettingsGtkTimeoutInitial , - getSettingsGtkTimeoutInitial , - setSettingsGtkTimeoutInitial , - - --- ** GtkTimeoutRepeat - SettingsGtkTimeoutRepeatPropertyInfo , - constructSettingsGtkTimeoutRepeat , - getSettingsGtkTimeoutRepeat , - setSettingsGtkTimeoutRepeat , - - --- ** GtkTitlebarDoubleClick - SettingsGtkTitlebarDoubleClickPropertyInfo, - constructSettingsGtkTitlebarDoubleClick , - getSettingsGtkTitlebarDoubleClick , - setSettingsGtkTitlebarDoubleClick , - - --- ** GtkTitlebarMiddleClick - SettingsGtkTitlebarMiddleClickPropertyInfo, - constructSettingsGtkTitlebarMiddleClick , - getSettingsGtkTitlebarMiddleClick , - setSettingsGtkTitlebarMiddleClick , - - --- ** GtkTitlebarRightClick - SettingsGtkTitlebarRightClickPropertyInfo, - constructSettingsGtkTitlebarRightClick , - getSettingsGtkTitlebarRightClick , - setSettingsGtkTitlebarRightClick , - - --- ** GtkToolbarIconSize - SettingsGtkToolbarIconSizePropertyInfo , - constructSettingsGtkToolbarIconSize , - getSettingsGtkToolbarIconSize , - setSettingsGtkToolbarIconSize , - - --- ** GtkToolbarStyle - SettingsGtkToolbarStylePropertyInfo , - constructSettingsGtkToolbarStyle , - getSettingsGtkToolbarStyle , - setSettingsGtkToolbarStyle , - - --- ** GtkTooltipBrowseModeTimeout - SettingsGtkTooltipBrowseModeTimeoutPropertyInfo, - constructSettingsGtkTooltipBrowseModeTimeout, - getSettingsGtkTooltipBrowseModeTimeout , - setSettingsGtkTooltipBrowseModeTimeout , - - --- ** GtkTooltipBrowseTimeout - SettingsGtkTooltipBrowseTimeoutPropertyInfo, - constructSettingsGtkTooltipBrowseTimeout, - getSettingsGtkTooltipBrowseTimeout , - setSettingsGtkTooltipBrowseTimeout , - - --- ** GtkTooltipTimeout - SettingsGtkTooltipTimeoutPropertyInfo , - constructSettingsGtkTooltipTimeout , - getSettingsGtkTooltipTimeout , - setSettingsGtkTooltipTimeout , - - --- ** GtkTouchscreenMode - SettingsGtkTouchscreenModePropertyInfo , - constructSettingsGtkTouchscreenMode , - getSettingsGtkTouchscreenMode , - setSettingsGtkTouchscreenMode , - - --- ** GtkVisibleFocus - SettingsGtkVisibleFocusPropertyInfo , - constructSettingsGtkVisibleFocus , - getSettingsGtkVisibleFocus , - setSettingsGtkVisibleFocus , - - --- ** GtkXftAntialias - SettingsGtkXftAntialiasPropertyInfo , - constructSettingsGtkXftAntialias , - getSettingsGtkXftAntialias , - setSettingsGtkXftAntialias , - - --- ** GtkXftDpi - SettingsGtkXftDpiPropertyInfo , - constructSettingsGtkXftDpi , - getSettingsGtkXftDpi , - setSettingsGtkXftDpi , - - --- ** GtkXftHinting - SettingsGtkXftHintingPropertyInfo , - constructSettingsGtkXftHinting , - getSettingsGtkXftHinting , - setSettingsGtkXftHinting , - - --- ** GtkXftHintstyle - SettingsGtkXftHintstylePropertyInfo , - constructSettingsGtkXftHintstyle , - getSettingsGtkXftHintstyle , - setSettingsGtkXftHintstyle , - - --- ** GtkXftRgba - SettingsGtkXftRgbaPropertyInfo , - constructSettingsGtkXftRgba , - getSettingsGtkXftRgba , - setSettingsGtkXftRgba , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk - -newtype Settings = Settings (ForeignPtr Settings) -foreign import ccall "gtk_settings_get_type" - c_gtk_settings_get_type :: IO GType - -type instance ParentTypes Settings = SettingsParentTypes -type SettingsParentTypes = '[GObject.Object, StyleProvider] - -instance GObject Settings where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gtk_settings_get_type - - -class GObject o => SettingsK o -instance (GObject o, IsDescendantOf Settings o) => SettingsK o - -toSettings :: SettingsK o => o -> IO Settings -toSettings = unsafeCastTo Settings - -noSettings :: Maybe Settings -noSettings = Nothing - -type family ResolveSettingsMethod (t :: Symbol) (o :: *) :: * where - ResolveSettingsMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveSettingsMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveSettingsMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveSettingsMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveSettingsMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveSettingsMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveSettingsMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveSettingsMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveSettingsMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveSettingsMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveSettingsMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveSettingsMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveSettingsMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveSettingsMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveSettingsMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveSettingsMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveSettingsMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveSettingsMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveSettingsMethod "getIconFactory" o = StyleProviderGetIconFactoryMethodInfo - ResolveSettingsMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveSettingsMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveSettingsMethod "getStyle" o = StyleProviderGetStyleMethodInfo - ResolveSettingsMethod "getStyleProperty" o = StyleProviderGetStylePropertyMethodInfo - ResolveSettingsMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveSettingsMethod "setDoubleProperty" o = SettingsSetDoublePropertyMethodInfo - ResolveSettingsMethod "setLongProperty" o = SettingsSetLongPropertyMethodInfo - ResolveSettingsMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveSettingsMethod "setPropertyValue" o = SettingsSetPropertyValueMethodInfo - ResolveSettingsMethod "setStringProperty" o = SettingsSetStringPropertyMethodInfo - ResolveSettingsMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveSettingsMethod t Settings, MethodInfo info Settings p) => IsLabelProxy t (Settings -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveSettingsMethod t Settings, MethodInfo info Settings p) => IsLabel t (Settings -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- XXX Generation of property "color-hash" of object "Settings" failed: Not implemented: "Property SettingsColorHash has unsupported transfer type TransferContainer" --- XXX Placeholder -data SettingsColorHashPropertyInfo -instance AttrInfo SettingsColorHashPropertyInfo where - type AttrAllowedOps SettingsColorHashPropertyInfo = '[] - type AttrSetTypeConstraint SettingsColorHashPropertyInfo = (~) () - type AttrBaseTypeConstraint SettingsColorHashPropertyInfo = (~) () - type AttrGetType SettingsColorHashPropertyInfo = () - type AttrLabel SettingsColorHashPropertyInfo = "" - attrGet = undefined - attrSet = undefined - attrConstruct = undefined --- VVV Prop "gtk-alternative-button-order" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkAlternativeButtonOrder :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsGtkAlternativeButtonOrder obj = liftIO $ getObjectPropertyBool obj "gtk-alternative-button-order" - -setSettingsGtkAlternativeButtonOrder :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsGtkAlternativeButtonOrder obj val = liftIO $ setObjectPropertyBool obj "gtk-alternative-button-order" val - -constructSettingsGtkAlternativeButtonOrder :: Bool -> IO ([Char], GValue) -constructSettingsGtkAlternativeButtonOrder val = constructObjectPropertyBool "gtk-alternative-button-order" val - -data SettingsGtkAlternativeButtonOrderPropertyInfo -instance AttrInfo SettingsGtkAlternativeButtonOrderPropertyInfo where - type AttrAllowedOps SettingsGtkAlternativeButtonOrderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkAlternativeButtonOrderPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsGtkAlternativeButtonOrderPropertyInfo = SettingsK - type AttrGetType SettingsGtkAlternativeButtonOrderPropertyInfo = Bool - type AttrLabel SettingsGtkAlternativeButtonOrderPropertyInfo = "gtk-alternative-button-order" - attrGet _ = getSettingsGtkAlternativeButtonOrder - attrSet _ = setSettingsGtkAlternativeButtonOrder - attrConstruct _ = constructSettingsGtkAlternativeButtonOrder - --- VVV Prop "gtk-alternative-sort-arrows" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkAlternativeSortArrows :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsGtkAlternativeSortArrows obj = liftIO $ getObjectPropertyBool obj "gtk-alternative-sort-arrows" - -setSettingsGtkAlternativeSortArrows :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsGtkAlternativeSortArrows obj val = liftIO $ setObjectPropertyBool obj "gtk-alternative-sort-arrows" val - -constructSettingsGtkAlternativeSortArrows :: Bool -> IO ([Char], GValue) -constructSettingsGtkAlternativeSortArrows val = constructObjectPropertyBool "gtk-alternative-sort-arrows" val - -data SettingsGtkAlternativeSortArrowsPropertyInfo -instance AttrInfo SettingsGtkAlternativeSortArrowsPropertyInfo where - type AttrAllowedOps SettingsGtkAlternativeSortArrowsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkAlternativeSortArrowsPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsGtkAlternativeSortArrowsPropertyInfo = SettingsK - type AttrGetType SettingsGtkAlternativeSortArrowsPropertyInfo = Bool - type AttrLabel SettingsGtkAlternativeSortArrowsPropertyInfo = "gtk-alternative-sort-arrows" - attrGet _ = getSettingsGtkAlternativeSortArrows - attrSet _ = setSettingsGtkAlternativeSortArrows - attrConstruct _ = constructSettingsGtkAlternativeSortArrows - --- VVV Prop "gtk-application-prefer-dark-theme" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkApplicationPreferDarkTheme :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsGtkApplicationPreferDarkTheme obj = liftIO $ getObjectPropertyBool obj "gtk-application-prefer-dark-theme" - -setSettingsGtkApplicationPreferDarkTheme :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsGtkApplicationPreferDarkTheme obj val = liftIO $ setObjectPropertyBool obj "gtk-application-prefer-dark-theme" val - -constructSettingsGtkApplicationPreferDarkTheme :: Bool -> IO ([Char], GValue) -constructSettingsGtkApplicationPreferDarkTheme val = constructObjectPropertyBool "gtk-application-prefer-dark-theme" val - -data SettingsGtkApplicationPreferDarkThemePropertyInfo -instance AttrInfo SettingsGtkApplicationPreferDarkThemePropertyInfo where - type AttrAllowedOps SettingsGtkApplicationPreferDarkThemePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkApplicationPreferDarkThemePropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsGtkApplicationPreferDarkThemePropertyInfo = SettingsK - type AttrGetType SettingsGtkApplicationPreferDarkThemePropertyInfo = Bool - type AttrLabel SettingsGtkApplicationPreferDarkThemePropertyInfo = "gtk-application-prefer-dark-theme" - attrGet _ = getSettingsGtkApplicationPreferDarkTheme - attrSet _ = setSettingsGtkApplicationPreferDarkTheme - attrConstruct _ = constructSettingsGtkApplicationPreferDarkTheme - --- VVV Prop "gtk-auto-mnemonics" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkAutoMnemonics :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsGtkAutoMnemonics obj = liftIO $ getObjectPropertyBool obj "gtk-auto-mnemonics" - -setSettingsGtkAutoMnemonics :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsGtkAutoMnemonics obj val = liftIO $ setObjectPropertyBool obj "gtk-auto-mnemonics" val - -constructSettingsGtkAutoMnemonics :: Bool -> IO ([Char], GValue) -constructSettingsGtkAutoMnemonics val = constructObjectPropertyBool "gtk-auto-mnemonics" val - -data SettingsGtkAutoMnemonicsPropertyInfo -instance AttrInfo SettingsGtkAutoMnemonicsPropertyInfo where - type AttrAllowedOps SettingsGtkAutoMnemonicsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkAutoMnemonicsPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsGtkAutoMnemonicsPropertyInfo = SettingsK - type AttrGetType SettingsGtkAutoMnemonicsPropertyInfo = Bool - type AttrLabel SettingsGtkAutoMnemonicsPropertyInfo = "gtk-auto-mnemonics" - attrGet _ = getSettingsGtkAutoMnemonics - attrSet _ = setSettingsGtkAutoMnemonics - attrConstruct _ = constructSettingsGtkAutoMnemonics - --- VVV Prop "gtk-button-images" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkButtonImages :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsGtkButtonImages obj = liftIO $ getObjectPropertyBool obj "gtk-button-images" - -setSettingsGtkButtonImages :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsGtkButtonImages obj val = liftIO $ setObjectPropertyBool obj "gtk-button-images" val - -constructSettingsGtkButtonImages :: Bool -> IO ([Char], GValue) -constructSettingsGtkButtonImages val = constructObjectPropertyBool "gtk-button-images" val - -data SettingsGtkButtonImagesPropertyInfo -instance AttrInfo SettingsGtkButtonImagesPropertyInfo where - type AttrAllowedOps SettingsGtkButtonImagesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkButtonImagesPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsGtkButtonImagesPropertyInfo = SettingsK - type AttrGetType SettingsGtkButtonImagesPropertyInfo = Bool - type AttrLabel SettingsGtkButtonImagesPropertyInfo = "gtk-button-images" - attrGet _ = getSettingsGtkButtonImages - attrSet _ = setSettingsGtkButtonImages - attrConstruct _ = constructSettingsGtkButtonImages - --- VVV Prop "gtk-can-change-accels" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkCanChangeAccels :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsGtkCanChangeAccels obj = liftIO $ getObjectPropertyBool obj "gtk-can-change-accels" - -setSettingsGtkCanChangeAccels :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsGtkCanChangeAccels obj val = liftIO $ setObjectPropertyBool obj "gtk-can-change-accels" val - -constructSettingsGtkCanChangeAccels :: Bool -> IO ([Char], GValue) -constructSettingsGtkCanChangeAccels val = constructObjectPropertyBool "gtk-can-change-accels" val - -data SettingsGtkCanChangeAccelsPropertyInfo -instance AttrInfo SettingsGtkCanChangeAccelsPropertyInfo where - type AttrAllowedOps SettingsGtkCanChangeAccelsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkCanChangeAccelsPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsGtkCanChangeAccelsPropertyInfo = SettingsK - type AttrGetType SettingsGtkCanChangeAccelsPropertyInfo = Bool - type AttrLabel SettingsGtkCanChangeAccelsPropertyInfo = "gtk-can-change-accels" - attrGet _ = getSettingsGtkCanChangeAccels - attrSet _ = setSettingsGtkCanChangeAccels - attrConstruct _ = constructSettingsGtkCanChangeAccels - --- VVV Prop "gtk-color-palette" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkColorPalette :: (MonadIO m, SettingsK o) => o -> m T.Text -getSettingsGtkColorPalette obj = liftIO $ getObjectPropertyString obj "gtk-color-palette" - -setSettingsGtkColorPalette :: (MonadIO m, SettingsK o) => o -> T.Text -> m () -setSettingsGtkColorPalette obj val = liftIO $ setObjectPropertyString obj "gtk-color-palette" val - -constructSettingsGtkColorPalette :: T.Text -> IO ([Char], GValue) -constructSettingsGtkColorPalette val = constructObjectPropertyString "gtk-color-palette" val - -data SettingsGtkColorPalettePropertyInfo -instance AttrInfo SettingsGtkColorPalettePropertyInfo where - type AttrAllowedOps SettingsGtkColorPalettePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkColorPalettePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkColorPalettePropertyInfo = SettingsK - type AttrGetType SettingsGtkColorPalettePropertyInfo = T.Text - type AttrLabel SettingsGtkColorPalettePropertyInfo = "gtk-color-palette" - attrGet _ = getSettingsGtkColorPalette - attrSet _ = setSettingsGtkColorPalette - attrConstruct _ = constructSettingsGtkColorPalette - --- VVV Prop "gtk-color-scheme" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkColorScheme :: (MonadIO m, SettingsK o) => o -> m T.Text -getSettingsGtkColorScheme obj = liftIO $ getObjectPropertyString obj "gtk-color-scheme" - -setSettingsGtkColorScheme :: (MonadIO m, SettingsK o) => o -> T.Text -> m () -setSettingsGtkColorScheme obj val = liftIO $ setObjectPropertyString obj "gtk-color-scheme" val - -constructSettingsGtkColorScheme :: T.Text -> IO ([Char], GValue) -constructSettingsGtkColorScheme val = constructObjectPropertyString "gtk-color-scheme" val - -data SettingsGtkColorSchemePropertyInfo -instance AttrInfo SettingsGtkColorSchemePropertyInfo where - type AttrAllowedOps SettingsGtkColorSchemePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkColorSchemePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkColorSchemePropertyInfo = SettingsK - type AttrGetType SettingsGtkColorSchemePropertyInfo = T.Text - type AttrLabel SettingsGtkColorSchemePropertyInfo = "gtk-color-scheme" - attrGet _ = getSettingsGtkColorScheme - attrSet _ = setSettingsGtkColorScheme - attrConstruct _ = constructSettingsGtkColorScheme - --- VVV Prop "gtk-cursor-blink" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkCursorBlink :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsGtkCursorBlink obj = liftIO $ getObjectPropertyBool obj "gtk-cursor-blink" - -setSettingsGtkCursorBlink :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsGtkCursorBlink obj val = liftIO $ setObjectPropertyBool obj "gtk-cursor-blink" val - -constructSettingsGtkCursorBlink :: Bool -> IO ([Char], GValue) -constructSettingsGtkCursorBlink val = constructObjectPropertyBool "gtk-cursor-blink" val - -data SettingsGtkCursorBlinkPropertyInfo -instance AttrInfo SettingsGtkCursorBlinkPropertyInfo where - type AttrAllowedOps SettingsGtkCursorBlinkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkCursorBlinkPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsGtkCursorBlinkPropertyInfo = SettingsK - type AttrGetType SettingsGtkCursorBlinkPropertyInfo = Bool - type AttrLabel SettingsGtkCursorBlinkPropertyInfo = "gtk-cursor-blink" - attrGet _ = getSettingsGtkCursorBlink - attrSet _ = setSettingsGtkCursorBlink - attrConstruct _ = constructSettingsGtkCursorBlink - --- VVV Prop "gtk-cursor-blink-time" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkCursorBlinkTime :: (MonadIO m, SettingsK o) => o -> m Int32 -getSettingsGtkCursorBlinkTime obj = liftIO $ getObjectPropertyCInt obj "gtk-cursor-blink-time" - -setSettingsGtkCursorBlinkTime :: (MonadIO m, SettingsK o) => o -> Int32 -> m () -setSettingsGtkCursorBlinkTime obj val = liftIO $ setObjectPropertyCInt obj "gtk-cursor-blink-time" val - -constructSettingsGtkCursorBlinkTime :: Int32 -> IO ([Char], GValue) -constructSettingsGtkCursorBlinkTime val = constructObjectPropertyCInt "gtk-cursor-blink-time" val - -data SettingsGtkCursorBlinkTimePropertyInfo -instance AttrInfo SettingsGtkCursorBlinkTimePropertyInfo where - type AttrAllowedOps SettingsGtkCursorBlinkTimePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkCursorBlinkTimePropertyInfo = (~) Int32 - type AttrBaseTypeConstraint SettingsGtkCursorBlinkTimePropertyInfo = SettingsK - type AttrGetType SettingsGtkCursorBlinkTimePropertyInfo = Int32 - type AttrLabel SettingsGtkCursorBlinkTimePropertyInfo = "gtk-cursor-blink-time" - attrGet _ = getSettingsGtkCursorBlinkTime - attrSet _ = setSettingsGtkCursorBlinkTime - attrConstruct _ = constructSettingsGtkCursorBlinkTime - --- VVV Prop "gtk-cursor-blink-timeout" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkCursorBlinkTimeout :: (MonadIO m, SettingsK o) => o -> m Int32 -getSettingsGtkCursorBlinkTimeout obj = liftIO $ getObjectPropertyCInt obj "gtk-cursor-blink-timeout" - -setSettingsGtkCursorBlinkTimeout :: (MonadIO m, SettingsK o) => o -> Int32 -> m () -setSettingsGtkCursorBlinkTimeout obj val = liftIO $ setObjectPropertyCInt obj "gtk-cursor-blink-timeout" val - -constructSettingsGtkCursorBlinkTimeout :: Int32 -> IO ([Char], GValue) -constructSettingsGtkCursorBlinkTimeout val = constructObjectPropertyCInt "gtk-cursor-blink-timeout" val - -data SettingsGtkCursorBlinkTimeoutPropertyInfo -instance AttrInfo SettingsGtkCursorBlinkTimeoutPropertyInfo where - type AttrAllowedOps SettingsGtkCursorBlinkTimeoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkCursorBlinkTimeoutPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint SettingsGtkCursorBlinkTimeoutPropertyInfo = SettingsK - type AttrGetType SettingsGtkCursorBlinkTimeoutPropertyInfo = Int32 - type AttrLabel SettingsGtkCursorBlinkTimeoutPropertyInfo = "gtk-cursor-blink-timeout" - attrGet _ = getSettingsGtkCursorBlinkTimeout - attrSet _ = setSettingsGtkCursorBlinkTimeout - attrConstruct _ = constructSettingsGtkCursorBlinkTimeout - --- VVV Prop "gtk-cursor-theme-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkCursorThemeName :: (MonadIO m, SettingsK o) => o -> m T.Text -getSettingsGtkCursorThemeName obj = liftIO $ getObjectPropertyString obj "gtk-cursor-theme-name" - -setSettingsGtkCursorThemeName :: (MonadIO m, SettingsK o) => o -> T.Text -> m () -setSettingsGtkCursorThemeName obj val = liftIO $ setObjectPropertyString obj "gtk-cursor-theme-name" val - -constructSettingsGtkCursorThemeName :: T.Text -> IO ([Char], GValue) -constructSettingsGtkCursorThemeName val = constructObjectPropertyString "gtk-cursor-theme-name" val - -data SettingsGtkCursorThemeNamePropertyInfo -instance AttrInfo SettingsGtkCursorThemeNamePropertyInfo where - type AttrAllowedOps SettingsGtkCursorThemeNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkCursorThemeNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkCursorThemeNamePropertyInfo = SettingsK - type AttrGetType SettingsGtkCursorThemeNamePropertyInfo = T.Text - type AttrLabel SettingsGtkCursorThemeNamePropertyInfo = "gtk-cursor-theme-name" - attrGet _ = getSettingsGtkCursorThemeName - attrSet _ = setSettingsGtkCursorThemeName - attrConstruct _ = constructSettingsGtkCursorThemeName - --- VVV Prop "gtk-cursor-theme-size" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkCursorThemeSize :: (MonadIO m, SettingsK o) => o -> m Int32 -getSettingsGtkCursorThemeSize obj = liftIO $ getObjectPropertyCInt obj "gtk-cursor-theme-size" - -setSettingsGtkCursorThemeSize :: (MonadIO m, SettingsK o) => o -> Int32 -> m () -setSettingsGtkCursorThemeSize obj val = liftIO $ setObjectPropertyCInt obj "gtk-cursor-theme-size" val - -constructSettingsGtkCursorThemeSize :: Int32 -> IO ([Char], GValue) -constructSettingsGtkCursorThemeSize val = constructObjectPropertyCInt "gtk-cursor-theme-size" val - -data SettingsGtkCursorThemeSizePropertyInfo -instance AttrInfo SettingsGtkCursorThemeSizePropertyInfo where - type AttrAllowedOps SettingsGtkCursorThemeSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkCursorThemeSizePropertyInfo = (~) Int32 - type AttrBaseTypeConstraint SettingsGtkCursorThemeSizePropertyInfo = SettingsK - type AttrGetType SettingsGtkCursorThemeSizePropertyInfo = Int32 - type AttrLabel SettingsGtkCursorThemeSizePropertyInfo = "gtk-cursor-theme-size" - attrGet _ = getSettingsGtkCursorThemeSize - attrSet _ = setSettingsGtkCursorThemeSize - attrConstruct _ = constructSettingsGtkCursorThemeSize - --- VVV Prop "gtk-decoration-layout" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkDecorationLayout :: (MonadIO m, SettingsK o) => o -> m T.Text -getSettingsGtkDecorationLayout obj = liftIO $ getObjectPropertyString obj "gtk-decoration-layout" - -setSettingsGtkDecorationLayout :: (MonadIO m, SettingsK o) => o -> T.Text -> m () -setSettingsGtkDecorationLayout obj val = liftIO $ setObjectPropertyString obj "gtk-decoration-layout" val - -constructSettingsGtkDecorationLayout :: T.Text -> IO ([Char], GValue) -constructSettingsGtkDecorationLayout val = constructObjectPropertyString "gtk-decoration-layout" val - -data SettingsGtkDecorationLayoutPropertyInfo -instance AttrInfo SettingsGtkDecorationLayoutPropertyInfo where - type AttrAllowedOps SettingsGtkDecorationLayoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkDecorationLayoutPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkDecorationLayoutPropertyInfo = SettingsK - type AttrGetType SettingsGtkDecorationLayoutPropertyInfo = T.Text - type AttrLabel SettingsGtkDecorationLayoutPropertyInfo = "gtk-decoration-layout" - attrGet _ = getSettingsGtkDecorationLayout - attrSet _ = setSettingsGtkDecorationLayout - attrConstruct _ = constructSettingsGtkDecorationLayout - --- VVV Prop "gtk-dialogs-use-header" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkDialogsUseHeader :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsGtkDialogsUseHeader obj = liftIO $ getObjectPropertyBool obj "gtk-dialogs-use-header" - -setSettingsGtkDialogsUseHeader :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsGtkDialogsUseHeader obj val = liftIO $ setObjectPropertyBool obj "gtk-dialogs-use-header" val - -constructSettingsGtkDialogsUseHeader :: Bool -> IO ([Char], GValue) -constructSettingsGtkDialogsUseHeader val = constructObjectPropertyBool "gtk-dialogs-use-header" val - -data SettingsGtkDialogsUseHeaderPropertyInfo -instance AttrInfo SettingsGtkDialogsUseHeaderPropertyInfo where - type AttrAllowedOps SettingsGtkDialogsUseHeaderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkDialogsUseHeaderPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsGtkDialogsUseHeaderPropertyInfo = SettingsK - type AttrGetType SettingsGtkDialogsUseHeaderPropertyInfo = Bool - type AttrLabel SettingsGtkDialogsUseHeaderPropertyInfo = "gtk-dialogs-use-header" - attrGet _ = getSettingsGtkDialogsUseHeader - attrSet _ = setSettingsGtkDialogsUseHeader - attrConstruct _ = constructSettingsGtkDialogsUseHeader - --- VVV Prop "gtk-dnd-drag-threshold" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkDndDragThreshold :: (MonadIO m, SettingsK o) => o -> m Int32 -getSettingsGtkDndDragThreshold obj = liftIO $ getObjectPropertyCInt obj "gtk-dnd-drag-threshold" - -setSettingsGtkDndDragThreshold :: (MonadIO m, SettingsK o) => o -> Int32 -> m () -setSettingsGtkDndDragThreshold obj val = liftIO $ setObjectPropertyCInt obj "gtk-dnd-drag-threshold" val - -constructSettingsGtkDndDragThreshold :: Int32 -> IO ([Char], GValue) -constructSettingsGtkDndDragThreshold val = constructObjectPropertyCInt "gtk-dnd-drag-threshold" val - -data SettingsGtkDndDragThresholdPropertyInfo -instance AttrInfo SettingsGtkDndDragThresholdPropertyInfo where - type AttrAllowedOps SettingsGtkDndDragThresholdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkDndDragThresholdPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint SettingsGtkDndDragThresholdPropertyInfo = SettingsK - type AttrGetType SettingsGtkDndDragThresholdPropertyInfo = Int32 - type AttrLabel SettingsGtkDndDragThresholdPropertyInfo = "gtk-dnd-drag-threshold" - attrGet _ = getSettingsGtkDndDragThreshold - attrSet _ = setSettingsGtkDndDragThreshold - attrConstruct _ = constructSettingsGtkDndDragThreshold - --- VVV Prop "gtk-double-click-distance" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkDoubleClickDistance :: (MonadIO m, SettingsK o) => o -> m Int32 -getSettingsGtkDoubleClickDistance obj = liftIO $ getObjectPropertyCInt obj "gtk-double-click-distance" - -setSettingsGtkDoubleClickDistance :: (MonadIO m, SettingsK o) => o -> Int32 -> m () -setSettingsGtkDoubleClickDistance obj val = liftIO $ setObjectPropertyCInt obj "gtk-double-click-distance" val - -constructSettingsGtkDoubleClickDistance :: Int32 -> IO ([Char], GValue) -constructSettingsGtkDoubleClickDistance val = constructObjectPropertyCInt "gtk-double-click-distance" val - -data SettingsGtkDoubleClickDistancePropertyInfo -instance AttrInfo SettingsGtkDoubleClickDistancePropertyInfo where - type AttrAllowedOps SettingsGtkDoubleClickDistancePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkDoubleClickDistancePropertyInfo = (~) Int32 - type AttrBaseTypeConstraint SettingsGtkDoubleClickDistancePropertyInfo = SettingsK - type AttrGetType SettingsGtkDoubleClickDistancePropertyInfo = Int32 - type AttrLabel SettingsGtkDoubleClickDistancePropertyInfo = "gtk-double-click-distance" - attrGet _ = getSettingsGtkDoubleClickDistance - attrSet _ = setSettingsGtkDoubleClickDistance - attrConstruct _ = constructSettingsGtkDoubleClickDistance - --- VVV Prop "gtk-double-click-time" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkDoubleClickTime :: (MonadIO m, SettingsK o) => o -> m Int32 -getSettingsGtkDoubleClickTime obj = liftIO $ getObjectPropertyCInt obj "gtk-double-click-time" - -setSettingsGtkDoubleClickTime :: (MonadIO m, SettingsK o) => o -> Int32 -> m () -setSettingsGtkDoubleClickTime obj val = liftIO $ setObjectPropertyCInt obj "gtk-double-click-time" val - -constructSettingsGtkDoubleClickTime :: Int32 -> IO ([Char], GValue) -constructSettingsGtkDoubleClickTime val = constructObjectPropertyCInt "gtk-double-click-time" val - -data SettingsGtkDoubleClickTimePropertyInfo -instance AttrInfo SettingsGtkDoubleClickTimePropertyInfo where - type AttrAllowedOps SettingsGtkDoubleClickTimePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkDoubleClickTimePropertyInfo = (~) Int32 - type AttrBaseTypeConstraint SettingsGtkDoubleClickTimePropertyInfo = SettingsK - type AttrGetType SettingsGtkDoubleClickTimePropertyInfo = Int32 - type AttrLabel SettingsGtkDoubleClickTimePropertyInfo = "gtk-double-click-time" - attrGet _ = getSettingsGtkDoubleClickTime - attrSet _ = setSettingsGtkDoubleClickTime - attrConstruct _ = constructSettingsGtkDoubleClickTime - --- VVV Prop "gtk-enable-accels" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkEnableAccels :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsGtkEnableAccels obj = liftIO $ getObjectPropertyBool obj "gtk-enable-accels" - -setSettingsGtkEnableAccels :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsGtkEnableAccels obj val = liftIO $ setObjectPropertyBool obj "gtk-enable-accels" val - -constructSettingsGtkEnableAccels :: Bool -> IO ([Char], GValue) -constructSettingsGtkEnableAccels val = constructObjectPropertyBool "gtk-enable-accels" val - -data SettingsGtkEnableAccelsPropertyInfo -instance AttrInfo SettingsGtkEnableAccelsPropertyInfo where - type AttrAllowedOps SettingsGtkEnableAccelsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkEnableAccelsPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsGtkEnableAccelsPropertyInfo = SettingsK - type AttrGetType SettingsGtkEnableAccelsPropertyInfo = Bool - type AttrLabel SettingsGtkEnableAccelsPropertyInfo = "gtk-enable-accels" - attrGet _ = getSettingsGtkEnableAccels - attrSet _ = setSettingsGtkEnableAccels - attrConstruct _ = constructSettingsGtkEnableAccels - --- VVV Prop "gtk-enable-animations" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkEnableAnimations :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsGtkEnableAnimations obj = liftIO $ getObjectPropertyBool obj "gtk-enable-animations" - -setSettingsGtkEnableAnimations :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsGtkEnableAnimations obj val = liftIO $ setObjectPropertyBool obj "gtk-enable-animations" val - -constructSettingsGtkEnableAnimations :: Bool -> IO ([Char], GValue) -constructSettingsGtkEnableAnimations val = constructObjectPropertyBool "gtk-enable-animations" val - -data SettingsGtkEnableAnimationsPropertyInfo -instance AttrInfo SettingsGtkEnableAnimationsPropertyInfo where - type AttrAllowedOps SettingsGtkEnableAnimationsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkEnableAnimationsPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsGtkEnableAnimationsPropertyInfo = SettingsK - type AttrGetType SettingsGtkEnableAnimationsPropertyInfo = Bool - type AttrLabel SettingsGtkEnableAnimationsPropertyInfo = "gtk-enable-animations" - attrGet _ = getSettingsGtkEnableAnimations - attrSet _ = setSettingsGtkEnableAnimations - attrConstruct _ = constructSettingsGtkEnableAnimations - --- VVV Prop "gtk-enable-event-sounds" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkEnableEventSounds :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsGtkEnableEventSounds obj = liftIO $ getObjectPropertyBool obj "gtk-enable-event-sounds" - -setSettingsGtkEnableEventSounds :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsGtkEnableEventSounds obj val = liftIO $ setObjectPropertyBool obj "gtk-enable-event-sounds" val - -constructSettingsGtkEnableEventSounds :: Bool -> IO ([Char], GValue) -constructSettingsGtkEnableEventSounds val = constructObjectPropertyBool "gtk-enable-event-sounds" val - -data SettingsGtkEnableEventSoundsPropertyInfo -instance AttrInfo SettingsGtkEnableEventSoundsPropertyInfo where - type AttrAllowedOps SettingsGtkEnableEventSoundsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkEnableEventSoundsPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsGtkEnableEventSoundsPropertyInfo = SettingsK - type AttrGetType SettingsGtkEnableEventSoundsPropertyInfo = Bool - type AttrLabel SettingsGtkEnableEventSoundsPropertyInfo = "gtk-enable-event-sounds" - attrGet _ = getSettingsGtkEnableEventSounds - attrSet _ = setSettingsGtkEnableEventSounds - attrConstruct _ = constructSettingsGtkEnableEventSounds - --- VVV Prop "gtk-enable-input-feedback-sounds" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkEnableInputFeedbackSounds :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsGtkEnableInputFeedbackSounds obj = liftIO $ getObjectPropertyBool obj "gtk-enable-input-feedback-sounds" - -setSettingsGtkEnableInputFeedbackSounds :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsGtkEnableInputFeedbackSounds obj val = liftIO $ setObjectPropertyBool obj "gtk-enable-input-feedback-sounds" val - -constructSettingsGtkEnableInputFeedbackSounds :: Bool -> IO ([Char], GValue) -constructSettingsGtkEnableInputFeedbackSounds val = constructObjectPropertyBool "gtk-enable-input-feedback-sounds" val - -data SettingsGtkEnableInputFeedbackSoundsPropertyInfo -instance AttrInfo SettingsGtkEnableInputFeedbackSoundsPropertyInfo where - type AttrAllowedOps SettingsGtkEnableInputFeedbackSoundsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkEnableInputFeedbackSoundsPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsGtkEnableInputFeedbackSoundsPropertyInfo = SettingsK - type AttrGetType SettingsGtkEnableInputFeedbackSoundsPropertyInfo = Bool - type AttrLabel SettingsGtkEnableInputFeedbackSoundsPropertyInfo = "gtk-enable-input-feedback-sounds" - attrGet _ = getSettingsGtkEnableInputFeedbackSounds - attrSet _ = setSettingsGtkEnableInputFeedbackSounds - attrConstruct _ = constructSettingsGtkEnableInputFeedbackSounds - --- VVV Prop "gtk-enable-mnemonics" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkEnableMnemonics :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsGtkEnableMnemonics obj = liftIO $ getObjectPropertyBool obj "gtk-enable-mnemonics" - -setSettingsGtkEnableMnemonics :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsGtkEnableMnemonics obj val = liftIO $ setObjectPropertyBool obj "gtk-enable-mnemonics" val - -constructSettingsGtkEnableMnemonics :: Bool -> IO ([Char], GValue) -constructSettingsGtkEnableMnemonics val = constructObjectPropertyBool "gtk-enable-mnemonics" val - -data SettingsGtkEnableMnemonicsPropertyInfo -instance AttrInfo SettingsGtkEnableMnemonicsPropertyInfo where - type AttrAllowedOps SettingsGtkEnableMnemonicsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkEnableMnemonicsPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsGtkEnableMnemonicsPropertyInfo = SettingsK - type AttrGetType SettingsGtkEnableMnemonicsPropertyInfo = Bool - type AttrLabel SettingsGtkEnableMnemonicsPropertyInfo = "gtk-enable-mnemonics" - attrGet _ = getSettingsGtkEnableMnemonics - attrSet _ = setSettingsGtkEnableMnemonics - attrConstruct _ = constructSettingsGtkEnableMnemonics - --- VVV Prop "gtk-enable-primary-paste" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkEnablePrimaryPaste :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsGtkEnablePrimaryPaste obj = liftIO $ getObjectPropertyBool obj "gtk-enable-primary-paste" - -setSettingsGtkEnablePrimaryPaste :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsGtkEnablePrimaryPaste obj val = liftIO $ setObjectPropertyBool obj "gtk-enable-primary-paste" val - -constructSettingsGtkEnablePrimaryPaste :: Bool -> IO ([Char], GValue) -constructSettingsGtkEnablePrimaryPaste val = constructObjectPropertyBool "gtk-enable-primary-paste" val - -data SettingsGtkEnablePrimaryPastePropertyInfo -instance AttrInfo SettingsGtkEnablePrimaryPastePropertyInfo where - type AttrAllowedOps SettingsGtkEnablePrimaryPastePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkEnablePrimaryPastePropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsGtkEnablePrimaryPastePropertyInfo = SettingsK - type AttrGetType SettingsGtkEnablePrimaryPastePropertyInfo = Bool - type AttrLabel SettingsGtkEnablePrimaryPastePropertyInfo = "gtk-enable-primary-paste" - attrGet _ = getSettingsGtkEnablePrimaryPaste - attrSet _ = setSettingsGtkEnablePrimaryPaste - attrConstruct _ = constructSettingsGtkEnablePrimaryPaste - --- VVV Prop "gtk-enable-tooltips" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkEnableTooltips :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsGtkEnableTooltips obj = liftIO $ getObjectPropertyBool obj "gtk-enable-tooltips" - -setSettingsGtkEnableTooltips :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsGtkEnableTooltips obj val = liftIO $ setObjectPropertyBool obj "gtk-enable-tooltips" val - -constructSettingsGtkEnableTooltips :: Bool -> IO ([Char], GValue) -constructSettingsGtkEnableTooltips val = constructObjectPropertyBool "gtk-enable-tooltips" val - -data SettingsGtkEnableTooltipsPropertyInfo -instance AttrInfo SettingsGtkEnableTooltipsPropertyInfo where - type AttrAllowedOps SettingsGtkEnableTooltipsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkEnableTooltipsPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsGtkEnableTooltipsPropertyInfo = SettingsK - type AttrGetType SettingsGtkEnableTooltipsPropertyInfo = Bool - type AttrLabel SettingsGtkEnableTooltipsPropertyInfo = "gtk-enable-tooltips" - attrGet _ = getSettingsGtkEnableTooltips - attrSet _ = setSettingsGtkEnableTooltips - attrConstruct _ = constructSettingsGtkEnableTooltips - --- VVV Prop "gtk-entry-password-hint-timeout" - -- Type: TBasicType TUInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkEntryPasswordHintTimeout :: (MonadIO m, SettingsK o) => o -> m Word32 -getSettingsGtkEntryPasswordHintTimeout obj = liftIO $ getObjectPropertyCUInt obj "gtk-entry-password-hint-timeout" - -setSettingsGtkEntryPasswordHintTimeout :: (MonadIO m, SettingsK o) => o -> Word32 -> m () -setSettingsGtkEntryPasswordHintTimeout obj val = liftIO $ setObjectPropertyCUInt obj "gtk-entry-password-hint-timeout" val - -constructSettingsGtkEntryPasswordHintTimeout :: Word32 -> IO ([Char], GValue) -constructSettingsGtkEntryPasswordHintTimeout val = constructObjectPropertyCUInt "gtk-entry-password-hint-timeout" val - -data SettingsGtkEntryPasswordHintTimeoutPropertyInfo -instance AttrInfo SettingsGtkEntryPasswordHintTimeoutPropertyInfo where - type AttrAllowedOps SettingsGtkEntryPasswordHintTimeoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkEntryPasswordHintTimeoutPropertyInfo = (~) Word32 - type AttrBaseTypeConstraint SettingsGtkEntryPasswordHintTimeoutPropertyInfo = SettingsK - type AttrGetType SettingsGtkEntryPasswordHintTimeoutPropertyInfo = Word32 - type AttrLabel SettingsGtkEntryPasswordHintTimeoutPropertyInfo = "gtk-entry-password-hint-timeout" - attrGet _ = getSettingsGtkEntryPasswordHintTimeout - attrSet _ = setSettingsGtkEntryPasswordHintTimeout - attrConstruct _ = constructSettingsGtkEntryPasswordHintTimeout - --- VVV Prop "gtk-entry-select-on-focus" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkEntrySelectOnFocus :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsGtkEntrySelectOnFocus obj = liftIO $ getObjectPropertyBool obj "gtk-entry-select-on-focus" - -setSettingsGtkEntrySelectOnFocus :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsGtkEntrySelectOnFocus obj val = liftIO $ setObjectPropertyBool obj "gtk-entry-select-on-focus" val - -constructSettingsGtkEntrySelectOnFocus :: Bool -> IO ([Char], GValue) -constructSettingsGtkEntrySelectOnFocus val = constructObjectPropertyBool "gtk-entry-select-on-focus" val - -data SettingsGtkEntrySelectOnFocusPropertyInfo -instance AttrInfo SettingsGtkEntrySelectOnFocusPropertyInfo where - type AttrAllowedOps SettingsGtkEntrySelectOnFocusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkEntrySelectOnFocusPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsGtkEntrySelectOnFocusPropertyInfo = SettingsK - type AttrGetType SettingsGtkEntrySelectOnFocusPropertyInfo = Bool - type AttrLabel SettingsGtkEntrySelectOnFocusPropertyInfo = "gtk-entry-select-on-focus" - attrGet _ = getSettingsGtkEntrySelectOnFocus - attrSet _ = setSettingsGtkEntrySelectOnFocus - attrConstruct _ = constructSettingsGtkEntrySelectOnFocus - --- VVV Prop "gtk-error-bell" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkErrorBell :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsGtkErrorBell obj = liftIO $ getObjectPropertyBool obj "gtk-error-bell" - -setSettingsGtkErrorBell :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsGtkErrorBell obj val = liftIO $ setObjectPropertyBool obj "gtk-error-bell" val - -constructSettingsGtkErrorBell :: Bool -> IO ([Char], GValue) -constructSettingsGtkErrorBell val = constructObjectPropertyBool "gtk-error-bell" val - -data SettingsGtkErrorBellPropertyInfo -instance AttrInfo SettingsGtkErrorBellPropertyInfo where - type AttrAllowedOps SettingsGtkErrorBellPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkErrorBellPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsGtkErrorBellPropertyInfo = SettingsK - type AttrGetType SettingsGtkErrorBellPropertyInfo = Bool - type AttrLabel SettingsGtkErrorBellPropertyInfo = "gtk-error-bell" - attrGet _ = getSettingsGtkErrorBell - attrSet _ = setSettingsGtkErrorBell - attrConstruct _ = constructSettingsGtkErrorBell - --- VVV Prop "gtk-fallback-icon-theme" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkFallbackIconTheme :: (MonadIO m, SettingsK o) => o -> m T.Text -getSettingsGtkFallbackIconTheme obj = liftIO $ getObjectPropertyString obj "gtk-fallback-icon-theme" - -setSettingsGtkFallbackIconTheme :: (MonadIO m, SettingsK o) => o -> T.Text -> m () -setSettingsGtkFallbackIconTheme obj val = liftIO $ setObjectPropertyString obj "gtk-fallback-icon-theme" val - -constructSettingsGtkFallbackIconTheme :: T.Text -> IO ([Char], GValue) -constructSettingsGtkFallbackIconTheme val = constructObjectPropertyString "gtk-fallback-icon-theme" val - -data SettingsGtkFallbackIconThemePropertyInfo -instance AttrInfo SettingsGtkFallbackIconThemePropertyInfo where - type AttrAllowedOps SettingsGtkFallbackIconThemePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkFallbackIconThemePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkFallbackIconThemePropertyInfo = SettingsK - type AttrGetType SettingsGtkFallbackIconThemePropertyInfo = T.Text - type AttrLabel SettingsGtkFallbackIconThemePropertyInfo = "gtk-fallback-icon-theme" - attrGet _ = getSettingsGtkFallbackIconTheme - attrSet _ = setSettingsGtkFallbackIconTheme - attrConstruct _ = constructSettingsGtkFallbackIconTheme - --- VVV Prop "gtk-file-chooser-backend" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkFileChooserBackend :: (MonadIO m, SettingsK o) => o -> m T.Text -getSettingsGtkFileChooserBackend obj = liftIO $ getObjectPropertyString obj "gtk-file-chooser-backend" - -setSettingsGtkFileChooserBackend :: (MonadIO m, SettingsK o) => o -> T.Text -> m () -setSettingsGtkFileChooserBackend obj val = liftIO $ setObjectPropertyString obj "gtk-file-chooser-backend" val - -constructSettingsGtkFileChooserBackend :: T.Text -> IO ([Char], GValue) -constructSettingsGtkFileChooserBackend val = constructObjectPropertyString "gtk-file-chooser-backend" val - -data SettingsGtkFileChooserBackendPropertyInfo -instance AttrInfo SettingsGtkFileChooserBackendPropertyInfo where - type AttrAllowedOps SettingsGtkFileChooserBackendPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkFileChooserBackendPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkFileChooserBackendPropertyInfo = SettingsK - type AttrGetType SettingsGtkFileChooserBackendPropertyInfo = T.Text - type AttrLabel SettingsGtkFileChooserBackendPropertyInfo = "gtk-file-chooser-backend" - attrGet _ = getSettingsGtkFileChooserBackend - attrSet _ = setSettingsGtkFileChooserBackend - attrConstruct _ = constructSettingsGtkFileChooserBackend - --- VVV Prop "gtk-font-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkFontName :: (MonadIO m, SettingsK o) => o -> m T.Text -getSettingsGtkFontName obj = liftIO $ getObjectPropertyString obj "gtk-font-name" - -setSettingsGtkFontName :: (MonadIO m, SettingsK o) => o -> T.Text -> m () -setSettingsGtkFontName obj val = liftIO $ setObjectPropertyString obj "gtk-font-name" val - -constructSettingsGtkFontName :: T.Text -> IO ([Char], GValue) -constructSettingsGtkFontName val = constructObjectPropertyString "gtk-font-name" val - -data SettingsGtkFontNamePropertyInfo -instance AttrInfo SettingsGtkFontNamePropertyInfo where - type AttrAllowedOps SettingsGtkFontNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkFontNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkFontNamePropertyInfo = SettingsK - type AttrGetType SettingsGtkFontNamePropertyInfo = T.Text - type AttrLabel SettingsGtkFontNamePropertyInfo = "gtk-font-name" - attrGet _ = getSettingsGtkFontName - attrSet _ = setSettingsGtkFontName - attrConstruct _ = constructSettingsGtkFontName - --- VVV Prop "gtk-fontconfig-timestamp" - -- Type: TBasicType TUInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkFontconfigTimestamp :: (MonadIO m, SettingsK o) => o -> m Word32 -getSettingsGtkFontconfigTimestamp obj = liftIO $ getObjectPropertyCUInt obj "gtk-fontconfig-timestamp" - -setSettingsGtkFontconfigTimestamp :: (MonadIO m, SettingsK o) => o -> Word32 -> m () -setSettingsGtkFontconfigTimestamp obj val = liftIO $ setObjectPropertyCUInt obj "gtk-fontconfig-timestamp" val - -constructSettingsGtkFontconfigTimestamp :: Word32 -> IO ([Char], GValue) -constructSettingsGtkFontconfigTimestamp val = constructObjectPropertyCUInt "gtk-fontconfig-timestamp" val - -data SettingsGtkFontconfigTimestampPropertyInfo -instance AttrInfo SettingsGtkFontconfigTimestampPropertyInfo where - type AttrAllowedOps SettingsGtkFontconfigTimestampPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkFontconfigTimestampPropertyInfo = (~) Word32 - type AttrBaseTypeConstraint SettingsGtkFontconfigTimestampPropertyInfo = SettingsK - type AttrGetType SettingsGtkFontconfigTimestampPropertyInfo = Word32 - type AttrLabel SettingsGtkFontconfigTimestampPropertyInfo = "gtk-fontconfig-timestamp" - attrGet _ = getSettingsGtkFontconfigTimestamp - attrSet _ = setSettingsGtkFontconfigTimestamp - attrConstruct _ = constructSettingsGtkFontconfigTimestamp - --- VVV Prop "gtk-icon-sizes" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkIconSizes :: (MonadIO m, SettingsK o) => o -> m T.Text -getSettingsGtkIconSizes obj = liftIO $ getObjectPropertyString obj "gtk-icon-sizes" - -setSettingsGtkIconSizes :: (MonadIO m, SettingsK o) => o -> T.Text -> m () -setSettingsGtkIconSizes obj val = liftIO $ setObjectPropertyString obj "gtk-icon-sizes" val - -constructSettingsGtkIconSizes :: T.Text -> IO ([Char], GValue) -constructSettingsGtkIconSizes val = constructObjectPropertyString "gtk-icon-sizes" val - -data SettingsGtkIconSizesPropertyInfo -instance AttrInfo SettingsGtkIconSizesPropertyInfo where - type AttrAllowedOps SettingsGtkIconSizesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkIconSizesPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkIconSizesPropertyInfo = SettingsK - type AttrGetType SettingsGtkIconSizesPropertyInfo = T.Text - type AttrLabel SettingsGtkIconSizesPropertyInfo = "gtk-icon-sizes" - attrGet _ = getSettingsGtkIconSizes - attrSet _ = setSettingsGtkIconSizes - attrConstruct _ = constructSettingsGtkIconSizes - --- VVV Prop "gtk-icon-theme-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkIconThemeName :: (MonadIO m, SettingsK o) => o -> m T.Text -getSettingsGtkIconThemeName obj = liftIO $ getObjectPropertyString obj "gtk-icon-theme-name" - -setSettingsGtkIconThemeName :: (MonadIO m, SettingsK o) => o -> T.Text -> m () -setSettingsGtkIconThemeName obj val = liftIO $ setObjectPropertyString obj "gtk-icon-theme-name" val - -constructSettingsGtkIconThemeName :: T.Text -> IO ([Char], GValue) -constructSettingsGtkIconThemeName val = constructObjectPropertyString "gtk-icon-theme-name" val - -data SettingsGtkIconThemeNamePropertyInfo -instance AttrInfo SettingsGtkIconThemeNamePropertyInfo where - type AttrAllowedOps SettingsGtkIconThemeNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkIconThemeNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkIconThemeNamePropertyInfo = SettingsK - type AttrGetType SettingsGtkIconThemeNamePropertyInfo = T.Text - type AttrLabel SettingsGtkIconThemeNamePropertyInfo = "gtk-icon-theme-name" - attrGet _ = getSettingsGtkIconThemeName - attrSet _ = setSettingsGtkIconThemeName - attrConstruct _ = constructSettingsGtkIconThemeName - --- VVV Prop "gtk-im-module" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkImModule :: (MonadIO m, SettingsK o) => o -> m T.Text -getSettingsGtkImModule obj = liftIO $ getObjectPropertyString obj "gtk-im-module" - -setSettingsGtkImModule :: (MonadIO m, SettingsK o) => o -> T.Text -> m () -setSettingsGtkImModule obj val = liftIO $ setObjectPropertyString obj "gtk-im-module" val - -constructSettingsGtkImModule :: T.Text -> IO ([Char], GValue) -constructSettingsGtkImModule val = constructObjectPropertyString "gtk-im-module" val - -data SettingsGtkImModulePropertyInfo -instance AttrInfo SettingsGtkImModulePropertyInfo where - type AttrAllowedOps SettingsGtkImModulePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkImModulePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkImModulePropertyInfo = SettingsK - type AttrGetType SettingsGtkImModulePropertyInfo = T.Text - type AttrLabel SettingsGtkImModulePropertyInfo = "gtk-im-module" - attrGet _ = getSettingsGtkImModule - attrSet _ = setSettingsGtkImModule - attrConstruct _ = constructSettingsGtkImModule - --- VVV Prop "gtk-im-preedit-style" - -- Type: TInterface "Gtk" "IMPreeditStyle" - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkImPreeditStyle :: (MonadIO m, SettingsK o) => o -> m IMPreeditStyle -getSettingsGtkImPreeditStyle obj = liftIO $ getObjectPropertyEnum obj "gtk-im-preedit-style" - -setSettingsGtkImPreeditStyle :: (MonadIO m, SettingsK o) => o -> IMPreeditStyle -> m () -setSettingsGtkImPreeditStyle obj val = liftIO $ setObjectPropertyEnum obj "gtk-im-preedit-style" val - -constructSettingsGtkImPreeditStyle :: IMPreeditStyle -> IO ([Char], GValue) -constructSettingsGtkImPreeditStyle val = constructObjectPropertyEnum "gtk-im-preedit-style" val - -data SettingsGtkImPreeditStylePropertyInfo -instance AttrInfo SettingsGtkImPreeditStylePropertyInfo where - type AttrAllowedOps SettingsGtkImPreeditStylePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkImPreeditStylePropertyInfo = (~) IMPreeditStyle - type AttrBaseTypeConstraint SettingsGtkImPreeditStylePropertyInfo = SettingsK - type AttrGetType SettingsGtkImPreeditStylePropertyInfo = IMPreeditStyle - type AttrLabel SettingsGtkImPreeditStylePropertyInfo = "gtk-im-preedit-style" - attrGet _ = getSettingsGtkImPreeditStyle - attrSet _ = setSettingsGtkImPreeditStyle - attrConstruct _ = constructSettingsGtkImPreeditStyle - --- VVV Prop "gtk-im-status-style" - -- Type: TInterface "Gtk" "IMStatusStyle" - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkImStatusStyle :: (MonadIO m, SettingsK o) => o -> m IMStatusStyle -getSettingsGtkImStatusStyle obj = liftIO $ getObjectPropertyEnum obj "gtk-im-status-style" - -setSettingsGtkImStatusStyle :: (MonadIO m, SettingsK o) => o -> IMStatusStyle -> m () -setSettingsGtkImStatusStyle obj val = liftIO $ setObjectPropertyEnum obj "gtk-im-status-style" val - -constructSettingsGtkImStatusStyle :: IMStatusStyle -> IO ([Char], GValue) -constructSettingsGtkImStatusStyle val = constructObjectPropertyEnum "gtk-im-status-style" val - -data SettingsGtkImStatusStylePropertyInfo -instance AttrInfo SettingsGtkImStatusStylePropertyInfo where - type AttrAllowedOps SettingsGtkImStatusStylePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkImStatusStylePropertyInfo = (~) IMStatusStyle - type AttrBaseTypeConstraint SettingsGtkImStatusStylePropertyInfo = SettingsK - type AttrGetType SettingsGtkImStatusStylePropertyInfo = IMStatusStyle - type AttrLabel SettingsGtkImStatusStylePropertyInfo = "gtk-im-status-style" - attrGet _ = getSettingsGtkImStatusStyle - attrSet _ = setSettingsGtkImStatusStyle - attrConstruct _ = constructSettingsGtkImStatusStyle - --- VVV Prop "gtk-key-theme-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkKeyThemeName :: (MonadIO m, SettingsK o) => o -> m T.Text -getSettingsGtkKeyThemeName obj = liftIO $ getObjectPropertyString obj "gtk-key-theme-name" - -setSettingsGtkKeyThemeName :: (MonadIO m, SettingsK o) => o -> T.Text -> m () -setSettingsGtkKeyThemeName obj val = liftIO $ setObjectPropertyString obj "gtk-key-theme-name" val - -constructSettingsGtkKeyThemeName :: T.Text -> IO ([Char], GValue) -constructSettingsGtkKeyThemeName val = constructObjectPropertyString "gtk-key-theme-name" val - -data SettingsGtkKeyThemeNamePropertyInfo -instance AttrInfo SettingsGtkKeyThemeNamePropertyInfo where - type AttrAllowedOps SettingsGtkKeyThemeNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkKeyThemeNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkKeyThemeNamePropertyInfo = SettingsK - type AttrGetType SettingsGtkKeyThemeNamePropertyInfo = T.Text - type AttrLabel SettingsGtkKeyThemeNamePropertyInfo = "gtk-key-theme-name" - attrGet _ = getSettingsGtkKeyThemeName - attrSet _ = setSettingsGtkKeyThemeName - attrConstruct _ = constructSettingsGtkKeyThemeName - --- VVV Prop "gtk-keynav-cursor-only" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkKeynavCursorOnly :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsGtkKeynavCursorOnly obj = liftIO $ getObjectPropertyBool obj "gtk-keynav-cursor-only" - -setSettingsGtkKeynavCursorOnly :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsGtkKeynavCursorOnly obj val = liftIO $ setObjectPropertyBool obj "gtk-keynav-cursor-only" val - -constructSettingsGtkKeynavCursorOnly :: Bool -> IO ([Char], GValue) -constructSettingsGtkKeynavCursorOnly val = constructObjectPropertyBool "gtk-keynav-cursor-only" val - -data SettingsGtkKeynavCursorOnlyPropertyInfo -instance AttrInfo SettingsGtkKeynavCursorOnlyPropertyInfo where - type AttrAllowedOps SettingsGtkKeynavCursorOnlyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkKeynavCursorOnlyPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsGtkKeynavCursorOnlyPropertyInfo = SettingsK - type AttrGetType SettingsGtkKeynavCursorOnlyPropertyInfo = Bool - type AttrLabel SettingsGtkKeynavCursorOnlyPropertyInfo = "gtk-keynav-cursor-only" - attrGet _ = getSettingsGtkKeynavCursorOnly - attrSet _ = setSettingsGtkKeynavCursorOnly - attrConstruct _ = constructSettingsGtkKeynavCursorOnly - --- VVV Prop "gtk-keynav-wrap-around" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkKeynavWrapAround :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsGtkKeynavWrapAround obj = liftIO $ getObjectPropertyBool obj "gtk-keynav-wrap-around" - -setSettingsGtkKeynavWrapAround :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsGtkKeynavWrapAround obj val = liftIO $ setObjectPropertyBool obj "gtk-keynav-wrap-around" val - -constructSettingsGtkKeynavWrapAround :: Bool -> IO ([Char], GValue) -constructSettingsGtkKeynavWrapAround val = constructObjectPropertyBool "gtk-keynav-wrap-around" val - -data SettingsGtkKeynavWrapAroundPropertyInfo -instance AttrInfo SettingsGtkKeynavWrapAroundPropertyInfo where - type AttrAllowedOps SettingsGtkKeynavWrapAroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkKeynavWrapAroundPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsGtkKeynavWrapAroundPropertyInfo = SettingsK - type AttrGetType SettingsGtkKeynavWrapAroundPropertyInfo = Bool - type AttrLabel SettingsGtkKeynavWrapAroundPropertyInfo = "gtk-keynav-wrap-around" - attrGet _ = getSettingsGtkKeynavWrapAround - attrSet _ = setSettingsGtkKeynavWrapAround - attrConstruct _ = constructSettingsGtkKeynavWrapAround - --- VVV Prop "gtk-label-select-on-focus" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkLabelSelectOnFocus :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsGtkLabelSelectOnFocus obj = liftIO $ getObjectPropertyBool obj "gtk-label-select-on-focus" - -setSettingsGtkLabelSelectOnFocus :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsGtkLabelSelectOnFocus obj val = liftIO $ setObjectPropertyBool obj "gtk-label-select-on-focus" val - -constructSettingsGtkLabelSelectOnFocus :: Bool -> IO ([Char], GValue) -constructSettingsGtkLabelSelectOnFocus val = constructObjectPropertyBool "gtk-label-select-on-focus" val - -data SettingsGtkLabelSelectOnFocusPropertyInfo -instance AttrInfo SettingsGtkLabelSelectOnFocusPropertyInfo where - type AttrAllowedOps SettingsGtkLabelSelectOnFocusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkLabelSelectOnFocusPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsGtkLabelSelectOnFocusPropertyInfo = SettingsK - type AttrGetType SettingsGtkLabelSelectOnFocusPropertyInfo = Bool - type AttrLabel SettingsGtkLabelSelectOnFocusPropertyInfo = "gtk-label-select-on-focus" - attrGet _ = getSettingsGtkLabelSelectOnFocus - attrSet _ = setSettingsGtkLabelSelectOnFocus - attrConstruct _ = constructSettingsGtkLabelSelectOnFocus - --- VVV Prop "gtk-long-press-time" - -- Type: TBasicType TUInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkLongPressTime :: (MonadIO m, SettingsK o) => o -> m Word32 -getSettingsGtkLongPressTime obj = liftIO $ getObjectPropertyCUInt obj "gtk-long-press-time" - -setSettingsGtkLongPressTime :: (MonadIO m, SettingsK o) => o -> Word32 -> m () -setSettingsGtkLongPressTime obj val = liftIO $ setObjectPropertyCUInt obj "gtk-long-press-time" val - -constructSettingsGtkLongPressTime :: Word32 -> IO ([Char], GValue) -constructSettingsGtkLongPressTime val = constructObjectPropertyCUInt "gtk-long-press-time" val - -data SettingsGtkLongPressTimePropertyInfo -instance AttrInfo SettingsGtkLongPressTimePropertyInfo where - type AttrAllowedOps SettingsGtkLongPressTimePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkLongPressTimePropertyInfo = (~) Word32 - type AttrBaseTypeConstraint SettingsGtkLongPressTimePropertyInfo = SettingsK - type AttrGetType SettingsGtkLongPressTimePropertyInfo = Word32 - type AttrLabel SettingsGtkLongPressTimePropertyInfo = "gtk-long-press-time" - attrGet _ = getSettingsGtkLongPressTime - attrSet _ = setSettingsGtkLongPressTime - attrConstruct _ = constructSettingsGtkLongPressTime - --- VVV Prop "gtk-menu-bar-accel" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkMenuBarAccel :: (MonadIO m, SettingsK o) => o -> m T.Text -getSettingsGtkMenuBarAccel obj = liftIO $ getObjectPropertyString obj "gtk-menu-bar-accel" - -setSettingsGtkMenuBarAccel :: (MonadIO m, SettingsK o) => o -> T.Text -> m () -setSettingsGtkMenuBarAccel obj val = liftIO $ setObjectPropertyString obj "gtk-menu-bar-accel" val - -constructSettingsGtkMenuBarAccel :: T.Text -> IO ([Char], GValue) -constructSettingsGtkMenuBarAccel val = constructObjectPropertyString "gtk-menu-bar-accel" val - -data SettingsGtkMenuBarAccelPropertyInfo -instance AttrInfo SettingsGtkMenuBarAccelPropertyInfo where - type AttrAllowedOps SettingsGtkMenuBarAccelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkMenuBarAccelPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkMenuBarAccelPropertyInfo = SettingsK - type AttrGetType SettingsGtkMenuBarAccelPropertyInfo = T.Text - type AttrLabel SettingsGtkMenuBarAccelPropertyInfo = "gtk-menu-bar-accel" - attrGet _ = getSettingsGtkMenuBarAccel - attrSet _ = setSettingsGtkMenuBarAccel - attrConstruct _ = constructSettingsGtkMenuBarAccel - --- VVV Prop "gtk-menu-bar-popup-delay" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkMenuBarPopupDelay :: (MonadIO m, SettingsK o) => o -> m Int32 -getSettingsGtkMenuBarPopupDelay obj = liftIO $ getObjectPropertyCInt obj "gtk-menu-bar-popup-delay" - -setSettingsGtkMenuBarPopupDelay :: (MonadIO m, SettingsK o) => o -> Int32 -> m () -setSettingsGtkMenuBarPopupDelay obj val = liftIO $ setObjectPropertyCInt obj "gtk-menu-bar-popup-delay" val - -constructSettingsGtkMenuBarPopupDelay :: Int32 -> IO ([Char], GValue) -constructSettingsGtkMenuBarPopupDelay val = constructObjectPropertyCInt "gtk-menu-bar-popup-delay" val - -data SettingsGtkMenuBarPopupDelayPropertyInfo -instance AttrInfo SettingsGtkMenuBarPopupDelayPropertyInfo where - type AttrAllowedOps SettingsGtkMenuBarPopupDelayPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkMenuBarPopupDelayPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint SettingsGtkMenuBarPopupDelayPropertyInfo = SettingsK - type AttrGetType SettingsGtkMenuBarPopupDelayPropertyInfo = Int32 - type AttrLabel SettingsGtkMenuBarPopupDelayPropertyInfo = "gtk-menu-bar-popup-delay" - attrGet _ = getSettingsGtkMenuBarPopupDelay - attrSet _ = setSettingsGtkMenuBarPopupDelay - attrConstruct _ = constructSettingsGtkMenuBarPopupDelay - --- VVV Prop "gtk-menu-images" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkMenuImages :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsGtkMenuImages obj = liftIO $ getObjectPropertyBool obj "gtk-menu-images" - -setSettingsGtkMenuImages :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsGtkMenuImages obj val = liftIO $ setObjectPropertyBool obj "gtk-menu-images" val - -constructSettingsGtkMenuImages :: Bool -> IO ([Char], GValue) -constructSettingsGtkMenuImages val = constructObjectPropertyBool "gtk-menu-images" val - -data SettingsGtkMenuImagesPropertyInfo -instance AttrInfo SettingsGtkMenuImagesPropertyInfo where - type AttrAllowedOps SettingsGtkMenuImagesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkMenuImagesPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsGtkMenuImagesPropertyInfo = SettingsK - type AttrGetType SettingsGtkMenuImagesPropertyInfo = Bool - type AttrLabel SettingsGtkMenuImagesPropertyInfo = "gtk-menu-images" - attrGet _ = getSettingsGtkMenuImages - attrSet _ = setSettingsGtkMenuImages - attrConstruct _ = constructSettingsGtkMenuImages - --- VVV Prop "gtk-menu-popdown-delay" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkMenuPopdownDelay :: (MonadIO m, SettingsK o) => o -> m Int32 -getSettingsGtkMenuPopdownDelay obj = liftIO $ getObjectPropertyCInt obj "gtk-menu-popdown-delay" - -setSettingsGtkMenuPopdownDelay :: (MonadIO m, SettingsK o) => o -> Int32 -> m () -setSettingsGtkMenuPopdownDelay obj val = liftIO $ setObjectPropertyCInt obj "gtk-menu-popdown-delay" val - -constructSettingsGtkMenuPopdownDelay :: Int32 -> IO ([Char], GValue) -constructSettingsGtkMenuPopdownDelay val = constructObjectPropertyCInt "gtk-menu-popdown-delay" val - -data SettingsGtkMenuPopdownDelayPropertyInfo -instance AttrInfo SettingsGtkMenuPopdownDelayPropertyInfo where - type AttrAllowedOps SettingsGtkMenuPopdownDelayPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkMenuPopdownDelayPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint SettingsGtkMenuPopdownDelayPropertyInfo = SettingsK - type AttrGetType SettingsGtkMenuPopdownDelayPropertyInfo = Int32 - type AttrLabel SettingsGtkMenuPopdownDelayPropertyInfo = "gtk-menu-popdown-delay" - attrGet _ = getSettingsGtkMenuPopdownDelay - attrSet _ = setSettingsGtkMenuPopdownDelay - attrConstruct _ = constructSettingsGtkMenuPopdownDelay - --- VVV Prop "gtk-menu-popup-delay" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkMenuPopupDelay :: (MonadIO m, SettingsK o) => o -> m Int32 -getSettingsGtkMenuPopupDelay obj = liftIO $ getObjectPropertyCInt obj "gtk-menu-popup-delay" - -setSettingsGtkMenuPopupDelay :: (MonadIO m, SettingsK o) => o -> Int32 -> m () -setSettingsGtkMenuPopupDelay obj val = liftIO $ setObjectPropertyCInt obj "gtk-menu-popup-delay" val - -constructSettingsGtkMenuPopupDelay :: Int32 -> IO ([Char], GValue) -constructSettingsGtkMenuPopupDelay val = constructObjectPropertyCInt "gtk-menu-popup-delay" val - -data SettingsGtkMenuPopupDelayPropertyInfo -instance AttrInfo SettingsGtkMenuPopupDelayPropertyInfo where - type AttrAllowedOps SettingsGtkMenuPopupDelayPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkMenuPopupDelayPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint SettingsGtkMenuPopupDelayPropertyInfo = SettingsK - type AttrGetType SettingsGtkMenuPopupDelayPropertyInfo = Int32 - type AttrLabel SettingsGtkMenuPopupDelayPropertyInfo = "gtk-menu-popup-delay" - attrGet _ = getSettingsGtkMenuPopupDelay - attrSet _ = setSettingsGtkMenuPopupDelay - attrConstruct _ = constructSettingsGtkMenuPopupDelay - --- VVV Prop "gtk-modules" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkModules :: (MonadIO m, SettingsK o) => o -> m T.Text -getSettingsGtkModules obj = liftIO $ getObjectPropertyString obj "gtk-modules" - -setSettingsGtkModules :: (MonadIO m, SettingsK o) => o -> T.Text -> m () -setSettingsGtkModules obj val = liftIO $ setObjectPropertyString obj "gtk-modules" val - -constructSettingsGtkModules :: T.Text -> IO ([Char], GValue) -constructSettingsGtkModules val = constructObjectPropertyString "gtk-modules" val - -data SettingsGtkModulesPropertyInfo -instance AttrInfo SettingsGtkModulesPropertyInfo where - type AttrAllowedOps SettingsGtkModulesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkModulesPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkModulesPropertyInfo = SettingsK - type AttrGetType SettingsGtkModulesPropertyInfo = T.Text - type AttrLabel SettingsGtkModulesPropertyInfo = "gtk-modules" - attrGet _ = getSettingsGtkModules - attrSet _ = setSettingsGtkModules - attrConstruct _ = constructSettingsGtkModules - --- VVV Prop "gtk-primary-button-warps-slider" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkPrimaryButtonWarpsSlider :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsGtkPrimaryButtonWarpsSlider obj = liftIO $ getObjectPropertyBool obj "gtk-primary-button-warps-slider" - -setSettingsGtkPrimaryButtonWarpsSlider :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsGtkPrimaryButtonWarpsSlider obj val = liftIO $ setObjectPropertyBool obj "gtk-primary-button-warps-slider" val - -constructSettingsGtkPrimaryButtonWarpsSlider :: Bool -> IO ([Char], GValue) -constructSettingsGtkPrimaryButtonWarpsSlider val = constructObjectPropertyBool "gtk-primary-button-warps-slider" val - -data SettingsGtkPrimaryButtonWarpsSliderPropertyInfo -instance AttrInfo SettingsGtkPrimaryButtonWarpsSliderPropertyInfo where - type AttrAllowedOps SettingsGtkPrimaryButtonWarpsSliderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkPrimaryButtonWarpsSliderPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsGtkPrimaryButtonWarpsSliderPropertyInfo = SettingsK - type AttrGetType SettingsGtkPrimaryButtonWarpsSliderPropertyInfo = Bool - type AttrLabel SettingsGtkPrimaryButtonWarpsSliderPropertyInfo = "gtk-primary-button-warps-slider" - attrGet _ = getSettingsGtkPrimaryButtonWarpsSlider - attrSet _ = setSettingsGtkPrimaryButtonWarpsSlider - attrConstruct _ = constructSettingsGtkPrimaryButtonWarpsSlider - --- VVV Prop "gtk-print-backends" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkPrintBackends :: (MonadIO m, SettingsK o) => o -> m T.Text -getSettingsGtkPrintBackends obj = liftIO $ getObjectPropertyString obj "gtk-print-backends" - -setSettingsGtkPrintBackends :: (MonadIO m, SettingsK o) => o -> T.Text -> m () -setSettingsGtkPrintBackends obj val = liftIO $ setObjectPropertyString obj "gtk-print-backends" val - -constructSettingsGtkPrintBackends :: T.Text -> IO ([Char], GValue) -constructSettingsGtkPrintBackends val = constructObjectPropertyString "gtk-print-backends" val - -data SettingsGtkPrintBackendsPropertyInfo -instance AttrInfo SettingsGtkPrintBackendsPropertyInfo where - type AttrAllowedOps SettingsGtkPrintBackendsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkPrintBackendsPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkPrintBackendsPropertyInfo = SettingsK - type AttrGetType SettingsGtkPrintBackendsPropertyInfo = T.Text - type AttrLabel SettingsGtkPrintBackendsPropertyInfo = "gtk-print-backends" - attrGet _ = getSettingsGtkPrintBackends - attrSet _ = setSettingsGtkPrintBackends - attrConstruct _ = constructSettingsGtkPrintBackends - --- VVV Prop "gtk-print-preview-command" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkPrintPreviewCommand :: (MonadIO m, SettingsK o) => o -> m T.Text -getSettingsGtkPrintPreviewCommand obj = liftIO $ getObjectPropertyString obj "gtk-print-preview-command" - -setSettingsGtkPrintPreviewCommand :: (MonadIO m, SettingsK o) => o -> T.Text -> m () -setSettingsGtkPrintPreviewCommand obj val = liftIO $ setObjectPropertyString obj "gtk-print-preview-command" val - -constructSettingsGtkPrintPreviewCommand :: T.Text -> IO ([Char], GValue) -constructSettingsGtkPrintPreviewCommand val = constructObjectPropertyString "gtk-print-preview-command" val - -data SettingsGtkPrintPreviewCommandPropertyInfo -instance AttrInfo SettingsGtkPrintPreviewCommandPropertyInfo where - type AttrAllowedOps SettingsGtkPrintPreviewCommandPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkPrintPreviewCommandPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkPrintPreviewCommandPropertyInfo = SettingsK - type AttrGetType SettingsGtkPrintPreviewCommandPropertyInfo = T.Text - type AttrLabel SettingsGtkPrintPreviewCommandPropertyInfo = "gtk-print-preview-command" - attrGet _ = getSettingsGtkPrintPreviewCommand - attrSet _ = setSettingsGtkPrintPreviewCommand - attrConstruct _ = constructSettingsGtkPrintPreviewCommand - --- VVV Prop "gtk-recent-files-enabled" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkRecentFilesEnabled :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsGtkRecentFilesEnabled obj = liftIO $ getObjectPropertyBool obj "gtk-recent-files-enabled" - -setSettingsGtkRecentFilesEnabled :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsGtkRecentFilesEnabled obj val = liftIO $ setObjectPropertyBool obj "gtk-recent-files-enabled" val - -constructSettingsGtkRecentFilesEnabled :: Bool -> IO ([Char], GValue) -constructSettingsGtkRecentFilesEnabled val = constructObjectPropertyBool "gtk-recent-files-enabled" val - -data SettingsGtkRecentFilesEnabledPropertyInfo -instance AttrInfo SettingsGtkRecentFilesEnabledPropertyInfo where - type AttrAllowedOps SettingsGtkRecentFilesEnabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkRecentFilesEnabledPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsGtkRecentFilesEnabledPropertyInfo = SettingsK - type AttrGetType SettingsGtkRecentFilesEnabledPropertyInfo = Bool - type AttrLabel SettingsGtkRecentFilesEnabledPropertyInfo = "gtk-recent-files-enabled" - attrGet _ = getSettingsGtkRecentFilesEnabled - attrSet _ = setSettingsGtkRecentFilesEnabled - attrConstruct _ = constructSettingsGtkRecentFilesEnabled - --- VVV Prop "gtk-recent-files-limit" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkRecentFilesLimit :: (MonadIO m, SettingsK o) => o -> m Int32 -getSettingsGtkRecentFilesLimit obj = liftIO $ getObjectPropertyCInt obj "gtk-recent-files-limit" - -setSettingsGtkRecentFilesLimit :: (MonadIO m, SettingsK o) => o -> Int32 -> m () -setSettingsGtkRecentFilesLimit obj val = liftIO $ setObjectPropertyCInt obj "gtk-recent-files-limit" val - -constructSettingsGtkRecentFilesLimit :: Int32 -> IO ([Char], GValue) -constructSettingsGtkRecentFilesLimit val = constructObjectPropertyCInt "gtk-recent-files-limit" val - -data SettingsGtkRecentFilesLimitPropertyInfo -instance AttrInfo SettingsGtkRecentFilesLimitPropertyInfo where - type AttrAllowedOps SettingsGtkRecentFilesLimitPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkRecentFilesLimitPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint SettingsGtkRecentFilesLimitPropertyInfo = SettingsK - type AttrGetType SettingsGtkRecentFilesLimitPropertyInfo = Int32 - type AttrLabel SettingsGtkRecentFilesLimitPropertyInfo = "gtk-recent-files-limit" - attrGet _ = getSettingsGtkRecentFilesLimit - attrSet _ = setSettingsGtkRecentFilesLimit - attrConstruct _ = constructSettingsGtkRecentFilesLimit - --- VVV Prop "gtk-recent-files-max-age" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkRecentFilesMaxAge :: (MonadIO m, SettingsK o) => o -> m Int32 -getSettingsGtkRecentFilesMaxAge obj = liftIO $ getObjectPropertyCInt obj "gtk-recent-files-max-age" - -setSettingsGtkRecentFilesMaxAge :: (MonadIO m, SettingsK o) => o -> Int32 -> m () -setSettingsGtkRecentFilesMaxAge obj val = liftIO $ setObjectPropertyCInt obj "gtk-recent-files-max-age" val - -constructSettingsGtkRecentFilesMaxAge :: Int32 -> IO ([Char], GValue) -constructSettingsGtkRecentFilesMaxAge val = constructObjectPropertyCInt "gtk-recent-files-max-age" val - -data SettingsGtkRecentFilesMaxAgePropertyInfo -instance AttrInfo SettingsGtkRecentFilesMaxAgePropertyInfo where - type AttrAllowedOps SettingsGtkRecentFilesMaxAgePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkRecentFilesMaxAgePropertyInfo = (~) Int32 - type AttrBaseTypeConstraint SettingsGtkRecentFilesMaxAgePropertyInfo = SettingsK - type AttrGetType SettingsGtkRecentFilesMaxAgePropertyInfo = Int32 - type AttrLabel SettingsGtkRecentFilesMaxAgePropertyInfo = "gtk-recent-files-max-age" - attrGet _ = getSettingsGtkRecentFilesMaxAge - attrSet _ = setSettingsGtkRecentFilesMaxAge - attrConstruct _ = constructSettingsGtkRecentFilesMaxAge - --- VVV Prop "gtk-scrolled-window-placement" - -- Type: TInterface "Gtk" "CornerType" - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkScrolledWindowPlacement :: (MonadIO m, SettingsK o) => o -> m CornerType -getSettingsGtkScrolledWindowPlacement obj = liftIO $ getObjectPropertyEnum obj "gtk-scrolled-window-placement" - -setSettingsGtkScrolledWindowPlacement :: (MonadIO m, SettingsK o) => o -> CornerType -> m () -setSettingsGtkScrolledWindowPlacement obj val = liftIO $ setObjectPropertyEnum obj "gtk-scrolled-window-placement" val - -constructSettingsGtkScrolledWindowPlacement :: CornerType -> IO ([Char], GValue) -constructSettingsGtkScrolledWindowPlacement val = constructObjectPropertyEnum "gtk-scrolled-window-placement" val - -data SettingsGtkScrolledWindowPlacementPropertyInfo -instance AttrInfo SettingsGtkScrolledWindowPlacementPropertyInfo where - type AttrAllowedOps SettingsGtkScrolledWindowPlacementPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkScrolledWindowPlacementPropertyInfo = (~) CornerType - type AttrBaseTypeConstraint SettingsGtkScrolledWindowPlacementPropertyInfo = SettingsK - type AttrGetType SettingsGtkScrolledWindowPlacementPropertyInfo = CornerType - type AttrLabel SettingsGtkScrolledWindowPlacementPropertyInfo = "gtk-scrolled-window-placement" - attrGet _ = getSettingsGtkScrolledWindowPlacement - attrSet _ = setSettingsGtkScrolledWindowPlacement - attrConstruct _ = constructSettingsGtkScrolledWindowPlacement - --- VVV Prop "gtk-shell-shows-app-menu" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkShellShowsAppMenu :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsGtkShellShowsAppMenu obj = liftIO $ getObjectPropertyBool obj "gtk-shell-shows-app-menu" - -setSettingsGtkShellShowsAppMenu :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsGtkShellShowsAppMenu obj val = liftIO $ setObjectPropertyBool obj "gtk-shell-shows-app-menu" val - -constructSettingsGtkShellShowsAppMenu :: Bool -> IO ([Char], GValue) -constructSettingsGtkShellShowsAppMenu val = constructObjectPropertyBool "gtk-shell-shows-app-menu" val - -data SettingsGtkShellShowsAppMenuPropertyInfo -instance AttrInfo SettingsGtkShellShowsAppMenuPropertyInfo where - type AttrAllowedOps SettingsGtkShellShowsAppMenuPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkShellShowsAppMenuPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsGtkShellShowsAppMenuPropertyInfo = SettingsK - type AttrGetType SettingsGtkShellShowsAppMenuPropertyInfo = Bool - type AttrLabel SettingsGtkShellShowsAppMenuPropertyInfo = "gtk-shell-shows-app-menu" - attrGet _ = getSettingsGtkShellShowsAppMenu - attrSet _ = setSettingsGtkShellShowsAppMenu - attrConstruct _ = constructSettingsGtkShellShowsAppMenu - --- VVV Prop "gtk-shell-shows-desktop" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkShellShowsDesktop :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsGtkShellShowsDesktop obj = liftIO $ getObjectPropertyBool obj "gtk-shell-shows-desktop" - -setSettingsGtkShellShowsDesktop :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsGtkShellShowsDesktop obj val = liftIO $ setObjectPropertyBool obj "gtk-shell-shows-desktop" val - -constructSettingsGtkShellShowsDesktop :: Bool -> IO ([Char], GValue) -constructSettingsGtkShellShowsDesktop val = constructObjectPropertyBool "gtk-shell-shows-desktop" val - -data SettingsGtkShellShowsDesktopPropertyInfo -instance AttrInfo SettingsGtkShellShowsDesktopPropertyInfo where - type AttrAllowedOps SettingsGtkShellShowsDesktopPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkShellShowsDesktopPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsGtkShellShowsDesktopPropertyInfo = SettingsK - type AttrGetType SettingsGtkShellShowsDesktopPropertyInfo = Bool - type AttrLabel SettingsGtkShellShowsDesktopPropertyInfo = "gtk-shell-shows-desktop" - attrGet _ = getSettingsGtkShellShowsDesktop - attrSet _ = setSettingsGtkShellShowsDesktop - attrConstruct _ = constructSettingsGtkShellShowsDesktop - --- VVV Prop "gtk-shell-shows-menubar" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkShellShowsMenubar :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsGtkShellShowsMenubar obj = liftIO $ getObjectPropertyBool obj "gtk-shell-shows-menubar" - -setSettingsGtkShellShowsMenubar :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsGtkShellShowsMenubar obj val = liftIO $ setObjectPropertyBool obj "gtk-shell-shows-menubar" val - -constructSettingsGtkShellShowsMenubar :: Bool -> IO ([Char], GValue) -constructSettingsGtkShellShowsMenubar val = constructObjectPropertyBool "gtk-shell-shows-menubar" val - -data SettingsGtkShellShowsMenubarPropertyInfo -instance AttrInfo SettingsGtkShellShowsMenubarPropertyInfo where - type AttrAllowedOps SettingsGtkShellShowsMenubarPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkShellShowsMenubarPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsGtkShellShowsMenubarPropertyInfo = SettingsK - type AttrGetType SettingsGtkShellShowsMenubarPropertyInfo = Bool - type AttrLabel SettingsGtkShellShowsMenubarPropertyInfo = "gtk-shell-shows-menubar" - attrGet _ = getSettingsGtkShellShowsMenubar - attrSet _ = setSettingsGtkShellShowsMenubar - attrConstruct _ = constructSettingsGtkShellShowsMenubar - --- VVV Prop "gtk-show-input-method-menu" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkShowInputMethodMenu :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsGtkShowInputMethodMenu obj = liftIO $ getObjectPropertyBool obj "gtk-show-input-method-menu" - -setSettingsGtkShowInputMethodMenu :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsGtkShowInputMethodMenu obj val = liftIO $ setObjectPropertyBool obj "gtk-show-input-method-menu" val - -constructSettingsGtkShowInputMethodMenu :: Bool -> IO ([Char], GValue) -constructSettingsGtkShowInputMethodMenu val = constructObjectPropertyBool "gtk-show-input-method-menu" val - -data SettingsGtkShowInputMethodMenuPropertyInfo -instance AttrInfo SettingsGtkShowInputMethodMenuPropertyInfo where - type AttrAllowedOps SettingsGtkShowInputMethodMenuPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkShowInputMethodMenuPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsGtkShowInputMethodMenuPropertyInfo = SettingsK - type AttrGetType SettingsGtkShowInputMethodMenuPropertyInfo = Bool - type AttrLabel SettingsGtkShowInputMethodMenuPropertyInfo = "gtk-show-input-method-menu" - attrGet _ = getSettingsGtkShowInputMethodMenu - attrSet _ = setSettingsGtkShowInputMethodMenu - attrConstruct _ = constructSettingsGtkShowInputMethodMenu - --- VVV Prop "gtk-show-unicode-menu" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkShowUnicodeMenu :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsGtkShowUnicodeMenu obj = liftIO $ getObjectPropertyBool obj "gtk-show-unicode-menu" - -setSettingsGtkShowUnicodeMenu :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsGtkShowUnicodeMenu obj val = liftIO $ setObjectPropertyBool obj "gtk-show-unicode-menu" val - -constructSettingsGtkShowUnicodeMenu :: Bool -> IO ([Char], GValue) -constructSettingsGtkShowUnicodeMenu val = constructObjectPropertyBool "gtk-show-unicode-menu" val - -data SettingsGtkShowUnicodeMenuPropertyInfo -instance AttrInfo SettingsGtkShowUnicodeMenuPropertyInfo where - type AttrAllowedOps SettingsGtkShowUnicodeMenuPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkShowUnicodeMenuPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsGtkShowUnicodeMenuPropertyInfo = SettingsK - type AttrGetType SettingsGtkShowUnicodeMenuPropertyInfo = Bool - type AttrLabel SettingsGtkShowUnicodeMenuPropertyInfo = "gtk-show-unicode-menu" - attrGet _ = getSettingsGtkShowUnicodeMenu - attrSet _ = setSettingsGtkShowUnicodeMenu - attrConstruct _ = constructSettingsGtkShowUnicodeMenu - --- VVV Prop "gtk-sound-theme-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkSoundThemeName :: (MonadIO m, SettingsK o) => o -> m T.Text -getSettingsGtkSoundThemeName obj = liftIO $ getObjectPropertyString obj "gtk-sound-theme-name" - -setSettingsGtkSoundThemeName :: (MonadIO m, SettingsK o) => o -> T.Text -> m () -setSettingsGtkSoundThemeName obj val = liftIO $ setObjectPropertyString obj "gtk-sound-theme-name" val - -constructSettingsGtkSoundThemeName :: T.Text -> IO ([Char], GValue) -constructSettingsGtkSoundThemeName val = constructObjectPropertyString "gtk-sound-theme-name" val - -data SettingsGtkSoundThemeNamePropertyInfo -instance AttrInfo SettingsGtkSoundThemeNamePropertyInfo where - type AttrAllowedOps SettingsGtkSoundThemeNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkSoundThemeNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkSoundThemeNamePropertyInfo = SettingsK - type AttrGetType SettingsGtkSoundThemeNamePropertyInfo = T.Text - type AttrLabel SettingsGtkSoundThemeNamePropertyInfo = "gtk-sound-theme-name" - attrGet _ = getSettingsGtkSoundThemeName - attrSet _ = setSettingsGtkSoundThemeName - attrConstruct _ = constructSettingsGtkSoundThemeName - --- VVV Prop "gtk-split-cursor" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkSplitCursor :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsGtkSplitCursor obj = liftIO $ getObjectPropertyBool obj "gtk-split-cursor" - -setSettingsGtkSplitCursor :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsGtkSplitCursor obj val = liftIO $ setObjectPropertyBool obj "gtk-split-cursor" val - -constructSettingsGtkSplitCursor :: Bool -> IO ([Char], GValue) -constructSettingsGtkSplitCursor val = constructObjectPropertyBool "gtk-split-cursor" val - -data SettingsGtkSplitCursorPropertyInfo -instance AttrInfo SettingsGtkSplitCursorPropertyInfo where - type AttrAllowedOps SettingsGtkSplitCursorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkSplitCursorPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsGtkSplitCursorPropertyInfo = SettingsK - type AttrGetType SettingsGtkSplitCursorPropertyInfo = Bool - type AttrLabel SettingsGtkSplitCursorPropertyInfo = "gtk-split-cursor" - attrGet _ = getSettingsGtkSplitCursor - attrSet _ = setSettingsGtkSplitCursor - attrConstruct _ = constructSettingsGtkSplitCursor - --- VVV Prop "gtk-theme-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkThemeName :: (MonadIO m, SettingsK o) => o -> m T.Text -getSettingsGtkThemeName obj = liftIO $ getObjectPropertyString obj "gtk-theme-name" - -setSettingsGtkThemeName :: (MonadIO m, SettingsK o) => o -> T.Text -> m () -setSettingsGtkThemeName obj val = liftIO $ setObjectPropertyString obj "gtk-theme-name" val - -constructSettingsGtkThemeName :: T.Text -> IO ([Char], GValue) -constructSettingsGtkThemeName val = constructObjectPropertyString "gtk-theme-name" val - -data SettingsGtkThemeNamePropertyInfo -instance AttrInfo SettingsGtkThemeNamePropertyInfo where - type AttrAllowedOps SettingsGtkThemeNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkThemeNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkThemeNamePropertyInfo = SettingsK - type AttrGetType SettingsGtkThemeNamePropertyInfo = T.Text - type AttrLabel SettingsGtkThemeNamePropertyInfo = "gtk-theme-name" - attrGet _ = getSettingsGtkThemeName - attrSet _ = setSettingsGtkThemeName - attrConstruct _ = constructSettingsGtkThemeName - --- VVV Prop "gtk-timeout-expand" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkTimeoutExpand :: (MonadIO m, SettingsK o) => o -> m Int32 -getSettingsGtkTimeoutExpand obj = liftIO $ getObjectPropertyCInt obj "gtk-timeout-expand" - -setSettingsGtkTimeoutExpand :: (MonadIO m, SettingsK o) => o -> Int32 -> m () -setSettingsGtkTimeoutExpand obj val = liftIO $ setObjectPropertyCInt obj "gtk-timeout-expand" val - -constructSettingsGtkTimeoutExpand :: Int32 -> IO ([Char], GValue) -constructSettingsGtkTimeoutExpand val = constructObjectPropertyCInt "gtk-timeout-expand" val - -data SettingsGtkTimeoutExpandPropertyInfo -instance AttrInfo SettingsGtkTimeoutExpandPropertyInfo where - type AttrAllowedOps SettingsGtkTimeoutExpandPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkTimeoutExpandPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint SettingsGtkTimeoutExpandPropertyInfo = SettingsK - type AttrGetType SettingsGtkTimeoutExpandPropertyInfo = Int32 - type AttrLabel SettingsGtkTimeoutExpandPropertyInfo = "gtk-timeout-expand" - attrGet _ = getSettingsGtkTimeoutExpand - attrSet _ = setSettingsGtkTimeoutExpand - attrConstruct _ = constructSettingsGtkTimeoutExpand - --- VVV Prop "gtk-timeout-initial" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkTimeoutInitial :: (MonadIO m, SettingsK o) => o -> m Int32 -getSettingsGtkTimeoutInitial obj = liftIO $ getObjectPropertyCInt obj "gtk-timeout-initial" - -setSettingsGtkTimeoutInitial :: (MonadIO m, SettingsK o) => o -> Int32 -> m () -setSettingsGtkTimeoutInitial obj val = liftIO $ setObjectPropertyCInt obj "gtk-timeout-initial" val - -constructSettingsGtkTimeoutInitial :: Int32 -> IO ([Char], GValue) -constructSettingsGtkTimeoutInitial val = constructObjectPropertyCInt "gtk-timeout-initial" val - -data SettingsGtkTimeoutInitialPropertyInfo -instance AttrInfo SettingsGtkTimeoutInitialPropertyInfo where - type AttrAllowedOps SettingsGtkTimeoutInitialPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkTimeoutInitialPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint SettingsGtkTimeoutInitialPropertyInfo = SettingsK - type AttrGetType SettingsGtkTimeoutInitialPropertyInfo = Int32 - type AttrLabel SettingsGtkTimeoutInitialPropertyInfo = "gtk-timeout-initial" - attrGet _ = getSettingsGtkTimeoutInitial - attrSet _ = setSettingsGtkTimeoutInitial - attrConstruct _ = constructSettingsGtkTimeoutInitial - --- VVV Prop "gtk-timeout-repeat" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkTimeoutRepeat :: (MonadIO m, SettingsK o) => o -> m Int32 -getSettingsGtkTimeoutRepeat obj = liftIO $ getObjectPropertyCInt obj "gtk-timeout-repeat" - -setSettingsGtkTimeoutRepeat :: (MonadIO m, SettingsK o) => o -> Int32 -> m () -setSettingsGtkTimeoutRepeat obj val = liftIO $ setObjectPropertyCInt obj "gtk-timeout-repeat" val - -constructSettingsGtkTimeoutRepeat :: Int32 -> IO ([Char], GValue) -constructSettingsGtkTimeoutRepeat val = constructObjectPropertyCInt "gtk-timeout-repeat" val - -data SettingsGtkTimeoutRepeatPropertyInfo -instance AttrInfo SettingsGtkTimeoutRepeatPropertyInfo where - type AttrAllowedOps SettingsGtkTimeoutRepeatPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkTimeoutRepeatPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint SettingsGtkTimeoutRepeatPropertyInfo = SettingsK - type AttrGetType SettingsGtkTimeoutRepeatPropertyInfo = Int32 - type AttrLabel SettingsGtkTimeoutRepeatPropertyInfo = "gtk-timeout-repeat" - attrGet _ = getSettingsGtkTimeoutRepeat - attrSet _ = setSettingsGtkTimeoutRepeat - attrConstruct _ = constructSettingsGtkTimeoutRepeat - --- VVV Prop "gtk-titlebar-double-click" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkTitlebarDoubleClick :: (MonadIO m, SettingsK o) => o -> m T.Text -getSettingsGtkTitlebarDoubleClick obj = liftIO $ getObjectPropertyString obj "gtk-titlebar-double-click" - -setSettingsGtkTitlebarDoubleClick :: (MonadIO m, SettingsK o) => o -> T.Text -> m () -setSettingsGtkTitlebarDoubleClick obj val = liftIO $ setObjectPropertyString obj "gtk-titlebar-double-click" val - -constructSettingsGtkTitlebarDoubleClick :: T.Text -> IO ([Char], GValue) -constructSettingsGtkTitlebarDoubleClick val = constructObjectPropertyString "gtk-titlebar-double-click" val - -data SettingsGtkTitlebarDoubleClickPropertyInfo -instance AttrInfo SettingsGtkTitlebarDoubleClickPropertyInfo where - type AttrAllowedOps SettingsGtkTitlebarDoubleClickPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkTitlebarDoubleClickPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkTitlebarDoubleClickPropertyInfo = SettingsK - type AttrGetType SettingsGtkTitlebarDoubleClickPropertyInfo = T.Text - type AttrLabel SettingsGtkTitlebarDoubleClickPropertyInfo = "gtk-titlebar-double-click" - attrGet _ = getSettingsGtkTitlebarDoubleClick - attrSet _ = setSettingsGtkTitlebarDoubleClick - attrConstruct _ = constructSettingsGtkTitlebarDoubleClick - --- VVV Prop "gtk-titlebar-middle-click" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkTitlebarMiddleClick :: (MonadIO m, SettingsK o) => o -> m T.Text -getSettingsGtkTitlebarMiddleClick obj = liftIO $ getObjectPropertyString obj "gtk-titlebar-middle-click" - -setSettingsGtkTitlebarMiddleClick :: (MonadIO m, SettingsK o) => o -> T.Text -> m () -setSettingsGtkTitlebarMiddleClick obj val = liftIO $ setObjectPropertyString obj "gtk-titlebar-middle-click" val - -constructSettingsGtkTitlebarMiddleClick :: T.Text -> IO ([Char], GValue) -constructSettingsGtkTitlebarMiddleClick val = constructObjectPropertyString "gtk-titlebar-middle-click" val - -data SettingsGtkTitlebarMiddleClickPropertyInfo -instance AttrInfo SettingsGtkTitlebarMiddleClickPropertyInfo where - type AttrAllowedOps SettingsGtkTitlebarMiddleClickPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkTitlebarMiddleClickPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkTitlebarMiddleClickPropertyInfo = SettingsK - type AttrGetType SettingsGtkTitlebarMiddleClickPropertyInfo = T.Text - type AttrLabel SettingsGtkTitlebarMiddleClickPropertyInfo = "gtk-titlebar-middle-click" - attrGet _ = getSettingsGtkTitlebarMiddleClick - attrSet _ = setSettingsGtkTitlebarMiddleClick - attrConstruct _ = constructSettingsGtkTitlebarMiddleClick - --- VVV Prop "gtk-titlebar-right-click" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkTitlebarRightClick :: (MonadIO m, SettingsK o) => o -> m T.Text -getSettingsGtkTitlebarRightClick obj = liftIO $ getObjectPropertyString obj "gtk-titlebar-right-click" - -setSettingsGtkTitlebarRightClick :: (MonadIO m, SettingsK o) => o -> T.Text -> m () -setSettingsGtkTitlebarRightClick obj val = liftIO $ setObjectPropertyString obj "gtk-titlebar-right-click" val - -constructSettingsGtkTitlebarRightClick :: T.Text -> IO ([Char], GValue) -constructSettingsGtkTitlebarRightClick val = constructObjectPropertyString "gtk-titlebar-right-click" val - -data SettingsGtkTitlebarRightClickPropertyInfo -instance AttrInfo SettingsGtkTitlebarRightClickPropertyInfo where - type AttrAllowedOps SettingsGtkTitlebarRightClickPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkTitlebarRightClickPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkTitlebarRightClickPropertyInfo = SettingsK - type AttrGetType SettingsGtkTitlebarRightClickPropertyInfo = T.Text - type AttrLabel SettingsGtkTitlebarRightClickPropertyInfo = "gtk-titlebar-right-click" - attrGet _ = getSettingsGtkTitlebarRightClick - attrSet _ = setSettingsGtkTitlebarRightClick - attrConstruct _ = constructSettingsGtkTitlebarRightClick - --- VVV Prop "gtk-toolbar-icon-size" - -- Type: TInterface "Gtk" "IconSize" - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkToolbarIconSize :: (MonadIO m, SettingsK o) => o -> m IconSize -getSettingsGtkToolbarIconSize obj = liftIO $ getObjectPropertyEnum obj "gtk-toolbar-icon-size" - -setSettingsGtkToolbarIconSize :: (MonadIO m, SettingsK o) => o -> IconSize -> m () -setSettingsGtkToolbarIconSize obj val = liftIO $ setObjectPropertyEnum obj "gtk-toolbar-icon-size" val - -constructSettingsGtkToolbarIconSize :: IconSize -> IO ([Char], GValue) -constructSettingsGtkToolbarIconSize val = constructObjectPropertyEnum "gtk-toolbar-icon-size" val - -data SettingsGtkToolbarIconSizePropertyInfo -instance AttrInfo SettingsGtkToolbarIconSizePropertyInfo where - type AttrAllowedOps SettingsGtkToolbarIconSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkToolbarIconSizePropertyInfo = (~) IconSize - type AttrBaseTypeConstraint SettingsGtkToolbarIconSizePropertyInfo = SettingsK - type AttrGetType SettingsGtkToolbarIconSizePropertyInfo = IconSize - type AttrLabel SettingsGtkToolbarIconSizePropertyInfo = "gtk-toolbar-icon-size" - attrGet _ = getSettingsGtkToolbarIconSize - attrSet _ = setSettingsGtkToolbarIconSize - attrConstruct _ = constructSettingsGtkToolbarIconSize - --- VVV Prop "gtk-toolbar-style" - -- Type: TInterface "Gtk" "ToolbarStyle" - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkToolbarStyle :: (MonadIO m, SettingsK o) => o -> m ToolbarStyle -getSettingsGtkToolbarStyle obj = liftIO $ getObjectPropertyEnum obj "gtk-toolbar-style" - -setSettingsGtkToolbarStyle :: (MonadIO m, SettingsK o) => o -> ToolbarStyle -> m () -setSettingsGtkToolbarStyle obj val = liftIO $ setObjectPropertyEnum obj "gtk-toolbar-style" val - -constructSettingsGtkToolbarStyle :: ToolbarStyle -> IO ([Char], GValue) -constructSettingsGtkToolbarStyle val = constructObjectPropertyEnum "gtk-toolbar-style" val - -data SettingsGtkToolbarStylePropertyInfo -instance AttrInfo SettingsGtkToolbarStylePropertyInfo where - type AttrAllowedOps SettingsGtkToolbarStylePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkToolbarStylePropertyInfo = (~) ToolbarStyle - type AttrBaseTypeConstraint SettingsGtkToolbarStylePropertyInfo = SettingsK - type AttrGetType SettingsGtkToolbarStylePropertyInfo = ToolbarStyle - type AttrLabel SettingsGtkToolbarStylePropertyInfo = "gtk-toolbar-style" - attrGet _ = getSettingsGtkToolbarStyle - attrSet _ = setSettingsGtkToolbarStyle - attrConstruct _ = constructSettingsGtkToolbarStyle - --- VVV Prop "gtk-tooltip-browse-mode-timeout" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkTooltipBrowseModeTimeout :: (MonadIO m, SettingsK o) => o -> m Int32 -getSettingsGtkTooltipBrowseModeTimeout obj = liftIO $ getObjectPropertyCInt obj "gtk-tooltip-browse-mode-timeout" - -setSettingsGtkTooltipBrowseModeTimeout :: (MonadIO m, SettingsK o) => o -> Int32 -> m () -setSettingsGtkTooltipBrowseModeTimeout obj val = liftIO $ setObjectPropertyCInt obj "gtk-tooltip-browse-mode-timeout" val - -constructSettingsGtkTooltipBrowseModeTimeout :: Int32 -> IO ([Char], GValue) -constructSettingsGtkTooltipBrowseModeTimeout val = constructObjectPropertyCInt "gtk-tooltip-browse-mode-timeout" val - -data SettingsGtkTooltipBrowseModeTimeoutPropertyInfo -instance AttrInfo SettingsGtkTooltipBrowseModeTimeoutPropertyInfo where - type AttrAllowedOps SettingsGtkTooltipBrowseModeTimeoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkTooltipBrowseModeTimeoutPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint SettingsGtkTooltipBrowseModeTimeoutPropertyInfo = SettingsK - type AttrGetType SettingsGtkTooltipBrowseModeTimeoutPropertyInfo = Int32 - type AttrLabel SettingsGtkTooltipBrowseModeTimeoutPropertyInfo = "gtk-tooltip-browse-mode-timeout" - attrGet _ = getSettingsGtkTooltipBrowseModeTimeout - attrSet _ = setSettingsGtkTooltipBrowseModeTimeout - attrConstruct _ = constructSettingsGtkTooltipBrowseModeTimeout - --- VVV Prop "gtk-tooltip-browse-timeout" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkTooltipBrowseTimeout :: (MonadIO m, SettingsK o) => o -> m Int32 -getSettingsGtkTooltipBrowseTimeout obj = liftIO $ getObjectPropertyCInt obj "gtk-tooltip-browse-timeout" - -setSettingsGtkTooltipBrowseTimeout :: (MonadIO m, SettingsK o) => o -> Int32 -> m () -setSettingsGtkTooltipBrowseTimeout obj val = liftIO $ setObjectPropertyCInt obj "gtk-tooltip-browse-timeout" val - -constructSettingsGtkTooltipBrowseTimeout :: Int32 -> IO ([Char], GValue) -constructSettingsGtkTooltipBrowseTimeout val = constructObjectPropertyCInt "gtk-tooltip-browse-timeout" val - -data SettingsGtkTooltipBrowseTimeoutPropertyInfo -instance AttrInfo SettingsGtkTooltipBrowseTimeoutPropertyInfo where - type AttrAllowedOps SettingsGtkTooltipBrowseTimeoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkTooltipBrowseTimeoutPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint SettingsGtkTooltipBrowseTimeoutPropertyInfo = SettingsK - type AttrGetType SettingsGtkTooltipBrowseTimeoutPropertyInfo = Int32 - type AttrLabel SettingsGtkTooltipBrowseTimeoutPropertyInfo = "gtk-tooltip-browse-timeout" - attrGet _ = getSettingsGtkTooltipBrowseTimeout - attrSet _ = setSettingsGtkTooltipBrowseTimeout - attrConstruct _ = constructSettingsGtkTooltipBrowseTimeout - --- VVV Prop "gtk-tooltip-timeout" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkTooltipTimeout :: (MonadIO m, SettingsK o) => o -> m Int32 -getSettingsGtkTooltipTimeout obj = liftIO $ getObjectPropertyCInt obj "gtk-tooltip-timeout" - -setSettingsGtkTooltipTimeout :: (MonadIO m, SettingsK o) => o -> Int32 -> m () -setSettingsGtkTooltipTimeout obj val = liftIO $ setObjectPropertyCInt obj "gtk-tooltip-timeout" val - -constructSettingsGtkTooltipTimeout :: Int32 -> IO ([Char], GValue) -constructSettingsGtkTooltipTimeout val = constructObjectPropertyCInt "gtk-tooltip-timeout" val - -data SettingsGtkTooltipTimeoutPropertyInfo -instance AttrInfo SettingsGtkTooltipTimeoutPropertyInfo where - type AttrAllowedOps SettingsGtkTooltipTimeoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkTooltipTimeoutPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint SettingsGtkTooltipTimeoutPropertyInfo = SettingsK - type AttrGetType SettingsGtkTooltipTimeoutPropertyInfo = Int32 - type AttrLabel SettingsGtkTooltipTimeoutPropertyInfo = "gtk-tooltip-timeout" - attrGet _ = getSettingsGtkTooltipTimeout - attrSet _ = setSettingsGtkTooltipTimeout - attrConstruct _ = constructSettingsGtkTooltipTimeout - --- VVV Prop "gtk-touchscreen-mode" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkTouchscreenMode :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsGtkTouchscreenMode obj = liftIO $ getObjectPropertyBool obj "gtk-touchscreen-mode" - -setSettingsGtkTouchscreenMode :: (MonadIO m, SettingsK o) => o -> Bool -> m () -setSettingsGtkTouchscreenMode obj val = liftIO $ setObjectPropertyBool obj "gtk-touchscreen-mode" val - -constructSettingsGtkTouchscreenMode :: Bool -> IO ([Char], GValue) -constructSettingsGtkTouchscreenMode val = constructObjectPropertyBool "gtk-touchscreen-mode" val - -data SettingsGtkTouchscreenModePropertyInfo -instance AttrInfo SettingsGtkTouchscreenModePropertyInfo where - type AttrAllowedOps SettingsGtkTouchscreenModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkTouchscreenModePropertyInfo = (~) Bool - type AttrBaseTypeConstraint SettingsGtkTouchscreenModePropertyInfo = SettingsK - type AttrGetType SettingsGtkTouchscreenModePropertyInfo = Bool - type AttrLabel SettingsGtkTouchscreenModePropertyInfo = "gtk-touchscreen-mode" - attrGet _ = getSettingsGtkTouchscreenMode - attrSet _ = setSettingsGtkTouchscreenMode - attrConstruct _ = constructSettingsGtkTouchscreenMode - --- VVV Prop "gtk-visible-focus" - -- Type: TInterface "Gtk" "PolicyType" - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkVisibleFocus :: (MonadIO m, SettingsK o) => o -> m PolicyType -getSettingsGtkVisibleFocus obj = liftIO $ getObjectPropertyEnum obj "gtk-visible-focus" - -setSettingsGtkVisibleFocus :: (MonadIO m, SettingsK o) => o -> PolicyType -> m () -setSettingsGtkVisibleFocus obj val = liftIO $ setObjectPropertyEnum obj "gtk-visible-focus" val - -constructSettingsGtkVisibleFocus :: PolicyType -> IO ([Char], GValue) -constructSettingsGtkVisibleFocus val = constructObjectPropertyEnum "gtk-visible-focus" val - -data SettingsGtkVisibleFocusPropertyInfo -instance AttrInfo SettingsGtkVisibleFocusPropertyInfo where - type AttrAllowedOps SettingsGtkVisibleFocusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkVisibleFocusPropertyInfo = (~) PolicyType - type AttrBaseTypeConstraint SettingsGtkVisibleFocusPropertyInfo = SettingsK - type AttrGetType SettingsGtkVisibleFocusPropertyInfo = PolicyType - type AttrLabel SettingsGtkVisibleFocusPropertyInfo = "gtk-visible-focus" - attrGet _ = getSettingsGtkVisibleFocus - attrSet _ = setSettingsGtkVisibleFocus - attrConstruct _ = constructSettingsGtkVisibleFocus - --- VVV Prop "gtk-xft-antialias" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkXftAntialias :: (MonadIO m, SettingsK o) => o -> m Int32 -getSettingsGtkXftAntialias obj = liftIO $ getObjectPropertyCInt obj "gtk-xft-antialias" - -setSettingsGtkXftAntialias :: (MonadIO m, SettingsK o) => o -> Int32 -> m () -setSettingsGtkXftAntialias obj val = liftIO $ setObjectPropertyCInt obj "gtk-xft-antialias" val - -constructSettingsGtkXftAntialias :: Int32 -> IO ([Char], GValue) -constructSettingsGtkXftAntialias val = constructObjectPropertyCInt "gtk-xft-antialias" val - -data SettingsGtkXftAntialiasPropertyInfo -instance AttrInfo SettingsGtkXftAntialiasPropertyInfo where - type AttrAllowedOps SettingsGtkXftAntialiasPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkXftAntialiasPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint SettingsGtkXftAntialiasPropertyInfo = SettingsK - type AttrGetType SettingsGtkXftAntialiasPropertyInfo = Int32 - type AttrLabel SettingsGtkXftAntialiasPropertyInfo = "gtk-xft-antialias" - attrGet _ = getSettingsGtkXftAntialias - attrSet _ = setSettingsGtkXftAntialias - attrConstruct _ = constructSettingsGtkXftAntialias - --- VVV Prop "gtk-xft-dpi" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkXftDpi :: (MonadIO m, SettingsK o) => o -> m Int32 -getSettingsGtkXftDpi obj = liftIO $ getObjectPropertyCInt obj "gtk-xft-dpi" - -setSettingsGtkXftDpi :: (MonadIO m, SettingsK o) => o -> Int32 -> m () -setSettingsGtkXftDpi obj val = liftIO $ setObjectPropertyCInt obj "gtk-xft-dpi" val - -constructSettingsGtkXftDpi :: Int32 -> IO ([Char], GValue) -constructSettingsGtkXftDpi val = constructObjectPropertyCInt "gtk-xft-dpi" val - -data SettingsGtkXftDpiPropertyInfo -instance AttrInfo SettingsGtkXftDpiPropertyInfo where - type AttrAllowedOps SettingsGtkXftDpiPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkXftDpiPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint SettingsGtkXftDpiPropertyInfo = SettingsK - type AttrGetType SettingsGtkXftDpiPropertyInfo = Int32 - type AttrLabel SettingsGtkXftDpiPropertyInfo = "gtk-xft-dpi" - attrGet _ = getSettingsGtkXftDpi - attrSet _ = setSettingsGtkXftDpi - attrConstruct _ = constructSettingsGtkXftDpi - --- VVV Prop "gtk-xft-hinting" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkXftHinting :: (MonadIO m, SettingsK o) => o -> m Int32 -getSettingsGtkXftHinting obj = liftIO $ getObjectPropertyCInt obj "gtk-xft-hinting" - -setSettingsGtkXftHinting :: (MonadIO m, SettingsK o) => o -> Int32 -> m () -setSettingsGtkXftHinting obj val = liftIO $ setObjectPropertyCInt obj "gtk-xft-hinting" val - -constructSettingsGtkXftHinting :: Int32 -> IO ([Char], GValue) -constructSettingsGtkXftHinting val = constructObjectPropertyCInt "gtk-xft-hinting" val - -data SettingsGtkXftHintingPropertyInfo -instance AttrInfo SettingsGtkXftHintingPropertyInfo where - type AttrAllowedOps SettingsGtkXftHintingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkXftHintingPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint SettingsGtkXftHintingPropertyInfo = SettingsK - type AttrGetType SettingsGtkXftHintingPropertyInfo = Int32 - type AttrLabel SettingsGtkXftHintingPropertyInfo = "gtk-xft-hinting" - attrGet _ = getSettingsGtkXftHinting - attrSet _ = setSettingsGtkXftHinting - attrConstruct _ = constructSettingsGtkXftHinting - --- VVV Prop "gtk-xft-hintstyle" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkXftHintstyle :: (MonadIO m, SettingsK o) => o -> m T.Text -getSettingsGtkXftHintstyle obj = liftIO $ getObjectPropertyString obj "gtk-xft-hintstyle" - -setSettingsGtkXftHintstyle :: (MonadIO m, SettingsK o) => o -> T.Text -> m () -setSettingsGtkXftHintstyle obj val = liftIO $ setObjectPropertyString obj "gtk-xft-hintstyle" val - -constructSettingsGtkXftHintstyle :: T.Text -> IO ([Char], GValue) -constructSettingsGtkXftHintstyle val = constructObjectPropertyString "gtk-xft-hintstyle" val - -data SettingsGtkXftHintstylePropertyInfo -instance AttrInfo SettingsGtkXftHintstylePropertyInfo where - type AttrAllowedOps SettingsGtkXftHintstylePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkXftHintstylePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkXftHintstylePropertyInfo = SettingsK - type AttrGetType SettingsGtkXftHintstylePropertyInfo = T.Text - type AttrLabel SettingsGtkXftHintstylePropertyInfo = "gtk-xft-hintstyle" - attrGet _ = getSettingsGtkXftHintstyle - attrSet _ = setSettingsGtkXftHintstyle - attrConstruct _ = constructSettingsGtkXftHintstyle - --- VVV Prop "gtk-xft-rgba" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkXftRgba :: (MonadIO m, SettingsK o) => o -> m T.Text -getSettingsGtkXftRgba obj = liftIO $ getObjectPropertyString obj "gtk-xft-rgba" - -setSettingsGtkXftRgba :: (MonadIO m, SettingsK o) => o -> T.Text -> m () -setSettingsGtkXftRgba obj val = liftIO $ setObjectPropertyString obj "gtk-xft-rgba" val - -constructSettingsGtkXftRgba :: T.Text -> IO ([Char], GValue) -constructSettingsGtkXftRgba val = constructObjectPropertyString "gtk-xft-rgba" val - -data SettingsGtkXftRgbaPropertyInfo -instance AttrInfo SettingsGtkXftRgbaPropertyInfo where - type AttrAllowedOps SettingsGtkXftRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkXftRgbaPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkXftRgbaPropertyInfo = SettingsK - type AttrGetType SettingsGtkXftRgbaPropertyInfo = T.Text - type AttrLabel SettingsGtkXftRgbaPropertyInfo = "gtk-xft-rgba" - attrGet _ = getSettingsGtkXftRgba - attrSet _ = setSettingsGtkXftRgba - attrConstruct _ = constructSettingsGtkXftRgba - -type instance AttributeList Settings = SettingsAttributeList -type SettingsAttributeList = ('[ '("colorHash", SettingsColorHashPropertyInfo), '("gtkAlternativeButtonOrder", SettingsGtkAlternativeButtonOrderPropertyInfo), '("gtkAlternativeSortArrows", SettingsGtkAlternativeSortArrowsPropertyInfo), '("gtkApplicationPreferDarkTheme", SettingsGtkApplicationPreferDarkThemePropertyInfo), '("gtkAutoMnemonics", SettingsGtkAutoMnemonicsPropertyInfo), '("gtkButtonImages", SettingsGtkButtonImagesPropertyInfo), '("gtkCanChangeAccels", SettingsGtkCanChangeAccelsPropertyInfo), '("gtkColorPalette", SettingsGtkColorPalettePropertyInfo), '("gtkColorScheme", SettingsGtkColorSchemePropertyInfo), '("gtkCursorBlink", SettingsGtkCursorBlinkPropertyInfo), '("gtkCursorBlinkTime", SettingsGtkCursorBlinkTimePropertyInfo), '("gtkCursorBlinkTimeout", SettingsGtkCursorBlinkTimeoutPropertyInfo), '("gtkCursorThemeName", SettingsGtkCursorThemeNamePropertyInfo), '("gtkCursorThemeSize", SettingsGtkCursorThemeSizePropertyInfo), '("gtkDecorationLayout", SettingsGtkDecorationLayoutPropertyInfo), '("gtkDialogsUseHeader", SettingsGtkDialogsUseHeaderPropertyInfo), '("gtkDndDragThreshold", SettingsGtkDndDragThresholdPropertyInfo), '("gtkDoubleClickDistance", SettingsGtkDoubleClickDistancePropertyInfo), '("gtkDoubleClickTime", SettingsGtkDoubleClickTimePropertyInfo), '("gtkEnableAccels", SettingsGtkEnableAccelsPropertyInfo), '("gtkEnableAnimations", SettingsGtkEnableAnimationsPropertyInfo), '("gtkEnableEventSounds", SettingsGtkEnableEventSoundsPropertyInfo), '("gtkEnableInputFeedbackSounds", SettingsGtkEnableInputFeedbackSoundsPropertyInfo), '("gtkEnableMnemonics", SettingsGtkEnableMnemonicsPropertyInfo), '("gtkEnablePrimaryPaste", SettingsGtkEnablePrimaryPastePropertyInfo), '("gtkEnableTooltips", SettingsGtkEnableTooltipsPropertyInfo), '("gtkEntryPasswordHintTimeout", SettingsGtkEntryPasswordHintTimeoutPropertyInfo), '("gtkEntrySelectOnFocus", SettingsGtkEntrySelectOnFocusPropertyInfo), '("gtkErrorBell", SettingsGtkErrorBellPropertyInfo), '("gtkFallbackIconTheme", SettingsGtkFallbackIconThemePropertyInfo), '("gtkFileChooserBackend", SettingsGtkFileChooserBackendPropertyInfo), '("gtkFontName", SettingsGtkFontNamePropertyInfo), '("gtkFontconfigTimestamp", SettingsGtkFontconfigTimestampPropertyInfo), '("gtkIconSizes", SettingsGtkIconSizesPropertyInfo), '("gtkIconThemeName", SettingsGtkIconThemeNamePropertyInfo), '("gtkImModule", SettingsGtkImModulePropertyInfo), '("gtkImPreeditStyle", SettingsGtkImPreeditStylePropertyInfo), '("gtkImStatusStyle", SettingsGtkImStatusStylePropertyInfo), '("gtkKeyThemeName", SettingsGtkKeyThemeNamePropertyInfo), '("gtkKeynavCursorOnly", SettingsGtkKeynavCursorOnlyPropertyInfo), '("gtkKeynavWrapAround", SettingsGtkKeynavWrapAroundPropertyInfo), '("gtkLabelSelectOnFocus", SettingsGtkLabelSelectOnFocusPropertyInfo), '("gtkLongPressTime", SettingsGtkLongPressTimePropertyInfo), '("gtkMenuBarAccel", SettingsGtkMenuBarAccelPropertyInfo), '("gtkMenuBarPopupDelay", SettingsGtkMenuBarPopupDelayPropertyInfo), '("gtkMenuImages", SettingsGtkMenuImagesPropertyInfo), '("gtkMenuPopdownDelay", SettingsGtkMenuPopdownDelayPropertyInfo), '("gtkMenuPopupDelay", SettingsGtkMenuPopupDelayPropertyInfo), '("gtkModules", SettingsGtkModulesPropertyInfo), '("gtkPrimaryButtonWarpsSlider", SettingsGtkPrimaryButtonWarpsSliderPropertyInfo), '("gtkPrintBackends", SettingsGtkPrintBackendsPropertyInfo), '("gtkPrintPreviewCommand", SettingsGtkPrintPreviewCommandPropertyInfo), '("gtkRecentFilesEnabled", SettingsGtkRecentFilesEnabledPropertyInfo), '("gtkRecentFilesLimit", SettingsGtkRecentFilesLimitPropertyInfo), '("gtkRecentFilesMaxAge", SettingsGtkRecentFilesMaxAgePropertyInfo), '("gtkScrolledWindowPlacement", SettingsGtkScrolledWindowPlacementPropertyInfo), '("gtkShellShowsAppMenu", SettingsGtkShellShowsAppMenuPropertyInfo), '("gtkShellShowsDesktop", SettingsGtkShellShowsDesktopPropertyInfo), '("gtkShellShowsMenubar", SettingsGtkShellShowsMenubarPropertyInfo), '("gtkShowInputMethodMenu", SettingsGtkShowInputMethodMenuPropertyInfo), '("gtkShowUnicodeMenu", SettingsGtkShowUnicodeMenuPropertyInfo), '("gtkSoundThemeName", SettingsGtkSoundThemeNamePropertyInfo), '("gtkSplitCursor", SettingsGtkSplitCursorPropertyInfo), '("gtkThemeName", SettingsGtkThemeNamePropertyInfo), '("gtkTimeoutExpand", SettingsGtkTimeoutExpandPropertyInfo), '("gtkTimeoutInitial", SettingsGtkTimeoutInitialPropertyInfo), '("gtkTimeoutRepeat", SettingsGtkTimeoutRepeatPropertyInfo), '("gtkTitlebarDoubleClick", SettingsGtkTitlebarDoubleClickPropertyInfo), '("gtkTitlebarMiddleClick", SettingsGtkTitlebarMiddleClickPropertyInfo), '("gtkTitlebarRightClick", SettingsGtkTitlebarRightClickPropertyInfo), '("gtkToolbarIconSize", SettingsGtkToolbarIconSizePropertyInfo), '("gtkToolbarStyle", SettingsGtkToolbarStylePropertyInfo), '("gtkTooltipBrowseModeTimeout", SettingsGtkTooltipBrowseModeTimeoutPropertyInfo), '("gtkTooltipBrowseTimeout", SettingsGtkTooltipBrowseTimeoutPropertyInfo), '("gtkTooltipTimeout", SettingsGtkTooltipTimeoutPropertyInfo), '("gtkTouchscreenMode", SettingsGtkTouchscreenModePropertyInfo), '("gtkVisibleFocus", SettingsGtkVisibleFocusPropertyInfo), '("gtkXftAntialias", SettingsGtkXftAntialiasPropertyInfo), '("gtkXftDpi", SettingsGtkXftDpiPropertyInfo), '("gtkXftHinting", SettingsGtkXftHintingPropertyInfo), '("gtkXftHintstyle", SettingsGtkXftHintstylePropertyInfo), '("gtkXftRgba", SettingsGtkXftRgbaPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList Settings = SettingsSignalList -type SettingsSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Settings::set_double_property --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Settings", 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 = "v_double", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_settings_set_double_property" gtk_settings_set_double_property :: - Ptr Settings -> -- _obj : TInterface "Gtk" "Settings" - CString -> -- name : TBasicType TUTF8 - CDouble -> -- v_double : TBasicType TDouble - CString -> -- origin : TBasicType TUTF8 - IO () - -{-# DEPRECATED settingsSetDoubleProperty ["(Since version 3.16)","Use g_object_set() instead."]#-} -settingsSetDoubleProperty :: - (MonadIO m, SettingsK a) => - a -- _obj - -> T.Text -- name - -> Double -- vDouble - -> T.Text -- origin - -> m () -- result -settingsSetDoubleProperty _obj name vDouble origin = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - let vDouble' = realToFrac vDouble - origin' <- textToCString origin - gtk_settings_set_double_property _obj' name' vDouble' origin' - touchManagedPtr _obj - freeMem name' - freeMem origin' - return () - -data SettingsSetDoublePropertyMethodInfo -instance (signature ~ (T.Text -> Double -> T.Text -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetDoublePropertyMethodInfo a signature where - overloadedMethod _ = settingsSetDoubleProperty - --- method Settings::set_long_property --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Settings", 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 = "v_long", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_settings_set_long_property" gtk_settings_set_long_property :: - Ptr Settings -> -- _obj : TInterface "Gtk" "Settings" - CString -> -- name : TBasicType TUTF8 - Int64 -> -- v_long : TBasicType TInt64 - CString -> -- origin : TBasicType TUTF8 - IO () - -{-# DEPRECATED settingsSetLongProperty ["(Since version 3.16)","Use g_object_set() instead."]#-} -settingsSetLongProperty :: - (MonadIO m, SettingsK a) => - a -- _obj - -> T.Text -- name - -> Int64 -- vLong - -> T.Text -- origin - -> m () -- result -settingsSetLongProperty _obj name vLong origin = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - origin' <- textToCString origin - gtk_settings_set_long_property _obj' name' vLong origin' - touchManagedPtr _obj - freeMem name' - freeMem origin' - return () - -data SettingsSetLongPropertyMethodInfo -instance (signature ~ (T.Text -> Int64 -> T.Text -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetLongPropertyMethodInfo a signature where - overloadedMethod _ = settingsSetLongProperty - --- method Settings::set_property_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Settings", 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 = "svalue", argType = TInterface "Gtk" "SettingsValue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_settings_set_property_value" gtk_settings_set_property_value :: - Ptr Settings -> -- _obj : TInterface "Gtk" "Settings" - CString -> -- name : TBasicType TUTF8 - Ptr SettingsValue -> -- svalue : TInterface "Gtk" "SettingsValue" - IO () - -{-# DEPRECATED settingsSetPropertyValue ["(Since version 3.16)","Use g_object_set() instead."]#-} -settingsSetPropertyValue :: - (MonadIO m, SettingsK a) => - a -- _obj - -> T.Text -- name - -> SettingsValue -- svalue - -> m () -- result -settingsSetPropertyValue _obj name svalue = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - let svalue' = unsafeManagedPtrGetPtr svalue - gtk_settings_set_property_value _obj' name' svalue' - touchManagedPtr _obj - touchManagedPtr svalue - freeMem name' - return () - -data SettingsSetPropertyValueMethodInfo -instance (signature ~ (T.Text -> SettingsValue -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetPropertyValueMethodInfo a signature where - overloadedMethod _ = settingsSetPropertyValue - --- method Settings::set_string_property --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Settings", 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 = "v_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_settings_set_string_property" gtk_settings_set_string_property :: - Ptr Settings -> -- _obj : TInterface "Gtk" "Settings" - CString -> -- name : TBasicType TUTF8 - CString -> -- v_string : TBasicType TUTF8 - CString -> -- origin : TBasicType TUTF8 - IO () - -{-# DEPRECATED settingsSetStringProperty ["(Since version 3.16)","Use g_object_set() instead."]#-} -settingsSetStringProperty :: - (MonadIO m, SettingsK a) => - a -- _obj - -> T.Text -- name - -> T.Text -- vString - -> T.Text -- origin - -> m () -- result -settingsSetStringProperty _obj name vString origin = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - vString' <- textToCString vString - origin' <- textToCString origin - gtk_settings_set_string_property _obj' name' vString' origin' - touchManagedPtr _obj - freeMem name' - freeMem vString' - freeMem origin' - return () - -data SettingsSetStringPropertyMethodInfo -instance (signature ~ (T.Text -> T.Text -> T.Text -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetStringPropertyMethodInfo a signature where - overloadedMethod _ = settingsSetStringProperty - --- method Settings::get_default --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : TInterface "Gtk" "Settings" --- throws : False --- Skip return : False - -foreign import ccall "gtk_settings_get_default" gtk_settings_get_default :: - IO (Ptr Settings) - - -settingsGetDefault :: - (MonadIO m) => - m Settings -- result -settingsGetDefault = liftIO $ do - result <- gtk_settings_get_default - checkUnexpectedReturnNULL "gtk_settings_get_default" result - result' <- (newObject Settings) result - return result' - --- method Settings::get_for_screen --- method type : MemberFunction --- Args : [Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TInterface "Gtk" "Settings" --- throws : False --- Skip return : False - -foreign import ccall "gtk_settings_get_for_screen" gtk_settings_get_for_screen :: - Ptr Gdk.Screen -> -- screen : TInterface "Gdk" "Screen" - IO (Ptr Settings) - - -settingsGetForScreen :: - (MonadIO m, Gdk.ScreenK a) => - a -- screen - -> m Settings -- result -settingsGetForScreen screen = liftIO $ do - let screen' = unsafeManagedPtrCastPtr screen - result <- gtk_settings_get_for_screen screen' - checkUnexpectedReturnNULL "gtk_settings_get_for_screen" result - result' <- (newObject Settings) result - touchManagedPtr screen - return result' - --- method Settings::install_property --- method type : MemberFunction --- Args : [Arg {argCName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_settings_install_property" gtk_settings_install_property :: - Ptr GParamSpec -> -- pspec : TParamSpec - IO () - -{-# DEPRECATED settingsInstallProperty ["(Since version 3.16)","This function is not useful outside GTK+."]#-} -settingsInstallProperty :: - (MonadIO m) => - GParamSpec -- pspec - -> m () -- result -settingsInstallProperty pspec = liftIO $ do - let pspec' = unsafeManagedPtrGetPtr pspec - gtk_settings_install_property pspec' - return () - --- method Settings::install_property_parser --- method type : MemberFunction --- Args : [Arg {argCName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parser", argType = TInterface "Gtk" "RcPropertyParser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid + settingsColorHash , + + +-- ** GtkAlternativeButtonOrder + SettingsGtkAlternativeButtonOrderPropertyInfo, + constructSettingsGtkAlternativeButtonOrder, + getSettingsGtkAlternativeButtonOrder , + setSettingsGtkAlternativeButtonOrder , + settingsGtkAlternativeButtonOrder , + + +-- ** GtkAlternativeSortArrows + SettingsGtkAlternativeSortArrowsPropertyInfo, + constructSettingsGtkAlternativeSortArrows, + getSettingsGtkAlternativeSortArrows , + setSettingsGtkAlternativeSortArrows , + settingsGtkAlternativeSortArrows , + + +-- ** GtkApplicationPreferDarkTheme + SettingsGtkApplicationPreferDarkThemePropertyInfo, + constructSettingsGtkApplicationPreferDarkTheme, + getSettingsGtkApplicationPreferDarkTheme, + setSettingsGtkApplicationPreferDarkTheme, + settingsGtkApplicationPreferDarkTheme , + + +-- ** GtkAutoMnemonics + SettingsGtkAutoMnemonicsPropertyInfo , + constructSettingsGtkAutoMnemonics , + getSettingsGtkAutoMnemonics , + setSettingsGtkAutoMnemonics , + settingsGtkAutoMnemonics , + + +-- ** GtkButtonImages + SettingsGtkButtonImagesPropertyInfo , + constructSettingsGtkButtonImages , + getSettingsGtkButtonImages , + setSettingsGtkButtonImages , + settingsGtkButtonImages , + + +-- ** GtkCanChangeAccels + SettingsGtkCanChangeAccelsPropertyInfo , + constructSettingsGtkCanChangeAccels , + getSettingsGtkCanChangeAccels , + setSettingsGtkCanChangeAccels , + settingsGtkCanChangeAccels , + + +-- ** GtkColorPalette + SettingsGtkColorPalettePropertyInfo , + clearSettingsGtkColorPalette , + constructSettingsGtkColorPalette , + getSettingsGtkColorPalette , + setSettingsGtkColorPalette , + settingsGtkColorPalette , + + +-- ** GtkColorScheme + SettingsGtkColorSchemePropertyInfo , + clearSettingsGtkColorScheme , + constructSettingsGtkColorScheme , + getSettingsGtkColorScheme , + setSettingsGtkColorScheme , + settingsGtkColorScheme , + + +-- ** GtkCursorBlink + SettingsGtkCursorBlinkPropertyInfo , + constructSettingsGtkCursorBlink , + getSettingsGtkCursorBlink , + setSettingsGtkCursorBlink , + settingsGtkCursorBlink , + + +-- ** GtkCursorBlinkTime + SettingsGtkCursorBlinkTimePropertyInfo , + constructSettingsGtkCursorBlinkTime , + getSettingsGtkCursorBlinkTime , + setSettingsGtkCursorBlinkTime , + settingsGtkCursorBlinkTime , + + +-- ** GtkCursorBlinkTimeout + SettingsGtkCursorBlinkTimeoutPropertyInfo, + constructSettingsGtkCursorBlinkTimeout , + getSettingsGtkCursorBlinkTimeout , + setSettingsGtkCursorBlinkTimeout , + settingsGtkCursorBlinkTimeout , + + +-- ** GtkCursorThemeName + SettingsGtkCursorThemeNamePropertyInfo , + clearSettingsGtkCursorThemeName , + constructSettingsGtkCursorThemeName , + getSettingsGtkCursorThemeName , + setSettingsGtkCursorThemeName , + settingsGtkCursorThemeName , + + +-- ** GtkCursorThemeSize + SettingsGtkCursorThemeSizePropertyInfo , + constructSettingsGtkCursorThemeSize , + getSettingsGtkCursorThemeSize , + setSettingsGtkCursorThemeSize , + settingsGtkCursorThemeSize , + + +-- ** GtkDecorationLayout + SettingsGtkDecorationLayoutPropertyInfo , + clearSettingsGtkDecorationLayout , + constructSettingsGtkDecorationLayout , + getSettingsGtkDecorationLayout , + setSettingsGtkDecorationLayout , + settingsGtkDecorationLayout , + + +-- ** GtkDialogsUseHeader + SettingsGtkDialogsUseHeaderPropertyInfo , + constructSettingsGtkDialogsUseHeader , + getSettingsGtkDialogsUseHeader , + setSettingsGtkDialogsUseHeader , + settingsGtkDialogsUseHeader , + + +-- ** GtkDndDragThreshold + SettingsGtkDndDragThresholdPropertyInfo , + constructSettingsGtkDndDragThreshold , + getSettingsGtkDndDragThreshold , + setSettingsGtkDndDragThreshold , + settingsGtkDndDragThreshold , + + +-- ** GtkDoubleClickDistance + SettingsGtkDoubleClickDistancePropertyInfo, + constructSettingsGtkDoubleClickDistance , + getSettingsGtkDoubleClickDistance , + setSettingsGtkDoubleClickDistance , + settingsGtkDoubleClickDistance , + + +-- ** GtkDoubleClickTime + SettingsGtkDoubleClickTimePropertyInfo , + constructSettingsGtkDoubleClickTime , + getSettingsGtkDoubleClickTime , + setSettingsGtkDoubleClickTime , + settingsGtkDoubleClickTime , + + +-- ** GtkEnableAccels + SettingsGtkEnableAccelsPropertyInfo , + constructSettingsGtkEnableAccels , + getSettingsGtkEnableAccels , + setSettingsGtkEnableAccels , + settingsGtkEnableAccels , + + +-- ** GtkEnableAnimations + SettingsGtkEnableAnimationsPropertyInfo , + constructSettingsGtkEnableAnimations , + getSettingsGtkEnableAnimations , + setSettingsGtkEnableAnimations , + settingsGtkEnableAnimations , + + +-- ** GtkEnableEventSounds + SettingsGtkEnableEventSoundsPropertyInfo, + constructSettingsGtkEnableEventSounds , + getSettingsGtkEnableEventSounds , + setSettingsGtkEnableEventSounds , + settingsGtkEnableEventSounds , + + +-- ** GtkEnableInputFeedbackSounds + SettingsGtkEnableInputFeedbackSoundsPropertyInfo, + constructSettingsGtkEnableInputFeedbackSounds, + getSettingsGtkEnableInputFeedbackSounds , + setSettingsGtkEnableInputFeedbackSounds , + settingsGtkEnableInputFeedbackSounds , + + +-- ** GtkEnableMnemonics + SettingsGtkEnableMnemonicsPropertyInfo , + constructSettingsGtkEnableMnemonics , + getSettingsGtkEnableMnemonics , + setSettingsGtkEnableMnemonics , + settingsGtkEnableMnemonics , + + +-- ** GtkEnablePrimaryPaste + SettingsGtkEnablePrimaryPastePropertyInfo, + constructSettingsGtkEnablePrimaryPaste , + getSettingsGtkEnablePrimaryPaste , + setSettingsGtkEnablePrimaryPaste , + settingsGtkEnablePrimaryPaste , + + +-- ** GtkEnableTooltips + SettingsGtkEnableTooltipsPropertyInfo , + constructSettingsGtkEnableTooltips , + getSettingsGtkEnableTooltips , + setSettingsGtkEnableTooltips , + settingsGtkEnableTooltips , + + +-- ** GtkEntryPasswordHintTimeout + SettingsGtkEntryPasswordHintTimeoutPropertyInfo, + constructSettingsGtkEntryPasswordHintTimeout, + getSettingsGtkEntryPasswordHintTimeout , + setSettingsGtkEntryPasswordHintTimeout , + settingsGtkEntryPasswordHintTimeout , + + +-- ** GtkEntrySelectOnFocus + SettingsGtkEntrySelectOnFocusPropertyInfo, + constructSettingsGtkEntrySelectOnFocus , + getSettingsGtkEntrySelectOnFocus , + setSettingsGtkEntrySelectOnFocus , + settingsGtkEntrySelectOnFocus , + + +-- ** GtkErrorBell + SettingsGtkErrorBellPropertyInfo , + constructSettingsGtkErrorBell , + getSettingsGtkErrorBell , + setSettingsGtkErrorBell , + settingsGtkErrorBell , + + +-- ** GtkFallbackIconTheme + SettingsGtkFallbackIconThemePropertyInfo, + clearSettingsGtkFallbackIconTheme , + constructSettingsGtkFallbackIconTheme , + getSettingsGtkFallbackIconTheme , + setSettingsGtkFallbackIconTheme , + settingsGtkFallbackIconTheme , + + +-- ** GtkFileChooserBackend + SettingsGtkFileChooserBackendPropertyInfo, + clearSettingsGtkFileChooserBackend , + constructSettingsGtkFileChooserBackend , + getSettingsGtkFileChooserBackend , + setSettingsGtkFileChooserBackend , + settingsGtkFileChooserBackend , + + +-- ** GtkFontName + SettingsGtkFontNamePropertyInfo , + clearSettingsGtkFontName , + constructSettingsGtkFontName , + getSettingsGtkFontName , + setSettingsGtkFontName , + settingsGtkFontName , + + +-- ** GtkFontconfigTimestamp + SettingsGtkFontconfigTimestampPropertyInfo, + constructSettingsGtkFontconfigTimestamp , + getSettingsGtkFontconfigTimestamp , + setSettingsGtkFontconfigTimestamp , + settingsGtkFontconfigTimestamp , + + +-- ** GtkIconSizes + SettingsGtkIconSizesPropertyInfo , + clearSettingsGtkIconSizes , + constructSettingsGtkIconSizes , + getSettingsGtkIconSizes , + setSettingsGtkIconSizes , + settingsGtkIconSizes , + + +-- ** GtkIconThemeName + SettingsGtkIconThemeNamePropertyInfo , + clearSettingsGtkIconThemeName , + constructSettingsGtkIconThemeName , + getSettingsGtkIconThemeName , + setSettingsGtkIconThemeName , + settingsGtkIconThemeName , + + +-- ** GtkImModule + SettingsGtkImModulePropertyInfo , + clearSettingsGtkImModule , + constructSettingsGtkImModule , + getSettingsGtkImModule , + setSettingsGtkImModule , + settingsGtkImModule , + + +-- ** GtkImPreeditStyle + SettingsGtkImPreeditStylePropertyInfo , + constructSettingsGtkImPreeditStyle , + getSettingsGtkImPreeditStyle , + setSettingsGtkImPreeditStyle , + settingsGtkImPreeditStyle , + + +-- ** GtkImStatusStyle + SettingsGtkImStatusStylePropertyInfo , + constructSettingsGtkImStatusStyle , + getSettingsGtkImStatusStyle , + setSettingsGtkImStatusStyle , + settingsGtkImStatusStyle , + + +-- ** GtkKeyThemeName + SettingsGtkKeyThemeNamePropertyInfo , + clearSettingsGtkKeyThemeName , + constructSettingsGtkKeyThemeName , + getSettingsGtkKeyThemeName , + setSettingsGtkKeyThemeName , + settingsGtkKeyThemeName , + + +-- ** GtkKeynavCursorOnly + SettingsGtkKeynavCursorOnlyPropertyInfo , + constructSettingsGtkKeynavCursorOnly , + getSettingsGtkKeynavCursorOnly , + setSettingsGtkKeynavCursorOnly , + settingsGtkKeynavCursorOnly , + + +-- ** GtkKeynavWrapAround + SettingsGtkKeynavWrapAroundPropertyInfo , + constructSettingsGtkKeynavWrapAround , + getSettingsGtkKeynavWrapAround , + setSettingsGtkKeynavWrapAround , + settingsGtkKeynavWrapAround , + + +-- ** GtkLabelSelectOnFocus + SettingsGtkLabelSelectOnFocusPropertyInfo, + constructSettingsGtkLabelSelectOnFocus , + getSettingsGtkLabelSelectOnFocus , + setSettingsGtkLabelSelectOnFocus , + settingsGtkLabelSelectOnFocus , + + +-- ** GtkLongPressTime + SettingsGtkLongPressTimePropertyInfo , + constructSettingsGtkLongPressTime , + getSettingsGtkLongPressTime , + setSettingsGtkLongPressTime , + settingsGtkLongPressTime , + + +-- ** GtkMenuBarAccel + SettingsGtkMenuBarAccelPropertyInfo , + clearSettingsGtkMenuBarAccel , + constructSettingsGtkMenuBarAccel , + getSettingsGtkMenuBarAccel , + setSettingsGtkMenuBarAccel , + settingsGtkMenuBarAccel , + + +-- ** GtkMenuBarPopupDelay + SettingsGtkMenuBarPopupDelayPropertyInfo, + constructSettingsGtkMenuBarPopupDelay , + getSettingsGtkMenuBarPopupDelay , + setSettingsGtkMenuBarPopupDelay , + settingsGtkMenuBarPopupDelay , + + +-- ** GtkMenuImages + SettingsGtkMenuImagesPropertyInfo , + constructSettingsGtkMenuImages , + getSettingsGtkMenuImages , + setSettingsGtkMenuImages , + settingsGtkMenuImages , + + +-- ** GtkMenuPopdownDelay + SettingsGtkMenuPopdownDelayPropertyInfo , + constructSettingsGtkMenuPopdownDelay , + getSettingsGtkMenuPopdownDelay , + setSettingsGtkMenuPopdownDelay , + settingsGtkMenuPopdownDelay , + + +-- ** GtkMenuPopupDelay + SettingsGtkMenuPopupDelayPropertyInfo , + constructSettingsGtkMenuPopupDelay , + getSettingsGtkMenuPopupDelay , + setSettingsGtkMenuPopupDelay , + settingsGtkMenuPopupDelay , + + +-- ** GtkModules + SettingsGtkModulesPropertyInfo , + clearSettingsGtkModules , + constructSettingsGtkModules , + getSettingsGtkModules , + setSettingsGtkModules , + settingsGtkModules , + + +-- ** GtkPrimaryButtonWarpsSlider + SettingsGtkPrimaryButtonWarpsSliderPropertyInfo, + constructSettingsGtkPrimaryButtonWarpsSlider, + getSettingsGtkPrimaryButtonWarpsSlider , + setSettingsGtkPrimaryButtonWarpsSlider , + settingsGtkPrimaryButtonWarpsSlider , + + +-- ** GtkPrintBackends + SettingsGtkPrintBackendsPropertyInfo , + clearSettingsGtkPrintBackends , + constructSettingsGtkPrintBackends , + getSettingsGtkPrintBackends , + setSettingsGtkPrintBackends , + settingsGtkPrintBackends , + + +-- ** GtkPrintPreviewCommand + SettingsGtkPrintPreviewCommandPropertyInfo, + clearSettingsGtkPrintPreviewCommand , + constructSettingsGtkPrintPreviewCommand , + getSettingsGtkPrintPreviewCommand , + setSettingsGtkPrintPreviewCommand , + settingsGtkPrintPreviewCommand , + + +-- ** GtkRecentFilesEnabled + SettingsGtkRecentFilesEnabledPropertyInfo, + constructSettingsGtkRecentFilesEnabled , + getSettingsGtkRecentFilesEnabled , + setSettingsGtkRecentFilesEnabled , + settingsGtkRecentFilesEnabled , + + +-- ** GtkRecentFilesLimit + SettingsGtkRecentFilesLimitPropertyInfo , + constructSettingsGtkRecentFilesLimit , + getSettingsGtkRecentFilesLimit , + setSettingsGtkRecentFilesLimit , + settingsGtkRecentFilesLimit , + + +-- ** GtkRecentFilesMaxAge + SettingsGtkRecentFilesMaxAgePropertyInfo, + constructSettingsGtkRecentFilesMaxAge , + getSettingsGtkRecentFilesMaxAge , + setSettingsGtkRecentFilesMaxAge , + settingsGtkRecentFilesMaxAge , + + +-- ** GtkScrolledWindowPlacement + SettingsGtkScrolledWindowPlacementPropertyInfo, + constructSettingsGtkScrolledWindowPlacement, + getSettingsGtkScrolledWindowPlacement , + setSettingsGtkScrolledWindowPlacement , + settingsGtkScrolledWindowPlacement , + + +-- ** GtkShellShowsAppMenu + SettingsGtkShellShowsAppMenuPropertyInfo, + constructSettingsGtkShellShowsAppMenu , + getSettingsGtkShellShowsAppMenu , + setSettingsGtkShellShowsAppMenu , + settingsGtkShellShowsAppMenu , + + +-- ** GtkShellShowsDesktop + SettingsGtkShellShowsDesktopPropertyInfo, + constructSettingsGtkShellShowsDesktop , + getSettingsGtkShellShowsDesktop , + setSettingsGtkShellShowsDesktop , + settingsGtkShellShowsDesktop , + + +-- ** GtkShellShowsMenubar + SettingsGtkShellShowsMenubarPropertyInfo, + constructSettingsGtkShellShowsMenubar , + getSettingsGtkShellShowsMenubar , + setSettingsGtkShellShowsMenubar , + settingsGtkShellShowsMenubar , + + +-- ** GtkShowInputMethodMenu + SettingsGtkShowInputMethodMenuPropertyInfo, + constructSettingsGtkShowInputMethodMenu , + getSettingsGtkShowInputMethodMenu , + setSettingsGtkShowInputMethodMenu , + settingsGtkShowInputMethodMenu , + + +-- ** GtkShowUnicodeMenu + SettingsGtkShowUnicodeMenuPropertyInfo , + constructSettingsGtkShowUnicodeMenu , + getSettingsGtkShowUnicodeMenu , + setSettingsGtkShowUnicodeMenu , + settingsGtkShowUnicodeMenu , + + +-- ** GtkSoundThemeName + SettingsGtkSoundThemeNamePropertyInfo , + clearSettingsGtkSoundThemeName , + constructSettingsGtkSoundThemeName , + getSettingsGtkSoundThemeName , + setSettingsGtkSoundThemeName , + settingsGtkSoundThemeName , + + +-- ** GtkSplitCursor + SettingsGtkSplitCursorPropertyInfo , + constructSettingsGtkSplitCursor , + getSettingsGtkSplitCursor , + setSettingsGtkSplitCursor , + settingsGtkSplitCursor , + + +-- ** GtkThemeName + SettingsGtkThemeNamePropertyInfo , + clearSettingsGtkThemeName , + constructSettingsGtkThemeName , + getSettingsGtkThemeName , + setSettingsGtkThemeName , + settingsGtkThemeName , + + +-- ** GtkTimeoutExpand + SettingsGtkTimeoutExpandPropertyInfo , + constructSettingsGtkTimeoutExpand , + getSettingsGtkTimeoutExpand , + setSettingsGtkTimeoutExpand , + settingsGtkTimeoutExpand , + + +-- ** GtkTimeoutInitial + SettingsGtkTimeoutInitialPropertyInfo , + constructSettingsGtkTimeoutInitial , + getSettingsGtkTimeoutInitial , + setSettingsGtkTimeoutInitial , + settingsGtkTimeoutInitial , + + +-- ** GtkTimeoutRepeat + SettingsGtkTimeoutRepeatPropertyInfo , + constructSettingsGtkTimeoutRepeat , + getSettingsGtkTimeoutRepeat , + setSettingsGtkTimeoutRepeat , + settingsGtkTimeoutRepeat , + + +-- ** GtkTitlebarDoubleClick + SettingsGtkTitlebarDoubleClickPropertyInfo, + clearSettingsGtkTitlebarDoubleClick , + constructSettingsGtkTitlebarDoubleClick , + getSettingsGtkTitlebarDoubleClick , + setSettingsGtkTitlebarDoubleClick , + settingsGtkTitlebarDoubleClick , + + +-- ** GtkTitlebarMiddleClick + SettingsGtkTitlebarMiddleClickPropertyInfo, + clearSettingsGtkTitlebarMiddleClick , + constructSettingsGtkTitlebarMiddleClick , + getSettingsGtkTitlebarMiddleClick , + setSettingsGtkTitlebarMiddleClick , + settingsGtkTitlebarMiddleClick , + + +-- ** GtkTitlebarRightClick + SettingsGtkTitlebarRightClickPropertyInfo, + clearSettingsGtkTitlebarRightClick , + constructSettingsGtkTitlebarRightClick , + getSettingsGtkTitlebarRightClick , + setSettingsGtkTitlebarRightClick , + settingsGtkTitlebarRightClick , + + +-- ** GtkToolbarIconSize + SettingsGtkToolbarIconSizePropertyInfo , + constructSettingsGtkToolbarIconSize , + getSettingsGtkToolbarIconSize , + setSettingsGtkToolbarIconSize , + settingsGtkToolbarIconSize , + + +-- ** GtkToolbarStyle + SettingsGtkToolbarStylePropertyInfo , + constructSettingsGtkToolbarStyle , + getSettingsGtkToolbarStyle , + setSettingsGtkToolbarStyle , + settingsGtkToolbarStyle , + + +-- ** GtkTooltipBrowseModeTimeout + SettingsGtkTooltipBrowseModeTimeoutPropertyInfo, + constructSettingsGtkTooltipBrowseModeTimeout, + getSettingsGtkTooltipBrowseModeTimeout , + setSettingsGtkTooltipBrowseModeTimeout , + settingsGtkTooltipBrowseModeTimeout , + + +-- ** GtkTooltipBrowseTimeout + SettingsGtkTooltipBrowseTimeoutPropertyInfo, + constructSettingsGtkTooltipBrowseTimeout, + getSettingsGtkTooltipBrowseTimeout , + setSettingsGtkTooltipBrowseTimeout , + settingsGtkTooltipBrowseTimeout , + + +-- ** GtkTooltipTimeout + SettingsGtkTooltipTimeoutPropertyInfo , + constructSettingsGtkTooltipTimeout , + getSettingsGtkTooltipTimeout , + setSettingsGtkTooltipTimeout , + settingsGtkTooltipTimeout , + + +-- ** GtkTouchscreenMode + SettingsGtkTouchscreenModePropertyInfo , + constructSettingsGtkTouchscreenMode , + getSettingsGtkTouchscreenMode , + setSettingsGtkTouchscreenMode , + settingsGtkTouchscreenMode , + + +-- ** GtkVisibleFocus + SettingsGtkVisibleFocusPropertyInfo , + constructSettingsGtkVisibleFocus , + getSettingsGtkVisibleFocus , + setSettingsGtkVisibleFocus , + settingsGtkVisibleFocus , + + +-- ** GtkXftAntialias + SettingsGtkXftAntialiasPropertyInfo , + constructSettingsGtkXftAntialias , + getSettingsGtkXftAntialias , + setSettingsGtkXftAntialias , + settingsGtkXftAntialias , + + +-- ** GtkXftDpi + SettingsGtkXftDpiPropertyInfo , + constructSettingsGtkXftDpi , + getSettingsGtkXftDpi , + setSettingsGtkXftDpi , + settingsGtkXftDpi , + + +-- ** GtkXftHinting + SettingsGtkXftHintingPropertyInfo , + constructSettingsGtkXftHinting , + getSettingsGtkXftHinting , + setSettingsGtkXftHinting , + settingsGtkXftHinting , + + +-- ** GtkXftHintstyle + SettingsGtkXftHintstylePropertyInfo , + clearSettingsGtkXftHintstyle , + constructSettingsGtkXftHintstyle , + getSettingsGtkXftHintstyle , + setSettingsGtkXftHintstyle , + settingsGtkXftHintstyle , + + +-- ** GtkXftRgba + SettingsGtkXftRgbaPropertyInfo , + clearSettingsGtkXftRgba , + constructSettingsGtkXftRgba , + getSettingsGtkXftRgba , + setSettingsGtkXftRgba , + settingsGtkXftRgba , + + + + + ) 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.Gtk.Types +import GI.Gtk.Callbacks +import qualified GI.GObject as GObject +import qualified GI.Gdk as Gdk + +newtype Settings = Settings (ForeignPtr Settings) +foreign import ccall "gtk_settings_get_type" + c_gtk_settings_get_type :: IO GType + +type instance ParentTypes Settings = SettingsParentTypes +type SettingsParentTypes = '[GObject.Object, StyleProvider] + +instance GObject Settings where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_gtk_settings_get_type + + +class GObject o => SettingsK o +instance (GObject o, IsDescendantOf Settings o) => SettingsK o + +toSettings :: SettingsK o => o -> IO Settings +toSettings = unsafeCastTo Settings + +noSettings :: Maybe Settings +noSettings = Nothing + +type family ResolveSettingsMethod (t :: Symbol) (o :: *) :: * where + ResolveSettingsMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveSettingsMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveSettingsMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveSettingsMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveSettingsMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveSettingsMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveSettingsMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveSettingsMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveSettingsMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveSettingsMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveSettingsMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveSettingsMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveSettingsMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveSettingsMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveSettingsMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveSettingsMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveSettingsMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveSettingsMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveSettingsMethod "getIconFactory" o = StyleProviderGetIconFactoryMethodInfo + ResolveSettingsMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveSettingsMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveSettingsMethod "getStyle" o = StyleProviderGetStyleMethodInfo + ResolveSettingsMethod "getStyleProperty" o = StyleProviderGetStylePropertyMethodInfo + ResolveSettingsMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveSettingsMethod "setDoubleProperty" o = SettingsSetDoublePropertyMethodInfo + ResolveSettingsMethod "setLongProperty" o = SettingsSetLongPropertyMethodInfo + ResolveSettingsMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveSettingsMethod "setPropertyValue" o = SettingsSetPropertyValueMethodInfo + ResolveSettingsMethod "setStringProperty" o = SettingsSetStringPropertyMethodInfo + ResolveSettingsMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveSettingsMethod t Settings, MethodInfo info Settings p) => IsLabelProxy t (Settings -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveSettingsMethod t Settings, MethodInfo info Settings p) => IsLabel t (Settings -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + +-- XXX Generation of property "color-hash" of object "Settings" failed: Not implemented: "Property SettingsColorHash has unsupported transfer type TransferContainer" +-- XXX Placeholder +data SettingsColorHashPropertyInfo +instance AttrInfo SettingsColorHashPropertyInfo where + type AttrAllowedOps SettingsColorHashPropertyInfo = '[] + type AttrSetTypeConstraint SettingsColorHashPropertyInfo = (~) () + type AttrBaseTypeConstraint SettingsColorHashPropertyInfo = (~) () + type AttrGetType SettingsColorHashPropertyInfo = () + type AttrLabel SettingsColorHashPropertyInfo = "" + attrGet = undefined + attrSet = undefined + attrConstruct = undefined + attrClear = undefined +-- VVV Prop "gtk-alternative-button-order" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkAlternativeButtonOrder :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsGtkAlternativeButtonOrder obj = liftIO $ getObjectPropertyBool obj "gtk-alternative-button-order" + +setSettingsGtkAlternativeButtonOrder :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsGtkAlternativeButtonOrder obj val = liftIO $ setObjectPropertyBool obj "gtk-alternative-button-order" val + +constructSettingsGtkAlternativeButtonOrder :: Bool -> IO ([Char], GValue) +constructSettingsGtkAlternativeButtonOrder val = constructObjectPropertyBool "gtk-alternative-button-order" val + +data SettingsGtkAlternativeButtonOrderPropertyInfo +instance AttrInfo SettingsGtkAlternativeButtonOrderPropertyInfo where + type AttrAllowedOps SettingsGtkAlternativeButtonOrderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkAlternativeButtonOrderPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsGtkAlternativeButtonOrderPropertyInfo = SettingsK + type AttrGetType SettingsGtkAlternativeButtonOrderPropertyInfo = Bool + type AttrLabel SettingsGtkAlternativeButtonOrderPropertyInfo = "gtk-alternative-button-order" + attrGet _ = getSettingsGtkAlternativeButtonOrder + attrSet _ = setSettingsGtkAlternativeButtonOrder + attrConstruct _ = constructSettingsGtkAlternativeButtonOrder + attrClear _ = undefined + +-- VVV Prop "gtk-alternative-sort-arrows" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkAlternativeSortArrows :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsGtkAlternativeSortArrows obj = liftIO $ getObjectPropertyBool obj "gtk-alternative-sort-arrows" + +setSettingsGtkAlternativeSortArrows :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsGtkAlternativeSortArrows obj val = liftIO $ setObjectPropertyBool obj "gtk-alternative-sort-arrows" val + +constructSettingsGtkAlternativeSortArrows :: Bool -> IO ([Char], GValue) +constructSettingsGtkAlternativeSortArrows val = constructObjectPropertyBool "gtk-alternative-sort-arrows" val + +data SettingsGtkAlternativeSortArrowsPropertyInfo +instance AttrInfo SettingsGtkAlternativeSortArrowsPropertyInfo where + type AttrAllowedOps SettingsGtkAlternativeSortArrowsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkAlternativeSortArrowsPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsGtkAlternativeSortArrowsPropertyInfo = SettingsK + type AttrGetType SettingsGtkAlternativeSortArrowsPropertyInfo = Bool + type AttrLabel SettingsGtkAlternativeSortArrowsPropertyInfo = "gtk-alternative-sort-arrows" + attrGet _ = getSettingsGtkAlternativeSortArrows + attrSet _ = setSettingsGtkAlternativeSortArrows + attrConstruct _ = constructSettingsGtkAlternativeSortArrows + attrClear _ = undefined + +-- VVV Prop "gtk-application-prefer-dark-theme" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkApplicationPreferDarkTheme :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsGtkApplicationPreferDarkTheme obj = liftIO $ getObjectPropertyBool obj "gtk-application-prefer-dark-theme" + +setSettingsGtkApplicationPreferDarkTheme :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsGtkApplicationPreferDarkTheme obj val = liftIO $ setObjectPropertyBool obj "gtk-application-prefer-dark-theme" val + +constructSettingsGtkApplicationPreferDarkTheme :: Bool -> IO ([Char], GValue) +constructSettingsGtkApplicationPreferDarkTheme val = constructObjectPropertyBool "gtk-application-prefer-dark-theme" val + +data SettingsGtkApplicationPreferDarkThemePropertyInfo +instance AttrInfo SettingsGtkApplicationPreferDarkThemePropertyInfo where + type AttrAllowedOps SettingsGtkApplicationPreferDarkThemePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkApplicationPreferDarkThemePropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsGtkApplicationPreferDarkThemePropertyInfo = SettingsK + type AttrGetType SettingsGtkApplicationPreferDarkThemePropertyInfo = Bool + type AttrLabel SettingsGtkApplicationPreferDarkThemePropertyInfo = "gtk-application-prefer-dark-theme" + attrGet _ = getSettingsGtkApplicationPreferDarkTheme + attrSet _ = setSettingsGtkApplicationPreferDarkTheme + attrConstruct _ = constructSettingsGtkApplicationPreferDarkTheme + attrClear _ = undefined + +-- VVV Prop "gtk-auto-mnemonics" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkAutoMnemonics :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsGtkAutoMnemonics obj = liftIO $ getObjectPropertyBool obj "gtk-auto-mnemonics" + +setSettingsGtkAutoMnemonics :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsGtkAutoMnemonics obj val = liftIO $ setObjectPropertyBool obj "gtk-auto-mnemonics" val + +constructSettingsGtkAutoMnemonics :: Bool -> IO ([Char], GValue) +constructSettingsGtkAutoMnemonics val = constructObjectPropertyBool "gtk-auto-mnemonics" val + +data SettingsGtkAutoMnemonicsPropertyInfo +instance AttrInfo SettingsGtkAutoMnemonicsPropertyInfo where + type AttrAllowedOps SettingsGtkAutoMnemonicsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkAutoMnemonicsPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsGtkAutoMnemonicsPropertyInfo = SettingsK + type AttrGetType SettingsGtkAutoMnemonicsPropertyInfo = Bool + type AttrLabel SettingsGtkAutoMnemonicsPropertyInfo = "gtk-auto-mnemonics" + attrGet _ = getSettingsGtkAutoMnemonics + attrSet _ = setSettingsGtkAutoMnemonics + attrConstruct _ = constructSettingsGtkAutoMnemonics + attrClear _ = undefined + +-- VVV Prop "gtk-button-images" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkButtonImages :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsGtkButtonImages obj = liftIO $ getObjectPropertyBool obj "gtk-button-images" + +setSettingsGtkButtonImages :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsGtkButtonImages obj val = liftIO $ setObjectPropertyBool obj "gtk-button-images" val + +constructSettingsGtkButtonImages :: Bool -> IO ([Char], GValue) +constructSettingsGtkButtonImages val = constructObjectPropertyBool "gtk-button-images" val + +data SettingsGtkButtonImagesPropertyInfo +instance AttrInfo SettingsGtkButtonImagesPropertyInfo where + type AttrAllowedOps SettingsGtkButtonImagesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkButtonImagesPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsGtkButtonImagesPropertyInfo = SettingsK + type AttrGetType SettingsGtkButtonImagesPropertyInfo = Bool + type AttrLabel SettingsGtkButtonImagesPropertyInfo = "gtk-button-images" + attrGet _ = getSettingsGtkButtonImages + attrSet _ = setSettingsGtkButtonImages + attrConstruct _ = constructSettingsGtkButtonImages + attrClear _ = undefined + +-- VVV Prop "gtk-can-change-accels" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkCanChangeAccels :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsGtkCanChangeAccels obj = liftIO $ getObjectPropertyBool obj "gtk-can-change-accels" + +setSettingsGtkCanChangeAccels :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsGtkCanChangeAccels obj val = liftIO $ setObjectPropertyBool obj "gtk-can-change-accels" val + +constructSettingsGtkCanChangeAccels :: Bool -> IO ([Char], GValue) +constructSettingsGtkCanChangeAccels val = constructObjectPropertyBool "gtk-can-change-accels" val + +data SettingsGtkCanChangeAccelsPropertyInfo +instance AttrInfo SettingsGtkCanChangeAccelsPropertyInfo where + type AttrAllowedOps SettingsGtkCanChangeAccelsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkCanChangeAccelsPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsGtkCanChangeAccelsPropertyInfo = SettingsK + type AttrGetType SettingsGtkCanChangeAccelsPropertyInfo = Bool + type AttrLabel SettingsGtkCanChangeAccelsPropertyInfo = "gtk-can-change-accels" + attrGet _ = getSettingsGtkCanChangeAccels + attrSet _ = setSettingsGtkCanChangeAccels + attrConstruct _ = constructSettingsGtkCanChangeAccels + attrClear _ = undefined + +-- VVV Prop "gtk-color-palette" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkColorPalette :: (MonadIO m, SettingsK o) => o -> m (Maybe T.Text) +getSettingsGtkColorPalette obj = liftIO $ getObjectPropertyString obj "gtk-color-palette" + +setSettingsGtkColorPalette :: (MonadIO m, SettingsK o) => o -> T.Text -> m () +setSettingsGtkColorPalette obj val = liftIO $ setObjectPropertyString obj "gtk-color-palette" (Just val) + +constructSettingsGtkColorPalette :: T.Text -> IO ([Char], GValue) +constructSettingsGtkColorPalette val = constructObjectPropertyString "gtk-color-palette" (Just val) + +clearSettingsGtkColorPalette :: (MonadIO m, SettingsK o) => o -> m () +clearSettingsGtkColorPalette obj = liftIO $ setObjectPropertyString obj "gtk-color-palette" (Nothing :: Maybe T.Text) + +data SettingsGtkColorPalettePropertyInfo +instance AttrInfo SettingsGtkColorPalettePropertyInfo where + type AttrAllowedOps SettingsGtkColorPalettePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint SettingsGtkColorPalettePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint SettingsGtkColorPalettePropertyInfo = SettingsK + type AttrGetType SettingsGtkColorPalettePropertyInfo = (Maybe T.Text) + type AttrLabel SettingsGtkColorPalettePropertyInfo = "gtk-color-palette" + attrGet _ = getSettingsGtkColorPalette + attrSet _ = setSettingsGtkColorPalette + attrConstruct _ = constructSettingsGtkColorPalette + attrClear _ = clearSettingsGtkColorPalette + +-- VVV Prop "gtk-color-scheme" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkColorScheme :: (MonadIO m, SettingsK o) => o -> m (Maybe T.Text) +getSettingsGtkColorScheme obj = liftIO $ getObjectPropertyString obj "gtk-color-scheme" + +setSettingsGtkColorScheme :: (MonadIO m, SettingsK o) => o -> T.Text -> m () +setSettingsGtkColorScheme obj val = liftIO $ setObjectPropertyString obj "gtk-color-scheme" (Just val) + +constructSettingsGtkColorScheme :: T.Text -> IO ([Char], GValue) +constructSettingsGtkColorScheme val = constructObjectPropertyString "gtk-color-scheme" (Just val) + +clearSettingsGtkColorScheme :: (MonadIO m, SettingsK o) => o -> m () +clearSettingsGtkColorScheme obj = liftIO $ setObjectPropertyString obj "gtk-color-scheme" (Nothing :: Maybe T.Text) + +data SettingsGtkColorSchemePropertyInfo +instance AttrInfo SettingsGtkColorSchemePropertyInfo where + type AttrAllowedOps SettingsGtkColorSchemePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint SettingsGtkColorSchemePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint SettingsGtkColorSchemePropertyInfo = SettingsK + type AttrGetType SettingsGtkColorSchemePropertyInfo = (Maybe T.Text) + type AttrLabel SettingsGtkColorSchemePropertyInfo = "gtk-color-scheme" + attrGet _ = getSettingsGtkColorScheme + attrSet _ = setSettingsGtkColorScheme + attrConstruct _ = constructSettingsGtkColorScheme + attrClear _ = clearSettingsGtkColorScheme + +-- VVV Prop "gtk-cursor-blink" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkCursorBlink :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsGtkCursorBlink obj = liftIO $ getObjectPropertyBool obj "gtk-cursor-blink" + +setSettingsGtkCursorBlink :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsGtkCursorBlink obj val = liftIO $ setObjectPropertyBool obj "gtk-cursor-blink" val + +constructSettingsGtkCursorBlink :: Bool -> IO ([Char], GValue) +constructSettingsGtkCursorBlink val = constructObjectPropertyBool "gtk-cursor-blink" val + +data SettingsGtkCursorBlinkPropertyInfo +instance AttrInfo SettingsGtkCursorBlinkPropertyInfo where + type AttrAllowedOps SettingsGtkCursorBlinkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkCursorBlinkPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsGtkCursorBlinkPropertyInfo = SettingsK + type AttrGetType SettingsGtkCursorBlinkPropertyInfo = Bool + type AttrLabel SettingsGtkCursorBlinkPropertyInfo = "gtk-cursor-blink" + attrGet _ = getSettingsGtkCursorBlink + attrSet _ = setSettingsGtkCursorBlink + attrConstruct _ = constructSettingsGtkCursorBlink + attrClear _ = undefined + +-- VVV Prop "gtk-cursor-blink-time" + -- Type: TBasicType TInt + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkCursorBlinkTime :: (MonadIO m, SettingsK o) => o -> m Int32 +getSettingsGtkCursorBlinkTime obj = liftIO $ getObjectPropertyInt32 obj "gtk-cursor-blink-time" + +setSettingsGtkCursorBlinkTime :: (MonadIO m, SettingsK o) => o -> Int32 -> m () +setSettingsGtkCursorBlinkTime obj val = liftIO $ setObjectPropertyInt32 obj "gtk-cursor-blink-time" val + +constructSettingsGtkCursorBlinkTime :: Int32 -> IO ([Char], GValue) +constructSettingsGtkCursorBlinkTime val = constructObjectPropertyInt32 "gtk-cursor-blink-time" val + +data SettingsGtkCursorBlinkTimePropertyInfo +instance AttrInfo SettingsGtkCursorBlinkTimePropertyInfo where + type AttrAllowedOps SettingsGtkCursorBlinkTimePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkCursorBlinkTimePropertyInfo = (~) Int32 + type AttrBaseTypeConstraint SettingsGtkCursorBlinkTimePropertyInfo = SettingsK + type AttrGetType SettingsGtkCursorBlinkTimePropertyInfo = Int32 + type AttrLabel SettingsGtkCursorBlinkTimePropertyInfo = "gtk-cursor-blink-time" + attrGet _ = getSettingsGtkCursorBlinkTime + attrSet _ = setSettingsGtkCursorBlinkTime + attrConstruct _ = constructSettingsGtkCursorBlinkTime + attrClear _ = undefined + +-- VVV Prop "gtk-cursor-blink-timeout" + -- Type: TBasicType TInt + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkCursorBlinkTimeout :: (MonadIO m, SettingsK o) => o -> m Int32 +getSettingsGtkCursorBlinkTimeout obj = liftIO $ getObjectPropertyInt32 obj "gtk-cursor-blink-timeout" + +setSettingsGtkCursorBlinkTimeout :: (MonadIO m, SettingsK o) => o -> Int32 -> m () +setSettingsGtkCursorBlinkTimeout obj val = liftIO $ setObjectPropertyInt32 obj "gtk-cursor-blink-timeout" val + +constructSettingsGtkCursorBlinkTimeout :: Int32 -> IO ([Char], GValue) +constructSettingsGtkCursorBlinkTimeout val = constructObjectPropertyInt32 "gtk-cursor-blink-timeout" val + +data SettingsGtkCursorBlinkTimeoutPropertyInfo +instance AttrInfo SettingsGtkCursorBlinkTimeoutPropertyInfo where + type AttrAllowedOps SettingsGtkCursorBlinkTimeoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkCursorBlinkTimeoutPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint SettingsGtkCursorBlinkTimeoutPropertyInfo = SettingsK + type AttrGetType SettingsGtkCursorBlinkTimeoutPropertyInfo = Int32 + type AttrLabel SettingsGtkCursorBlinkTimeoutPropertyInfo = "gtk-cursor-blink-timeout" + attrGet _ = getSettingsGtkCursorBlinkTimeout + attrSet _ = setSettingsGtkCursorBlinkTimeout + attrConstruct _ = constructSettingsGtkCursorBlinkTimeout + attrClear _ = undefined + +-- VVV Prop "gtk-cursor-theme-name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkCursorThemeName :: (MonadIO m, SettingsK o) => o -> m (Maybe T.Text) +getSettingsGtkCursorThemeName obj = liftIO $ getObjectPropertyString obj "gtk-cursor-theme-name" + +setSettingsGtkCursorThemeName :: (MonadIO m, SettingsK o) => o -> T.Text -> m () +setSettingsGtkCursorThemeName obj val = liftIO $ setObjectPropertyString obj "gtk-cursor-theme-name" (Just val) + +constructSettingsGtkCursorThemeName :: T.Text -> IO ([Char], GValue) +constructSettingsGtkCursorThemeName val = constructObjectPropertyString "gtk-cursor-theme-name" (Just val) + +clearSettingsGtkCursorThemeName :: (MonadIO m, SettingsK o) => o -> m () +clearSettingsGtkCursorThemeName obj = liftIO $ setObjectPropertyString obj "gtk-cursor-theme-name" (Nothing :: Maybe T.Text) + +data SettingsGtkCursorThemeNamePropertyInfo +instance AttrInfo SettingsGtkCursorThemeNamePropertyInfo where + type AttrAllowedOps SettingsGtkCursorThemeNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint SettingsGtkCursorThemeNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint SettingsGtkCursorThemeNamePropertyInfo = SettingsK + type AttrGetType SettingsGtkCursorThemeNamePropertyInfo = (Maybe T.Text) + type AttrLabel SettingsGtkCursorThemeNamePropertyInfo = "gtk-cursor-theme-name" + attrGet _ = getSettingsGtkCursorThemeName + attrSet _ = setSettingsGtkCursorThemeName + attrConstruct _ = constructSettingsGtkCursorThemeName + attrClear _ = clearSettingsGtkCursorThemeName + +-- VVV Prop "gtk-cursor-theme-size" + -- Type: TBasicType TInt + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkCursorThemeSize :: (MonadIO m, SettingsK o) => o -> m Int32 +getSettingsGtkCursorThemeSize obj = liftIO $ getObjectPropertyInt32 obj "gtk-cursor-theme-size" + +setSettingsGtkCursorThemeSize :: (MonadIO m, SettingsK o) => o -> Int32 -> m () +setSettingsGtkCursorThemeSize obj val = liftIO $ setObjectPropertyInt32 obj "gtk-cursor-theme-size" val + +constructSettingsGtkCursorThemeSize :: Int32 -> IO ([Char], GValue) +constructSettingsGtkCursorThemeSize val = constructObjectPropertyInt32 "gtk-cursor-theme-size" val + +data SettingsGtkCursorThemeSizePropertyInfo +instance AttrInfo SettingsGtkCursorThemeSizePropertyInfo where + type AttrAllowedOps SettingsGtkCursorThemeSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkCursorThemeSizePropertyInfo = (~) Int32 + type AttrBaseTypeConstraint SettingsGtkCursorThemeSizePropertyInfo = SettingsK + type AttrGetType SettingsGtkCursorThemeSizePropertyInfo = Int32 + type AttrLabel SettingsGtkCursorThemeSizePropertyInfo = "gtk-cursor-theme-size" + attrGet _ = getSettingsGtkCursorThemeSize + attrSet _ = setSettingsGtkCursorThemeSize + attrConstruct _ = constructSettingsGtkCursorThemeSize + attrClear _ = undefined + +-- VVV Prop "gtk-decoration-layout" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkDecorationLayout :: (MonadIO m, SettingsK o) => o -> m (Maybe T.Text) +getSettingsGtkDecorationLayout obj = liftIO $ getObjectPropertyString obj "gtk-decoration-layout" + +setSettingsGtkDecorationLayout :: (MonadIO m, SettingsK o) => o -> T.Text -> m () +setSettingsGtkDecorationLayout obj val = liftIO $ setObjectPropertyString obj "gtk-decoration-layout" (Just val) + +constructSettingsGtkDecorationLayout :: T.Text -> IO ([Char], GValue) +constructSettingsGtkDecorationLayout val = constructObjectPropertyString "gtk-decoration-layout" (Just val) + +clearSettingsGtkDecorationLayout :: (MonadIO m, SettingsK o) => o -> m () +clearSettingsGtkDecorationLayout obj = liftIO $ setObjectPropertyString obj "gtk-decoration-layout" (Nothing :: Maybe T.Text) + +data SettingsGtkDecorationLayoutPropertyInfo +instance AttrInfo SettingsGtkDecorationLayoutPropertyInfo where + type AttrAllowedOps SettingsGtkDecorationLayoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint SettingsGtkDecorationLayoutPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint SettingsGtkDecorationLayoutPropertyInfo = SettingsK + type AttrGetType SettingsGtkDecorationLayoutPropertyInfo = (Maybe T.Text) + type AttrLabel SettingsGtkDecorationLayoutPropertyInfo = "gtk-decoration-layout" + attrGet _ = getSettingsGtkDecorationLayout + attrSet _ = setSettingsGtkDecorationLayout + attrConstruct _ = constructSettingsGtkDecorationLayout + attrClear _ = clearSettingsGtkDecorationLayout + +-- VVV Prop "gtk-dialogs-use-header" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkDialogsUseHeader :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsGtkDialogsUseHeader obj = liftIO $ getObjectPropertyBool obj "gtk-dialogs-use-header" + +setSettingsGtkDialogsUseHeader :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsGtkDialogsUseHeader obj val = liftIO $ setObjectPropertyBool obj "gtk-dialogs-use-header" val + +constructSettingsGtkDialogsUseHeader :: Bool -> IO ([Char], GValue) +constructSettingsGtkDialogsUseHeader val = constructObjectPropertyBool "gtk-dialogs-use-header" val + +data SettingsGtkDialogsUseHeaderPropertyInfo +instance AttrInfo SettingsGtkDialogsUseHeaderPropertyInfo where + type AttrAllowedOps SettingsGtkDialogsUseHeaderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkDialogsUseHeaderPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsGtkDialogsUseHeaderPropertyInfo = SettingsK + type AttrGetType SettingsGtkDialogsUseHeaderPropertyInfo = Bool + type AttrLabel SettingsGtkDialogsUseHeaderPropertyInfo = "gtk-dialogs-use-header" + attrGet _ = getSettingsGtkDialogsUseHeader + attrSet _ = setSettingsGtkDialogsUseHeader + attrConstruct _ = constructSettingsGtkDialogsUseHeader + attrClear _ = undefined + +-- VVV Prop "gtk-dnd-drag-threshold" + -- Type: TBasicType TInt + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkDndDragThreshold :: (MonadIO m, SettingsK o) => o -> m Int32 +getSettingsGtkDndDragThreshold obj = liftIO $ getObjectPropertyInt32 obj "gtk-dnd-drag-threshold" + +setSettingsGtkDndDragThreshold :: (MonadIO m, SettingsK o) => o -> Int32 -> m () +setSettingsGtkDndDragThreshold obj val = liftIO $ setObjectPropertyInt32 obj "gtk-dnd-drag-threshold" val + +constructSettingsGtkDndDragThreshold :: Int32 -> IO ([Char], GValue) +constructSettingsGtkDndDragThreshold val = constructObjectPropertyInt32 "gtk-dnd-drag-threshold" val + +data SettingsGtkDndDragThresholdPropertyInfo +instance AttrInfo SettingsGtkDndDragThresholdPropertyInfo where + type AttrAllowedOps SettingsGtkDndDragThresholdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkDndDragThresholdPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint SettingsGtkDndDragThresholdPropertyInfo = SettingsK + type AttrGetType SettingsGtkDndDragThresholdPropertyInfo = Int32 + type AttrLabel SettingsGtkDndDragThresholdPropertyInfo = "gtk-dnd-drag-threshold" + attrGet _ = getSettingsGtkDndDragThreshold + attrSet _ = setSettingsGtkDndDragThreshold + attrConstruct _ = constructSettingsGtkDndDragThreshold + attrClear _ = undefined + +-- VVV Prop "gtk-double-click-distance" + -- Type: TBasicType TInt + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkDoubleClickDistance :: (MonadIO m, SettingsK o) => o -> m Int32 +getSettingsGtkDoubleClickDistance obj = liftIO $ getObjectPropertyInt32 obj "gtk-double-click-distance" + +setSettingsGtkDoubleClickDistance :: (MonadIO m, SettingsK o) => o -> Int32 -> m () +setSettingsGtkDoubleClickDistance obj val = liftIO $ setObjectPropertyInt32 obj "gtk-double-click-distance" val + +constructSettingsGtkDoubleClickDistance :: Int32 -> IO ([Char], GValue) +constructSettingsGtkDoubleClickDistance val = constructObjectPropertyInt32 "gtk-double-click-distance" val + +data SettingsGtkDoubleClickDistancePropertyInfo +instance AttrInfo SettingsGtkDoubleClickDistancePropertyInfo where + type AttrAllowedOps SettingsGtkDoubleClickDistancePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkDoubleClickDistancePropertyInfo = (~) Int32 + type AttrBaseTypeConstraint SettingsGtkDoubleClickDistancePropertyInfo = SettingsK + type AttrGetType SettingsGtkDoubleClickDistancePropertyInfo = Int32 + type AttrLabel SettingsGtkDoubleClickDistancePropertyInfo = "gtk-double-click-distance" + attrGet _ = getSettingsGtkDoubleClickDistance + attrSet _ = setSettingsGtkDoubleClickDistance + attrConstruct _ = constructSettingsGtkDoubleClickDistance + attrClear _ = undefined + +-- VVV Prop "gtk-double-click-time" + -- Type: TBasicType TInt + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkDoubleClickTime :: (MonadIO m, SettingsK o) => o -> m Int32 +getSettingsGtkDoubleClickTime obj = liftIO $ getObjectPropertyInt32 obj "gtk-double-click-time" + +setSettingsGtkDoubleClickTime :: (MonadIO m, SettingsK o) => o -> Int32 -> m () +setSettingsGtkDoubleClickTime obj val = liftIO $ setObjectPropertyInt32 obj "gtk-double-click-time" val + +constructSettingsGtkDoubleClickTime :: Int32 -> IO ([Char], GValue) +constructSettingsGtkDoubleClickTime val = constructObjectPropertyInt32 "gtk-double-click-time" val + +data SettingsGtkDoubleClickTimePropertyInfo +instance AttrInfo SettingsGtkDoubleClickTimePropertyInfo where + type AttrAllowedOps SettingsGtkDoubleClickTimePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkDoubleClickTimePropertyInfo = (~) Int32 + type AttrBaseTypeConstraint SettingsGtkDoubleClickTimePropertyInfo = SettingsK + type AttrGetType SettingsGtkDoubleClickTimePropertyInfo = Int32 + type AttrLabel SettingsGtkDoubleClickTimePropertyInfo = "gtk-double-click-time" + attrGet _ = getSettingsGtkDoubleClickTime + attrSet _ = setSettingsGtkDoubleClickTime + attrConstruct _ = constructSettingsGtkDoubleClickTime + attrClear _ = undefined + +-- VVV Prop "gtk-enable-accels" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkEnableAccels :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsGtkEnableAccels obj = liftIO $ getObjectPropertyBool obj "gtk-enable-accels" + +setSettingsGtkEnableAccels :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsGtkEnableAccels obj val = liftIO $ setObjectPropertyBool obj "gtk-enable-accels" val + +constructSettingsGtkEnableAccels :: Bool -> IO ([Char], GValue) +constructSettingsGtkEnableAccels val = constructObjectPropertyBool "gtk-enable-accels" val + +data SettingsGtkEnableAccelsPropertyInfo +instance AttrInfo SettingsGtkEnableAccelsPropertyInfo where + type AttrAllowedOps SettingsGtkEnableAccelsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkEnableAccelsPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsGtkEnableAccelsPropertyInfo = SettingsK + type AttrGetType SettingsGtkEnableAccelsPropertyInfo = Bool + type AttrLabel SettingsGtkEnableAccelsPropertyInfo = "gtk-enable-accels" + attrGet _ = getSettingsGtkEnableAccels + attrSet _ = setSettingsGtkEnableAccels + attrConstruct _ = constructSettingsGtkEnableAccels + attrClear _ = undefined + +-- VVV Prop "gtk-enable-animations" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkEnableAnimations :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsGtkEnableAnimations obj = liftIO $ getObjectPropertyBool obj "gtk-enable-animations" + +setSettingsGtkEnableAnimations :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsGtkEnableAnimations obj val = liftIO $ setObjectPropertyBool obj "gtk-enable-animations" val + +constructSettingsGtkEnableAnimations :: Bool -> IO ([Char], GValue) +constructSettingsGtkEnableAnimations val = constructObjectPropertyBool "gtk-enable-animations" val + +data SettingsGtkEnableAnimationsPropertyInfo +instance AttrInfo SettingsGtkEnableAnimationsPropertyInfo where + type AttrAllowedOps SettingsGtkEnableAnimationsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkEnableAnimationsPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsGtkEnableAnimationsPropertyInfo = SettingsK + type AttrGetType SettingsGtkEnableAnimationsPropertyInfo = Bool + type AttrLabel SettingsGtkEnableAnimationsPropertyInfo = "gtk-enable-animations" + attrGet _ = getSettingsGtkEnableAnimations + attrSet _ = setSettingsGtkEnableAnimations + attrConstruct _ = constructSettingsGtkEnableAnimations + attrClear _ = undefined + +-- VVV Prop "gtk-enable-event-sounds" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkEnableEventSounds :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsGtkEnableEventSounds obj = liftIO $ getObjectPropertyBool obj "gtk-enable-event-sounds" + +setSettingsGtkEnableEventSounds :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsGtkEnableEventSounds obj val = liftIO $ setObjectPropertyBool obj "gtk-enable-event-sounds" val + +constructSettingsGtkEnableEventSounds :: Bool -> IO ([Char], GValue) +constructSettingsGtkEnableEventSounds val = constructObjectPropertyBool "gtk-enable-event-sounds" val + +data SettingsGtkEnableEventSoundsPropertyInfo +instance AttrInfo SettingsGtkEnableEventSoundsPropertyInfo where + type AttrAllowedOps SettingsGtkEnableEventSoundsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkEnableEventSoundsPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsGtkEnableEventSoundsPropertyInfo = SettingsK + type AttrGetType SettingsGtkEnableEventSoundsPropertyInfo = Bool + type AttrLabel SettingsGtkEnableEventSoundsPropertyInfo = "gtk-enable-event-sounds" + attrGet _ = getSettingsGtkEnableEventSounds + attrSet _ = setSettingsGtkEnableEventSounds + attrConstruct _ = constructSettingsGtkEnableEventSounds + attrClear _ = undefined + +-- VVV Prop "gtk-enable-input-feedback-sounds" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkEnableInputFeedbackSounds :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsGtkEnableInputFeedbackSounds obj = liftIO $ getObjectPropertyBool obj "gtk-enable-input-feedback-sounds" + +setSettingsGtkEnableInputFeedbackSounds :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsGtkEnableInputFeedbackSounds obj val = liftIO $ setObjectPropertyBool obj "gtk-enable-input-feedback-sounds" val + +constructSettingsGtkEnableInputFeedbackSounds :: Bool -> IO ([Char], GValue) +constructSettingsGtkEnableInputFeedbackSounds val = constructObjectPropertyBool "gtk-enable-input-feedback-sounds" val + +data SettingsGtkEnableInputFeedbackSoundsPropertyInfo +instance AttrInfo SettingsGtkEnableInputFeedbackSoundsPropertyInfo where + type AttrAllowedOps SettingsGtkEnableInputFeedbackSoundsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkEnableInputFeedbackSoundsPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsGtkEnableInputFeedbackSoundsPropertyInfo = SettingsK + type AttrGetType SettingsGtkEnableInputFeedbackSoundsPropertyInfo = Bool + type AttrLabel SettingsGtkEnableInputFeedbackSoundsPropertyInfo = "gtk-enable-input-feedback-sounds" + attrGet _ = getSettingsGtkEnableInputFeedbackSounds + attrSet _ = setSettingsGtkEnableInputFeedbackSounds + attrConstruct _ = constructSettingsGtkEnableInputFeedbackSounds + attrClear _ = undefined + +-- VVV Prop "gtk-enable-mnemonics" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkEnableMnemonics :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsGtkEnableMnemonics obj = liftIO $ getObjectPropertyBool obj "gtk-enable-mnemonics" + +setSettingsGtkEnableMnemonics :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsGtkEnableMnemonics obj val = liftIO $ setObjectPropertyBool obj "gtk-enable-mnemonics" val + +constructSettingsGtkEnableMnemonics :: Bool -> IO ([Char], GValue) +constructSettingsGtkEnableMnemonics val = constructObjectPropertyBool "gtk-enable-mnemonics" val + +data SettingsGtkEnableMnemonicsPropertyInfo +instance AttrInfo SettingsGtkEnableMnemonicsPropertyInfo where + type AttrAllowedOps SettingsGtkEnableMnemonicsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkEnableMnemonicsPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsGtkEnableMnemonicsPropertyInfo = SettingsK + type AttrGetType SettingsGtkEnableMnemonicsPropertyInfo = Bool + type AttrLabel SettingsGtkEnableMnemonicsPropertyInfo = "gtk-enable-mnemonics" + attrGet _ = getSettingsGtkEnableMnemonics + attrSet _ = setSettingsGtkEnableMnemonics + attrConstruct _ = constructSettingsGtkEnableMnemonics + attrClear _ = undefined + +-- VVV Prop "gtk-enable-primary-paste" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkEnablePrimaryPaste :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsGtkEnablePrimaryPaste obj = liftIO $ getObjectPropertyBool obj "gtk-enable-primary-paste" + +setSettingsGtkEnablePrimaryPaste :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsGtkEnablePrimaryPaste obj val = liftIO $ setObjectPropertyBool obj "gtk-enable-primary-paste" val + +constructSettingsGtkEnablePrimaryPaste :: Bool -> IO ([Char], GValue) +constructSettingsGtkEnablePrimaryPaste val = constructObjectPropertyBool "gtk-enable-primary-paste" val + +data SettingsGtkEnablePrimaryPastePropertyInfo +instance AttrInfo SettingsGtkEnablePrimaryPastePropertyInfo where + type AttrAllowedOps SettingsGtkEnablePrimaryPastePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkEnablePrimaryPastePropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsGtkEnablePrimaryPastePropertyInfo = SettingsK + type AttrGetType SettingsGtkEnablePrimaryPastePropertyInfo = Bool + type AttrLabel SettingsGtkEnablePrimaryPastePropertyInfo = "gtk-enable-primary-paste" + attrGet _ = getSettingsGtkEnablePrimaryPaste + attrSet _ = setSettingsGtkEnablePrimaryPaste + attrConstruct _ = constructSettingsGtkEnablePrimaryPaste + attrClear _ = undefined + +-- VVV Prop "gtk-enable-tooltips" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkEnableTooltips :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsGtkEnableTooltips obj = liftIO $ getObjectPropertyBool obj "gtk-enable-tooltips" + +setSettingsGtkEnableTooltips :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsGtkEnableTooltips obj val = liftIO $ setObjectPropertyBool obj "gtk-enable-tooltips" val + +constructSettingsGtkEnableTooltips :: Bool -> IO ([Char], GValue) +constructSettingsGtkEnableTooltips val = constructObjectPropertyBool "gtk-enable-tooltips" val + +data SettingsGtkEnableTooltipsPropertyInfo +instance AttrInfo SettingsGtkEnableTooltipsPropertyInfo where + type AttrAllowedOps SettingsGtkEnableTooltipsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkEnableTooltipsPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsGtkEnableTooltipsPropertyInfo = SettingsK + type AttrGetType SettingsGtkEnableTooltipsPropertyInfo = Bool + type AttrLabel SettingsGtkEnableTooltipsPropertyInfo = "gtk-enable-tooltips" + attrGet _ = getSettingsGtkEnableTooltips + attrSet _ = setSettingsGtkEnableTooltips + attrConstruct _ = constructSettingsGtkEnableTooltips + attrClear _ = undefined + +-- VVV Prop "gtk-entry-password-hint-timeout" + -- Type: TBasicType TUInt + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkEntryPasswordHintTimeout :: (MonadIO m, SettingsK o) => o -> m Word32 +getSettingsGtkEntryPasswordHintTimeout obj = liftIO $ getObjectPropertyUInt32 obj "gtk-entry-password-hint-timeout" + +setSettingsGtkEntryPasswordHintTimeout :: (MonadIO m, SettingsK o) => o -> Word32 -> m () +setSettingsGtkEntryPasswordHintTimeout obj val = liftIO $ setObjectPropertyUInt32 obj "gtk-entry-password-hint-timeout" val + +constructSettingsGtkEntryPasswordHintTimeout :: Word32 -> IO ([Char], GValue) +constructSettingsGtkEntryPasswordHintTimeout val = constructObjectPropertyUInt32 "gtk-entry-password-hint-timeout" val + +data SettingsGtkEntryPasswordHintTimeoutPropertyInfo +instance AttrInfo SettingsGtkEntryPasswordHintTimeoutPropertyInfo where + type AttrAllowedOps SettingsGtkEntryPasswordHintTimeoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkEntryPasswordHintTimeoutPropertyInfo = (~) Word32 + type AttrBaseTypeConstraint SettingsGtkEntryPasswordHintTimeoutPropertyInfo = SettingsK + type AttrGetType SettingsGtkEntryPasswordHintTimeoutPropertyInfo = Word32 + type AttrLabel SettingsGtkEntryPasswordHintTimeoutPropertyInfo = "gtk-entry-password-hint-timeout" + attrGet _ = getSettingsGtkEntryPasswordHintTimeout + attrSet _ = setSettingsGtkEntryPasswordHintTimeout + attrConstruct _ = constructSettingsGtkEntryPasswordHintTimeout + attrClear _ = undefined + +-- VVV Prop "gtk-entry-select-on-focus" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkEntrySelectOnFocus :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsGtkEntrySelectOnFocus obj = liftIO $ getObjectPropertyBool obj "gtk-entry-select-on-focus" + +setSettingsGtkEntrySelectOnFocus :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsGtkEntrySelectOnFocus obj val = liftIO $ setObjectPropertyBool obj "gtk-entry-select-on-focus" val + +constructSettingsGtkEntrySelectOnFocus :: Bool -> IO ([Char], GValue) +constructSettingsGtkEntrySelectOnFocus val = constructObjectPropertyBool "gtk-entry-select-on-focus" val + +data SettingsGtkEntrySelectOnFocusPropertyInfo +instance AttrInfo SettingsGtkEntrySelectOnFocusPropertyInfo where + type AttrAllowedOps SettingsGtkEntrySelectOnFocusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkEntrySelectOnFocusPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsGtkEntrySelectOnFocusPropertyInfo = SettingsK + type AttrGetType SettingsGtkEntrySelectOnFocusPropertyInfo = Bool + type AttrLabel SettingsGtkEntrySelectOnFocusPropertyInfo = "gtk-entry-select-on-focus" + attrGet _ = getSettingsGtkEntrySelectOnFocus + attrSet _ = setSettingsGtkEntrySelectOnFocus + attrConstruct _ = constructSettingsGtkEntrySelectOnFocus + attrClear _ = undefined + +-- VVV Prop "gtk-error-bell" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkErrorBell :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsGtkErrorBell obj = liftIO $ getObjectPropertyBool obj "gtk-error-bell" + +setSettingsGtkErrorBell :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsGtkErrorBell obj val = liftIO $ setObjectPropertyBool obj "gtk-error-bell" val + +constructSettingsGtkErrorBell :: Bool -> IO ([Char], GValue) +constructSettingsGtkErrorBell val = constructObjectPropertyBool "gtk-error-bell" val + +data SettingsGtkErrorBellPropertyInfo +instance AttrInfo SettingsGtkErrorBellPropertyInfo where + type AttrAllowedOps SettingsGtkErrorBellPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkErrorBellPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsGtkErrorBellPropertyInfo = SettingsK + type AttrGetType SettingsGtkErrorBellPropertyInfo = Bool + type AttrLabel SettingsGtkErrorBellPropertyInfo = "gtk-error-bell" + attrGet _ = getSettingsGtkErrorBell + attrSet _ = setSettingsGtkErrorBell + attrConstruct _ = constructSettingsGtkErrorBell + attrClear _ = undefined + +-- VVV Prop "gtk-fallback-icon-theme" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkFallbackIconTheme :: (MonadIO m, SettingsK o) => o -> m (Maybe T.Text) +getSettingsGtkFallbackIconTheme obj = liftIO $ getObjectPropertyString obj "gtk-fallback-icon-theme" + +setSettingsGtkFallbackIconTheme :: (MonadIO m, SettingsK o) => o -> T.Text -> m () +setSettingsGtkFallbackIconTheme obj val = liftIO $ setObjectPropertyString obj "gtk-fallback-icon-theme" (Just val) + +constructSettingsGtkFallbackIconTheme :: T.Text -> IO ([Char], GValue) +constructSettingsGtkFallbackIconTheme val = constructObjectPropertyString "gtk-fallback-icon-theme" (Just val) + +clearSettingsGtkFallbackIconTheme :: (MonadIO m, SettingsK o) => o -> m () +clearSettingsGtkFallbackIconTheme obj = liftIO $ setObjectPropertyString obj "gtk-fallback-icon-theme" (Nothing :: Maybe T.Text) + +data SettingsGtkFallbackIconThemePropertyInfo +instance AttrInfo SettingsGtkFallbackIconThemePropertyInfo where + type AttrAllowedOps SettingsGtkFallbackIconThemePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint SettingsGtkFallbackIconThemePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint SettingsGtkFallbackIconThemePropertyInfo = SettingsK + type AttrGetType SettingsGtkFallbackIconThemePropertyInfo = (Maybe T.Text) + type AttrLabel SettingsGtkFallbackIconThemePropertyInfo = "gtk-fallback-icon-theme" + attrGet _ = getSettingsGtkFallbackIconTheme + attrSet _ = setSettingsGtkFallbackIconTheme + attrConstruct _ = constructSettingsGtkFallbackIconTheme + attrClear _ = clearSettingsGtkFallbackIconTheme + +-- VVV Prop "gtk-file-chooser-backend" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkFileChooserBackend :: (MonadIO m, SettingsK o) => o -> m (Maybe T.Text) +getSettingsGtkFileChooserBackend obj = liftIO $ getObjectPropertyString obj "gtk-file-chooser-backend" + +setSettingsGtkFileChooserBackend :: (MonadIO m, SettingsK o) => o -> T.Text -> m () +setSettingsGtkFileChooserBackend obj val = liftIO $ setObjectPropertyString obj "gtk-file-chooser-backend" (Just val) + +constructSettingsGtkFileChooserBackend :: T.Text -> IO ([Char], GValue) +constructSettingsGtkFileChooserBackend val = constructObjectPropertyString "gtk-file-chooser-backend" (Just val) + +clearSettingsGtkFileChooserBackend :: (MonadIO m, SettingsK o) => o -> m () +clearSettingsGtkFileChooserBackend obj = liftIO $ setObjectPropertyString obj "gtk-file-chooser-backend" (Nothing :: Maybe T.Text) + +data SettingsGtkFileChooserBackendPropertyInfo +instance AttrInfo SettingsGtkFileChooserBackendPropertyInfo where + type AttrAllowedOps SettingsGtkFileChooserBackendPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint SettingsGtkFileChooserBackendPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint SettingsGtkFileChooserBackendPropertyInfo = SettingsK + type AttrGetType SettingsGtkFileChooserBackendPropertyInfo = (Maybe T.Text) + type AttrLabel SettingsGtkFileChooserBackendPropertyInfo = "gtk-file-chooser-backend" + attrGet _ = getSettingsGtkFileChooserBackend + attrSet _ = setSettingsGtkFileChooserBackend + attrConstruct _ = constructSettingsGtkFileChooserBackend + attrClear _ = clearSettingsGtkFileChooserBackend + +-- VVV Prop "gtk-font-name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkFontName :: (MonadIO m, SettingsK o) => o -> m (Maybe T.Text) +getSettingsGtkFontName obj = liftIO $ getObjectPropertyString obj "gtk-font-name" + +setSettingsGtkFontName :: (MonadIO m, SettingsK o) => o -> T.Text -> m () +setSettingsGtkFontName obj val = liftIO $ setObjectPropertyString obj "gtk-font-name" (Just val) + +constructSettingsGtkFontName :: T.Text -> IO ([Char], GValue) +constructSettingsGtkFontName val = constructObjectPropertyString "gtk-font-name" (Just val) + +clearSettingsGtkFontName :: (MonadIO m, SettingsK o) => o -> m () +clearSettingsGtkFontName obj = liftIO $ setObjectPropertyString obj "gtk-font-name" (Nothing :: Maybe T.Text) + +data SettingsGtkFontNamePropertyInfo +instance AttrInfo SettingsGtkFontNamePropertyInfo where + type AttrAllowedOps SettingsGtkFontNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint SettingsGtkFontNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint SettingsGtkFontNamePropertyInfo = SettingsK + type AttrGetType SettingsGtkFontNamePropertyInfo = (Maybe T.Text) + type AttrLabel SettingsGtkFontNamePropertyInfo = "gtk-font-name" + attrGet _ = getSettingsGtkFontName + attrSet _ = setSettingsGtkFontName + attrConstruct _ = constructSettingsGtkFontName + attrClear _ = clearSettingsGtkFontName + +-- VVV Prop "gtk-fontconfig-timestamp" + -- Type: TBasicType TUInt + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkFontconfigTimestamp :: (MonadIO m, SettingsK o) => o -> m Word32 +getSettingsGtkFontconfigTimestamp obj = liftIO $ getObjectPropertyUInt32 obj "gtk-fontconfig-timestamp" + +setSettingsGtkFontconfigTimestamp :: (MonadIO m, SettingsK o) => o -> Word32 -> m () +setSettingsGtkFontconfigTimestamp obj val = liftIO $ setObjectPropertyUInt32 obj "gtk-fontconfig-timestamp" val + +constructSettingsGtkFontconfigTimestamp :: Word32 -> IO ([Char], GValue) +constructSettingsGtkFontconfigTimestamp val = constructObjectPropertyUInt32 "gtk-fontconfig-timestamp" val + +data SettingsGtkFontconfigTimestampPropertyInfo +instance AttrInfo SettingsGtkFontconfigTimestampPropertyInfo where + type AttrAllowedOps SettingsGtkFontconfigTimestampPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkFontconfigTimestampPropertyInfo = (~) Word32 + type AttrBaseTypeConstraint SettingsGtkFontconfigTimestampPropertyInfo = SettingsK + type AttrGetType SettingsGtkFontconfigTimestampPropertyInfo = Word32 + type AttrLabel SettingsGtkFontconfigTimestampPropertyInfo = "gtk-fontconfig-timestamp" + attrGet _ = getSettingsGtkFontconfigTimestamp + attrSet _ = setSettingsGtkFontconfigTimestamp + attrConstruct _ = constructSettingsGtkFontconfigTimestamp + attrClear _ = undefined + +-- VVV Prop "gtk-icon-sizes" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkIconSizes :: (MonadIO m, SettingsK o) => o -> m (Maybe T.Text) +getSettingsGtkIconSizes obj = liftIO $ getObjectPropertyString obj "gtk-icon-sizes" + +setSettingsGtkIconSizes :: (MonadIO m, SettingsK o) => o -> T.Text -> m () +setSettingsGtkIconSizes obj val = liftIO $ setObjectPropertyString obj "gtk-icon-sizes" (Just val) + +constructSettingsGtkIconSizes :: T.Text -> IO ([Char], GValue) +constructSettingsGtkIconSizes val = constructObjectPropertyString "gtk-icon-sizes" (Just val) + +clearSettingsGtkIconSizes :: (MonadIO m, SettingsK o) => o -> m () +clearSettingsGtkIconSizes obj = liftIO $ setObjectPropertyString obj "gtk-icon-sizes" (Nothing :: Maybe T.Text) + +data SettingsGtkIconSizesPropertyInfo +instance AttrInfo SettingsGtkIconSizesPropertyInfo where + type AttrAllowedOps SettingsGtkIconSizesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint SettingsGtkIconSizesPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint SettingsGtkIconSizesPropertyInfo = SettingsK + type AttrGetType SettingsGtkIconSizesPropertyInfo = (Maybe T.Text) + type AttrLabel SettingsGtkIconSizesPropertyInfo = "gtk-icon-sizes" + attrGet _ = getSettingsGtkIconSizes + attrSet _ = setSettingsGtkIconSizes + attrConstruct _ = constructSettingsGtkIconSizes + attrClear _ = clearSettingsGtkIconSizes + +-- VVV Prop "gtk-icon-theme-name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkIconThemeName :: (MonadIO m, SettingsK o) => o -> m (Maybe T.Text) +getSettingsGtkIconThemeName obj = liftIO $ getObjectPropertyString obj "gtk-icon-theme-name" + +setSettingsGtkIconThemeName :: (MonadIO m, SettingsK o) => o -> T.Text -> m () +setSettingsGtkIconThemeName obj val = liftIO $ setObjectPropertyString obj "gtk-icon-theme-name" (Just val) + +constructSettingsGtkIconThemeName :: T.Text -> IO ([Char], GValue) +constructSettingsGtkIconThemeName val = constructObjectPropertyString "gtk-icon-theme-name" (Just val) + +clearSettingsGtkIconThemeName :: (MonadIO m, SettingsK o) => o -> m () +clearSettingsGtkIconThemeName obj = liftIO $ setObjectPropertyString obj "gtk-icon-theme-name" (Nothing :: Maybe T.Text) + +data SettingsGtkIconThemeNamePropertyInfo +instance AttrInfo SettingsGtkIconThemeNamePropertyInfo where + type AttrAllowedOps SettingsGtkIconThemeNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint SettingsGtkIconThemeNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint SettingsGtkIconThemeNamePropertyInfo = SettingsK + type AttrGetType SettingsGtkIconThemeNamePropertyInfo = (Maybe T.Text) + type AttrLabel SettingsGtkIconThemeNamePropertyInfo = "gtk-icon-theme-name" + attrGet _ = getSettingsGtkIconThemeName + attrSet _ = setSettingsGtkIconThemeName + attrConstruct _ = constructSettingsGtkIconThemeName + attrClear _ = clearSettingsGtkIconThemeName + +-- VVV Prop "gtk-im-module" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkImModule :: (MonadIO m, SettingsK o) => o -> m (Maybe T.Text) +getSettingsGtkImModule obj = liftIO $ getObjectPropertyString obj "gtk-im-module" + +setSettingsGtkImModule :: (MonadIO m, SettingsK o) => o -> T.Text -> m () +setSettingsGtkImModule obj val = liftIO $ setObjectPropertyString obj "gtk-im-module" (Just val) + +constructSettingsGtkImModule :: T.Text -> IO ([Char], GValue) +constructSettingsGtkImModule val = constructObjectPropertyString "gtk-im-module" (Just val) + +clearSettingsGtkImModule :: (MonadIO m, SettingsK o) => o -> m () +clearSettingsGtkImModule obj = liftIO $ setObjectPropertyString obj "gtk-im-module" (Nothing :: Maybe T.Text) + +data SettingsGtkImModulePropertyInfo +instance AttrInfo SettingsGtkImModulePropertyInfo where + type AttrAllowedOps SettingsGtkImModulePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint SettingsGtkImModulePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint SettingsGtkImModulePropertyInfo = SettingsK + type AttrGetType SettingsGtkImModulePropertyInfo = (Maybe T.Text) + type AttrLabel SettingsGtkImModulePropertyInfo = "gtk-im-module" + attrGet _ = getSettingsGtkImModule + attrSet _ = setSettingsGtkImModule + attrConstruct _ = constructSettingsGtkImModule + attrClear _ = clearSettingsGtkImModule + +-- VVV Prop "gtk-im-preedit-style" + -- Type: TInterface "Gtk" "IMPreeditStyle" + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkImPreeditStyle :: (MonadIO m, SettingsK o) => o -> m IMPreeditStyle +getSettingsGtkImPreeditStyle obj = liftIO $ getObjectPropertyEnum obj "gtk-im-preedit-style" + +setSettingsGtkImPreeditStyle :: (MonadIO m, SettingsK o) => o -> IMPreeditStyle -> m () +setSettingsGtkImPreeditStyle obj val = liftIO $ setObjectPropertyEnum obj "gtk-im-preedit-style" val + +constructSettingsGtkImPreeditStyle :: IMPreeditStyle -> IO ([Char], GValue) +constructSettingsGtkImPreeditStyle val = constructObjectPropertyEnum "gtk-im-preedit-style" val + +data SettingsGtkImPreeditStylePropertyInfo +instance AttrInfo SettingsGtkImPreeditStylePropertyInfo where + type AttrAllowedOps SettingsGtkImPreeditStylePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkImPreeditStylePropertyInfo = (~) IMPreeditStyle + type AttrBaseTypeConstraint SettingsGtkImPreeditStylePropertyInfo = SettingsK + type AttrGetType SettingsGtkImPreeditStylePropertyInfo = IMPreeditStyle + type AttrLabel SettingsGtkImPreeditStylePropertyInfo = "gtk-im-preedit-style" + attrGet _ = getSettingsGtkImPreeditStyle + attrSet _ = setSettingsGtkImPreeditStyle + attrConstruct _ = constructSettingsGtkImPreeditStyle + attrClear _ = undefined + +-- VVV Prop "gtk-im-status-style" + -- Type: TInterface "Gtk" "IMStatusStyle" + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkImStatusStyle :: (MonadIO m, SettingsK o) => o -> m IMStatusStyle +getSettingsGtkImStatusStyle obj = liftIO $ getObjectPropertyEnum obj "gtk-im-status-style" + +setSettingsGtkImStatusStyle :: (MonadIO m, SettingsK o) => o -> IMStatusStyle -> m () +setSettingsGtkImStatusStyle obj val = liftIO $ setObjectPropertyEnum obj "gtk-im-status-style" val + +constructSettingsGtkImStatusStyle :: IMStatusStyle -> IO ([Char], GValue) +constructSettingsGtkImStatusStyle val = constructObjectPropertyEnum "gtk-im-status-style" val + +data SettingsGtkImStatusStylePropertyInfo +instance AttrInfo SettingsGtkImStatusStylePropertyInfo where + type AttrAllowedOps SettingsGtkImStatusStylePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkImStatusStylePropertyInfo = (~) IMStatusStyle + type AttrBaseTypeConstraint SettingsGtkImStatusStylePropertyInfo = SettingsK + type AttrGetType SettingsGtkImStatusStylePropertyInfo = IMStatusStyle + type AttrLabel SettingsGtkImStatusStylePropertyInfo = "gtk-im-status-style" + attrGet _ = getSettingsGtkImStatusStyle + attrSet _ = setSettingsGtkImStatusStyle + attrConstruct _ = constructSettingsGtkImStatusStyle + attrClear _ = undefined + +-- VVV Prop "gtk-key-theme-name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkKeyThemeName :: (MonadIO m, SettingsK o) => o -> m (Maybe T.Text) +getSettingsGtkKeyThemeName obj = liftIO $ getObjectPropertyString obj "gtk-key-theme-name" + +setSettingsGtkKeyThemeName :: (MonadIO m, SettingsK o) => o -> T.Text -> m () +setSettingsGtkKeyThemeName obj val = liftIO $ setObjectPropertyString obj "gtk-key-theme-name" (Just val) + +constructSettingsGtkKeyThemeName :: T.Text -> IO ([Char], GValue) +constructSettingsGtkKeyThemeName val = constructObjectPropertyString "gtk-key-theme-name" (Just val) + +clearSettingsGtkKeyThemeName :: (MonadIO m, SettingsK o) => o -> m () +clearSettingsGtkKeyThemeName obj = liftIO $ setObjectPropertyString obj "gtk-key-theme-name" (Nothing :: Maybe T.Text) + +data SettingsGtkKeyThemeNamePropertyInfo +instance AttrInfo SettingsGtkKeyThemeNamePropertyInfo where + type AttrAllowedOps SettingsGtkKeyThemeNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint SettingsGtkKeyThemeNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint SettingsGtkKeyThemeNamePropertyInfo = SettingsK + type AttrGetType SettingsGtkKeyThemeNamePropertyInfo = (Maybe T.Text) + type AttrLabel SettingsGtkKeyThemeNamePropertyInfo = "gtk-key-theme-name" + attrGet _ = getSettingsGtkKeyThemeName + attrSet _ = setSettingsGtkKeyThemeName + attrConstruct _ = constructSettingsGtkKeyThemeName + attrClear _ = clearSettingsGtkKeyThemeName + +-- VVV Prop "gtk-keynav-cursor-only" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkKeynavCursorOnly :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsGtkKeynavCursorOnly obj = liftIO $ getObjectPropertyBool obj "gtk-keynav-cursor-only" + +setSettingsGtkKeynavCursorOnly :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsGtkKeynavCursorOnly obj val = liftIO $ setObjectPropertyBool obj "gtk-keynav-cursor-only" val + +constructSettingsGtkKeynavCursorOnly :: Bool -> IO ([Char], GValue) +constructSettingsGtkKeynavCursorOnly val = constructObjectPropertyBool "gtk-keynav-cursor-only" val + +data SettingsGtkKeynavCursorOnlyPropertyInfo +instance AttrInfo SettingsGtkKeynavCursorOnlyPropertyInfo where + type AttrAllowedOps SettingsGtkKeynavCursorOnlyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkKeynavCursorOnlyPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsGtkKeynavCursorOnlyPropertyInfo = SettingsK + type AttrGetType SettingsGtkKeynavCursorOnlyPropertyInfo = Bool + type AttrLabel SettingsGtkKeynavCursorOnlyPropertyInfo = "gtk-keynav-cursor-only" + attrGet _ = getSettingsGtkKeynavCursorOnly + attrSet _ = setSettingsGtkKeynavCursorOnly + attrConstruct _ = constructSettingsGtkKeynavCursorOnly + attrClear _ = undefined + +-- VVV Prop "gtk-keynav-wrap-around" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkKeynavWrapAround :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsGtkKeynavWrapAround obj = liftIO $ getObjectPropertyBool obj "gtk-keynav-wrap-around" + +setSettingsGtkKeynavWrapAround :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsGtkKeynavWrapAround obj val = liftIO $ setObjectPropertyBool obj "gtk-keynav-wrap-around" val + +constructSettingsGtkKeynavWrapAround :: Bool -> IO ([Char], GValue) +constructSettingsGtkKeynavWrapAround val = constructObjectPropertyBool "gtk-keynav-wrap-around" val + +data SettingsGtkKeynavWrapAroundPropertyInfo +instance AttrInfo SettingsGtkKeynavWrapAroundPropertyInfo where + type AttrAllowedOps SettingsGtkKeynavWrapAroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkKeynavWrapAroundPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsGtkKeynavWrapAroundPropertyInfo = SettingsK + type AttrGetType SettingsGtkKeynavWrapAroundPropertyInfo = Bool + type AttrLabel SettingsGtkKeynavWrapAroundPropertyInfo = "gtk-keynav-wrap-around" + attrGet _ = getSettingsGtkKeynavWrapAround + attrSet _ = setSettingsGtkKeynavWrapAround + attrConstruct _ = constructSettingsGtkKeynavWrapAround + attrClear _ = undefined + +-- VVV Prop "gtk-label-select-on-focus" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkLabelSelectOnFocus :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsGtkLabelSelectOnFocus obj = liftIO $ getObjectPropertyBool obj "gtk-label-select-on-focus" + +setSettingsGtkLabelSelectOnFocus :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsGtkLabelSelectOnFocus obj val = liftIO $ setObjectPropertyBool obj "gtk-label-select-on-focus" val + +constructSettingsGtkLabelSelectOnFocus :: Bool -> IO ([Char], GValue) +constructSettingsGtkLabelSelectOnFocus val = constructObjectPropertyBool "gtk-label-select-on-focus" val + +data SettingsGtkLabelSelectOnFocusPropertyInfo +instance AttrInfo SettingsGtkLabelSelectOnFocusPropertyInfo where + type AttrAllowedOps SettingsGtkLabelSelectOnFocusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkLabelSelectOnFocusPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsGtkLabelSelectOnFocusPropertyInfo = SettingsK + type AttrGetType SettingsGtkLabelSelectOnFocusPropertyInfo = Bool + type AttrLabel SettingsGtkLabelSelectOnFocusPropertyInfo = "gtk-label-select-on-focus" + attrGet _ = getSettingsGtkLabelSelectOnFocus + attrSet _ = setSettingsGtkLabelSelectOnFocus + attrConstruct _ = constructSettingsGtkLabelSelectOnFocus + attrClear _ = undefined + +-- VVV Prop "gtk-long-press-time" + -- Type: TBasicType TUInt + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkLongPressTime :: (MonadIO m, SettingsK o) => o -> m Word32 +getSettingsGtkLongPressTime obj = liftIO $ getObjectPropertyUInt32 obj "gtk-long-press-time" + +setSettingsGtkLongPressTime :: (MonadIO m, SettingsK o) => o -> Word32 -> m () +setSettingsGtkLongPressTime obj val = liftIO $ setObjectPropertyUInt32 obj "gtk-long-press-time" val + +constructSettingsGtkLongPressTime :: Word32 -> IO ([Char], GValue) +constructSettingsGtkLongPressTime val = constructObjectPropertyUInt32 "gtk-long-press-time" val + +data SettingsGtkLongPressTimePropertyInfo +instance AttrInfo SettingsGtkLongPressTimePropertyInfo where + type AttrAllowedOps SettingsGtkLongPressTimePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkLongPressTimePropertyInfo = (~) Word32 + type AttrBaseTypeConstraint SettingsGtkLongPressTimePropertyInfo = SettingsK + type AttrGetType SettingsGtkLongPressTimePropertyInfo = Word32 + type AttrLabel SettingsGtkLongPressTimePropertyInfo = "gtk-long-press-time" + attrGet _ = getSettingsGtkLongPressTime + attrSet _ = setSettingsGtkLongPressTime + attrConstruct _ = constructSettingsGtkLongPressTime + attrClear _ = undefined + +-- VVV Prop "gtk-menu-bar-accel" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkMenuBarAccel :: (MonadIO m, SettingsK o) => o -> m (Maybe T.Text) +getSettingsGtkMenuBarAccel obj = liftIO $ getObjectPropertyString obj "gtk-menu-bar-accel" + +setSettingsGtkMenuBarAccel :: (MonadIO m, SettingsK o) => o -> T.Text -> m () +setSettingsGtkMenuBarAccel obj val = liftIO $ setObjectPropertyString obj "gtk-menu-bar-accel" (Just val) + +constructSettingsGtkMenuBarAccel :: T.Text -> IO ([Char], GValue) +constructSettingsGtkMenuBarAccel val = constructObjectPropertyString "gtk-menu-bar-accel" (Just val) + +clearSettingsGtkMenuBarAccel :: (MonadIO m, SettingsK o) => o -> m () +clearSettingsGtkMenuBarAccel obj = liftIO $ setObjectPropertyString obj "gtk-menu-bar-accel" (Nothing :: Maybe T.Text) + +data SettingsGtkMenuBarAccelPropertyInfo +instance AttrInfo SettingsGtkMenuBarAccelPropertyInfo where + type AttrAllowedOps SettingsGtkMenuBarAccelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint SettingsGtkMenuBarAccelPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint SettingsGtkMenuBarAccelPropertyInfo = SettingsK + type AttrGetType SettingsGtkMenuBarAccelPropertyInfo = (Maybe T.Text) + type AttrLabel SettingsGtkMenuBarAccelPropertyInfo = "gtk-menu-bar-accel" + attrGet _ = getSettingsGtkMenuBarAccel + attrSet _ = setSettingsGtkMenuBarAccel + attrConstruct _ = constructSettingsGtkMenuBarAccel + attrClear _ = clearSettingsGtkMenuBarAccel + +-- VVV Prop "gtk-menu-bar-popup-delay" + -- Type: TBasicType TInt + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkMenuBarPopupDelay :: (MonadIO m, SettingsK o) => o -> m Int32 +getSettingsGtkMenuBarPopupDelay obj = liftIO $ getObjectPropertyInt32 obj "gtk-menu-bar-popup-delay" + +setSettingsGtkMenuBarPopupDelay :: (MonadIO m, SettingsK o) => o -> Int32 -> m () +setSettingsGtkMenuBarPopupDelay obj val = liftIO $ setObjectPropertyInt32 obj "gtk-menu-bar-popup-delay" val + +constructSettingsGtkMenuBarPopupDelay :: Int32 -> IO ([Char], GValue) +constructSettingsGtkMenuBarPopupDelay val = constructObjectPropertyInt32 "gtk-menu-bar-popup-delay" val + +data SettingsGtkMenuBarPopupDelayPropertyInfo +instance AttrInfo SettingsGtkMenuBarPopupDelayPropertyInfo where + type AttrAllowedOps SettingsGtkMenuBarPopupDelayPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkMenuBarPopupDelayPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint SettingsGtkMenuBarPopupDelayPropertyInfo = SettingsK + type AttrGetType SettingsGtkMenuBarPopupDelayPropertyInfo = Int32 + type AttrLabel SettingsGtkMenuBarPopupDelayPropertyInfo = "gtk-menu-bar-popup-delay" + attrGet _ = getSettingsGtkMenuBarPopupDelay + attrSet _ = setSettingsGtkMenuBarPopupDelay + attrConstruct _ = constructSettingsGtkMenuBarPopupDelay + attrClear _ = undefined + +-- VVV Prop "gtk-menu-images" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkMenuImages :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsGtkMenuImages obj = liftIO $ getObjectPropertyBool obj "gtk-menu-images" + +setSettingsGtkMenuImages :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsGtkMenuImages obj val = liftIO $ setObjectPropertyBool obj "gtk-menu-images" val + +constructSettingsGtkMenuImages :: Bool -> IO ([Char], GValue) +constructSettingsGtkMenuImages val = constructObjectPropertyBool "gtk-menu-images" val + +data SettingsGtkMenuImagesPropertyInfo +instance AttrInfo SettingsGtkMenuImagesPropertyInfo where + type AttrAllowedOps SettingsGtkMenuImagesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkMenuImagesPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsGtkMenuImagesPropertyInfo = SettingsK + type AttrGetType SettingsGtkMenuImagesPropertyInfo = Bool + type AttrLabel SettingsGtkMenuImagesPropertyInfo = "gtk-menu-images" + attrGet _ = getSettingsGtkMenuImages + attrSet _ = setSettingsGtkMenuImages + attrConstruct _ = constructSettingsGtkMenuImages + attrClear _ = undefined + +-- VVV Prop "gtk-menu-popdown-delay" + -- Type: TBasicType TInt + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkMenuPopdownDelay :: (MonadIO m, SettingsK o) => o -> m Int32 +getSettingsGtkMenuPopdownDelay obj = liftIO $ getObjectPropertyInt32 obj "gtk-menu-popdown-delay" + +setSettingsGtkMenuPopdownDelay :: (MonadIO m, SettingsK o) => o -> Int32 -> m () +setSettingsGtkMenuPopdownDelay obj val = liftIO $ setObjectPropertyInt32 obj "gtk-menu-popdown-delay" val + +constructSettingsGtkMenuPopdownDelay :: Int32 -> IO ([Char], GValue) +constructSettingsGtkMenuPopdownDelay val = constructObjectPropertyInt32 "gtk-menu-popdown-delay" val + +data SettingsGtkMenuPopdownDelayPropertyInfo +instance AttrInfo SettingsGtkMenuPopdownDelayPropertyInfo where + type AttrAllowedOps SettingsGtkMenuPopdownDelayPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkMenuPopdownDelayPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint SettingsGtkMenuPopdownDelayPropertyInfo = SettingsK + type AttrGetType SettingsGtkMenuPopdownDelayPropertyInfo = Int32 + type AttrLabel SettingsGtkMenuPopdownDelayPropertyInfo = "gtk-menu-popdown-delay" + attrGet _ = getSettingsGtkMenuPopdownDelay + attrSet _ = setSettingsGtkMenuPopdownDelay + attrConstruct _ = constructSettingsGtkMenuPopdownDelay + attrClear _ = undefined + +-- VVV Prop "gtk-menu-popup-delay" + -- Type: TBasicType TInt + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkMenuPopupDelay :: (MonadIO m, SettingsK o) => o -> m Int32 +getSettingsGtkMenuPopupDelay obj = liftIO $ getObjectPropertyInt32 obj "gtk-menu-popup-delay" + +setSettingsGtkMenuPopupDelay :: (MonadIO m, SettingsK o) => o -> Int32 -> m () +setSettingsGtkMenuPopupDelay obj val = liftIO $ setObjectPropertyInt32 obj "gtk-menu-popup-delay" val + +constructSettingsGtkMenuPopupDelay :: Int32 -> IO ([Char], GValue) +constructSettingsGtkMenuPopupDelay val = constructObjectPropertyInt32 "gtk-menu-popup-delay" val + +data SettingsGtkMenuPopupDelayPropertyInfo +instance AttrInfo SettingsGtkMenuPopupDelayPropertyInfo where + type AttrAllowedOps SettingsGtkMenuPopupDelayPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkMenuPopupDelayPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint SettingsGtkMenuPopupDelayPropertyInfo = SettingsK + type AttrGetType SettingsGtkMenuPopupDelayPropertyInfo = Int32 + type AttrLabel SettingsGtkMenuPopupDelayPropertyInfo = "gtk-menu-popup-delay" + attrGet _ = getSettingsGtkMenuPopupDelay + attrSet _ = setSettingsGtkMenuPopupDelay + attrConstruct _ = constructSettingsGtkMenuPopupDelay + attrClear _ = undefined + +-- VVV Prop "gtk-modules" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkModules :: (MonadIO m, SettingsK o) => o -> m (Maybe T.Text) +getSettingsGtkModules obj = liftIO $ getObjectPropertyString obj "gtk-modules" + +setSettingsGtkModules :: (MonadIO m, SettingsK o) => o -> T.Text -> m () +setSettingsGtkModules obj val = liftIO $ setObjectPropertyString obj "gtk-modules" (Just val) + +constructSettingsGtkModules :: T.Text -> IO ([Char], GValue) +constructSettingsGtkModules val = constructObjectPropertyString "gtk-modules" (Just val) + +clearSettingsGtkModules :: (MonadIO m, SettingsK o) => o -> m () +clearSettingsGtkModules obj = liftIO $ setObjectPropertyString obj "gtk-modules" (Nothing :: Maybe T.Text) + +data SettingsGtkModulesPropertyInfo +instance AttrInfo SettingsGtkModulesPropertyInfo where + type AttrAllowedOps SettingsGtkModulesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint SettingsGtkModulesPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint SettingsGtkModulesPropertyInfo = SettingsK + type AttrGetType SettingsGtkModulesPropertyInfo = (Maybe T.Text) + type AttrLabel SettingsGtkModulesPropertyInfo = "gtk-modules" + attrGet _ = getSettingsGtkModules + attrSet _ = setSettingsGtkModules + attrConstruct _ = constructSettingsGtkModules + attrClear _ = clearSettingsGtkModules + +-- VVV Prop "gtk-primary-button-warps-slider" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkPrimaryButtonWarpsSlider :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsGtkPrimaryButtonWarpsSlider obj = liftIO $ getObjectPropertyBool obj "gtk-primary-button-warps-slider" + +setSettingsGtkPrimaryButtonWarpsSlider :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsGtkPrimaryButtonWarpsSlider obj val = liftIO $ setObjectPropertyBool obj "gtk-primary-button-warps-slider" val + +constructSettingsGtkPrimaryButtonWarpsSlider :: Bool -> IO ([Char], GValue) +constructSettingsGtkPrimaryButtonWarpsSlider val = constructObjectPropertyBool "gtk-primary-button-warps-slider" val + +data SettingsGtkPrimaryButtonWarpsSliderPropertyInfo +instance AttrInfo SettingsGtkPrimaryButtonWarpsSliderPropertyInfo where + type AttrAllowedOps SettingsGtkPrimaryButtonWarpsSliderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkPrimaryButtonWarpsSliderPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsGtkPrimaryButtonWarpsSliderPropertyInfo = SettingsK + type AttrGetType SettingsGtkPrimaryButtonWarpsSliderPropertyInfo = Bool + type AttrLabel SettingsGtkPrimaryButtonWarpsSliderPropertyInfo = "gtk-primary-button-warps-slider" + attrGet _ = getSettingsGtkPrimaryButtonWarpsSlider + attrSet _ = setSettingsGtkPrimaryButtonWarpsSlider + attrConstruct _ = constructSettingsGtkPrimaryButtonWarpsSlider + attrClear _ = undefined + +-- VVV Prop "gtk-print-backends" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkPrintBackends :: (MonadIO m, SettingsK o) => o -> m (Maybe T.Text) +getSettingsGtkPrintBackends obj = liftIO $ getObjectPropertyString obj "gtk-print-backends" + +setSettingsGtkPrintBackends :: (MonadIO m, SettingsK o) => o -> T.Text -> m () +setSettingsGtkPrintBackends obj val = liftIO $ setObjectPropertyString obj "gtk-print-backends" (Just val) + +constructSettingsGtkPrintBackends :: T.Text -> IO ([Char], GValue) +constructSettingsGtkPrintBackends val = constructObjectPropertyString "gtk-print-backends" (Just val) + +clearSettingsGtkPrintBackends :: (MonadIO m, SettingsK o) => o -> m () +clearSettingsGtkPrintBackends obj = liftIO $ setObjectPropertyString obj "gtk-print-backends" (Nothing :: Maybe T.Text) + +data SettingsGtkPrintBackendsPropertyInfo +instance AttrInfo SettingsGtkPrintBackendsPropertyInfo where + type AttrAllowedOps SettingsGtkPrintBackendsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint SettingsGtkPrintBackendsPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint SettingsGtkPrintBackendsPropertyInfo = SettingsK + type AttrGetType SettingsGtkPrintBackendsPropertyInfo = (Maybe T.Text) + type AttrLabel SettingsGtkPrintBackendsPropertyInfo = "gtk-print-backends" + attrGet _ = getSettingsGtkPrintBackends + attrSet _ = setSettingsGtkPrintBackends + attrConstruct _ = constructSettingsGtkPrintBackends + attrClear _ = clearSettingsGtkPrintBackends + +-- VVV Prop "gtk-print-preview-command" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkPrintPreviewCommand :: (MonadIO m, SettingsK o) => o -> m (Maybe T.Text) +getSettingsGtkPrintPreviewCommand obj = liftIO $ getObjectPropertyString obj "gtk-print-preview-command" + +setSettingsGtkPrintPreviewCommand :: (MonadIO m, SettingsK o) => o -> T.Text -> m () +setSettingsGtkPrintPreviewCommand obj val = liftIO $ setObjectPropertyString obj "gtk-print-preview-command" (Just val) + +constructSettingsGtkPrintPreviewCommand :: T.Text -> IO ([Char], GValue) +constructSettingsGtkPrintPreviewCommand val = constructObjectPropertyString "gtk-print-preview-command" (Just val) + +clearSettingsGtkPrintPreviewCommand :: (MonadIO m, SettingsK o) => o -> m () +clearSettingsGtkPrintPreviewCommand obj = liftIO $ setObjectPropertyString obj "gtk-print-preview-command" (Nothing :: Maybe T.Text) + +data SettingsGtkPrintPreviewCommandPropertyInfo +instance AttrInfo SettingsGtkPrintPreviewCommandPropertyInfo where + type AttrAllowedOps SettingsGtkPrintPreviewCommandPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint SettingsGtkPrintPreviewCommandPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint SettingsGtkPrintPreviewCommandPropertyInfo = SettingsK + type AttrGetType SettingsGtkPrintPreviewCommandPropertyInfo = (Maybe T.Text) + type AttrLabel SettingsGtkPrintPreviewCommandPropertyInfo = "gtk-print-preview-command" + attrGet _ = getSettingsGtkPrintPreviewCommand + attrSet _ = setSettingsGtkPrintPreviewCommand + attrConstruct _ = constructSettingsGtkPrintPreviewCommand + attrClear _ = clearSettingsGtkPrintPreviewCommand + +-- VVV Prop "gtk-recent-files-enabled" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkRecentFilesEnabled :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsGtkRecentFilesEnabled obj = liftIO $ getObjectPropertyBool obj "gtk-recent-files-enabled" + +setSettingsGtkRecentFilesEnabled :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsGtkRecentFilesEnabled obj val = liftIO $ setObjectPropertyBool obj "gtk-recent-files-enabled" val + +constructSettingsGtkRecentFilesEnabled :: Bool -> IO ([Char], GValue) +constructSettingsGtkRecentFilesEnabled val = constructObjectPropertyBool "gtk-recent-files-enabled" val + +data SettingsGtkRecentFilesEnabledPropertyInfo +instance AttrInfo SettingsGtkRecentFilesEnabledPropertyInfo where + type AttrAllowedOps SettingsGtkRecentFilesEnabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkRecentFilesEnabledPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsGtkRecentFilesEnabledPropertyInfo = SettingsK + type AttrGetType SettingsGtkRecentFilesEnabledPropertyInfo = Bool + type AttrLabel SettingsGtkRecentFilesEnabledPropertyInfo = "gtk-recent-files-enabled" + attrGet _ = getSettingsGtkRecentFilesEnabled + attrSet _ = setSettingsGtkRecentFilesEnabled + attrConstruct _ = constructSettingsGtkRecentFilesEnabled + attrClear _ = undefined + +-- VVV Prop "gtk-recent-files-limit" + -- Type: TBasicType TInt + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkRecentFilesLimit :: (MonadIO m, SettingsK o) => o -> m Int32 +getSettingsGtkRecentFilesLimit obj = liftIO $ getObjectPropertyInt32 obj "gtk-recent-files-limit" + +setSettingsGtkRecentFilesLimit :: (MonadIO m, SettingsK o) => o -> Int32 -> m () +setSettingsGtkRecentFilesLimit obj val = liftIO $ setObjectPropertyInt32 obj "gtk-recent-files-limit" val + +constructSettingsGtkRecentFilesLimit :: Int32 -> IO ([Char], GValue) +constructSettingsGtkRecentFilesLimit val = constructObjectPropertyInt32 "gtk-recent-files-limit" val + +data SettingsGtkRecentFilesLimitPropertyInfo +instance AttrInfo SettingsGtkRecentFilesLimitPropertyInfo where + type AttrAllowedOps SettingsGtkRecentFilesLimitPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkRecentFilesLimitPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint SettingsGtkRecentFilesLimitPropertyInfo = SettingsK + type AttrGetType SettingsGtkRecentFilesLimitPropertyInfo = Int32 + type AttrLabel SettingsGtkRecentFilesLimitPropertyInfo = "gtk-recent-files-limit" + attrGet _ = getSettingsGtkRecentFilesLimit + attrSet _ = setSettingsGtkRecentFilesLimit + attrConstruct _ = constructSettingsGtkRecentFilesLimit + attrClear _ = undefined + +-- VVV Prop "gtk-recent-files-max-age" + -- Type: TBasicType TInt + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkRecentFilesMaxAge :: (MonadIO m, SettingsK o) => o -> m Int32 +getSettingsGtkRecentFilesMaxAge obj = liftIO $ getObjectPropertyInt32 obj "gtk-recent-files-max-age" + +setSettingsGtkRecentFilesMaxAge :: (MonadIO m, SettingsK o) => o -> Int32 -> m () +setSettingsGtkRecentFilesMaxAge obj val = liftIO $ setObjectPropertyInt32 obj "gtk-recent-files-max-age" val + +constructSettingsGtkRecentFilesMaxAge :: Int32 -> IO ([Char], GValue) +constructSettingsGtkRecentFilesMaxAge val = constructObjectPropertyInt32 "gtk-recent-files-max-age" val + +data SettingsGtkRecentFilesMaxAgePropertyInfo +instance AttrInfo SettingsGtkRecentFilesMaxAgePropertyInfo where + type AttrAllowedOps SettingsGtkRecentFilesMaxAgePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkRecentFilesMaxAgePropertyInfo = (~) Int32 + type AttrBaseTypeConstraint SettingsGtkRecentFilesMaxAgePropertyInfo = SettingsK + type AttrGetType SettingsGtkRecentFilesMaxAgePropertyInfo = Int32 + type AttrLabel SettingsGtkRecentFilesMaxAgePropertyInfo = "gtk-recent-files-max-age" + attrGet _ = getSettingsGtkRecentFilesMaxAge + attrSet _ = setSettingsGtkRecentFilesMaxAge + attrConstruct _ = constructSettingsGtkRecentFilesMaxAge + attrClear _ = undefined + +-- VVV Prop "gtk-scrolled-window-placement" + -- Type: TInterface "Gtk" "CornerType" + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkScrolledWindowPlacement :: (MonadIO m, SettingsK o) => o -> m CornerType +getSettingsGtkScrolledWindowPlacement obj = liftIO $ getObjectPropertyEnum obj "gtk-scrolled-window-placement" + +setSettingsGtkScrolledWindowPlacement :: (MonadIO m, SettingsK o) => o -> CornerType -> m () +setSettingsGtkScrolledWindowPlacement obj val = liftIO $ setObjectPropertyEnum obj "gtk-scrolled-window-placement" val + +constructSettingsGtkScrolledWindowPlacement :: CornerType -> IO ([Char], GValue) +constructSettingsGtkScrolledWindowPlacement val = constructObjectPropertyEnum "gtk-scrolled-window-placement" val + +data SettingsGtkScrolledWindowPlacementPropertyInfo +instance AttrInfo SettingsGtkScrolledWindowPlacementPropertyInfo where + type AttrAllowedOps SettingsGtkScrolledWindowPlacementPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkScrolledWindowPlacementPropertyInfo = (~) CornerType + type AttrBaseTypeConstraint SettingsGtkScrolledWindowPlacementPropertyInfo = SettingsK + type AttrGetType SettingsGtkScrolledWindowPlacementPropertyInfo = CornerType + type AttrLabel SettingsGtkScrolledWindowPlacementPropertyInfo = "gtk-scrolled-window-placement" + attrGet _ = getSettingsGtkScrolledWindowPlacement + attrSet _ = setSettingsGtkScrolledWindowPlacement + attrConstruct _ = constructSettingsGtkScrolledWindowPlacement + attrClear _ = undefined + +-- VVV Prop "gtk-shell-shows-app-menu" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkShellShowsAppMenu :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsGtkShellShowsAppMenu obj = liftIO $ getObjectPropertyBool obj "gtk-shell-shows-app-menu" + +setSettingsGtkShellShowsAppMenu :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsGtkShellShowsAppMenu obj val = liftIO $ setObjectPropertyBool obj "gtk-shell-shows-app-menu" val + +constructSettingsGtkShellShowsAppMenu :: Bool -> IO ([Char], GValue) +constructSettingsGtkShellShowsAppMenu val = constructObjectPropertyBool "gtk-shell-shows-app-menu" val + +data SettingsGtkShellShowsAppMenuPropertyInfo +instance AttrInfo SettingsGtkShellShowsAppMenuPropertyInfo where + type AttrAllowedOps SettingsGtkShellShowsAppMenuPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkShellShowsAppMenuPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsGtkShellShowsAppMenuPropertyInfo = SettingsK + type AttrGetType SettingsGtkShellShowsAppMenuPropertyInfo = Bool + type AttrLabel SettingsGtkShellShowsAppMenuPropertyInfo = "gtk-shell-shows-app-menu" + attrGet _ = getSettingsGtkShellShowsAppMenu + attrSet _ = setSettingsGtkShellShowsAppMenu + attrConstruct _ = constructSettingsGtkShellShowsAppMenu + attrClear _ = undefined + +-- VVV Prop "gtk-shell-shows-desktop" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkShellShowsDesktop :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsGtkShellShowsDesktop obj = liftIO $ getObjectPropertyBool obj "gtk-shell-shows-desktop" + +setSettingsGtkShellShowsDesktop :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsGtkShellShowsDesktop obj val = liftIO $ setObjectPropertyBool obj "gtk-shell-shows-desktop" val + +constructSettingsGtkShellShowsDesktop :: Bool -> IO ([Char], GValue) +constructSettingsGtkShellShowsDesktop val = constructObjectPropertyBool "gtk-shell-shows-desktop" val + +data SettingsGtkShellShowsDesktopPropertyInfo +instance AttrInfo SettingsGtkShellShowsDesktopPropertyInfo where + type AttrAllowedOps SettingsGtkShellShowsDesktopPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkShellShowsDesktopPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsGtkShellShowsDesktopPropertyInfo = SettingsK + type AttrGetType SettingsGtkShellShowsDesktopPropertyInfo = Bool + type AttrLabel SettingsGtkShellShowsDesktopPropertyInfo = "gtk-shell-shows-desktop" + attrGet _ = getSettingsGtkShellShowsDesktop + attrSet _ = setSettingsGtkShellShowsDesktop + attrConstruct _ = constructSettingsGtkShellShowsDesktop + attrClear _ = undefined + +-- VVV Prop "gtk-shell-shows-menubar" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkShellShowsMenubar :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsGtkShellShowsMenubar obj = liftIO $ getObjectPropertyBool obj "gtk-shell-shows-menubar" + +setSettingsGtkShellShowsMenubar :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsGtkShellShowsMenubar obj val = liftIO $ setObjectPropertyBool obj "gtk-shell-shows-menubar" val + +constructSettingsGtkShellShowsMenubar :: Bool -> IO ([Char], GValue) +constructSettingsGtkShellShowsMenubar val = constructObjectPropertyBool "gtk-shell-shows-menubar" val + +data SettingsGtkShellShowsMenubarPropertyInfo +instance AttrInfo SettingsGtkShellShowsMenubarPropertyInfo where + type AttrAllowedOps SettingsGtkShellShowsMenubarPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkShellShowsMenubarPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsGtkShellShowsMenubarPropertyInfo = SettingsK + type AttrGetType SettingsGtkShellShowsMenubarPropertyInfo = Bool + type AttrLabel SettingsGtkShellShowsMenubarPropertyInfo = "gtk-shell-shows-menubar" + attrGet _ = getSettingsGtkShellShowsMenubar + attrSet _ = setSettingsGtkShellShowsMenubar + attrConstruct _ = constructSettingsGtkShellShowsMenubar + attrClear _ = undefined + +-- VVV Prop "gtk-show-input-method-menu" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkShowInputMethodMenu :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsGtkShowInputMethodMenu obj = liftIO $ getObjectPropertyBool obj "gtk-show-input-method-menu" + +setSettingsGtkShowInputMethodMenu :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsGtkShowInputMethodMenu obj val = liftIO $ setObjectPropertyBool obj "gtk-show-input-method-menu" val + +constructSettingsGtkShowInputMethodMenu :: Bool -> IO ([Char], GValue) +constructSettingsGtkShowInputMethodMenu val = constructObjectPropertyBool "gtk-show-input-method-menu" val + +data SettingsGtkShowInputMethodMenuPropertyInfo +instance AttrInfo SettingsGtkShowInputMethodMenuPropertyInfo where + type AttrAllowedOps SettingsGtkShowInputMethodMenuPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkShowInputMethodMenuPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsGtkShowInputMethodMenuPropertyInfo = SettingsK + type AttrGetType SettingsGtkShowInputMethodMenuPropertyInfo = Bool + type AttrLabel SettingsGtkShowInputMethodMenuPropertyInfo = "gtk-show-input-method-menu" + attrGet _ = getSettingsGtkShowInputMethodMenu + attrSet _ = setSettingsGtkShowInputMethodMenu + attrConstruct _ = constructSettingsGtkShowInputMethodMenu + attrClear _ = undefined + +-- VVV Prop "gtk-show-unicode-menu" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkShowUnicodeMenu :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsGtkShowUnicodeMenu obj = liftIO $ getObjectPropertyBool obj "gtk-show-unicode-menu" + +setSettingsGtkShowUnicodeMenu :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsGtkShowUnicodeMenu obj val = liftIO $ setObjectPropertyBool obj "gtk-show-unicode-menu" val + +constructSettingsGtkShowUnicodeMenu :: Bool -> IO ([Char], GValue) +constructSettingsGtkShowUnicodeMenu val = constructObjectPropertyBool "gtk-show-unicode-menu" val + +data SettingsGtkShowUnicodeMenuPropertyInfo +instance AttrInfo SettingsGtkShowUnicodeMenuPropertyInfo where + type AttrAllowedOps SettingsGtkShowUnicodeMenuPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkShowUnicodeMenuPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsGtkShowUnicodeMenuPropertyInfo = SettingsK + type AttrGetType SettingsGtkShowUnicodeMenuPropertyInfo = Bool + type AttrLabel SettingsGtkShowUnicodeMenuPropertyInfo = "gtk-show-unicode-menu" + attrGet _ = getSettingsGtkShowUnicodeMenu + attrSet _ = setSettingsGtkShowUnicodeMenu + attrConstruct _ = constructSettingsGtkShowUnicodeMenu + attrClear _ = undefined + +-- VVV Prop "gtk-sound-theme-name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkSoundThemeName :: (MonadIO m, SettingsK o) => o -> m (Maybe T.Text) +getSettingsGtkSoundThemeName obj = liftIO $ getObjectPropertyString obj "gtk-sound-theme-name" + +setSettingsGtkSoundThemeName :: (MonadIO m, SettingsK o) => o -> T.Text -> m () +setSettingsGtkSoundThemeName obj val = liftIO $ setObjectPropertyString obj "gtk-sound-theme-name" (Just val) + +constructSettingsGtkSoundThemeName :: T.Text -> IO ([Char], GValue) +constructSettingsGtkSoundThemeName val = constructObjectPropertyString "gtk-sound-theme-name" (Just val) + +clearSettingsGtkSoundThemeName :: (MonadIO m, SettingsK o) => o -> m () +clearSettingsGtkSoundThemeName obj = liftIO $ setObjectPropertyString obj "gtk-sound-theme-name" (Nothing :: Maybe T.Text) + +data SettingsGtkSoundThemeNamePropertyInfo +instance AttrInfo SettingsGtkSoundThemeNamePropertyInfo where + type AttrAllowedOps SettingsGtkSoundThemeNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint SettingsGtkSoundThemeNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint SettingsGtkSoundThemeNamePropertyInfo = SettingsK + type AttrGetType SettingsGtkSoundThemeNamePropertyInfo = (Maybe T.Text) + type AttrLabel SettingsGtkSoundThemeNamePropertyInfo = "gtk-sound-theme-name" + attrGet _ = getSettingsGtkSoundThemeName + attrSet _ = setSettingsGtkSoundThemeName + attrConstruct _ = constructSettingsGtkSoundThemeName + attrClear _ = clearSettingsGtkSoundThemeName + +-- VVV Prop "gtk-split-cursor" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkSplitCursor :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsGtkSplitCursor obj = liftIO $ getObjectPropertyBool obj "gtk-split-cursor" + +setSettingsGtkSplitCursor :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsGtkSplitCursor obj val = liftIO $ setObjectPropertyBool obj "gtk-split-cursor" val + +constructSettingsGtkSplitCursor :: Bool -> IO ([Char], GValue) +constructSettingsGtkSplitCursor val = constructObjectPropertyBool "gtk-split-cursor" val + +data SettingsGtkSplitCursorPropertyInfo +instance AttrInfo SettingsGtkSplitCursorPropertyInfo where + type AttrAllowedOps SettingsGtkSplitCursorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkSplitCursorPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsGtkSplitCursorPropertyInfo = SettingsK + type AttrGetType SettingsGtkSplitCursorPropertyInfo = Bool + type AttrLabel SettingsGtkSplitCursorPropertyInfo = "gtk-split-cursor" + attrGet _ = getSettingsGtkSplitCursor + attrSet _ = setSettingsGtkSplitCursor + attrConstruct _ = constructSettingsGtkSplitCursor + attrClear _ = undefined + +-- VVV Prop "gtk-theme-name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkThemeName :: (MonadIO m, SettingsK o) => o -> m (Maybe T.Text) +getSettingsGtkThemeName obj = liftIO $ getObjectPropertyString obj "gtk-theme-name" + +setSettingsGtkThemeName :: (MonadIO m, SettingsK o) => o -> T.Text -> m () +setSettingsGtkThemeName obj val = liftIO $ setObjectPropertyString obj "gtk-theme-name" (Just val) + +constructSettingsGtkThemeName :: T.Text -> IO ([Char], GValue) +constructSettingsGtkThemeName val = constructObjectPropertyString "gtk-theme-name" (Just val) + +clearSettingsGtkThemeName :: (MonadIO m, SettingsK o) => o -> m () +clearSettingsGtkThemeName obj = liftIO $ setObjectPropertyString obj "gtk-theme-name" (Nothing :: Maybe T.Text) + +data SettingsGtkThemeNamePropertyInfo +instance AttrInfo SettingsGtkThemeNamePropertyInfo where + type AttrAllowedOps SettingsGtkThemeNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint SettingsGtkThemeNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint SettingsGtkThemeNamePropertyInfo = SettingsK + type AttrGetType SettingsGtkThemeNamePropertyInfo = (Maybe T.Text) + type AttrLabel SettingsGtkThemeNamePropertyInfo = "gtk-theme-name" + attrGet _ = getSettingsGtkThemeName + attrSet _ = setSettingsGtkThemeName + attrConstruct _ = constructSettingsGtkThemeName + attrClear _ = clearSettingsGtkThemeName + +-- VVV Prop "gtk-timeout-expand" + -- Type: TBasicType TInt + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkTimeoutExpand :: (MonadIO m, SettingsK o) => o -> m Int32 +getSettingsGtkTimeoutExpand obj = liftIO $ getObjectPropertyInt32 obj "gtk-timeout-expand" + +setSettingsGtkTimeoutExpand :: (MonadIO m, SettingsK o) => o -> Int32 -> m () +setSettingsGtkTimeoutExpand obj val = liftIO $ setObjectPropertyInt32 obj "gtk-timeout-expand" val + +constructSettingsGtkTimeoutExpand :: Int32 -> IO ([Char], GValue) +constructSettingsGtkTimeoutExpand val = constructObjectPropertyInt32 "gtk-timeout-expand" val + +data SettingsGtkTimeoutExpandPropertyInfo +instance AttrInfo SettingsGtkTimeoutExpandPropertyInfo where + type AttrAllowedOps SettingsGtkTimeoutExpandPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkTimeoutExpandPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint SettingsGtkTimeoutExpandPropertyInfo = SettingsK + type AttrGetType SettingsGtkTimeoutExpandPropertyInfo = Int32 + type AttrLabel SettingsGtkTimeoutExpandPropertyInfo = "gtk-timeout-expand" + attrGet _ = getSettingsGtkTimeoutExpand + attrSet _ = setSettingsGtkTimeoutExpand + attrConstruct _ = constructSettingsGtkTimeoutExpand + attrClear _ = undefined + +-- VVV Prop "gtk-timeout-initial" + -- Type: TBasicType TInt + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkTimeoutInitial :: (MonadIO m, SettingsK o) => o -> m Int32 +getSettingsGtkTimeoutInitial obj = liftIO $ getObjectPropertyInt32 obj "gtk-timeout-initial" + +setSettingsGtkTimeoutInitial :: (MonadIO m, SettingsK o) => o -> Int32 -> m () +setSettingsGtkTimeoutInitial obj val = liftIO $ setObjectPropertyInt32 obj "gtk-timeout-initial" val + +constructSettingsGtkTimeoutInitial :: Int32 -> IO ([Char], GValue) +constructSettingsGtkTimeoutInitial val = constructObjectPropertyInt32 "gtk-timeout-initial" val + +data SettingsGtkTimeoutInitialPropertyInfo +instance AttrInfo SettingsGtkTimeoutInitialPropertyInfo where + type AttrAllowedOps SettingsGtkTimeoutInitialPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkTimeoutInitialPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint SettingsGtkTimeoutInitialPropertyInfo = SettingsK + type AttrGetType SettingsGtkTimeoutInitialPropertyInfo = Int32 + type AttrLabel SettingsGtkTimeoutInitialPropertyInfo = "gtk-timeout-initial" + attrGet _ = getSettingsGtkTimeoutInitial + attrSet _ = setSettingsGtkTimeoutInitial + attrConstruct _ = constructSettingsGtkTimeoutInitial + attrClear _ = undefined + +-- VVV Prop "gtk-timeout-repeat" + -- Type: TBasicType TInt + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkTimeoutRepeat :: (MonadIO m, SettingsK o) => o -> m Int32 +getSettingsGtkTimeoutRepeat obj = liftIO $ getObjectPropertyInt32 obj "gtk-timeout-repeat" + +setSettingsGtkTimeoutRepeat :: (MonadIO m, SettingsK o) => o -> Int32 -> m () +setSettingsGtkTimeoutRepeat obj val = liftIO $ setObjectPropertyInt32 obj "gtk-timeout-repeat" val + +constructSettingsGtkTimeoutRepeat :: Int32 -> IO ([Char], GValue) +constructSettingsGtkTimeoutRepeat val = constructObjectPropertyInt32 "gtk-timeout-repeat" val + +data SettingsGtkTimeoutRepeatPropertyInfo +instance AttrInfo SettingsGtkTimeoutRepeatPropertyInfo where + type AttrAllowedOps SettingsGtkTimeoutRepeatPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkTimeoutRepeatPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint SettingsGtkTimeoutRepeatPropertyInfo = SettingsK + type AttrGetType SettingsGtkTimeoutRepeatPropertyInfo = Int32 + type AttrLabel SettingsGtkTimeoutRepeatPropertyInfo = "gtk-timeout-repeat" + attrGet _ = getSettingsGtkTimeoutRepeat + attrSet _ = setSettingsGtkTimeoutRepeat + attrConstruct _ = constructSettingsGtkTimeoutRepeat + attrClear _ = undefined + +-- VVV Prop "gtk-titlebar-double-click" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkTitlebarDoubleClick :: (MonadIO m, SettingsK o) => o -> m (Maybe T.Text) +getSettingsGtkTitlebarDoubleClick obj = liftIO $ getObjectPropertyString obj "gtk-titlebar-double-click" + +setSettingsGtkTitlebarDoubleClick :: (MonadIO m, SettingsK o) => o -> T.Text -> m () +setSettingsGtkTitlebarDoubleClick obj val = liftIO $ setObjectPropertyString obj "gtk-titlebar-double-click" (Just val) + +constructSettingsGtkTitlebarDoubleClick :: T.Text -> IO ([Char], GValue) +constructSettingsGtkTitlebarDoubleClick val = constructObjectPropertyString "gtk-titlebar-double-click" (Just val) + +clearSettingsGtkTitlebarDoubleClick :: (MonadIO m, SettingsK o) => o -> m () +clearSettingsGtkTitlebarDoubleClick obj = liftIO $ setObjectPropertyString obj "gtk-titlebar-double-click" (Nothing :: Maybe T.Text) + +data SettingsGtkTitlebarDoubleClickPropertyInfo +instance AttrInfo SettingsGtkTitlebarDoubleClickPropertyInfo where + type AttrAllowedOps SettingsGtkTitlebarDoubleClickPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint SettingsGtkTitlebarDoubleClickPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint SettingsGtkTitlebarDoubleClickPropertyInfo = SettingsK + type AttrGetType SettingsGtkTitlebarDoubleClickPropertyInfo = (Maybe T.Text) + type AttrLabel SettingsGtkTitlebarDoubleClickPropertyInfo = "gtk-titlebar-double-click" + attrGet _ = getSettingsGtkTitlebarDoubleClick + attrSet _ = setSettingsGtkTitlebarDoubleClick + attrConstruct _ = constructSettingsGtkTitlebarDoubleClick + attrClear _ = clearSettingsGtkTitlebarDoubleClick + +-- VVV Prop "gtk-titlebar-middle-click" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkTitlebarMiddleClick :: (MonadIO m, SettingsK o) => o -> m (Maybe T.Text) +getSettingsGtkTitlebarMiddleClick obj = liftIO $ getObjectPropertyString obj "gtk-titlebar-middle-click" + +setSettingsGtkTitlebarMiddleClick :: (MonadIO m, SettingsK o) => o -> T.Text -> m () +setSettingsGtkTitlebarMiddleClick obj val = liftIO $ setObjectPropertyString obj "gtk-titlebar-middle-click" (Just val) + +constructSettingsGtkTitlebarMiddleClick :: T.Text -> IO ([Char], GValue) +constructSettingsGtkTitlebarMiddleClick val = constructObjectPropertyString "gtk-titlebar-middle-click" (Just val) + +clearSettingsGtkTitlebarMiddleClick :: (MonadIO m, SettingsK o) => o -> m () +clearSettingsGtkTitlebarMiddleClick obj = liftIO $ setObjectPropertyString obj "gtk-titlebar-middle-click" (Nothing :: Maybe T.Text) + +data SettingsGtkTitlebarMiddleClickPropertyInfo +instance AttrInfo SettingsGtkTitlebarMiddleClickPropertyInfo where + type AttrAllowedOps SettingsGtkTitlebarMiddleClickPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint SettingsGtkTitlebarMiddleClickPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint SettingsGtkTitlebarMiddleClickPropertyInfo = SettingsK + type AttrGetType SettingsGtkTitlebarMiddleClickPropertyInfo = (Maybe T.Text) + type AttrLabel SettingsGtkTitlebarMiddleClickPropertyInfo = "gtk-titlebar-middle-click" + attrGet _ = getSettingsGtkTitlebarMiddleClick + attrSet _ = setSettingsGtkTitlebarMiddleClick + attrConstruct _ = constructSettingsGtkTitlebarMiddleClick + attrClear _ = clearSettingsGtkTitlebarMiddleClick + +-- VVV Prop "gtk-titlebar-right-click" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkTitlebarRightClick :: (MonadIO m, SettingsK o) => o -> m (Maybe T.Text) +getSettingsGtkTitlebarRightClick obj = liftIO $ getObjectPropertyString obj "gtk-titlebar-right-click" + +setSettingsGtkTitlebarRightClick :: (MonadIO m, SettingsK o) => o -> T.Text -> m () +setSettingsGtkTitlebarRightClick obj val = liftIO $ setObjectPropertyString obj "gtk-titlebar-right-click" (Just val) + +constructSettingsGtkTitlebarRightClick :: T.Text -> IO ([Char], GValue) +constructSettingsGtkTitlebarRightClick val = constructObjectPropertyString "gtk-titlebar-right-click" (Just val) + +clearSettingsGtkTitlebarRightClick :: (MonadIO m, SettingsK o) => o -> m () +clearSettingsGtkTitlebarRightClick obj = liftIO $ setObjectPropertyString obj "gtk-titlebar-right-click" (Nothing :: Maybe T.Text) + +data SettingsGtkTitlebarRightClickPropertyInfo +instance AttrInfo SettingsGtkTitlebarRightClickPropertyInfo where + type AttrAllowedOps SettingsGtkTitlebarRightClickPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint SettingsGtkTitlebarRightClickPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint SettingsGtkTitlebarRightClickPropertyInfo = SettingsK + type AttrGetType SettingsGtkTitlebarRightClickPropertyInfo = (Maybe T.Text) + type AttrLabel SettingsGtkTitlebarRightClickPropertyInfo = "gtk-titlebar-right-click" + attrGet _ = getSettingsGtkTitlebarRightClick + attrSet _ = setSettingsGtkTitlebarRightClick + attrConstruct _ = constructSettingsGtkTitlebarRightClick + attrClear _ = clearSettingsGtkTitlebarRightClick + +-- VVV Prop "gtk-toolbar-icon-size" + -- Type: TInterface "Gtk" "IconSize" + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkToolbarIconSize :: (MonadIO m, SettingsK o) => o -> m IconSize +getSettingsGtkToolbarIconSize obj = liftIO $ getObjectPropertyEnum obj "gtk-toolbar-icon-size" + +setSettingsGtkToolbarIconSize :: (MonadIO m, SettingsK o) => o -> IconSize -> m () +setSettingsGtkToolbarIconSize obj val = liftIO $ setObjectPropertyEnum obj "gtk-toolbar-icon-size" val + +constructSettingsGtkToolbarIconSize :: IconSize -> IO ([Char], GValue) +constructSettingsGtkToolbarIconSize val = constructObjectPropertyEnum "gtk-toolbar-icon-size" val + +data SettingsGtkToolbarIconSizePropertyInfo +instance AttrInfo SettingsGtkToolbarIconSizePropertyInfo where + type AttrAllowedOps SettingsGtkToolbarIconSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkToolbarIconSizePropertyInfo = (~) IconSize + type AttrBaseTypeConstraint SettingsGtkToolbarIconSizePropertyInfo = SettingsK + type AttrGetType SettingsGtkToolbarIconSizePropertyInfo = IconSize + type AttrLabel SettingsGtkToolbarIconSizePropertyInfo = "gtk-toolbar-icon-size" + attrGet _ = getSettingsGtkToolbarIconSize + attrSet _ = setSettingsGtkToolbarIconSize + attrConstruct _ = constructSettingsGtkToolbarIconSize + attrClear _ = undefined + +-- VVV Prop "gtk-toolbar-style" + -- Type: TInterface "Gtk" "ToolbarStyle" + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkToolbarStyle :: (MonadIO m, SettingsK o) => o -> m ToolbarStyle +getSettingsGtkToolbarStyle obj = liftIO $ getObjectPropertyEnum obj "gtk-toolbar-style" + +setSettingsGtkToolbarStyle :: (MonadIO m, SettingsK o) => o -> ToolbarStyle -> m () +setSettingsGtkToolbarStyle obj val = liftIO $ setObjectPropertyEnum obj "gtk-toolbar-style" val + +constructSettingsGtkToolbarStyle :: ToolbarStyle -> IO ([Char], GValue) +constructSettingsGtkToolbarStyle val = constructObjectPropertyEnum "gtk-toolbar-style" val + +data SettingsGtkToolbarStylePropertyInfo +instance AttrInfo SettingsGtkToolbarStylePropertyInfo where + type AttrAllowedOps SettingsGtkToolbarStylePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkToolbarStylePropertyInfo = (~) ToolbarStyle + type AttrBaseTypeConstraint SettingsGtkToolbarStylePropertyInfo = SettingsK + type AttrGetType SettingsGtkToolbarStylePropertyInfo = ToolbarStyle + type AttrLabel SettingsGtkToolbarStylePropertyInfo = "gtk-toolbar-style" + attrGet _ = getSettingsGtkToolbarStyle + attrSet _ = setSettingsGtkToolbarStyle + attrConstruct _ = constructSettingsGtkToolbarStyle + attrClear _ = undefined + +-- VVV Prop "gtk-tooltip-browse-mode-timeout" + -- Type: TBasicType TInt + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkTooltipBrowseModeTimeout :: (MonadIO m, SettingsK o) => o -> m Int32 +getSettingsGtkTooltipBrowseModeTimeout obj = liftIO $ getObjectPropertyInt32 obj "gtk-tooltip-browse-mode-timeout" + +setSettingsGtkTooltipBrowseModeTimeout :: (MonadIO m, SettingsK o) => o -> Int32 -> m () +setSettingsGtkTooltipBrowseModeTimeout obj val = liftIO $ setObjectPropertyInt32 obj "gtk-tooltip-browse-mode-timeout" val + +constructSettingsGtkTooltipBrowseModeTimeout :: Int32 -> IO ([Char], GValue) +constructSettingsGtkTooltipBrowseModeTimeout val = constructObjectPropertyInt32 "gtk-tooltip-browse-mode-timeout" val + +data SettingsGtkTooltipBrowseModeTimeoutPropertyInfo +instance AttrInfo SettingsGtkTooltipBrowseModeTimeoutPropertyInfo where + type AttrAllowedOps SettingsGtkTooltipBrowseModeTimeoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkTooltipBrowseModeTimeoutPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint SettingsGtkTooltipBrowseModeTimeoutPropertyInfo = SettingsK + type AttrGetType SettingsGtkTooltipBrowseModeTimeoutPropertyInfo = Int32 + type AttrLabel SettingsGtkTooltipBrowseModeTimeoutPropertyInfo = "gtk-tooltip-browse-mode-timeout" + attrGet _ = getSettingsGtkTooltipBrowseModeTimeout + attrSet _ = setSettingsGtkTooltipBrowseModeTimeout + attrConstruct _ = constructSettingsGtkTooltipBrowseModeTimeout + attrClear _ = undefined + +-- VVV Prop "gtk-tooltip-browse-timeout" + -- Type: TBasicType TInt + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkTooltipBrowseTimeout :: (MonadIO m, SettingsK o) => o -> m Int32 +getSettingsGtkTooltipBrowseTimeout obj = liftIO $ getObjectPropertyInt32 obj "gtk-tooltip-browse-timeout" + +setSettingsGtkTooltipBrowseTimeout :: (MonadIO m, SettingsK o) => o -> Int32 -> m () +setSettingsGtkTooltipBrowseTimeout obj val = liftIO $ setObjectPropertyInt32 obj "gtk-tooltip-browse-timeout" val + +constructSettingsGtkTooltipBrowseTimeout :: Int32 -> IO ([Char], GValue) +constructSettingsGtkTooltipBrowseTimeout val = constructObjectPropertyInt32 "gtk-tooltip-browse-timeout" val + +data SettingsGtkTooltipBrowseTimeoutPropertyInfo +instance AttrInfo SettingsGtkTooltipBrowseTimeoutPropertyInfo where + type AttrAllowedOps SettingsGtkTooltipBrowseTimeoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkTooltipBrowseTimeoutPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint SettingsGtkTooltipBrowseTimeoutPropertyInfo = SettingsK + type AttrGetType SettingsGtkTooltipBrowseTimeoutPropertyInfo = Int32 + type AttrLabel SettingsGtkTooltipBrowseTimeoutPropertyInfo = "gtk-tooltip-browse-timeout" + attrGet _ = getSettingsGtkTooltipBrowseTimeout + attrSet _ = setSettingsGtkTooltipBrowseTimeout + attrConstruct _ = constructSettingsGtkTooltipBrowseTimeout + attrClear _ = undefined + +-- VVV Prop "gtk-tooltip-timeout" + -- Type: TBasicType TInt + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkTooltipTimeout :: (MonadIO m, SettingsK o) => o -> m Int32 +getSettingsGtkTooltipTimeout obj = liftIO $ getObjectPropertyInt32 obj "gtk-tooltip-timeout" + +setSettingsGtkTooltipTimeout :: (MonadIO m, SettingsK o) => o -> Int32 -> m () +setSettingsGtkTooltipTimeout obj val = liftIO $ setObjectPropertyInt32 obj "gtk-tooltip-timeout" val + +constructSettingsGtkTooltipTimeout :: Int32 -> IO ([Char], GValue) +constructSettingsGtkTooltipTimeout val = constructObjectPropertyInt32 "gtk-tooltip-timeout" val + +data SettingsGtkTooltipTimeoutPropertyInfo +instance AttrInfo SettingsGtkTooltipTimeoutPropertyInfo where + type AttrAllowedOps SettingsGtkTooltipTimeoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkTooltipTimeoutPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint SettingsGtkTooltipTimeoutPropertyInfo = SettingsK + type AttrGetType SettingsGtkTooltipTimeoutPropertyInfo = Int32 + type AttrLabel SettingsGtkTooltipTimeoutPropertyInfo = "gtk-tooltip-timeout" + attrGet _ = getSettingsGtkTooltipTimeout + attrSet _ = setSettingsGtkTooltipTimeout + attrConstruct _ = constructSettingsGtkTooltipTimeout + attrClear _ = undefined + +-- VVV Prop "gtk-touchscreen-mode" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkTouchscreenMode :: (MonadIO m, SettingsK o) => o -> m Bool +getSettingsGtkTouchscreenMode obj = liftIO $ getObjectPropertyBool obj "gtk-touchscreen-mode" + +setSettingsGtkTouchscreenMode :: (MonadIO m, SettingsK o) => o -> Bool -> m () +setSettingsGtkTouchscreenMode obj val = liftIO $ setObjectPropertyBool obj "gtk-touchscreen-mode" val + +constructSettingsGtkTouchscreenMode :: Bool -> IO ([Char], GValue) +constructSettingsGtkTouchscreenMode val = constructObjectPropertyBool "gtk-touchscreen-mode" val + +data SettingsGtkTouchscreenModePropertyInfo +instance AttrInfo SettingsGtkTouchscreenModePropertyInfo where + type AttrAllowedOps SettingsGtkTouchscreenModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkTouchscreenModePropertyInfo = (~) Bool + type AttrBaseTypeConstraint SettingsGtkTouchscreenModePropertyInfo = SettingsK + type AttrGetType SettingsGtkTouchscreenModePropertyInfo = Bool + type AttrLabel SettingsGtkTouchscreenModePropertyInfo = "gtk-touchscreen-mode" + attrGet _ = getSettingsGtkTouchscreenMode + attrSet _ = setSettingsGtkTouchscreenMode + attrConstruct _ = constructSettingsGtkTouchscreenMode + attrClear _ = undefined + +-- VVV Prop "gtk-visible-focus" + -- Type: TInterface "Gtk" "PolicyType" + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkVisibleFocus :: (MonadIO m, SettingsK o) => o -> m PolicyType +getSettingsGtkVisibleFocus obj = liftIO $ getObjectPropertyEnum obj "gtk-visible-focus" + +setSettingsGtkVisibleFocus :: (MonadIO m, SettingsK o) => o -> PolicyType -> m () +setSettingsGtkVisibleFocus obj val = liftIO $ setObjectPropertyEnum obj "gtk-visible-focus" val + +constructSettingsGtkVisibleFocus :: PolicyType -> IO ([Char], GValue) +constructSettingsGtkVisibleFocus val = constructObjectPropertyEnum "gtk-visible-focus" val + +data SettingsGtkVisibleFocusPropertyInfo +instance AttrInfo SettingsGtkVisibleFocusPropertyInfo where + type AttrAllowedOps SettingsGtkVisibleFocusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkVisibleFocusPropertyInfo = (~) PolicyType + type AttrBaseTypeConstraint SettingsGtkVisibleFocusPropertyInfo = SettingsK + type AttrGetType SettingsGtkVisibleFocusPropertyInfo = PolicyType + type AttrLabel SettingsGtkVisibleFocusPropertyInfo = "gtk-visible-focus" + attrGet _ = getSettingsGtkVisibleFocus + attrSet _ = setSettingsGtkVisibleFocus + attrConstruct _ = constructSettingsGtkVisibleFocus + attrClear _ = undefined + +-- VVV Prop "gtk-xft-antialias" + -- Type: TBasicType TInt + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkXftAntialias :: (MonadIO m, SettingsK o) => o -> m Int32 +getSettingsGtkXftAntialias obj = liftIO $ getObjectPropertyInt32 obj "gtk-xft-antialias" + +setSettingsGtkXftAntialias :: (MonadIO m, SettingsK o) => o -> Int32 -> m () +setSettingsGtkXftAntialias obj val = liftIO $ setObjectPropertyInt32 obj "gtk-xft-antialias" val + +constructSettingsGtkXftAntialias :: Int32 -> IO ([Char], GValue) +constructSettingsGtkXftAntialias val = constructObjectPropertyInt32 "gtk-xft-antialias" val + +data SettingsGtkXftAntialiasPropertyInfo +instance AttrInfo SettingsGtkXftAntialiasPropertyInfo where + type AttrAllowedOps SettingsGtkXftAntialiasPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkXftAntialiasPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint SettingsGtkXftAntialiasPropertyInfo = SettingsK + type AttrGetType SettingsGtkXftAntialiasPropertyInfo = Int32 + type AttrLabel SettingsGtkXftAntialiasPropertyInfo = "gtk-xft-antialias" + attrGet _ = getSettingsGtkXftAntialias + attrSet _ = setSettingsGtkXftAntialias + attrConstruct _ = constructSettingsGtkXftAntialias + attrClear _ = undefined + +-- VVV Prop "gtk-xft-dpi" + -- Type: TBasicType TInt + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkXftDpi :: (MonadIO m, SettingsK o) => o -> m Int32 +getSettingsGtkXftDpi obj = liftIO $ getObjectPropertyInt32 obj "gtk-xft-dpi" + +setSettingsGtkXftDpi :: (MonadIO m, SettingsK o) => o -> Int32 -> m () +setSettingsGtkXftDpi obj val = liftIO $ setObjectPropertyInt32 obj "gtk-xft-dpi" val + +constructSettingsGtkXftDpi :: Int32 -> IO ([Char], GValue) +constructSettingsGtkXftDpi val = constructObjectPropertyInt32 "gtk-xft-dpi" val + +data SettingsGtkXftDpiPropertyInfo +instance AttrInfo SettingsGtkXftDpiPropertyInfo where + type AttrAllowedOps SettingsGtkXftDpiPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkXftDpiPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint SettingsGtkXftDpiPropertyInfo = SettingsK + type AttrGetType SettingsGtkXftDpiPropertyInfo = Int32 + type AttrLabel SettingsGtkXftDpiPropertyInfo = "gtk-xft-dpi" + attrGet _ = getSettingsGtkXftDpi + attrSet _ = setSettingsGtkXftDpi + attrConstruct _ = constructSettingsGtkXftDpi + attrClear _ = undefined + +-- VVV Prop "gtk-xft-hinting" + -- Type: TBasicType TInt + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkXftHinting :: (MonadIO m, SettingsK o) => o -> m Int32 +getSettingsGtkXftHinting obj = liftIO $ getObjectPropertyInt32 obj "gtk-xft-hinting" + +setSettingsGtkXftHinting :: (MonadIO m, SettingsK o) => o -> Int32 -> m () +setSettingsGtkXftHinting obj val = liftIO $ setObjectPropertyInt32 obj "gtk-xft-hinting" val + +constructSettingsGtkXftHinting :: Int32 -> IO ([Char], GValue) +constructSettingsGtkXftHinting val = constructObjectPropertyInt32 "gtk-xft-hinting" val + +data SettingsGtkXftHintingPropertyInfo +instance AttrInfo SettingsGtkXftHintingPropertyInfo where + type AttrAllowedOps SettingsGtkXftHintingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkXftHintingPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint SettingsGtkXftHintingPropertyInfo = SettingsK + type AttrGetType SettingsGtkXftHintingPropertyInfo = Int32 + type AttrLabel SettingsGtkXftHintingPropertyInfo = "gtk-xft-hinting" + attrGet _ = getSettingsGtkXftHinting + attrSet _ = setSettingsGtkXftHinting + attrConstruct _ = constructSettingsGtkXftHinting + attrClear _ = undefined + +-- VVV Prop "gtk-xft-hintstyle" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkXftHintstyle :: (MonadIO m, SettingsK o) => o -> m (Maybe T.Text) +getSettingsGtkXftHintstyle obj = liftIO $ getObjectPropertyString obj "gtk-xft-hintstyle" + +setSettingsGtkXftHintstyle :: (MonadIO m, SettingsK o) => o -> T.Text -> m () +setSettingsGtkXftHintstyle obj val = liftIO $ setObjectPropertyString obj "gtk-xft-hintstyle" (Just val) + +constructSettingsGtkXftHintstyle :: T.Text -> IO ([Char], GValue) +constructSettingsGtkXftHintstyle val = constructObjectPropertyString "gtk-xft-hintstyle" (Just val) + +clearSettingsGtkXftHintstyle :: (MonadIO m, SettingsK o) => o -> m () +clearSettingsGtkXftHintstyle obj = liftIO $ setObjectPropertyString obj "gtk-xft-hintstyle" (Nothing :: Maybe T.Text) + +data SettingsGtkXftHintstylePropertyInfo +instance AttrInfo SettingsGtkXftHintstylePropertyInfo where + type AttrAllowedOps SettingsGtkXftHintstylePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint SettingsGtkXftHintstylePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint SettingsGtkXftHintstylePropertyInfo = SettingsK + type AttrGetType SettingsGtkXftHintstylePropertyInfo = (Maybe T.Text) + type AttrLabel SettingsGtkXftHintstylePropertyInfo = "gtk-xft-hintstyle" + attrGet _ = getSettingsGtkXftHintstyle + attrSet _ = setSettingsGtkXftHintstyle + attrConstruct _ = constructSettingsGtkXftHintstyle + attrClear _ = clearSettingsGtkXftHintstyle + +-- VVV Prop "gtk-xft-rgba" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getSettingsGtkXftRgba :: (MonadIO m, SettingsK o) => o -> m (Maybe T.Text) +getSettingsGtkXftRgba obj = liftIO $ getObjectPropertyString obj "gtk-xft-rgba" + +setSettingsGtkXftRgba :: (MonadIO m, SettingsK o) => o -> T.Text -> m () +setSettingsGtkXftRgba obj val = liftIO $ setObjectPropertyString obj "gtk-xft-rgba" (Just val) + +constructSettingsGtkXftRgba :: T.Text -> IO ([Char], GValue) +constructSettingsGtkXftRgba val = constructObjectPropertyString "gtk-xft-rgba" (Just val) + +clearSettingsGtkXftRgba :: (MonadIO m, SettingsK o) => o -> m () +clearSettingsGtkXftRgba obj = liftIO $ setObjectPropertyString obj "gtk-xft-rgba" (Nothing :: Maybe T.Text) + +data SettingsGtkXftRgbaPropertyInfo +instance AttrInfo SettingsGtkXftRgbaPropertyInfo where + type AttrAllowedOps SettingsGtkXftRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint SettingsGtkXftRgbaPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint SettingsGtkXftRgbaPropertyInfo = SettingsK + type AttrGetType SettingsGtkXftRgbaPropertyInfo = (Maybe T.Text) + type AttrLabel SettingsGtkXftRgbaPropertyInfo = "gtk-xft-rgba" + attrGet _ = getSettingsGtkXftRgba + attrSet _ = setSettingsGtkXftRgba + attrConstruct _ = constructSettingsGtkXftRgba + attrClear _ = clearSettingsGtkXftRgba + +type instance AttributeList Settings = SettingsAttributeList +type SettingsAttributeList = ('[ '("colorHash", SettingsColorHashPropertyInfo), '("gtkAlternativeButtonOrder", SettingsGtkAlternativeButtonOrderPropertyInfo), '("gtkAlternativeSortArrows", SettingsGtkAlternativeSortArrowsPropertyInfo), '("gtkApplicationPreferDarkTheme", SettingsGtkApplicationPreferDarkThemePropertyInfo), '("gtkAutoMnemonics", SettingsGtkAutoMnemonicsPropertyInfo), '("gtkButtonImages", SettingsGtkButtonImagesPropertyInfo), '("gtkCanChangeAccels", SettingsGtkCanChangeAccelsPropertyInfo), '("gtkColorPalette", SettingsGtkColorPalettePropertyInfo), '("gtkColorScheme", SettingsGtkColorSchemePropertyInfo), '("gtkCursorBlink", SettingsGtkCursorBlinkPropertyInfo), '("gtkCursorBlinkTime", SettingsGtkCursorBlinkTimePropertyInfo), '("gtkCursorBlinkTimeout", SettingsGtkCursorBlinkTimeoutPropertyInfo), '("gtkCursorThemeName", SettingsGtkCursorThemeNamePropertyInfo), '("gtkCursorThemeSize", SettingsGtkCursorThemeSizePropertyInfo), '("gtkDecorationLayout", SettingsGtkDecorationLayoutPropertyInfo), '("gtkDialogsUseHeader", SettingsGtkDialogsUseHeaderPropertyInfo), '("gtkDndDragThreshold", SettingsGtkDndDragThresholdPropertyInfo), '("gtkDoubleClickDistance", SettingsGtkDoubleClickDistancePropertyInfo), '("gtkDoubleClickTime", SettingsGtkDoubleClickTimePropertyInfo), '("gtkEnableAccels", SettingsGtkEnableAccelsPropertyInfo), '("gtkEnableAnimations", SettingsGtkEnableAnimationsPropertyInfo), '("gtkEnableEventSounds", SettingsGtkEnableEventSoundsPropertyInfo), '("gtkEnableInputFeedbackSounds", SettingsGtkEnableInputFeedbackSoundsPropertyInfo), '("gtkEnableMnemonics", SettingsGtkEnableMnemonicsPropertyInfo), '("gtkEnablePrimaryPaste", SettingsGtkEnablePrimaryPastePropertyInfo), '("gtkEnableTooltips", SettingsGtkEnableTooltipsPropertyInfo), '("gtkEntryPasswordHintTimeout", SettingsGtkEntryPasswordHintTimeoutPropertyInfo), '("gtkEntrySelectOnFocus", SettingsGtkEntrySelectOnFocusPropertyInfo), '("gtkErrorBell", SettingsGtkErrorBellPropertyInfo), '("gtkFallbackIconTheme", SettingsGtkFallbackIconThemePropertyInfo), '("gtkFileChooserBackend", SettingsGtkFileChooserBackendPropertyInfo), '("gtkFontName", SettingsGtkFontNamePropertyInfo), '("gtkFontconfigTimestamp", SettingsGtkFontconfigTimestampPropertyInfo), '("gtkIconSizes", SettingsGtkIconSizesPropertyInfo), '("gtkIconThemeName", SettingsGtkIconThemeNamePropertyInfo), '("gtkImModule", SettingsGtkImModulePropertyInfo), '("gtkImPreeditStyle", SettingsGtkImPreeditStylePropertyInfo), '("gtkImStatusStyle", SettingsGtkImStatusStylePropertyInfo), '("gtkKeyThemeName", SettingsGtkKeyThemeNamePropertyInfo), '("gtkKeynavCursorOnly", SettingsGtkKeynavCursorOnlyPropertyInfo), '("gtkKeynavWrapAround", SettingsGtkKeynavWrapAroundPropertyInfo), '("gtkLabelSelectOnFocus", SettingsGtkLabelSelectOnFocusPropertyInfo), '("gtkLongPressTime", SettingsGtkLongPressTimePropertyInfo), '("gtkMenuBarAccel", SettingsGtkMenuBarAccelPropertyInfo), '("gtkMenuBarPopupDelay", SettingsGtkMenuBarPopupDelayPropertyInfo), '("gtkMenuImages", SettingsGtkMenuImagesPropertyInfo), '("gtkMenuPopdownDelay", SettingsGtkMenuPopdownDelayPropertyInfo), '("gtkMenuPopupDelay", SettingsGtkMenuPopupDelayPropertyInfo), '("gtkModules", SettingsGtkModulesPropertyInfo), '("gtkPrimaryButtonWarpsSlider", SettingsGtkPrimaryButtonWarpsSliderPropertyInfo), '("gtkPrintBackends", SettingsGtkPrintBackendsPropertyInfo), '("gtkPrintPreviewCommand", SettingsGtkPrintPreviewCommandPropertyInfo), '("gtkRecentFilesEnabled", SettingsGtkRecentFilesEnabledPropertyInfo), '("gtkRecentFilesLimit", SettingsGtkRecentFilesLimitPropertyInfo), '("gtkRecentFilesMaxAge", SettingsGtkRecentFilesMaxAgePropertyInfo), '("gtkScrolledWindowPlacement", SettingsGtkScrolledWindowPlacementPropertyInfo), '("gtkShellShowsAppMenu", SettingsGtkShellShowsAppMenuPropertyInfo), '("gtkShellShowsDesktop", SettingsGtkShellShowsDesktopPropertyInfo), '("gtkShellShowsMenubar", SettingsGtkShellShowsMenubarPropertyInfo), '("gtkShowInputMethodMenu", SettingsGtkShowInputMethodMenuPropertyInfo), '("gtkShowUnicodeMenu", SettingsGtkShowUnicodeMenuPropertyInfo), '("gtkSoundThemeName", SettingsGtkSoundThemeNamePropertyInfo), '("gtkSplitCursor", SettingsGtkSplitCursorPropertyInfo), '("gtkThemeName", SettingsGtkThemeNamePropertyInfo), '("gtkTimeoutExpand", SettingsGtkTimeoutExpandPropertyInfo), '("gtkTimeoutInitial", SettingsGtkTimeoutInitialPropertyInfo), '("gtkTimeoutRepeat", SettingsGtkTimeoutRepeatPropertyInfo), '("gtkTitlebarDoubleClick", SettingsGtkTitlebarDoubleClickPropertyInfo), '("gtkTitlebarMiddleClick", SettingsGtkTitlebarMiddleClickPropertyInfo), '("gtkTitlebarRightClick", SettingsGtkTitlebarRightClickPropertyInfo), '("gtkToolbarIconSize", SettingsGtkToolbarIconSizePropertyInfo), '("gtkToolbarStyle", SettingsGtkToolbarStylePropertyInfo), '("gtkTooltipBrowseModeTimeout", SettingsGtkTooltipBrowseModeTimeoutPropertyInfo), '("gtkTooltipBrowseTimeout", SettingsGtkTooltipBrowseTimeoutPropertyInfo), '("gtkTooltipTimeout", SettingsGtkTooltipTimeoutPropertyInfo), '("gtkTouchscreenMode", SettingsGtkTouchscreenModePropertyInfo), '("gtkVisibleFocus", SettingsGtkVisibleFocusPropertyInfo), '("gtkXftAntialias", SettingsGtkXftAntialiasPropertyInfo), '("gtkXftDpi", SettingsGtkXftDpiPropertyInfo), '("gtkXftHinting", SettingsGtkXftHintingPropertyInfo), '("gtkXftHintstyle", SettingsGtkXftHintstylePropertyInfo), '("gtkXftRgba", SettingsGtkXftRgbaPropertyInfo)] :: [(Symbol, *)]) + +settingsColorHash :: AttrLabelProxy "colorHash" +settingsColorHash = AttrLabelProxy + +settingsGtkAlternativeButtonOrder :: AttrLabelProxy "gtkAlternativeButtonOrder" +settingsGtkAlternativeButtonOrder = AttrLabelProxy + +settingsGtkAlternativeSortArrows :: AttrLabelProxy "gtkAlternativeSortArrows" +settingsGtkAlternativeSortArrows = AttrLabelProxy + +settingsGtkApplicationPreferDarkTheme :: AttrLabelProxy "gtkApplicationPreferDarkTheme" +settingsGtkApplicationPreferDarkTheme = AttrLabelProxy + +settingsGtkAutoMnemonics :: AttrLabelProxy "gtkAutoMnemonics" +settingsGtkAutoMnemonics = AttrLabelProxy + +settingsGtkButtonImages :: AttrLabelProxy "gtkButtonImages" +settingsGtkButtonImages = AttrLabelProxy + +settingsGtkCanChangeAccels :: AttrLabelProxy "gtkCanChangeAccels" +settingsGtkCanChangeAccels = AttrLabelProxy + +settingsGtkColorPalette :: AttrLabelProxy "gtkColorPalette" +settingsGtkColorPalette = AttrLabelProxy + +settingsGtkColorScheme :: AttrLabelProxy "gtkColorScheme" +settingsGtkColorScheme = AttrLabelProxy + +settingsGtkCursorBlink :: AttrLabelProxy "gtkCursorBlink" +settingsGtkCursorBlink = AttrLabelProxy + +settingsGtkCursorBlinkTime :: AttrLabelProxy "gtkCursorBlinkTime" +settingsGtkCursorBlinkTime = AttrLabelProxy + +settingsGtkCursorBlinkTimeout :: AttrLabelProxy "gtkCursorBlinkTimeout" +settingsGtkCursorBlinkTimeout = AttrLabelProxy + +settingsGtkCursorThemeName :: AttrLabelProxy "gtkCursorThemeName" +settingsGtkCursorThemeName = AttrLabelProxy + +settingsGtkCursorThemeSize :: AttrLabelProxy "gtkCursorThemeSize" +settingsGtkCursorThemeSize = AttrLabelProxy + +settingsGtkDecorationLayout :: AttrLabelProxy "gtkDecorationLayout" +settingsGtkDecorationLayout = AttrLabelProxy + +settingsGtkDialogsUseHeader :: AttrLabelProxy "gtkDialogsUseHeader" +settingsGtkDialogsUseHeader = AttrLabelProxy + +settingsGtkDndDragThreshold :: AttrLabelProxy "gtkDndDragThreshold" +settingsGtkDndDragThreshold = AttrLabelProxy + +settingsGtkDoubleClickDistance :: AttrLabelProxy "gtkDoubleClickDistance" +settingsGtkDoubleClickDistance = AttrLabelProxy + +settingsGtkDoubleClickTime :: AttrLabelProxy "gtkDoubleClickTime" +settingsGtkDoubleClickTime = AttrLabelProxy + +settingsGtkEnableAccels :: AttrLabelProxy "gtkEnableAccels" +settingsGtkEnableAccels = AttrLabelProxy + +settingsGtkEnableAnimations :: AttrLabelProxy "gtkEnableAnimations" +settingsGtkEnableAnimations = AttrLabelProxy + +settingsGtkEnableEventSounds :: AttrLabelProxy "gtkEnableEventSounds" +settingsGtkEnableEventSounds = AttrLabelProxy + +settingsGtkEnableInputFeedbackSounds :: AttrLabelProxy "gtkEnableInputFeedbackSounds" +settingsGtkEnableInputFeedbackSounds = AttrLabelProxy + +settingsGtkEnableMnemonics :: AttrLabelProxy "gtkEnableMnemonics" +settingsGtkEnableMnemonics = AttrLabelProxy + +settingsGtkEnablePrimaryPaste :: AttrLabelProxy "gtkEnablePrimaryPaste" +settingsGtkEnablePrimaryPaste = AttrLabelProxy + +settingsGtkEnableTooltips :: AttrLabelProxy "gtkEnableTooltips" +settingsGtkEnableTooltips = AttrLabelProxy + +settingsGtkEntryPasswordHintTimeout :: AttrLabelProxy "gtkEntryPasswordHintTimeout" +settingsGtkEntryPasswordHintTimeout = AttrLabelProxy + +settingsGtkEntrySelectOnFocus :: AttrLabelProxy "gtkEntrySelectOnFocus" +settingsGtkEntrySelectOnFocus = AttrLabelProxy + +settingsGtkErrorBell :: AttrLabelProxy "gtkErrorBell" +settingsGtkErrorBell = AttrLabelProxy + +settingsGtkFallbackIconTheme :: AttrLabelProxy "gtkFallbackIconTheme" +settingsGtkFallbackIconTheme = AttrLabelProxy + +settingsGtkFileChooserBackend :: AttrLabelProxy "gtkFileChooserBackend" +settingsGtkFileChooserBackend = AttrLabelProxy + +settingsGtkFontName :: AttrLabelProxy "gtkFontName" +settingsGtkFontName = AttrLabelProxy + +settingsGtkFontconfigTimestamp :: AttrLabelProxy "gtkFontconfigTimestamp" +settingsGtkFontconfigTimestamp = AttrLabelProxy + +settingsGtkIconSizes :: AttrLabelProxy "gtkIconSizes" +settingsGtkIconSizes = AttrLabelProxy + +settingsGtkIconThemeName :: AttrLabelProxy "gtkIconThemeName" +settingsGtkIconThemeName = AttrLabelProxy + +settingsGtkImModule :: AttrLabelProxy "gtkImModule" +settingsGtkImModule = AttrLabelProxy + +settingsGtkImPreeditStyle :: AttrLabelProxy "gtkImPreeditStyle" +settingsGtkImPreeditStyle = AttrLabelProxy + +settingsGtkImStatusStyle :: AttrLabelProxy "gtkImStatusStyle" +settingsGtkImStatusStyle = AttrLabelProxy + +settingsGtkKeyThemeName :: AttrLabelProxy "gtkKeyThemeName" +settingsGtkKeyThemeName = AttrLabelProxy + +settingsGtkKeynavCursorOnly :: AttrLabelProxy "gtkKeynavCursorOnly" +settingsGtkKeynavCursorOnly = AttrLabelProxy + +settingsGtkKeynavWrapAround :: AttrLabelProxy "gtkKeynavWrapAround" +settingsGtkKeynavWrapAround = AttrLabelProxy + +settingsGtkLabelSelectOnFocus :: AttrLabelProxy "gtkLabelSelectOnFocus" +settingsGtkLabelSelectOnFocus = AttrLabelProxy + +settingsGtkLongPressTime :: AttrLabelProxy "gtkLongPressTime" +settingsGtkLongPressTime = AttrLabelProxy + +settingsGtkMenuBarAccel :: AttrLabelProxy "gtkMenuBarAccel" +settingsGtkMenuBarAccel = AttrLabelProxy + +settingsGtkMenuBarPopupDelay :: AttrLabelProxy "gtkMenuBarPopupDelay" +settingsGtkMenuBarPopupDelay = AttrLabelProxy + +settingsGtkMenuImages :: AttrLabelProxy "gtkMenuImages" +settingsGtkMenuImages = AttrLabelProxy + +settingsGtkMenuPopdownDelay :: AttrLabelProxy "gtkMenuPopdownDelay" +settingsGtkMenuPopdownDelay = AttrLabelProxy + +settingsGtkMenuPopupDelay :: AttrLabelProxy "gtkMenuPopupDelay" +settingsGtkMenuPopupDelay = AttrLabelProxy + +settingsGtkModules :: AttrLabelProxy "gtkModules" +settingsGtkModules = AttrLabelProxy + +settingsGtkPrimaryButtonWarpsSlider :: AttrLabelProxy "gtkPrimaryButtonWarpsSlider" +settingsGtkPrimaryButtonWarpsSlider = AttrLabelProxy + +settingsGtkPrintBackends :: AttrLabelProxy "gtkPrintBackends" +settingsGtkPrintBackends = AttrLabelProxy + +settingsGtkPrintPreviewCommand :: AttrLabelProxy "gtkPrintPreviewCommand" +settingsGtkPrintPreviewCommand = AttrLabelProxy + +settingsGtkRecentFilesEnabled :: AttrLabelProxy "gtkRecentFilesEnabled" +settingsGtkRecentFilesEnabled = AttrLabelProxy + +settingsGtkRecentFilesLimit :: AttrLabelProxy "gtkRecentFilesLimit" +settingsGtkRecentFilesLimit = AttrLabelProxy + +settingsGtkRecentFilesMaxAge :: AttrLabelProxy "gtkRecentFilesMaxAge" +settingsGtkRecentFilesMaxAge = AttrLabelProxy + +settingsGtkScrolledWindowPlacement :: AttrLabelProxy "gtkScrolledWindowPlacement" +settingsGtkScrolledWindowPlacement = AttrLabelProxy + +settingsGtkShellShowsAppMenu :: AttrLabelProxy "gtkShellShowsAppMenu" +settingsGtkShellShowsAppMenu = AttrLabelProxy + +settingsGtkShellShowsDesktop :: AttrLabelProxy "gtkShellShowsDesktop" +settingsGtkShellShowsDesktop = AttrLabelProxy + +settingsGtkShellShowsMenubar :: AttrLabelProxy "gtkShellShowsMenubar" +settingsGtkShellShowsMenubar = AttrLabelProxy + +settingsGtkShowInputMethodMenu :: AttrLabelProxy "gtkShowInputMethodMenu" +settingsGtkShowInputMethodMenu = AttrLabelProxy + +settingsGtkShowUnicodeMenu :: AttrLabelProxy "gtkShowUnicodeMenu" +settingsGtkShowUnicodeMenu = AttrLabelProxy + +settingsGtkSoundThemeName :: AttrLabelProxy "gtkSoundThemeName" +settingsGtkSoundThemeName = AttrLabelProxy + +settingsGtkSplitCursor :: AttrLabelProxy "gtkSplitCursor" +settingsGtkSplitCursor = AttrLabelProxy + +settingsGtkThemeName :: AttrLabelProxy "gtkThemeName" +settingsGtkThemeName = AttrLabelProxy + +settingsGtkTimeoutExpand :: AttrLabelProxy "gtkTimeoutExpand" +settingsGtkTimeoutExpand = AttrLabelProxy + +settingsGtkTimeoutInitial :: AttrLabelProxy "gtkTimeoutInitial" +settingsGtkTimeoutInitial = AttrLabelProxy + +settingsGtkTimeoutRepeat :: AttrLabelProxy "gtkTimeoutRepeat" +settingsGtkTimeoutRepeat = AttrLabelProxy + +settingsGtkTitlebarDoubleClick :: AttrLabelProxy "gtkTitlebarDoubleClick" +settingsGtkTitlebarDoubleClick = AttrLabelProxy + +settingsGtkTitlebarMiddleClick :: AttrLabelProxy "gtkTitlebarMiddleClick" +settingsGtkTitlebarMiddleClick = AttrLabelProxy + +settingsGtkTitlebarRightClick :: AttrLabelProxy "gtkTitlebarRightClick" +settingsGtkTitlebarRightClick = AttrLabelProxy + +settingsGtkToolbarIconSize :: AttrLabelProxy "gtkToolbarIconSize" +settingsGtkToolbarIconSize = AttrLabelProxy + +settingsGtkToolbarStyle :: AttrLabelProxy "gtkToolbarStyle" +settingsGtkToolbarStyle = AttrLabelProxy + +settingsGtkTooltipBrowseModeTimeout :: AttrLabelProxy "gtkTooltipBrowseModeTimeout" +settingsGtkTooltipBrowseModeTimeout = AttrLabelProxy + +settingsGtkTooltipBrowseTimeout :: AttrLabelProxy "gtkTooltipBrowseTimeout" +settingsGtkTooltipBrowseTimeout = AttrLabelProxy + +settingsGtkTooltipTimeout :: AttrLabelProxy "gtkTooltipTimeout" +settingsGtkTooltipTimeout = AttrLabelProxy + +settingsGtkTouchscreenMode :: AttrLabelProxy "gtkTouchscreenMode" +settingsGtkTouchscreenMode = AttrLabelProxy + +settingsGtkVisibleFocus :: AttrLabelProxy "gtkVisibleFocus" +settingsGtkVisibleFocus = AttrLabelProxy + +settingsGtkXftAntialias :: AttrLabelProxy "gtkXftAntialias" +settingsGtkXftAntialias = AttrLabelProxy + +settingsGtkXftDpi :: AttrLabelProxy "gtkXftDpi" +settingsGtkXftDpi = AttrLabelProxy + +settingsGtkXftHinting :: AttrLabelProxy "gtkXftHinting" +settingsGtkXftHinting = AttrLabelProxy + +settingsGtkXftHintstyle :: AttrLabelProxy "gtkXftHintstyle" +settingsGtkXftHintstyle = AttrLabelProxy + +settingsGtkXftRgba :: AttrLabelProxy "gtkXftRgba" +settingsGtkXftRgba = AttrLabelProxy + +type instance SignalList Settings = SettingsSignalList +type SettingsSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method Settings::set_double_property +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Settings", 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 = "v_double", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "origin", 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 "gtk_settings_set_double_property" gtk_settings_set_double_property :: + Ptr Settings -> -- _obj : TInterface "Gtk" "Settings" + CString -> -- name : TBasicType TUTF8 + CDouble -> -- v_double : TBasicType TDouble + CString -> -- origin : TBasicType TUTF8 + IO () + +{-# DEPRECATED settingsSetDoubleProperty ["(Since version 3.16)","Use g_object_set() instead."]#-} +settingsSetDoubleProperty :: + (MonadIO m, SettingsK a) => + a -- _obj + -> T.Text -- name + -> Double -- vDouble + -> T.Text -- origin + -> m () -- result +settingsSetDoubleProperty _obj name vDouble origin = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + name' <- textToCString name + let vDouble' = realToFrac vDouble + origin' <- textToCString origin + gtk_settings_set_double_property _obj' name' vDouble' origin' + touchManagedPtr _obj + freeMem name' + freeMem origin' + return () + +data SettingsSetDoublePropertyMethodInfo +instance (signature ~ (T.Text -> Double -> T.Text -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetDoublePropertyMethodInfo a signature where + overloadedMethod _ = settingsSetDoubleProperty + +-- method Settings::set_long_property +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Settings", 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 = "v_long", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "origin", 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 "gtk_settings_set_long_property" gtk_settings_set_long_property :: + Ptr Settings -> -- _obj : TInterface "Gtk" "Settings" + CString -> -- name : TBasicType TUTF8 + CLong -> -- v_long : TBasicType TLong + CString -> -- origin : TBasicType TUTF8 + IO () + +{-# DEPRECATED settingsSetLongProperty ["(Since version 3.16)","Use g_object_set() instead."]#-} +settingsSetLongProperty :: + (MonadIO m, SettingsK a) => + a -- _obj + -> T.Text -- name + -> CLong -- vLong + -> T.Text -- origin + -> m () -- result +settingsSetLongProperty _obj name vLong origin = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + name' <- textToCString name + origin' <- textToCString origin + gtk_settings_set_long_property _obj' name' vLong origin' + touchManagedPtr _obj + freeMem name' + freeMem origin' + return () + +data SettingsSetLongPropertyMethodInfo +instance (signature ~ (T.Text -> CLong -> T.Text -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetLongPropertyMethodInfo a signature where + overloadedMethod _ = settingsSetLongProperty + +-- method Settings::set_property_value +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Settings", 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 = "svalue", argType = TInterface "Gtk" "SettingsValue", 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 "gtk_settings_set_property_value" gtk_settings_set_property_value :: + Ptr Settings -> -- _obj : TInterface "Gtk" "Settings" + CString -> -- name : TBasicType TUTF8 + Ptr SettingsValue -> -- svalue : TInterface "Gtk" "SettingsValue" + IO () + +{-# DEPRECATED settingsSetPropertyValue ["(Since version 3.16)","Use g_object_set() instead."]#-} +settingsSetPropertyValue :: + (MonadIO m, SettingsK a) => + a -- _obj + -> T.Text -- name + -> SettingsValue -- svalue + -> m () -- result +settingsSetPropertyValue _obj name svalue = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + name' <- textToCString name + let svalue' = unsafeManagedPtrGetPtr svalue + gtk_settings_set_property_value _obj' name' svalue' + touchManagedPtr _obj + touchManagedPtr svalue + freeMem name' + return () + +data SettingsSetPropertyValueMethodInfo +instance (signature ~ (T.Text -> SettingsValue -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetPropertyValueMethodInfo a signature where + overloadedMethod _ = settingsSetPropertyValue + +-- method Settings::set_string_property +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Settings", 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 = "v_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "origin", 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 "gtk_settings_set_string_property" gtk_settings_set_string_property :: + Ptr Settings -> -- _obj : TInterface "Gtk" "Settings" + CString -> -- name : TBasicType TUTF8 + CString -> -- v_string : TBasicType TUTF8 + CString -> -- origin : TBasicType TUTF8 + IO () + +{-# DEPRECATED settingsSetStringProperty ["(Since version 3.16)","Use g_object_set() instead."]#-} +settingsSetStringProperty :: + (MonadIO m, SettingsK a) => + a -- _obj + -> T.Text -- name + -> T.Text -- vString + -> T.Text -- origin + -> m () -- result +settingsSetStringProperty _obj name vString origin = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + name' <- textToCString name + vString' <- textToCString vString + origin' <- textToCString origin + gtk_settings_set_string_property _obj' name' vString' origin' + touchManagedPtr _obj + freeMem name' + freeMem vString' + freeMem origin' + return () + +data SettingsSetStringPropertyMethodInfo +instance (signature ~ (T.Text -> T.Text -> T.Text -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsSetStringPropertyMethodInfo a signature where + overloadedMethod _ = settingsSetStringProperty + +-- method Settings::get_default +-- method type : MemberFunction +-- Args : [] +-- Lengths : [] +-- returnType : Just (TInterface "Gtk" "Settings") +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_settings_get_default" gtk_settings_get_default :: + IO (Ptr Settings) + + +settingsGetDefault :: + (MonadIO m) => + m Settings -- result +settingsGetDefault = liftIO $ do + result <- gtk_settings_get_default + checkUnexpectedReturnNULL "gtk_settings_get_default" result + result' <- (newObject Settings) result + return result' + +-- method Settings::get_for_screen +-- method type : MemberFunction +-- 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 "Gtk" "Settings") +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_settings_get_for_screen" gtk_settings_get_for_screen :: + Ptr Gdk.Screen -> -- screen : TInterface "Gdk" "Screen" + IO (Ptr Settings) + + +settingsGetForScreen :: + (MonadIO m, Gdk.ScreenK a) => + a -- screen + -> m Settings -- result +settingsGetForScreen screen = liftIO $ do + let screen' = unsafeManagedPtrCastPtr screen + result <- gtk_settings_get_for_screen screen' + checkUnexpectedReturnNULL "gtk_settings_get_for_screen" result + result' <- (newObject Settings) result + touchManagedPtr screen + return result' + +-- method Settings::install_property +-- method type : MemberFunction +-- Args : [Arg {argCName = "pspec", argType = TParamSpec, 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 "gtk_settings_install_property" gtk_settings_install_property :: + Ptr GParamSpec -> -- pspec : TParamSpec + IO () + +{-# DEPRECATED settingsInstallProperty ["(Since version 3.16)","This function is not useful outside GTK+."]#-} +settingsInstallProperty :: + (MonadIO m) => + GParamSpec -- pspec + -> m () -- result +settingsInstallProperty pspec = liftIO $ do + let pspec' = unsafeManagedPtrGetPtr pspec + gtk_settings_install_property pspec' + return () + +-- method Settings::install_property_parser +-- method type : MemberFunction +-- Args : [Arg {argCName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parser", argType = TInterface "Gtk" "RcPropertyParser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/Settings.hs-boot b/GI/Gtk/Objects/Settings.hs-boot --- a/GI/Gtk/Objects/Settings.hs-boot +++ b/GI/Gtk/Objects/Settings.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.Settings where -import Prelude () 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 diff --git a/GI/Gtk/Objects/SizeGroup.hs b/GI/Gtk/Objects/SizeGroup.hs --- a/GI/Gtk/Objects/SizeGroup.hs +++ b/GI/Gtk/Objects/SizeGroup.hs @@ -64,6 +64,7 @@ constructSizeGroupIgnoreHidden , getSizeGroupIgnoreHidden , setSizeGroupIgnoreHidden , + sizeGroupIgnoreHidden , -- ** Mode @@ -71,15 +72,16 @@ constructSizeGroupMode , getSizeGroupMode , setSizeGroupMode , + sizeGroupMode , ) where -import Prelude () 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 @@ -162,6 +164,7 @@ -- VVV Prop "ignore-hidden" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getSizeGroupIgnoreHidden :: (MonadIO m, SizeGroupK o) => o -> m Bool getSizeGroupIgnoreHidden obj = liftIO $ getObjectPropertyBool obj "ignore-hidden" @@ -182,10 +185,12 @@ attrGet _ = getSizeGroupIgnoreHidden attrSet _ = setSizeGroupIgnoreHidden attrConstruct _ = constructSizeGroupIgnoreHidden + attrClear _ = undefined -- VVV Prop "mode" -- Type: TInterface "Gtk" "SizeGroupMode" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getSizeGroupMode :: (MonadIO m, SizeGroupK o) => o -> m SizeGroupMode getSizeGroupMode obj = liftIO $ getObjectPropertyEnum obj "mode" @@ -206,10 +211,17 @@ attrGet _ = getSizeGroupMode attrSet _ = setSizeGroupMode attrConstruct _ = constructSizeGroupMode + attrClear _ = undefined type instance AttributeList SizeGroup = SizeGroupAttributeList type SizeGroupAttributeList = ('[ '("ignoreHidden", SizeGroupIgnoreHiddenPropertyInfo), '("mode", SizeGroupModePropertyInfo)] :: [(Symbol, *)]) +sizeGroupIgnoreHidden :: AttrLabelProxy "ignoreHidden" +sizeGroupIgnoreHidden = AttrLabelProxy + +sizeGroupMode :: AttrLabelProxy "mode" +sizeGroupMode = AttrLabelProxy + type instance SignalList SizeGroup = SizeGroupSignalList type SizeGroupSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -217,7 +229,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "mode", argType = TInterface "Gtk" "SizeGroupMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "SizeGroup" +-- returnType : Just (TInterface "Gtk" "SizeGroup") -- throws : False -- Skip return : False @@ -241,7 +253,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SizeGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -272,7 +284,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SizeGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -300,7 +312,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SizeGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "SizeGroupMode" +-- returnType : Just (TInterface "Gtk" "SizeGroupMode") -- throws : False -- Skip return : False @@ -328,7 +340,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SizeGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TGSList (TInterface "Gtk" "Widget") +-- returnType : Just (TGSList (TInterface "Gtk" "Widget")) -- throws : False -- Skip return : False @@ -344,7 +356,6 @@ sizeGroupGetWidgets _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_size_group_get_widgets _obj' - checkUnexpectedReturnNULL "gtk_size_group_get_widgets" result result' <- unpackGSList result result'' <- mapM (newObject Widget) result' touchManagedPtr _obj @@ -358,7 +369,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SizeGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -389,7 +400,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SizeGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ignore_hidden", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -419,7 +430,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SizeGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mode", argType = TInterface "Gtk" "SizeGroupMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/SizeGroup.hs-boot b/GI/Gtk/Objects/SizeGroup.hs-boot --- a/GI/Gtk/Objects/SizeGroup.hs-boot +++ b/GI/Gtk/Objects/SizeGroup.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.SizeGroup where -import Prelude () 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 diff --git a/GI/Gtk/Objects/Socket.hs b/GI/Gtk/Objects/Socket.hs --- a/GI/Gtk/Objects/Socket.hs +++ b/GI/Gtk/Objects/Socket.hs @@ -67,9 +67,9 @@ ) where -import Prelude () 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 @@ -524,7 +524,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "Socket" +-- returnType : Just (TInterface "Gtk" "Socket") -- throws : False -- Skip return : False @@ -543,22 +543,22 @@ -- method Socket::add_id -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_socket_add_id" gtk_socket_add_id :: Ptr Socket -> -- _obj : TInterface "Gtk" "Socket" - Word64 -> -- window : TBasicType TUInt64 + CULong -> -- window : TBasicType TULong IO () socketAddId :: (MonadIO m, SocketK a) => a -- _obj - -> Word64 -- window + -> CULong -- window -> m () -- result socketAddId _obj window = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj @@ -567,26 +567,26 @@ return () data SocketAddIdMethodInfo -instance (signature ~ (Word64 -> m ()), MonadIO m, SocketK a) => MethodInfo SocketAddIdMethodInfo a signature where +instance (signature ~ (CULong -> m ()), MonadIO m, SocketK a) => MethodInfo SocketAddIdMethodInfo a signature where overloadedMethod _ = socketAddId -- method Socket::get_id -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TULong) -- throws : False -- Skip return : False foreign import ccall "gtk_socket_get_id" gtk_socket_get_id :: Ptr Socket -> -- _obj : TInterface "Gtk" "Socket" - IO Word64 + IO CULong socketGetId :: (MonadIO m, SocketK a) => a -- _obj - -> m Word64 -- result + -> m CULong -- result socketGetId _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_socket_get_id _obj' @@ -594,14 +594,14 @@ return result data SocketGetIdMethodInfo -instance (signature ~ (m Word64), MonadIO m, SocketK a) => MethodInfo SocketGetIdMethodInfo a signature where +instance (signature ~ (m CULong), MonadIO m, SocketK a) => MethodInfo SocketGetIdMethodInfo a signature where overloadedMethod _ = socketGetId -- method Socket::get_plug_window -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gdk" "Window" +-- returnType : Just (TInterface "Gdk" "Window") -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/Socket.hs-boot b/GI/Gtk/Objects/Socket.hs-boot --- a/GI/Gtk/Objects/Socket.hs-boot +++ b/GI/Gtk/Objects/Socket.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.Socket where -import Prelude () 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 diff --git a/GI/Gtk/Objects/SpinButton.hs b/GI/Gtk/Objects/SpinButton.hs --- a/GI/Gtk/Objects/SpinButton.hs +++ b/GI/Gtk/Objects/SpinButton.hs @@ -143,6 +143,7 @@ constructSpinButtonAdjustment , getSpinButtonAdjustment , setSpinButtonAdjustment , + spinButtonAdjustment , -- ** ClimbRate @@ -150,6 +151,7 @@ constructSpinButtonClimbRate , getSpinButtonClimbRate , setSpinButtonClimbRate , + spinButtonClimbRate , -- ** Digits @@ -157,6 +159,7 @@ constructSpinButtonDigits , getSpinButtonDigits , setSpinButtonDigits , + spinButtonDigits , -- ** Numeric @@ -164,6 +167,7 @@ constructSpinButtonNumeric , getSpinButtonNumeric , setSpinButtonNumeric , + spinButtonNumeric , -- ** SnapToTicks @@ -171,6 +175,7 @@ constructSpinButtonSnapToTicks , getSpinButtonSnapToTicks , setSpinButtonSnapToTicks , + spinButtonSnapToTicks , -- ** UpdatePolicy @@ -178,6 +183,7 @@ constructSpinButtonUpdatePolicy , getSpinButtonUpdatePolicy , setSpinButtonUpdatePolicy , + spinButtonUpdatePolicy , -- ** Value @@ -185,6 +191,7 @@ constructSpinButtonValue , getSpinButtonValue , setSpinButtonValue , + spinButtonValue , -- ** Wrap @@ -192,6 +199,7 @@ constructSpinButtonWrap , getSpinButtonWrap , setSpinButtonWrap , + spinButtonWrap , @@ -261,9 +269,9 @@ ) where -import Prelude () 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 @@ -908,15 +916,16 @@ -- VVV Prop "adjustment" -- Type: TInterface "Gtk" "Adjustment" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getSpinButtonAdjustment :: (MonadIO m, SpinButtonK o) => o -> m Adjustment -getSpinButtonAdjustment obj = liftIO $ getObjectPropertyObject obj "adjustment" Adjustment +getSpinButtonAdjustment obj = liftIO $ checkUnexpectedNothing "getSpinButtonAdjustment" $ getObjectPropertyObject obj "adjustment" Adjustment setSpinButtonAdjustment :: (MonadIO m, SpinButtonK o, AdjustmentK a) => o -> a -> m () -setSpinButtonAdjustment obj val = liftIO $ setObjectPropertyObject obj "adjustment" val +setSpinButtonAdjustment obj val = liftIO $ setObjectPropertyObject obj "adjustment" (Just val) constructSpinButtonAdjustment :: (AdjustmentK a) => a -> IO ([Char], GValue) -constructSpinButtonAdjustment val = constructObjectPropertyObject "adjustment" val +constructSpinButtonAdjustment val = constructObjectPropertyObject "adjustment" (Just val) data SpinButtonAdjustmentPropertyInfo instance AttrInfo SpinButtonAdjustmentPropertyInfo where @@ -928,10 +937,12 @@ attrGet _ = getSpinButtonAdjustment attrSet _ = setSpinButtonAdjustment attrConstruct _ = constructSpinButtonAdjustment + attrClear _ = undefined -- VVV Prop "climb-rate" -- Type: TBasicType TDouble -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getSpinButtonClimbRate :: (MonadIO m, SpinButtonK o) => o -> m Double getSpinButtonClimbRate obj = liftIO $ getObjectPropertyDouble obj "climb-rate" @@ -952,19 +963,21 @@ attrGet _ = getSpinButtonClimbRate attrSet _ = setSpinButtonClimbRate attrConstruct _ = constructSpinButtonClimbRate + attrClear _ = undefined -- VVV Prop "digits" - -- Type: TBasicType TUInt32 + -- Type: TBasicType TUInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getSpinButtonDigits :: (MonadIO m, SpinButtonK o) => o -> m Word32 -getSpinButtonDigits obj = liftIO $ getObjectPropertyCUInt obj "digits" +getSpinButtonDigits obj = liftIO $ getObjectPropertyUInt32 obj "digits" setSpinButtonDigits :: (MonadIO m, SpinButtonK o) => o -> Word32 -> m () -setSpinButtonDigits obj val = liftIO $ setObjectPropertyCUInt obj "digits" val +setSpinButtonDigits obj val = liftIO $ setObjectPropertyUInt32 obj "digits" val constructSpinButtonDigits :: Word32 -> IO ([Char], GValue) -constructSpinButtonDigits val = constructObjectPropertyCUInt "digits" val +constructSpinButtonDigits val = constructObjectPropertyUInt32 "digits" val data SpinButtonDigitsPropertyInfo instance AttrInfo SpinButtonDigitsPropertyInfo where @@ -976,10 +989,12 @@ attrGet _ = getSpinButtonDigits attrSet _ = setSpinButtonDigits attrConstruct _ = constructSpinButtonDigits + attrClear _ = undefined -- VVV Prop "numeric" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getSpinButtonNumeric :: (MonadIO m, SpinButtonK o) => o -> m Bool getSpinButtonNumeric obj = liftIO $ getObjectPropertyBool obj "numeric" @@ -1000,10 +1015,12 @@ attrGet _ = getSpinButtonNumeric attrSet _ = setSpinButtonNumeric attrConstruct _ = constructSpinButtonNumeric + attrClear _ = undefined -- VVV Prop "snap-to-ticks" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getSpinButtonSnapToTicks :: (MonadIO m, SpinButtonK o) => o -> m Bool getSpinButtonSnapToTicks obj = liftIO $ getObjectPropertyBool obj "snap-to-ticks" @@ -1024,10 +1041,12 @@ attrGet _ = getSpinButtonSnapToTicks attrSet _ = setSpinButtonSnapToTicks attrConstruct _ = constructSpinButtonSnapToTicks + attrClear _ = undefined -- VVV Prop "update-policy" -- Type: TInterface "Gtk" "SpinButtonUpdatePolicy" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getSpinButtonUpdatePolicy :: (MonadIO m, SpinButtonK o) => o -> m SpinButtonUpdatePolicy getSpinButtonUpdatePolicy obj = liftIO $ getObjectPropertyEnum obj "update-policy" @@ -1048,10 +1067,12 @@ attrGet _ = getSpinButtonUpdatePolicy attrSet _ = setSpinButtonUpdatePolicy attrConstruct _ = constructSpinButtonUpdatePolicy + attrClear _ = undefined -- VVV Prop "value" -- Type: TBasicType TDouble -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getSpinButtonValue :: (MonadIO m, SpinButtonK o) => o -> m Double getSpinButtonValue obj = liftIO $ getObjectPropertyDouble obj "value" @@ -1072,10 +1093,12 @@ attrGet _ = getSpinButtonValue attrSet _ = setSpinButtonValue attrConstruct _ = constructSpinButtonValue + attrClear _ = undefined -- VVV Prop "wrap" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getSpinButtonWrap :: (MonadIO m, SpinButtonK o) => o -> m Bool getSpinButtonWrap obj = liftIO $ getObjectPropertyBool obj "wrap" @@ -1096,10 +1119,35 @@ attrGet _ = getSpinButtonWrap attrSet _ = setSpinButtonWrap attrConstruct _ = constructSpinButtonWrap + attrClear _ = undefined type instance AttributeList SpinButton = SpinButtonAttributeList type SpinButtonAttributeList = ('[ '("activatesDefault", EntryActivatesDefaultPropertyInfo), '("adjustment", SpinButtonAdjustmentPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("attributes", EntryAttributesPropertyInfo), '("buffer", EntryBufferPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("capsLockWarning", EntryCapsLockWarningPropertyInfo), '("climbRate", SpinButtonClimbRatePropertyInfo), '("completion", EntryCompletionPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("cursorPosition", EntryCursorPositionPropertyInfo), '("digits", SpinButtonDigitsPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("editable", EntryEditablePropertyInfo), '("editingCanceled", CellEditableEditingCanceledPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasFrame", EntryHasFramePropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("imModule", EntryImModulePropertyInfo), '("innerBorder", EntryInnerBorderPropertyInfo), '("inputHints", EntryInputHintsPropertyInfo), '("inputPurpose", EntryInputPurposePropertyInfo), '("invisibleChar", EntryInvisibleCharPropertyInfo), '("invisibleCharSet", EntryInvisibleCharSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("maxLength", EntryMaxLengthPropertyInfo), '("maxWidthChars", EntryMaxWidthCharsPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("numeric", SpinButtonNumericPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("overwriteMode", EntryOverwriteModePropertyInfo), '("parent", WidgetParentPropertyInfo), '("placeholderText", EntryPlaceholderTextPropertyInfo), '("populateAll", EntryPopulateAllPropertyInfo), '("primaryIconActivatable", EntryPrimaryIconActivatablePropertyInfo), '("primaryIconGicon", EntryPrimaryIconGiconPropertyInfo), '("primaryIconName", EntryPrimaryIconNamePropertyInfo), '("primaryIconPixbuf", EntryPrimaryIconPixbufPropertyInfo), '("primaryIconSensitive", EntryPrimaryIconSensitivePropertyInfo), '("primaryIconStock", EntryPrimaryIconStockPropertyInfo), '("primaryIconStorageType", EntryPrimaryIconStorageTypePropertyInfo), '("primaryIconTooltipMarkup", EntryPrimaryIconTooltipMarkupPropertyInfo), '("primaryIconTooltipText", EntryPrimaryIconTooltipTextPropertyInfo), '("progressFraction", EntryProgressFractionPropertyInfo), '("progressPulseStep", EntryProgressPulseStepPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("scrollOffset", EntryScrollOffsetPropertyInfo), '("secondaryIconActivatable", EntrySecondaryIconActivatablePropertyInfo), '("secondaryIconGicon", EntrySecondaryIconGiconPropertyInfo), '("secondaryIconName", EntrySecondaryIconNamePropertyInfo), '("secondaryIconPixbuf", EntrySecondaryIconPixbufPropertyInfo), '("secondaryIconSensitive", EntrySecondaryIconSensitivePropertyInfo), '("secondaryIconStock", EntrySecondaryIconStockPropertyInfo), '("secondaryIconStorageType", EntrySecondaryIconStorageTypePropertyInfo), '("secondaryIconTooltipMarkup", EntrySecondaryIconTooltipMarkupPropertyInfo), '("secondaryIconTooltipText", EntrySecondaryIconTooltipTextPropertyInfo), '("selectionBound", EntrySelectionBoundPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadowType", EntryShadowTypePropertyInfo), '("snapToTicks", SpinButtonSnapToTicksPropertyInfo), '("style", WidgetStylePropertyInfo), '("tabs", EntryTabsPropertyInfo), '("text", EntryTextPropertyInfo), '("textLength", EntryTextLengthPropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("truncateMultiline", EntryTruncateMultilinePropertyInfo), '("updatePolicy", SpinButtonUpdatePolicyPropertyInfo), '("valign", WidgetValignPropertyInfo), '("value", SpinButtonValuePropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visibility", EntryVisibilityPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthChars", EntryWidthCharsPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("wrap", SpinButtonWrapPropertyInfo), '("xalign", EntryXalignPropertyInfo)] :: [(Symbol, *)]) +spinButtonAdjustment :: AttrLabelProxy "adjustment" +spinButtonAdjustment = AttrLabelProxy + +spinButtonClimbRate :: AttrLabelProxy "climbRate" +spinButtonClimbRate = AttrLabelProxy + +spinButtonDigits :: AttrLabelProxy "digits" +spinButtonDigits = AttrLabelProxy + +spinButtonNumeric :: AttrLabelProxy "numeric" +spinButtonNumeric = AttrLabelProxy + +spinButtonSnapToTicks :: AttrLabelProxy "snapToTicks" +spinButtonSnapToTicks = AttrLabelProxy + +spinButtonUpdatePolicy :: AttrLabelProxy "updatePolicy" +spinButtonUpdatePolicy = AttrLabelProxy + +spinButtonValue :: AttrLabelProxy "value" +spinButtonValue = AttrLabelProxy + +spinButtonWrap :: AttrLabelProxy "wrap" +spinButtonWrap = AttrLabelProxy + data SpinButtonChangeValueSignalInfo instance SignalInfo SpinButtonChangeValueSignalInfo where type HaskellCallbackType SpinButtonChangeValueSignalInfo = SpinButtonChangeValueCallback @@ -1130,16 +1178,16 @@ -- method SpinButton::new -- method type : Constructor --- Args : [Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "climb_rate", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "digits", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "climb_rate", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "digits", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "SpinButton" +-- returnType : Just (TInterface "Gtk" "SpinButton") -- throws : False -- Skip return : False foreign import ccall "gtk_spin_button_new" gtk_spin_button_new :: Ptr Adjustment -> -- adjustment : TInterface "Gtk" "Adjustment" CDouble -> -- climb_rate : TBasicType TDouble - Word32 -> -- digits : TBasicType TUInt32 + Word32 -> -- digits : TBasicType TUInt IO (Ptr SpinButton) @@ -1166,7 +1214,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "SpinButton" +-- returnType : Just (TInterface "Gtk" "SpinButton") -- throws : False -- Skip return : False @@ -1194,9 +1242,9 @@ -- method SpinButton::configure -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "climb_rate", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "digits", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "climb_rate", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "digits", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1204,7 +1252,7 @@ Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton" Ptr Adjustment -> -- adjustment : TInterface "Gtk" "Adjustment" CDouble -> -- climb_rate : TBasicType TDouble - Word32 -> -- digits : TBasicType TUInt32 + Word32 -> -- digits : TBasicType TUInt IO () @@ -1236,7 +1284,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Adjustment" +-- returnType : Just (TInterface "Gtk" "Adjustment") -- throws : False -- Skip return : False @@ -1265,7 +1313,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt32 +-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -1292,7 +1340,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "step", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "page", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1329,7 +1377,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1357,7 +1405,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "min", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "max", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1394,7 +1442,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1422,7 +1470,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "SpinButtonUpdatePolicy" +-- returnType : Just (TInterface "Gtk" "SpinButtonUpdatePolicy") -- throws : False -- Skip return : False @@ -1450,7 +1498,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -1478,7 +1526,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1505,7 +1553,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1533,7 +1581,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1562,15 +1610,15 @@ -- method SpinButton::set_digits -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "digits", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "digits", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_spin_button_set_digits" gtk_spin_button_set_digits :: Ptr SpinButton -> -- _obj : TInterface "Gtk" "SpinButton" - Word32 -> -- digits : TBasicType TUInt32 + Word32 -> -- digits : TBasicType TUInt IO () @@ -1593,7 +1641,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "page", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1626,7 +1674,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "numeric", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1656,7 +1704,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1689,7 +1737,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "snap_to_ticks", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1719,7 +1767,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "policy", argType = TInterface "Gtk" "SpinButtonUpdatePolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1749,7 +1797,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1779,7 +1827,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wrap", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1809,7 +1857,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "direction", argType = TInterface "Gtk" "SpinType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1842,7 +1890,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/SpinButton.hs-boot b/GI/Gtk/Objects/SpinButton.hs-boot --- a/GI/Gtk/Objects/SpinButton.hs-boot +++ b/GI/Gtk/Objects/SpinButton.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.SpinButton where -import Prelude () 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 diff --git a/GI/Gtk/Objects/SpinButtonAccessible.hs b/GI/Gtk/Objects/SpinButtonAccessible.hs --- a/GI/Gtk/Objects/SpinButtonAccessible.hs +++ b/GI/Gtk/Objects/SpinButtonAccessible.hs @@ -18,9 +18,9 @@ ) where -import Prelude () 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 diff --git a/GI/Gtk/Objects/SpinButtonAccessible.hs-boot b/GI/Gtk/Objects/SpinButtonAccessible.hs-boot --- a/GI/Gtk/Objects/SpinButtonAccessible.hs-boot +++ b/GI/Gtk/Objects/SpinButtonAccessible.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.SpinButtonAccessible where -import Prelude () 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 diff --git a/GI/Gtk/Objects/Spinner.hs b/GI/Gtk/Objects/Spinner.hs --- a/GI/Gtk/Objects/Spinner.hs +++ b/GI/Gtk/Objects/Spinner.hs @@ -39,15 +39,16 @@ constructSpinnerActive , getSpinnerActive , setSpinnerActive , + spinnerActive , ) where -import Prelude () 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 @@ -379,6 +380,7 @@ -- VVV Prop "active" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getSpinnerActive :: (MonadIO m, SpinnerK o) => o -> m Bool getSpinnerActive obj = liftIO $ getObjectPropertyBool obj "active" @@ -399,10 +401,14 @@ attrGet _ = getSpinnerActive attrSet _ = setSpinnerActive attrConstruct _ = constructSpinnerActive + attrClear _ = undefined type instance AttributeList Spinner = SpinnerAttributeList type SpinnerAttributeList = ('[ '("active", SpinnerActivePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +spinnerActive :: AttrLabelProxy "active" +spinnerActive = AttrLabelProxy + type instance SignalList Spinner = SpinnerSignalList type SpinnerSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -410,7 +416,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "Spinner" +-- returnType : Just (TInterface "Gtk" "Spinner") -- throws : False -- Skip return : False @@ -431,7 +437,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Spinner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -458,7 +464,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Spinner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/Spinner.hs-boot b/GI/Gtk/Objects/Spinner.hs-boot --- a/GI/Gtk/Objects/Spinner.hs-boot +++ b/GI/Gtk/Objects/Spinner.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.Spinner where -import Prelude () 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 diff --git a/GI/Gtk/Objects/SpinnerAccessible.hs b/GI/Gtk/Objects/SpinnerAccessible.hs --- a/GI/Gtk/Objects/SpinnerAccessible.hs +++ b/GI/Gtk/Objects/SpinnerAccessible.hs @@ -18,9 +18,9 @@ ) where -import Prelude () 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 diff --git a/GI/Gtk/Objects/SpinnerAccessible.hs-boot b/GI/Gtk/Objects/SpinnerAccessible.hs-boot --- a/GI/Gtk/Objects/SpinnerAccessible.hs-boot +++ b/GI/Gtk/Objects/SpinnerAccessible.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.SpinnerAccessible where -import Prelude () 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 diff --git a/GI/Gtk/Objects/Stack.hs b/GI/Gtk/Objects/Stack.hs --- a/GI/Gtk/Objects/Stack.hs +++ b/GI/Gtk/Objects/Stack.hs @@ -134,6 +134,7 @@ constructStackHhomogeneous , getStackHhomogeneous , setStackHhomogeneous , + stackHhomogeneous , -- ** Homogeneous @@ -141,6 +142,7 @@ constructStackHomogeneous , getStackHomogeneous , setStackHomogeneous , + stackHomogeneous , -- ** InterpolateSize @@ -148,6 +150,7 @@ constructStackInterpolateSize , getStackInterpolateSize , setStackInterpolateSize , + stackInterpolateSize , -- ** TransitionDuration @@ -155,11 +158,13 @@ constructStackTransitionDuration , getStackTransitionDuration , setStackTransitionDuration , + stackTransitionDuration , -- ** TransitionRunning StackTransitionRunningPropertyInfo , getStackTransitionRunning , + stackTransitionRunning , -- ** TransitionType @@ -167,6 +172,7 @@ constructStackTransitionType , getStackTransitionType , setStackTransitionType , + stackTransitionType , -- ** Vhomogeneous @@ -174,6 +180,7 @@ constructStackVhomogeneous , getStackVhomogeneous , setStackVhomogeneous , + stackVhomogeneous , -- ** VisibleChild @@ -181,6 +188,7 @@ constructStackVisibleChild , getStackVisibleChild , setStackVisibleChild , + stackVisibleChild , -- ** VisibleChildName @@ -188,15 +196,16 @@ constructStackVisibleChildName , getStackVisibleChildName , setStackVisibleChildName , + stackVisibleChildName , ) where -import Prelude () 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 @@ -573,6 +582,7 @@ -- VVV Prop "hhomogeneous" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Just False,Just False) getStackHhomogeneous :: (MonadIO m, StackK o) => o -> m Bool getStackHhomogeneous obj = liftIO $ getObjectPropertyBool obj "hhomogeneous" @@ -593,10 +603,12 @@ attrGet _ = getStackHhomogeneous attrSet _ = setStackHhomogeneous attrConstruct _ = constructStackHhomogeneous + attrClear _ = undefined -- VVV Prop "homogeneous" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getStackHomogeneous :: (MonadIO m, StackK o) => o -> m Bool getStackHomogeneous obj = liftIO $ getObjectPropertyBool obj "homogeneous" @@ -617,10 +629,12 @@ attrGet _ = getStackHomogeneous attrSet _ = setStackHomogeneous attrConstruct _ = constructStackHomogeneous + attrClear _ = undefined -- VVV Prop "interpolate-size" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getStackInterpolateSize :: (MonadIO m, StackK o) => o -> m Bool getStackInterpolateSize obj = liftIO $ getObjectPropertyBool obj "interpolate-size" @@ -641,19 +655,21 @@ attrGet _ = getStackInterpolateSize attrSet _ = setStackInterpolateSize attrConstruct _ = constructStackInterpolateSize + attrClear _ = undefined -- VVV Prop "transition-duration" - -- Type: TBasicType TUInt32 + -- Type: TBasicType TUInt -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Just False,Just False) getStackTransitionDuration :: (MonadIO m, StackK o) => o -> m Word32 -getStackTransitionDuration obj = liftIO $ getObjectPropertyCUInt obj "transition-duration" +getStackTransitionDuration obj = liftIO $ getObjectPropertyUInt32 obj "transition-duration" setStackTransitionDuration :: (MonadIO m, StackK o) => o -> Word32 -> m () -setStackTransitionDuration obj val = liftIO $ setObjectPropertyCUInt obj "transition-duration" val +setStackTransitionDuration obj val = liftIO $ setObjectPropertyUInt32 obj "transition-duration" val constructStackTransitionDuration :: Word32 -> IO ([Char], GValue) -constructStackTransitionDuration val = constructObjectPropertyCUInt "transition-duration" val +constructStackTransitionDuration val = constructObjectPropertyUInt32 "transition-duration" val data StackTransitionDurationPropertyInfo instance AttrInfo StackTransitionDurationPropertyInfo where @@ -665,10 +681,12 @@ attrGet _ = getStackTransitionDuration attrSet _ = setStackTransitionDuration attrConstruct _ = constructStackTransitionDuration + attrClear _ = undefined -- VVV Prop "transition-running" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getStackTransitionRunning :: (MonadIO m, StackK o) => o -> m Bool getStackTransitionRunning obj = liftIO $ getObjectPropertyBool obj "transition-running" @@ -683,10 +701,12 @@ attrGet _ = getStackTransitionRunning attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "transition-type" -- Type: TInterface "Gtk" "StackTransitionType" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Just False,Just False) getStackTransitionType :: (MonadIO m, StackK o) => o -> m StackTransitionType getStackTransitionType obj = liftIO $ getObjectPropertyEnum obj "transition-type" @@ -707,10 +727,12 @@ attrGet _ = getStackTransitionType attrSet _ = setStackTransitionType attrConstruct _ = constructStackTransitionType + attrClear _ = undefined -- VVV Prop "vhomogeneous" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Just False,Just False) getStackVhomogeneous :: (MonadIO m, StackK o) => o -> m Bool getStackVhomogeneous obj = liftIO $ getObjectPropertyBool obj "vhomogeneous" @@ -731,19 +753,21 @@ attrGet _ = getStackVhomogeneous attrSet _ = setStackVhomogeneous attrConstruct _ = constructStackVhomogeneous + attrClear _ = undefined -- VVV Prop "visible-child" -- Type: TInterface "Gtk" "Widget" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getStackVisibleChild :: (MonadIO m, StackK o) => o -> m Widget -getStackVisibleChild obj = liftIO $ getObjectPropertyObject obj "visible-child" Widget +getStackVisibleChild obj = liftIO $ checkUnexpectedNothing "getStackVisibleChild" $ getObjectPropertyObject obj "visible-child" Widget setStackVisibleChild :: (MonadIO m, StackK o, WidgetK a) => o -> a -> m () -setStackVisibleChild obj val = liftIO $ setObjectPropertyObject obj "visible-child" val +setStackVisibleChild obj val = liftIO $ setObjectPropertyObject obj "visible-child" (Just val) constructStackVisibleChild :: (WidgetK a) => a -> IO ([Char], GValue) -constructStackVisibleChild val = constructObjectPropertyObject "visible-child" val +constructStackVisibleChild val = constructObjectPropertyObject "visible-child" (Just val) data StackVisibleChildPropertyInfo instance AttrInfo StackVisibleChildPropertyInfo where @@ -755,19 +779,21 @@ attrGet _ = getStackVisibleChild attrSet _ = setStackVisibleChild attrConstruct _ = constructStackVisibleChild + attrClear _ = undefined -- VVV Prop "visible-child-name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getStackVisibleChildName :: (MonadIO m, StackK o) => o -> m T.Text -getStackVisibleChildName obj = liftIO $ getObjectPropertyString obj "visible-child-name" +getStackVisibleChildName obj = liftIO $ checkUnexpectedNothing "getStackVisibleChildName" $ getObjectPropertyString obj "visible-child-name" setStackVisibleChildName :: (MonadIO m, StackK o) => o -> T.Text -> m () -setStackVisibleChildName obj val = liftIO $ setObjectPropertyString obj "visible-child-name" val +setStackVisibleChildName obj val = liftIO $ setObjectPropertyString obj "visible-child-name" (Just val) constructStackVisibleChildName :: T.Text -> IO ([Char], GValue) -constructStackVisibleChildName val = constructObjectPropertyString "visible-child-name" val +constructStackVisibleChildName val = constructObjectPropertyString "visible-child-name" (Just val) data StackVisibleChildNamePropertyInfo instance AttrInfo StackVisibleChildNamePropertyInfo where @@ -779,10 +805,38 @@ attrGet _ = getStackVisibleChildName attrSet _ = setStackVisibleChildName attrConstruct _ = constructStackVisibleChildName + attrClear _ = undefined type instance AttributeList Stack = StackAttributeList type StackAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hhomogeneous", StackHhomogeneousPropertyInfo), '("homogeneous", StackHomogeneousPropertyInfo), '("interpolateSize", StackInterpolateSizePropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("transitionDuration", StackTransitionDurationPropertyInfo), '("transitionRunning", StackTransitionRunningPropertyInfo), '("transitionType", StackTransitionTypePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("vhomogeneous", StackVhomogeneousPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visibleChild", StackVisibleChildPropertyInfo), '("visibleChildName", StackVisibleChildNamePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +stackHhomogeneous :: AttrLabelProxy "hhomogeneous" +stackHhomogeneous = AttrLabelProxy + +stackHomogeneous :: AttrLabelProxy "homogeneous" +stackHomogeneous = AttrLabelProxy + +stackInterpolateSize :: AttrLabelProxy "interpolateSize" +stackInterpolateSize = AttrLabelProxy + +stackTransitionDuration :: AttrLabelProxy "transitionDuration" +stackTransitionDuration = AttrLabelProxy + +stackTransitionRunning :: AttrLabelProxy "transitionRunning" +stackTransitionRunning = AttrLabelProxy + +stackTransitionType :: AttrLabelProxy "transitionType" +stackTransitionType = AttrLabelProxy + +stackVhomogeneous :: AttrLabelProxy "vhomogeneous" +stackVhomogeneous = AttrLabelProxy + +stackVisibleChild :: AttrLabelProxy "visibleChild" +stackVisibleChild = AttrLabelProxy + +stackVisibleChildName :: AttrLabelProxy "visibleChildName" +stackVisibleChildName = AttrLabelProxy + type instance SignalList Stack = StackSignalList type StackSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -790,7 +844,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "Stack" +-- returnType : Just (TInterface "Gtk" "Stack") -- throws : False -- Skip return : False @@ -811,7 +865,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -846,7 +900,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", 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 = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -885,7 +939,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", 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 : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -918,7 +972,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -946,7 +1000,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -974,7 +1028,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1002,7 +1056,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt32 +-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -1029,7 +1083,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1057,7 +1111,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "StackTransitionType" +-- returnType : Just (TInterface "Gtk" "StackTransitionType") -- throws : False -- Skip return : False @@ -1085,7 +1139,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1113,7 +1167,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -1142,7 +1196,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1171,7 +1225,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hhomogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1201,7 +1255,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1231,7 +1285,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interpolate_size", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1259,15 +1313,15 @@ -- method Stack::set_transition_duration -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "duration", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "duration", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_stack_set_transition_duration" gtk_stack_set_transition_duration :: Ptr Stack -> -- _obj : TInterface "Gtk" "Stack" - Word32 -> -- duration : TBasicType TUInt32 + Word32 -> -- duration : TBasicType TUInt IO () @@ -1290,7 +1344,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "transition", argType = TInterface "Gtk" "StackTransitionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1320,7 +1374,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "vhomogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1350,7 +1404,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1381,7 +1435,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", 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 = "transition", argType = TInterface "Gtk" "StackTransitionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1415,7 +1469,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Stack", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/Stack.hs-boot b/GI/Gtk/Objects/Stack.hs-boot --- a/GI/Gtk/Objects/Stack.hs-boot +++ b/GI/Gtk/Objects/Stack.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.Stack where -import Prelude () 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 diff --git a/GI/Gtk/Objects/StackSidebar.hs b/GI/Gtk/Objects/StackSidebar.hs --- a/GI/Gtk/Objects/StackSidebar.hs +++ b/GI/Gtk/Objects/StackSidebar.hs @@ -39,15 +39,16 @@ constructStackSidebarStack , getStackSidebarStack , setStackSidebarStack , + stackSidebarStack , ) where -import Prelude () 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 @@ -406,30 +407,35 @@ -- VVV Prop "stack" -- Type: TInterface "Gtk" "Stack" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getStackSidebarStack :: (MonadIO m, StackSidebarK o) => o -> m Stack +getStackSidebarStack :: (MonadIO m, StackSidebarK o) => o -> m (Maybe Stack) getStackSidebarStack obj = liftIO $ getObjectPropertyObject obj "stack" Stack setStackSidebarStack :: (MonadIO m, StackSidebarK o, StackK a) => o -> a -> m () -setStackSidebarStack obj val = liftIO $ setObjectPropertyObject obj "stack" val +setStackSidebarStack obj val = liftIO $ setObjectPropertyObject obj "stack" (Just val) constructStackSidebarStack :: (StackK a) => a -> IO ([Char], GValue) -constructStackSidebarStack val = constructObjectPropertyObject "stack" val +constructStackSidebarStack val = constructObjectPropertyObject "stack" (Just val) data StackSidebarStackPropertyInfo instance AttrInfo StackSidebarStackPropertyInfo where type AttrAllowedOps StackSidebarStackPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint StackSidebarStackPropertyInfo = StackK type AttrBaseTypeConstraint StackSidebarStackPropertyInfo = StackSidebarK - type AttrGetType StackSidebarStackPropertyInfo = Stack + type AttrGetType StackSidebarStackPropertyInfo = (Maybe Stack) type AttrLabel StackSidebarStackPropertyInfo = "stack" attrGet _ = getStackSidebarStack attrSet _ = setStackSidebarStack attrConstruct _ = constructStackSidebarStack + attrClear _ = undefined type instance AttributeList StackSidebar = StackSidebarAttributeList type StackSidebarAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("stack", StackSidebarStackPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +stackSidebarStack :: AttrLabelProxy "stack" +stackSidebarStack = AttrLabelProxy + type instance SignalList StackSidebar = StackSidebarSignalList type StackSidebarSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -437,7 +443,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "StackSidebar" +-- returnType : Just (TInterface "Gtk" "StackSidebar") -- throws : False -- Skip return : False @@ -458,7 +464,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StackSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Stack" +-- returnType : Just (TInterface "Gtk" "Stack") -- throws : False -- Skip return : False @@ -487,7 +493,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StackSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stack", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/StackSidebar.hs-boot b/GI/Gtk/Objects/StackSidebar.hs-boot --- a/GI/Gtk/Objects/StackSidebar.hs-boot +++ b/GI/Gtk/Objects/StackSidebar.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.StackSidebar where -import Prelude () 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 diff --git a/GI/Gtk/Objects/StackSwitcher.hs b/GI/Gtk/Objects/StackSwitcher.hs --- a/GI/Gtk/Objects/StackSwitcher.hs +++ b/GI/Gtk/Objects/StackSwitcher.hs @@ -36,18 +36,20 @@ -- * Properties -- ** Stack StackSwitcherStackPropertyInfo , + clearStackSwitcherStack , constructStackSwitcherStack , getStackSwitcherStack , setStackSwitcherStack , + stackSwitcherStack , ) where -import Prelude () 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 @@ -420,19 +422,23 @@ -- VVV Prop "stack" -- Type: TInterface "Gtk" "Stack" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Just False,Just True) getStackSwitcherStack :: (MonadIO m, StackSwitcherK o) => o -> m Stack -getStackSwitcherStack obj = liftIO $ getObjectPropertyObject obj "stack" Stack +getStackSwitcherStack obj = liftIO $ checkUnexpectedNothing "getStackSwitcherStack" $ getObjectPropertyObject obj "stack" Stack setStackSwitcherStack :: (MonadIO m, StackSwitcherK o, StackK a) => o -> a -> m () -setStackSwitcherStack obj val = liftIO $ setObjectPropertyObject obj "stack" val +setStackSwitcherStack obj val = liftIO $ setObjectPropertyObject obj "stack" (Just val) constructStackSwitcherStack :: (StackK a) => a -> IO ([Char], GValue) -constructStackSwitcherStack val = constructObjectPropertyObject "stack" val +constructStackSwitcherStack val = constructObjectPropertyObject "stack" (Just val) +clearStackSwitcherStack :: (MonadIO m, StackSwitcherK o) => o -> m () +clearStackSwitcherStack obj = liftIO $ setObjectPropertyObject obj "stack" (Nothing :: Maybe Stack) + data StackSwitcherStackPropertyInfo instance AttrInfo StackSwitcherStackPropertyInfo where - type AttrAllowedOps StackSwitcherStackPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps StackSwitcherStackPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint StackSwitcherStackPropertyInfo = StackK type AttrBaseTypeConstraint StackSwitcherStackPropertyInfo = StackSwitcherK type AttrGetType StackSwitcherStackPropertyInfo = Stack @@ -440,10 +446,14 @@ attrGet _ = getStackSwitcherStack attrSet _ = setStackSwitcherStack attrConstruct _ = constructStackSwitcherStack + attrClear _ = clearStackSwitcherStack type instance AttributeList StackSwitcher = StackSwitcherAttributeList type StackSwitcherAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("baselinePosition", BoxBaselinePositionPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("stack", StackSwitcherStackPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +stackSwitcherStack :: AttrLabelProxy "stack" +stackSwitcherStack = AttrLabelProxy + type instance SignalList StackSwitcher = StackSwitcherSignalList type StackSwitcherSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -451,7 +461,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "StackSwitcher" +-- returnType : Just (TInterface "Gtk" "StackSwitcher") -- throws : False -- Skip return : False @@ -472,7 +482,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StackSwitcher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Stack" +-- returnType : Just (TInterface "Gtk" "Stack") -- throws : False -- Skip return : False @@ -501,7 +511,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StackSwitcher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stack", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/StackSwitcher.hs-boot b/GI/Gtk/Objects/StackSwitcher.hs-boot --- a/GI/Gtk/Objects/StackSwitcher.hs-boot +++ b/GI/Gtk/Objects/StackSwitcher.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.StackSwitcher where -import Prelude () 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 diff --git a/GI/Gtk/Objects/StatusIcon.hs b/GI/Gtk/Objects/StatusIcon.hs --- a/GI/Gtk/Objects/StatusIcon.hs +++ b/GI/Gtk/Objects/StatusIcon.hs @@ -186,19 +186,24 @@ -- ** Embedded StatusIconEmbeddedPropertyInfo , getStatusIconEmbedded , + statusIconEmbedded , -- ** File StatusIconFilePropertyInfo , + clearStatusIconFile , constructStatusIconFile , setStatusIconFile , + statusIconFile , -- ** Gicon StatusIconGiconPropertyInfo , + clearStatusIconGicon , constructStatusIconGicon , getStatusIconGicon , setStatusIconGicon , + statusIconGicon , -- ** HasTooltip @@ -206,25 +211,31 @@ constructStatusIconHasTooltip , getStatusIconHasTooltip , setStatusIconHasTooltip , + statusIconHasTooltip , -- ** IconName StatusIconIconNamePropertyInfo , + clearStatusIconIconName , constructStatusIconIconName , getStatusIconIconName , setStatusIconIconName , + statusIconIconName , -- ** Orientation StatusIconOrientationPropertyInfo , getStatusIconOrientation , + statusIconOrientation , -- ** Pixbuf StatusIconPixbufPropertyInfo , + clearStatusIconPixbuf , constructStatusIconPixbuf , getStatusIconPixbuf , setStatusIconPixbuf , + statusIconPixbuf , -- ** Screen @@ -232,23 +243,28 @@ constructStatusIconScreen , getStatusIconScreen , setStatusIconScreen , + statusIconScreen , -- ** Size StatusIconSizePropertyInfo , getStatusIconSize , + statusIconSize , -- ** Stock StatusIconStockPropertyInfo , + clearStatusIconStock , constructStatusIconStock , getStatusIconStock , setStatusIconStock , + statusIconStock , -- ** StorageType StatusIconStorageTypePropertyInfo , getStatusIconStorageType , + statusIconStorageType , -- ** Title @@ -256,13 +272,16 @@ constructStatusIconTitle , getStatusIconTitle , setStatusIconTitle , + statusIconTitle , -- ** TooltipMarkup StatusIconTooltipMarkupPropertyInfo , + clearStatusIconTooltipMarkup , constructStatusIconTooltipMarkup , getStatusIconTooltipMarkup , setStatusIconTooltipMarkup , + statusIconTooltipMarkup , -- ** TooltipText @@ -270,6 +289,7 @@ constructStatusIconTooltipText , getStatusIconTooltipText , setStatusIconTooltipText , + statusIconTooltipText , -- ** Visible @@ -277,6 +297,7 @@ constructStatusIconVisible , getStatusIconVisible , setStatusIconVisible , + statusIconVisible , @@ -370,9 +391,9 @@ ) where -import Prelude () 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 @@ -779,6 +800,7 @@ -- VVV Prop "embedded" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) getStatusIconEmbedded :: (MonadIO m, StatusIconK o) => o -> m Bool getStatusIconEmbedded obj = liftIO $ getObjectPropertyBool obj "embedded" @@ -793,20 +815,25 @@ attrGet _ = getStatusIconEmbedded attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "file" -- Type: TBasicType TUTF8 -- Flags: [PropertyWritable] + -- Nullable: (Nothing,Nothing) setStatusIconFile :: (MonadIO m, StatusIconK o) => o -> T.Text -> m () -setStatusIconFile obj val = liftIO $ setObjectPropertyString obj "file" val +setStatusIconFile obj val = liftIO $ setObjectPropertyString obj "file" (Just val) constructStatusIconFile :: T.Text -> IO ([Char], GValue) -constructStatusIconFile val = constructObjectPropertyString "file" val +constructStatusIconFile val = constructObjectPropertyString "file" (Just val) +clearStatusIconFile :: (MonadIO m, StatusIconK o) => o -> m () +clearStatusIconFile obj = liftIO $ setObjectPropertyString obj "file" (Nothing :: Maybe T.Text) + data StatusIconFilePropertyInfo instance AttrInfo StatusIconFilePropertyInfo where - type AttrAllowedOps StatusIconFilePropertyInfo = '[ 'AttrSet, 'AttrConstruct] + type AttrAllowedOps StatusIconFilePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear] type AttrSetTypeConstraint StatusIconFilePropertyInfo = (~) T.Text type AttrBaseTypeConstraint StatusIconFilePropertyInfo = StatusIconK type AttrGetType StatusIconFilePropertyInfo = () @@ -814,23 +841,28 @@ attrGet _ = undefined attrSet _ = setStatusIconFile attrConstruct _ = constructStatusIconFile + attrClear _ = clearStatusIconFile -- VVV Prop "gicon" -- Type: TInterface "Gio" "Icon" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Nothing) getStatusIconGicon :: (MonadIO m, StatusIconK o) => o -> m Gio.Icon -getStatusIconGicon obj = liftIO $ getObjectPropertyObject obj "gicon" Gio.Icon +getStatusIconGicon obj = liftIO $ checkUnexpectedNothing "getStatusIconGicon" $ getObjectPropertyObject obj "gicon" Gio.Icon setStatusIconGicon :: (MonadIO m, StatusIconK o, Gio.IconK a) => o -> a -> m () -setStatusIconGicon obj val = liftIO $ setObjectPropertyObject obj "gicon" val +setStatusIconGicon obj val = liftIO $ setObjectPropertyObject obj "gicon" (Just val) constructStatusIconGicon :: (Gio.IconK a) => a -> IO ([Char], GValue) -constructStatusIconGicon val = constructObjectPropertyObject "gicon" val +constructStatusIconGicon val = constructObjectPropertyObject "gicon" (Just val) +clearStatusIconGicon :: (MonadIO m, StatusIconK o) => o -> m () +clearStatusIconGicon obj = liftIO $ setObjectPropertyObject obj "gicon" (Nothing :: Maybe Gio.Icon) + data StatusIconGiconPropertyInfo instance AttrInfo StatusIconGiconPropertyInfo where - type AttrAllowedOps StatusIconGiconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps StatusIconGiconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint StatusIconGiconPropertyInfo = Gio.IconK type AttrBaseTypeConstraint StatusIconGiconPropertyInfo = StatusIconK type AttrGetType StatusIconGiconPropertyInfo = Gio.Icon @@ -838,10 +870,12 @@ attrGet _ = getStatusIconGicon attrSet _ = setStatusIconGicon attrConstruct _ = constructStatusIconGicon + attrClear _ = clearStatusIconGicon -- VVV Prop "has-tooltip" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getStatusIconHasTooltip :: (MonadIO m, StatusIconK o) => o -> m Bool getStatusIconHasTooltip obj = liftIO $ getObjectPropertyBool obj "has-tooltip" @@ -862,23 +896,28 @@ attrGet _ = getStatusIconHasTooltip attrSet _ = setStatusIconHasTooltip attrConstruct _ = constructStatusIconHasTooltip + attrClear _ = undefined -- VVV Prop "icon-name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Nothing) getStatusIconIconName :: (MonadIO m, StatusIconK o) => o -> m T.Text -getStatusIconIconName obj = liftIO $ getObjectPropertyString obj "icon-name" +getStatusIconIconName obj = liftIO $ checkUnexpectedNothing "getStatusIconIconName" $ getObjectPropertyString obj "icon-name" setStatusIconIconName :: (MonadIO m, StatusIconK o) => o -> T.Text -> m () -setStatusIconIconName obj val = liftIO $ setObjectPropertyString obj "icon-name" val +setStatusIconIconName obj val = liftIO $ setObjectPropertyString obj "icon-name" (Just val) constructStatusIconIconName :: T.Text -> IO ([Char], GValue) -constructStatusIconIconName val = constructObjectPropertyString "icon-name" val +constructStatusIconIconName val = constructObjectPropertyString "icon-name" (Just val) +clearStatusIconIconName :: (MonadIO m, StatusIconK o) => o -> m () +clearStatusIconIconName obj = liftIO $ setObjectPropertyString obj "icon-name" (Nothing :: Maybe T.Text) + data StatusIconIconNamePropertyInfo instance AttrInfo StatusIconIconNamePropertyInfo where - type AttrAllowedOps StatusIconIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps StatusIconIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint StatusIconIconNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint StatusIconIconNamePropertyInfo = StatusIconK type AttrGetType StatusIconIconNamePropertyInfo = T.Text @@ -886,10 +925,12 @@ attrGet _ = getStatusIconIconName attrSet _ = setStatusIconIconName attrConstruct _ = constructStatusIconIconName + attrClear _ = clearStatusIconIconName -- VVV Prop "orientation" -- Type: TInterface "Gtk" "Orientation" -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) getStatusIconOrientation :: (MonadIO m, StatusIconK o) => o -> m Orientation getStatusIconOrientation obj = liftIO $ getObjectPropertyEnum obj "orientation" @@ -904,23 +945,28 @@ attrGet _ = getStatusIconOrientation attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "pixbuf" -- Type: TInterface "GdkPixbuf" "Pixbuf" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Nothing) getStatusIconPixbuf :: (MonadIO m, StatusIconK o) => o -> m GdkPixbuf.Pixbuf -getStatusIconPixbuf obj = liftIO $ getObjectPropertyObject obj "pixbuf" GdkPixbuf.Pixbuf +getStatusIconPixbuf obj = liftIO $ checkUnexpectedNothing "getStatusIconPixbuf" $ getObjectPropertyObject obj "pixbuf" GdkPixbuf.Pixbuf setStatusIconPixbuf :: (MonadIO m, StatusIconK o, GdkPixbuf.PixbufK a) => o -> a -> m () -setStatusIconPixbuf obj val = liftIO $ setObjectPropertyObject obj "pixbuf" val +setStatusIconPixbuf obj val = liftIO $ setObjectPropertyObject obj "pixbuf" (Just val) constructStatusIconPixbuf :: (GdkPixbuf.PixbufK a) => a -> IO ([Char], GValue) -constructStatusIconPixbuf val = constructObjectPropertyObject "pixbuf" val +constructStatusIconPixbuf val = constructObjectPropertyObject "pixbuf" (Just val) +clearStatusIconPixbuf :: (MonadIO m, StatusIconK o) => o -> m () +clearStatusIconPixbuf obj = liftIO $ setObjectPropertyObject obj "pixbuf" (Nothing :: Maybe GdkPixbuf.Pixbuf) + data StatusIconPixbufPropertyInfo instance AttrInfo StatusIconPixbufPropertyInfo where - type AttrAllowedOps StatusIconPixbufPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps StatusIconPixbufPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint StatusIconPixbufPropertyInfo = GdkPixbuf.PixbufK type AttrBaseTypeConstraint StatusIconPixbufPropertyInfo = StatusIconK type AttrGetType StatusIconPixbufPropertyInfo = GdkPixbuf.Pixbuf @@ -928,19 +974,21 @@ attrGet _ = getStatusIconPixbuf attrSet _ = setStatusIconPixbuf attrConstruct _ = constructStatusIconPixbuf + attrClear _ = clearStatusIconPixbuf -- VVV Prop "screen" -- Type: TInterface "Gdk" "Screen" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getStatusIconScreen :: (MonadIO m, StatusIconK o) => o -> m Gdk.Screen -getStatusIconScreen obj = liftIO $ getObjectPropertyObject obj "screen" Gdk.Screen +getStatusIconScreen obj = liftIO $ checkUnexpectedNothing "getStatusIconScreen" $ getObjectPropertyObject obj "screen" Gdk.Screen setStatusIconScreen :: (MonadIO m, StatusIconK o, Gdk.ScreenK a) => o -> a -> m () -setStatusIconScreen obj val = liftIO $ setObjectPropertyObject obj "screen" val +setStatusIconScreen obj val = liftIO $ setObjectPropertyObject obj "screen" (Just val) constructStatusIconScreen :: (Gdk.ScreenK a) => a -> IO ([Char], GValue) -constructStatusIconScreen val = constructObjectPropertyObject "screen" val +constructStatusIconScreen val = constructObjectPropertyObject "screen" (Just val) data StatusIconScreenPropertyInfo instance AttrInfo StatusIconScreenPropertyInfo where @@ -952,13 +1000,15 @@ attrGet _ = getStatusIconScreen attrSet _ = setStatusIconScreen attrConstruct _ = constructStatusIconScreen + attrClear _ = undefined -- VVV Prop "size" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getStatusIconSize :: (MonadIO m, StatusIconK o) => o -> m Int32 -getStatusIconSize obj = liftIO $ getObjectPropertyCInt obj "size" +getStatusIconSize obj = liftIO $ getObjectPropertyInt32 obj "size" data StatusIconSizePropertyInfo instance AttrInfo StatusIconSizePropertyInfo where @@ -970,23 +1020,28 @@ attrGet _ = getStatusIconSize attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "stock" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Nothing) getStatusIconStock :: (MonadIO m, StatusIconK o) => o -> m T.Text -getStatusIconStock obj = liftIO $ getObjectPropertyString obj "stock" +getStatusIconStock obj = liftIO $ checkUnexpectedNothing "getStatusIconStock" $ getObjectPropertyString obj "stock" setStatusIconStock :: (MonadIO m, StatusIconK o) => o -> T.Text -> m () -setStatusIconStock obj val = liftIO $ setObjectPropertyString obj "stock" val +setStatusIconStock obj val = liftIO $ setObjectPropertyString obj "stock" (Just val) constructStatusIconStock :: T.Text -> IO ([Char], GValue) -constructStatusIconStock val = constructObjectPropertyString "stock" val +constructStatusIconStock val = constructObjectPropertyString "stock" (Just val) +clearStatusIconStock :: (MonadIO m, StatusIconK o) => o -> m () +clearStatusIconStock obj = liftIO $ setObjectPropertyString obj "stock" (Nothing :: Maybe T.Text) + data StatusIconStockPropertyInfo instance AttrInfo StatusIconStockPropertyInfo where - type AttrAllowedOps StatusIconStockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps StatusIconStockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint StatusIconStockPropertyInfo = (~) T.Text type AttrBaseTypeConstraint StatusIconStockPropertyInfo = StatusIconK type AttrGetType StatusIconStockPropertyInfo = T.Text @@ -994,10 +1049,12 @@ attrGet _ = getStatusIconStock attrSet _ = setStatusIconStock attrConstruct _ = constructStatusIconStock + attrClear _ = clearStatusIconStock -- VVV Prop "storage-type" -- Type: TInterface "Gtk" "ImageType" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getStatusIconStorageType :: (MonadIO m, StatusIconK o) => o -> m ImageType getStatusIconStorageType obj = liftIO $ getObjectPropertyEnum obj "storage-type" @@ -1012,19 +1069,21 @@ attrGet _ = getStatusIconStorageType attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "title" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getStatusIconTitle :: (MonadIO m, StatusIconK o) => o -> m T.Text -getStatusIconTitle obj = liftIO $ getObjectPropertyString obj "title" +getStatusIconTitle obj = liftIO $ checkUnexpectedNothing "getStatusIconTitle" $ getObjectPropertyString obj "title" setStatusIconTitle :: (MonadIO m, StatusIconK o) => o -> T.Text -> m () -setStatusIconTitle obj val = liftIO $ setObjectPropertyString obj "title" val +setStatusIconTitle obj val = liftIO $ setObjectPropertyString obj "title" (Just val) constructStatusIconTitle :: T.Text -> IO ([Char], GValue) -constructStatusIconTitle val = constructObjectPropertyString "title" val +constructStatusIconTitle val = constructObjectPropertyString "title" (Just val) data StatusIconTitlePropertyInfo instance AttrInfo StatusIconTitlePropertyInfo where @@ -1036,58 +1095,67 @@ attrGet _ = getStatusIconTitle attrSet _ = setStatusIconTitle attrConstruct _ = constructStatusIconTitle + attrClear _ = undefined -- VVV Prop "tooltip-markup" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just True) -getStatusIconTooltipMarkup :: (MonadIO m, StatusIconK o) => o -> m T.Text +getStatusIconTooltipMarkup :: (MonadIO m, StatusIconK o) => o -> m (Maybe T.Text) getStatusIconTooltipMarkup obj = liftIO $ getObjectPropertyString obj "tooltip-markup" setStatusIconTooltipMarkup :: (MonadIO m, StatusIconK o) => o -> T.Text -> m () -setStatusIconTooltipMarkup obj val = liftIO $ setObjectPropertyString obj "tooltip-markup" val +setStatusIconTooltipMarkup obj val = liftIO $ setObjectPropertyString obj "tooltip-markup" (Just val) constructStatusIconTooltipMarkup :: T.Text -> IO ([Char], GValue) -constructStatusIconTooltipMarkup val = constructObjectPropertyString "tooltip-markup" val +constructStatusIconTooltipMarkup val = constructObjectPropertyString "tooltip-markup" (Just val) +clearStatusIconTooltipMarkup :: (MonadIO m, StatusIconK o) => o -> m () +clearStatusIconTooltipMarkup obj = liftIO $ setObjectPropertyString obj "tooltip-markup" (Nothing :: Maybe T.Text) + data StatusIconTooltipMarkupPropertyInfo instance AttrInfo StatusIconTooltipMarkupPropertyInfo where - type AttrAllowedOps StatusIconTooltipMarkupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps StatusIconTooltipMarkupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint StatusIconTooltipMarkupPropertyInfo = (~) T.Text type AttrBaseTypeConstraint StatusIconTooltipMarkupPropertyInfo = StatusIconK - type AttrGetType StatusIconTooltipMarkupPropertyInfo = T.Text + type AttrGetType StatusIconTooltipMarkupPropertyInfo = (Maybe T.Text) type AttrLabel StatusIconTooltipMarkupPropertyInfo = "tooltip-markup" attrGet _ = getStatusIconTooltipMarkup attrSet _ = setStatusIconTooltipMarkup attrConstruct _ = constructStatusIconTooltipMarkup + attrClear _ = clearStatusIconTooltipMarkup -- VVV Prop "tooltip-text" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getStatusIconTooltipText :: (MonadIO m, StatusIconK o) => o -> m T.Text +getStatusIconTooltipText :: (MonadIO m, StatusIconK o) => o -> m (Maybe T.Text) getStatusIconTooltipText obj = liftIO $ getObjectPropertyString obj "tooltip-text" setStatusIconTooltipText :: (MonadIO m, StatusIconK o) => o -> T.Text -> m () -setStatusIconTooltipText obj val = liftIO $ setObjectPropertyString obj "tooltip-text" val +setStatusIconTooltipText obj val = liftIO $ setObjectPropertyString obj "tooltip-text" (Just val) constructStatusIconTooltipText :: T.Text -> IO ([Char], GValue) -constructStatusIconTooltipText val = constructObjectPropertyString "tooltip-text" val +constructStatusIconTooltipText val = constructObjectPropertyString "tooltip-text" (Just val) data StatusIconTooltipTextPropertyInfo instance AttrInfo StatusIconTooltipTextPropertyInfo where type AttrAllowedOps StatusIconTooltipTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint StatusIconTooltipTextPropertyInfo = (~) T.Text type AttrBaseTypeConstraint StatusIconTooltipTextPropertyInfo = StatusIconK - type AttrGetType StatusIconTooltipTextPropertyInfo = T.Text + type AttrGetType StatusIconTooltipTextPropertyInfo = (Maybe T.Text) type AttrLabel StatusIconTooltipTextPropertyInfo = "tooltip-text" attrGet _ = getStatusIconTooltipText attrSet _ = setStatusIconTooltipText attrConstruct _ = constructStatusIconTooltipText + attrClear _ = undefined -- VVV Prop "visible" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getStatusIconVisible :: (MonadIO m, StatusIconK o) => o -> m Bool getStatusIconVisible obj = liftIO $ getObjectPropertyBool obj "visible" @@ -1108,10 +1176,56 @@ attrGet _ = getStatusIconVisible attrSet _ = setStatusIconVisible attrConstruct _ = constructStatusIconVisible + attrClear _ = undefined type instance AttributeList StatusIcon = StatusIconAttributeList type StatusIconAttributeList = ('[ '("embedded", StatusIconEmbeddedPropertyInfo), '("file", StatusIconFilePropertyInfo), '("gicon", StatusIconGiconPropertyInfo), '("hasTooltip", StatusIconHasTooltipPropertyInfo), '("iconName", StatusIconIconNamePropertyInfo), '("orientation", StatusIconOrientationPropertyInfo), '("pixbuf", StatusIconPixbufPropertyInfo), '("screen", StatusIconScreenPropertyInfo), '("size", StatusIconSizePropertyInfo), '("stock", StatusIconStockPropertyInfo), '("storageType", StatusIconStorageTypePropertyInfo), '("title", StatusIconTitlePropertyInfo), '("tooltipMarkup", StatusIconTooltipMarkupPropertyInfo), '("tooltipText", StatusIconTooltipTextPropertyInfo), '("visible", StatusIconVisiblePropertyInfo)] :: [(Symbol, *)]) +statusIconEmbedded :: AttrLabelProxy "embedded" +statusIconEmbedded = AttrLabelProxy + +statusIconFile :: AttrLabelProxy "file" +statusIconFile = AttrLabelProxy + +statusIconGicon :: AttrLabelProxy "gicon" +statusIconGicon = AttrLabelProxy + +statusIconHasTooltip :: AttrLabelProxy "hasTooltip" +statusIconHasTooltip = AttrLabelProxy + +statusIconIconName :: AttrLabelProxy "iconName" +statusIconIconName = AttrLabelProxy + +statusIconOrientation :: AttrLabelProxy "orientation" +statusIconOrientation = AttrLabelProxy + +statusIconPixbuf :: AttrLabelProxy "pixbuf" +statusIconPixbuf = AttrLabelProxy + +statusIconScreen :: AttrLabelProxy "screen" +statusIconScreen = AttrLabelProxy + +statusIconSize :: AttrLabelProxy "size" +statusIconSize = AttrLabelProxy + +statusIconStock :: AttrLabelProxy "stock" +statusIconStock = AttrLabelProxy + +statusIconStorageType :: AttrLabelProxy "storageType" +statusIconStorageType = AttrLabelProxy + +statusIconTitle :: AttrLabelProxy "title" +statusIconTitle = AttrLabelProxy + +statusIconTooltipMarkup :: AttrLabelProxy "tooltipMarkup" +statusIconTooltipMarkup = AttrLabelProxy + +statusIconTooltipText :: AttrLabelProxy "tooltipText" +statusIconTooltipText = AttrLabelProxy + +statusIconVisible :: AttrLabelProxy "visible" +statusIconVisible = AttrLabelProxy + data StatusIconActivateSignalInfo instance SignalInfo StatusIconActivateSignalInfo where type HaskellCallbackType StatusIconActivateSignalInfo = StatusIconActivateCallback @@ -1154,7 +1268,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "StatusIcon" +-- returnType : Just (TInterface "Gtk" "StatusIcon") -- throws : False -- Skip return : False @@ -1175,7 +1289,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "StatusIcon" +-- returnType : Just (TInterface "Gtk" "StatusIcon") -- throws : False -- Skip return : False @@ -1200,7 +1314,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "StatusIcon" +-- returnType : Just (TInterface "Gtk" "StatusIcon") -- throws : False -- Skip return : False @@ -1225,7 +1339,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "StatusIcon" +-- returnType : Just (TInterface "Gtk" "StatusIcon") -- throws : False -- Skip return : False @@ -1250,7 +1364,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "StatusIcon" +-- returnType : Just (TInterface "Gtk" "StatusIcon") -- throws : False -- Skip return : False @@ -1275,7 +1389,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "StatusIcon" +-- returnType : Just (TInterface "Gtk" "StatusIcon") -- throws : False -- Skip return : False @@ -1300,7 +1414,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", 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 = "area", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1341,7 +1455,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gio" "Icon" +-- returnType : Just (TInterface "Gio" "Icon") -- throws : False -- Skip return : False @@ -1370,7 +1484,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1398,7 +1512,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1427,7 +1541,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : False -- Skip return : False @@ -1456,7 +1570,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gdk" "Screen" +-- returnType : Just (TInterface "Gdk" "Screen") -- throws : False -- Skip return : False @@ -1485,7 +1599,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1512,7 +1626,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1541,7 +1655,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "ImageType" +-- returnType : Just (TInterface "Gtk" "ImageType") -- throws : False -- Skip return : False @@ -1569,7 +1683,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1598,7 +1712,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1628,7 +1742,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1658,7 +1772,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1686,7 +1800,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt32 +-- returnType : Just (TBasicType TUInt32) -- throws : False -- Skip return : False @@ -1713,7 +1827,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1741,7 +1855,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1772,7 +1886,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1803,7 +1917,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1834,7 +1948,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1869,7 +1983,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1900,7 +2014,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "has_tooltip", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1930,7 +2044,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1961,7 +2075,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1992,7 +2106,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2023,7 +2137,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2058,7 +2172,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2089,7 +2203,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2117,16 +2231,16 @@ -- method StatusIcon::position_menu -- method type : MemberFunction --- Args : [Arg {argCName = "menu", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "push_in", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "user_data", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "menu", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "push_in", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "user_data", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_status_icon_position_menu" gtk_status_icon_position_menu :: Ptr Menu -> -- menu : TInterface "Gtk" "Menu" - Ptr Int32 -> -- x : TBasicType TInt32 - Ptr Int32 -> -- y : TBasicType TInt32 + Ptr Int32 -> -- x : TBasicType TInt + Ptr Int32 -> -- y : TBasicType TInt Ptr CInt -> -- push_in : TBasicType TBoolean Ptr StatusIcon -> -- user_data : TInterface "Gtk" "StatusIcon" IO () diff --git a/GI/Gtk/Objects/StatusIcon.hs-boot b/GI/Gtk/Objects/StatusIcon.hs-boot --- a/GI/Gtk/Objects/StatusIcon.hs-boot +++ b/GI/Gtk/Objects/StatusIcon.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.StatusIcon where -import Prelude () 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 diff --git a/GI/Gtk/Objects/Statusbar.hs b/GI/Gtk/Objects/Statusbar.hs --- a/GI/Gtk/Objects/Statusbar.hs +++ b/GI/Gtk/Objects/Statusbar.hs @@ -82,9 +82,9 @@ ) where -import Prelude () 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 @@ -566,7 +566,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "Statusbar" +-- returnType : Just (TInterface "Gtk" "Statusbar") -- throws : False -- Skip return : False @@ -587,7 +587,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Statusbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context_description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt32 +-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -618,7 +618,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Statusbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Box" +-- returnType : Just (TInterface "Gtk" "Box") -- throws : False -- Skip return : False @@ -645,15 +645,15 @@ -- method Statusbar::pop -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Statusbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Statusbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context_id", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_statusbar_pop" gtk_statusbar_pop :: Ptr Statusbar -> -- _obj : TInterface "Gtk" "Statusbar" - Word32 -> -- context_id : TBasicType TUInt32 + Word32 -> -- context_id : TBasicType TUInt IO () @@ -674,15 +674,15 @@ -- method Statusbar::push -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Statusbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Statusbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context_id", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt32 +-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False foreign import ccall "gtk_statusbar_push" gtk_statusbar_push :: Ptr Statusbar -> -- _obj : TInterface "Gtk" "Statusbar" - Word32 -> -- context_id : TBasicType TUInt32 + Word32 -> -- context_id : TBasicType TUInt CString -> -- text : TBasicType TUTF8 IO Word32 @@ -707,16 +707,16 @@ -- method Statusbar::remove -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Statusbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "message_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Statusbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context_id", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "message_id", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_statusbar_remove" gtk_statusbar_remove :: Ptr Statusbar -> -- _obj : TInterface "Gtk" "Statusbar" - Word32 -> -- context_id : TBasicType TUInt32 - Word32 -> -- message_id : TBasicType TUInt32 + Word32 -> -- context_id : TBasicType TUInt + Word32 -> -- message_id : TBasicType TUInt IO () @@ -738,15 +738,15 @@ -- method Statusbar::remove_all -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Statusbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Statusbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context_id", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_statusbar_remove_all" gtk_statusbar_remove_all :: Ptr Statusbar -> -- _obj : TInterface "Gtk" "Statusbar" - Word32 -> -- context_id : TBasicType TUInt32 + Word32 -> -- context_id : TBasicType TUInt IO () diff --git a/GI/Gtk/Objects/Statusbar.hs-boot b/GI/Gtk/Objects/Statusbar.hs-boot --- a/GI/Gtk/Objects/Statusbar.hs-boot +++ b/GI/Gtk/Objects/Statusbar.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.Statusbar where -import Prelude () 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 diff --git a/GI/Gtk/Objects/StatusbarAccessible.hs b/GI/Gtk/Objects/StatusbarAccessible.hs --- a/GI/Gtk/Objects/StatusbarAccessible.hs +++ b/GI/Gtk/Objects/StatusbarAccessible.hs @@ -18,9 +18,9 @@ ) where -import Prelude () 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 diff --git a/GI/Gtk/Objects/StatusbarAccessible.hs-boot b/GI/Gtk/Objects/StatusbarAccessible.hs-boot --- a/GI/Gtk/Objects/StatusbarAccessible.hs-boot +++ b/GI/Gtk/Objects/StatusbarAccessible.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.StatusbarAccessible where -import Prelude () 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 diff --git a/GI/Gtk/Objects/Style.hs b/GI/Gtk/Objects/Style.hs --- a/GI/Gtk/Objects/Style.hs +++ b/GI/Gtk/Objects/Style.hs @@ -73,6 +73,7 @@ StyleContextPropertyInfo , constructStyleContext , getStyleContext , + styleContext , @@ -106,9 +107,9 @@ ) where -import Prelude () 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 @@ -262,27 +263,32 @@ -- VVV Prop "context" -- Type: TInterface "Gtk" "StyleContext" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + -- Nullable: (Nothing,Nothing) -getStyleContext :: (MonadIO m, StyleK o) => o -> m StyleContext +getStyleContext :: (MonadIO m, StyleK o) => o -> m (Maybe StyleContext) getStyleContext obj = liftIO $ getObjectPropertyObject obj "context" StyleContext constructStyleContext :: (StyleContextK a) => a -> IO ([Char], GValue) -constructStyleContext val = constructObjectPropertyObject "context" val +constructStyleContext val = constructObjectPropertyObject "context" (Just val) data StyleContextPropertyInfo instance AttrInfo StyleContextPropertyInfo where - type AttrAllowedOps StyleContextPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrAllowedOps StyleContextPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint StyleContextPropertyInfo = StyleContextK type AttrBaseTypeConstraint StyleContextPropertyInfo = StyleK - type AttrGetType StyleContextPropertyInfo = StyleContext + type AttrGetType StyleContextPropertyInfo = (Maybe StyleContext) type AttrLabel StyleContextPropertyInfo = "context" attrGet _ = getStyleContext attrSet _ = undefined attrConstruct _ = constructStyleContext + attrClear _ = undefined type instance AttributeList Style = StyleAttributeList type StyleAttributeList = ('[ '("context", StyleContextPropertyInfo)] :: [(Symbol, *)]) +styleContext :: AttrLabelProxy "context" +styleContext = AttrLabelProxy + data StyleRealizeSignalInfo instance SignalInfo StyleRealizeSignalInfo where type HaskellCallbackType StyleRealizeSignalInfo = StyleRealizeCallback @@ -300,7 +306,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "Style" +-- returnType : Just (TInterface "Gtk" "Style") -- throws : False -- Skip return : False @@ -319,9 +325,9 @@ -- method Style::apply_default_background -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Style", 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},Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Style", 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},Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_type", argType = TInterface "Gtk" "StateType", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -330,10 +336,10 @@ Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" Ptr Gdk.Window -> -- window : TInterface "Gdk" "Window" CUInt -> -- state_type : TInterface "Gtk" "StateType" - Int32 -> -- x : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 + Int32 -> -- x : TBasicType TInt + Int32 -> -- y : TBasicType TInt + Int32 -> -- width : TBasicType TInt + Int32 -> -- height : TBasicType TInt IO () {-# DEPRECATED styleApplyDefaultBackground ["(Since version 3.0)","Use #GtkStyleContext instead"]#-} @@ -367,7 +373,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Style" +-- returnType : Just (TInterface "Gtk" "Style") -- throws : False -- Skip return : False @@ -396,7 +402,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -423,7 +429,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property_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 = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -460,7 +466,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -488,7 +494,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color_name", 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 : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -523,7 +529,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "IconSet" +-- returnType : Just (TInterface "Gtk" "IconSet") -- throws : False -- Skip return : False @@ -554,9 +560,9 @@ -- method Style::render_icon -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "direction", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "direction", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : False -- Skip return : False @@ -565,7 +571,7 @@ Ptr IconSource -> -- source : TInterface "Gtk" "IconSource" CUInt -> -- direction : TInterface "Gtk" "TextDirection" CUInt -> -- state : TInterface "Gtk" "StateType" - Int32 -> -- size : TBasicType TInt32 + Int32 -> -- size : TBasicType TInt Ptr Widget -> -- widget : TInterface "Gtk" "Widget" CString -> -- detail : TBasicType TUTF8 IO (Ptr GdkPixbuf.Pixbuf) @@ -613,7 +619,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Style", 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 = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/Style.hs-boot b/GI/Gtk/Objects/Style.hs-boot --- a/GI/Gtk/Objects/Style.hs-boot +++ b/GI/Gtk/Objects/Style.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.Style where -import Prelude () 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 diff --git a/GI/Gtk/Objects/StyleContext.hs b/GI/Gtk/Objects/StyleContext.hs --- a/GI/Gtk/Objects/StyleContext.hs +++ b/GI/Gtk/Objects/StyleContext.hs @@ -281,20 +281,25 @@ constructStyleContextDirection , getStyleContextDirection , setStyleContextDirection , + styleContextDirection , -- ** PaintClock StyleContextPaintClockPropertyInfo , + clearStyleContextPaintClock , constructStyleContextPaintClock , getStyleContextPaintClock , setStyleContextPaintClock , + styleContextPaintClock , -- ** Parent StyleContextParentPropertyInfo , + clearStyleContextParent , constructStyleContextParent , getStyleContextParent , setStyleContextParent , + styleContextParent , -- ** Screen @@ -302,6 +307,7 @@ constructStyleContextScreen , getStyleContextScreen , setStyleContextScreen , + styleContextScreen , @@ -323,9 +329,9 @@ ) where -import Prelude () 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 @@ -477,6 +483,7 @@ -- VVV Prop "direction" -- Type: TInterface "Gtk" "TextDirection" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getStyleContextDirection :: (MonadIO m, StyleContextK o) => o -> m TextDirection getStyleContextDirection obj = liftIO $ getObjectPropertyEnum obj "direction" @@ -497,47 +504,57 @@ attrGet _ = getStyleContextDirection attrSet _ = setStyleContextDirection attrConstruct _ = constructStyleContextDirection + attrClear _ = undefined -- VVV Prop "paint-clock" -- Type: TInterface "Gdk" "FrameClock" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getStyleContextPaintClock :: (MonadIO m, StyleContextK o) => o -> m Gdk.FrameClock +getStyleContextPaintClock :: (MonadIO m, StyleContextK o) => o -> m (Maybe Gdk.FrameClock) getStyleContextPaintClock obj = liftIO $ getObjectPropertyObject obj "paint-clock" Gdk.FrameClock setStyleContextPaintClock :: (MonadIO m, StyleContextK o, Gdk.FrameClockK a) => o -> a -> m () -setStyleContextPaintClock obj val = liftIO $ setObjectPropertyObject obj "paint-clock" val +setStyleContextPaintClock obj val = liftIO $ setObjectPropertyObject obj "paint-clock" (Just val) constructStyleContextPaintClock :: (Gdk.FrameClockK a) => a -> IO ([Char], GValue) -constructStyleContextPaintClock val = constructObjectPropertyObject "paint-clock" val +constructStyleContextPaintClock val = constructObjectPropertyObject "paint-clock" (Just val) +clearStyleContextPaintClock :: (MonadIO m, StyleContextK o) => o -> m () +clearStyleContextPaintClock obj = liftIO $ setObjectPropertyObject obj "paint-clock" (Nothing :: Maybe Gdk.FrameClock) + data StyleContextPaintClockPropertyInfo instance AttrInfo StyleContextPaintClockPropertyInfo where - type AttrAllowedOps StyleContextPaintClockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps StyleContextPaintClockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint StyleContextPaintClockPropertyInfo = Gdk.FrameClockK type AttrBaseTypeConstraint StyleContextPaintClockPropertyInfo = StyleContextK - type AttrGetType StyleContextPaintClockPropertyInfo = Gdk.FrameClock + type AttrGetType StyleContextPaintClockPropertyInfo = (Maybe Gdk.FrameClock) type AttrLabel StyleContextPaintClockPropertyInfo = "paint-clock" attrGet _ = getStyleContextPaintClock attrSet _ = setStyleContextPaintClock attrConstruct _ = constructStyleContextPaintClock + attrClear _ = clearStyleContextPaintClock -- VVV Prop "parent" -- Type: TInterface "Gtk" "StyleContext" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) getStyleContextParent :: (MonadIO m, StyleContextK o) => o -> m StyleContext -getStyleContextParent obj = liftIO $ getObjectPropertyObject obj "parent" StyleContext +getStyleContextParent obj = liftIO $ checkUnexpectedNothing "getStyleContextParent" $ getObjectPropertyObject obj "parent" StyleContext setStyleContextParent :: (MonadIO m, StyleContextK o, StyleContextK a) => o -> a -> m () -setStyleContextParent obj val = liftIO $ setObjectPropertyObject obj "parent" val +setStyleContextParent obj val = liftIO $ setObjectPropertyObject obj "parent" (Just val) constructStyleContextParent :: (StyleContextK a) => a -> IO ([Char], GValue) -constructStyleContextParent val = constructObjectPropertyObject "parent" val +constructStyleContextParent val = constructObjectPropertyObject "parent" (Just val) +clearStyleContextParent :: (MonadIO m, StyleContextK o) => o -> m () +clearStyleContextParent obj = liftIO $ setObjectPropertyObject obj "parent" (Nothing :: Maybe StyleContext) + data StyleContextParentPropertyInfo instance AttrInfo StyleContextParentPropertyInfo where - type AttrAllowedOps StyleContextParentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps StyleContextParentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint StyleContextParentPropertyInfo = StyleContextK type AttrBaseTypeConstraint StyleContextParentPropertyInfo = StyleContextK type AttrGetType StyleContextParentPropertyInfo = StyleContext @@ -545,19 +562,21 @@ attrGet _ = getStyleContextParent attrSet _ = setStyleContextParent attrConstruct _ = constructStyleContextParent + attrClear _ = clearStyleContextParent -- VVV Prop "screen" -- Type: TInterface "Gdk" "Screen" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getStyleContextScreen :: (MonadIO m, StyleContextK o) => o -> m Gdk.Screen -getStyleContextScreen obj = liftIO $ getObjectPropertyObject obj "screen" Gdk.Screen +getStyleContextScreen obj = liftIO $ checkUnexpectedNothing "getStyleContextScreen" $ getObjectPropertyObject obj "screen" Gdk.Screen setStyleContextScreen :: (MonadIO m, StyleContextK o, Gdk.ScreenK a) => o -> a -> m () -setStyleContextScreen obj val = liftIO $ setObjectPropertyObject obj "screen" val +setStyleContextScreen obj val = liftIO $ setObjectPropertyObject obj "screen" (Just val) constructStyleContextScreen :: (Gdk.ScreenK a) => a -> IO ([Char], GValue) -constructStyleContextScreen val = constructObjectPropertyObject "screen" val +constructStyleContextScreen val = constructObjectPropertyObject "screen" (Just val) data StyleContextScreenPropertyInfo instance AttrInfo StyleContextScreenPropertyInfo where @@ -569,10 +588,23 @@ attrGet _ = getStyleContextScreen attrSet _ = setStyleContextScreen attrConstruct _ = constructStyleContextScreen + attrClear _ = undefined type instance AttributeList StyleContext = StyleContextAttributeList type StyleContextAttributeList = ('[ '("direction", StyleContextDirectionPropertyInfo), '("paintClock", StyleContextPaintClockPropertyInfo), '("parent", StyleContextParentPropertyInfo), '("screen", StyleContextScreenPropertyInfo)] :: [(Symbol, *)]) +styleContextDirection :: AttrLabelProxy "direction" +styleContextDirection = AttrLabelProxy + +styleContextPaintClock :: AttrLabelProxy "paintClock" +styleContextPaintClock = AttrLabelProxy + +styleContextParent :: AttrLabelProxy "parent" +styleContextParent = AttrLabelProxy + +styleContextScreen :: AttrLabelProxy "screen" +styleContextScreen = AttrLabelProxy + data StyleContextChangedSignalInfo instance SignalInfo StyleContextChangedSignalInfo where type HaskellCallbackType StyleContextChangedSignalInfo = StyleContextChangedCallback @@ -585,7 +617,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "StyleContext" +-- returnType : Just (TInterface "Gtk" "StyleContext") -- throws : False -- Skip return : False @@ -606,7 +638,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "class_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -635,16 +667,16 @@ -- method StyleContext::add_provider -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "provider", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "priority", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "provider", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "priority", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_style_context_add_provider" gtk_style_context_add_provider :: Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext" Ptr StyleProvider -> -- provider : TInterface "Gtk" "StyleProvider" - Word32 -> -- priority : TBasicType TUInt32 + Word32 -> -- priority : TBasicType TUInt IO () @@ -670,7 +702,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "region_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "RegionFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -702,42 +734,38 @@ -- method StyleContext::cancel_animations -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "region_id", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "region_id", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_style_context_cancel_animations" gtk_style_context_cancel_animations :: Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext" - Ptr () -> -- region_id : TBasicType TVoid + Ptr () -> -- region_id : TBasicType TPtr IO () {-# DEPRECATED styleContextCancelAnimations ["(Since version 3.6)","This function does nothing."]#-} styleContextCancelAnimations :: (MonadIO m, StyleContextK a) => a -- _obj - -> Maybe (Ptr ()) -- regionId + -> Ptr () -- regionId -> m () -- result styleContextCancelAnimations _obj regionId = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - maybeRegionId <- case regionId of - Nothing -> return nullPtr - Just jRegionId -> do - return jRegionId - gtk_style_context_cancel_animations _obj' maybeRegionId + gtk_style_context_cancel_animations _obj' regionId touchManagedPtr _obj return () data StyleContextCancelAnimationsMethodInfo -instance (signature ~ (Maybe (Ptr ()) -> m ()), MonadIO m, StyleContextK a) => MethodInfo StyleContextCancelAnimationsMethodInfo a signature where +instance (signature ~ (Ptr () -> m ()), MonadIO m, StyleContextK a) => MethodInfo StyleContextCancelAnimationsMethodInfo a signature where overloadedMethod _ = styleContextCancelAnimations -- method StyleContext::get_background_color -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -770,7 +798,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "border", argType = TInterface "Gtk" "Border", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -803,7 +831,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -836,7 +864,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -869,7 +897,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "TextDirection" +-- returnType : Just (TInterface "Gtk" "TextDirection") -- throws : False -- Skip return : False @@ -897,7 +925,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Pango" "FontDescription" +-- returnType : Just (TInterface "Pango" "FontDescription") -- throws : False -- Skip return : False @@ -929,7 +957,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gdk" "FrameClock" +-- returnType : Just (TInterface "Gdk" "FrameClock") -- throws : False -- Skip return : False @@ -958,7 +986,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "JunctionSides" +-- returnType : Just (TInterface "Gtk" "JunctionSides") -- throws : False -- Skip return : False @@ -986,7 +1014,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "margin", argType = TInterface "Gtk" "Border", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1019,7 +1047,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "padding", argType = TInterface "Gtk" "Border", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1052,7 +1080,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "StyleContext" +-- returnType : Just (TInterface "Gtk" "StyleContext") -- throws : False -- Skip return : False @@ -1081,7 +1109,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "WidgetPath" +-- returnType : Just (TInterface "Gtk" "WidgetPath") -- throws : False -- Skip return : False @@ -1110,7 +1138,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1147,7 +1175,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1174,7 +1202,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gdk" "Screen" +-- returnType : Just (TInterface "Gdk" "Screen") -- throws : False -- Skip return : False @@ -1203,7 +1231,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "CssSection" +-- returnType : Just (TInterface "Gtk" "CssSection") -- throws : False -- Skip return : False @@ -1236,7 +1264,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "StateFlags" +-- returnType : Just (TInterface "Gtk" "StateFlags") -- throws : False -- Skip return : False @@ -1264,7 +1292,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property_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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1299,7 +1327,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "class_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1331,7 +1359,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "region_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags_return", argType = TInterface "Gtk" "RegionFlags", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1368,7 +1396,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1395,7 +1423,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TGList (TBasicType TUTF8) +-- returnType : Just (TGList (TBasicType TUTF8)) -- throws : False -- Skip return : False @@ -1411,7 +1439,6 @@ styleContextListClasses _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_style_context_list_classes _obj' - checkUnexpectedReturnNULL "gtk_style_context_list_classes" result result' <- unpackGList result result'' <- mapM cstringToText result' g_list_free result @@ -1426,7 +1453,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TGList (TBasicType TUTF8) +-- returnType : Just (TGList (TBasicType TUTF8)) -- throws : False -- Skip return : False @@ -1442,7 +1469,6 @@ styleContextListRegions _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_style_context_list_regions _obj' - checkUnexpectedReturnNULL "gtk_style_context_list_regions" result result' <- unpackGList result result'' <- mapM cstringToText result' g_list_free result @@ -1457,7 +1483,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1492,7 +1518,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "IconSet" +-- returnType : Just (TInterface "Gtk" "IconSet") -- throws : False -- Skip return : False @@ -1523,16 +1549,16 @@ -- method StyleContext::notify_state_change -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", 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 = "region_id", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", 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 = "region_id", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_style_context_notify_state_change" gtk_style_context_notify_state_change :: Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext" Ptr Gdk.Window -> -- window : TInterface "Gdk" "Window" - Ptr () -> -- region_id : TBasicType TVoid + Ptr () -> -- region_id : TBasicType TPtr CUInt -> -- state : TInterface "Gtk" "StateType" CInt -> -- state_value : TBasicType TBoolean IO () @@ -1542,33 +1568,29 @@ (MonadIO m, StyleContextK a, Gdk.WindowK b) => a -- _obj -> b -- window - -> Maybe (Ptr ()) -- regionId + -> Ptr () -- regionId -> StateType -- state -> Bool -- stateValue -> m () -- result styleContextNotifyStateChange _obj window regionId state stateValue = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let window' = unsafeManagedPtrCastPtr window - maybeRegionId <- case regionId of - Nothing -> return nullPtr - Just jRegionId -> do - return jRegionId let state' = (fromIntegral . fromEnum) state let stateValue' = (fromIntegral . fromEnum) stateValue - gtk_style_context_notify_state_change _obj' window' maybeRegionId state' stateValue' + gtk_style_context_notify_state_change _obj' window' regionId state' stateValue' touchManagedPtr _obj touchManagedPtr window return () data StyleContextNotifyStateChangeMethodInfo -instance (signature ~ (b -> Maybe (Ptr ()) -> StateType -> Bool -> m ()), MonadIO m, StyleContextK a, Gdk.WindowK b) => MethodInfo StyleContextNotifyStateChangeMethodInfo a signature where +instance (signature ~ (b -> Ptr () -> StateType -> Bool -> m ()), MonadIO m, StyleContextK a, Gdk.WindowK b) => MethodInfo StyleContextNotifyStateChangeMethodInfo a signature where overloadedMethod _ = styleContextNotifyStateChange -- method StyleContext::pop_animatable_region -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1593,15 +1615,15 @@ -- method StyleContext::push_animatable_region -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "region_id", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "region_id", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_style_context_push_animatable_region" gtk_style_context_push_animatable_region :: Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext" - Ptr () -> -- region_id : TBasicType TVoid + Ptr () -> -- region_id : TBasicType TPtr IO () {-# DEPRECATED styleContextPushAnimatableRegion ["(Since version 3.6)","This function does nothing."]#-} @@ -1624,7 +1646,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "class_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1655,7 +1677,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "provider", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1686,7 +1708,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "region_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1717,7 +1739,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1744,7 +1766,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1769,17 +1791,17 @@ -- method StyleContext::scroll_animations -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", 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 = "dx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dy", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", 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 = "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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_style_context_scroll_animations" gtk_style_context_scroll_animations :: Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext" Ptr Gdk.Window -> -- window : TInterface "Gdk" "Window" - Int32 -> -- dx : TBasicType TInt32 - Int32 -> -- dy : TBasicType TInt32 + Int32 -> -- dx : TBasicType TInt + Int32 -> -- dy : TBasicType TInt IO () {-# DEPRECATED styleContextScrollAnimations ["(Since version 3.6)","This function does nothing."]#-} @@ -1806,7 +1828,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1837,7 +1859,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "direction", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1867,7 +1889,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "frame_clock", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1898,7 +1920,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sides", argType = TInterface "Gtk" "JunctionSides", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1928,7 +1950,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1963,7 +1985,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1992,15 +2014,15 @@ -- method StyleContext::set_scale -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_style_context_set_scale" gtk_style_context_set_scale :: Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext" - Int32 -> -- scale : TBasicType TInt32 + Int32 -> -- scale : TBasicType TInt IO () @@ -2023,7 +2045,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2054,7 +2076,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2084,7 +2106,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "progress", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2118,16 +2140,16 @@ -- method StyleContext::add_provider_for_screen -- method type : MemberFunction --- Args : [Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "provider", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "priority", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "provider", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "priority", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_style_context_add_provider_for_screen" gtk_style_context_add_provider_for_screen :: Ptr Gdk.Screen -> -- screen : TInterface "Gdk" "Screen" Ptr StyleProvider -> -- provider : TInterface "Gtk" "StyleProvider" - Word32 -> -- priority : TBasicType TUInt32 + Word32 -> -- priority : TBasicType TUInt IO () @@ -2149,7 +2171,7 @@ -- method type : MemberFunction -- Args : [Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "provider", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2176,7 +2198,7 @@ -- method type : MemberFunction -- Args : [Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/StyleContext.hs-boot b/GI/Gtk/Objects/StyleContext.hs-boot --- a/GI/Gtk/Objects/StyleContext.hs-boot +++ b/GI/Gtk/Objects/StyleContext.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.StyleContext where -import Prelude () 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 diff --git a/GI/Gtk/Objects/StyleProperties.hs b/GI/Gtk/Objects/StyleProperties.hs --- a/GI/Gtk/Objects/StyleProperties.hs +++ b/GI/Gtk/Objects/StyleProperties.hs @@ -60,9 +60,9 @@ ) where -import Prelude () 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 @@ -141,7 +141,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "StyleProperties" +-- returnType : Just (TInterface "Gtk" "StyleProperties") -- throws : False -- Skip return : False @@ -162,7 +162,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -189,7 +189,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -227,7 +227,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleProperties", 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 : TInterface "Gtk" "SymbolicColor" +-- returnType : Just (TInterface "Gtk" "SymbolicColor") -- throws : False -- Skip return : False @@ -260,7 +260,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleProperties", 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 = "color", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -295,7 +295,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "props_to_merge", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "replace", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -329,7 +329,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -367,7 +367,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/StyleProperties.hs-boot b/GI/Gtk/Objects/StyleProperties.hs-boot --- a/GI/Gtk/Objects/StyleProperties.hs-boot +++ b/GI/Gtk/Objects/StyleProperties.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.StyleProperties where -import Prelude () 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 diff --git a/GI/Gtk/Objects/Switch.hs b/GI/Gtk/Objects/Switch.hs --- a/GI/Gtk/Objects/Switch.hs +++ b/GI/Gtk/Objects/Switch.hs @@ -49,6 +49,7 @@ constructSwitchActive , getSwitchActive , setSwitchActive , + switchActive , -- ** State @@ -56,6 +57,7 @@ constructSwitchState , getSwitchState , setSwitchState , + switchState , @@ -89,9 +91,9 @@ ) where -import Prelude () 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 @@ -514,6 +516,7 @@ -- VVV Prop "active" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getSwitchActive :: (MonadIO m, SwitchK o) => o -> m Bool getSwitchActive obj = liftIO $ getObjectPropertyBool obj "active" @@ -534,10 +537,12 @@ attrGet _ = getSwitchActive attrSet _ = setSwitchActive attrConstruct _ = constructSwitchActive + attrClear _ = undefined -- VVV Prop "state" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getSwitchState :: (MonadIO m, SwitchK o) => o -> m Bool getSwitchState obj = liftIO $ getObjectPropertyBool obj "state" @@ -558,10 +563,17 @@ attrGet _ = getSwitchState attrSet _ = setSwitchState attrConstruct _ = constructSwitchState + attrClear _ = undefined type instance AttributeList Switch = SwitchAttributeList type SwitchAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("active", SwitchActivePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("state", SwitchStatePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +switchActive :: AttrLabelProxy "active" +switchActive = AttrLabelProxy + +switchState :: AttrLabelProxy "state" +switchState = AttrLabelProxy + data SwitchActivateSignalInfo instance SignalInfo SwitchActivateSignalInfo where type HaskellCallbackType SwitchActivateSignalInfo = SwitchActivateCallback @@ -579,7 +591,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "Switch" +-- returnType : Just (TInterface "Gtk" "Switch") -- throws : False -- Skip return : False @@ -600,7 +612,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Switch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -628,7 +640,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Switch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -656,7 +668,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Switch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_active", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -686,7 +698,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Switch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/Switch.hs-boot b/GI/Gtk/Objects/Switch.hs-boot --- a/GI/Gtk/Objects/Switch.hs-boot +++ b/GI/Gtk/Objects/Switch.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.Switch where -import Prelude () 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 diff --git a/GI/Gtk/Objects/SwitchAccessible.hs b/GI/Gtk/Objects/SwitchAccessible.hs --- a/GI/Gtk/Objects/SwitchAccessible.hs +++ b/GI/Gtk/Objects/SwitchAccessible.hs @@ -18,9 +18,9 @@ ) where -import Prelude () 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 diff --git a/GI/Gtk/Objects/SwitchAccessible.hs-boot b/GI/Gtk/Objects/SwitchAccessible.hs-boot --- a/GI/Gtk/Objects/SwitchAccessible.hs-boot +++ b/GI/Gtk/Objects/SwitchAccessible.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.SwitchAccessible where -import Prelude () 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 diff --git a/GI/Gtk/Objects/Table.hs b/GI/Gtk/Objects/Table.hs --- a/GI/Gtk/Objects/Table.hs +++ b/GI/Gtk/Objects/Table.hs @@ -99,6 +99,7 @@ constructTableColumnSpacing , getTableColumnSpacing , setTableColumnSpacing , + tableColumnSpacing , -- ** Homogeneous @@ -106,6 +107,7 @@ constructTableHomogeneous , getTableHomogeneous , setTableHomogeneous , + tableHomogeneous , -- ** NColumns @@ -113,6 +115,7 @@ constructTableNColumns , getTableNColumns , setTableNColumns , + tableNColumns , -- ** NRows @@ -120,6 +123,7 @@ constructTableNRows , getTableNRows , setTableNRows , + tableNRows , -- ** RowSpacing @@ -127,15 +131,16 @@ constructTableRowSpacing , getTableRowSpacing , setTableRowSpacing , + tableRowSpacing , ) where -import Prelude () 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 @@ -503,17 +508,18 @@ #endif -- VVV Prop "column-spacing" - -- Type: TBasicType TUInt32 + -- Type: TBasicType TUInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getTableColumnSpacing :: (MonadIO m, TableK o) => o -> m Word32 -getTableColumnSpacing obj = liftIO $ getObjectPropertyCUInt obj "column-spacing" +getTableColumnSpacing obj = liftIO $ getObjectPropertyUInt32 obj "column-spacing" setTableColumnSpacing :: (MonadIO m, TableK o) => o -> Word32 -> m () -setTableColumnSpacing obj val = liftIO $ setObjectPropertyCUInt obj "column-spacing" val +setTableColumnSpacing obj val = liftIO $ setObjectPropertyUInt32 obj "column-spacing" val constructTableColumnSpacing :: Word32 -> IO ([Char], GValue) -constructTableColumnSpacing val = constructObjectPropertyCUInt "column-spacing" val +constructTableColumnSpacing val = constructObjectPropertyUInt32 "column-spacing" val data TableColumnSpacingPropertyInfo instance AttrInfo TableColumnSpacingPropertyInfo where @@ -525,10 +531,12 @@ attrGet _ = getTableColumnSpacing attrSet _ = setTableColumnSpacing attrConstruct _ = constructTableColumnSpacing + attrClear _ = undefined -- VVV Prop "homogeneous" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getTableHomogeneous :: (MonadIO m, TableK o) => o -> m Bool getTableHomogeneous obj = liftIO $ getObjectPropertyBool obj "homogeneous" @@ -549,19 +557,21 @@ attrGet _ = getTableHomogeneous attrSet _ = setTableHomogeneous attrConstruct _ = constructTableHomogeneous + attrClear _ = undefined -- VVV Prop "n-columns" - -- Type: TBasicType TUInt32 + -- Type: TBasicType TUInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getTableNColumns :: (MonadIO m, TableK o) => o -> m Word32 -getTableNColumns obj = liftIO $ getObjectPropertyCUInt obj "n-columns" +getTableNColumns obj = liftIO $ getObjectPropertyUInt32 obj "n-columns" setTableNColumns :: (MonadIO m, TableK o) => o -> Word32 -> m () -setTableNColumns obj val = liftIO $ setObjectPropertyCUInt obj "n-columns" val +setTableNColumns obj val = liftIO $ setObjectPropertyUInt32 obj "n-columns" val constructTableNColumns :: Word32 -> IO ([Char], GValue) -constructTableNColumns val = constructObjectPropertyCUInt "n-columns" val +constructTableNColumns val = constructObjectPropertyUInt32 "n-columns" val data TableNColumnsPropertyInfo instance AttrInfo TableNColumnsPropertyInfo where @@ -573,19 +583,21 @@ attrGet _ = getTableNColumns attrSet _ = setTableNColumns attrConstruct _ = constructTableNColumns + attrClear _ = undefined -- VVV Prop "n-rows" - -- Type: TBasicType TUInt32 + -- Type: TBasicType TUInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getTableNRows :: (MonadIO m, TableK o) => o -> m Word32 -getTableNRows obj = liftIO $ getObjectPropertyCUInt obj "n-rows" +getTableNRows obj = liftIO $ getObjectPropertyUInt32 obj "n-rows" setTableNRows :: (MonadIO m, TableK o) => o -> Word32 -> m () -setTableNRows obj val = liftIO $ setObjectPropertyCUInt obj "n-rows" val +setTableNRows obj val = liftIO $ setObjectPropertyUInt32 obj "n-rows" val constructTableNRows :: Word32 -> IO ([Char], GValue) -constructTableNRows val = constructObjectPropertyCUInt "n-rows" val +constructTableNRows val = constructObjectPropertyUInt32 "n-rows" val data TableNRowsPropertyInfo instance AttrInfo TableNRowsPropertyInfo where @@ -597,19 +609,21 @@ attrGet _ = getTableNRows attrSet _ = setTableNRows attrConstruct _ = constructTableNRows + attrClear _ = undefined -- VVV Prop "row-spacing" - -- Type: TBasicType TUInt32 + -- Type: TBasicType TUInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getTableRowSpacing :: (MonadIO m, TableK o) => o -> m Word32 -getTableRowSpacing obj = liftIO $ getObjectPropertyCUInt obj "row-spacing" +getTableRowSpacing obj = liftIO $ getObjectPropertyUInt32 obj "row-spacing" setTableRowSpacing :: (MonadIO m, TableK o) => o -> Word32 -> m () -setTableRowSpacing obj val = liftIO $ setObjectPropertyCUInt obj "row-spacing" val +setTableRowSpacing obj val = liftIO $ setObjectPropertyUInt32 obj "row-spacing" val constructTableRowSpacing :: Word32 -> IO ([Char], GValue) -constructTableRowSpacing val = constructObjectPropertyCUInt "row-spacing" val +constructTableRowSpacing val = constructObjectPropertyUInt32 "row-spacing" val data TableRowSpacingPropertyInfo instance AttrInfo TableRowSpacingPropertyInfo where @@ -621,24 +635,40 @@ attrGet _ = getTableRowSpacing attrSet _ = setTableRowSpacing attrConstruct _ = constructTableRowSpacing + attrClear _ = undefined type instance AttributeList Table = TableAttributeList type TableAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("columnSpacing", TableColumnSpacingPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("homogeneous", TableHomogeneousPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("nColumns", TableNColumnsPropertyInfo), '("nRows", TableNRowsPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rowSpacing", TableRowSpacingPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +tableColumnSpacing :: AttrLabelProxy "columnSpacing" +tableColumnSpacing = AttrLabelProxy + +tableHomogeneous :: AttrLabelProxy "homogeneous" +tableHomogeneous = AttrLabelProxy + +tableNColumns :: AttrLabelProxy "nColumns" +tableNColumns = AttrLabelProxy + +tableNRows :: AttrLabelProxy "nRows" +tableNRows = AttrLabelProxy + +tableRowSpacing :: AttrLabelProxy "rowSpacing" +tableRowSpacing = AttrLabelProxy + type instance SignalList Table = TableSignalList type TableSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) -- method Table::new -- method type : Constructor --- Args : [Arg {argCName = "rows", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "columns", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "rows", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "columns", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Table" +-- returnType : Just (TInterface "Gtk" "Table") -- throws : False -- Skip return : False foreign import ccall "gtk_table_new" gtk_table_new :: - Word32 -> -- rows : TBasicType TUInt32 - Word32 -> -- columns : TBasicType TUInt32 + Word32 -> -- rows : TBasicType TUInt + Word32 -> -- columns : TBasicType TUInt CInt -> -- homogeneous : TBasicType TBoolean IO (Ptr Table) @@ -658,23 +688,23 @@ -- method Table::attach -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "left_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "right_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "top_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bottom_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xoptions", argType = TInterface "Gtk" "AttachOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "yoptions", argType = TInterface "Gtk" "AttachOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xpadding", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ypadding", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "left_attach", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "right_attach", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "top_attach", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bottom_attach", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xoptions", argType = TInterface "Gtk" "AttachOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "yoptions", argType = TInterface "Gtk" "AttachOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xpadding", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ypadding", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_table_attach" gtk_table_attach :: Ptr Table -> -- _obj : TInterface "Gtk" "Table" Ptr Widget -> -- child : TInterface "Gtk" "Widget" - Word32 -> -- left_attach : TBasicType TUInt32 - Word32 -> -- right_attach : TBasicType TUInt32 - Word32 -> -- top_attach : TBasicType TUInt32 - Word32 -> -- bottom_attach : TBasicType TUInt32 + Word32 -> -- left_attach : TBasicType TUInt + Word32 -> -- right_attach : TBasicType TUInt + Word32 -> -- top_attach : TBasicType TUInt + Word32 -> -- bottom_attach : TBasicType TUInt CUInt -> -- xoptions : TInterface "Gtk" "AttachOptions" CUInt -> -- yoptions : TInterface "Gtk" "AttachOptions" - Word32 -> -- xpadding : TBasicType TUInt32 - Word32 -> -- ypadding : TBasicType TUInt32 + Word32 -> -- xpadding : TBasicType TUInt + Word32 -> -- ypadding : TBasicType TUInt IO () {-# DEPRECATED tableAttach ["(Since version 3.4)","Use gtk_grid_attach() with #GtkGrid. Note that the attach"," arguments differ between those two functions."]#-} @@ -707,19 +737,19 @@ -- method Table::attach_defaults -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "left_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "right_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "top_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bottom_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "left_attach", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "right_attach", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "top_attach", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bottom_attach", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_table_attach_defaults" gtk_table_attach_defaults :: Ptr Table -> -- _obj : TInterface "Gtk" "Table" Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - Word32 -> -- left_attach : TBasicType TUInt32 - Word32 -> -- right_attach : TBasicType TUInt32 - Word32 -> -- top_attach : TBasicType TUInt32 - Word32 -> -- bottom_attach : TBasicType TUInt32 + Word32 -> -- left_attach : TBasicType TUInt + Word32 -> -- right_attach : TBasicType TUInt + Word32 -> -- top_attach : TBasicType TUInt + Word32 -> -- bottom_attach : TBasicType TUInt IO () {-# DEPRECATED tableAttachDefaults ["(Since version 3.4)","Use gtk_grid_attach() with #GtkGrid. Note that the attach"," arguments differ between those two functions."]#-} @@ -746,15 +776,15 @@ -- method Table::get_col_spacing -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt32 +-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False foreign import ccall "gtk_table_get_col_spacing" gtk_table_get_col_spacing :: Ptr Table -> -- _obj : TInterface "Gtk" "Table" - Word32 -> -- column : TBasicType TUInt32 + Word32 -> -- column : TBasicType TUInt IO Word32 {-# DEPRECATED tableGetColSpacing ["(Since version 3.4)","#GtkGrid does not offer a replacement for this"," functionality."]#-} @@ -777,7 +807,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt32 +-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -804,7 +834,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt32 +-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -831,7 +861,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -857,15 +887,15 @@ -- method Table::get_row_spacing -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt32 +-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False foreign import ccall "gtk_table_get_row_spacing" gtk_table_get_row_spacing :: Ptr Table -> -- _obj : TInterface "Gtk" "Table" - Word32 -> -- row : TBasicType TUInt32 + Word32 -> -- row : TBasicType TUInt IO Word32 {-# DEPRECATED tableGetRowSpacing ["(Since version 3.4)","#GtkGrid does not offer a replacement for this"," functionality."]#-} @@ -886,16 +916,16 @@ -- method Table::get_size -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rows", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "columns", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rows", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "columns", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_table_get_size" gtk_table_get_size :: Ptr Table -> -- _obj : TInterface "Gtk" "Table" - Ptr Word32 -> -- rows : TBasicType TUInt32 - Ptr Word32 -> -- columns : TBasicType TUInt32 + Ptr Word32 -> -- rows : TBasicType TUInt + Ptr Word32 -> -- columns : TBasicType TUInt IO () {-# DEPRECATED tableGetSize ["(Since version 3.4)","#GtkGrid does not expose the number of columns and"," rows."]#-} @@ -921,16 +951,16 @@ -- method Table::resize -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rows", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "columns", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rows", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "columns", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_table_resize" gtk_table_resize :: Ptr Table -> -- _obj : TInterface "Gtk" "Table" - Word32 -> -- rows : TBasicType TUInt32 - Word32 -> -- columns : TBasicType TUInt32 + Word32 -> -- rows : TBasicType TUInt + Word32 -> -- columns : TBasicType TUInt IO () {-# DEPRECATED tableResize ["(Since version 3.4)","#GtkGrid resizes automatically."]#-} @@ -952,16 +982,16 @@ -- method Table::set_col_spacing -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_table_set_col_spacing" gtk_table_set_col_spacing :: Ptr Table -> -- _obj : TInterface "Gtk" "Table" - Word32 -> -- column : TBasicType TUInt32 - Word32 -> -- spacing : TBasicType TUInt32 + Word32 -> -- column : TBasicType TUInt + Word32 -> -- spacing : TBasicType TUInt IO () {-# DEPRECATED tableSetColSpacing ["(Since version 3.4)","Use gtk_widget_set_margin_start() and"," gtk_widget_set_margin_end() on the widgets contained in the row if"," you need this functionality. #GtkGrid does not support per-row spacing."]#-} @@ -983,15 +1013,15 @@ -- method Table::set_col_spacings -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_table_set_col_spacings" gtk_table_set_col_spacings :: Ptr Table -> -- _obj : TInterface "Gtk" "Table" - Word32 -> -- spacing : TBasicType TUInt32 + Word32 -> -- spacing : TBasicType TUInt IO () {-# DEPRECATED tableSetColSpacings ["(Since version 3.4)","Use gtk_grid_set_column_spacing() with #GtkGrid."]#-} @@ -1014,7 +1044,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1042,16 +1072,16 @@ -- method Table::set_row_spacing -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_table_set_row_spacing" gtk_table_set_row_spacing :: Ptr Table -> -- _obj : TInterface "Gtk" "Table" - Word32 -> -- row : TBasicType TUInt32 - Word32 -> -- spacing : TBasicType TUInt32 + Word32 -> -- row : TBasicType TUInt + Word32 -> -- spacing : TBasicType TUInt IO () {-# DEPRECATED tableSetRowSpacing ["(Since version 3.4)","Use gtk_widget_set_margin_top() and"," gtk_widget_set_margin_bottom() on the widgets contained in the row if"," you need this functionality. #GtkGrid does not support per-row spacing."]#-} @@ -1073,15 +1103,15 @@ -- method Table::set_row_spacings -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_table_set_row_spacings" gtk_table_set_row_spacings :: Ptr Table -> -- _obj : TInterface "Gtk" "Table" - Word32 -> -- spacing : TBasicType TUInt32 + Word32 -> -- spacing : TBasicType TUInt IO () {-# DEPRECATED tableSetRowSpacings ["(Since version 3.4)","Use gtk_grid_set_row_spacing() with #GtkGrid."]#-} diff --git a/GI/Gtk/Objects/Table.hs-boot b/GI/Gtk/Objects/Table.hs-boot --- a/GI/Gtk/Objects/Table.hs-boot +++ b/GI/Gtk/Objects/Table.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.Table where -import Prelude () 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 diff --git a/GI/Gtk/Objects/TearoffMenuItem.hs b/GI/Gtk/Objects/TearoffMenuItem.hs --- a/GI/Gtk/Objects/TearoffMenuItem.hs +++ b/GI/Gtk/Objects/TearoffMenuItem.hs @@ -25,9 +25,9 @@ ) where -import Prelude () 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 @@ -415,7 +415,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "TearoffMenuItem" +-- returnType : Just (TInterface "Gtk" "TearoffMenuItem") -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/TearoffMenuItem.hs-boot b/GI/Gtk/Objects/TearoffMenuItem.hs-boot --- a/GI/Gtk/Objects/TearoffMenuItem.hs-boot +++ b/GI/Gtk/Objects/TearoffMenuItem.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.TearoffMenuItem where -import Prelude () 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 diff --git a/GI/Gtk/Objects/TextBuffer.hs b/GI/Gtk/Objects/TextBuffer.hs --- a/GI/Gtk/Objects/TextBuffer.hs +++ b/GI/Gtk/Objects/TextBuffer.hs @@ -377,34 +377,41 @@ -- ** CopyTargetList TextBufferCopyTargetListPropertyInfo , getTextBufferCopyTargetList , + textBufferCopyTargetList , -- ** CursorPosition TextBufferCursorPositionPropertyInfo , getTextBufferCursorPosition , + textBufferCursorPosition , -- ** HasSelection TextBufferHasSelectionPropertyInfo , getTextBufferHasSelection , + textBufferHasSelection , -- ** PasteTargetList TextBufferPasteTargetListPropertyInfo , getTextBufferPasteTargetList , + textBufferPasteTargetList , -- ** TagTable TextBufferTagTablePropertyInfo , constructTextBufferTagTable , getTextBufferTagTable , + textBufferTagTable , -- ** Text TextBufferTextPropertyInfo , + clearTextBufferText , constructTextBufferText , getTextBufferText , setTextBufferText , + textBufferText , @@ -570,9 +577,9 @@ ) where -import Prelude () 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 @@ -1280,13 +1287,14 @@ -- VVV Prop "copy-target-list" -- Type: TInterface "Gtk" "TargetList" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getTextBufferCopyTargetList :: (MonadIO m, TextBufferK o) => o -> m TargetList -getTextBufferCopyTargetList obj = liftIO $ getObjectPropertyBoxed obj "copy-target-list" TargetList +getTextBufferCopyTargetList obj = liftIO $ checkUnexpectedNothing "getTextBufferCopyTargetList" $ getObjectPropertyBoxed obj "copy-target-list" TargetList data TextBufferCopyTargetListPropertyInfo instance AttrInfo TextBufferCopyTargetListPropertyInfo where - type AttrAllowedOps TextBufferCopyTargetListPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps TextBufferCopyTargetListPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint TextBufferCopyTargetListPropertyInfo = (~) () type AttrBaseTypeConstraint TextBufferCopyTargetListPropertyInfo = TextBufferK type AttrGetType TextBufferCopyTargetListPropertyInfo = TargetList @@ -1294,13 +1302,15 @@ attrGet _ = getTextBufferCopyTargetList attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "cursor-position" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) getTextBufferCursorPosition :: (MonadIO m, TextBufferK o) => o -> m Int32 -getTextBufferCursorPosition obj = liftIO $ getObjectPropertyCInt obj "cursor-position" +getTextBufferCursorPosition obj = liftIO $ getObjectPropertyInt32 obj "cursor-position" data TextBufferCursorPositionPropertyInfo instance AttrInfo TextBufferCursorPositionPropertyInfo where @@ -1312,10 +1322,12 @@ attrGet _ = getTextBufferCursorPosition attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "has-selection" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getTextBufferHasSelection :: (MonadIO m, TextBufferK o) => o -> m Bool getTextBufferHasSelection obj = liftIO $ getObjectPropertyBool obj "has-selection" @@ -1330,17 +1342,19 @@ attrGet _ = getTextBufferHasSelection attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "paste-target-list" -- Type: TInterface "Gtk" "TargetList" -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getTextBufferPasteTargetList :: (MonadIO m, TextBufferK o) => o -> m TargetList -getTextBufferPasteTargetList obj = liftIO $ getObjectPropertyBoxed obj "paste-target-list" TargetList +getTextBufferPasteTargetList obj = liftIO $ checkUnexpectedNothing "getTextBufferPasteTargetList" $ getObjectPropertyBoxed obj "paste-target-list" TargetList data TextBufferPasteTargetListPropertyInfo instance AttrInfo TextBufferPasteTargetListPropertyInfo where - type AttrAllowedOps TextBufferPasteTargetListPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps TextBufferPasteTargetListPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint TextBufferPasteTargetListPropertyInfo = (~) () type AttrBaseTypeConstraint TextBufferPasteTargetListPropertyInfo = TextBufferK type AttrGetType TextBufferPasteTargetListPropertyInfo = TargetList @@ -1348,20 +1362,22 @@ attrGet _ = getTextBufferPasteTargetList attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "tag-table" -- Type: TInterface "Gtk" "TextTagTable" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + -- Nullable: (Just False,Nothing) getTextBufferTagTable :: (MonadIO m, TextBufferK o) => o -> m TextTagTable -getTextBufferTagTable obj = liftIO $ getObjectPropertyObject obj "tag-table" TextTagTable +getTextBufferTagTable obj = liftIO $ checkUnexpectedNothing "getTextBufferTagTable" $ getObjectPropertyObject obj "tag-table" TextTagTable constructTextBufferTagTable :: (TextTagTableK a) => a -> IO ([Char], GValue) -constructTextBufferTagTable val = constructObjectPropertyObject "tag-table" val +constructTextBufferTagTable val = constructObjectPropertyObject "tag-table" (Just val) data TextBufferTagTablePropertyInfo instance AttrInfo TextBufferTagTablePropertyInfo where - type AttrAllowedOps TextBufferTagTablePropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrAllowedOps TextBufferTagTablePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint TextBufferTagTablePropertyInfo = TextTagTableK type AttrBaseTypeConstraint TextBufferTagTablePropertyInfo = TextBufferK type AttrGetType TextBufferTagTablePropertyInfo = TextTagTable @@ -1369,34 +1385,58 @@ attrGet _ = getTextBufferTagTable attrSet _ = undefined attrConstruct _ = constructTextBufferTagTable + attrClear _ = undefined -- VVV Prop "text" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getTextBufferText :: (MonadIO m, TextBufferK o) => o -> m T.Text +getTextBufferText :: (MonadIO m, TextBufferK o) => o -> m (Maybe T.Text) getTextBufferText obj = liftIO $ getObjectPropertyString obj "text" setTextBufferText :: (MonadIO m, TextBufferK o) => o -> T.Text -> m () -setTextBufferText obj val = liftIO $ setObjectPropertyString obj "text" val +setTextBufferText obj val = liftIO $ setObjectPropertyString obj "text" (Just val) constructTextBufferText :: T.Text -> IO ([Char], GValue) -constructTextBufferText val = constructObjectPropertyString "text" val +constructTextBufferText val = constructObjectPropertyString "text" (Just val) +clearTextBufferText :: (MonadIO m, TextBufferK o) => o -> m () +clearTextBufferText obj = liftIO $ setObjectPropertyString obj "text" (Nothing :: Maybe T.Text) + data TextBufferTextPropertyInfo instance AttrInfo TextBufferTextPropertyInfo where - type AttrAllowedOps TextBufferTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps TextBufferTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint TextBufferTextPropertyInfo = (~) T.Text type AttrBaseTypeConstraint TextBufferTextPropertyInfo = TextBufferK - type AttrGetType TextBufferTextPropertyInfo = T.Text + type AttrGetType TextBufferTextPropertyInfo = (Maybe T.Text) type AttrLabel TextBufferTextPropertyInfo = "text" attrGet _ = getTextBufferText attrSet _ = setTextBufferText attrConstruct _ = constructTextBufferText + attrClear _ = clearTextBufferText type instance AttributeList TextBuffer = TextBufferAttributeList type TextBufferAttributeList = ('[ '("copyTargetList", TextBufferCopyTargetListPropertyInfo), '("cursorPosition", TextBufferCursorPositionPropertyInfo), '("hasSelection", TextBufferHasSelectionPropertyInfo), '("pasteTargetList", TextBufferPasteTargetListPropertyInfo), '("tagTable", TextBufferTagTablePropertyInfo), '("text", TextBufferTextPropertyInfo)] :: [(Symbol, *)]) +textBufferCopyTargetList :: AttrLabelProxy "copyTargetList" +textBufferCopyTargetList = AttrLabelProxy + +textBufferCursorPosition :: AttrLabelProxy "cursorPosition" +textBufferCursorPosition = AttrLabelProxy + +textBufferHasSelection :: AttrLabelProxy "hasSelection" +textBufferHasSelection = AttrLabelProxy + +textBufferPasteTargetList :: AttrLabelProxy "pasteTargetList" +textBufferPasteTargetList = AttrLabelProxy + +textBufferTagTable :: AttrLabelProxy "tagTable" +textBufferTagTable = AttrLabelProxy + +textBufferText :: AttrLabelProxy "text" +textBufferText = AttrLabelProxy + data TextBufferApplyTagSignalInfo instance SignalInfo TextBufferApplyTagSignalInfo where type HaskellCallbackType TextBufferApplyTagSignalInfo = TextBufferApplyTagCallback @@ -1469,7 +1509,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "table", argType = TInterface "Gtk" "TextTagTable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "TextBuffer" +-- returnType : Just (TInterface "Gtk" "TextBuffer") -- throws : False -- Skip return : False @@ -1498,7 +1538,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mark", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "where", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1533,7 +1573,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "clipboard", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1564,7 +1604,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1603,7 +1643,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", 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 = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1642,7 +1682,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interactive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1680,7 +1720,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1707,7 +1747,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "clipboard", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1738,7 +1778,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "TextChildAnchor" +-- returnType : Just (TInterface "Gtk" "TextChildAnchor") -- throws : False -- Skip return : False @@ -1771,7 +1811,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mark_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "where", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "left_gravity", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "TextMark" +-- returnType : Just (TInterface "Gtk" "TextMark") -- throws : False -- Skip return : False @@ -1815,7 +1855,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "clipboard", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1849,7 +1889,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1884,7 +1924,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end_iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1923,7 +1963,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mark", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1954,7 +1994,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1985,7 +2025,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interactive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2019,7 +2059,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content_buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TCArray False (-1) 5 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -2069,7 +2109,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2101,7 +2141,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "can_create_tags", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2135,7 +2175,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2162,7 +2202,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2195,7 +2235,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -2222,7 +2262,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "TargetList" +-- returnType : Just (TInterface "Gtk" "TargetList") -- throws : False -- Skip return : False @@ -2249,15 +2289,15 @@ -- method TextBuffer::get_deserialize_formats -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_formats", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "n_formats", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : TCArray False (-1) 1 (TInterface "Gdk" "Atom") +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_formats", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [Arg {argCName = "n_formats", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- returnType : Just (TCArray False (-1) 1 (TInterface "Gdk" "Atom")) -- throws : False -- Skip return : False foreign import ccall "gtk_text_buffer_get_deserialize_formats" gtk_text_buffer_get_deserialize_formats :: Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr Int32 -> -- n_formats : TBasicType TInt32 + Ptr Int32 -> -- n_formats : TBasicType TInt IO (Ptr (Ptr Gdk.Atom)) @@ -2287,7 +2327,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2317,7 +2357,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2345,7 +2385,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "TextMark" +-- returnType : Just (TInterface "Gtk" "TextMark") -- throws : False -- Skip return : False @@ -2374,7 +2414,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "anchor", argType = TInterface "Gtk" "TextChildAnchor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2406,16 +2446,16 @@ -- method TextBuffer::get_iter_at_line -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "line_number", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "line_number", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_text_buffer_get_iter_at_line" gtk_text_buffer_get_iter_at_line :: Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - Int32 -> -- line_number : TBasicType TInt32 + Int32 -> -- line_number : TBasicType TInt IO () @@ -2438,17 +2478,17 @@ -- method TextBuffer::get_iter_at_line_index -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "line_number", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "byte_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "line_number", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "byte_index", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_text_buffer_get_iter_at_line_index" gtk_text_buffer_get_iter_at_line_index :: Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - Int32 -> -- line_number : TBasicType TInt32 - Int32 -> -- byte_index : TBasicType TInt32 + Int32 -> -- line_number : TBasicType TInt + Int32 -> -- byte_index : TBasicType TInt IO () @@ -2472,17 +2512,17 @@ -- method TextBuffer::get_iter_at_line_offset -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "line_number", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "char_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "line_number", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "char_offset", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_text_buffer_get_iter_at_line_offset" gtk_text_buffer_get_iter_at_line_offset :: Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - Int32 -> -- line_number : TBasicType TInt32 - Int32 -> -- char_offset : TBasicType TInt32 + Int32 -> -- line_number : TBasicType TInt + Int32 -> -- char_offset : TBasicType TInt IO () @@ -2508,7 +2548,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "mark", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2540,16 +2580,16 @@ -- method TextBuffer::get_iter_at_offset -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "char_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "char_offset", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_text_buffer_get_iter_at_offset" gtk_text_buffer_get_iter_at_offset :: Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - Int32 -> -- char_offset : TBasicType TInt32 + Int32 -> -- char_offset : TBasicType TInt IO () @@ -2574,7 +2614,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -2601,7 +2641,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", 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 : TInterface "Gtk" "TextMark" +-- returnType : Just (TInterface "Gtk" "TextMark") -- throws : False -- Skip return : False @@ -2634,7 +2674,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2662,7 +2702,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "TargetList" +-- returnType : Just (TInterface "Gtk" "TargetList") -- throws : False -- Skip return : False @@ -2691,7 +2731,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "TextMark" +-- returnType : Just (TInterface "Gtk" "TextMark") -- throws : False -- Skip return : False @@ -2720,7 +2760,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2752,15 +2792,15 @@ -- method TextBuffer::get_serialize_formats -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_formats", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "n_formats", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : TCArray False (-1) 1 (TInterface "Gdk" "Atom") +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_formats", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [Arg {argCName = "n_formats", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- returnType : Just (TCArray False (-1) 1 (TInterface "Gdk" "Atom")) -- throws : False -- Skip return : False foreign import ccall "gtk_text_buffer_get_serialize_formats" gtk_text_buffer_get_serialize_formats :: Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - Ptr Int32 -> -- n_formats : TBasicType TInt32 + Ptr Int32 -> -- n_formats : TBasicType TInt IO (Ptr (Ptr Gdk.Atom)) @@ -2790,7 +2830,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "include_hidden_chars", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -2831,7 +2871,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2861,7 +2901,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "TextTagTable" +-- returnType : Just (TInterface "Gtk" "TextTagTable") -- throws : False -- Skip return : False @@ -2890,7 +2930,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "include_hidden_chars", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -2929,9 +2969,9 @@ -- method TextBuffer::insert -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2939,7 +2979,7 @@ Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" CString -> -- text : TBasicType TUTF8 - Int32 -> -- len : TBasicType TInt32 + Int32 -> -- len : TBasicType TInt IO () @@ -2966,16 +3006,16 @@ -- method TextBuffer::insert_at_cursor -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_text_buffer_insert_at_cursor" gtk_text_buffer_insert_at_cursor :: Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" CString -> -- text : TBasicType TUTF8 - Int32 -> -- len : TBasicType TInt32 + Int32 -> -- len : TBasicType TInt IO () @@ -3001,7 +3041,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "anchor", argType = TInterface "Gtk" "TextChildAnchor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3034,9 +3074,9 @@ -- method TextBuffer::insert_interactive -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3044,7 +3084,7 @@ Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" CString -> -- text : TBasicType TUTF8 - Int32 -> -- len : TBasicType TInt32 + Int32 -> -- len : TBasicType TInt CInt -> -- default_editable : TBasicType TBoolean IO CInt @@ -3075,16 +3115,16 @@ -- method TextBuffer::insert_interactive_at_cursor -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_text_buffer_insert_interactive_at_cursor" gtk_text_buffer_insert_interactive_at_cursor :: Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" CString -> -- text : TBasicType TUTF8 - Int32 -> -- len : TBasicType TInt32 + Int32 -> -- len : TBasicType TInt CInt -> -- default_editable : TBasicType TBoolean IO CInt @@ -3112,9 +3152,9 @@ -- method TextBuffer::insert_markup -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3122,7 +3162,7 @@ Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" CString -> -- markup : TBasicType TUTF8 - Int32 -> -- len : TBasicType TInt32 + Int32 -> -- len : TBasicType TInt IO () @@ -3151,7 +3191,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", 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}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3186,7 +3226,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3225,7 +3265,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3268,7 +3308,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mark", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "where", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3303,7 +3343,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", 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 = "where", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3338,7 +3378,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "clipboard", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "override_location", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3380,7 +3420,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "where", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3409,9 +3449,9 @@ -- method TextBuffer::register_deserialize_format -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "function", argType = TInterface "Gtk" "TextBufferDeserializeFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "function", argType = TInterface "Gtk" "TextBufferDeserializeFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, 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},Arg {argCName = "user_data_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gdk" "Atom" +-- returnType : Just (TInterface "Gdk" "Atom") -- throws : False -- Skip return : False @@ -3419,7 +3459,7 @@ Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" CString -> -- mime_type : TBasicType TUTF8 FunPtr TextBufferDeserializeFuncC -> -- function : TInterface "Gtk" "TextBufferDeserializeFunc" - Ptr () -> -- user_data : TBasicType TVoid + Ptr () -> -- user_data : TBasicType TPtr FunPtr GLib.DestroyNotifyC -> -- user_data_destroy : TInterface "GLib" "DestroyNotify" IO (Ptr Gdk.Atom) @@ -3452,7 +3492,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tagset_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gdk" "Atom" +-- returnType : Just (TInterface "Gdk" "Atom") -- throws : False -- Skip return : False @@ -3488,9 +3528,9 @@ -- method TextBuffer::register_serialize_format -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "function", argType = TInterface "Gtk" "TextBufferSerializeFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "function", argType = TInterface "Gtk" "TextBufferSerializeFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, 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},Arg {argCName = "user_data_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gdk" "Atom" +-- returnType : Just (TInterface "Gdk" "Atom") -- throws : False -- Skip return : False @@ -3498,7 +3538,7 @@ Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" CString -> -- mime_type : TBasicType TUTF8 FunPtr TextBufferSerializeFuncC -> -- function : TInterface "Gtk" "TextBufferSerializeFunc" - Ptr () -> -- user_data : TBasicType TVoid + Ptr () -> -- user_data : TBasicType TPtr FunPtr GLib.DestroyNotifyC -> -- user_data_destroy : TInterface "GLib" "DestroyNotify" IO (Ptr Gdk.Atom) @@ -3531,7 +3571,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tagset_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gdk" "Atom" +-- returnType : Just (TInterface "Gdk" "Atom") -- throws : False -- Skip return : False @@ -3569,7 +3609,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3604,7 +3644,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "clipboard", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3635,7 +3675,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3674,7 +3714,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", 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 = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3713,7 +3753,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ins", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bound", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3748,7 +3788,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content_buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : TCArray False (-1) 5 (TBasicType TUInt8) +-- returnType : Just (TCArray False (-1) 5 (TBasicType TUInt8)) -- throws : False -- Skip return : False @@ -3798,7 +3838,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3826,16 +3866,16 @@ -- method TextBuffer::set_text -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_text_buffer_set_text" gtk_text_buffer_set_text :: Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" CString -> -- text : TBasicType TUTF8 - Int32 -> -- len : TBasicType TInt32 + Int32 -> -- len : TBasicType TInt IO () @@ -3861,7 +3901,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3892,7 +3932,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/TextBuffer.hs-boot b/GI/Gtk/Objects/TextBuffer.hs-boot --- a/GI/Gtk/Objects/TextBuffer.hs-boot +++ b/GI/Gtk/Objects/TextBuffer.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.TextBuffer where -import Prelude () 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 diff --git a/GI/Gtk/Objects/TextCellAccessible.hs b/GI/Gtk/Objects/TextCellAccessible.hs --- a/GI/Gtk/Objects/TextCellAccessible.hs +++ b/GI/Gtk/Objects/TextCellAccessible.hs @@ -18,9 +18,9 @@ ) where -import Prelude () 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 diff --git a/GI/Gtk/Objects/TextCellAccessible.hs-boot b/GI/Gtk/Objects/TextCellAccessible.hs-boot --- a/GI/Gtk/Objects/TextCellAccessible.hs-boot +++ b/GI/Gtk/Objects/TextCellAccessible.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.TextCellAccessible where -import Prelude () 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 diff --git a/GI/Gtk/Objects/TextChildAnchor.hs b/GI/Gtk/Objects/TextChildAnchor.hs --- a/GI/Gtk/Objects/TextChildAnchor.hs +++ b/GI/Gtk/Objects/TextChildAnchor.hs @@ -35,9 +35,9 @@ ) where -import Prelude () 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 @@ -112,7 +112,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "TextChildAnchor" +-- returnType : Just (TInterface "Gtk" "TextChildAnchor") -- throws : False -- Skip return : False @@ -133,7 +133,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextChildAnchor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -161,7 +161,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextChildAnchor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TGList (TInterface "Gtk" "Widget") +-- returnType : Just (TGList (TInterface "Gtk" "Widget")) -- throws : False -- Skip return : False @@ -177,7 +177,6 @@ textChildAnchorGetWidgets _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_text_child_anchor_get_widgets _obj' - checkUnexpectedReturnNULL "gtk_text_child_anchor_get_widgets" result result' <- unpackGList result result'' <- mapM (newObject Widget) result' g_list_free result diff --git a/GI/Gtk/Objects/TextChildAnchor.hs-boot b/GI/Gtk/Objects/TextChildAnchor.hs-boot --- a/GI/Gtk/Objects/TextChildAnchor.hs-boot +++ b/GI/Gtk/Objects/TextChildAnchor.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.TextChildAnchor where -import Prelude () 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 diff --git a/GI/Gtk/Objects/TextMark.hs b/GI/Gtk/Objects/TextMark.hs --- a/GI/Gtk/Objects/TextMark.hs +++ b/GI/Gtk/Objects/TextMark.hs @@ -58,21 +58,23 @@ TextMarkLeftGravityPropertyInfo , constructTextMarkLeftGravity , getTextMarkLeftGravity , + textMarkLeftGravity , -- ** Name TextMarkNamePropertyInfo , constructTextMarkName , getTextMarkName , + textMarkName , ) where -import Prelude () 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 @@ -144,6 +146,7 @@ -- VVV Prop "left-gravity" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + -- Nullable: (Just False,Nothing) getTextMarkLeftGravity :: (MonadIO m, TextMarkK o) => o -> m Bool getTextMarkLeftGravity obj = liftIO $ getObjectPropertyBool obj "left-gravity" @@ -161,20 +164,22 @@ attrGet _ = getTextMarkLeftGravity attrSet _ = undefined attrConstruct _ = constructTextMarkLeftGravity + attrClear _ = undefined -- VVV Prop "name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + -- Nullable: (Just False,Nothing) getTextMarkName :: (MonadIO m, TextMarkK o) => o -> m T.Text -getTextMarkName obj = liftIO $ getObjectPropertyString obj "name" +getTextMarkName obj = liftIO $ checkUnexpectedNothing "getTextMarkName" $ getObjectPropertyString obj "name" constructTextMarkName :: T.Text -> IO ([Char], GValue) -constructTextMarkName val = constructObjectPropertyString "name" val +constructTextMarkName val = constructObjectPropertyString "name" (Just val) data TextMarkNamePropertyInfo instance AttrInfo TextMarkNamePropertyInfo where - type AttrAllowedOps TextMarkNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrAllowedOps TextMarkNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint TextMarkNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint TextMarkNamePropertyInfo = TextMarkK type AttrGetType TextMarkNamePropertyInfo = T.Text @@ -182,10 +187,17 @@ attrGet _ = getTextMarkName attrSet _ = undefined attrConstruct _ = constructTextMarkName + attrClear _ = undefined type instance AttributeList TextMark = TextMarkAttributeList type TextMarkAttributeList = ('[ '("leftGravity", TextMarkLeftGravityPropertyInfo), '("name", TextMarkNamePropertyInfo)] :: [(Symbol, *)]) +textMarkLeftGravity :: AttrLabelProxy "leftGravity" +textMarkLeftGravity = AttrLabelProxy + +textMarkName :: AttrLabelProxy "name" +textMarkName = AttrLabelProxy + type instance SignalList TextMark = TextMarkSignalList type TextMarkSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -193,7 +205,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "left_gravity", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "TextMark" +-- returnType : Just (TInterface "Gtk" "TextMark") -- throws : False -- Skip return : False @@ -225,7 +237,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "TextBuffer" +-- returnType : Just (TInterface "Gtk" "TextBuffer") -- throws : False -- Skip return : False @@ -254,7 +266,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -282,7 +294,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -310,7 +322,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -339,7 +351,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -367,7 +379,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextMark", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/TextMark.hs-boot b/GI/Gtk/Objects/TextMark.hs-boot --- a/GI/Gtk/Objects/TextMark.hs-boot +++ b/GI/Gtk/Objects/TextMark.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.TextMark where -import Prelude () 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 diff --git a/GI/Gtk/Objects/TextTag.hs b/GI/Gtk/Objects/TextTag.hs --- a/GI/Gtk/Objects/TextTag.hs +++ b/GI/Gtk/Objects/TextTag.hs @@ -44,12 +44,15 @@ constructTextTagAccumulativeMargin , getTextTagAccumulativeMargin , setTextTagAccumulativeMargin , + textTagAccumulativeMargin , -- ** Background TextTagBackgroundPropertyInfo , + clearTextTagBackground , constructTextTagBackground , setTextTagBackground , + textTagBackground , -- ** BackgroundFullHeight @@ -57,6 +60,7 @@ constructTextTagBackgroundFullHeight , getTextTagBackgroundFullHeight , setTextTagBackgroundFullHeight , + textTagBackgroundFullHeight , -- ** BackgroundFullHeightSet @@ -64,20 +68,25 @@ constructTextTagBackgroundFullHeightSet , getTextTagBackgroundFullHeightSet , setTextTagBackgroundFullHeightSet , + textTagBackgroundFullHeightSet , -- ** BackgroundGdk TextTagBackgroundGdkPropertyInfo , + clearTextTagBackgroundGdk , constructTextTagBackgroundGdk , getTextTagBackgroundGdk , setTextTagBackgroundGdk , + textTagBackgroundGdk , -- ** BackgroundRgba TextTagBackgroundRgbaPropertyInfo , + clearTextTagBackgroundRgba , constructTextTagBackgroundRgba , getTextTagBackgroundRgba , setTextTagBackgroundRgba , + textTagBackgroundRgba , -- ** BackgroundSet @@ -85,6 +94,7 @@ constructTextTagBackgroundSet , getTextTagBackgroundSet , setTextTagBackgroundSet , + textTagBackgroundSet , -- ** Direction @@ -92,6 +102,7 @@ constructTextTagDirection , getTextTagDirection , setTextTagDirection , + textTagDirection , -- ** Editable @@ -99,6 +110,7 @@ constructTextTagEditable , getTextTagEditable , setTextTagEditable , + textTagEditable , -- ** EditableSet @@ -106,6 +118,7 @@ constructTextTagEditableSet , getTextTagEditableSet , setTextTagEditableSet , + textTagEditableSet , -- ** Fallback @@ -113,6 +126,7 @@ constructTextTagFallback , getTextTagFallback , setTextTagFallback , + textTagFallback , -- ** FallbackSet @@ -120,13 +134,16 @@ constructTextTagFallbackSet , getTextTagFallbackSet , setTextTagFallbackSet , + textTagFallbackSet , -- ** Family TextTagFamilyPropertyInfo , + clearTextTagFamily , constructTextTagFamily , getTextTagFamily , setTextTagFamily , + textTagFamily , -- ** FamilySet @@ -134,27 +151,34 @@ constructTextTagFamilySet , getTextTagFamilySet , setTextTagFamilySet , + textTagFamilySet , -- ** Font TextTagFontPropertyInfo , + clearTextTagFont , constructTextTagFont , getTextTagFont , setTextTagFont , + textTagFont , -- ** FontDesc TextTagFontDescPropertyInfo , + clearTextTagFontDesc , constructTextTagFontDesc , getTextTagFontDesc , setTextTagFontDesc , + textTagFontDesc , -- ** FontFeatures TextTagFontFeaturesPropertyInfo , + clearTextTagFontFeatures , constructTextTagFontFeatures , getTextTagFontFeatures , setTextTagFontFeatures , + textTagFontFeatures , -- ** FontFeaturesSet @@ -162,26 +186,33 @@ constructTextTagFontFeaturesSet , getTextTagFontFeaturesSet , setTextTagFontFeaturesSet , + textTagFontFeaturesSet , -- ** Foreground TextTagForegroundPropertyInfo , + clearTextTagForeground , constructTextTagForeground , setTextTagForeground , + textTagForeground , -- ** ForegroundGdk TextTagForegroundGdkPropertyInfo , + clearTextTagForegroundGdk , constructTextTagForegroundGdk , getTextTagForegroundGdk , setTextTagForegroundGdk , + textTagForegroundGdk , -- ** ForegroundRgba TextTagForegroundRgbaPropertyInfo , + clearTextTagForegroundRgba , constructTextTagForegroundRgba , getTextTagForegroundRgba , setTextTagForegroundRgba , + textTagForegroundRgba , -- ** ForegroundSet @@ -189,6 +220,7 @@ constructTextTagForegroundSet , getTextTagForegroundSet , setTextTagForegroundSet , + textTagForegroundSet , -- ** Indent @@ -196,6 +228,7 @@ constructTextTagIndent , getTextTagIndent , setTextTagIndent , + textTagIndent , -- ** IndentSet @@ -203,6 +236,7 @@ constructTextTagIndentSet , getTextTagIndentSet , setTextTagIndentSet , + textTagIndentSet , -- ** Invisible @@ -210,6 +244,7 @@ constructTextTagInvisible , getTextTagInvisible , setTextTagInvisible , + textTagInvisible , -- ** InvisibleSet @@ -217,6 +252,7 @@ constructTextTagInvisibleSet , getTextTagInvisibleSet , setTextTagInvisibleSet , + textTagInvisibleSet , -- ** Justification @@ -224,6 +260,7 @@ constructTextTagJustification , getTextTagJustification , setTextTagJustification , + textTagJustification , -- ** JustificationSet @@ -231,13 +268,16 @@ constructTextTagJustificationSet , getTextTagJustificationSet , setTextTagJustificationSet , + textTagJustificationSet , -- ** Language TextTagLanguagePropertyInfo , + clearTextTagLanguage , constructTextTagLanguage , getTextTagLanguage , setTextTagLanguage , + textTagLanguage , -- ** LanguageSet @@ -245,6 +285,7 @@ constructTextTagLanguageSet , getTextTagLanguageSet , setTextTagLanguageSet , + textTagLanguageSet , -- ** LeftMargin @@ -252,6 +293,7 @@ constructTextTagLeftMargin , getTextTagLeftMargin , setTextTagLeftMargin , + textTagLeftMargin , -- ** LeftMarginSet @@ -259,6 +301,7 @@ constructTextTagLeftMarginSet , getTextTagLeftMarginSet , setTextTagLeftMarginSet , + textTagLeftMarginSet , -- ** LetterSpacing @@ -266,6 +309,7 @@ constructTextTagLetterSpacing , getTextTagLetterSpacing , setTextTagLetterSpacing , + textTagLetterSpacing , -- ** LetterSpacingSet @@ -273,32 +317,40 @@ constructTextTagLetterSpacingSet , getTextTagLetterSpacingSet , setTextTagLetterSpacingSet , + textTagLetterSpacingSet , -- ** Name TextTagNamePropertyInfo , constructTextTagName , getTextTagName , + textTagName , -- ** ParagraphBackground TextTagParagraphBackgroundPropertyInfo , + clearTextTagParagraphBackground , constructTextTagParagraphBackground , setTextTagParagraphBackground , + textTagParagraphBackground , -- ** ParagraphBackgroundGdk TextTagParagraphBackgroundGdkPropertyInfo, + clearTextTagParagraphBackgroundGdk , constructTextTagParagraphBackgroundGdk , getTextTagParagraphBackgroundGdk , setTextTagParagraphBackgroundGdk , + textTagParagraphBackgroundGdk , -- ** ParagraphBackgroundRgba TextTagParagraphBackgroundRgbaPropertyInfo, + clearTextTagParagraphBackgroundRgba , constructTextTagParagraphBackgroundRgba , getTextTagParagraphBackgroundRgba , setTextTagParagraphBackgroundRgba , + textTagParagraphBackgroundRgba , -- ** ParagraphBackgroundSet @@ -306,6 +358,7 @@ constructTextTagParagraphBackgroundSet , getTextTagParagraphBackgroundSet , setTextTagParagraphBackgroundSet , + textTagParagraphBackgroundSet , -- ** PixelsAboveLines @@ -313,6 +366,7 @@ constructTextTagPixelsAboveLines , getTextTagPixelsAboveLines , setTextTagPixelsAboveLines , + textTagPixelsAboveLines , -- ** PixelsAboveLinesSet @@ -320,6 +374,7 @@ constructTextTagPixelsAboveLinesSet , getTextTagPixelsAboveLinesSet , setTextTagPixelsAboveLinesSet , + textTagPixelsAboveLinesSet , -- ** PixelsBelowLines @@ -327,6 +382,7 @@ constructTextTagPixelsBelowLines , getTextTagPixelsBelowLines , setTextTagPixelsBelowLines , + textTagPixelsBelowLines , -- ** PixelsBelowLinesSet @@ -334,6 +390,7 @@ constructTextTagPixelsBelowLinesSet , getTextTagPixelsBelowLinesSet , setTextTagPixelsBelowLinesSet , + textTagPixelsBelowLinesSet , -- ** PixelsInsideWrap @@ -341,6 +398,7 @@ constructTextTagPixelsInsideWrap , getTextTagPixelsInsideWrap , setTextTagPixelsInsideWrap , + textTagPixelsInsideWrap , -- ** PixelsInsideWrapSet @@ -348,6 +406,7 @@ constructTextTagPixelsInsideWrapSet , getTextTagPixelsInsideWrapSet , setTextTagPixelsInsideWrapSet , + textTagPixelsInsideWrapSet , -- ** RightMargin @@ -355,6 +414,7 @@ constructTextTagRightMargin , getTextTagRightMargin , setTextTagRightMargin , + textTagRightMargin , -- ** RightMarginSet @@ -362,6 +422,7 @@ constructTextTagRightMarginSet , getTextTagRightMarginSet , setTextTagRightMarginSet , + textTagRightMarginSet , -- ** Rise @@ -369,6 +430,7 @@ constructTextTagRise , getTextTagRise , setTextTagRise , + textTagRise , -- ** RiseSet @@ -376,6 +438,7 @@ constructTextTagRiseSet , getTextTagRiseSet , setTextTagRiseSet , + textTagRiseSet , -- ** Scale @@ -383,6 +446,7 @@ constructTextTagScale , getTextTagScale , setTextTagScale , + textTagScale , -- ** ScaleSet @@ -390,6 +454,7 @@ constructTextTagScaleSet , getTextTagScaleSet , setTextTagScaleSet , + textTagScaleSet , -- ** Size @@ -397,6 +462,7 @@ constructTextTagSize , getTextTagSize , setTextTagSize , + textTagSize , -- ** SizePoints @@ -404,6 +470,7 @@ constructTextTagSizePoints , getTextTagSizePoints , setTextTagSizePoints , + textTagSizePoints , -- ** SizeSet @@ -411,6 +478,7 @@ constructTextTagSizeSet , getTextTagSizeSet , setTextTagSizeSet , + textTagSizeSet , -- ** Stretch @@ -418,6 +486,7 @@ constructTextTagStretch , getTextTagStretch , setTextTagStretch , + textTagStretch , -- ** StretchSet @@ -425,6 +494,7 @@ constructTextTagStretchSet , getTextTagStretchSet , setTextTagStretchSet , + textTagStretchSet , -- ** Strikethrough @@ -432,13 +502,16 @@ constructTextTagStrikethrough , getTextTagStrikethrough , setTextTagStrikethrough , + textTagStrikethrough , -- ** StrikethroughRgba TextTagStrikethroughRgbaPropertyInfo , + clearTextTagStrikethroughRgba , constructTextTagStrikethroughRgba , getTextTagStrikethroughRgba , setTextTagStrikethroughRgba , + textTagStrikethroughRgba , -- ** StrikethroughRgbaSet @@ -446,6 +519,7 @@ constructTextTagStrikethroughRgbaSet , getTextTagStrikethroughRgbaSet , setTextTagStrikethroughRgbaSet , + textTagStrikethroughRgbaSet , -- ** StrikethroughSet @@ -453,6 +527,7 @@ constructTextTagStrikethroughSet , getTextTagStrikethroughSet , setTextTagStrikethroughSet , + textTagStrikethroughSet , -- ** Style @@ -460,6 +535,7 @@ constructTextTagStyle , getTextTagStyle , setTextTagStyle , + textTagStyle , -- ** StyleSet @@ -467,13 +543,16 @@ constructTextTagStyleSet , getTextTagStyleSet , setTextTagStyleSet , + textTagStyleSet , -- ** Tabs TextTagTabsPropertyInfo , + clearTextTagTabs , constructTextTagTabs , getTextTagTabs , setTextTagTabs , + textTagTabs , -- ** TabsSet @@ -481,6 +560,7 @@ constructTextTagTabsSet , getTextTagTabsSet , setTextTagTabsSet , + textTagTabsSet , -- ** Underline @@ -488,13 +568,16 @@ constructTextTagUnderline , getTextTagUnderline , setTextTagUnderline , + textTagUnderline , -- ** UnderlineRgba TextTagUnderlineRgbaPropertyInfo , + clearTextTagUnderlineRgba , constructTextTagUnderlineRgba , getTextTagUnderlineRgba , setTextTagUnderlineRgba , + textTagUnderlineRgba , -- ** UnderlineRgbaSet @@ -502,6 +585,7 @@ constructTextTagUnderlineRgbaSet , getTextTagUnderlineRgbaSet , setTextTagUnderlineRgbaSet , + textTagUnderlineRgbaSet , -- ** UnderlineSet @@ -509,6 +593,7 @@ constructTextTagUnderlineSet , getTextTagUnderlineSet , setTextTagUnderlineSet , + textTagUnderlineSet , -- ** Variant @@ -516,6 +601,7 @@ constructTextTagVariant , getTextTagVariant , setTextTagVariant , + textTagVariant , -- ** VariantSet @@ -523,6 +609,7 @@ constructTextTagVariantSet , getTextTagVariantSet , setTextTagVariantSet , + textTagVariantSet , -- ** Weight @@ -530,6 +617,7 @@ constructTextTagWeight , getTextTagWeight , setTextTagWeight , + textTagWeight , -- ** WeightSet @@ -537,6 +625,7 @@ constructTextTagWeightSet , getTextTagWeightSet , setTextTagWeightSet , + textTagWeightSet , -- ** WrapMode @@ -544,6 +633,7 @@ constructTextTagWrapMode , getTextTagWrapMode , setTextTagWrapMode , + textTagWrapMode , -- ** WrapModeSet @@ -551,6 +641,7 @@ constructTextTagWrapModeSet , getTextTagWrapModeSet , setTextTagWrapModeSet , + textTagWrapModeSet , @@ -572,9 +663,9 @@ ) where -import Prelude () 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 @@ -697,6 +788,7 @@ -- VVV Prop "accumulative-margin" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getTextTagAccumulativeMargin :: (MonadIO m, TextTagK o) => o -> m Bool getTextTagAccumulativeMargin obj = liftIO $ getObjectPropertyBool obj "accumulative-margin" @@ -717,20 +809,25 @@ attrGet _ = getTextTagAccumulativeMargin attrSet _ = setTextTagAccumulativeMargin attrConstruct _ = constructTextTagAccumulativeMargin + attrClear _ = undefined -- VVV Prop "background" -- Type: TBasicType TUTF8 -- Flags: [PropertyWritable] + -- Nullable: (Nothing,Nothing) setTextTagBackground :: (MonadIO m, TextTagK o) => o -> T.Text -> m () -setTextTagBackground obj val = liftIO $ setObjectPropertyString obj "background" val +setTextTagBackground obj val = liftIO $ setObjectPropertyString obj "background" (Just val) constructTextTagBackground :: T.Text -> IO ([Char], GValue) -constructTextTagBackground val = constructObjectPropertyString "background" val +constructTextTagBackground val = constructObjectPropertyString "background" (Just val) +clearTextTagBackground :: (MonadIO m, TextTagK o) => o -> m () +clearTextTagBackground obj = liftIO $ setObjectPropertyString obj "background" (Nothing :: Maybe T.Text) + data TextTagBackgroundPropertyInfo instance AttrInfo TextTagBackgroundPropertyInfo where - type AttrAllowedOps TextTagBackgroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct] + type AttrAllowedOps TextTagBackgroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear] type AttrSetTypeConstraint TextTagBackgroundPropertyInfo = (~) T.Text type AttrBaseTypeConstraint TextTagBackgroundPropertyInfo = TextTagK type AttrGetType TextTagBackgroundPropertyInfo = () @@ -738,10 +835,12 @@ attrGet _ = undefined attrSet _ = setTextTagBackground attrConstruct _ = constructTextTagBackground + attrClear _ = clearTextTagBackground -- VVV Prop "background-full-height" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getTextTagBackgroundFullHeight :: (MonadIO m, TextTagK o) => o -> m Bool getTextTagBackgroundFullHeight obj = liftIO $ getObjectPropertyBool obj "background-full-height" @@ -762,10 +861,12 @@ attrGet _ = getTextTagBackgroundFullHeight attrSet _ = setTextTagBackgroundFullHeight attrConstruct _ = constructTextTagBackgroundFullHeight + attrClear _ = undefined -- VVV Prop "background-full-height-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getTextTagBackgroundFullHeightSet :: (MonadIO m, TextTagK o) => o -> m Bool getTextTagBackgroundFullHeightSet obj = liftIO $ getObjectPropertyBool obj "background-full-height-set" @@ -786,58 +887,70 @@ attrGet _ = getTextTagBackgroundFullHeightSet attrSet _ = setTextTagBackgroundFullHeightSet attrConstruct _ = constructTextTagBackgroundFullHeightSet + attrClear _ = undefined -- VVV Prop "background-gdk" -- Type: TInterface "Gdk" "Color" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getTextTagBackgroundGdk :: (MonadIO m, TextTagK o) => o -> m Gdk.Color +getTextTagBackgroundGdk :: (MonadIO m, TextTagK o) => o -> m (Maybe Gdk.Color) getTextTagBackgroundGdk obj = liftIO $ getObjectPropertyBoxed obj "background-gdk" Gdk.Color setTextTagBackgroundGdk :: (MonadIO m, TextTagK o) => o -> Gdk.Color -> m () -setTextTagBackgroundGdk obj val = liftIO $ setObjectPropertyBoxed obj "background-gdk" val +setTextTagBackgroundGdk obj val = liftIO $ setObjectPropertyBoxed obj "background-gdk" (Just val) constructTextTagBackgroundGdk :: Gdk.Color -> IO ([Char], GValue) -constructTextTagBackgroundGdk val = constructObjectPropertyBoxed "background-gdk" val +constructTextTagBackgroundGdk val = constructObjectPropertyBoxed "background-gdk" (Just val) +clearTextTagBackgroundGdk :: (MonadIO m, TextTagK o) => o -> m () +clearTextTagBackgroundGdk obj = liftIO $ setObjectPropertyBoxed obj "background-gdk" (Nothing :: Maybe Gdk.Color) + data TextTagBackgroundGdkPropertyInfo instance AttrInfo TextTagBackgroundGdkPropertyInfo where - type AttrAllowedOps TextTagBackgroundGdkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps TextTagBackgroundGdkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint TextTagBackgroundGdkPropertyInfo = (~) Gdk.Color type AttrBaseTypeConstraint TextTagBackgroundGdkPropertyInfo = TextTagK - type AttrGetType TextTagBackgroundGdkPropertyInfo = Gdk.Color + type AttrGetType TextTagBackgroundGdkPropertyInfo = (Maybe Gdk.Color) type AttrLabel TextTagBackgroundGdkPropertyInfo = "background-gdk" attrGet _ = getTextTagBackgroundGdk attrSet _ = setTextTagBackgroundGdk attrConstruct _ = constructTextTagBackgroundGdk + attrClear _ = clearTextTagBackgroundGdk -- VVV Prop "background-rgba" -- Type: TInterface "Gdk" "RGBA" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getTextTagBackgroundRgba :: (MonadIO m, TextTagK o) => o -> m Gdk.RGBA +getTextTagBackgroundRgba :: (MonadIO m, TextTagK o) => o -> m (Maybe Gdk.RGBA) getTextTagBackgroundRgba obj = liftIO $ getObjectPropertyBoxed obj "background-rgba" Gdk.RGBA setTextTagBackgroundRgba :: (MonadIO m, TextTagK o) => o -> Gdk.RGBA -> m () -setTextTagBackgroundRgba obj val = liftIO $ setObjectPropertyBoxed obj "background-rgba" val +setTextTagBackgroundRgba obj val = liftIO $ setObjectPropertyBoxed obj "background-rgba" (Just val) constructTextTagBackgroundRgba :: Gdk.RGBA -> IO ([Char], GValue) -constructTextTagBackgroundRgba val = constructObjectPropertyBoxed "background-rgba" val +constructTextTagBackgroundRgba val = constructObjectPropertyBoxed "background-rgba" (Just val) +clearTextTagBackgroundRgba :: (MonadIO m, TextTagK o) => o -> m () +clearTextTagBackgroundRgba obj = liftIO $ setObjectPropertyBoxed obj "background-rgba" (Nothing :: Maybe Gdk.RGBA) + data TextTagBackgroundRgbaPropertyInfo instance AttrInfo TextTagBackgroundRgbaPropertyInfo where - type AttrAllowedOps TextTagBackgroundRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps TextTagBackgroundRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint TextTagBackgroundRgbaPropertyInfo = (~) Gdk.RGBA type AttrBaseTypeConstraint TextTagBackgroundRgbaPropertyInfo = TextTagK - type AttrGetType TextTagBackgroundRgbaPropertyInfo = Gdk.RGBA + type AttrGetType TextTagBackgroundRgbaPropertyInfo = (Maybe Gdk.RGBA) type AttrLabel TextTagBackgroundRgbaPropertyInfo = "background-rgba" attrGet _ = getTextTagBackgroundRgba attrSet _ = setTextTagBackgroundRgba attrConstruct _ = constructTextTagBackgroundRgba + attrClear _ = clearTextTagBackgroundRgba -- VVV Prop "background-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getTextTagBackgroundSet :: (MonadIO m, TextTagK o) => o -> m Bool getTextTagBackgroundSet obj = liftIO $ getObjectPropertyBool obj "background-set" @@ -858,10 +971,12 @@ attrGet _ = getTextTagBackgroundSet attrSet _ = setTextTagBackgroundSet attrConstruct _ = constructTextTagBackgroundSet + attrClear _ = undefined -- VVV Prop "direction" -- Type: TInterface "Gtk" "TextDirection" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getTextTagDirection :: (MonadIO m, TextTagK o) => o -> m TextDirection getTextTagDirection obj = liftIO $ getObjectPropertyEnum obj "direction" @@ -882,10 +997,12 @@ attrGet _ = getTextTagDirection attrSet _ = setTextTagDirection attrConstruct _ = constructTextTagDirection + attrClear _ = undefined -- VVV Prop "editable" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getTextTagEditable :: (MonadIO m, TextTagK o) => o -> m Bool getTextTagEditable obj = liftIO $ getObjectPropertyBool obj "editable" @@ -906,10 +1023,12 @@ attrGet _ = getTextTagEditable attrSet _ = setTextTagEditable attrConstruct _ = constructTextTagEditable + attrClear _ = undefined -- VVV Prop "editable-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getTextTagEditableSet :: (MonadIO m, TextTagK o) => o -> m Bool getTextTagEditableSet obj = liftIO $ getObjectPropertyBool obj "editable-set" @@ -930,10 +1049,12 @@ attrGet _ = getTextTagEditableSet attrSet _ = setTextTagEditableSet attrConstruct _ = constructTextTagEditableSet + attrClear _ = undefined -- VVV Prop "fallback" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getTextTagFallback :: (MonadIO m, TextTagK o) => o -> m Bool getTextTagFallback obj = liftIO $ getObjectPropertyBool obj "fallback" @@ -954,10 +1075,12 @@ attrGet _ = getTextTagFallback attrSet _ = setTextTagFallback attrConstruct _ = constructTextTagFallback + attrClear _ = undefined -- VVV Prop "fallback-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getTextTagFallbackSet :: (MonadIO m, TextTagK o) => o -> m Bool getTextTagFallbackSet obj = liftIO $ getObjectPropertyBool obj "fallback-set" @@ -978,34 +1101,41 @@ attrGet _ = getTextTagFallbackSet attrSet _ = setTextTagFallbackSet attrConstruct _ = constructTextTagFallbackSet + attrClear _ = undefined -- VVV Prop "family" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getTextTagFamily :: (MonadIO m, TextTagK o) => o -> m T.Text +getTextTagFamily :: (MonadIO m, TextTagK o) => o -> m (Maybe T.Text) getTextTagFamily obj = liftIO $ getObjectPropertyString obj "family" setTextTagFamily :: (MonadIO m, TextTagK o) => o -> T.Text -> m () -setTextTagFamily obj val = liftIO $ setObjectPropertyString obj "family" val +setTextTagFamily obj val = liftIO $ setObjectPropertyString obj "family" (Just val) constructTextTagFamily :: T.Text -> IO ([Char], GValue) -constructTextTagFamily val = constructObjectPropertyString "family" val +constructTextTagFamily val = constructObjectPropertyString "family" (Just val) +clearTextTagFamily :: (MonadIO m, TextTagK o) => o -> m () +clearTextTagFamily obj = liftIO $ setObjectPropertyString obj "family" (Nothing :: Maybe T.Text) + data TextTagFamilyPropertyInfo instance AttrInfo TextTagFamilyPropertyInfo where - type AttrAllowedOps TextTagFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps TextTagFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint TextTagFamilyPropertyInfo = (~) T.Text type AttrBaseTypeConstraint TextTagFamilyPropertyInfo = TextTagK - type AttrGetType TextTagFamilyPropertyInfo = T.Text + type AttrGetType TextTagFamilyPropertyInfo = (Maybe T.Text) type AttrLabel TextTagFamilyPropertyInfo = "family" attrGet _ = getTextTagFamily attrSet _ = setTextTagFamily attrConstruct _ = constructTextTagFamily + attrClear _ = clearTextTagFamily -- VVV Prop "family-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getTextTagFamilySet :: (MonadIO m, TextTagK o) => o -> m Bool getTextTagFamilySet obj = liftIO $ getObjectPropertyBool obj "family-set" @@ -1026,82 +1156,99 @@ attrGet _ = getTextTagFamilySet attrSet _ = setTextTagFamilySet attrConstruct _ = constructTextTagFamilySet + attrClear _ = undefined -- VVV Prop "font" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getTextTagFont :: (MonadIO m, TextTagK o) => o -> m T.Text +getTextTagFont :: (MonadIO m, TextTagK o) => o -> m (Maybe T.Text) getTextTagFont obj = liftIO $ getObjectPropertyString obj "font" setTextTagFont :: (MonadIO m, TextTagK o) => o -> T.Text -> m () -setTextTagFont obj val = liftIO $ setObjectPropertyString obj "font" val +setTextTagFont obj val = liftIO $ setObjectPropertyString obj "font" (Just val) constructTextTagFont :: T.Text -> IO ([Char], GValue) -constructTextTagFont val = constructObjectPropertyString "font" val +constructTextTagFont val = constructObjectPropertyString "font" (Just val) +clearTextTagFont :: (MonadIO m, TextTagK o) => o -> m () +clearTextTagFont obj = liftIO $ setObjectPropertyString obj "font" (Nothing :: Maybe T.Text) + data TextTagFontPropertyInfo instance AttrInfo TextTagFontPropertyInfo where - type AttrAllowedOps TextTagFontPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps TextTagFontPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint TextTagFontPropertyInfo = (~) T.Text type AttrBaseTypeConstraint TextTagFontPropertyInfo = TextTagK - type AttrGetType TextTagFontPropertyInfo = T.Text + type AttrGetType TextTagFontPropertyInfo = (Maybe T.Text) type AttrLabel TextTagFontPropertyInfo = "font" attrGet _ = getTextTagFont attrSet _ = setTextTagFont attrConstruct _ = constructTextTagFont + attrClear _ = clearTextTagFont -- VVV Prop "font-desc" -- Type: TInterface "Pango" "FontDescription" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getTextTagFontDesc :: (MonadIO m, TextTagK o) => o -> m Pango.FontDescription +getTextTagFontDesc :: (MonadIO m, TextTagK o) => o -> m (Maybe Pango.FontDescription) getTextTagFontDesc obj = liftIO $ getObjectPropertyBoxed obj "font-desc" Pango.FontDescription setTextTagFontDesc :: (MonadIO m, TextTagK o) => o -> Pango.FontDescription -> m () -setTextTagFontDesc obj val = liftIO $ setObjectPropertyBoxed obj "font-desc" val +setTextTagFontDesc obj val = liftIO $ setObjectPropertyBoxed obj "font-desc" (Just val) constructTextTagFontDesc :: Pango.FontDescription -> IO ([Char], GValue) -constructTextTagFontDesc val = constructObjectPropertyBoxed "font-desc" val +constructTextTagFontDesc val = constructObjectPropertyBoxed "font-desc" (Just val) +clearTextTagFontDesc :: (MonadIO m, TextTagK o) => o -> m () +clearTextTagFontDesc obj = liftIO $ setObjectPropertyBoxed obj "font-desc" (Nothing :: Maybe Pango.FontDescription) + data TextTagFontDescPropertyInfo instance AttrInfo TextTagFontDescPropertyInfo where - type AttrAllowedOps TextTagFontDescPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps TextTagFontDescPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint TextTagFontDescPropertyInfo = (~) Pango.FontDescription type AttrBaseTypeConstraint TextTagFontDescPropertyInfo = TextTagK - type AttrGetType TextTagFontDescPropertyInfo = Pango.FontDescription + type AttrGetType TextTagFontDescPropertyInfo = (Maybe Pango.FontDescription) type AttrLabel TextTagFontDescPropertyInfo = "font-desc" attrGet _ = getTextTagFontDesc attrSet _ = setTextTagFontDesc attrConstruct _ = constructTextTagFontDesc + attrClear _ = clearTextTagFontDesc -- VVV Prop "font-features" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getTextTagFontFeatures :: (MonadIO m, TextTagK o) => o -> m T.Text +getTextTagFontFeatures :: (MonadIO m, TextTagK o) => o -> m (Maybe T.Text) getTextTagFontFeatures obj = liftIO $ getObjectPropertyString obj "font-features" setTextTagFontFeatures :: (MonadIO m, TextTagK o) => o -> T.Text -> m () -setTextTagFontFeatures obj val = liftIO $ setObjectPropertyString obj "font-features" val +setTextTagFontFeatures obj val = liftIO $ setObjectPropertyString obj "font-features" (Just val) constructTextTagFontFeatures :: T.Text -> IO ([Char], GValue) -constructTextTagFontFeatures val = constructObjectPropertyString "font-features" val +constructTextTagFontFeatures val = constructObjectPropertyString "font-features" (Just val) +clearTextTagFontFeatures :: (MonadIO m, TextTagK o) => o -> m () +clearTextTagFontFeatures obj = liftIO $ setObjectPropertyString obj "font-features" (Nothing :: Maybe T.Text) + data TextTagFontFeaturesPropertyInfo instance AttrInfo TextTagFontFeaturesPropertyInfo where - type AttrAllowedOps TextTagFontFeaturesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps TextTagFontFeaturesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint TextTagFontFeaturesPropertyInfo = (~) T.Text type AttrBaseTypeConstraint TextTagFontFeaturesPropertyInfo = TextTagK - type AttrGetType TextTagFontFeaturesPropertyInfo = T.Text + type AttrGetType TextTagFontFeaturesPropertyInfo = (Maybe T.Text) type AttrLabel TextTagFontFeaturesPropertyInfo = "font-features" attrGet _ = getTextTagFontFeatures attrSet _ = setTextTagFontFeatures attrConstruct _ = constructTextTagFontFeatures + attrClear _ = clearTextTagFontFeatures -- VVV Prop "font-features-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getTextTagFontFeaturesSet :: (MonadIO m, TextTagK o) => o -> m Bool getTextTagFontFeaturesSet obj = liftIO $ getObjectPropertyBool obj "font-features-set" @@ -1122,20 +1269,25 @@ attrGet _ = getTextTagFontFeaturesSet attrSet _ = setTextTagFontFeaturesSet attrConstruct _ = constructTextTagFontFeaturesSet + attrClear _ = undefined -- VVV Prop "foreground" -- Type: TBasicType TUTF8 -- Flags: [PropertyWritable] + -- Nullable: (Nothing,Nothing) setTextTagForeground :: (MonadIO m, TextTagK o) => o -> T.Text -> m () -setTextTagForeground obj val = liftIO $ setObjectPropertyString obj "foreground" val +setTextTagForeground obj val = liftIO $ setObjectPropertyString obj "foreground" (Just val) constructTextTagForeground :: T.Text -> IO ([Char], GValue) -constructTextTagForeground val = constructObjectPropertyString "foreground" val +constructTextTagForeground val = constructObjectPropertyString "foreground" (Just val) +clearTextTagForeground :: (MonadIO m, TextTagK o) => o -> m () +clearTextTagForeground obj = liftIO $ setObjectPropertyString obj "foreground" (Nothing :: Maybe T.Text) + data TextTagForegroundPropertyInfo instance AttrInfo TextTagForegroundPropertyInfo where - type AttrAllowedOps TextTagForegroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct] + type AttrAllowedOps TextTagForegroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear] type AttrSetTypeConstraint TextTagForegroundPropertyInfo = (~) T.Text type AttrBaseTypeConstraint TextTagForegroundPropertyInfo = TextTagK type AttrGetType TextTagForegroundPropertyInfo = () @@ -1143,58 +1295,70 @@ attrGet _ = undefined attrSet _ = setTextTagForeground attrConstruct _ = constructTextTagForeground + attrClear _ = clearTextTagForeground -- VVV Prop "foreground-gdk" -- Type: TInterface "Gdk" "Color" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getTextTagForegroundGdk :: (MonadIO m, TextTagK o) => o -> m Gdk.Color +getTextTagForegroundGdk :: (MonadIO m, TextTagK o) => o -> m (Maybe Gdk.Color) getTextTagForegroundGdk obj = liftIO $ getObjectPropertyBoxed obj "foreground-gdk" Gdk.Color setTextTagForegroundGdk :: (MonadIO m, TextTagK o) => o -> Gdk.Color -> m () -setTextTagForegroundGdk obj val = liftIO $ setObjectPropertyBoxed obj "foreground-gdk" val +setTextTagForegroundGdk obj val = liftIO $ setObjectPropertyBoxed obj "foreground-gdk" (Just val) constructTextTagForegroundGdk :: Gdk.Color -> IO ([Char], GValue) -constructTextTagForegroundGdk val = constructObjectPropertyBoxed "foreground-gdk" val +constructTextTagForegroundGdk val = constructObjectPropertyBoxed "foreground-gdk" (Just val) +clearTextTagForegroundGdk :: (MonadIO m, TextTagK o) => o -> m () +clearTextTagForegroundGdk obj = liftIO $ setObjectPropertyBoxed obj "foreground-gdk" (Nothing :: Maybe Gdk.Color) + data TextTagForegroundGdkPropertyInfo instance AttrInfo TextTagForegroundGdkPropertyInfo where - type AttrAllowedOps TextTagForegroundGdkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps TextTagForegroundGdkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint TextTagForegroundGdkPropertyInfo = (~) Gdk.Color type AttrBaseTypeConstraint TextTagForegroundGdkPropertyInfo = TextTagK - type AttrGetType TextTagForegroundGdkPropertyInfo = Gdk.Color + type AttrGetType TextTagForegroundGdkPropertyInfo = (Maybe Gdk.Color) type AttrLabel TextTagForegroundGdkPropertyInfo = "foreground-gdk" attrGet _ = getTextTagForegroundGdk attrSet _ = setTextTagForegroundGdk attrConstruct _ = constructTextTagForegroundGdk + attrClear _ = clearTextTagForegroundGdk -- VVV Prop "foreground-rgba" -- Type: TInterface "Gdk" "RGBA" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getTextTagForegroundRgba :: (MonadIO m, TextTagK o) => o -> m Gdk.RGBA +getTextTagForegroundRgba :: (MonadIO m, TextTagK o) => o -> m (Maybe Gdk.RGBA) getTextTagForegroundRgba obj = liftIO $ getObjectPropertyBoxed obj "foreground-rgba" Gdk.RGBA setTextTagForegroundRgba :: (MonadIO m, TextTagK o) => o -> Gdk.RGBA -> m () -setTextTagForegroundRgba obj val = liftIO $ setObjectPropertyBoxed obj "foreground-rgba" val +setTextTagForegroundRgba obj val = liftIO $ setObjectPropertyBoxed obj "foreground-rgba" (Just val) constructTextTagForegroundRgba :: Gdk.RGBA -> IO ([Char], GValue) -constructTextTagForegroundRgba val = constructObjectPropertyBoxed "foreground-rgba" val +constructTextTagForegroundRgba val = constructObjectPropertyBoxed "foreground-rgba" (Just val) +clearTextTagForegroundRgba :: (MonadIO m, TextTagK o) => o -> m () +clearTextTagForegroundRgba obj = liftIO $ setObjectPropertyBoxed obj "foreground-rgba" (Nothing :: Maybe Gdk.RGBA) + data TextTagForegroundRgbaPropertyInfo instance AttrInfo TextTagForegroundRgbaPropertyInfo where - type AttrAllowedOps TextTagForegroundRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps TextTagForegroundRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint TextTagForegroundRgbaPropertyInfo = (~) Gdk.RGBA type AttrBaseTypeConstraint TextTagForegroundRgbaPropertyInfo = TextTagK - type AttrGetType TextTagForegroundRgbaPropertyInfo = Gdk.RGBA + type AttrGetType TextTagForegroundRgbaPropertyInfo = (Maybe Gdk.RGBA) type AttrLabel TextTagForegroundRgbaPropertyInfo = "foreground-rgba" attrGet _ = getTextTagForegroundRgba attrSet _ = setTextTagForegroundRgba attrConstruct _ = constructTextTagForegroundRgba + attrClear _ = clearTextTagForegroundRgba -- VVV Prop "foreground-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getTextTagForegroundSet :: (MonadIO m, TextTagK o) => o -> m Bool getTextTagForegroundSet obj = liftIO $ getObjectPropertyBool obj "foreground-set" @@ -1215,19 +1379,21 @@ attrGet _ = getTextTagForegroundSet attrSet _ = setTextTagForegroundSet attrConstruct _ = constructTextTagForegroundSet + attrClear _ = undefined -- VVV Prop "indent" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getTextTagIndent :: (MonadIO m, TextTagK o) => o -> m Int32 -getTextTagIndent obj = liftIO $ getObjectPropertyCInt obj "indent" +getTextTagIndent obj = liftIO $ getObjectPropertyInt32 obj "indent" setTextTagIndent :: (MonadIO m, TextTagK o) => o -> Int32 -> m () -setTextTagIndent obj val = liftIO $ setObjectPropertyCInt obj "indent" val +setTextTagIndent obj val = liftIO $ setObjectPropertyInt32 obj "indent" val constructTextTagIndent :: Int32 -> IO ([Char], GValue) -constructTextTagIndent val = constructObjectPropertyCInt "indent" val +constructTextTagIndent val = constructObjectPropertyInt32 "indent" val data TextTagIndentPropertyInfo instance AttrInfo TextTagIndentPropertyInfo where @@ -1239,10 +1405,12 @@ attrGet _ = getTextTagIndent attrSet _ = setTextTagIndent attrConstruct _ = constructTextTagIndent + attrClear _ = undefined -- VVV Prop "indent-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getTextTagIndentSet :: (MonadIO m, TextTagK o) => o -> m Bool getTextTagIndentSet obj = liftIO $ getObjectPropertyBool obj "indent-set" @@ -1263,10 +1431,12 @@ attrGet _ = getTextTagIndentSet attrSet _ = setTextTagIndentSet attrConstruct _ = constructTextTagIndentSet + attrClear _ = undefined -- VVV Prop "invisible" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getTextTagInvisible :: (MonadIO m, TextTagK o) => o -> m Bool getTextTagInvisible obj = liftIO $ getObjectPropertyBool obj "invisible" @@ -1287,10 +1457,12 @@ attrGet _ = getTextTagInvisible attrSet _ = setTextTagInvisible attrConstruct _ = constructTextTagInvisible + attrClear _ = undefined -- VVV Prop "invisible-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getTextTagInvisibleSet :: (MonadIO m, TextTagK o) => o -> m Bool getTextTagInvisibleSet obj = liftIO $ getObjectPropertyBool obj "invisible-set" @@ -1311,10 +1483,12 @@ attrGet _ = getTextTagInvisibleSet attrSet _ = setTextTagInvisibleSet attrConstruct _ = constructTextTagInvisibleSet + attrClear _ = undefined -- VVV Prop "justification" -- Type: TInterface "Gtk" "Justification" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getTextTagJustification :: (MonadIO m, TextTagK o) => o -> m Justification getTextTagJustification obj = liftIO $ getObjectPropertyEnum obj "justification" @@ -1335,10 +1509,12 @@ attrGet _ = getTextTagJustification attrSet _ = setTextTagJustification attrConstruct _ = constructTextTagJustification + attrClear _ = undefined -- VVV Prop "justification-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getTextTagJustificationSet :: (MonadIO m, TextTagK o) => o -> m Bool getTextTagJustificationSet obj = liftIO $ getObjectPropertyBool obj "justification-set" @@ -1359,34 +1535,41 @@ attrGet _ = getTextTagJustificationSet attrSet _ = setTextTagJustificationSet attrConstruct _ = constructTextTagJustificationSet + attrClear _ = undefined -- VVV Prop "language" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getTextTagLanguage :: (MonadIO m, TextTagK o) => o -> m T.Text +getTextTagLanguage :: (MonadIO m, TextTagK o) => o -> m (Maybe T.Text) getTextTagLanguage obj = liftIO $ getObjectPropertyString obj "language" setTextTagLanguage :: (MonadIO m, TextTagK o) => o -> T.Text -> m () -setTextTagLanguage obj val = liftIO $ setObjectPropertyString obj "language" val +setTextTagLanguage obj val = liftIO $ setObjectPropertyString obj "language" (Just val) constructTextTagLanguage :: T.Text -> IO ([Char], GValue) -constructTextTagLanguage val = constructObjectPropertyString "language" val +constructTextTagLanguage val = constructObjectPropertyString "language" (Just val) +clearTextTagLanguage :: (MonadIO m, TextTagK o) => o -> m () +clearTextTagLanguage obj = liftIO $ setObjectPropertyString obj "language" (Nothing :: Maybe T.Text) + data TextTagLanguagePropertyInfo instance AttrInfo TextTagLanguagePropertyInfo where - type AttrAllowedOps TextTagLanguagePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps TextTagLanguagePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint TextTagLanguagePropertyInfo = (~) T.Text type AttrBaseTypeConstraint TextTagLanguagePropertyInfo = TextTagK - type AttrGetType TextTagLanguagePropertyInfo = T.Text + type AttrGetType TextTagLanguagePropertyInfo = (Maybe T.Text) type AttrLabel TextTagLanguagePropertyInfo = "language" attrGet _ = getTextTagLanguage attrSet _ = setTextTagLanguage attrConstruct _ = constructTextTagLanguage + attrClear _ = clearTextTagLanguage -- VVV Prop "language-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getTextTagLanguageSet :: (MonadIO m, TextTagK o) => o -> m Bool getTextTagLanguageSet obj = liftIO $ getObjectPropertyBool obj "language-set" @@ -1407,19 +1590,21 @@ attrGet _ = getTextTagLanguageSet attrSet _ = setTextTagLanguageSet attrConstruct _ = constructTextTagLanguageSet + attrClear _ = undefined -- VVV Prop "left-margin" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getTextTagLeftMargin :: (MonadIO m, TextTagK o) => o -> m Int32 -getTextTagLeftMargin obj = liftIO $ getObjectPropertyCInt obj "left-margin" +getTextTagLeftMargin obj = liftIO $ getObjectPropertyInt32 obj "left-margin" setTextTagLeftMargin :: (MonadIO m, TextTagK o) => o -> Int32 -> m () -setTextTagLeftMargin obj val = liftIO $ setObjectPropertyCInt obj "left-margin" val +setTextTagLeftMargin obj val = liftIO $ setObjectPropertyInt32 obj "left-margin" val constructTextTagLeftMargin :: Int32 -> IO ([Char], GValue) -constructTextTagLeftMargin val = constructObjectPropertyCInt "left-margin" val +constructTextTagLeftMargin val = constructObjectPropertyInt32 "left-margin" val data TextTagLeftMarginPropertyInfo instance AttrInfo TextTagLeftMarginPropertyInfo where @@ -1431,10 +1616,12 @@ attrGet _ = getTextTagLeftMargin attrSet _ = setTextTagLeftMargin attrConstruct _ = constructTextTagLeftMargin + attrClear _ = undefined -- VVV Prop "left-margin-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getTextTagLeftMarginSet :: (MonadIO m, TextTagK o) => o -> m Bool getTextTagLeftMarginSet obj = liftIO $ getObjectPropertyBool obj "left-margin-set" @@ -1455,19 +1642,21 @@ attrGet _ = getTextTagLeftMarginSet attrSet _ = setTextTagLeftMarginSet attrConstruct _ = constructTextTagLeftMarginSet + attrClear _ = undefined -- VVV Prop "letter-spacing" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getTextTagLetterSpacing :: (MonadIO m, TextTagK o) => o -> m Int32 -getTextTagLetterSpacing obj = liftIO $ getObjectPropertyCInt obj "letter-spacing" +getTextTagLetterSpacing obj = liftIO $ getObjectPropertyInt32 obj "letter-spacing" setTextTagLetterSpacing :: (MonadIO m, TextTagK o) => o -> Int32 -> m () -setTextTagLetterSpacing obj val = liftIO $ setObjectPropertyCInt obj "letter-spacing" val +setTextTagLetterSpacing obj val = liftIO $ setObjectPropertyInt32 obj "letter-spacing" val constructTextTagLetterSpacing :: Int32 -> IO ([Char], GValue) -constructTextTagLetterSpacing val = constructObjectPropertyCInt "letter-spacing" val +constructTextTagLetterSpacing val = constructObjectPropertyInt32 "letter-spacing" val data TextTagLetterSpacingPropertyInfo instance AttrInfo TextTagLetterSpacingPropertyInfo where @@ -1479,10 +1668,12 @@ attrGet _ = getTextTagLetterSpacing attrSet _ = setTextTagLetterSpacing attrConstruct _ = constructTextTagLetterSpacing + attrClear _ = undefined -- VVV Prop "letter-spacing-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getTextTagLetterSpacingSet :: (MonadIO m, TextTagK o) => o -> m Bool getTextTagLetterSpacingSet obj = liftIO $ getObjectPropertyBool obj "letter-spacing-set" @@ -1503,41 +1694,48 @@ attrGet _ = getTextTagLetterSpacingSet attrSet _ = setTextTagLetterSpacingSet attrConstruct _ = constructTextTagLetterSpacingSet + attrClear _ = undefined -- VVV Prop "name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + -- Nullable: (Nothing,Nothing) -getTextTagName :: (MonadIO m, TextTagK o) => o -> m T.Text +getTextTagName :: (MonadIO m, TextTagK o) => o -> m (Maybe T.Text) getTextTagName obj = liftIO $ getObjectPropertyString obj "name" constructTextTagName :: T.Text -> IO ([Char], GValue) -constructTextTagName val = constructObjectPropertyString "name" val +constructTextTagName val = constructObjectPropertyString "name" (Just val) data TextTagNamePropertyInfo instance AttrInfo TextTagNamePropertyInfo where - type AttrAllowedOps TextTagNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrAllowedOps TextTagNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint TextTagNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint TextTagNamePropertyInfo = TextTagK - type AttrGetType TextTagNamePropertyInfo = T.Text + type AttrGetType TextTagNamePropertyInfo = (Maybe T.Text) type AttrLabel TextTagNamePropertyInfo = "name" attrGet _ = getTextTagName attrSet _ = undefined attrConstruct _ = constructTextTagName + attrClear _ = undefined -- VVV Prop "paragraph-background" -- Type: TBasicType TUTF8 -- Flags: [PropertyWritable] + -- Nullable: (Nothing,Nothing) setTextTagParagraphBackground :: (MonadIO m, TextTagK o) => o -> T.Text -> m () -setTextTagParagraphBackground obj val = liftIO $ setObjectPropertyString obj "paragraph-background" val +setTextTagParagraphBackground obj val = liftIO $ setObjectPropertyString obj "paragraph-background" (Just val) constructTextTagParagraphBackground :: T.Text -> IO ([Char], GValue) -constructTextTagParagraphBackground val = constructObjectPropertyString "paragraph-background" val +constructTextTagParagraphBackground val = constructObjectPropertyString "paragraph-background" (Just val) +clearTextTagParagraphBackground :: (MonadIO m, TextTagK o) => o -> m () +clearTextTagParagraphBackground obj = liftIO $ setObjectPropertyString obj "paragraph-background" (Nothing :: Maybe T.Text) + data TextTagParagraphBackgroundPropertyInfo instance AttrInfo TextTagParagraphBackgroundPropertyInfo where - type AttrAllowedOps TextTagParagraphBackgroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct] + type AttrAllowedOps TextTagParagraphBackgroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear] type AttrSetTypeConstraint TextTagParagraphBackgroundPropertyInfo = (~) T.Text type AttrBaseTypeConstraint TextTagParagraphBackgroundPropertyInfo = TextTagK type AttrGetType TextTagParagraphBackgroundPropertyInfo = () @@ -1545,58 +1743,70 @@ attrGet _ = undefined attrSet _ = setTextTagParagraphBackground attrConstruct _ = constructTextTagParagraphBackground + attrClear _ = clearTextTagParagraphBackground -- VVV Prop "paragraph-background-gdk" -- Type: TInterface "Gdk" "Color" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getTextTagParagraphBackgroundGdk :: (MonadIO m, TextTagK o) => o -> m Gdk.Color +getTextTagParagraphBackgroundGdk :: (MonadIO m, TextTagK o) => o -> m (Maybe Gdk.Color) getTextTagParagraphBackgroundGdk obj = liftIO $ getObjectPropertyBoxed obj "paragraph-background-gdk" Gdk.Color setTextTagParagraphBackgroundGdk :: (MonadIO m, TextTagK o) => o -> Gdk.Color -> m () -setTextTagParagraphBackgroundGdk obj val = liftIO $ setObjectPropertyBoxed obj "paragraph-background-gdk" val +setTextTagParagraphBackgroundGdk obj val = liftIO $ setObjectPropertyBoxed obj "paragraph-background-gdk" (Just val) constructTextTagParagraphBackgroundGdk :: Gdk.Color -> IO ([Char], GValue) -constructTextTagParagraphBackgroundGdk val = constructObjectPropertyBoxed "paragraph-background-gdk" val +constructTextTagParagraphBackgroundGdk val = constructObjectPropertyBoxed "paragraph-background-gdk" (Just val) +clearTextTagParagraphBackgroundGdk :: (MonadIO m, TextTagK o) => o -> m () +clearTextTagParagraphBackgroundGdk obj = liftIO $ setObjectPropertyBoxed obj "paragraph-background-gdk" (Nothing :: Maybe Gdk.Color) + data TextTagParagraphBackgroundGdkPropertyInfo instance AttrInfo TextTagParagraphBackgroundGdkPropertyInfo where - type AttrAllowedOps TextTagParagraphBackgroundGdkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps TextTagParagraphBackgroundGdkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint TextTagParagraphBackgroundGdkPropertyInfo = (~) Gdk.Color type AttrBaseTypeConstraint TextTagParagraphBackgroundGdkPropertyInfo = TextTagK - type AttrGetType TextTagParagraphBackgroundGdkPropertyInfo = Gdk.Color + type AttrGetType TextTagParagraphBackgroundGdkPropertyInfo = (Maybe Gdk.Color) type AttrLabel TextTagParagraphBackgroundGdkPropertyInfo = "paragraph-background-gdk" attrGet _ = getTextTagParagraphBackgroundGdk attrSet _ = setTextTagParagraphBackgroundGdk attrConstruct _ = constructTextTagParagraphBackgroundGdk + attrClear _ = clearTextTagParagraphBackgroundGdk -- VVV Prop "paragraph-background-rgba" -- Type: TInterface "Gdk" "RGBA" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getTextTagParagraphBackgroundRgba :: (MonadIO m, TextTagK o) => o -> m Gdk.RGBA +getTextTagParagraphBackgroundRgba :: (MonadIO m, TextTagK o) => o -> m (Maybe Gdk.RGBA) getTextTagParagraphBackgroundRgba obj = liftIO $ getObjectPropertyBoxed obj "paragraph-background-rgba" Gdk.RGBA setTextTagParagraphBackgroundRgba :: (MonadIO m, TextTagK o) => o -> Gdk.RGBA -> m () -setTextTagParagraphBackgroundRgba obj val = liftIO $ setObjectPropertyBoxed obj "paragraph-background-rgba" val +setTextTagParagraphBackgroundRgba obj val = liftIO $ setObjectPropertyBoxed obj "paragraph-background-rgba" (Just val) constructTextTagParagraphBackgroundRgba :: Gdk.RGBA -> IO ([Char], GValue) -constructTextTagParagraphBackgroundRgba val = constructObjectPropertyBoxed "paragraph-background-rgba" val +constructTextTagParagraphBackgroundRgba val = constructObjectPropertyBoxed "paragraph-background-rgba" (Just val) +clearTextTagParagraphBackgroundRgba :: (MonadIO m, TextTagK o) => o -> m () +clearTextTagParagraphBackgroundRgba obj = liftIO $ setObjectPropertyBoxed obj "paragraph-background-rgba" (Nothing :: Maybe Gdk.RGBA) + data TextTagParagraphBackgroundRgbaPropertyInfo instance AttrInfo TextTagParagraphBackgroundRgbaPropertyInfo where - type AttrAllowedOps TextTagParagraphBackgroundRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps TextTagParagraphBackgroundRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint TextTagParagraphBackgroundRgbaPropertyInfo = (~) Gdk.RGBA type AttrBaseTypeConstraint TextTagParagraphBackgroundRgbaPropertyInfo = TextTagK - type AttrGetType TextTagParagraphBackgroundRgbaPropertyInfo = Gdk.RGBA + type AttrGetType TextTagParagraphBackgroundRgbaPropertyInfo = (Maybe Gdk.RGBA) type AttrLabel TextTagParagraphBackgroundRgbaPropertyInfo = "paragraph-background-rgba" attrGet _ = getTextTagParagraphBackgroundRgba attrSet _ = setTextTagParagraphBackgroundRgba attrConstruct _ = constructTextTagParagraphBackgroundRgba + attrClear _ = clearTextTagParagraphBackgroundRgba -- VVV Prop "paragraph-background-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getTextTagParagraphBackgroundSet :: (MonadIO m, TextTagK o) => o -> m Bool getTextTagParagraphBackgroundSet obj = liftIO $ getObjectPropertyBool obj "paragraph-background-set" @@ -1617,19 +1827,21 @@ attrGet _ = getTextTagParagraphBackgroundSet attrSet _ = setTextTagParagraphBackgroundSet attrConstruct _ = constructTextTagParagraphBackgroundSet + attrClear _ = undefined -- VVV Prop "pixels-above-lines" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getTextTagPixelsAboveLines :: (MonadIO m, TextTagK o) => o -> m Int32 -getTextTagPixelsAboveLines obj = liftIO $ getObjectPropertyCInt obj "pixels-above-lines" +getTextTagPixelsAboveLines obj = liftIO $ getObjectPropertyInt32 obj "pixels-above-lines" setTextTagPixelsAboveLines :: (MonadIO m, TextTagK o) => o -> Int32 -> m () -setTextTagPixelsAboveLines obj val = liftIO $ setObjectPropertyCInt obj "pixels-above-lines" val +setTextTagPixelsAboveLines obj val = liftIO $ setObjectPropertyInt32 obj "pixels-above-lines" val constructTextTagPixelsAboveLines :: Int32 -> IO ([Char], GValue) -constructTextTagPixelsAboveLines val = constructObjectPropertyCInt "pixels-above-lines" val +constructTextTagPixelsAboveLines val = constructObjectPropertyInt32 "pixels-above-lines" val data TextTagPixelsAboveLinesPropertyInfo instance AttrInfo TextTagPixelsAboveLinesPropertyInfo where @@ -1641,10 +1853,12 @@ attrGet _ = getTextTagPixelsAboveLines attrSet _ = setTextTagPixelsAboveLines attrConstruct _ = constructTextTagPixelsAboveLines + attrClear _ = undefined -- VVV Prop "pixels-above-lines-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getTextTagPixelsAboveLinesSet :: (MonadIO m, TextTagK o) => o -> m Bool getTextTagPixelsAboveLinesSet obj = liftIO $ getObjectPropertyBool obj "pixels-above-lines-set" @@ -1665,19 +1879,21 @@ attrGet _ = getTextTagPixelsAboveLinesSet attrSet _ = setTextTagPixelsAboveLinesSet attrConstruct _ = constructTextTagPixelsAboveLinesSet + attrClear _ = undefined -- VVV Prop "pixels-below-lines" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getTextTagPixelsBelowLines :: (MonadIO m, TextTagK o) => o -> m Int32 -getTextTagPixelsBelowLines obj = liftIO $ getObjectPropertyCInt obj "pixels-below-lines" +getTextTagPixelsBelowLines obj = liftIO $ getObjectPropertyInt32 obj "pixels-below-lines" setTextTagPixelsBelowLines :: (MonadIO m, TextTagK o) => o -> Int32 -> m () -setTextTagPixelsBelowLines obj val = liftIO $ setObjectPropertyCInt obj "pixels-below-lines" val +setTextTagPixelsBelowLines obj val = liftIO $ setObjectPropertyInt32 obj "pixels-below-lines" val constructTextTagPixelsBelowLines :: Int32 -> IO ([Char], GValue) -constructTextTagPixelsBelowLines val = constructObjectPropertyCInt "pixels-below-lines" val +constructTextTagPixelsBelowLines val = constructObjectPropertyInt32 "pixels-below-lines" val data TextTagPixelsBelowLinesPropertyInfo instance AttrInfo TextTagPixelsBelowLinesPropertyInfo where @@ -1689,10 +1905,12 @@ attrGet _ = getTextTagPixelsBelowLines attrSet _ = setTextTagPixelsBelowLines attrConstruct _ = constructTextTagPixelsBelowLines + attrClear _ = undefined -- VVV Prop "pixels-below-lines-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getTextTagPixelsBelowLinesSet :: (MonadIO m, TextTagK o) => o -> m Bool getTextTagPixelsBelowLinesSet obj = liftIO $ getObjectPropertyBool obj "pixels-below-lines-set" @@ -1713,19 +1931,21 @@ attrGet _ = getTextTagPixelsBelowLinesSet attrSet _ = setTextTagPixelsBelowLinesSet attrConstruct _ = constructTextTagPixelsBelowLinesSet + attrClear _ = undefined -- VVV Prop "pixels-inside-wrap" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getTextTagPixelsInsideWrap :: (MonadIO m, TextTagK o) => o -> m Int32 -getTextTagPixelsInsideWrap obj = liftIO $ getObjectPropertyCInt obj "pixels-inside-wrap" +getTextTagPixelsInsideWrap obj = liftIO $ getObjectPropertyInt32 obj "pixels-inside-wrap" setTextTagPixelsInsideWrap :: (MonadIO m, TextTagK o) => o -> Int32 -> m () -setTextTagPixelsInsideWrap obj val = liftIO $ setObjectPropertyCInt obj "pixels-inside-wrap" val +setTextTagPixelsInsideWrap obj val = liftIO $ setObjectPropertyInt32 obj "pixels-inside-wrap" val constructTextTagPixelsInsideWrap :: Int32 -> IO ([Char], GValue) -constructTextTagPixelsInsideWrap val = constructObjectPropertyCInt "pixels-inside-wrap" val +constructTextTagPixelsInsideWrap val = constructObjectPropertyInt32 "pixels-inside-wrap" val data TextTagPixelsInsideWrapPropertyInfo instance AttrInfo TextTagPixelsInsideWrapPropertyInfo where @@ -1737,10 +1957,12 @@ attrGet _ = getTextTagPixelsInsideWrap attrSet _ = setTextTagPixelsInsideWrap attrConstruct _ = constructTextTagPixelsInsideWrap + attrClear _ = undefined -- VVV Prop "pixels-inside-wrap-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getTextTagPixelsInsideWrapSet :: (MonadIO m, TextTagK o) => o -> m Bool getTextTagPixelsInsideWrapSet obj = liftIO $ getObjectPropertyBool obj "pixels-inside-wrap-set" @@ -1761,19 +1983,21 @@ attrGet _ = getTextTagPixelsInsideWrapSet attrSet _ = setTextTagPixelsInsideWrapSet attrConstruct _ = constructTextTagPixelsInsideWrapSet + attrClear _ = undefined -- VVV Prop "right-margin" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getTextTagRightMargin :: (MonadIO m, TextTagK o) => o -> m Int32 -getTextTagRightMargin obj = liftIO $ getObjectPropertyCInt obj "right-margin" +getTextTagRightMargin obj = liftIO $ getObjectPropertyInt32 obj "right-margin" setTextTagRightMargin :: (MonadIO m, TextTagK o) => o -> Int32 -> m () -setTextTagRightMargin obj val = liftIO $ setObjectPropertyCInt obj "right-margin" val +setTextTagRightMargin obj val = liftIO $ setObjectPropertyInt32 obj "right-margin" val constructTextTagRightMargin :: Int32 -> IO ([Char], GValue) -constructTextTagRightMargin val = constructObjectPropertyCInt "right-margin" val +constructTextTagRightMargin val = constructObjectPropertyInt32 "right-margin" val data TextTagRightMarginPropertyInfo instance AttrInfo TextTagRightMarginPropertyInfo where @@ -1785,10 +2009,12 @@ attrGet _ = getTextTagRightMargin attrSet _ = setTextTagRightMargin attrConstruct _ = constructTextTagRightMargin + attrClear _ = undefined -- VVV Prop "right-margin-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getTextTagRightMarginSet :: (MonadIO m, TextTagK o) => o -> m Bool getTextTagRightMarginSet obj = liftIO $ getObjectPropertyBool obj "right-margin-set" @@ -1809,19 +2035,21 @@ attrGet _ = getTextTagRightMarginSet attrSet _ = setTextTagRightMarginSet attrConstruct _ = constructTextTagRightMarginSet + attrClear _ = undefined -- VVV Prop "rise" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getTextTagRise :: (MonadIO m, TextTagK o) => o -> m Int32 -getTextTagRise obj = liftIO $ getObjectPropertyCInt obj "rise" +getTextTagRise obj = liftIO $ getObjectPropertyInt32 obj "rise" setTextTagRise :: (MonadIO m, TextTagK o) => o -> Int32 -> m () -setTextTagRise obj val = liftIO $ setObjectPropertyCInt obj "rise" val +setTextTagRise obj val = liftIO $ setObjectPropertyInt32 obj "rise" val constructTextTagRise :: Int32 -> IO ([Char], GValue) -constructTextTagRise val = constructObjectPropertyCInt "rise" val +constructTextTagRise val = constructObjectPropertyInt32 "rise" val data TextTagRisePropertyInfo instance AttrInfo TextTagRisePropertyInfo where @@ -1833,10 +2061,12 @@ attrGet _ = getTextTagRise attrSet _ = setTextTagRise attrConstruct _ = constructTextTagRise + attrClear _ = undefined -- VVV Prop "rise-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getTextTagRiseSet :: (MonadIO m, TextTagK o) => o -> m Bool getTextTagRiseSet obj = liftIO $ getObjectPropertyBool obj "rise-set" @@ -1857,10 +2087,12 @@ attrGet _ = getTextTagRiseSet attrSet _ = setTextTagRiseSet attrConstruct _ = constructTextTagRiseSet + attrClear _ = undefined -- VVV Prop "scale" -- Type: TBasicType TDouble -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getTextTagScale :: (MonadIO m, TextTagK o) => o -> m Double getTextTagScale obj = liftIO $ getObjectPropertyDouble obj "scale" @@ -1881,10 +2113,12 @@ attrGet _ = getTextTagScale attrSet _ = setTextTagScale attrConstruct _ = constructTextTagScale + attrClear _ = undefined -- VVV Prop "scale-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getTextTagScaleSet :: (MonadIO m, TextTagK o) => o -> m Bool getTextTagScaleSet obj = liftIO $ getObjectPropertyBool obj "scale-set" @@ -1905,19 +2139,21 @@ attrGet _ = getTextTagScaleSet attrSet _ = setTextTagScaleSet attrConstruct _ = constructTextTagScaleSet + attrClear _ = undefined -- VVV Prop "size" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getTextTagSize :: (MonadIO m, TextTagK o) => o -> m Int32 -getTextTagSize obj = liftIO $ getObjectPropertyCInt obj "size" +getTextTagSize obj = liftIO $ getObjectPropertyInt32 obj "size" setTextTagSize :: (MonadIO m, TextTagK o) => o -> Int32 -> m () -setTextTagSize obj val = liftIO $ setObjectPropertyCInt obj "size" val +setTextTagSize obj val = liftIO $ setObjectPropertyInt32 obj "size" val constructTextTagSize :: Int32 -> IO ([Char], GValue) -constructTextTagSize val = constructObjectPropertyCInt "size" val +constructTextTagSize val = constructObjectPropertyInt32 "size" val data TextTagSizePropertyInfo instance AttrInfo TextTagSizePropertyInfo where @@ -1929,10 +2165,12 @@ attrGet _ = getTextTagSize attrSet _ = setTextTagSize attrConstruct _ = constructTextTagSize + attrClear _ = undefined -- VVV Prop "size-points" -- Type: TBasicType TDouble -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getTextTagSizePoints :: (MonadIO m, TextTagK o) => o -> m Double getTextTagSizePoints obj = liftIO $ getObjectPropertyDouble obj "size-points" @@ -1953,10 +2191,12 @@ attrGet _ = getTextTagSizePoints attrSet _ = setTextTagSizePoints attrConstruct _ = constructTextTagSizePoints + attrClear _ = undefined -- VVV Prop "size-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getTextTagSizeSet :: (MonadIO m, TextTagK o) => o -> m Bool getTextTagSizeSet obj = liftIO $ getObjectPropertyBool obj "size-set" @@ -1977,10 +2217,12 @@ attrGet _ = getTextTagSizeSet attrSet _ = setTextTagSizeSet attrConstruct _ = constructTextTagSizeSet + attrClear _ = undefined -- VVV Prop "stretch" -- Type: TInterface "Pango" "Stretch" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getTextTagStretch :: (MonadIO m, TextTagK o) => o -> m Pango.Stretch getTextTagStretch obj = liftIO $ getObjectPropertyEnum obj "stretch" @@ -2001,10 +2243,12 @@ attrGet _ = getTextTagStretch attrSet _ = setTextTagStretch attrConstruct _ = constructTextTagStretch + attrClear _ = undefined -- VVV Prop "stretch-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getTextTagStretchSet :: (MonadIO m, TextTagK o) => o -> m Bool getTextTagStretchSet obj = liftIO $ getObjectPropertyBool obj "stretch-set" @@ -2025,10 +2269,12 @@ attrGet _ = getTextTagStretchSet attrSet _ = setTextTagStretchSet attrConstruct _ = constructTextTagStretchSet + attrClear _ = undefined -- VVV Prop "strikethrough" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getTextTagStrikethrough :: (MonadIO m, TextTagK o) => o -> m Bool getTextTagStrikethrough obj = liftIO $ getObjectPropertyBool obj "strikethrough" @@ -2049,34 +2295,41 @@ attrGet _ = getTextTagStrikethrough attrSet _ = setTextTagStrikethrough attrConstruct _ = constructTextTagStrikethrough + attrClear _ = undefined -- VVV Prop "strikethrough-rgba" -- Type: TInterface "Gdk" "RGBA" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getTextTagStrikethroughRgba :: (MonadIO m, TextTagK o) => o -> m Gdk.RGBA +getTextTagStrikethroughRgba :: (MonadIO m, TextTagK o) => o -> m (Maybe Gdk.RGBA) getTextTagStrikethroughRgba obj = liftIO $ getObjectPropertyBoxed obj "strikethrough-rgba" Gdk.RGBA setTextTagStrikethroughRgba :: (MonadIO m, TextTagK o) => o -> Gdk.RGBA -> m () -setTextTagStrikethroughRgba obj val = liftIO $ setObjectPropertyBoxed obj "strikethrough-rgba" val +setTextTagStrikethroughRgba obj val = liftIO $ setObjectPropertyBoxed obj "strikethrough-rgba" (Just val) constructTextTagStrikethroughRgba :: Gdk.RGBA -> IO ([Char], GValue) -constructTextTagStrikethroughRgba val = constructObjectPropertyBoxed "strikethrough-rgba" val +constructTextTagStrikethroughRgba val = constructObjectPropertyBoxed "strikethrough-rgba" (Just val) +clearTextTagStrikethroughRgba :: (MonadIO m, TextTagK o) => o -> m () +clearTextTagStrikethroughRgba obj = liftIO $ setObjectPropertyBoxed obj "strikethrough-rgba" (Nothing :: Maybe Gdk.RGBA) + data TextTagStrikethroughRgbaPropertyInfo instance AttrInfo TextTagStrikethroughRgbaPropertyInfo where - type AttrAllowedOps TextTagStrikethroughRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps TextTagStrikethroughRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint TextTagStrikethroughRgbaPropertyInfo = (~) Gdk.RGBA type AttrBaseTypeConstraint TextTagStrikethroughRgbaPropertyInfo = TextTagK - type AttrGetType TextTagStrikethroughRgbaPropertyInfo = Gdk.RGBA + type AttrGetType TextTagStrikethroughRgbaPropertyInfo = (Maybe Gdk.RGBA) type AttrLabel TextTagStrikethroughRgbaPropertyInfo = "strikethrough-rgba" attrGet _ = getTextTagStrikethroughRgba attrSet _ = setTextTagStrikethroughRgba attrConstruct _ = constructTextTagStrikethroughRgba + attrClear _ = clearTextTagStrikethroughRgba -- VVV Prop "strikethrough-rgba-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getTextTagStrikethroughRgbaSet :: (MonadIO m, TextTagK o) => o -> m Bool getTextTagStrikethroughRgbaSet obj = liftIO $ getObjectPropertyBool obj "strikethrough-rgba-set" @@ -2097,10 +2350,12 @@ attrGet _ = getTextTagStrikethroughRgbaSet attrSet _ = setTextTagStrikethroughRgbaSet attrConstruct _ = constructTextTagStrikethroughRgbaSet + attrClear _ = undefined -- VVV Prop "strikethrough-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getTextTagStrikethroughSet :: (MonadIO m, TextTagK o) => o -> m Bool getTextTagStrikethroughSet obj = liftIO $ getObjectPropertyBool obj "strikethrough-set" @@ -2121,10 +2376,12 @@ attrGet _ = getTextTagStrikethroughSet attrSet _ = setTextTagStrikethroughSet attrConstruct _ = constructTextTagStrikethroughSet + attrClear _ = undefined -- VVV Prop "style" -- Type: TInterface "Pango" "Style" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getTextTagStyle :: (MonadIO m, TextTagK o) => o -> m Pango.Style getTextTagStyle obj = liftIO $ getObjectPropertyEnum obj "style" @@ -2145,10 +2402,12 @@ attrGet _ = getTextTagStyle attrSet _ = setTextTagStyle attrConstruct _ = constructTextTagStyle + attrClear _ = undefined -- VVV Prop "style-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getTextTagStyleSet :: (MonadIO m, TextTagK o) => o -> m Bool getTextTagStyleSet obj = liftIO $ getObjectPropertyBool obj "style-set" @@ -2169,34 +2428,41 @@ attrGet _ = getTextTagStyleSet attrSet _ = setTextTagStyleSet attrConstruct _ = constructTextTagStyleSet + attrClear _ = undefined -- VVV Prop "tabs" -- Type: TInterface "Pango" "TabArray" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getTextTagTabs :: (MonadIO m, TextTagK o) => o -> m Pango.TabArray +getTextTagTabs :: (MonadIO m, TextTagK o) => o -> m (Maybe Pango.TabArray) getTextTagTabs obj = liftIO $ getObjectPropertyBoxed obj "tabs" Pango.TabArray setTextTagTabs :: (MonadIO m, TextTagK o) => o -> Pango.TabArray -> m () -setTextTagTabs obj val = liftIO $ setObjectPropertyBoxed obj "tabs" val +setTextTagTabs obj val = liftIO $ setObjectPropertyBoxed obj "tabs" (Just val) constructTextTagTabs :: Pango.TabArray -> IO ([Char], GValue) -constructTextTagTabs val = constructObjectPropertyBoxed "tabs" val +constructTextTagTabs val = constructObjectPropertyBoxed "tabs" (Just val) +clearTextTagTabs :: (MonadIO m, TextTagK o) => o -> m () +clearTextTagTabs obj = liftIO $ setObjectPropertyBoxed obj "tabs" (Nothing :: Maybe Pango.TabArray) + data TextTagTabsPropertyInfo instance AttrInfo TextTagTabsPropertyInfo where - type AttrAllowedOps TextTagTabsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps TextTagTabsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint TextTagTabsPropertyInfo = (~) Pango.TabArray type AttrBaseTypeConstraint TextTagTabsPropertyInfo = TextTagK - type AttrGetType TextTagTabsPropertyInfo = Pango.TabArray + type AttrGetType TextTagTabsPropertyInfo = (Maybe Pango.TabArray) type AttrLabel TextTagTabsPropertyInfo = "tabs" attrGet _ = getTextTagTabs attrSet _ = setTextTagTabs attrConstruct _ = constructTextTagTabs + attrClear _ = clearTextTagTabs -- VVV Prop "tabs-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getTextTagTabsSet :: (MonadIO m, TextTagK o) => o -> m Bool getTextTagTabsSet obj = liftIO $ getObjectPropertyBool obj "tabs-set" @@ -2217,10 +2483,12 @@ attrGet _ = getTextTagTabsSet attrSet _ = setTextTagTabsSet attrConstruct _ = constructTextTagTabsSet + attrClear _ = undefined -- VVV Prop "underline" -- Type: TInterface "Pango" "Underline" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getTextTagUnderline :: (MonadIO m, TextTagK o) => o -> m Pango.Underline getTextTagUnderline obj = liftIO $ getObjectPropertyEnum obj "underline" @@ -2241,34 +2509,41 @@ attrGet _ = getTextTagUnderline attrSet _ = setTextTagUnderline attrConstruct _ = constructTextTagUnderline + attrClear _ = undefined -- VVV Prop "underline-rgba" -- Type: TInterface "Gdk" "RGBA" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getTextTagUnderlineRgba :: (MonadIO m, TextTagK o) => o -> m Gdk.RGBA +getTextTagUnderlineRgba :: (MonadIO m, TextTagK o) => o -> m (Maybe Gdk.RGBA) getTextTagUnderlineRgba obj = liftIO $ getObjectPropertyBoxed obj "underline-rgba" Gdk.RGBA setTextTagUnderlineRgba :: (MonadIO m, TextTagK o) => o -> Gdk.RGBA -> m () -setTextTagUnderlineRgba obj val = liftIO $ setObjectPropertyBoxed obj "underline-rgba" val +setTextTagUnderlineRgba obj val = liftIO $ setObjectPropertyBoxed obj "underline-rgba" (Just val) constructTextTagUnderlineRgba :: Gdk.RGBA -> IO ([Char], GValue) -constructTextTagUnderlineRgba val = constructObjectPropertyBoxed "underline-rgba" val +constructTextTagUnderlineRgba val = constructObjectPropertyBoxed "underline-rgba" (Just val) +clearTextTagUnderlineRgba :: (MonadIO m, TextTagK o) => o -> m () +clearTextTagUnderlineRgba obj = liftIO $ setObjectPropertyBoxed obj "underline-rgba" (Nothing :: Maybe Gdk.RGBA) + data TextTagUnderlineRgbaPropertyInfo instance AttrInfo TextTagUnderlineRgbaPropertyInfo where - type AttrAllowedOps TextTagUnderlineRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps TextTagUnderlineRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint TextTagUnderlineRgbaPropertyInfo = (~) Gdk.RGBA type AttrBaseTypeConstraint TextTagUnderlineRgbaPropertyInfo = TextTagK - type AttrGetType TextTagUnderlineRgbaPropertyInfo = Gdk.RGBA + type AttrGetType TextTagUnderlineRgbaPropertyInfo = (Maybe Gdk.RGBA) type AttrLabel TextTagUnderlineRgbaPropertyInfo = "underline-rgba" attrGet _ = getTextTagUnderlineRgba attrSet _ = setTextTagUnderlineRgba attrConstruct _ = constructTextTagUnderlineRgba + attrClear _ = clearTextTagUnderlineRgba -- VVV Prop "underline-rgba-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getTextTagUnderlineRgbaSet :: (MonadIO m, TextTagK o) => o -> m Bool getTextTagUnderlineRgbaSet obj = liftIO $ getObjectPropertyBool obj "underline-rgba-set" @@ -2289,10 +2564,12 @@ attrGet _ = getTextTagUnderlineRgbaSet attrSet _ = setTextTagUnderlineRgbaSet attrConstruct _ = constructTextTagUnderlineRgbaSet + attrClear _ = undefined -- VVV Prop "underline-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getTextTagUnderlineSet :: (MonadIO m, TextTagK o) => o -> m Bool getTextTagUnderlineSet obj = liftIO $ getObjectPropertyBool obj "underline-set" @@ -2313,10 +2590,12 @@ attrGet _ = getTextTagUnderlineSet attrSet _ = setTextTagUnderlineSet attrConstruct _ = constructTextTagUnderlineSet + attrClear _ = undefined -- VVV Prop "variant" -- Type: TInterface "Pango" "Variant" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getTextTagVariant :: (MonadIO m, TextTagK o) => o -> m Pango.Variant getTextTagVariant obj = liftIO $ getObjectPropertyEnum obj "variant" @@ -2337,10 +2616,12 @@ attrGet _ = getTextTagVariant attrSet _ = setTextTagVariant attrConstruct _ = constructTextTagVariant + attrClear _ = undefined -- VVV Prop "variant-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getTextTagVariantSet :: (MonadIO m, TextTagK o) => o -> m Bool getTextTagVariantSet obj = liftIO $ getObjectPropertyBool obj "variant-set" @@ -2361,19 +2642,21 @@ attrGet _ = getTextTagVariantSet attrSet _ = setTextTagVariantSet attrConstruct _ = constructTextTagVariantSet + attrClear _ = undefined -- VVV Prop "weight" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getTextTagWeight :: (MonadIO m, TextTagK o) => o -> m Int32 -getTextTagWeight obj = liftIO $ getObjectPropertyCInt obj "weight" +getTextTagWeight obj = liftIO $ getObjectPropertyInt32 obj "weight" setTextTagWeight :: (MonadIO m, TextTagK o) => o -> Int32 -> m () -setTextTagWeight obj val = liftIO $ setObjectPropertyCInt obj "weight" val +setTextTagWeight obj val = liftIO $ setObjectPropertyInt32 obj "weight" val constructTextTagWeight :: Int32 -> IO ([Char], GValue) -constructTextTagWeight val = constructObjectPropertyCInt "weight" val +constructTextTagWeight val = constructObjectPropertyInt32 "weight" val data TextTagWeightPropertyInfo instance AttrInfo TextTagWeightPropertyInfo where @@ -2385,10 +2668,12 @@ attrGet _ = getTextTagWeight attrSet _ = setTextTagWeight attrConstruct _ = constructTextTagWeight + attrClear _ = undefined -- VVV Prop "weight-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getTextTagWeightSet :: (MonadIO m, TextTagK o) => o -> m Bool getTextTagWeightSet obj = liftIO $ getObjectPropertyBool obj "weight-set" @@ -2409,10 +2694,12 @@ attrGet _ = getTextTagWeightSet attrSet _ = setTextTagWeightSet attrConstruct _ = constructTextTagWeightSet + attrClear _ = undefined -- VVV Prop "wrap-mode" -- Type: TInterface "Gtk" "WrapMode" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getTextTagWrapMode :: (MonadIO m, TextTagK o) => o -> m WrapMode getTextTagWrapMode obj = liftIO $ getObjectPropertyEnum obj "wrap-mode" @@ -2433,10 +2720,12 @@ attrGet _ = getTextTagWrapMode attrSet _ = setTextTagWrapMode attrConstruct _ = constructTextTagWrapMode + attrClear _ = undefined -- VVV Prop "wrap-mode-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getTextTagWrapModeSet :: (MonadIO m, TextTagK o) => o -> m Bool getTextTagWrapModeSet obj = liftIO $ getObjectPropertyBool obj "wrap-mode-set" @@ -2457,10 +2746,233 @@ attrGet _ = getTextTagWrapModeSet attrSet _ = setTextTagWrapModeSet attrConstruct _ = constructTextTagWrapModeSet + attrClear _ = undefined type instance AttributeList TextTag = TextTagAttributeList type TextTagAttributeList = ('[ '("accumulativeMargin", TextTagAccumulativeMarginPropertyInfo), '("background", TextTagBackgroundPropertyInfo), '("backgroundFullHeight", TextTagBackgroundFullHeightPropertyInfo), '("backgroundFullHeightSet", TextTagBackgroundFullHeightSetPropertyInfo), '("backgroundGdk", TextTagBackgroundGdkPropertyInfo), '("backgroundRgba", TextTagBackgroundRgbaPropertyInfo), '("backgroundSet", TextTagBackgroundSetPropertyInfo), '("direction", TextTagDirectionPropertyInfo), '("editable", TextTagEditablePropertyInfo), '("editableSet", TextTagEditableSetPropertyInfo), '("fallback", TextTagFallbackPropertyInfo), '("fallbackSet", TextTagFallbackSetPropertyInfo), '("family", TextTagFamilyPropertyInfo), '("familySet", TextTagFamilySetPropertyInfo), '("font", TextTagFontPropertyInfo), '("fontDesc", TextTagFontDescPropertyInfo), '("fontFeatures", TextTagFontFeaturesPropertyInfo), '("fontFeaturesSet", TextTagFontFeaturesSetPropertyInfo), '("foreground", TextTagForegroundPropertyInfo), '("foregroundGdk", TextTagForegroundGdkPropertyInfo), '("foregroundRgba", TextTagForegroundRgbaPropertyInfo), '("foregroundSet", TextTagForegroundSetPropertyInfo), '("indent", TextTagIndentPropertyInfo), '("indentSet", TextTagIndentSetPropertyInfo), '("invisible", TextTagInvisiblePropertyInfo), '("invisibleSet", TextTagInvisibleSetPropertyInfo), '("justification", TextTagJustificationPropertyInfo), '("justificationSet", TextTagJustificationSetPropertyInfo), '("language", TextTagLanguagePropertyInfo), '("languageSet", TextTagLanguageSetPropertyInfo), '("leftMargin", TextTagLeftMarginPropertyInfo), '("leftMarginSet", TextTagLeftMarginSetPropertyInfo), '("letterSpacing", TextTagLetterSpacingPropertyInfo), '("letterSpacingSet", TextTagLetterSpacingSetPropertyInfo), '("name", TextTagNamePropertyInfo), '("paragraphBackground", TextTagParagraphBackgroundPropertyInfo), '("paragraphBackgroundGdk", TextTagParagraphBackgroundGdkPropertyInfo), '("paragraphBackgroundRgba", TextTagParagraphBackgroundRgbaPropertyInfo), '("paragraphBackgroundSet", TextTagParagraphBackgroundSetPropertyInfo), '("pixelsAboveLines", TextTagPixelsAboveLinesPropertyInfo), '("pixelsAboveLinesSet", TextTagPixelsAboveLinesSetPropertyInfo), '("pixelsBelowLines", TextTagPixelsBelowLinesPropertyInfo), '("pixelsBelowLinesSet", TextTagPixelsBelowLinesSetPropertyInfo), '("pixelsInsideWrap", TextTagPixelsInsideWrapPropertyInfo), '("pixelsInsideWrapSet", TextTagPixelsInsideWrapSetPropertyInfo), '("rightMargin", TextTagRightMarginPropertyInfo), '("rightMarginSet", TextTagRightMarginSetPropertyInfo), '("rise", TextTagRisePropertyInfo), '("riseSet", TextTagRiseSetPropertyInfo), '("scale", TextTagScalePropertyInfo), '("scaleSet", TextTagScaleSetPropertyInfo), '("size", TextTagSizePropertyInfo), '("sizePoints", TextTagSizePointsPropertyInfo), '("sizeSet", TextTagSizeSetPropertyInfo), '("stretch", TextTagStretchPropertyInfo), '("stretchSet", TextTagStretchSetPropertyInfo), '("strikethrough", TextTagStrikethroughPropertyInfo), '("strikethroughRgba", TextTagStrikethroughRgbaPropertyInfo), '("strikethroughRgbaSet", TextTagStrikethroughRgbaSetPropertyInfo), '("strikethroughSet", TextTagStrikethroughSetPropertyInfo), '("style", TextTagStylePropertyInfo), '("styleSet", TextTagStyleSetPropertyInfo), '("tabs", TextTagTabsPropertyInfo), '("tabsSet", TextTagTabsSetPropertyInfo), '("underline", TextTagUnderlinePropertyInfo), '("underlineRgba", TextTagUnderlineRgbaPropertyInfo), '("underlineRgbaSet", TextTagUnderlineRgbaSetPropertyInfo), '("underlineSet", TextTagUnderlineSetPropertyInfo), '("variant", TextTagVariantPropertyInfo), '("variantSet", TextTagVariantSetPropertyInfo), '("weight", TextTagWeightPropertyInfo), '("weightSet", TextTagWeightSetPropertyInfo), '("wrapMode", TextTagWrapModePropertyInfo), '("wrapModeSet", TextTagWrapModeSetPropertyInfo)] :: [(Symbol, *)]) +textTagAccumulativeMargin :: AttrLabelProxy "accumulativeMargin" +textTagAccumulativeMargin = AttrLabelProxy + +textTagBackground :: AttrLabelProxy "background" +textTagBackground = AttrLabelProxy + +textTagBackgroundFullHeight :: AttrLabelProxy "backgroundFullHeight" +textTagBackgroundFullHeight = AttrLabelProxy + +textTagBackgroundFullHeightSet :: AttrLabelProxy "backgroundFullHeightSet" +textTagBackgroundFullHeightSet = AttrLabelProxy + +textTagBackgroundGdk :: AttrLabelProxy "backgroundGdk" +textTagBackgroundGdk = AttrLabelProxy + +textTagBackgroundRgba :: AttrLabelProxy "backgroundRgba" +textTagBackgroundRgba = AttrLabelProxy + +textTagBackgroundSet :: AttrLabelProxy "backgroundSet" +textTagBackgroundSet = AttrLabelProxy + +textTagDirection :: AttrLabelProxy "direction" +textTagDirection = AttrLabelProxy + +textTagEditable :: AttrLabelProxy "editable" +textTagEditable = AttrLabelProxy + +textTagEditableSet :: AttrLabelProxy "editableSet" +textTagEditableSet = AttrLabelProxy + +textTagFallback :: AttrLabelProxy "fallback" +textTagFallback = AttrLabelProxy + +textTagFallbackSet :: AttrLabelProxy "fallbackSet" +textTagFallbackSet = AttrLabelProxy + +textTagFamily :: AttrLabelProxy "family" +textTagFamily = AttrLabelProxy + +textTagFamilySet :: AttrLabelProxy "familySet" +textTagFamilySet = AttrLabelProxy + +textTagFont :: AttrLabelProxy "font" +textTagFont = AttrLabelProxy + +textTagFontDesc :: AttrLabelProxy "fontDesc" +textTagFontDesc = AttrLabelProxy + +textTagFontFeatures :: AttrLabelProxy "fontFeatures" +textTagFontFeatures = AttrLabelProxy + +textTagFontFeaturesSet :: AttrLabelProxy "fontFeaturesSet" +textTagFontFeaturesSet = AttrLabelProxy + +textTagForeground :: AttrLabelProxy "foreground" +textTagForeground = AttrLabelProxy + +textTagForegroundGdk :: AttrLabelProxy "foregroundGdk" +textTagForegroundGdk = AttrLabelProxy + +textTagForegroundRgba :: AttrLabelProxy "foregroundRgba" +textTagForegroundRgba = AttrLabelProxy + +textTagForegroundSet :: AttrLabelProxy "foregroundSet" +textTagForegroundSet = AttrLabelProxy + +textTagIndent :: AttrLabelProxy "indent" +textTagIndent = AttrLabelProxy + +textTagIndentSet :: AttrLabelProxy "indentSet" +textTagIndentSet = AttrLabelProxy + +textTagInvisible :: AttrLabelProxy "invisible" +textTagInvisible = AttrLabelProxy + +textTagInvisibleSet :: AttrLabelProxy "invisibleSet" +textTagInvisibleSet = AttrLabelProxy + +textTagJustification :: AttrLabelProxy "justification" +textTagJustification = AttrLabelProxy + +textTagJustificationSet :: AttrLabelProxy "justificationSet" +textTagJustificationSet = AttrLabelProxy + +textTagLanguage :: AttrLabelProxy "language" +textTagLanguage = AttrLabelProxy + +textTagLanguageSet :: AttrLabelProxy "languageSet" +textTagLanguageSet = AttrLabelProxy + +textTagLeftMargin :: AttrLabelProxy "leftMargin" +textTagLeftMargin = AttrLabelProxy + +textTagLeftMarginSet :: AttrLabelProxy "leftMarginSet" +textTagLeftMarginSet = AttrLabelProxy + +textTagLetterSpacing :: AttrLabelProxy "letterSpacing" +textTagLetterSpacing = AttrLabelProxy + +textTagLetterSpacingSet :: AttrLabelProxy "letterSpacingSet" +textTagLetterSpacingSet = AttrLabelProxy + +textTagName :: AttrLabelProxy "name" +textTagName = AttrLabelProxy + +textTagParagraphBackground :: AttrLabelProxy "paragraphBackground" +textTagParagraphBackground = AttrLabelProxy + +textTagParagraphBackgroundGdk :: AttrLabelProxy "paragraphBackgroundGdk" +textTagParagraphBackgroundGdk = AttrLabelProxy + +textTagParagraphBackgroundRgba :: AttrLabelProxy "paragraphBackgroundRgba" +textTagParagraphBackgroundRgba = AttrLabelProxy + +textTagParagraphBackgroundSet :: AttrLabelProxy "paragraphBackgroundSet" +textTagParagraphBackgroundSet = AttrLabelProxy + +textTagPixelsAboveLines :: AttrLabelProxy "pixelsAboveLines" +textTagPixelsAboveLines = AttrLabelProxy + +textTagPixelsAboveLinesSet :: AttrLabelProxy "pixelsAboveLinesSet" +textTagPixelsAboveLinesSet = AttrLabelProxy + +textTagPixelsBelowLines :: AttrLabelProxy "pixelsBelowLines" +textTagPixelsBelowLines = AttrLabelProxy + +textTagPixelsBelowLinesSet :: AttrLabelProxy "pixelsBelowLinesSet" +textTagPixelsBelowLinesSet = AttrLabelProxy + +textTagPixelsInsideWrap :: AttrLabelProxy "pixelsInsideWrap" +textTagPixelsInsideWrap = AttrLabelProxy + +textTagPixelsInsideWrapSet :: AttrLabelProxy "pixelsInsideWrapSet" +textTagPixelsInsideWrapSet = AttrLabelProxy + +textTagRightMargin :: AttrLabelProxy "rightMargin" +textTagRightMargin = AttrLabelProxy + +textTagRightMarginSet :: AttrLabelProxy "rightMarginSet" +textTagRightMarginSet = AttrLabelProxy + +textTagRise :: AttrLabelProxy "rise" +textTagRise = AttrLabelProxy + +textTagRiseSet :: AttrLabelProxy "riseSet" +textTagRiseSet = AttrLabelProxy + +textTagScale :: AttrLabelProxy "scale" +textTagScale = AttrLabelProxy + +textTagScaleSet :: AttrLabelProxy "scaleSet" +textTagScaleSet = AttrLabelProxy + +textTagSize :: AttrLabelProxy "size" +textTagSize = AttrLabelProxy + +textTagSizePoints :: AttrLabelProxy "sizePoints" +textTagSizePoints = AttrLabelProxy + +textTagSizeSet :: AttrLabelProxy "sizeSet" +textTagSizeSet = AttrLabelProxy + +textTagStretch :: AttrLabelProxy "stretch" +textTagStretch = AttrLabelProxy + +textTagStretchSet :: AttrLabelProxy "stretchSet" +textTagStretchSet = AttrLabelProxy + +textTagStrikethrough :: AttrLabelProxy "strikethrough" +textTagStrikethrough = AttrLabelProxy + +textTagStrikethroughRgba :: AttrLabelProxy "strikethroughRgba" +textTagStrikethroughRgba = AttrLabelProxy + +textTagStrikethroughRgbaSet :: AttrLabelProxy "strikethroughRgbaSet" +textTagStrikethroughRgbaSet = AttrLabelProxy + +textTagStrikethroughSet :: AttrLabelProxy "strikethroughSet" +textTagStrikethroughSet = AttrLabelProxy + +textTagStyle :: AttrLabelProxy "style" +textTagStyle = AttrLabelProxy + +textTagStyleSet :: AttrLabelProxy "styleSet" +textTagStyleSet = AttrLabelProxy + +textTagTabs :: AttrLabelProxy "tabs" +textTagTabs = AttrLabelProxy + +textTagTabsSet :: AttrLabelProxy "tabsSet" +textTagTabsSet = AttrLabelProxy + +textTagUnderline :: AttrLabelProxy "underline" +textTagUnderline = AttrLabelProxy + +textTagUnderlineRgba :: AttrLabelProxy "underlineRgba" +textTagUnderlineRgba = AttrLabelProxy + +textTagUnderlineRgbaSet :: AttrLabelProxy "underlineRgbaSet" +textTagUnderlineRgbaSet = AttrLabelProxy + +textTagUnderlineSet :: AttrLabelProxy "underlineSet" +textTagUnderlineSet = AttrLabelProxy + +textTagVariant :: AttrLabelProxy "variant" +textTagVariant = AttrLabelProxy + +textTagVariantSet :: AttrLabelProxy "variantSet" +textTagVariantSet = AttrLabelProxy + +textTagWeight :: AttrLabelProxy "weight" +textTagWeight = AttrLabelProxy + +textTagWeightSet :: AttrLabelProxy "weightSet" +textTagWeightSet = AttrLabelProxy + +textTagWrapMode :: AttrLabelProxy "wrapMode" +textTagWrapMode = AttrLabelProxy + +textTagWrapModeSet :: AttrLabelProxy "wrapModeSet" +textTagWrapModeSet = AttrLabelProxy + data TextTagEventSignalInfo instance SignalInfo TextTagEventSignalInfo where type HaskellCallbackType TextTagEventSignalInfo = TextTagEventCallback @@ -2473,7 +2985,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "TextTag" +-- returnType : Just (TInterface "Gtk" "TextTag") -- throws : False -- Skip return : False @@ -2502,7 +3014,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event_object", argType = TInterface "GObject" "Object", 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},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2542,7 +3054,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -2567,15 +3079,15 @@ -- method TextTag::set_priority -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_text_tag_set_priority" gtk_text_tag_set_priority :: Ptr TextTag -> -- _obj : TInterface "Gtk" "TextTag" - Int32 -> -- priority : TBasicType TInt32 + Int32 -> -- priority : TBasicType TInt IO () diff --git a/GI/Gtk/Objects/TextTag.hs-boot b/GI/Gtk/Objects/TextTag.hs-boot --- a/GI/Gtk/Objects/TextTag.hs-boot +++ b/GI/Gtk/Objects/TextTag.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.TextTag where -import Prelude () 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 diff --git a/GI/Gtk/Objects/TextTagTable.hs b/GI/Gtk/Objects/TextTagTable.hs --- a/GI/Gtk/Objects/TextTagTable.hs +++ b/GI/Gtk/Objects/TextTagTable.hs @@ -89,9 +89,9 @@ ) where -import Prelude () 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 @@ -324,7 +324,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "TextTagTable" +-- returnType : Just (TInterface "Gtk" "TextTagTable") -- throws : False -- Skip return : False @@ -345,7 +345,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextTagTable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -375,16 +375,16 @@ -- method TextTagTable::foreach -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextTagTable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TextTagTableForeach", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextTagTable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TextTagTableForeach", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_text_tag_table_foreach" gtk_text_tag_table_foreach :: Ptr TextTagTable -> -- _obj : TInterface "Gtk" "TextTagTable" FunPtr TextTagTableForeachC -> -- func : TInterface "Gtk" "TextTagTableForeach" - Ptr () -> -- data : TBasicType TVoid + Ptr () -> -- data : TBasicType TPtr IO () @@ -410,7 +410,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextTagTable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -437,7 +437,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextTagTable", 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 : TInterface "Gtk" "TextTag" +-- returnType : Just (TInterface "Gtk" "TextTag") -- throws : False -- Skip return : False @@ -470,7 +470,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextTagTable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/TextTagTable.hs-boot b/GI/Gtk/Objects/TextTagTable.hs-boot --- a/GI/Gtk/Objects/TextTagTable.hs-boot +++ b/GI/Gtk/Objects/TextTagTable.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.TextTagTable where -import Prelude () 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 diff --git a/GI/Gtk/Objects/TextView.hs b/GI/Gtk/Objects/TextView.hs --- a/GI/Gtk/Objects/TextView.hs +++ b/GI/Gtk/Objects/TextView.hs @@ -383,6 +383,7 @@ constructTextViewAcceptsTab , getTextViewAcceptsTab , setTextViewAcceptsTab , + textViewAcceptsTab , -- ** BottomMargin @@ -390,13 +391,16 @@ constructTextViewBottomMargin , getTextViewBottomMargin , setTextViewBottomMargin , + textViewBottomMargin , -- ** Buffer TextViewBufferPropertyInfo , + clearTextViewBuffer , constructTextViewBuffer , getTextViewBuffer , setTextViewBuffer , + textViewBuffer , -- ** CursorVisible @@ -404,6 +408,7 @@ constructTextViewCursorVisible , getTextViewCursorVisible , setTextViewCursorVisible , + textViewCursorVisible , -- ** Editable @@ -411,13 +416,16 @@ constructTextViewEditable , getTextViewEditable , setTextViewEditable , + textViewEditable , -- ** ImModule TextViewImModulePropertyInfo , + clearTextViewImModule , constructTextViewImModule , getTextViewImModule , setTextViewImModule , + textViewImModule , -- ** Indent @@ -425,6 +433,7 @@ constructTextViewIndent , getTextViewIndent , setTextViewIndent , + textViewIndent , -- ** InputHints @@ -432,6 +441,7 @@ constructTextViewInputHints , getTextViewInputHints , setTextViewInputHints , + textViewInputHints , -- ** InputPurpose @@ -439,6 +449,7 @@ constructTextViewInputPurpose , getTextViewInputPurpose , setTextViewInputPurpose , + textViewInputPurpose , -- ** Justification @@ -446,6 +457,7 @@ constructTextViewJustification , getTextViewJustification , setTextViewJustification , + textViewJustification , -- ** LeftMargin @@ -453,6 +465,7 @@ constructTextViewLeftMargin , getTextViewLeftMargin , setTextViewLeftMargin , + textViewLeftMargin , -- ** Monospace @@ -460,6 +473,7 @@ constructTextViewMonospace , getTextViewMonospace , setTextViewMonospace , + textViewMonospace , -- ** Overwrite @@ -467,6 +481,7 @@ constructTextViewOverwrite , getTextViewOverwrite , setTextViewOverwrite , + textViewOverwrite , -- ** PixelsAboveLines @@ -474,6 +489,7 @@ constructTextViewPixelsAboveLines , getTextViewPixelsAboveLines , setTextViewPixelsAboveLines , + textViewPixelsAboveLines , -- ** PixelsBelowLines @@ -481,6 +497,7 @@ constructTextViewPixelsBelowLines , getTextViewPixelsBelowLines , setTextViewPixelsBelowLines , + textViewPixelsBelowLines , -- ** PixelsInsideWrap @@ -488,6 +505,7 @@ constructTextViewPixelsInsideWrap , getTextViewPixelsInsideWrap , setTextViewPixelsInsideWrap , + textViewPixelsInsideWrap , -- ** PopulateAll @@ -495,6 +513,7 @@ constructTextViewPopulateAll , getTextViewPopulateAll , setTextViewPopulateAll , + textViewPopulateAll , -- ** RightMargin @@ -502,6 +521,7 @@ constructTextViewRightMargin , getTextViewRightMargin , setTextViewRightMargin , + textViewRightMargin , -- ** Tabs @@ -509,6 +529,7 @@ constructTextViewTabs , getTextViewTabs , setTextViewTabs , + textViewTabs , -- ** TopMargin @@ -516,6 +537,7 @@ constructTextViewTopMargin , getTextViewTopMargin , setTextViewTopMargin , + textViewTopMargin , -- ** WrapMode @@ -523,6 +545,7 @@ constructTextViewWrapMode , getTextViewWrapMode , setTextViewWrapMode , + textViewWrapMode , @@ -712,9 +735,9 @@ ) where -import Prelude () 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 @@ -1774,6 +1797,7 @@ -- VVV Prop "accepts-tab" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getTextViewAcceptsTab :: (MonadIO m, TextViewK o) => o -> m Bool getTextViewAcceptsTab obj = liftIO $ getObjectPropertyBool obj "accepts-tab" @@ -1794,19 +1818,21 @@ attrGet _ = getTextViewAcceptsTab attrSet _ = setTextViewAcceptsTab attrConstruct _ = constructTextViewAcceptsTab + attrClear _ = undefined -- VVV Prop "bottom-margin" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getTextViewBottomMargin :: (MonadIO m, TextViewK o) => o -> m Int32 -getTextViewBottomMargin obj = liftIO $ getObjectPropertyCInt obj "bottom-margin" +getTextViewBottomMargin obj = liftIO $ getObjectPropertyInt32 obj "bottom-margin" setTextViewBottomMargin :: (MonadIO m, TextViewK o) => o -> Int32 -> m () -setTextViewBottomMargin obj val = liftIO $ setObjectPropertyCInt obj "bottom-margin" val +setTextViewBottomMargin obj val = liftIO $ setObjectPropertyInt32 obj "bottom-margin" val constructTextViewBottomMargin :: Int32 -> IO ([Char], GValue) -constructTextViewBottomMargin val = constructObjectPropertyCInt "bottom-margin" val +constructTextViewBottomMargin val = constructObjectPropertyInt32 "bottom-margin" val data TextViewBottomMarginPropertyInfo instance AttrInfo TextViewBottomMarginPropertyInfo where @@ -1818,23 +1844,28 @@ attrGet _ = getTextViewBottomMargin attrSet _ = setTextViewBottomMargin attrConstruct _ = constructTextViewBottomMargin + attrClear _ = undefined -- VVV Prop "buffer" -- Type: TInterface "Gtk" "TextBuffer" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) getTextViewBuffer :: (MonadIO m, TextViewK o) => o -> m TextBuffer -getTextViewBuffer obj = liftIO $ getObjectPropertyObject obj "buffer" TextBuffer +getTextViewBuffer obj = liftIO $ checkUnexpectedNothing "getTextViewBuffer" $ getObjectPropertyObject obj "buffer" TextBuffer setTextViewBuffer :: (MonadIO m, TextViewK o, TextBufferK a) => o -> a -> m () -setTextViewBuffer obj val = liftIO $ setObjectPropertyObject obj "buffer" val +setTextViewBuffer obj val = liftIO $ setObjectPropertyObject obj "buffer" (Just val) constructTextViewBuffer :: (TextBufferK a) => a -> IO ([Char], GValue) -constructTextViewBuffer val = constructObjectPropertyObject "buffer" val +constructTextViewBuffer val = constructObjectPropertyObject "buffer" (Just val) +clearTextViewBuffer :: (MonadIO m, TextViewK o) => o -> m () +clearTextViewBuffer obj = liftIO $ setObjectPropertyObject obj "buffer" (Nothing :: Maybe TextBuffer) + data TextViewBufferPropertyInfo instance AttrInfo TextViewBufferPropertyInfo where - type AttrAllowedOps TextViewBufferPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps TextViewBufferPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint TextViewBufferPropertyInfo = TextBufferK type AttrBaseTypeConstraint TextViewBufferPropertyInfo = TextViewK type AttrGetType TextViewBufferPropertyInfo = TextBuffer @@ -1842,10 +1873,12 @@ attrGet _ = getTextViewBuffer attrSet _ = setTextViewBuffer attrConstruct _ = constructTextViewBuffer + attrClear _ = clearTextViewBuffer -- VVV Prop "cursor-visible" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getTextViewCursorVisible :: (MonadIO m, TextViewK o) => o -> m Bool getTextViewCursorVisible obj = liftIO $ getObjectPropertyBool obj "cursor-visible" @@ -1866,10 +1899,12 @@ attrGet _ = getTextViewCursorVisible attrSet _ = setTextViewCursorVisible attrConstruct _ = constructTextViewCursorVisible + attrClear _ = undefined -- VVV Prop "editable" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getTextViewEditable :: (MonadIO m, TextViewK o) => o -> m Bool getTextViewEditable obj = liftIO $ getObjectPropertyBool obj "editable" @@ -1890,43 +1925,50 @@ attrGet _ = getTextViewEditable attrSet _ = setTextViewEditable attrConstruct _ = constructTextViewEditable + attrClear _ = undefined -- VVV Prop "im-module" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) -getTextViewImModule :: (MonadIO m, TextViewK o) => o -> m T.Text +getTextViewImModule :: (MonadIO m, TextViewK o) => o -> m (Maybe T.Text) getTextViewImModule obj = liftIO $ getObjectPropertyString obj "im-module" setTextViewImModule :: (MonadIO m, TextViewK o) => o -> T.Text -> m () -setTextViewImModule obj val = liftIO $ setObjectPropertyString obj "im-module" val +setTextViewImModule obj val = liftIO $ setObjectPropertyString obj "im-module" (Just val) constructTextViewImModule :: T.Text -> IO ([Char], GValue) -constructTextViewImModule val = constructObjectPropertyString "im-module" val +constructTextViewImModule val = constructObjectPropertyString "im-module" (Just val) +clearTextViewImModule :: (MonadIO m, TextViewK o) => o -> m () +clearTextViewImModule obj = liftIO $ setObjectPropertyString obj "im-module" (Nothing :: Maybe T.Text) + data TextViewImModulePropertyInfo instance AttrInfo TextViewImModulePropertyInfo where - type AttrAllowedOps TextViewImModulePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps TextViewImModulePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint TextViewImModulePropertyInfo = (~) T.Text type AttrBaseTypeConstraint TextViewImModulePropertyInfo = TextViewK - type AttrGetType TextViewImModulePropertyInfo = T.Text + type AttrGetType TextViewImModulePropertyInfo = (Maybe T.Text) type AttrLabel TextViewImModulePropertyInfo = "im-module" attrGet _ = getTextViewImModule attrSet _ = setTextViewImModule attrConstruct _ = constructTextViewImModule + attrClear _ = clearTextViewImModule -- VVV Prop "indent" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getTextViewIndent :: (MonadIO m, TextViewK o) => o -> m Int32 -getTextViewIndent obj = liftIO $ getObjectPropertyCInt obj "indent" +getTextViewIndent obj = liftIO $ getObjectPropertyInt32 obj "indent" setTextViewIndent :: (MonadIO m, TextViewK o) => o -> Int32 -> m () -setTextViewIndent obj val = liftIO $ setObjectPropertyCInt obj "indent" val +setTextViewIndent obj val = liftIO $ setObjectPropertyInt32 obj "indent" val constructTextViewIndent :: Int32 -> IO ([Char], GValue) -constructTextViewIndent val = constructObjectPropertyCInt "indent" val +constructTextViewIndent val = constructObjectPropertyInt32 "indent" val data TextViewIndentPropertyInfo instance AttrInfo TextViewIndentPropertyInfo where @@ -1938,10 +1980,12 @@ attrGet _ = getTextViewIndent attrSet _ = setTextViewIndent attrConstruct _ = constructTextViewIndent + attrClear _ = undefined -- VVV Prop "input-hints" -- Type: TInterface "Gtk" "InputHints" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getTextViewInputHints :: (MonadIO m, TextViewK o) => o -> m [InputHints] getTextViewInputHints obj = liftIO $ getObjectPropertyFlags obj "input-hints" @@ -1962,10 +2006,12 @@ attrGet _ = getTextViewInputHints attrSet _ = setTextViewInputHints attrConstruct _ = constructTextViewInputHints + attrClear _ = undefined -- VVV Prop "input-purpose" -- Type: TInterface "Gtk" "InputPurpose" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getTextViewInputPurpose :: (MonadIO m, TextViewK o) => o -> m InputPurpose getTextViewInputPurpose obj = liftIO $ getObjectPropertyEnum obj "input-purpose" @@ -1986,10 +2032,12 @@ attrGet _ = getTextViewInputPurpose attrSet _ = setTextViewInputPurpose attrConstruct _ = constructTextViewInputPurpose + attrClear _ = undefined -- VVV Prop "justification" -- Type: TInterface "Gtk" "Justification" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getTextViewJustification :: (MonadIO m, TextViewK o) => o -> m Justification getTextViewJustification obj = liftIO $ getObjectPropertyEnum obj "justification" @@ -2010,19 +2058,21 @@ attrGet _ = getTextViewJustification attrSet _ = setTextViewJustification attrConstruct _ = constructTextViewJustification + attrClear _ = undefined -- VVV Prop "left-margin" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getTextViewLeftMargin :: (MonadIO m, TextViewK o) => o -> m Int32 -getTextViewLeftMargin obj = liftIO $ getObjectPropertyCInt obj "left-margin" +getTextViewLeftMargin obj = liftIO $ getObjectPropertyInt32 obj "left-margin" setTextViewLeftMargin :: (MonadIO m, TextViewK o) => o -> Int32 -> m () -setTextViewLeftMargin obj val = liftIO $ setObjectPropertyCInt obj "left-margin" val +setTextViewLeftMargin obj val = liftIO $ setObjectPropertyInt32 obj "left-margin" val constructTextViewLeftMargin :: Int32 -> IO ([Char], GValue) -constructTextViewLeftMargin val = constructObjectPropertyCInt "left-margin" val +constructTextViewLeftMargin val = constructObjectPropertyInt32 "left-margin" val data TextViewLeftMarginPropertyInfo instance AttrInfo TextViewLeftMarginPropertyInfo where @@ -2034,10 +2084,12 @@ attrGet _ = getTextViewLeftMargin attrSet _ = setTextViewLeftMargin attrConstruct _ = constructTextViewLeftMargin + attrClear _ = undefined -- VVV Prop "monospace" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getTextViewMonospace :: (MonadIO m, TextViewK o) => o -> m Bool getTextViewMonospace obj = liftIO $ getObjectPropertyBool obj "monospace" @@ -2058,10 +2110,12 @@ attrGet _ = getTextViewMonospace attrSet _ = setTextViewMonospace attrConstruct _ = constructTextViewMonospace + attrClear _ = undefined -- VVV Prop "overwrite" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getTextViewOverwrite :: (MonadIO m, TextViewK o) => o -> m Bool getTextViewOverwrite obj = liftIO $ getObjectPropertyBool obj "overwrite" @@ -2082,19 +2136,21 @@ attrGet _ = getTextViewOverwrite attrSet _ = setTextViewOverwrite attrConstruct _ = constructTextViewOverwrite + attrClear _ = undefined -- VVV Prop "pixels-above-lines" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getTextViewPixelsAboveLines :: (MonadIO m, TextViewK o) => o -> m Int32 -getTextViewPixelsAboveLines obj = liftIO $ getObjectPropertyCInt obj "pixels-above-lines" +getTextViewPixelsAboveLines obj = liftIO $ getObjectPropertyInt32 obj "pixels-above-lines" setTextViewPixelsAboveLines :: (MonadIO m, TextViewK o) => o -> Int32 -> m () -setTextViewPixelsAboveLines obj val = liftIO $ setObjectPropertyCInt obj "pixels-above-lines" val +setTextViewPixelsAboveLines obj val = liftIO $ setObjectPropertyInt32 obj "pixels-above-lines" val constructTextViewPixelsAboveLines :: Int32 -> IO ([Char], GValue) -constructTextViewPixelsAboveLines val = constructObjectPropertyCInt "pixels-above-lines" val +constructTextViewPixelsAboveLines val = constructObjectPropertyInt32 "pixels-above-lines" val data TextViewPixelsAboveLinesPropertyInfo instance AttrInfo TextViewPixelsAboveLinesPropertyInfo where @@ -2106,19 +2162,21 @@ attrGet _ = getTextViewPixelsAboveLines attrSet _ = setTextViewPixelsAboveLines attrConstruct _ = constructTextViewPixelsAboveLines + attrClear _ = undefined -- VVV Prop "pixels-below-lines" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getTextViewPixelsBelowLines :: (MonadIO m, TextViewK o) => o -> m Int32 -getTextViewPixelsBelowLines obj = liftIO $ getObjectPropertyCInt obj "pixels-below-lines" +getTextViewPixelsBelowLines obj = liftIO $ getObjectPropertyInt32 obj "pixels-below-lines" setTextViewPixelsBelowLines :: (MonadIO m, TextViewK o) => o -> Int32 -> m () -setTextViewPixelsBelowLines obj val = liftIO $ setObjectPropertyCInt obj "pixels-below-lines" val +setTextViewPixelsBelowLines obj val = liftIO $ setObjectPropertyInt32 obj "pixels-below-lines" val constructTextViewPixelsBelowLines :: Int32 -> IO ([Char], GValue) -constructTextViewPixelsBelowLines val = constructObjectPropertyCInt "pixels-below-lines" val +constructTextViewPixelsBelowLines val = constructObjectPropertyInt32 "pixels-below-lines" val data TextViewPixelsBelowLinesPropertyInfo instance AttrInfo TextViewPixelsBelowLinesPropertyInfo where @@ -2130,19 +2188,21 @@ attrGet _ = getTextViewPixelsBelowLines attrSet _ = setTextViewPixelsBelowLines attrConstruct _ = constructTextViewPixelsBelowLines + attrClear _ = undefined -- VVV Prop "pixels-inside-wrap" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getTextViewPixelsInsideWrap :: (MonadIO m, TextViewK o) => o -> m Int32 -getTextViewPixelsInsideWrap obj = liftIO $ getObjectPropertyCInt obj "pixels-inside-wrap" +getTextViewPixelsInsideWrap obj = liftIO $ getObjectPropertyInt32 obj "pixels-inside-wrap" setTextViewPixelsInsideWrap :: (MonadIO m, TextViewK o) => o -> Int32 -> m () -setTextViewPixelsInsideWrap obj val = liftIO $ setObjectPropertyCInt obj "pixels-inside-wrap" val +setTextViewPixelsInsideWrap obj val = liftIO $ setObjectPropertyInt32 obj "pixels-inside-wrap" val constructTextViewPixelsInsideWrap :: Int32 -> IO ([Char], GValue) -constructTextViewPixelsInsideWrap val = constructObjectPropertyCInt "pixels-inside-wrap" val +constructTextViewPixelsInsideWrap val = constructObjectPropertyInt32 "pixels-inside-wrap" val data TextViewPixelsInsideWrapPropertyInfo instance AttrInfo TextViewPixelsInsideWrapPropertyInfo where @@ -2154,10 +2214,12 @@ attrGet _ = getTextViewPixelsInsideWrap attrSet _ = setTextViewPixelsInsideWrap attrConstruct _ = constructTextViewPixelsInsideWrap + attrClear _ = undefined -- VVV Prop "populate-all" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getTextViewPopulateAll :: (MonadIO m, TextViewK o) => o -> m Bool getTextViewPopulateAll obj = liftIO $ getObjectPropertyBool obj "populate-all" @@ -2178,19 +2240,21 @@ attrGet _ = getTextViewPopulateAll attrSet _ = setTextViewPopulateAll attrConstruct _ = constructTextViewPopulateAll + attrClear _ = undefined -- VVV Prop "right-margin" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getTextViewRightMargin :: (MonadIO m, TextViewK o) => o -> m Int32 -getTextViewRightMargin obj = liftIO $ getObjectPropertyCInt obj "right-margin" +getTextViewRightMargin obj = liftIO $ getObjectPropertyInt32 obj "right-margin" setTextViewRightMargin :: (MonadIO m, TextViewK o) => o -> Int32 -> m () -setTextViewRightMargin obj val = liftIO $ setObjectPropertyCInt obj "right-margin" val +setTextViewRightMargin obj val = liftIO $ setObjectPropertyInt32 obj "right-margin" val constructTextViewRightMargin :: Int32 -> IO ([Char], GValue) -constructTextViewRightMargin val = constructObjectPropertyCInt "right-margin" val +constructTextViewRightMargin val = constructObjectPropertyInt32 "right-margin" val data TextViewRightMarginPropertyInfo instance AttrInfo TextViewRightMarginPropertyInfo where @@ -2202,43 +2266,47 @@ attrGet _ = getTextViewRightMargin attrSet _ = setTextViewRightMargin attrConstruct _ = constructTextViewRightMargin + attrClear _ = undefined -- VVV Prop "tabs" -- Type: TInterface "Pango" "TabArray" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just False) -getTextViewTabs :: (MonadIO m, TextViewK o) => o -> m Pango.TabArray +getTextViewTabs :: (MonadIO m, TextViewK o) => o -> m (Maybe Pango.TabArray) getTextViewTabs obj = liftIO $ getObjectPropertyBoxed obj "tabs" Pango.TabArray setTextViewTabs :: (MonadIO m, TextViewK o) => o -> Pango.TabArray -> m () -setTextViewTabs obj val = liftIO $ setObjectPropertyBoxed obj "tabs" val +setTextViewTabs obj val = liftIO $ setObjectPropertyBoxed obj "tabs" (Just val) constructTextViewTabs :: Pango.TabArray -> IO ([Char], GValue) -constructTextViewTabs val = constructObjectPropertyBoxed "tabs" val +constructTextViewTabs val = constructObjectPropertyBoxed "tabs" (Just val) data TextViewTabsPropertyInfo instance AttrInfo TextViewTabsPropertyInfo where type AttrAllowedOps TextViewTabsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint TextViewTabsPropertyInfo = (~) Pango.TabArray type AttrBaseTypeConstraint TextViewTabsPropertyInfo = TextViewK - type AttrGetType TextViewTabsPropertyInfo = Pango.TabArray + type AttrGetType TextViewTabsPropertyInfo = (Maybe Pango.TabArray) type AttrLabel TextViewTabsPropertyInfo = "tabs" attrGet _ = getTextViewTabs attrSet _ = setTextViewTabs attrConstruct _ = constructTextViewTabs + attrClear _ = undefined -- VVV Prop "top-margin" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getTextViewTopMargin :: (MonadIO m, TextViewK o) => o -> m Int32 -getTextViewTopMargin obj = liftIO $ getObjectPropertyCInt obj "top-margin" +getTextViewTopMargin obj = liftIO $ getObjectPropertyInt32 obj "top-margin" setTextViewTopMargin :: (MonadIO m, TextViewK o) => o -> Int32 -> m () -setTextViewTopMargin obj val = liftIO $ setObjectPropertyCInt obj "top-margin" val +setTextViewTopMargin obj val = liftIO $ setObjectPropertyInt32 obj "top-margin" val constructTextViewTopMargin :: Int32 -> IO ([Char], GValue) -constructTextViewTopMargin val = constructObjectPropertyCInt "top-margin" val +constructTextViewTopMargin val = constructObjectPropertyInt32 "top-margin" val data TextViewTopMarginPropertyInfo instance AttrInfo TextViewTopMarginPropertyInfo where @@ -2250,10 +2318,12 @@ attrGet _ = getTextViewTopMargin attrSet _ = setTextViewTopMargin attrConstruct _ = constructTextViewTopMargin + attrClear _ = undefined -- VVV Prop "wrap-mode" -- Type: TInterface "Gtk" "WrapMode" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getTextViewWrapMode :: (MonadIO m, TextViewK o) => o -> m WrapMode getTextViewWrapMode obj = liftIO $ getObjectPropertyEnum obj "wrap-mode" @@ -2274,10 +2344,74 @@ attrGet _ = getTextViewWrapMode attrSet _ = setTextViewWrapMode attrConstruct _ = constructTextViewWrapMode + attrClear _ = undefined type instance AttributeList TextView = TextViewAttributeList type TextViewAttributeList = ('[ '("acceptsTab", TextViewAcceptsTabPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("bottomMargin", TextViewBottomMarginPropertyInfo), '("buffer", TextViewBufferPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("cursorVisible", TextViewCursorVisiblePropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("editable", TextViewEditablePropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("hadjustment", ScrollableHadjustmentPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hscrollPolicy", ScrollableHscrollPolicyPropertyInfo), '("imModule", TextViewImModulePropertyInfo), '("indent", TextViewIndentPropertyInfo), '("inputHints", TextViewInputHintsPropertyInfo), '("inputPurpose", TextViewInputPurposePropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("justification", TextViewJustificationPropertyInfo), '("leftMargin", TextViewLeftMarginPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("monospace", TextViewMonospacePropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("overwrite", TextViewOverwritePropertyInfo), '("parent", WidgetParentPropertyInfo), '("pixelsAboveLines", TextViewPixelsAboveLinesPropertyInfo), '("pixelsBelowLines", TextViewPixelsBelowLinesPropertyInfo), '("pixelsInsideWrap", TextViewPixelsInsideWrapPropertyInfo), '("populateAll", TextViewPopulateAllPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rightMargin", TextViewRightMarginPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tabs", TextViewTabsPropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("topMargin", TextViewTopMarginPropertyInfo), '("vadjustment", ScrollableVadjustmentPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("vscrollPolicy", ScrollableVscrollPolicyPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("wrapMode", TextViewWrapModePropertyInfo)] :: [(Symbol, *)]) +textViewAcceptsTab :: AttrLabelProxy "acceptsTab" +textViewAcceptsTab = AttrLabelProxy + +textViewBottomMargin :: AttrLabelProxy "bottomMargin" +textViewBottomMargin = AttrLabelProxy + +textViewBuffer :: AttrLabelProxy "buffer" +textViewBuffer = AttrLabelProxy + +textViewCursorVisible :: AttrLabelProxy "cursorVisible" +textViewCursorVisible = AttrLabelProxy + +textViewEditable :: AttrLabelProxy "editable" +textViewEditable = AttrLabelProxy + +textViewImModule :: AttrLabelProxy "imModule" +textViewImModule = AttrLabelProxy + +textViewIndent :: AttrLabelProxy "indent" +textViewIndent = AttrLabelProxy + +textViewInputHints :: AttrLabelProxy "inputHints" +textViewInputHints = AttrLabelProxy + +textViewInputPurpose :: AttrLabelProxy "inputPurpose" +textViewInputPurpose = AttrLabelProxy + +textViewJustification :: AttrLabelProxy "justification" +textViewJustification = AttrLabelProxy + +textViewLeftMargin :: AttrLabelProxy "leftMargin" +textViewLeftMargin = AttrLabelProxy + +textViewMonospace :: AttrLabelProxy "monospace" +textViewMonospace = AttrLabelProxy + +textViewOverwrite :: AttrLabelProxy "overwrite" +textViewOverwrite = AttrLabelProxy + +textViewPixelsAboveLines :: AttrLabelProxy "pixelsAboveLines" +textViewPixelsAboveLines = AttrLabelProxy + +textViewPixelsBelowLines :: AttrLabelProxy "pixelsBelowLines" +textViewPixelsBelowLines = AttrLabelProxy + +textViewPixelsInsideWrap :: AttrLabelProxy "pixelsInsideWrap" +textViewPixelsInsideWrap = AttrLabelProxy + +textViewPopulateAll :: AttrLabelProxy "populateAll" +textViewPopulateAll = AttrLabelProxy + +textViewRightMargin :: AttrLabelProxy "rightMargin" +textViewRightMargin = AttrLabelProxy + +textViewTabs :: AttrLabelProxy "tabs" +textViewTabs = AttrLabelProxy + +textViewTopMargin :: AttrLabelProxy "topMargin" +textViewTopMargin = AttrLabelProxy + +textViewWrapMode :: AttrLabelProxy "wrapMode" +textViewWrapMode = AttrLabelProxy + data TextViewBackspaceSignalInfo instance SignalInfo TextViewBackspaceSignalInfo where type HaskellCallbackType TextViewBackspaceSignalInfo = TextViewBackspaceCallback @@ -2360,7 +2494,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "TextView" +-- returnType : Just (TInterface "Gtk" "TextView") -- throws : False -- Skip return : False @@ -2381,7 +2515,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "TextView" +-- returnType : Just (TInterface "Gtk" "TextView") -- throws : False -- Skip return : False @@ -2406,7 +2540,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "anchor", argType = TInterface "Gtk" "TextChildAnchor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2439,9 +2573,9 @@ -- method TextView::add_child_in_window -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "which_window", argType = TInterface "Gtk" "TextWindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xpos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ypos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "which_window", argType = TInterface "Gtk" "TextWindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xpos", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ypos", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2449,8 +2583,8 @@ Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" Ptr Widget -> -- child : TInterface "Gtk" "Widget" CUInt -> -- which_window : TInterface "Gtk" "TextWindowType" - Int32 -> -- xpos : TBasicType TInt32 - Int32 -> -- ypos : TBasicType TInt32 + Int32 -> -- xpos : TBasicType TInt + Int32 -> -- ypos : TBasicType TInt IO () @@ -2479,7 +2613,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2511,7 +2645,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2541,19 +2675,19 @@ -- method TextView::buffer_to_window_coords -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "win", argType = TInterface "Gtk" "TextWindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window_x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "window_y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "win", argType = TInterface "Gtk" "TextWindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer_y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window_x", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "window_y", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_text_view_buffer_to_window_coords" gtk_text_view_buffer_to_window_coords :: Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" CUInt -> -- win : TInterface "Gtk" "TextWindowType" - Int32 -> -- buffer_x : TBasicType TInt32 - Int32 -> -- buffer_y : TBasicType TInt32 - Ptr Int32 -> -- window_x : TBasicType TInt32 - Ptr Int32 -> -- window_y : TBasicType TInt32 + Int32 -> -- buffer_x : TBasicType TInt + Int32 -> -- buffer_y : TBasicType TInt + Ptr Int32 -> -- window_x : TBasicType TInt + Ptr Int32 -> -- window_y : TBasicType TInt IO () @@ -2585,7 +2719,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2617,7 +2751,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2649,7 +2783,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2677,7 +2811,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gtk" "TextWindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -2707,7 +2841,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -2734,7 +2868,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "TextBuffer" +-- returnType : Just (TInterface "Gtk" "TextBuffer") -- throws : False -- Skip return : False @@ -2763,7 +2897,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "strong", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "weak", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2804,7 +2938,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2832,7 +2966,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "TextAttributes" +-- returnType : Just (TInterface "Gtk" "TextAttributes") -- throws : False -- Skip return : False @@ -2861,7 +2995,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2889,7 +3023,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Adjustment" +-- returnType : Just (TInterface "Gtk" "Adjustment") -- throws : False -- Skip return : False @@ -2918,7 +3052,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -2945,7 +3079,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "InputHints" +-- returnType : Just (TInterface "Gtk" "InputHints") -- throws : False -- Skip return : False @@ -2973,7 +3107,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "InputPurpose" +-- returnType : Just (TInterface "Gtk" "InputPurpose") -- throws : False -- Skip return : False @@ -2999,17 +3133,17 @@ -- method TextView::get_iter_at_location -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_text_view_get_iter_at_location" gtk_text_view_get_iter_at_location :: Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - Int32 -> -- x : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 + Int32 -> -- x : TBasicType TInt + Int32 -> -- y : TBasicType TInt IO () @@ -3033,18 +3167,18 @@ -- method TextView::get_iter_at_position -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "trailing", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "trailing", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_text_view_get_iter_at_position" gtk_text_view_get_iter_at_position :: Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - Ptr Int32 -> -- trailing : TBasicType TInt32 - Int32 -> -- x : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 + Ptr Int32 -> -- trailing : TBasicType TInt + Int32 -> -- x : TBasicType TInt + Int32 -> -- y : TBasicType TInt IO () @@ -3073,7 +3207,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "location", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3107,7 +3241,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Justification" +-- returnType : Just (TInterface "Gtk" "Justification") -- throws : False -- Skip return : False @@ -3135,7 +3269,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -3160,17 +3294,17 @@ -- method TextView::get_line_at_y -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target_iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "line_top", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target_iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "line_top", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_text_view_get_line_at_y" gtk_text_view_get_line_at_y :: Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" Ptr TextIter -> -- target_iter : TInterface "Gtk" "TextIter" - Int32 -> -- y : TBasicType TInt32 - Ptr Int32 -> -- line_top : TBasicType TInt32 + Int32 -> -- y : TBasicType TInt + Ptr Int32 -> -- line_top : TBasicType TInt IO () @@ -3196,17 +3330,17 @@ -- method TextView::get_line_yrange -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_text_view_get_line_yrange" gtk_text_view_get_line_yrange :: Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - Ptr Int32 -> -- y : TBasicType TInt32 - Ptr Int32 -> -- height : TBasicType TInt32 + Ptr Int32 -> -- y : TBasicType TInt + Ptr Int32 -> -- height : TBasicType TInt IO () @@ -3237,7 +3371,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3265,7 +3399,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3293,7 +3427,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -3320,7 +3454,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -3347,7 +3481,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -3374,7 +3508,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -3401,7 +3535,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Pango" "TabArray" +-- returnType : Just (TInterface "Pango" "TabArray") -- throws : False -- Skip return : False @@ -3430,7 +3564,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -3457,7 +3591,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Adjustment" +-- returnType : Just (TInterface "Gtk" "Adjustment") -- throws : False -- Skip return : False @@ -3486,7 +3620,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible_rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3516,7 +3650,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "win", argType = TInterface "Gtk" "TextWindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gdk" "Window" +-- returnType : Just (TInterface "Gdk" "Window") -- throws : False -- Skip return : False @@ -3548,7 +3682,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", 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 : TInterface "Gtk" "TextWindowType" +-- returnType : Just (TInterface "Gtk" "TextWindowType") -- throws : False -- Skip return : False @@ -3580,7 +3714,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "WrapMode" +-- returnType : Just (TInterface "Gtk" "WrapMode") -- throws : False -- Skip return : False @@ -3608,7 +3742,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "EventKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3638,17 +3772,17 @@ -- method TextView::move_child -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xpos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ypos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xpos", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ypos", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_text_view_move_child" gtk_text_view_move_child :: Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" Ptr Widget -> -- child : TInterface "Gtk" "Widget" - Int32 -> -- xpos : TBasicType TInt32 - Int32 -> -- ypos : TBasicType TInt32 + Int32 -> -- xpos : TBasicType TInt + Int32 -> -- ypos : TBasicType TInt IO () @@ -3675,7 +3809,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mark", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3705,16 +3839,16 @@ -- method TextView::move_visually -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_text_view_move_visually" gtk_text_view_move_visually :: Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" Ptr TextIter -> -- iter : TInterface "Gtk" "TextIter" - Int32 -> -- count : TBasicType TInt32 + Int32 -> -- count : TBasicType TInt IO CInt @@ -3741,7 +3875,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3769,7 +3903,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3796,7 +3930,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mark", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3827,7 +3961,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "within_margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_align", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "yalign", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3871,7 +4005,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mark", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "within_margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_align", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "yalign", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3914,7 +4048,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accepts_tab", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3942,16 +4076,16 @@ -- method TextView::set_border_window_size -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gtk" "TextWindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gtk" "TextWindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_text_view_set_border_window_size" gtk_text_view_set_border_window_size :: Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" CUInt -> -- type : TInterface "Gtk" "TextWindowType" - Int32 -> -- size : TBasicType TInt32 + Int32 -> -- size : TBasicType TInt IO () @@ -3974,15 +4108,15 @@ -- method TextView::set_bottom_margin -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bottom_margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bottom_margin", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_text_view_set_bottom_margin" gtk_text_view_set_bottom_margin :: Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Int32 -> -- bottom_margin : TBasicType TInt32 + Int32 -> -- bottom_margin : TBasicType TInt IO () @@ -4005,7 +4139,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4040,7 +4174,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4070,7 +4204,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4098,15 +4232,15 @@ -- method TextView::set_indent -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "indent", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "indent", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_text_view_set_indent" gtk_text_view_set_indent :: Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Int32 -> -- indent : TBasicType TInt32 + Int32 -> -- indent : TBasicType TInt IO () @@ -4129,7 +4263,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hints", argType = TInterface "Gtk" "InputHints", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4159,7 +4293,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "purpose", argType = TInterface "Gtk" "InputPurpose", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4189,7 +4323,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "justification", argType = TInterface "Gtk" "Justification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4217,15 +4351,15 @@ -- method TextView::set_left_margin -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "left_margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "left_margin", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_text_view_set_left_margin" gtk_text_view_set_left_margin :: Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Int32 -> -- left_margin : TBasicType TInt32 + Int32 -> -- left_margin : TBasicType TInt IO () @@ -4248,7 +4382,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "monospace", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4278,7 +4412,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "overwrite", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4306,15 +4440,15 @@ -- method TextView::set_pixels_above_lines -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixels_above_lines", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixels_above_lines", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_text_view_set_pixels_above_lines" gtk_text_view_set_pixels_above_lines :: Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Int32 -> -- pixels_above_lines : TBasicType TInt32 + Int32 -> -- pixels_above_lines : TBasicType TInt IO () @@ -4335,15 +4469,15 @@ -- method TextView::set_pixels_below_lines -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixels_below_lines", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixels_below_lines", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_text_view_set_pixels_below_lines" gtk_text_view_set_pixels_below_lines :: Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Int32 -> -- pixels_below_lines : TBasicType TInt32 + Int32 -> -- pixels_below_lines : TBasicType TInt IO () @@ -4364,15 +4498,15 @@ -- method TextView::set_pixels_inside_wrap -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixels_inside_wrap", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixels_inside_wrap", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_text_view_set_pixels_inside_wrap" gtk_text_view_set_pixels_inside_wrap :: Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Int32 -> -- pixels_inside_wrap : TBasicType TInt32 + Int32 -> -- pixels_inside_wrap : TBasicType TInt IO () @@ -4393,15 +4527,15 @@ -- method TextView::set_right_margin -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "right_margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "right_margin", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_text_view_set_right_margin" gtk_text_view_set_right_margin :: Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Int32 -> -- right_margin : TBasicType TInt32 + Int32 -> -- right_margin : TBasicType TInt IO () @@ -4424,7 +4558,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tabs", argType = TInterface "Pango" "TabArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4453,15 +4587,15 @@ -- method TextView::set_top_margin -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "top_margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "top_margin", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_text_view_set_top_margin" gtk_text_view_set_top_margin :: Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Int32 -> -- top_margin : TBasicType TInt32 + Int32 -> -- top_margin : TBasicType TInt IO () @@ -4484,7 +4618,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wrap_mode", argType = TInterface "Gtk" "WrapMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4514,7 +4648,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -4544,19 +4678,19 @@ -- method TextView::window_to_buffer_coords -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "win", argType = TInterface "Gtk" "TextWindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer_x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "buffer_y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "win", argType = TInterface "Gtk" "TextWindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window_y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer_x", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "buffer_y", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_text_view_window_to_buffer_coords" gtk_text_view_window_to_buffer_coords :: Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" CUInt -> -- win : TInterface "Gtk" "TextWindowType" - Int32 -> -- window_x : TBasicType TInt32 - Int32 -> -- window_y : TBasicType TInt32 - Ptr Int32 -> -- buffer_x : TBasicType TInt32 - Ptr Int32 -> -- buffer_y : TBasicType TInt32 + Int32 -> -- window_x : TBasicType TInt + Int32 -> -- window_y : TBasicType TInt + Ptr Int32 -> -- buffer_x : TBasicType TInt + Ptr Int32 -> -- buffer_y : TBasicType TInt IO () diff --git a/GI/Gtk/Objects/TextView.hs-boot b/GI/Gtk/Objects/TextView.hs-boot --- a/GI/Gtk/Objects/TextView.hs-boot +++ b/GI/Gtk/Objects/TextView.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.TextView where -import Prelude () 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 diff --git a/GI/Gtk/Objects/TextViewAccessible.hs b/GI/Gtk/Objects/TextViewAccessible.hs --- a/GI/Gtk/Objects/TextViewAccessible.hs +++ b/GI/Gtk/Objects/TextViewAccessible.hs @@ -18,9 +18,9 @@ ) where -import Prelude () 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 diff --git a/GI/Gtk/Objects/TextViewAccessible.hs-boot b/GI/Gtk/Objects/TextViewAccessible.hs-boot --- a/GI/Gtk/Objects/TextViewAccessible.hs-boot +++ b/GI/Gtk/Objects/TextViewAccessible.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.TextViewAccessible where -import Prelude () 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 diff --git a/GI/Gtk/Objects/ThemingEngine.hs b/GI/Gtk/Objects/ThemingEngine.hs --- a/GI/Gtk/Objects/ThemingEngine.hs +++ b/GI/Gtk/Objects/ThemingEngine.hs @@ -118,15 +118,16 @@ ThemingEngineNamePropertyInfo , constructThemingEngineName , getThemingEngineName , + themingEngineName , ) where -import Prelude () 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 @@ -210,27 +211,32 @@ -- VVV Prop "name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + -- Nullable: (Nothing,Nothing) -getThemingEngineName :: (MonadIO m, ThemingEngineK o) => o -> m T.Text +getThemingEngineName :: (MonadIO m, ThemingEngineK o) => o -> m (Maybe T.Text) getThemingEngineName obj = liftIO $ getObjectPropertyString obj "name" constructThemingEngineName :: T.Text -> IO ([Char], GValue) -constructThemingEngineName val = constructObjectPropertyString "name" val +constructThemingEngineName val = constructObjectPropertyString "name" (Just val) data ThemingEngineNamePropertyInfo instance AttrInfo ThemingEngineNamePropertyInfo where - type AttrAllowedOps ThemingEngineNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrAllowedOps ThemingEngineNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ThemingEngineNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint ThemingEngineNamePropertyInfo = ThemingEngineK - type AttrGetType ThemingEngineNamePropertyInfo = T.Text + type AttrGetType ThemingEngineNamePropertyInfo = (Maybe T.Text) type AttrLabel ThemingEngineNamePropertyInfo = "name" attrGet _ = getThemingEngineName attrSet _ = undefined attrConstruct _ = constructThemingEngineName + attrClear _ = undefined type instance AttributeList ThemingEngine = ThemingEngineAttributeList type ThemingEngineAttributeList = ('[ '("name", ThemingEngineNamePropertyInfo)] :: [(Symbol, *)]) +themingEngineName :: AttrLabelProxy "name" +themingEngineName = AttrLabelProxy + type instance SignalList ThemingEngine = ThemingEngineSignalList type ThemingEngineSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -238,7 +244,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -271,7 +277,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "border", argType = TInterface "Gtk" "Border", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -304,7 +310,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -337,7 +343,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -370,7 +376,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "TextDirection" +-- returnType : Just (TInterface "Gtk" "TextDirection") -- throws : False -- Skip return : False @@ -398,7 +404,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Pango" "FontDescription" +-- returnType : Just (TInterface "Pango" "FontDescription") -- throws : False -- Skip return : False @@ -430,7 +436,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "JunctionSides" +-- returnType : Just (TInterface "Gtk" "JunctionSides") -- throws : False -- Skip return : False @@ -458,7 +464,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "margin", argType = TInterface "Gtk" "Border", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -491,7 +497,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "padding", argType = TInterface "Gtk" "Border", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -524,7 +530,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "WidgetPath" +-- returnType : Just (TInterface "Gtk" "WidgetPath") -- throws : False -- Skip return : False @@ -553,7 +559,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -590,7 +596,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gdk" "Screen" +-- returnType : Just (TInterface "Gdk" "Screen") -- throws : False -- Skip return : False @@ -619,7 +625,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "StateFlags" +-- returnType : Just (TInterface "Gtk" "StateFlags") -- throws : False -- Skip return : False @@ -647,7 +653,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property_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 = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -681,7 +687,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "style_class", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -713,7 +719,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "style_region", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "RegionFlags", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -750,7 +756,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -785,7 +791,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "progress", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -821,7 +827,7 @@ -- method type : MemberFunction -- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "ThemingEngine" +-- returnType : Just (TInterface "Gtk" "ThemingEngine") -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/ThemingEngine.hs-boot b/GI/Gtk/Objects/ThemingEngine.hs-boot --- a/GI/Gtk/Objects/ThemingEngine.hs-boot +++ b/GI/Gtk/Objects/ThemingEngine.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.ThemingEngine where -import Prelude () 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 diff --git a/GI/Gtk/Objects/ToggleAction.hs b/GI/Gtk/Objects/ToggleAction.hs --- a/GI/Gtk/Objects/ToggleAction.hs +++ b/GI/Gtk/Objects/ToggleAction.hs @@ -54,6 +54,7 @@ constructToggleActionActive , getToggleActionActive , setToggleActionActive , + toggleActionActive , -- ** DrawAsRadio @@ -61,6 +62,7 @@ constructToggleActionDrawAsRadio , getToggleActionDrawAsRadio , setToggleActionDrawAsRadio , + toggleActionDrawAsRadio , @@ -82,9 +84,9 @@ ) where -import Prelude () 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 @@ -242,6 +244,7 @@ -- VVV Prop "active" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getToggleActionActive :: (MonadIO m, ToggleActionK o) => o -> m Bool getToggleActionActive obj = liftIO $ getObjectPropertyBool obj "active" @@ -262,10 +265,12 @@ attrGet _ = getToggleActionActive attrSet _ = setToggleActionActive attrConstruct _ = constructToggleActionActive + attrClear _ = undefined -- VVV Prop "draw-as-radio" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getToggleActionDrawAsRadio :: (MonadIO m, ToggleActionK o) => o -> m Bool getToggleActionDrawAsRadio obj = liftIO $ getObjectPropertyBool obj "draw-as-radio" @@ -286,10 +291,17 @@ attrGet _ = getToggleActionDrawAsRadio attrSet _ = setToggleActionDrawAsRadio attrConstruct _ = constructToggleActionDrawAsRadio + attrClear _ = undefined type instance AttributeList ToggleAction = ToggleActionAttributeList type ToggleActionAttributeList = ('[ '("actionGroup", ActionActionGroupPropertyInfo), '("active", ToggleActionActivePropertyInfo), '("alwaysShowImage", ActionAlwaysShowImagePropertyInfo), '("drawAsRadio", ToggleActionDrawAsRadioPropertyInfo), '("gicon", ActionGiconPropertyInfo), '("hideIfEmpty", ActionHideIfEmptyPropertyInfo), '("iconName", ActionIconNamePropertyInfo), '("isImportant", ActionIsImportantPropertyInfo), '("label", ActionLabelPropertyInfo), '("name", ActionNamePropertyInfo), '("sensitive", ActionSensitivePropertyInfo), '("shortLabel", ActionShortLabelPropertyInfo), '("stockId", ActionStockIdPropertyInfo), '("tooltip", ActionTooltipPropertyInfo), '("visible", ActionVisiblePropertyInfo), '("visibleHorizontal", ActionVisibleHorizontalPropertyInfo), '("visibleOverflown", ActionVisibleOverflownPropertyInfo), '("visibleVertical", ActionVisibleVerticalPropertyInfo)] :: [(Symbol, *)]) +toggleActionActive :: AttrLabelProxy "active" +toggleActionActive = AttrLabelProxy + +toggleActionDrawAsRadio :: AttrLabelProxy "drawAsRadio" +toggleActionDrawAsRadio = AttrLabelProxy + data ToggleActionToggledSignalInfo instance SignalInfo ToggleActionToggledSignalInfo where type HaskellCallbackType ToggleActionToggledSignalInfo = ToggleActionToggledCallback @@ -302,7 +314,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "ToggleAction" +-- returnType : Just (TInterface "Gtk" "ToggleAction") -- throws : False -- Skip return : False @@ -351,7 +363,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToggleAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -379,7 +391,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToggleAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -407,7 +419,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToggleAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_active", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -437,7 +449,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToggleAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "draw_as_radio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -467,7 +479,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToggleAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/ToggleAction.hs-boot b/GI/Gtk/Objects/ToggleAction.hs-boot --- a/GI/Gtk/Objects/ToggleAction.hs-boot +++ b/GI/Gtk/Objects/ToggleAction.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.ToggleAction where -import Prelude () 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 diff --git a/GI/Gtk/Objects/ToggleButton.hs b/GI/Gtk/Objects/ToggleButton.hs --- a/GI/Gtk/Objects/ToggleButton.hs +++ b/GI/Gtk/Objects/ToggleButton.hs @@ -72,6 +72,7 @@ constructToggleButtonActive , getToggleButtonActive , setToggleButtonActive , + toggleButtonActive , -- ** DrawIndicator @@ -79,6 +80,7 @@ constructToggleButtonDrawIndicator , getToggleButtonDrawIndicator , setToggleButtonDrawIndicator , + toggleButtonDrawIndicator , -- ** Inconsistent @@ -86,6 +88,7 @@ constructToggleButtonInconsistent , getToggleButtonInconsistent , setToggleButtonInconsistent , + toggleButtonInconsistent , @@ -107,9 +110,9 @@ ) where -import Prelude () 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 @@ -546,6 +549,7 @@ -- VVV Prop "active" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getToggleButtonActive :: (MonadIO m, ToggleButtonK o) => o -> m Bool getToggleButtonActive obj = liftIO $ getObjectPropertyBool obj "active" @@ -566,10 +570,12 @@ attrGet _ = getToggleButtonActive attrSet _ = setToggleButtonActive attrConstruct _ = constructToggleButtonActive + attrClear _ = undefined -- VVV Prop "draw-indicator" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getToggleButtonDrawIndicator :: (MonadIO m, ToggleButtonK o) => o -> m Bool getToggleButtonDrawIndicator obj = liftIO $ getObjectPropertyBool obj "draw-indicator" @@ -590,10 +596,12 @@ attrGet _ = getToggleButtonDrawIndicator attrSet _ = setToggleButtonDrawIndicator attrConstruct _ = constructToggleButtonDrawIndicator + attrClear _ = undefined -- VVV Prop "inconsistent" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getToggleButtonInconsistent :: (MonadIO m, ToggleButtonK o) => o -> m Bool getToggleButtonInconsistent obj = liftIO $ getObjectPropertyBool obj "inconsistent" @@ -614,10 +622,20 @@ attrGet _ = getToggleButtonInconsistent attrSet _ = setToggleButtonInconsistent attrConstruct _ = constructToggleButtonInconsistent + attrClear _ = undefined type instance AttributeList ToggleButton = ToggleButtonAttributeList type ToggleButtonAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("active", ToggleButtonActivePropertyInfo), '("alwaysShowImage", ButtonAlwaysShowImagePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("drawIndicator", ToggleButtonDrawIndicatorPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnClick", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("image", ButtonImagePropertyInfo), '("imagePosition", ButtonImagePositionPropertyInfo), '("inconsistent", ToggleButtonInconsistentPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useStock", ButtonUseStockPropertyInfo), '("useUnderline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) +toggleButtonActive :: AttrLabelProxy "active" +toggleButtonActive = AttrLabelProxy + +toggleButtonDrawIndicator :: AttrLabelProxy "drawIndicator" +toggleButtonDrawIndicator = AttrLabelProxy + +toggleButtonInconsistent :: AttrLabelProxy "inconsistent" +toggleButtonInconsistent = AttrLabelProxy + data ToggleButtonToggledSignalInfo instance SignalInfo ToggleButtonToggledSignalInfo where type HaskellCallbackType ToggleButtonToggledSignalInfo = ToggleButtonToggledCallback @@ -630,7 +648,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "ToggleButton" +-- returnType : Just (TInterface "Gtk" "ToggleButton") -- throws : False -- Skip return : False @@ -651,7 +669,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "ToggleButton" +-- returnType : Just (TInterface "Gtk" "ToggleButton") -- throws : False -- Skip return : False @@ -676,7 +694,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "ToggleButton" +-- returnType : Just (TInterface "Gtk" "ToggleButton") -- throws : False -- Skip return : False @@ -701,7 +719,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToggleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -729,7 +747,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToggleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -757,7 +775,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToggleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -785,7 +803,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToggleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_active", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -815,7 +833,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToggleButton", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -845,7 +863,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToggleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "draw_indicator", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -875,7 +893,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToggleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/ToggleButton.hs-boot b/GI/Gtk/Objects/ToggleButton.hs-boot --- a/GI/Gtk/Objects/ToggleButton.hs-boot +++ b/GI/Gtk/Objects/ToggleButton.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.ToggleButton where -import Prelude () 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 diff --git a/GI/Gtk/Objects/ToggleButtonAccessible.hs b/GI/Gtk/Objects/ToggleButtonAccessible.hs --- a/GI/Gtk/Objects/ToggleButtonAccessible.hs +++ b/GI/Gtk/Objects/ToggleButtonAccessible.hs @@ -18,9 +18,9 @@ ) where -import Prelude () 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 diff --git a/GI/Gtk/Objects/ToggleButtonAccessible.hs-boot b/GI/Gtk/Objects/ToggleButtonAccessible.hs-boot --- a/GI/Gtk/Objects/ToggleButtonAccessible.hs-boot +++ b/GI/Gtk/Objects/ToggleButtonAccessible.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.ToggleButtonAccessible where -import Prelude () 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 diff --git a/GI/Gtk/Objects/ToggleToolButton.hs b/GI/Gtk/Objects/ToggleToolButton.hs --- a/GI/Gtk/Objects/ToggleToolButton.hs +++ b/GI/Gtk/Objects/ToggleToolButton.hs @@ -43,6 +43,7 @@ constructToggleToolButtonActive , getToggleToolButtonActive , setToggleToolButtonActive , + toggleToolButtonActive , @@ -64,9 +65,9 @@ ) where -import Prelude () 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 @@ -509,6 +510,7 @@ -- VVV Prop "active" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getToggleToolButtonActive :: (MonadIO m, ToggleToolButtonK o) => o -> m Bool getToggleToolButtonActive obj = liftIO $ getObjectPropertyBool obj "active" @@ -529,10 +531,14 @@ attrGet _ = getToggleToolButtonActive attrSet _ = setToggleToolButtonActive attrConstruct _ = constructToggleToolButtonActive + attrClear _ = undefined type instance AttributeList ToggleToolButton = ToggleToolButtonAttributeList type ToggleToolButtonAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("active", ToggleToolButtonActivePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("iconName", ToolButtonIconNamePropertyInfo), '("iconWidget", ToolButtonIconWidgetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isImportant", ToolItemIsImportantPropertyInfo), '("label", ToolButtonLabelPropertyInfo), '("labelWidget", ToolButtonLabelWidgetPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("stockId", ToolButtonStockIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useUnderline", ToolButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visibleHorizontal", ToolItemVisibleHorizontalPropertyInfo), '("visibleVertical", ToolItemVisibleVerticalPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +toggleToolButtonActive :: AttrLabelProxy "active" +toggleToolButtonActive = AttrLabelProxy + data ToggleToolButtonToggledSignalInfo instance SignalInfo ToggleToolButtonToggledSignalInfo where type HaskellCallbackType ToggleToolButtonToggledSignalInfo = ToggleToolButtonToggledCallback @@ -545,7 +551,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "ToggleToolButton" +-- returnType : Just (TInterface "Gtk" "ToggleToolButton") -- throws : False -- Skip return : False @@ -566,7 +572,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "ToggleToolButton" +-- returnType : Just (TInterface "Gtk" "ToggleToolButton") -- throws : False -- Skip return : False @@ -591,7 +597,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToggleToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -619,7 +625,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToggleToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_active", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/ToggleToolButton.hs-boot b/GI/Gtk/Objects/ToggleToolButton.hs-boot --- a/GI/Gtk/Objects/ToggleToolButton.hs-boot +++ b/GI/Gtk/Objects/ToggleToolButton.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.ToggleToolButton where -import Prelude () 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 diff --git a/GI/Gtk/Objects/ToolButton.hs b/GI/Gtk/Objects/ToolButton.hs --- a/GI/Gtk/Objects/ToolButton.hs +++ b/GI/Gtk/Objects/ToolButton.hs @@ -90,37 +90,47 @@ -- * Properties -- ** IconName ToolButtonIconNamePropertyInfo , + clearToolButtonIconName , constructToolButtonIconName , getToolButtonIconName , setToolButtonIconName , + toolButtonIconName , -- ** IconWidget ToolButtonIconWidgetPropertyInfo , + clearToolButtonIconWidget , constructToolButtonIconWidget , getToolButtonIconWidget , setToolButtonIconWidget , + toolButtonIconWidget , -- ** Label ToolButtonLabelPropertyInfo , + clearToolButtonLabel , constructToolButtonLabel , getToolButtonLabel , setToolButtonLabel , + toolButtonLabel , -- ** LabelWidget ToolButtonLabelWidgetPropertyInfo , + clearToolButtonLabelWidget , constructToolButtonLabelWidget , getToolButtonLabelWidget , setToolButtonLabelWidget , + toolButtonLabelWidget , -- ** StockId ToolButtonStockIdPropertyInfo , + clearToolButtonStockId , constructToolButtonStockId , getToolButtonStockId , setToolButtonStockId , + toolButtonStockId , -- ** UseUnderline @@ -128,6 +138,7 @@ constructToolButtonUseUnderline , getToolButtonUseUnderline , setToolButtonUseUnderline , + toolButtonUseUnderline , @@ -149,9 +160,9 @@ ) where -import Prelude () 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 @@ -592,19 +603,23 @@ -- VVV Prop "icon-name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) getToolButtonIconName :: (MonadIO m, ToolButtonK o) => o -> m T.Text -getToolButtonIconName obj = liftIO $ getObjectPropertyString obj "icon-name" +getToolButtonIconName obj = liftIO $ checkUnexpectedNothing "getToolButtonIconName" $ getObjectPropertyString obj "icon-name" setToolButtonIconName :: (MonadIO m, ToolButtonK o) => o -> T.Text -> m () -setToolButtonIconName obj val = liftIO $ setObjectPropertyString obj "icon-name" val +setToolButtonIconName obj val = liftIO $ setObjectPropertyString obj "icon-name" (Just val) constructToolButtonIconName :: T.Text -> IO ([Char], GValue) -constructToolButtonIconName val = constructObjectPropertyString "icon-name" val +constructToolButtonIconName val = constructObjectPropertyString "icon-name" (Just val) +clearToolButtonIconName :: (MonadIO m, ToolButtonK o) => o -> m () +clearToolButtonIconName obj = liftIO $ setObjectPropertyString obj "icon-name" (Nothing :: Maybe T.Text) + data ToolButtonIconNamePropertyInfo instance AttrInfo ToolButtonIconNamePropertyInfo where - type AttrAllowedOps ToolButtonIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps ToolButtonIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ToolButtonIconNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint ToolButtonIconNamePropertyInfo = ToolButtonK type AttrGetType ToolButtonIconNamePropertyInfo = T.Text @@ -612,23 +627,28 @@ attrGet _ = getToolButtonIconName attrSet _ = setToolButtonIconName attrConstruct _ = constructToolButtonIconName + attrClear _ = clearToolButtonIconName -- VVV Prop "icon-widget" -- Type: TInterface "Gtk" "Widget" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) getToolButtonIconWidget :: (MonadIO m, ToolButtonK o) => o -> m Widget -getToolButtonIconWidget obj = liftIO $ getObjectPropertyObject obj "icon-widget" Widget +getToolButtonIconWidget obj = liftIO $ checkUnexpectedNothing "getToolButtonIconWidget" $ getObjectPropertyObject obj "icon-widget" Widget setToolButtonIconWidget :: (MonadIO m, ToolButtonK o, WidgetK a) => o -> a -> m () -setToolButtonIconWidget obj val = liftIO $ setObjectPropertyObject obj "icon-widget" val +setToolButtonIconWidget obj val = liftIO $ setObjectPropertyObject obj "icon-widget" (Just val) constructToolButtonIconWidget :: (WidgetK a) => a -> IO ([Char], GValue) -constructToolButtonIconWidget val = constructObjectPropertyObject "icon-widget" val +constructToolButtonIconWidget val = constructObjectPropertyObject "icon-widget" (Just val) +clearToolButtonIconWidget :: (MonadIO m, ToolButtonK o) => o -> m () +clearToolButtonIconWidget obj = liftIO $ setObjectPropertyObject obj "icon-widget" (Nothing :: Maybe Widget) + data ToolButtonIconWidgetPropertyInfo instance AttrInfo ToolButtonIconWidgetPropertyInfo where - type AttrAllowedOps ToolButtonIconWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps ToolButtonIconWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ToolButtonIconWidgetPropertyInfo = WidgetK type AttrBaseTypeConstraint ToolButtonIconWidgetPropertyInfo = ToolButtonK type AttrGetType ToolButtonIconWidgetPropertyInfo = Widget @@ -636,23 +656,28 @@ attrGet _ = getToolButtonIconWidget attrSet _ = setToolButtonIconWidget attrConstruct _ = constructToolButtonIconWidget + attrClear _ = clearToolButtonIconWidget -- VVV Prop "label" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) getToolButtonLabel :: (MonadIO m, ToolButtonK o) => o -> m T.Text -getToolButtonLabel obj = liftIO $ getObjectPropertyString obj "label" +getToolButtonLabel obj = liftIO $ checkUnexpectedNothing "getToolButtonLabel" $ getObjectPropertyString obj "label" setToolButtonLabel :: (MonadIO m, ToolButtonK o) => o -> T.Text -> m () -setToolButtonLabel obj val = liftIO $ setObjectPropertyString obj "label" val +setToolButtonLabel obj val = liftIO $ setObjectPropertyString obj "label" (Just val) constructToolButtonLabel :: T.Text -> IO ([Char], GValue) -constructToolButtonLabel val = constructObjectPropertyString "label" val +constructToolButtonLabel val = constructObjectPropertyString "label" (Just val) +clearToolButtonLabel :: (MonadIO m, ToolButtonK o) => o -> m () +clearToolButtonLabel obj = liftIO $ setObjectPropertyString obj "label" (Nothing :: Maybe T.Text) + data ToolButtonLabelPropertyInfo instance AttrInfo ToolButtonLabelPropertyInfo where - type AttrAllowedOps ToolButtonLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps ToolButtonLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ToolButtonLabelPropertyInfo = (~) T.Text type AttrBaseTypeConstraint ToolButtonLabelPropertyInfo = ToolButtonK type AttrGetType ToolButtonLabelPropertyInfo = T.Text @@ -660,23 +685,28 @@ attrGet _ = getToolButtonLabel attrSet _ = setToolButtonLabel attrConstruct _ = constructToolButtonLabel + attrClear _ = clearToolButtonLabel -- VVV Prop "label-widget" -- Type: TInterface "Gtk" "Widget" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) getToolButtonLabelWidget :: (MonadIO m, ToolButtonK o) => o -> m Widget -getToolButtonLabelWidget obj = liftIO $ getObjectPropertyObject obj "label-widget" Widget +getToolButtonLabelWidget obj = liftIO $ checkUnexpectedNothing "getToolButtonLabelWidget" $ getObjectPropertyObject obj "label-widget" Widget setToolButtonLabelWidget :: (MonadIO m, ToolButtonK o, WidgetK a) => o -> a -> m () -setToolButtonLabelWidget obj val = liftIO $ setObjectPropertyObject obj "label-widget" val +setToolButtonLabelWidget obj val = liftIO $ setObjectPropertyObject obj "label-widget" (Just val) constructToolButtonLabelWidget :: (WidgetK a) => a -> IO ([Char], GValue) -constructToolButtonLabelWidget val = constructObjectPropertyObject "label-widget" val +constructToolButtonLabelWidget val = constructObjectPropertyObject "label-widget" (Just val) +clearToolButtonLabelWidget :: (MonadIO m, ToolButtonK o) => o -> m () +clearToolButtonLabelWidget obj = liftIO $ setObjectPropertyObject obj "label-widget" (Nothing :: Maybe Widget) + data ToolButtonLabelWidgetPropertyInfo instance AttrInfo ToolButtonLabelWidgetPropertyInfo where - type AttrAllowedOps ToolButtonLabelWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps ToolButtonLabelWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ToolButtonLabelWidgetPropertyInfo = WidgetK type AttrBaseTypeConstraint ToolButtonLabelWidgetPropertyInfo = ToolButtonK type AttrGetType ToolButtonLabelWidgetPropertyInfo = Widget @@ -684,23 +714,28 @@ attrGet _ = getToolButtonLabelWidget attrSet _ = setToolButtonLabelWidget attrConstruct _ = constructToolButtonLabelWidget + attrClear _ = clearToolButtonLabelWidget -- VVV Prop "stock-id" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) getToolButtonStockId :: (MonadIO m, ToolButtonK o) => o -> m T.Text -getToolButtonStockId obj = liftIO $ getObjectPropertyString obj "stock-id" +getToolButtonStockId obj = liftIO $ checkUnexpectedNothing "getToolButtonStockId" $ getObjectPropertyString obj "stock-id" setToolButtonStockId :: (MonadIO m, ToolButtonK o) => o -> T.Text -> m () -setToolButtonStockId obj val = liftIO $ setObjectPropertyString obj "stock-id" val +setToolButtonStockId obj val = liftIO $ setObjectPropertyString obj "stock-id" (Just val) constructToolButtonStockId :: T.Text -> IO ([Char], GValue) -constructToolButtonStockId val = constructObjectPropertyString "stock-id" val +constructToolButtonStockId val = constructObjectPropertyString "stock-id" (Just val) +clearToolButtonStockId :: (MonadIO m, ToolButtonK o) => o -> m () +clearToolButtonStockId obj = liftIO $ setObjectPropertyString obj "stock-id" (Nothing :: Maybe T.Text) + data ToolButtonStockIdPropertyInfo instance AttrInfo ToolButtonStockIdPropertyInfo where - type AttrAllowedOps ToolButtonStockIdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps ToolButtonStockIdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint ToolButtonStockIdPropertyInfo = (~) T.Text type AttrBaseTypeConstraint ToolButtonStockIdPropertyInfo = ToolButtonK type AttrGetType ToolButtonStockIdPropertyInfo = T.Text @@ -708,10 +743,12 @@ attrGet _ = getToolButtonStockId attrSet _ = setToolButtonStockId attrConstruct _ = constructToolButtonStockId + attrClear _ = clearToolButtonStockId -- VVV Prop "use-underline" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getToolButtonUseUnderline :: (MonadIO m, ToolButtonK o) => o -> m Bool getToolButtonUseUnderline obj = liftIO $ getObjectPropertyBool obj "use-underline" @@ -732,10 +769,29 @@ attrGet _ = getToolButtonUseUnderline attrSet _ = setToolButtonUseUnderline attrConstruct _ = constructToolButtonUseUnderline + attrClear _ = undefined type instance AttributeList ToolButton = ToolButtonAttributeList type ToolButtonAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("iconName", ToolButtonIconNamePropertyInfo), '("iconWidget", ToolButtonIconWidgetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isImportant", ToolItemIsImportantPropertyInfo), '("label", ToolButtonLabelPropertyInfo), '("labelWidget", ToolButtonLabelWidgetPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("stockId", ToolButtonStockIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useUnderline", ToolButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visibleHorizontal", ToolItemVisibleHorizontalPropertyInfo), '("visibleVertical", ToolItemVisibleVerticalPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +toolButtonIconName :: AttrLabelProxy "iconName" +toolButtonIconName = AttrLabelProxy + +toolButtonIconWidget :: AttrLabelProxy "iconWidget" +toolButtonIconWidget = AttrLabelProxy + +toolButtonLabel :: AttrLabelProxy "label" +toolButtonLabel = AttrLabelProxy + +toolButtonLabelWidget :: AttrLabelProxy "labelWidget" +toolButtonLabelWidget = AttrLabelProxy + +toolButtonStockId :: AttrLabelProxy "stockId" +toolButtonStockId = AttrLabelProxy + +toolButtonUseUnderline :: AttrLabelProxy "useUnderline" +toolButtonUseUnderline = AttrLabelProxy + data ToolButtonClickedSignalInfo instance SignalInfo ToolButtonClickedSignalInfo where type HaskellCallbackType ToolButtonClickedSignalInfo = ToolButtonClickedCallback @@ -748,7 +804,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "icon_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "ToolButton" +-- returnType : Just (TInterface "Gtk" "ToolButton") -- throws : False -- Skip return : False @@ -785,7 +841,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "ToolButton" +-- returnType : Just (TInterface "Gtk" "ToolButton") -- throws : False -- Skip return : False @@ -810,7 +866,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -839,7 +895,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -868,7 +924,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -897,7 +953,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -926,7 +982,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -955,7 +1011,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -983,7 +1039,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolButton", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1018,7 +1074,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1053,7 +1109,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1088,7 +1144,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1123,7 +1179,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1158,7 +1214,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_underline", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/ToolButton.hs-boot b/GI/Gtk/Objects/ToolButton.hs-boot --- a/GI/Gtk/Objects/ToolButton.hs-boot +++ b/GI/Gtk/Objects/ToolButton.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.ToolButton where -import Prelude () 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 diff --git a/GI/Gtk/Objects/ToolItem.hs b/GI/Gtk/Objects/ToolItem.hs --- a/GI/Gtk/Objects/ToolItem.hs +++ b/GI/Gtk/Objects/ToolItem.hs @@ -164,6 +164,7 @@ constructToolItemIsImportant , getToolItemIsImportant , setToolItemIsImportant , + toolItemIsImportant , -- ** VisibleHorizontal @@ -171,6 +172,7 @@ constructToolItemVisibleHorizontal , getToolItemVisibleHorizontal , setToolItemVisibleHorizontal , + toolItemVisibleHorizontal , -- ** VisibleVertical @@ -178,6 +180,7 @@ constructToolItemVisibleVertical , getToolItemVisibleVertical , setToolItemVisibleVertical , + toolItemVisibleVertical , @@ -211,9 +214,9 @@ ) where -import Prelude () 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 @@ -678,6 +681,7 @@ -- VVV Prop "is-important" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getToolItemIsImportant :: (MonadIO m, ToolItemK o) => o -> m Bool getToolItemIsImportant obj = liftIO $ getObjectPropertyBool obj "is-important" @@ -698,10 +702,12 @@ attrGet _ = getToolItemIsImportant attrSet _ = setToolItemIsImportant attrConstruct _ = constructToolItemIsImportant + attrClear _ = undefined -- VVV Prop "visible-horizontal" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getToolItemVisibleHorizontal :: (MonadIO m, ToolItemK o) => o -> m Bool getToolItemVisibleHorizontal obj = liftIO $ getObjectPropertyBool obj "visible-horizontal" @@ -722,10 +728,12 @@ attrGet _ = getToolItemVisibleHorizontal attrSet _ = setToolItemVisibleHorizontal attrConstruct _ = constructToolItemVisibleHorizontal + attrClear _ = undefined -- VVV Prop "visible-vertical" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getToolItemVisibleVertical :: (MonadIO m, ToolItemK o) => o -> m Bool getToolItemVisibleVertical obj = liftIO $ getObjectPropertyBool obj "visible-vertical" @@ -746,10 +754,20 @@ attrGet _ = getToolItemVisibleVertical attrSet _ = setToolItemVisibleVertical attrConstruct _ = constructToolItemVisibleVertical + attrClear _ = undefined type instance AttributeList ToolItem = ToolItemAttributeList type ToolItemAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isImportant", ToolItemIsImportantPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visibleHorizontal", ToolItemVisibleHorizontalPropertyInfo), '("visibleVertical", ToolItemVisibleVerticalPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +toolItemIsImportant :: AttrLabelProxy "isImportant" +toolItemIsImportant = AttrLabelProxy + +toolItemVisibleHorizontal :: AttrLabelProxy "visibleHorizontal" +toolItemVisibleHorizontal = AttrLabelProxy + +toolItemVisibleVertical :: AttrLabelProxy "visibleVertical" +toolItemVisibleVertical = AttrLabelProxy + data ToolItemCreateMenuProxySignalInfo instance SignalInfo ToolItemCreateMenuProxySignalInfo where type HaskellCallbackType ToolItemCreateMenuProxySignalInfo = ToolItemCreateMenuProxyCallback @@ -767,7 +785,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "ToolItem" +-- returnType : Just (TInterface "Gtk" "ToolItem") -- throws : False -- Skip return : False @@ -788,7 +806,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Pango" "EllipsizeMode" +-- returnType : Just (TInterface "Pango" "EllipsizeMode") -- throws : False -- Skip return : False @@ -816,7 +834,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -844,7 +862,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -872,7 +890,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -899,7 +917,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -927,7 +945,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Orientation" +-- returnType : Just (TInterface "Gtk" "Orientation") -- throws : False -- Skip return : False @@ -955,7 +973,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menu_item_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -988,7 +1006,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "ReliefStyle" +-- returnType : Just (TInterface "Gtk" "ReliefStyle") -- throws : False -- Skip return : False @@ -1016,7 +1034,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TFloat +-- returnType : Just (TBasicType TFloat) -- throws : False -- Skip return : False @@ -1044,7 +1062,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Orientation" +-- returnType : Just (TInterface "Gtk" "Orientation") -- throws : False -- Skip return : False @@ -1072,7 +1090,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "SizeGroup" +-- returnType : Just (TInterface "Gtk" "SizeGroup") -- throws : False -- Skip return : False @@ -1101,7 +1119,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "ToolbarStyle" +-- returnType : Just (TInterface "Gtk" "ToolbarStyle") -- throws : False -- Skip return : False @@ -1129,7 +1147,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1157,7 +1175,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1185,7 +1203,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1213,7 +1231,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1240,7 +1258,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -1269,7 +1287,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1299,7 +1317,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1329,7 +1347,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_important", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1359,7 +1377,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menu_item_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menu_item", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1394,7 +1412,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1425,7 +1443,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1456,7 +1474,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_drag_window", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1486,7 +1504,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible_horizontal", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1516,7 +1534,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible_vertical", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1546,7 +1564,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/ToolItem.hs-boot b/GI/Gtk/Objects/ToolItem.hs-boot --- a/GI/Gtk/Objects/ToolItem.hs-boot +++ b/GI/Gtk/Objects/ToolItem.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.ToolItem where -import Prelude () 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 diff --git a/GI/Gtk/Objects/ToolItemGroup.hs b/GI/Gtk/Objects/ToolItemGroup.hs --- a/GI/Gtk/Objects/ToolItemGroup.hs +++ b/GI/Gtk/Objects/ToolItemGroup.hs @@ -109,6 +109,7 @@ constructToolItemGroupCollapsed , getToolItemGroupCollapsed , setToolItemGroupCollapsed , + toolItemGroupCollapsed , -- ** Ellipsize @@ -116,6 +117,7 @@ constructToolItemGroupEllipsize , getToolItemGroupEllipsize , setToolItemGroupEllipsize , + toolItemGroupEllipsize , -- ** HeaderRelief @@ -123,6 +125,7 @@ constructToolItemGroupHeaderRelief , getToolItemGroupHeaderRelief , setToolItemGroupHeaderRelief , + toolItemGroupHeaderRelief , -- ** Label @@ -130,6 +133,7 @@ constructToolItemGroupLabel , getToolItemGroupLabel , setToolItemGroupLabel , + toolItemGroupLabel , -- ** LabelWidget @@ -137,15 +141,16 @@ constructToolItemGroupLabelWidget , getToolItemGroupLabelWidget , setToolItemGroupLabelWidget , + toolItemGroupLabelWidget , ) where -import Prelude () 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 @@ -525,6 +530,7 @@ -- VVV Prop "collapsed" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getToolItemGroupCollapsed :: (MonadIO m, ToolItemGroupK o) => o -> m Bool getToolItemGroupCollapsed obj = liftIO $ getObjectPropertyBool obj "collapsed" @@ -545,10 +551,12 @@ attrGet _ = getToolItemGroupCollapsed attrSet _ = setToolItemGroupCollapsed attrConstruct _ = constructToolItemGroupCollapsed + attrClear _ = undefined -- VVV Prop "ellipsize" -- Type: TInterface "Pango" "EllipsizeMode" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getToolItemGroupEllipsize :: (MonadIO m, ToolItemGroupK o) => o -> m Pango.EllipsizeMode getToolItemGroupEllipsize obj = liftIO $ getObjectPropertyEnum obj "ellipsize" @@ -569,10 +577,12 @@ attrGet _ = getToolItemGroupEllipsize attrSet _ = setToolItemGroupEllipsize attrConstruct _ = constructToolItemGroupEllipsize + attrClear _ = undefined -- VVV Prop "header-relief" -- Type: TInterface "Gtk" "ReliefStyle" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getToolItemGroupHeaderRelief :: (MonadIO m, ToolItemGroupK o) => o -> m ReliefStyle getToolItemGroupHeaderRelief obj = liftIO $ getObjectPropertyEnum obj "header-relief" @@ -593,19 +603,21 @@ attrGet _ = getToolItemGroupHeaderRelief attrSet _ = setToolItemGroupHeaderRelief attrConstruct _ = constructToolItemGroupHeaderRelief + attrClear _ = undefined -- VVV Prop "label" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getToolItemGroupLabel :: (MonadIO m, ToolItemGroupK o) => o -> m T.Text -getToolItemGroupLabel obj = liftIO $ getObjectPropertyString obj "label" +getToolItemGroupLabel obj = liftIO $ checkUnexpectedNothing "getToolItemGroupLabel" $ getObjectPropertyString obj "label" setToolItemGroupLabel :: (MonadIO m, ToolItemGroupK o) => o -> T.Text -> m () -setToolItemGroupLabel obj val = liftIO $ setObjectPropertyString obj "label" val +setToolItemGroupLabel obj val = liftIO $ setObjectPropertyString obj "label" (Just val) constructToolItemGroupLabel :: T.Text -> IO ([Char], GValue) -constructToolItemGroupLabel val = constructObjectPropertyString "label" val +constructToolItemGroupLabel val = constructObjectPropertyString "label" (Just val) data ToolItemGroupLabelPropertyInfo instance AttrInfo ToolItemGroupLabelPropertyInfo where @@ -617,19 +629,21 @@ attrGet _ = getToolItemGroupLabel attrSet _ = setToolItemGroupLabel attrConstruct _ = constructToolItemGroupLabel + attrClear _ = undefined -- VVV Prop "label-widget" -- Type: TInterface "Gtk" "Widget" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getToolItemGroupLabelWidget :: (MonadIO m, ToolItemGroupK o) => o -> m Widget -getToolItemGroupLabelWidget obj = liftIO $ getObjectPropertyObject obj "label-widget" Widget +getToolItemGroupLabelWidget obj = liftIO $ checkUnexpectedNothing "getToolItemGroupLabelWidget" $ getObjectPropertyObject obj "label-widget" Widget setToolItemGroupLabelWidget :: (MonadIO m, ToolItemGroupK o, WidgetK a) => o -> a -> m () -setToolItemGroupLabelWidget obj val = liftIO $ setObjectPropertyObject obj "label-widget" val +setToolItemGroupLabelWidget obj val = liftIO $ setObjectPropertyObject obj "label-widget" (Just val) constructToolItemGroupLabelWidget :: (WidgetK a) => a -> IO ([Char], GValue) -constructToolItemGroupLabelWidget val = constructObjectPropertyObject "label-widget" val +constructToolItemGroupLabelWidget val = constructObjectPropertyObject "label-widget" (Just val) data ToolItemGroupLabelWidgetPropertyInfo instance AttrInfo ToolItemGroupLabelWidgetPropertyInfo where @@ -641,10 +655,26 @@ attrGet _ = getToolItemGroupLabelWidget attrSet _ = setToolItemGroupLabelWidget attrConstruct _ = constructToolItemGroupLabelWidget + attrClear _ = undefined type instance AttributeList ToolItemGroup = ToolItemGroupAttributeList type ToolItemGroupAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("collapsed", ToolItemGroupCollapsedPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("ellipsize", ToolItemGroupEllipsizePropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("headerRelief", ToolItemGroupHeaderReliefPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", ToolItemGroupLabelPropertyInfo), '("labelWidget", ToolItemGroupLabelWidgetPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +toolItemGroupCollapsed :: AttrLabelProxy "collapsed" +toolItemGroupCollapsed = AttrLabelProxy + +toolItemGroupEllipsize :: AttrLabelProxy "ellipsize" +toolItemGroupEllipsize = AttrLabelProxy + +toolItemGroupHeaderRelief :: AttrLabelProxy "headerRelief" +toolItemGroupHeaderRelief = AttrLabelProxy + +toolItemGroupLabel :: AttrLabelProxy "label" +toolItemGroupLabel = AttrLabelProxy + +toolItemGroupLabelWidget :: AttrLabelProxy "labelWidget" +toolItemGroupLabelWidget = AttrLabelProxy + type instance SignalList ToolItemGroup = ToolItemGroupSignalList type ToolItemGroupSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -652,7 +682,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "ToolItemGroup" +-- returnType : Just (TInterface "Gtk" "ToolItemGroup") -- throws : False -- Skip return : False @@ -677,7 +707,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -703,16 +733,16 @@ -- method ToolItemGroup::get_drop_item -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", 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 : TInterface "Gtk" "ToolItem" +-- returnType : Just (TInterface "Gtk" "ToolItem") -- throws : False -- Skip return : False foreign import ccall "gtk_tool_item_group_get_drop_item" gtk_tool_item_group_get_drop_item :: Ptr ToolItemGroup -> -- _obj : TInterface "Gtk" "ToolItemGroup" - Int32 -> -- x : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 + Int32 -> -- x : TBasicType TInt + Int32 -> -- y : TBasicType TInt IO (Ptr ToolItem) @@ -738,7 +768,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Pango" "EllipsizeMode" +-- returnType : Just (TInterface "Pango" "EllipsizeMode") -- throws : False -- Skip return : False @@ -766,7 +796,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "ReliefStyle" +-- returnType : Just (TInterface "Gtk" "ReliefStyle") -- throws : False -- Skip return : False @@ -794,7 +824,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -825,7 +855,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -854,7 +884,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -883,7 +913,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt32 +-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -908,15 +938,15 @@ -- method ToolItemGroup::get_nth_item -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", 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 : TInterface "Gtk" "ToolItem" +-- returnType : Just (TInterface "Gtk" "ToolItem") -- throws : False -- Skip return : False foreign import ccall "gtk_tool_item_group_get_nth_item" gtk_tool_item_group_get_nth_item :: Ptr ToolItemGroup -> -- _obj : TInterface "Gtk" "ToolItemGroup" - Word32 -> -- index : TBasicType TUInt32 + Word32 -> -- index : TBasicType TUInt IO (Ptr ToolItem) @@ -939,16 +969,16 @@ -- method ToolItemGroup::insert -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tool_item_group_insert" gtk_tool_item_group_insert :: Ptr ToolItemGroup -> -- _obj : TInterface "Gtk" "ToolItemGroup" Ptr ToolItem -> -- item : TInterface "Gtk" "ToolItem" - Int32 -> -- position : TBasicType TInt32 + Int32 -> -- position : TBasicType TInt IO () @@ -974,7 +1004,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "collapsed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1004,7 +1034,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ellipsize", argType = TInterface "Pango" "EllipsizeMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1034,7 +1064,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "style", argType = TInterface "Gtk" "ReliefStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1062,16 +1092,16 @@ -- method ToolItemGroup::set_item_position -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tool_item_group_set_item_position" gtk_tool_item_group_set_item_position :: Ptr ToolItemGroup -> -- _obj : TInterface "Gtk" "ToolItemGroup" Ptr ToolItem -> -- item : TInterface "Gtk" "ToolItem" - Int32 -> -- position : TBasicType TInt32 + Int32 -> -- position : TBasicType TInt IO () @@ -1097,7 +1127,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1128,7 +1158,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/ToolItemGroup.hs-boot b/GI/Gtk/Objects/ToolItemGroup.hs-boot --- a/GI/Gtk/Objects/ToolItemGroup.hs-boot +++ b/GI/Gtk/Objects/ToolItemGroup.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.ToolItemGroup where -import Prelude () 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 diff --git a/GI/Gtk/Objects/ToolPalette.hs b/GI/Gtk/Objects/ToolPalette.hs --- a/GI/Gtk/Objects/ToolPalette.hs +++ b/GI/Gtk/Objects/ToolPalette.hs @@ -132,6 +132,7 @@ constructToolPaletteIconSize , getToolPaletteIconSize , setToolPaletteIconSize , + toolPaletteIconSize , -- ** IconSizeSet @@ -139,6 +140,7 @@ constructToolPaletteIconSizeSet , getToolPaletteIconSizeSet , setToolPaletteIconSizeSet , + toolPaletteIconSizeSet , -- ** ToolbarStyle @@ -146,15 +148,16 @@ constructToolPaletteToolbarStyle , getToolPaletteToolbarStyle , setToolPaletteToolbarStyle , + toolPaletteToolbarStyle , ) where -import Prelude () 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 @@ -533,6 +536,7 @@ -- VVV Prop "icon-size" -- Type: TInterface "Gtk" "IconSize" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getToolPaletteIconSize :: (MonadIO m, ToolPaletteK o) => o -> m IconSize getToolPaletteIconSize obj = liftIO $ getObjectPropertyEnum obj "icon-size" @@ -553,10 +557,12 @@ attrGet _ = getToolPaletteIconSize attrSet _ = setToolPaletteIconSize attrConstruct _ = constructToolPaletteIconSize + attrClear _ = undefined -- VVV Prop "icon-size-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getToolPaletteIconSizeSet :: (MonadIO m, ToolPaletteK o) => o -> m Bool getToolPaletteIconSizeSet obj = liftIO $ getObjectPropertyBool obj "icon-size-set" @@ -577,10 +583,12 @@ attrGet _ = getToolPaletteIconSizeSet attrSet _ = setToolPaletteIconSizeSet attrConstruct _ = constructToolPaletteIconSizeSet + attrClear _ = undefined -- VVV Prop "toolbar-style" -- Type: TInterface "Gtk" "ToolbarStyle" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getToolPaletteToolbarStyle :: (MonadIO m, ToolPaletteK o) => o -> m ToolbarStyle getToolPaletteToolbarStyle obj = liftIO $ getObjectPropertyEnum obj "toolbar-style" @@ -601,10 +609,20 @@ attrGet _ = getToolPaletteToolbarStyle attrSet _ = setToolPaletteToolbarStyle attrConstruct _ = constructToolPaletteToolbarStyle + attrClear _ = undefined type instance AttributeList ToolPalette = ToolPaletteAttributeList type ToolPaletteAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("hadjustment", ScrollableHadjustmentPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hscrollPolicy", ScrollableHscrollPolicyPropertyInfo), '("iconSize", ToolPaletteIconSizePropertyInfo), '("iconSizeSet", ToolPaletteIconSizeSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("toolbarStyle", ToolPaletteToolbarStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("vadjustment", ScrollableVadjustmentPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("vscrollPolicy", ScrollableVscrollPolicyPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +toolPaletteIconSize :: AttrLabelProxy "iconSize" +toolPaletteIconSize = AttrLabelProxy + +toolPaletteIconSizeSet :: AttrLabelProxy "iconSizeSet" +toolPaletteIconSizeSet = AttrLabelProxy + +toolPaletteToolbarStyle :: AttrLabelProxy "toolbarStyle" +toolPaletteToolbarStyle = AttrLabelProxy + type instance SignalList ToolPalette = ToolPaletteSignalList type ToolPaletteSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -612,7 +630,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "ToolPalette" +-- returnType : Just (TInterface "Gtk" "ToolPalette") -- throws : False -- Skip return : False @@ -633,7 +651,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "DestDefaults", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TInterface "Gtk" "ToolPaletteDragTargets", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -673,7 +691,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -704,16 +722,16 @@ -- method ToolPalette::get_drop_group -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolPalette", 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 : TInterface "Gtk" "ToolItemGroup" +-- returnType : Just (TInterface "Gtk" "ToolItemGroup") -- throws : False -- Skip return : False foreign import ccall "gtk_tool_palette_get_drop_group" gtk_tool_palette_get_drop_group :: Ptr ToolPalette -> -- _obj : TInterface "Gtk" "ToolPalette" - Int32 -> -- x : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 + Int32 -> -- x : TBasicType TInt + Int32 -> -- y : TBasicType TInt IO (Ptr ToolItemGroup) @@ -737,16 +755,16 @@ -- method ToolPalette::get_drop_item -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolPalette", 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 : TInterface "Gtk" "ToolItem" +-- returnType : Just (TInterface "Gtk" "ToolItem") -- throws : False -- Skip return : False foreign import ccall "gtk_tool_palette_get_drop_item" gtk_tool_palette_get_drop_item :: Ptr ToolPalette -> -- _obj : TInterface "Gtk" "ToolPalette" - Int32 -> -- x : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 + Int32 -> -- x : TBasicType TInt + Int32 -> -- y : TBasicType TInt IO (Ptr ToolItem) @@ -772,7 +790,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -804,7 +822,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -836,7 +854,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -867,7 +885,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Adjustment" +-- returnType : Just (TInterface "Gtk" "Adjustment") -- throws : False -- Skip return : False @@ -896,7 +914,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -923,7 +941,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "ToolbarStyle" +-- returnType : Just (TInterface "Gtk" "ToolbarStyle") -- throws : False -- Skip return : False @@ -951,7 +969,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Adjustment" +-- returnType : Just (TInterface "Gtk" "Adjustment") -- throws : False -- Skip return : False @@ -980,7 +998,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TInterface "Gtk" "ToolPaletteDragTargets", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1010,7 +1028,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "exclusive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1044,7 +1062,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1076,16 +1094,16 @@ -- method ToolPalette::set_group_position -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tool_palette_set_group_position" gtk_tool_palette_set_group_position :: Ptr ToolPalette -> -- _obj : TInterface "Gtk" "ToolPalette" Ptr ToolItemGroup -> -- group : TInterface "Gtk" "ToolItemGroup" - Int32 -> -- position : TBasicType TInt32 + Int32 -> -- position : TBasicType TInt IO () @@ -1109,15 +1127,15 @@ -- method ToolPalette::set_icon_size -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tool_palette_set_icon_size" gtk_tool_palette_set_icon_size :: Ptr ToolPalette -> -- _obj : TInterface "Gtk" "ToolPalette" - Int32 -> -- icon_size : TBasicType TInt32 + Int32 -> -- icon_size : TBasicType TInt IO () @@ -1140,7 +1158,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "style", argType = TInterface "Gtk" "ToolbarStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1170,7 +1188,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1197,7 +1215,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1224,7 +1242,7 @@ -- method type : MemberFunction -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "TargetEntry" +-- returnType : Just (TInterface "Gtk" "TargetEntry") -- throws : False -- Skip return : False @@ -1245,7 +1263,7 @@ -- method type : MemberFunction -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "TargetEntry" +-- returnType : Just (TInterface "Gtk" "TargetEntry") -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/ToolPalette.hs-boot b/GI/Gtk/Objects/ToolPalette.hs-boot --- a/GI/Gtk/Objects/ToolPalette.hs-boot +++ b/GI/Gtk/Objects/ToolPalette.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.ToolPalette where -import Prelude () 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 diff --git a/GI/Gtk/Objects/Toolbar.hs b/GI/Gtk/Objects/Toolbar.hs --- a/GI/Gtk/Objects/Toolbar.hs +++ b/GI/Gtk/Objects/Toolbar.hs @@ -104,6 +104,7 @@ constructToolbarIconSize , getToolbarIconSize , setToolbarIconSize , + toolbarIconSize , -- ** IconSizeSet @@ -111,6 +112,7 @@ constructToolbarIconSizeSet , getToolbarIconSizeSet , setToolbarIconSizeSet , + toolbarIconSizeSet , -- ** ShowArrow @@ -118,6 +120,7 @@ constructToolbarShowArrow , getToolbarShowArrow , setToolbarShowArrow , + toolbarShowArrow , -- ** ToolbarStyle @@ -125,6 +128,7 @@ constructToolbarToolbarStyle , getToolbarToolbarStyle , setToolbarToolbarStyle , + toolbarToolbarStyle , @@ -182,9 +186,9 @@ ) where -import Prelude () 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 @@ -732,6 +736,7 @@ -- VVV Prop "icon-size" -- Type: TInterface "Gtk" "IconSize" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getToolbarIconSize :: (MonadIO m, ToolbarK o) => o -> m IconSize getToolbarIconSize obj = liftIO $ getObjectPropertyEnum obj "icon-size" @@ -752,10 +757,12 @@ attrGet _ = getToolbarIconSize attrSet _ = setToolbarIconSize attrConstruct _ = constructToolbarIconSize + attrClear _ = undefined -- VVV Prop "icon-size-set" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getToolbarIconSizeSet :: (MonadIO m, ToolbarK o) => o -> m Bool getToolbarIconSizeSet obj = liftIO $ getObjectPropertyBool obj "icon-size-set" @@ -776,10 +783,12 @@ attrGet _ = getToolbarIconSizeSet attrSet _ = setToolbarIconSizeSet attrConstruct _ = constructToolbarIconSizeSet + attrClear _ = undefined -- VVV Prop "show-arrow" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getToolbarShowArrow :: (MonadIO m, ToolbarK o) => o -> m Bool getToolbarShowArrow obj = liftIO $ getObjectPropertyBool obj "show-arrow" @@ -800,10 +809,12 @@ attrGet _ = getToolbarShowArrow attrSet _ = setToolbarShowArrow attrConstruct _ = constructToolbarShowArrow + attrClear _ = undefined -- VVV Prop "toolbar-style" -- Type: TInterface "Gtk" "ToolbarStyle" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getToolbarToolbarStyle :: (MonadIO m, ToolbarK o) => o -> m ToolbarStyle getToolbarToolbarStyle obj = liftIO $ getObjectPropertyEnum obj "toolbar-style" @@ -824,10 +835,23 @@ attrGet _ = getToolbarToolbarStyle attrSet _ = setToolbarToolbarStyle attrConstruct _ = constructToolbarToolbarStyle + attrClear _ = undefined type instance AttributeList Toolbar = ToolbarAttributeList type ToolbarAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("iconSize", ToolbarIconSizePropertyInfo), '("iconSizeSet", ToolbarIconSizeSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showArrow", ToolbarShowArrowPropertyInfo), '("style", WidgetStylePropertyInfo), '("toolbarStyle", ToolbarToolbarStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +toolbarIconSize :: AttrLabelProxy "iconSize" +toolbarIconSize = AttrLabelProxy + +toolbarIconSizeSet :: AttrLabelProxy "iconSizeSet" +toolbarIconSizeSet = AttrLabelProxy + +toolbarShowArrow :: AttrLabelProxy "showArrow" +toolbarShowArrow = AttrLabelProxy + +toolbarToolbarStyle :: AttrLabelProxy "toolbarStyle" +toolbarToolbarStyle = AttrLabelProxy + data ToolbarFocusHomeOrEndSignalInfo instance SignalInfo ToolbarFocusHomeOrEndSignalInfo where type HaskellCallbackType ToolbarFocusHomeOrEndSignalInfo = ToolbarFocusHomeOrEndCallback @@ -855,7 +879,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "Toolbar" +-- returnType : Just (TInterface "Gtk" "Toolbar") -- throws : False -- Skip return : False @@ -874,16 +898,16 @@ -- method Toolbar::get_drop_index -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Toolbar", 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 : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False foreign import ccall "gtk_toolbar_get_drop_index" gtk_toolbar_get_drop_index :: Ptr Toolbar -> -- _obj : TInterface "Gtk" "Toolbar" - Int32 -> -- x : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 + Int32 -> -- x : TBasicType TInt + Int32 -> -- y : TBasicType TInt IO Int32 @@ -907,7 +931,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "IconSize" +-- returnType : Just (TInterface "Gtk" "IconSize") -- throws : False -- Skip return : False @@ -935,7 +959,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -966,7 +990,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -991,15 +1015,15 @@ -- method Toolbar::get_nth_item -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "ToolItem" +-- returnType : Just (TInterface "Gtk" "ToolItem") -- throws : False -- Skip return : False foreign import ccall "gtk_toolbar_get_nth_item" gtk_toolbar_get_nth_item :: Ptr Toolbar -> -- _obj : TInterface "Gtk" "Toolbar" - Int32 -> -- n : TBasicType TInt32 + Int32 -> -- n : TBasicType TInt IO (Ptr ToolItem) @@ -1024,7 +1048,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "ReliefStyle" +-- returnType : Just (TInterface "Gtk" "ReliefStyle") -- throws : False -- Skip return : False @@ -1052,7 +1076,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1080,7 +1104,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "ToolbarStyle" +-- returnType : Just (TInterface "Gtk" "ToolbarStyle") -- throws : False -- Skip return : False @@ -1106,16 +1130,16 @@ -- method Toolbar::insert -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_toolbar_insert" gtk_toolbar_insert :: Ptr Toolbar -> -- _obj : TInterface "Gtk" "Toolbar" Ptr ToolItem -> -- item : TInterface "Gtk" "ToolItem" - Int32 -> -- pos : TBasicType TInt32 + Int32 -> -- pos : TBasicType TInt IO () @@ -1139,16 +1163,16 @@ -- method Toolbar::set_drop_highlight_item -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tool_item", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tool_item", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_toolbar_set_drop_highlight_item" gtk_toolbar_set_drop_highlight_item :: Ptr Toolbar -> -- _obj : TInterface "Gtk" "Toolbar" Ptr ToolItem -> -- tool_item : TInterface "Gtk" "ToolItem" - Int32 -> -- index_ : TBasicType TInt32 + Int32 -> -- index_ : TBasicType TInt IO () @@ -1156,16 +1180,16 @@ (MonadIO m, ToolbarK a, ToolItemK b) => a -- _obj -> Maybe (b) -- toolItem - -> Int32 -- index + -> Int32 -- index_ -> m () -- result -toolbarSetDropHighlightItem _obj toolItem index = liftIO $ do +toolbarSetDropHighlightItem _obj toolItem index_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeToolItem <- case toolItem of Nothing -> return nullPtr Just jToolItem -> do let jToolItem' = unsafeManagedPtrCastPtr jToolItem return jToolItem' - gtk_toolbar_set_drop_highlight_item _obj' maybeToolItem index + gtk_toolbar_set_drop_highlight_item _obj' maybeToolItem index_ touchManagedPtr _obj whenJust toolItem touchManagedPtr return () @@ -1178,7 +1202,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_size", argType = TInterface "Gtk" "IconSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1208,7 +1232,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "show_arrow", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1238,7 +1262,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "style", argType = TInterface "Gtk" "ToolbarStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1268,7 +1292,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1295,7 +1319,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/Toolbar.hs-boot b/GI/Gtk/Objects/Toolbar.hs-boot --- a/GI/Gtk/Objects/Toolbar.hs-boot +++ b/GI/Gtk/Objects/Toolbar.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.Toolbar where -import Prelude () 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 diff --git a/GI/Gtk/Objects/Tooltip.hs b/GI/Gtk/Objects/Tooltip.hs --- a/GI/Gtk/Objects/Tooltip.hs +++ b/GI/Gtk/Objects/Tooltip.hs @@ -65,9 +65,9 @@ ) where -import Prelude () 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 @@ -151,7 +151,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "custom_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -186,7 +186,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -219,16 +219,16 @@ -- method Tooltip::set_icon_from_gicon -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gicon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gicon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tooltip_set_icon_from_gicon" gtk_tooltip_set_icon_from_gicon :: Ptr Tooltip -> -- _obj : TInterface "Gtk" "Tooltip" Ptr Gio.Icon -> -- gicon : TInterface "Gio" "Icon" - Int32 -> -- size : TBasicType TInt32 + Int32 -> -- size : TBasicType TInt IO () @@ -256,16 +256,16 @@ -- method Tooltip::set_icon_from_icon_name -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Tooltip", 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},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Tooltip", 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},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tooltip_set_icon_from_icon_name" gtk_tooltip_set_icon_from_icon_name :: Ptr Tooltip -> -- _obj : TInterface "Gtk" "Tooltip" CString -> -- icon_name : TBasicType TUTF8 - Int32 -> -- size : TBasicType TInt32 + Int32 -> -- size : TBasicType TInt IO () @@ -293,16 +293,16 @@ -- method Tooltip::set_icon_from_stock -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tooltip_set_icon_from_stock" gtk_tooltip_set_icon_from_stock :: Ptr Tooltip -> -- _obj : TInterface "Gtk" "Tooltip" CString -> -- stock_id : TBasicType TUTF8 - Int32 -> -- size : TBasicType TInt32 + Int32 -> -- size : TBasicType TInt IO () {-# DEPRECATED tooltipSetIconFromStock ["(Since version 3.10)","Use gtk_tooltip_set_icon_from_icon_name() instead."]#-} @@ -332,7 +332,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -367,7 +367,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -402,7 +402,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -433,7 +433,7 @@ -- 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/Tooltip.hs-boot b/GI/Gtk/Objects/Tooltip.hs-boot --- a/GI/Gtk/Objects/Tooltip.hs-boot +++ b/GI/Gtk/Objects/Tooltip.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.Tooltip where -import Prelude () 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 diff --git a/GI/Gtk/Objects/ToplevelAccessible.hs b/GI/Gtk/Objects/ToplevelAccessible.hs --- a/GI/Gtk/Objects/ToplevelAccessible.hs +++ b/GI/Gtk/Objects/ToplevelAccessible.hs @@ -26,9 +26,9 @@ ) where -import Prelude () 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 @@ -126,7 +126,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "ToplevelAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TGList (TInterface "Gtk" "Window") +-- returnType : Just (TGList (TInterface "Gtk" "Window")) -- throws : False -- Skip return : False @@ -142,7 +142,6 @@ toplevelAccessibleGetChildren _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_toplevel_accessible_get_children _obj' - checkUnexpectedReturnNULL "gtk_toplevel_accessible_get_children" result result' <- unpackGList result result'' <- mapM (newObject Window) result' touchManagedPtr _obj diff --git a/GI/Gtk/Objects/ToplevelAccessible.hs-boot b/GI/Gtk/Objects/ToplevelAccessible.hs-boot --- a/GI/Gtk/Objects/ToplevelAccessible.hs-boot +++ b/GI/Gtk/Objects/ToplevelAccessible.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.ToplevelAccessible where -import Prelude () 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 diff --git a/GI/Gtk/Objects/TreeModelFilter.hs b/GI/Gtk/Objects/TreeModelFilter.hs --- a/GI/Gtk/Objects/TreeModelFilter.hs +++ b/GI/Gtk/Objects/TreeModelFilter.hs @@ -69,21 +69,23 @@ TreeModelFilterChildModelPropertyInfo , constructTreeModelFilterChildModel , getTreeModelFilterChildModel , + treeModelFilterChildModel , -- ** VirtualRoot TreeModelFilterVirtualRootPropertyInfo , constructTreeModelFilterVirtualRoot , getTreeModelFilterVirtualRoot , + treeModelFilterVirtualRoot , ) where -import Prelude () 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 @@ -188,48 +190,58 @@ -- VVV Prop "child-model" -- Type: TInterface "Gtk" "TreeModel" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + -- Nullable: (Nothing,Nothing) -getTreeModelFilterChildModel :: (MonadIO m, TreeModelFilterK o) => o -> m TreeModel +getTreeModelFilterChildModel :: (MonadIO m, TreeModelFilterK o) => o -> m (Maybe TreeModel) getTreeModelFilterChildModel obj = liftIO $ getObjectPropertyObject obj "child-model" TreeModel constructTreeModelFilterChildModel :: (TreeModelK a) => a -> IO ([Char], GValue) -constructTreeModelFilterChildModel val = constructObjectPropertyObject "child-model" val +constructTreeModelFilterChildModel val = constructObjectPropertyObject "child-model" (Just val) data TreeModelFilterChildModelPropertyInfo instance AttrInfo TreeModelFilterChildModelPropertyInfo where - type AttrAllowedOps TreeModelFilterChildModelPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrAllowedOps TreeModelFilterChildModelPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint TreeModelFilterChildModelPropertyInfo = TreeModelK type AttrBaseTypeConstraint TreeModelFilterChildModelPropertyInfo = TreeModelFilterK - type AttrGetType TreeModelFilterChildModelPropertyInfo = TreeModel + type AttrGetType TreeModelFilterChildModelPropertyInfo = (Maybe TreeModel) type AttrLabel TreeModelFilterChildModelPropertyInfo = "child-model" attrGet _ = getTreeModelFilterChildModel attrSet _ = undefined attrConstruct _ = constructTreeModelFilterChildModel + attrClear _ = undefined -- VVV Prop "virtual-root" -- Type: TInterface "Gtk" "TreePath" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + -- Nullable: (Nothing,Nothing) -getTreeModelFilterVirtualRoot :: (MonadIO m, TreeModelFilterK o) => o -> m TreePath +getTreeModelFilterVirtualRoot :: (MonadIO m, TreeModelFilterK o) => o -> m (Maybe TreePath) getTreeModelFilterVirtualRoot obj = liftIO $ getObjectPropertyBoxed obj "virtual-root" TreePath constructTreeModelFilterVirtualRoot :: TreePath -> IO ([Char], GValue) -constructTreeModelFilterVirtualRoot val = constructObjectPropertyBoxed "virtual-root" val +constructTreeModelFilterVirtualRoot val = constructObjectPropertyBoxed "virtual-root" (Just val) data TreeModelFilterVirtualRootPropertyInfo instance AttrInfo TreeModelFilterVirtualRootPropertyInfo where - type AttrAllowedOps TreeModelFilterVirtualRootPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrAllowedOps TreeModelFilterVirtualRootPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint TreeModelFilterVirtualRootPropertyInfo = (~) TreePath type AttrBaseTypeConstraint TreeModelFilterVirtualRootPropertyInfo = TreeModelFilterK - type AttrGetType TreeModelFilterVirtualRootPropertyInfo = TreePath + type AttrGetType TreeModelFilterVirtualRootPropertyInfo = (Maybe TreePath) type AttrLabel TreeModelFilterVirtualRootPropertyInfo = "virtual-root" attrGet _ = getTreeModelFilterVirtualRoot attrSet _ = undefined attrConstruct _ = constructTreeModelFilterVirtualRoot + attrClear _ = undefined type instance AttributeList TreeModelFilter = TreeModelFilterAttributeList type TreeModelFilterAttributeList = ('[ '("childModel", TreeModelFilterChildModelPropertyInfo), '("virtualRoot", TreeModelFilterVirtualRootPropertyInfo)] :: [(Symbol, *)]) +treeModelFilterChildModel :: AttrLabelProxy "childModel" +treeModelFilterChildModel = AttrLabelProxy + +treeModelFilterVirtualRoot :: AttrLabelProxy "virtualRoot" +treeModelFilterVirtualRoot = AttrLabelProxy + type instance SignalList TreeModelFilter = TreeModelFilterSignalList type TreeModelFilterSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("rowChanged", TreeModelRowChangedSignalInfo), '("rowDeleted", TreeModelRowDeletedSignalInfo), '("rowHasChildToggled", TreeModelRowHasChildToggledSignalInfo), '("rowInserted", TreeModelRowInsertedSignalInfo)] :: [(Symbol, *)]) @@ -237,7 +249,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -264,7 +276,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter_iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "child_iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -299,7 +311,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "TreePath" +-- returnType : Just (TInterface "Gtk" "TreePath") -- throws : False -- Skip return : False @@ -332,7 +344,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child_iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "filter_iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -366,7 +378,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "TreePath" +-- returnType : Just (TInterface "Gtk" "TreePath") -- throws : False -- Skip return : False @@ -399,7 +411,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "TreeModel" +-- returnType : Just (TInterface "Gtk" "TreeModel") -- throws : False -- Skip return : False @@ -428,7 +440,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -453,15 +465,15 @@ -- method TreeModelFilter::set_visible_column -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_model_filter_set_visible_column" gtk_tree_model_filter_set_visible_column :: Ptr TreeModelFilter -> -- _obj : TInterface "Gtk" "TreeModelFilter" - Int32 -> -- column : TBasicType TInt32 + Int32 -> -- column : TBasicType TInt IO () @@ -482,16 +494,16 @@ -- method TreeModelFilter::set_visible_func -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TreeModelFilterVisibleFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TreeModelFilterVisibleFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_model_filter_set_visible_func" gtk_tree_model_filter_set_visible_func :: Ptr TreeModelFilter -> -- _obj : TInterface "Gtk" "TreeModelFilter" FunPtr TreeModelFilterVisibleFuncC -> -- func : TInterface "Gtk" "TreeModelFilterVisibleFunc" - Ptr () -> -- data : TBasicType TVoid + Ptr () -> -- data : TBasicType TPtr FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" IO () diff --git a/GI/Gtk/Objects/TreeModelFilter.hs-boot b/GI/Gtk/Objects/TreeModelFilter.hs-boot --- a/GI/Gtk/Objects/TreeModelFilter.hs-boot +++ b/GI/Gtk/Objects/TreeModelFilter.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.TreeModelFilter where -import Prelude () 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 diff --git a/GI/Gtk/Objects/TreeModelSort.hs b/GI/Gtk/Objects/TreeModelSort.hs --- a/GI/Gtk/Objects/TreeModelSort.hs +++ b/GI/Gtk/Objects/TreeModelSort.hs @@ -64,15 +64,16 @@ TreeModelSortModelPropertyInfo , constructTreeModelSortModel , getTreeModelSortModel , + treeModelSortModel , ) where -import Prelude () 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 @@ -181,16 +182,17 @@ -- VVV Prop "model" -- Type: TInterface "Gtk" "TreeModel" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + -- Nullable: (Just False,Nothing) getTreeModelSortModel :: (MonadIO m, TreeModelSortK o) => o -> m TreeModel -getTreeModelSortModel obj = liftIO $ getObjectPropertyObject obj "model" TreeModel +getTreeModelSortModel obj = liftIO $ checkUnexpectedNothing "getTreeModelSortModel" $ getObjectPropertyObject obj "model" TreeModel constructTreeModelSortModel :: (TreeModelK a) => a -> IO ([Char], GValue) -constructTreeModelSortModel val = constructObjectPropertyObject "model" val +constructTreeModelSortModel val = constructObjectPropertyObject "model" (Just val) data TreeModelSortModelPropertyInfo instance AttrInfo TreeModelSortModelPropertyInfo where - type AttrAllowedOps TreeModelSortModelPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrAllowedOps TreeModelSortModelPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint TreeModelSortModelPropertyInfo = TreeModelK type AttrBaseTypeConstraint TreeModelSortModelPropertyInfo = TreeModelSortK type AttrGetType TreeModelSortModelPropertyInfo = TreeModel @@ -198,10 +200,14 @@ attrGet _ = getTreeModelSortModel attrSet _ = undefined attrConstruct _ = constructTreeModelSortModel + attrClear _ = undefined type instance AttributeList TreeModelSort = TreeModelSortAttributeList type TreeModelSortAttributeList = ('[ '("model", TreeModelSortModelPropertyInfo)] :: [(Symbol, *)]) +treeModelSortModel :: AttrLabelProxy "model" +treeModelSortModel = AttrLabelProxy + type instance SignalList TreeModelSort = TreeModelSortSignalList type TreeModelSortSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("rowChanged", TreeModelRowChangedSignalInfo), '("rowDeleted", TreeModelRowDeletedSignalInfo), '("rowHasChildToggled", TreeModelRowHasChildToggledSignalInfo), '("rowInserted", TreeModelRowInsertedSignalInfo), '("sortColumnChanged", TreeSortableSortColumnChangedSignalInfo)] :: [(Symbol, *)]) @@ -209,7 +215,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -236,7 +242,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "child_iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -271,7 +277,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "TreePath" +-- returnType : Just (TInterface "Gtk" "TreePath") -- throws : False -- Skip return : False @@ -304,7 +310,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child_iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "sorted_iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -338,7 +344,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sorted_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "TreePath" +-- returnType : Just (TInterface "Gtk" "TreePath") -- throws : False -- Skip return : False @@ -371,7 +377,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "TreeModel" +-- returnType : Just (TInterface "Gtk" "TreeModel") -- throws : False -- Skip return : False @@ -400,7 +406,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -432,7 +438,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/TreeModelSort.hs-boot b/GI/Gtk/Objects/TreeModelSort.hs-boot --- a/GI/Gtk/Objects/TreeModelSort.hs-boot +++ b/GI/Gtk/Objects/TreeModelSort.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.TreeModelSort where -import Prelude () 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 diff --git a/GI/Gtk/Objects/TreeSelection.hs b/GI/Gtk/Objects/TreeSelection.hs --- a/GI/Gtk/Objects/TreeSelection.hs +++ b/GI/Gtk/Objects/TreeSelection.hs @@ -115,6 +115,7 @@ constructTreeSelectionMode , getTreeSelectionMode , setTreeSelectionMode , + treeSelectionMode , @@ -136,9 +137,9 @@ ) where -import Prelude () 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 @@ -261,6 +262,7 @@ -- VVV Prop "mode" -- Type: TInterface "Gtk" "SelectionMode" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getTreeSelectionMode :: (MonadIO m, TreeSelectionK o) => o -> m SelectionMode getTreeSelectionMode obj = liftIO $ getObjectPropertyEnum obj "mode" @@ -281,10 +283,14 @@ attrGet _ = getTreeSelectionMode attrSet _ = setTreeSelectionMode attrConstruct _ = constructTreeSelectionMode + attrClear _ = undefined type instance AttributeList TreeSelection = TreeSelectionAttributeList type TreeSelectionAttributeList = ('[ '("mode", TreeSelectionModePropertyInfo)] :: [(Symbol, *)]) +treeSelectionMode :: AttrLabelProxy "mode" +treeSelectionMode = AttrLabelProxy + data TreeSelectionChangedSignalInfo instance SignalInfo TreeSelectionChangedSignalInfo where type HaskellCallbackType TreeSelectionChangedSignalInfo = TreeSelectionChangedCallback @@ -297,7 +303,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -324,7 +330,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "SelectionMode" +-- returnType : Just (TInterface "Gtk" "SelectionMode") -- throws : False -- Skip return : False @@ -352,7 +358,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -388,7 +394,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TGList (TInterface "Gtk" "TreePath") +-- returnType : Just (TGList (TInterface "Gtk" "TreePath")) -- throws : False -- Skip return : False @@ -406,7 +412,6 @@ let _obj' = unsafeManagedPtrCastPtr _obj model <- allocMem :: IO (Ptr (Ptr TreeModel)) result <- gtk_tree_selection_get_selected_rows _obj' model - checkUnexpectedReturnNULL "gtk_tree_selection_get_selected_rows" result result' <- unpackGList result result'' <- mapM (wrapBoxed TreePath) result' g_list_free result @@ -424,7 +429,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "TreeView" +-- returnType : Just (TInterface "Gtk" "TreeView") -- throws : False -- Skip return : False @@ -453,7 +458,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -485,7 +490,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -517,7 +522,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -544,7 +549,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -575,7 +580,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -606,7 +611,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -639,16 +644,16 @@ -- method TreeSelection::selected_foreach -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TreeSelectionForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TreeSelectionForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_selection_selected_foreach" gtk_tree_selection_selected_foreach :: Ptr TreeSelection -> -- _obj : TInterface "Gtk" "TreeSelection" FunPtr TreeSelectionForeachFuncC -> -- func : TInterface "Gtk" "TreeSelectionForeachFunc" - Ptr () -> -- data : TBasicType TVoid + Ptr () -> -- data : TBasicType TPtr IO () @@ -674,7 +679,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gtk" "SelectionMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -702,16 +707,16 @@ -- method TreeSelection::set_select_function -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TreeSelectionFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TreeSelectionFunc", 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 = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_selection_set_select_function" gtk_tree_selection_set_select_function :: Ptr TreeSelection -> -- _obj : TInterface "Gtk" "TreeSelection" FunPtr TreeSelectionFuncC -> -- func : TInterface "Gtk" "TreeSelectionFunc" - Ptr () -> -- data : TBasicType TVoid + Ptr () -> -- data : TBasicType TPtr FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" IO () @@ -738,7 +743,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -765,7 +770,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -796,7 +801,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -827,7 +832,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/TreeSelection.hs-boot b/GI/Gtk/Objects/TreeSelection.hs-boot --- a/GI/Gtk/Objects/TreeSelection.hs-boot +++ b/GI/Gtk/Objects/TreeSelection.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.TreeSelection where -import Prelude () 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 diff --git a/GI/Gtk/Objects/TreeStore.hs b/GI/Gtk/Objects/TreeStore.hs --- a/GI/Gtk/Objects/TreeStore.hs +++ b/GI/Gtk/Objects/TreeStore.hs @@ -110,9 +110,9 @@ ) where -import Prelude () 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 @@ -247,14 +247,14 @@ -- method TreeStore::new -- method type : Constructor --- Args : [Arg {argCName = "n_columns", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "types", argType = TCArray False (-1) 0 (TBasicType TGType), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "n_columns", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "TreeStore" +-- Args : [Arg {argCName = "n_columns", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "types", argType = TCArray False (-1) 0 (TBasicType TGType), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "n_columns", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- returnType : Just (TInterface "Gtk" "TreeStore") -- throws : False -- Skip return : False foreign import ccall "gtk_tree_store_newv" gtk_tree_store_newv :: - Int32 -> -- n_columns : TBasicType TInt32 + Int32 -> -- n_columns : TBasicType TInt Ptr CGType -> -- types : TCArray False (-1) 0 (TBasicType TGType) IO (Ptr TreeStore) @@ -276,7 +276,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -314,7 +314,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -339,9 +339,9 @@ -- method TreeStore::insert -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -349,7 +349,7 @@ Ptr TreeStore -> -- _obj : TInterface "Gtk" "TreeStore" Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" Ptr TreeIter -> -- parent : TInterface "Gtk" "TreeIter" - Int32 -> -- position : TBasicType TInt32 + Int32 -> -- position : TBasicType TInt IO () @@ -381,7 +381,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sibling", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -427,7 +427,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sibling", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -471,9 +471,9 @@ -- method TreeStore::insert_with_values -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "columns", argType = TCArray False (-1) 6 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "values", argType = TCArray False (-1) 6 (TInterface "GObject" "Value"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : TBasicType TVoid +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "columns", argType = TCArray False (-1) 6 (TBasicType TInt), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "values", argType = TCArray False (-1) 6 (TInterface "GObject" "Value"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_values", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "n_values", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_values", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- returnType : Nothing -- throws : False -- Skip return : False @@ -481,10 +481,10 @@ Ptr TreeStore -> -- _obj : TInterface "Gtk" "TreeStore" Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" Ptr TreeIter -> -- parent : TInterface "Gtk" "TreeIter" - Int32 -> -- position : TBasicType TInt32 - Ptr Int32 -> -- columns : TCArray False (-1) 6 (TBasicType TInt32) + Int32 -> -- position : TBasicType TInt + Ptr Int32 -> -- columns : TCArray False (-1) 6 (TBasicType TInt) Ptr GValue -> -- values : TCArray False (-1) 6 (TInterface "GObject" "Value") - Int32 -> -- n_values : TBasicType TInt32 + Int32 -> -- n_values : TBasicType TInt IO () @@ -528,7 +528,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "descendant", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -564,7 +564,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -595,7 +595,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -627,7 +627,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -666,7 +666,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -705,7 +705,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -743,7 +743,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -773,15 +773,15 @@ -- method TreeStore::set_column_types -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_columns", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "types", argType = TCArray False (-1) 1 (TBasicType TGType), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "n_columns", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : TBasicType TVoid +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_columns", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "types", argType = TCArray False (-1) 1 (TBasicType TGType), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "n_columns", 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 "gtk_tree_store_set_column_types" gtk_tree_store_set_column_types :: Ptr TreeStore -> -- _obj : TInterface "Gtk" "TreeStore" - Int32 -> -- n_columns : TBasicType TInt32 + Int32 -> -- n_columns : TBasicType TInt Ptr CGType -> -- types : TCArray False (-1) 1 (TBasicType TGType) IO () @@ -806,16 +806,16 @@ -- method TreeStore::set_value -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt32, 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}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt, 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_store_set_value" gtk_tree_store_set_value :: Ptr TreeStore -> -- _obj : TInterface "Gtk" "TreeStore" Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - Int32 -> -- column : TBasicType TInt32 + Int32 -> -- column : TBasicType TInt Ptr GValue -> -- value : TInterface "GObject" "Value" IO () @@ -843,18 +843,18 @@ -- method TreeStore::set -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "columns", argType = TCArray False (-1) 4 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "values", argType = TCArray False (-1) 4 (TInterface "GObject" "Value"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : TBasicType TVoid +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "columns", argType = TCArray False (-1) 4 (TBasicType TInt), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "values", argType = TCArray False (-1) 4 (TInterface "GObject" "Value"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_values", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "n_values", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_values", 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 "gtk_tree_store_set_valuesv" gtk_tree_store_set_valuesv :: Ptr TreeStore -> -- _obj : TInterface "Gtk" "TreeStore" Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" - Ptr Int32 -> -- columns : TCArray False (-1) 4 (TBasicType TInt32) + Ptr Int32 -> -- columns : TCArray False (-1) 4 (TBasicType TInt) Ptr GValue -> -- values : TCArray False (-1) 4 (TInterface "GObject" "Value") - Int32 -> -- n_values : TBasicType TInt32 + Int32 -> -- n_values : TBasicType TInt IO () @@ -891,7 +891,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "a", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "b", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/TreeStore.hs-boot b/GI/Gtk/Objects/TreeStore.hs-boot --- a/GI/Gtk/Objects/TreeStore.hs-boot +++ b/GI/Gtk/Objects/TreeStore.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.TreeStore where -import Prelude () 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 diff --git a/GI/Gtk/Objects/TreeView.hs b/GI/Gtk/Objects/TreeView.hs --- a/GI/Gtk/Objects/TreeView.hs +++ b/GI/Gtk/Objects/TreeView.hs @@ -508,6 +508,7 @@ constructTreeViewActivateOnSingleClick , getTreeViewActivateOnSingleClick , setTreeViewActivateOnSingleClick , + treeViewActivateOnSingleClick , -- ** EnableGridLines @@ -515,6 +516,7 @@ constructTreeViewEnableGridLines , getTreeViewEnableGridLines , setTreeViewEnableGridLines , + treeViewEnableGridLines , -- ** EnableSearch @@ -522,6 +524,7 @@ constructTreeViewEnableSearch , getTreeViewEnableSearch , setTreeViewEnableSearch , + treeViewEnableSearch , -- ** EnableTreeLines @@ -529,6 +532,7 @@ constructTreeViewEnableTreeLines , getTreeViewEnableTreeLines , setTreeViewEnableTreeLines , + treeViewEnableTreeLines , -- ** ExpanderColumn @@ -536,6 +540,7 @@ constructTreeViewExpanderColumn , getTreeViewExpanderColumn , setTreeViewExpanderColumn , + treeViewExpanderColumn , -- ** FixedHeightMode @@ -543,6 +548,7 @@ constructTreeViewFixedHeightMode , getTreeViewFixedHeightMode , setTreeViewFixedHeightMode , + treeViewFixedHeightMode , -- ** HeadersClickable @@ -550,6 +556,7 @@ constructTreeViewHeadersClickable , getTreeViewHeadersClickable , setTreeViewHeadersClickable , + treeViewHeadersClickable , -- ** HeadersVisible @@ -557,6 +564,7 @@ constructTreeViewHeadersVisible , getTreeViewHeadersVisible , setTreeViewHeadersVisible , + treeViewHeadersVisible , -- ** HoverExpand @@ -564,6 +572,7 @@ constructTreeViewHoverExpand , getTreeViewHoverExpand , setTreeViewHoverExpand , + treeViewHoverExpand , -- ** HoverSelection @@ -571,6 +580,7 @@ constructTreeViewHoverSelection , getTreeViewHoverSelection , setTreeViewHoverSelection , + treeViewHoverSelection , -- ** LevelIndentation @@ -578,13 +588,16 @@ constructTreeViewLevelIndentation , getTreeViewLevelIndentation , setTreeViewLevelIndentation , + treeViewLevelIndentation , -- ** Model TreeViewModelPropertyInfo , + clearTreeViewModel , constructTreeViewModel , getTreeViewModel , setTreeViewModel , + treeViewModel , -- ** Reorderable @@ -592,6 +605,7 @@ constructTreeViewReorderable , getTreeViewReorderable , setTreeViewReorderable , + treeViewReorderable , -- ** RubberBanding @@ -599,6 +613,7 @@ constructTreeViewRubberBanding , getTreeViewRubberBanding , setTreeViewRubberBanding , + treeViewRubberBanding , -- ** RulesHint @@ -606,6 +621,7 @@ constructTreeViewRulesHint , getTreeViewRulesHint , setTreeViewRulesHint , + treeViewRulesHint , -- ** SearchColumn @@ -613,6 +629,7 @@ constructTreeViewSearchColumn , getTreeViewSearchColumn , setTreeViewSearchColumn , + treeViewSearchColumn , -- ** ShowExpanders @@ -620,6 +637,7 @@ constructTreeViewShowExpanders , getTreeViewShowExpanders , setTreeViewShowExpanders , + treeViewShowExpanders , -- ** TooltipColumn @@ -627,6 +645,7 @@ constructTreeViewTooltipColumn , getTreeViewTooltipColumn , setTreeViewTooltipColumn , + treeViewTooltipColumn , @@ -816,9 +835,9 @@ ) where -import Prelude () 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 @@ -1926,6 +1945,7 @@ -- VVV Prop "activate-on-single-click" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getTreeViewActivateOnSingleClick :: (MonadIO m, TreeViewK o) => o -> m Bool getTreeViewActivateOnSingleClick obj = liftIO $ getObjectPropertyBool obj "activate-on-single-click" @@ -1946,10 +1966,12 @@ attrGet _ = getTreeViewActivateOnSingleClick attrSet _ = setTreeViewActivateOnSingleClick attrConstruct _ = constructTreeViewActivateOnSingleClick + attrClear _ = undefined -- VVV Prop "enable-grid-lines" -- Type: TInterface "Gtk" "TreeViewGridLines" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getTreeViewEnableGridLines :: (MonadIO m, TreeViewK o) => o -> m TreeViewGridLines getTreeViewEnableGridLines obj = liftIO $ getObjectPropertyEnum obj "enable-grid-lines" @@ -1970,10 +1992,12 @@ attrGet _ = getTreeViewEnableGridLines attrSet _ = setTreeViewEnableGridLines attrConstruct _ = constructTreeViewEnableGridLines + attrClear _ = undefined -- VVV Prop "enable-search" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getTreeViewEnableSearch :: (MonadIO m, TreeViewK o) => o -> m Bool getTreeViewEnableSearch obj = liftIO $ getObjectPropertyBool obj "enable-search" @@ -1994,10 +2018,12 @@ attrGet _ = getTreeViewEnableSearch attrSet _ = setTreeViewEnableSearch attrConstruct _ = constructTreeViewEnableSearch + attrClear _ = undefined -- VVV Prop "enable-tree-lines" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getTreeViewEnableTreeLines :: (MonadIO m, TreeViewK o) => o -> m Bool getTreeViewEnableTreeLines obj = liftIO $ getObjectPropertyBool obj "enable-tree-lines" @@ -2018,19 +2044,21 @@ attrGet _ = getTreeViewEnableTreeLines attrSet _ = setTreeViewEnableTreeLines attrConstruct _ = constructTreeViewEnableTreeLines + attrClear _ = undefined -- VVV Prop "expander-column" -- Type: TInterface "Gtk" "TreeViewColumn" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getTreeViewExpanderColumn :: (MonadIO m, TreeViewK o) => o -> m TreeViewColumn -getTreeViewExpanderColumn obj = liftIO $ getObjectPropertyObject obj "expander-column" TreeViewColumn +getTreeViewExpanderColumn obj = liftIO $ checkUnexpectedNothing "getTreeViewExpanderColumn" $ getObjectPropertyObject obj "expander-column" TreeViewColumn setTreeViewExpanderColumn :: (MonadIO m, TreeViewK o, TreeViewColumnK a) => o -> a -> m () -setTreeViewExpanderColumn obj val = liftIO $ setObjectPropertyObject obj "expander-column" val +setTreeViewExpanderColumn obj val = liftIO $ setObjectPropertyObject obj "expander-column" (Just val) constructTreeViewExpanderColumn :: (TreeViewColumnK a) => a -> IO ([Char], GValue) -constructTreeViewExpanderColumn val = constructObjectPropertyObject "expander-column" val +constructTreeViewExpanderColumn val = constructObjectPropertyObject "expander-column" (Just val) data TreeViewExpanderColumnPropertyInfo instance AttrInfo TreeViewExpanderColumnPropertyInfo where @@ -2042,10 +2070,12 @@ attrGet _ = getTreeViewExpanderColumn attrSet _ = setTreeViewExpanderColumn attrConstruct _ = constructTreeViewExpanderColumn + attrClear _ = undefined -- VVV Prop "fixed-height-mode" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getTreeViewFixedHeightMode :: (MonadIO m, TreeViewK o) => o -> m Bool getTreeViewFixedHeightMode obj = liftIO $ getObjectPropertyBool obj "fixed-height-mode" @@ -2066,10 +2096,12 @@ attrGet _ = getTreeViewFixedHeightMode attrSet _ = setTreeViewFixedHeightMode attrConstruct _ = constructTreeViewFixedHeightMode + attrClear _ = undefined -- VVV Prop "headers-clickable" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getTreeViewHeadersClickable :: (MonadIO m, TreeViewK o) => o -> m Bool getTreeViewHeadersClickable obj = liftIO $ getObjectPropertyBool obj "headers-clickable" @@ -2090,10 +2122,12 @@ attrGet _ = getTreeViewHeadersClickable attrSet _ = setTreeViewHeadersClickable attrConstruct _ = constructTreeViewHeadersClickable + attrClear _ = undefined -- VVV Prop "headers-visible" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getTreeViewHeadersVisible :: (MonadIO m, TreeViewK o) => o -> m Bool getTreeViewHeadersVisible obj = liftIO $ getObjectPropertyBool obj "headers-visible" @@ -2114,10 +2148,12 @@ attrGet _ = getTreeViewHeadersVisible attrSet _ = setTreeViewHeadersVisible attrConstruct _ = constructTreeViewHeadersVisible + attrClear _ = undefined -- VVV Prop "hover-expand" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getTreeViewHoverExpand :: (MonadIO m, TreeViewK o) => o -> m Bool getTreeViewHoverExpand obj = liftIO $ getObjectPropertyBool obj "hover-expand" @@ -2138,10 +2174,12 @@ attrGet _ = getTreeViewHoverExpand attrSet _ = setTreeViewHoverExpand attrConstruct _ = constructTreeViewHoverExpand + attrClear _ = undefined -- VVV Prop "hover-selection" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getTreeViewHoverSelection :: (MonadIO m, TreeViewK o) => o -> m Bool getTreeViewHoverSelection obj = liftIO $ getObjectPropertyBool obj "hover-selection" @@ -2162,19 +2200,21 @@ attrGet _ = getTreeViewHoverSelection attrSet _ = setTreeViewHoverSelection attrConstruct _ = constructTreeViewHoverSelection + attrClear _ = undefined -- VVV Prop "level-indentation" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getTreeViewLevelIndentation :: (MonadIO m, TreeViewK o) => o -> m Int32 -getTreeViewLevelIndentation obj = liftIO $ getObjectPropertyCInt obj "level-indentation" +getTreeViewLevelIndentation obj = liftIO $ getObjectPropertyInt32 obj "level-indentation" setTreeViewLevelIndentation :: (MonadIO m, TreeViewK o) => o -> Int32 -> m () -setTreeViewLevelIndentation obj val = liftIO $ setObjectPropertyCInt obj "level-indentation" val +setTreeViewLevelIndentation obj val = liftIO $ setObjectPropertyInt32 obj "level-indentation" val constructTreeViewLevelIndentation :: Int32 -> IO ([Char], GValue) -constructTreeViewLevelIndentation val = constructObjectPropertyCInt "level-indentation" val +constructTreeViewLevelIndentation val = constructObjectPropertyInt32 "level-indentation" val data TreeViewLevelIndentationPropertyInfo instance AttrInfo TreeViewLevelIndentationPropertyInfo where @@ -2186,34 +2226,41 @@ attrGet _ = getTreeViewLevelIndentation attrSet _ = setTreeViewLevelIndentation attrConstruct _ = constructTreeViewLevelIndentation + attrClear _ = undefined -- VVV Prop "model" -- Type: TInterface "Gtk" "TreeModel" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just True,Just True) -getTreeViewModel :: (MonadIO m, TreeViewK o) => o -> m TreeModel +getTreeViewModel :: (MonadIO m, TreeViewK o) => o -> m (Maybe TreeModel) getTreeViewModel obj = liftIO $ getObjectPropertyObject obj "model" TreeModel setTreeViewModel :: (MonadIO m, TreeViewK o, TreeModelK a) => o -> a -> m () -setTreeViewModel obj val = liftIO $ setObjectPropertyObject obj "model" val +setTreeViewModel obj val = liftIO $ setObjectPropertyObject obj "model" (Just val) constructTreeViewModel :: (TreeModelK a) => a -> IO ([Char], GValue) -constructTreeViewModel val = constructObjectPropertyObject "model" val +constructTreeViewModel val = constructObjectPropertyObject "model" (Just val) +clearTreeViewModel :: (MonadIO m, TreeViewK o) => o -> m () +clearTreeViewModel obj = liftIO $ setObjectPropertyObject obj "model" (Nothing :: Maybe TreeModel) + data TreeViewModelPropertyInfo instance AttrInfo TreeViewModelPropertyInfo where - type AttrAllowedOps TreeViewModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps TreeViewModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint TreeViewModelPropertyInfo = TreeModelK type AttrBaseTypeConstraint TreeViewModelPropertyInfo = TreeViewK - type AttrGetType TreeViewModelPropertyInfo = TreeModel + type AttrGetType TreeViewModelPropertyInfo = (Maybe TreeModel) type AttrLabel TreeViewModelPropertyInfo = "model" attrGet _ = getTreeViewModel attrSet _ = setTreeViewModel attrConstruct _ = constructTreeViewModel + attrClear _ = clearTreeViewModel -- VVV Prop "reorderable" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getTreeViewReorderable :: (MonadIO m, TreeViewK o) => o -> m Bool getTreeViewReorderable obj = liftIO $ getObjectPropertyBool obj "reorderable" @@ -2234,10 +2281,12 @@ attrGet _ = getTreeViewReorderable attrSet _ = setTreeViewReorderable attrConstruct _ = constructTreeViewReorderable + attrClear _ = undefined -- VVV Prop "rubber-banding" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getTreeViewRubberBanding :: (MonadIO m, TreeViewK o) => o -> m Bool getTreeViewRubberBanding obj = liftIO $ getObjectPropertyBool obj "rubber-banding" @@ -2258,10 +2307,12 @@ attrGet _ = getTreeViewRubberBanding attrSet _ = setTreeViewRubberBanding attrConstruct _ = constructTreeViewRubberBanding + attrClear _ = undefined -- VVV Prop "rules-hint" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getTreeViewRulesHint :: (MonadIO m, TreeViewK o) => o -> m Bool getTreeViewRulesHint obj = liftIO $ getObjectPropertyBool obj "rules-hint" @@ -2282,19 +2333,21 @@ attrGet _ = getTreeViewRulesHint attrSet _ = setTreeViewRulesHint attrConstruct _ = constructTreeViewRulesHint + attrClear _ = undefined -- VVV Prop "search-column" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getTreeViewSearchColumn :: (MonadIO m, TreeViewK o) => o -> m Int32 -getTreeViewSearchColumn obj = liftIO $ getObjectPropertyCInt obj "search-column" +getTreeViewSearchColumn obj = liftIO $ getObjectPropertyInt32 obj "search-column" setTreeViewSearchColumn :: (MonadIO m, TreeViewK o) => o -> Int32 -> m () -setTreeViewSearchColumn obj val = liftIO $ setObjectPropertyCInt obj "search-column" val +setTreeViewSearchColumn obj val = liftIO $ setObjectPropertyInt32 obj "search-column" val constructTreeViewSearchColumn :: Int32 -> IO ([Char], GValue) -constructTreeViewSearchColumn val = constructObjectPropertyCInt "search-column" val +constructTreeViewSearchColumn val = constructObjectPropertyInt32 "search-column" val data TreeViewSearchColumnPropertyInfo instance AttrInfo TreeViewSearchColumnPropertyInfo where @@ -2306,10 +2359,12 @@ attrGet _ = getTreeViewSearchColumn attrSet _ = setTreeViewSearchColumn attrConstruct _ = constructTreeViewSearchColumn + attrClear _ = undefined -- VVV Prop "show-expanders" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getTreeViewShowExpanders :: (MonadIO m, TreeViewK o) => o -> m Bool getTreeViewShowExpanders obj = liftIO $ getObjectPropertyBool obj "show-expanders" @@ -2330,19 +2385,21 @@ attrGet _ = getTreeViewShowExpanders attrSet _ = setTreeViewShowExpanders attrConstruct _ = constructTreeViewShowExpanders + attrClear _ = undefined -- VVV Prop "tooltip-column" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getTreeViewTooltipColumn :: (MonadIO m, TreeViewK o) => o -> m Int32 -getTreeViewTooltipColumn obj = liftIO $ getObjectPropertyCInt obj "tooltip-column" +getTreeViewTooltipColumn obj = liftIO $ getObjectPropertyInt32 obj "tooltip-column" setTreeViewTooltipColumn :: (MonadIO m, TreeViewK o) => o -> Int32 -> m () -setTreeViewTooltipColumn obj val = liftIO $ setObjectPropertyCInt obj "tooltip-column" val +setTreeViewTooltipColumn obj val = liftIO $ setObjectPropertyInt32 obj "tooltip-column" val constructTreeViewTooltipColumn :: Int32 -> IO ([Char], GValue) -constructTreeViewTooltipColumn val = constructObjectPropertyCInt "tooltip-column" val +constructTreeViewTooltipColumn val = constructObjectPropertyInt32 "tooltip-column" val data TreeViewTooltipColumnPropertyInfo instance AttrInfo TreeViewTooltipColumnPropertyInfo where @@ -2354,10 +2411,65 @@ attrGet _ = getTreeViewTooltipColumn attrSet _ = setTreeViewTooltipColumn attrConstruct _ = constructTreeViewTooltipColumn + attrClear _ = undefined type instance AttributeList TreeView = TreeViewAttributeList type TreeViewAttributeList = ('[ '("activateOnSingleClick", TreeViewActivateOnSingleClickPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("enableGridLines", TreeViewEnableGridLinesPropertyInfo), '("enableSearch", TreeViewEnableSearchPropertyInfo), '("enableTreeLines", TreeViewEnableTreeLinesPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("expanderColumn", TreeViewExpanderColumnPropertyInfo), '("fixedHeightMode", TreeViewFixedHeightModePropertyInfo), '("hadjustment", ScrollableHadjustmentPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("headersClickable", TreeViewHeadersClickablePropertyInfo), '("headersVisible", TreeViewHeadersVisiblePropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hoverExpand", TreeViewHoverExpandPropertyInfo), '("hoverSelection", TreeViewHoverSelectionPropertyInfo), '("hscrollPolicy", ScrollableHscrollPolicyPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("levelIndentation", TreeViewLevelIndentationPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("model", TreeViewModelPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("reorderable", TreeViewReorderablePropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("rubberBanding", TreeViewRubberBandingPropertyInfo), '("rulesHint", TreeViewRulesHintPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("searchColumn", TreeViewSearchColumnPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("showExpanders", TreeViewShowExpandersPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipColumn", TreeViewTooltipColumnPropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("vadjustment", ScrollableVadjustmentPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("vscrollPolicy", ScrollableVscrollPolicyPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +treeViewActivateOnSingleClick :: AttrLabelProxy "activateOnSingleClick" +treeViewActivateOnSingleClick = AttrLabelProxy + +treeViewEnableGridLines :: AttrLabelProxy "enableGridLines" +treeViewEnableGridLines = AttrLabelProxy + +treeViewEnableSearch :: AttrLabelProxy "enableSearch" +treeViewEnableSearch = AttrLabelProxy + +treeViewEnableTreeLines :: AttrLabelProxy "enableTreeLines" +treeViewEnableTreeLines = AttrLabelProxy + +treeViewExpanderColumn :: AttrLabelProxy "expanderColumn" +treeViewExpanderColumn = AttrLabelProxy + +treeViewFixedHeightMode :: AttrLabelProxy "fixedHeightMode" +treeViewFixedHeightMode = AttrLabelProxy + +treeViewHeadersClickable :: AttrLabelProxy "headersClickable" +treeViewHeadersClickable = AttrLabelProxy + +treeViewHeadersVisible :: AttrLabelProxy "headersVisible" +treeViewHeadersVisible = AttrLabelProxy + +treeViewHoverExpand :: AttrLabelProxy "hoverExpand" +treeViewHoverExpand = AttrLabelProxy + +treeViewHoverSelection :: AttrLabelProxy "hoverSelection" +treeViewHoverSelection = AttrLabelProxy + +treeViewLevelIndentation :: AttrLabelProxy "levelIndentation" +treeViewLevelIndentation = AttrLabelProxy + +treeViewModel :: AttrLabelProxy "model" +treeViewModel = AttrLabelProxy + +treeViewReorderable :: AttrLabelProxy "reorderable" +treeViewReorderable = AttrLabelProxy + +treeViewRubberBanding :: AttrLabelProxy "rubberBanding" +treeViewRubberBanding = AttrLabelProxy + +treeViewRulesHint :: AttrLabelProxy "rulesHint" +treeViewRulesHint = AttrLabelProxy + +treeViewSearchColumn :: AttrLabelProxy "searchColumn" +treeViewSearchColumn = AttrLabelProxy + +treeViewShowExpanders :: AttrLabelProxy "showExpanders" +treeViewShowExpanders = AttrLabelProxy + +treeViewTooltipColumn :: AttrLabelProxy "tooltipColumn" +treeViewTooltipColumn = AttrLabelProxy + data TreeViewColumnsChangedSignalInfo instance SignalInfo TreeViewColumnsChangedSignalInfo where type HaskellCallbackType TreeViewColumnsChangedSignalInfo = TreeViewColumnsChangedCallback @@ -2440,7 +2552,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "TreeView" +-- returnType : Just (TInterface "Gtk" "TreeView") -- throws : False -- Skip return : False @@ -2461,7 +2573,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "TreeView" +-- returnType : Just (TInterface "Gtk" "TreeView") -- throws : False -- Skip return : False @@ -2486,7 +2598,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -2517,7 +2629,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2544,7 +2656,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2576,7 +2688,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2601,18 +2713,18 @@ -- method TreeView::convert_bin_window_to_tree_coords -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "by", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tx", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "ty", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bx", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "by", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tx", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "ty", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_convert_bin_window_to_tree_coords" gtk_tree_view_convert_bin_window_to_tree_coords :: Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Int32 -> -- bx : TBasicType TInt32 - Int32 -> -- by : TBasicType TInt32 - Ptr Int32 -> -- tx : TBasicType TInt32 - Ptr Int32 -> -- ty : TBasicType TInt32 + Int32 -> -- bx : TBasicType TInt + Int32 -> -- by : TBasicType TInt + Ptr Int32 -> -- tx : TBasicType TInt + Ptr Int32 -> -- ty : TBasicType TInt IO () @@ -2640,18 +2752,18 @@ -- method TreeView::convert_bin_window_to_widget_coords -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "by", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wx", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "wy", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bx", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "by", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wx", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "wy", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_convert_bin_window_to_widget_coords" gtk_tree_view_convert_bin_window_to_widget_coords :: Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Int32 -> -- bx : TBasicType TInt32 - Int32 -> -- by : TBasicType TInt32 - Ptr Int32 -> -- wx : TBasicType TInt32 - Ptr Int32 -> -- wy : TBasicType TInt32 + Int32 -> -- bx : TBasicType TInt + Int32 -> -- by : TBasicType TInt + Ptr Int32 -> -- wx : TBasicType TInt + Ptr Int32 -> -- wy : TBasicType TInt IO () @@ -2679,18 +2791,18 @@ -- method TreeView::convert_tree_to_bin_window_coords -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ty", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bx", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "by", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tx", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ty", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bx", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "by", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_convert_tree_to_bin_window_coords" gtk_tree_view_convert_tree_to_bin_window_coords :: Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Int32 -> -- tx : TBasicType TInt32 - Int32 -> -- ty : TBasicType TInt32 - Ptr Int32 -> -- bx : TBasicType TInt32 - Ptr Int32 -> -- by : TBasicType TInt32 + Int32 -> -- tx : TBasicType TInt + Int32 -> -- ty : TBasicType TInt + Ptr Int32 -> -- bx : TBasicType TInt + Ptr Int32 -> -- by : TBasicType TInt IO () @@ -2718,18 +2830,18 @@ -- method TreeView::convert_tree_to_widget_coords -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ty", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wx", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "wy", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tx", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ty", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wx", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "wy", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_convert_tree_to_widget_coords" gtk_tree_view_convert_tree_to_widget_coords :: Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Int32 -> -- tx : TBasicType TInt32 - Int32 -> -- ty : TBasicType TInt32 - Ptr Int32 -> -- wx : TBasicType TInt32 - Ptr Int32 -> -- wy : TBasicType TInt32 + Int32 -> -- tx : TBasicType TInt + Int32 -> -- ty : TBasicType TInt + Ptr Int32 -> -- wx : TBasicType TInt + Ptr Int32 -> -- wy : TBasicType TInt IO () @@ -2757,18 +2869,18 @@ -- method TreeView::convert_widget_to_bin_window_coords -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wy", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bx", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "by", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wx", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wy", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bx", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "by", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_convert_widget_to_bin_window_coords" gtk_tree_view_convert_widget_to_bin_window_coords :: Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Int32 -> -- wx : TBasicType TInt32 - Int32 -> -- wy : TBasicType TInt32 - Ptr Int32 -> -- bx : TBasicType TInt32 - Ptr Int32 -> -- by : TBasicType TInt32 + Int32 -> -- wx : TBasicType TInt + Int32 -> -- wy : TBasicType TInt + Ptr Int32 -> -- bx : TBasicType TInt + Ptr Int32 -> -- by : TBasicType TInt IO () @@ -2796,18 +2908,18 @@ -- method TreeView::convert_widget_to_tree_coords -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wy", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tx", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "ty", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wx", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wy", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tx", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "ty", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_convert_widget_to_tree_coords" gtk_tree_view_convert_widget_to_tree_coords :: Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Int32 -> -- wx : TBasicType TInt32 - Int32 -> -- wy : TBasicType TInt32 - Ptr Int32 -> -- tx : TBasicType TInt32 - Ptr Int32 -> -- ty : TBasicType TInt32 + Int32 -> -- wx : TBasicType TInt + Int32 -> -- wy : TBasicType TInt + Ptr Int32 -> -- tx : TBasicType TInt + Ptr Int32 -> -- ty : TBasicType TInt IO () @@ -2837,7 +2949,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "cairo" "Surface" +-- returnType : Just (TInterface "cairo" "Surface") -- throws : False -- Skip return : False @@ -2868,16 +2980,16 @@ -- method TreeView::enable_model_drag_dest -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TCArray False (-1) 2 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : TBasicType TVoid +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TCArray False (-1) 2 (TInterface "Gtk" "TargetEntry"), 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},Arg {argCName = "actions", argType = TInterface "Gdk" "DragAction", 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 "gtk_tree_view_enable_model_drag_dest" gtk_tree_view_enable_model_drag_dest :: Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" Ptr TargetEntry -> -- targets : TCArray False (-1) 2 (TInterface "Gtk" "TargetEntry") - Int32 -> -- n_targets : TBasicType TInt32 + Int32 -> -- n_targets : TBasicType TInt CUInt -> -- actions : TInterface "Gdk" "DragAction" IO () @@ -2906,9 +3018,9 @@ -- method TreeView::enable_model_drag_source -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_button_mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : TBasicType TVoid +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_button_mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry"), 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},Arg {argCName = "actions", argType = TInterface "Gdk" "DragAction", 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 @@ -2916,7 +3028,7 @@ Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" CUInt -> -- start_button_mask : TInterface "Gdk" "ModifierType" Ptr TargetEntry -> -- targets : TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry") - Int32 -> -- n_targets : TBasicType TInt32 + Int32 -> -- n_targets : TBasicType TInt CUInt -> -- actions : TInterface "Gdk" "DragAction" IO () @@ -2949,7 +3061,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2976,7 +3088,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "open_all", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3011,7 +3123,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3042,7 +3154,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3070,7 +3182,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = True, 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3116,7 +3228,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gdk" "Window" +-- returnType : Just (TInterface "Gdk" "Window") -- throws : False -- Skip return : False @@ -3145,7 +3257,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = True, 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3189,15 +3301,15 @@ -- method TreeView::get_column -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "TreeViewColumn" +-- returnType : Just (TInterface "Gtk" "TreeViewColumn") -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_get_column" gtk_tree_view_get_column :: Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Int32 -> -- n : TBasicType TInt32 + Int32 -> -- n : TBasicType TInt IO (Ptr TreeViewColumn) @@ -3222,7 +3334,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TGList (TInterface "Gtk" "TreeViewColumn") +-- returnType : Just (TGList (TInterface "Gtk" "TreeViewColumn")) -- throws : False -- Skip return : False @@ -3238,7 +3350,6 @@ treeViewGetColumns _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tree_view_get_columns _obj' - checkUnexpectedReturnNULL "gtk_tree_view_get_columns" result result' <- unpackGList result result'' <- mapM (newObject TreeViewColumn) result' g_list_free result @@ -3253,7 +3364,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "focus_column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3292,16 +3403,16 @@ -- method TreeView::get_dest_row_at_pos -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "drag_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "drag_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "pos", argType = TInterface "Gtk" "TreeViewDropPosition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "drag_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "drag_y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "pos", argType = TInterface "Gtk" "TreeViewDropPosition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_get_dest_row_at_pos" gtk_tree_view_get_dest_row_at_pos :: Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Int32 -> -- drag_x : TBasicType TInt32 - Int32 -> -- drag_y : TBasicType TInt32 + Int32 -> -- drag_x : TBasicType TInt + Int32 -> -- drag_y : TBasicType TInt Ptr (Ptr TreePath) -> -- path : TInterface "Gtk" "TreePath" Ptr CUInt -> -- pos : TInterface "Gtk" "TreeViewDropPosition" IO CInt @@ -3338,7 +3449,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "pos", argType = TInterface "Gtk" "TreeViewDropPosition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3377,7 +3488,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3405,7 +3516,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3433,7 +3544,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "TreeViewColumn" +-- returnType : Just (TInterface "Gtk" "TreeViewColumn") -- throws : False -- Skip return : False @@ -3462,7 +3573,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3490,7 +3601,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "TreeViewGridLines" +-- returnType : Just (TInterface "Gtk" "TreeViewGridLines") -- throws : False -- Skip return : False @@ -3518,7 +3629,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Adjustment" +-- returnType : Just (TInterface "Gtk" "Adjustment") -- throws : False -- Skip return : False @@ -3547,7 +3658,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3575,7 +3686,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3603,7 +3714,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3631,7 +3742,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3659,7 +3770,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -3686,7 +3797,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "TreeModel" +-- returnType : Just (TInterface "Gtk" "TreeModel") -- throws : False -- Skip return : False @@ -3698,24 +3809,25 @@ treeViewGetModel :: (MonadIO m, TreeViewK a) => a -- _obj - -> m TreeModel -- result + -> m (Maybe TreeModel) -- result treeViewGetModel _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tree_view_get_model _obj' - checkUnexpectedReturnNULL "gtk_tree_view_get_model" result - result' <- (newObject TreeModel) result + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (newObject TreeModel) result' + return result'' touchManagedPtr _obj - return result' + return maybeResult data TreeViewGetModelMethodInfo -instance (signature ~ (m TreeModel), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetModelMethodInfo a signature where +instance (signature ~ (m (Maybe TreeModel)), MonadIO m, TreeViewK a) => MethodInfo TreeViewGetModelMethodInfo a signature where overloadedMethod _ = treeViewGetModel -- method TreeView::get_n_columns -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt32 +-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -3740,20 +3852,20 @@ -- method TreeView::get_path_at_pos -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cell_y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", 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 = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_x", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cell_y", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_get_path_at_pos" gtk_tree_view_get_path_at_pos :: Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Int32 -> -- x : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 + Int32 -> -- x : TBasicType TInt + Int32 -> -- y : TBasicType TInt Ptr (Ptr TreePath) -> -- path : TInterface "Gtk" "TreePath" Ptr (Ptr TreeViewColumn) -> -- column : TInterface "Gtk" "TreeViewColumn" - Ptr Int32 -> -- cell_x : TBasicType TInt32 - Ptr Int32 -> -- cell_y : TBasicType TInt32 + Ptr Int32 -> -- cell_x : TBasicType TInt + Ptr Int32 -> -- cell_y : TBasicType TInt IO CInt @@ -3796,7 +3908,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3824,7 +3936,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3852,7 +3964,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3880,7 +3992,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -3907,7 +4019,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Entry" +-- returnType : Just (TInterface "Gtk" "Entry") -- throws : False -- Skip return : False @@ -3936,7 +4048,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "TreeSelection" +-- returnType : Just (TInterface "Gtk" "TreeSelection") -- throws : False -- Skip return : False @@ -3965,7 +4077,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3993,7 +4105,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -4018,16 +4130,16 @@ -- method TreeView::get_tooltip_context -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "keyboard_tip", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "keyboard_tip", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_get_tooltip_context" gtk_tree_view_get_tooltip_context :: Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Ptr Int32 -> -- x : TBasicType TInt32 - Ptr Int32 -> -- y : TBasicType TInt32 + Ptr Int32 -> -- x : TBasicType TInt + Ptr Int32 -> -- y : TBasicType TInt CInt -> -- keyboard_tip : TBasicType TBoolean Ptr (Ptr TreeModel) -> -- model : TInterface "Gtk" "TreeModel" Ptr (Ptr TreePath) -> -- path : TInterface "Gtk" "TreePath" @@ -4078,7 +4190,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Adjustment" +-- returnType : Just (TInterface "Gtk" "Adjustment") -- throws : False -- Skip return : False @@ -4107,7 +4219,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "end_path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -4145,7 +4257,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible_rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4173,16 +4285,16 @@ -- method TreeView::insert_column -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_insert_column" gtk_tree_view_insert_column :: Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" Ptr TreeViewColumn -> -- column : TInterface "Gtk" "TreeViewColumn" - Int32 -> -- position : TBasicType TInt32 + Int32 -> -- position : TBasicType TInt IO Int32 @@ -4206,19 +4318,19 @@ -- method TreeView::insert_column_with_data_func -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt32, 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},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TreeCellDataFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 5, argDestroy = 6, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dnotify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, 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},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TreeCellDataFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 5, argDestroy = 6, 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 = "dnotify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_insert_column_with_data_func" gtk_tree_view_insert_column_with_data_func :: Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Int32 -> -- position : TBasicType TInt32 + Int32 -> -- position : TBasicType TInt CString -> -- title : TBasicType TUTF8 Ptr CellRenderer -> -- cell : TInterface "Gtk" "CellRenderer" FunPtr TreeCellDataFuncC -> -- func : TInterface "Gtk" "TreeCellDataFunc" - Ptr () -> -- data : TBasicType TVoid + Ptr () -> -- data : TBasicType TPtr FunPtr GLib.DestroyNotifyC -> -- dnotify : TInterface "GLib" "DestroyNotify" IO Int32 @@ -4250,20 +4362,20 @@ -- method TreeView::is_blank_at_pos -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cell_x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cell_y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", 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 = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cell_x", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cell_y", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_is_blank_at_pos" gtk_tree_view_is_blank_at_pos :: Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Int32 -> -- x : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 + Int32 -> -- x : TBasicType TInt + Int32 -> -- y : TBasicType TInt Ptr (Ptr TreePath) -> -- path : TInterface "Gtk" "TreePath" Ptr (Ptr TreeViewColumn) -> -- column : TInterface "Gtk" "TreeViewColumn" - Ptr Int32 -> -- cell_x : TBasicType TInt32 - Ptr Int32 -> -- cell_y : TBasicType TInt32 + Ptr Int32 -> -- cell_x : TBasicType TInt + Ptr Int32 -> -- cell_y : TBasicType TInt IO CInt @@ -4302,7 +4414,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -4328,16 +4440,16 @@ -- method TreeView::map_expanded_rows -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TreeViewMappingFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TreeViewMappingFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_map_expanded_rows" gtk_tree_view_map_expanded_rows :: Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" FunPtr TreeViewMappingFuncC -> -- func : TInterface "Gtk" "TreeViewMappingFunc" - Ptr () -> -- data : TBasicType TVoid + Ptr () -> -- data : TBasicType TPtr IO () @@ -4363,7 +4475,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "base_column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4402,7 +4514,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -4433,7 +4545,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4468,7 +4580,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -4500,7 +4612,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_align", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "row_align", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "col_align", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4550,16 +4662,16 @@ -- method TreeView::scroll_to_point -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tree_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tree_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tree_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tree_y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_scroll_to_point" gtk_tree_view_scroll_to_point :: Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Int32 -> -- tree_x : TBasicType TInt32 - Int32 -> -- tree_y : TBasicType TInt32 + Int32 -> -- tree_x : TBasicType TInt + Int32 -> -- tree_y : TBasicType TInt IO () @@ -4583,7 +4695,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "single", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4611,16 +4723,16 @@ -- method TreeView::set_column_drag_function -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TreeViewColumnDropFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TreeViewColumnDropFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_set_column_drag_function" gtk_tree_view_set_column_drag_function :: Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" FunPtr TreeViewColumnDropFuncC -> -- func : TInterface "Gtk" "TreeViewColumnDropFunc" - Ptr () -> -- user_data : TBasicType TVoid + Ptr () -> -- user_data : TBasicType TPtr FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" IO () @@ -4651,7 +4763,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "focus_column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_editing", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4693,7 +4805,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "focus_column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "focus_cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_editing", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4741,16 +4853,16 @@ -- method TreeView::set_destroy_count_func -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TreeDestroyCountFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TreeDestroyCountFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_set_destroy_count_func" gtk_tree_view_set_destroy_count_func :: Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" FunPtr TreeDestroyCountFuncC -> -- func : TInterface "Gtk" "TreeDestroyCountFunc" - Ptr () -> -- data : TBasicType TVoid + Ptr () -> -- data : TBasicType TPtr FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" IO () @@ -4781,7 +4893,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TInterface "Gtk" "TreeViewDropPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4819,7 +4931,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enable_search", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4849,7 +4961,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4879,7 +4991,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4910,7 +5022,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4940,7 +5052,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "grid_lines", argType = TInterface "Gtk" "TreeViewGridLines", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4970,7 +5082,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5005,7 +5117,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5035,7 +5147,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "headers_visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5065,7 +5177,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5095,7 +5207,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hover", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5123,15 +5235,15 @@ -- method TreeView::set_level_indentation -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "indentation", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "indentation", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_set_level_indentation" gtk_tree_view_set_level_indentation :: Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Int32 -> -- indentation : TBasicType TInt32 + Int32 -> -- indentation : TBasicType TInt IO () @@ -5154,7 +5266,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5189,7 +5301,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "reorderable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5217,16 +5329,16 @@ -- method TreeView::set_row_separator_func -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TreeViewRowSeparatorFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TreeViewRowSeparatorFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_set_row_separator_func" gtk_tree_view_set_row_separator_func :: Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" FunPtr TreeViewRowSeparatorFuncC -> -- func : TInterface "Gtk" "TreeViewRowSeparatorFunc" - Ptr () -> -- data : TBasicType TVoid + Ptr () -> -- data : TBasicType TPtr FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" IO () @@ -5257,7 +5369,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5287,7 +5399,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5315,15 +5427,15 @@ -- method TreeView::set_search_column -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_set_search_column" gtk_tree_view_set_search_column :: Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Int32 -> -- column : TBasicType TInt32 + Int32 -> -- column : TBasicType TInt IO () @@ -5346,7 +5458,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "entry", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5379,16 +5491,16 @@ -- method TreeView::set_search_equal_func -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "search_equal_func", argType = TInterface "Gtk" "TreeViewSearchEqualFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "search_user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "search_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "search_equal_func", argType = TInterface "Gtk" "TreeViewSearchEqualFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "search_user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "search_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_set_search_equal_func" gtk_tree_view_set_search_equal_func :: Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" FunPtr TreeViewSearchEqualFuncC -> -- search_equal_func : TInterface "Gtk" "TreeViewSearchEqualFunc" - Ptr () -> -- search_user_data : TBasicType TVoid + Ptr () -> -- search_user_data : TBasicType TPtr FunPtr GLib.DestroyNotifyC -> -- search_destroy : TInterface "GLib" "DestroyNotify" IO () @@ -5413,16 +5525,16 @@ -- method TreeView::set_search_position_func -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TreeViewSearchPositionFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TreeViewSearchPositionFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_set_search_position_func" gtk_tree_view_set_search_position_func :: Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" FunPtr TreeViewSearchPositionFuncC -> -- func : TInterface "Gtk" "TreeViewSearchPositionFunc" - Ptr () -> -- data : TBasicType TVoid + Ptr () -> -- data : TBasicType TPtr FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" IO () @@ -5453,7 +5565,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5483,7 +5595,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tooltip", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5536,15 +5648,15 @@ -- method TreeView::set_tooltip_column -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_set_tooltip_column" gtk_tree_view_set_tooltip_column :: Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Int32 -> -- column : TBasicType TInt32 + Int32 -> -- column : TBasicType TInt IO () @@ -5567,7 +5679,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tooltip", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5602,7 +5714,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5637,7 +5749,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5664,7 +5776,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/TreeView.hs-boot b/GI/Gtk/Objects/TreeView.hs-boot --- a/GI/Gtk/Objects/TreeView.hs-boot +++ b/GI/Gtk/Objects/TreeView.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.TreeView where -import Prelude () 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 diff --git a/GI/Gtk/Objects/TreeViewAccessible.hs b/GI/Gtk/Objects/TreeViewAccessible.hs --- a/GI/Gtk/Objects/TreeViewAccessible.hs +++ b/GI/Gtk/Objects/TreeViewAccessible.hs @@ -18,9 +18,9 @@ ) where -import Prelude () 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 diff --git a/GI/Gtk/Objects/TreeViewAccessible.hs-boot b/GI/Gtk/Objects/TreeViewAccessible.hs-boot --- a/GI/Gtk/Objects/TreeViewAccessible.hs-boot +++ b/GI/Gtk/Objects/TreeViewAccessible.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.TreeViewAccessible where -import Prelude () 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 diff --git a/GI/Gtk/Objects/TreeViewColumn.hs b/GI/Gtk/Objects/TreeViewColumn.hs --- a/GI/Gtk/Objects/TreeViewColumn.hs +++ b/GI/Gtk/Objects/TreeViewColumn.hs @@ -278,12 +278,14 @@ constructTreeViewColumnAlignment , getTreeViewColumnAlignment , setTreeViewColumnAlignment , + treeViewColumnAlignment , -- ** CellArea TreeViewColumnCellAreaPropertyInfo , constructTreeViewColumnCellArea , getTreeViewColumnCellArea , + treeViewColumnCellArea , -- ** Clickable @@ -291,6 +293,7 @@ constructTreeViewColumnClickable , getTreeViewColumnClickable , setTreeViewColumnClickable , + treeViewColumnClickable , -- ** Expand @@ -298,6 +301,7 @@ constructTreeViewColumnExpand , getTreeViewColumnExpand , setTreeViewColumnExpand , + treeViewColumnExpand , -- ** FixedWidth @@ -305,6 +309,7 @@ constructTreeViewColumnFixedWidth , getTreeViewColumnFixedWidth , setTreeViewColumnFixedWidth , + treeViewColumnFixedWidth , -- ** MaxWidth @@ -312,6 +317,7 @@ constructTreeViewColumnMaxWidth , getTreeViewColumnMaxWidth , setTreeViewColumnMaxWidth , + treeViewColumnMaxWidth , -- ** MinWidth @@ -319,6 +325,7 @@ constructTreeViewColumnMinWidth , getTreeViewColumnMinWidth , setTreeViewColumnMinWidth , + treeViewColumnMinWidth , -- ** Reorderable @@ -326,6 +333,7 @@ constructTreeViewColumnReorderable , getTreeViewColumnReorderable , setTreeViewColumnReorderable , + treeViewColumnReorderable , -- ** Resizable @@ -333,6 +341,7 @@ constructTreeViewColumnResizable , getTreeViewColumnResizable , setTreeViewColumnResizable , + treeViewColumnResizable , -- ** Sizing @@ -340,6 +349,7 @@ constructTreeViewColumnSizing , getTreeViewColumnSizing , setTreeViewColumnSizing , + treeViewColumnSizing , -- ** SortColumnId @@ -347,6 +357,7 @@ constructTreeViewColumnSortColumnId , getTreeViewColumnSortColumnId , setTreeViewColumnSortColumnId , + treeViewColumnSortColumnId , -- ** SortIndicator @@ -354,6 +365,7 @@ constructTreeViewColumnSortIndicator , getTreeViewColumnSortIndicator , setTreeViewColumnSortIndicator , + treeViewColumnSortIndicator , -- ** SortOrder @@ -361,6 +373,7 @@ constructTreeViewColumnSortOrder , getTreeViewColumnSortOrder , setTreeViewColumnSortOrder , + treeViewColumnSortOrder , -- ** Spacing @@ -368,6 +381,7 @@ constructTreeViewColumnSpacing , getTreeViewColumnSpacing , setTreeViewColumnSpacing , + treeViewColumnSpacing , -- ** Title @@ -375,6 +389,7 @@ constructTreeViewColumnTitle , getTreeViewColumnTitle , setTreeViewColumnTitle , + treeViewColumnTitle , -- ** Visible @@ -382,23 +397,28 @@ constructTreeViewColumnVisible , getTreeViewColumnVisible , setTreeViewColumnVisible , + treeViewColumnVisible , -- ** Widget TreeViewColumnWidgetPropertyInfo , + clearTreeViewColumnWidget , constructTreeViewColumnWidget , getTreeViewColumnWidget , setTreeViewColumnWidget , + treeViewColumnWidget , -- ** Width TreeViewColumnWidthPropertyInfo , getTreeViewColumnWidth , + treeViewColumnWidth , -- ** XOffset TreeViewColumnXOffsetPropertyInfo , getTreeViewColumnXOffset , + treeViewColumnXOffset , @@ -420,9 +440,9 @@ ) where -import Prelude () 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 @@ -584,6 +604,7 @@ -- VVV Prop "alignment" -- Type: TBasicType TFloat -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getTreeViewColumnAlignment :: (MonadIO m, TreeViewColumnK o) => o -> m Float getTreeViewColumnAlignment obj = liftIO $ getObjectPropertyFloat obj "alignment" @@ -604,31 +625,35 @@ attrGet _ = getTreeViewColumnAlignment attrSet _ = setTreeViewColumnAlignment attrConstruct _ = constructTreeViewColumnAlignment + attrClear _ = undefined -- VVV Prop "cell-area" -- Type: TInterface "Gtk" "CellArea" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + -- Nullable: (Nothing,Nothing) -getTreeViewColumnCellArea :: (MonadIO m, TreeViewColumnK o) => o -> m CellArea +getTreeViewColumnCellArea :: (MonadIO m, TreeViewColumnK o) => o -> m (Maybe CellArea) getTreeViewColumnCellArea obj = liftIO $ getObjectPropertyObject obj "cell-area" CellArea constructTreeViewColumnCellArea :: (CellAreaK a) => a -> IO ([Char], GValue) -constructTreeViewColumnCellArea val = constructObjectPropertyObject "cell-area" val +constructTreeViewColumnCellArea val = constructObjectPropertyObject "cell-area" (Just val) data TreeViewColumnCellAreaPropertyInfo instance AttrInfo TreeViewColumnCellAreaPropertyInfo where - type AttrAllowedOps TreeViewColumnCellAreaPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrAllowedOps TreeViewColumnCellAreaPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint TreeViewColumnCellAreaPropertyInfo = CellAreaK type AttrBaseTypeConstraint TreeViewColumnCellAreaPropertyInfo = TreeViewColumnK - type AttrGetType TreeViewColumnCellAreaPropertyInfo = CellArea + type AttrGetType TreeViewColumnCellAreaPropertyInfo = (Maybe CellArea) type AttrLabel TreeViewColumnCellAreaPropertyInfo = "cell-area" attrGet _ = getTreeViewColumnCellArea attrSet _ = undefined attrConstruct _ = constructTreeViewColumnCellArea + attrClear _ = undefined -- VVV Prop "clickable" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getTreeViewColumnClickable :: (MonadIO m, TreeViewColumnK o) => o -> m Bool getTreeViewColumnClickable obj = liftIO $ getObjectPropertyBool obj "clickable" @@ -649,10 +674,12 @@ attrGet _ = getTreeViewColumnClickable attrSet _ = setTreeViewColumnClickable attrConstruct _ = constructTreeViewColumnClickable + attrClear _ = undefined -- VVV Prop "expand" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getTreeViewColumnExpand :: (MonadIO m, TreeViewColumnK o) => o -> m Bool getTreeViewColumnExpand obj = liftIO $ getObjectPropertyBool obj "expand" @@ -673,19 +700,21 @@ attrGet _ = getTreeViewColumnExpand attrSet _ = setTreeViewColumnExpand attrConstruct _ = constructTreeViewColumnExpand + attrClear _ = undefined -- VVV Prop "fixed-width" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getTreeViewColumnFixedWidth :: (MonadIO m, TreeViewColumnK o) => o -> m Int32 -getTreeViewColumnFixedWidth obj = liftIO $ getObjectPropertyCInt obj "fixed-width" +getTreeViewColumnFixedWidth obj = liftIO $ getObjectPropertyInt32 obj "fixed-width" setTreeViewColumnFixedWidth :: (MonadIO m, TreeViewColumnK o) => o -> Int32 -> m () -setTreeViewColumnFixedWidth obj val = liftIO $ setObjectPropertyCInt obj "fixed-width" val +setTreeViewColumnFixedWidth obj val = liftIO $ setObjectPropertyInt32 obj "fixed-width" val constructTreeViewColumnFixedWidth :: Int32 -> IO ([Char], GValue) -constructTreeViewColumnFixedWidth val = constructObjectPropertyCInt "fixed-width" val +constructTreeViewColumnFixedWidth val = constructObjectPropertyInt32 "fixed-width" val data TreeViewColumnFixedWidthPropertyInfo instance AttrInfo TreeViewColumnFixedWidthPropertyInfo where @@ -697,19 +726,21 @@ attrGet _ = getTreeViewColumnFixedWidth attrSet _ = setTreeViewColumnFixedWidth attrConstruct _ = constructTreeViewColumnFixedWidth + attrClear _ = undefined -- VVV Prop "max-width" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getTreeViewColumnMaxWidth :: (MonadIO m, TreeViewColumnK o) => o -> m Int32 -getTreeViewColumnMaxWidth obj = liftIO $ getObjectPropertyCInt obj "max-width" +getTreeViewColumnMaxWidth obj = liftIO $ getObjectPropertyInt32 obj "max-width" setTreeViewColumnMaxWidth :: (MonadIO m, TreeViewColumnK o) => o -> Int32 -> m () -setTreeViewColumnMaxWidth obj val = liftIO $ setObjectPropertyCInt obj "max-width" val +setTreeViewColumnMaxWidth obj val = liftIO $ setObjectPropertyInt32 obj "max-width" val constructTreeViewColumnMaxWidth :: Int32 -> IO ([Char], GValue) -constructTreeViewColumnMaxWidth val = constructObjectPropertyCInt "max-width" val +constructTreeViewColumnMaxWidth val = constructObjectPropertyInt32 "max-width" val data TreeViewColumnMaxWidthPropertyInfo instance AttrInfo TreeViewColumnMaxWidthPropertyInfo where @@ -721,19 +752,21 @@ attrGet _ = getTreeViewColumnMaxWidth attrSet _ = setTreeViewColumnMaxWidth attrConstruct _ = constructTreeViewColumnMaxWidth + attrClear _ = undefined -- VVV Prop "min-width" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getTreeViewColumnMinWidth :: (MonadIO m, TreeViewColumnK o) => o -> m Int32 -getTreeViewColumnMinWidth obj = liftIO $ getObjectPropertyCInt obj "min-width" +getTreeViewColumnMinWidth obj = liftIO $ getObjectPropertyInt32 obj "min-width" setTreeViewColumnMinWidth :: (MonadIO m, TreeViewColumnK o) => o -> Int32 -> m () -setTreeViewColumnMinWidth obj val = liftIO $ setObjectPropertyCInt obj "min-width" val +setTreeViewColumnMinWidth obj val = liftIO $ setObjectPropertyInt32 obj "min-width" val constructTreeViewColumnMinWidth :: Int32 -> IO ([Char], GValue) -constructTreeViewColumnMinWidth val = constructObjectPropertyCInt "min-width" val +constructTreeViewColumnMinWidth val = constructObjectPropertyInt32 "min-width" val data TreeViewColumnMinWidthPropertyInfo instance AttrInfo TreeViewColumnMinWidthPropertyInfo where @@ -745,10 +778,12 @@ attrGet _ = getTreeViewColumnMinWidth attrSet _ = setTreeViewColumnMinWidth attrConstruct _ = constructTreeViewColumnMinWidth + attrClear _ = undefined -- VVV Prop "reorderable" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getTreeViewColumnReorderable :: (MonadIO m, TreeViewColumnK o) => o -> m Bool getTreeViewColumnReorderable obj = liftIO $ getObjectPropertyBool obj "reorderable" @@ -769,10 +804,12 @@ attrGet _ = getTreeViewColumnReorderable attrSet _ = setTreeViewColumnReorderable attrConstruct _ = constructTreeViewColumnReorderable + attrClear _ = undefined -- VVV Prop "resizable" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getTreeViewColumnResizable :: (MonadIO m, TreeViewColumnK o) => o -> m Bool getTreeViewColumnResizable obj = liftIO $ getObjectPropertyBool obj "resizable" @@ -793,10 +830,12 @@ attrGet _ = getTreeViewColumnResizable attrSet _ = setTreeViewColumnResizable attrConstruct _ = constructTreeViewColumnResizable + attrClear _ = undefined -- VVV Prop "sizing" -- Type: TInterface "Gtk" "TreeViewColumnSizing" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getTreeViewColumnSizing :: (MonadIO m, TreeViewColumnK o) => o -> m TreeViewColumnSizing getTreeViewColumnSizing obj = liftIO $ getObjectPropertyEnum obj "sizing" @@ -817,19 +856,21 @@ attrGet _ = getTreeViewColumnSizing attrSet _ = setTreeViewColumnSizing attrConstruct _ = constructTreeViewColumnSizing + attrClear _ = undefined -- VVV Prop "sort-column-id" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getTreeViewColumnSortColumnId :: (MonadIO m, TreeViewColumnK o) => o -> m Int32 -getTreeViewColumnSortColumnId obj = liftIO $ getObjectPropertyCInt obj "sort-column-id" +getTreeViewColumnSortColumnId obj = liftIO $ getObjectPropertyInt32 obj "sort-column-id" setTreeViewColumnSortColumnId :: (MonadIO m, TreeViewColumnK o) => o -> Int32 -> m () -setTreeViewColumnSortColumnId obj val = liftIO $ setObjectPropertyCInt obj "sort-column-id" val +setTreeViewColumnSortColumnId obj val = liftIO $ setObjectPropertyInt32 obj "sort-column-id" val constructTreeViewColumnSortColumnId :: Int32 -> IO ([Char], GValue) -constructTreeViewColumnSortColumnId val = constructObjectPropertyCInt "sort-column-id" val +constructTreeViewColumnSortColumnId val = constructObjectPropertyInt32 "sort-column-id" val data TreeViewColumnSortColumnIdPropertyInfo instance AttrInfo TreeViewColumnSortColumnIdPropertyInfo where @@ -841,10 +882,12 @@ attrGet _ = getTreeViewColumnSortColumnId attrSet _ = setTreeViewColumnSortColumnId attrConstruct _ = constructTreeViewColumnSortColumnId + attrClear _ = undefined -- VVV Prop "sort-indicator" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getTreeViewColumnSortIndicator :: (MonadIO m, TreeViewColumnK o) => o -> m Bool getTreeViewColumnSortIndicator obj = liftIO $ getObjectPropertyBool obj "sort-indicator" @@ -865,10 +908,12 @@ attrGet _ = getTreeViewColumnSortIndicator attrSet _ = setTreeViewColumnSortIndicator attrConstruct _ = constructTreeViewColumnSortIndicator + attrClear _ = undefined -- VVV Prop "sort-order" -- Type: TInterface "Gtk" "SortType" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getTreeViewColumnSortOrder :: (MonadIO m, TreeViewColumnK o) => o -> m SortType getTreeViewColumnSortOrder obj = liftIO $ getObjectPropertyEnum obj "sort-order" @@ -889,19 +934,21 @@ attrGet _ = getTreeViewColumnSortOrder attrSet _ = setTreeViewColumnSortOrder attrConstruct _ = constructTreeViewColumnSortOrder + attrClear _ = undefined -- VVV Prop "spacing" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getTreeViewColumnSpacing :: (MonadIO m, TreeViewColumnK o) => o -> m Int32 -getTreeViewColumnSpacing obj = liftIO $ getObjectPropertyCInt obj "spacing" +getTreeViewColumnSpacing obj = liftIO $ getObjectPropertyInt32 obj "spacing" setTreeViewColumnSpacing :: (MonadIO m, TreeViewColumnK o) => o -> Int32 -> m () -setTreeViewColumnSpacing obj val = liftIO $ setObjectPropertyCInt obj "spacing" val +setTreeViewColumnSpacing obj val = liftIO $ setObjectPropertyInt32 obj "spacing" val constructTreeViewColumnSpacing :: Int32 -> IO ([Char], GValue) -constructTreeViewColumnSpacing val = constructObjectPropertyCInt "spacing" val +constructTreeViewColumnSpacing val = constructObjectPropertyInt32 "spacing" val data TreeViewColumnSpacingPropertyInfo instance AttrInfo TreeViewColumnSpacingPropertyInfo where @@ -913,19 +960,21 @@ attrGet _ = getTreeViewColumnSpacing attrSet _ = setTreeViewColumnSpacing attrConstruct _ = constructTreeViewColumnSpacing + attrClear _ = undefined -- VVV Prop "title" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getTreeViewColumnTitle :: (MonadIO m, TreeViewColumnK o) => o -> m T.Text -getTreeViewColumnTitle obj = liftIO $ getObjectPropertyString obj "title" +getTreeViewColumnTitle obj = liftIO $ checkUnexpectedNothing "getTreeViewColumnTitle" $ getObjectPropertyString obj "title" setTreeViewColumnTitle :: (MonadIO m, TreeViewColumnK o) => o -> T.Text -> m () -setTreeViewColumnTitle obj val = liftIO $ setObjectPropertyString obj "title" val +setTreeViewColumnTitle obj val = liftIO $ setObjectPropertyString obj "title" (Just val) constructTreeViewColumnTitle :: T.Text -> IO ([Char], GValue) -constructTreeViewColumnTitle val = constructObjectPropertyString "title" val +constructTreeViewColumnTitle val = constructObjectPropertyString "title" (Just val) data TreeViewColumnTitlePropertyInfo instance AttrInfo TreeViewColumnTitlePropertyInfo where @@ -937,10 +986,12 @@ attrGet _ = getTreeViewColumnTitle attrSet _ = setTreeViewColumnTitle attrConstruct _ = constructTreeViewColumnTitle + attrClear _ = undefined -- VVV Prop "visible" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getTreeViewColumnVisible :: (MonadIO m, TreeViewColumnK o) => o -> m Bool getTreeViewColumnVisible obj = liftIO $ getObjectPropertyBool obj "visible" @@ -961,23 +1012,28 @@ attrGet _ = getTreeViewColumnVisible attrSet _ = setTreeViewColumnVisible attrConstruct _ = constructTreeViewColumnVisible + attrClear _ = undefined -- VVV Prop "widget" -- Type: TInterface "Gtk" "Widget" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) getTreeViewColumnWidget :: (MonadIO m, TreeViewColumnK o) => o -> m Widget -getTreeViewColumnWidget obj = liftIO $ getObjectPropertyObject obj "widget" Widget +getTreeViewColumnWidget obj = liftIO $ checkUnexpectedNothing "getTreeViewColumnWidget" $ getObjectPropertyObject obj "widget" Widget setTreeViewColumnWidget :: (MonadIO m, TreeViewColumnK o, WidgetK a) => o -> a -> m () -setTreeViewColumnWidget obj val = liftIO $ setObjectPropertyObject obj "widget" val +setTreeViewColumnWidget obj val = liftIO $ setObjectPropertyObject obj "widget" (Just val) constructTreeViewColumnWidget :: (WidgetK a) => a -> IO ([Char], GValue) -constructTreeViewColumnWidget val = constructObjectPropertyObject "widget" val +constructTreeViewColumnWidget val = constructObjectPropertyObject "widget" (Just val) +clearTreeViewColumnWidget :: (MonadIO m, TreeViewColumnK o) => o -> m () +clearTreeViewColumnWidget obj = liftIO $ setObjectPropertyObject obj "widget" (Nothing :: Maybe Widget) + data TreeViewColumnWidgetPropertyInfo instance AttrInfo TreeViewColumnWidgetPropertyInfo where - type AttrAllowedOps TreeViewColumnWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps TreeViewColumnWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint TreeViewColumnWidgetPropertyInfo = WidgetK type AttrBaseTypeConstraint TreeViewColumnWidgetPropertyInfo = TreeViewColumnK type AttrGetType TreeViewColumnWidgetPropertyInfo = Widget @@ -985,13 +1041,15 @@ attrGet _ = getTreeViewColumnWidget attrSet _ = setTreeViewColumnWidget attrConstruct _ = constructTreeViewColumnWidget + attrClear _ = clearTreeViewColumnWidget -- VVV Prop "width" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getTreeViewColumnWidth :: (MonadIO m, TreeViewColumnK o) => o -> m Int32 -getTreeViewColumnWidth obj = liftIO $ getObjectPropertyCInt obj "width" +getTreeViewColumnWidth obj = liftIO $ getObjectPropertyInt32 obj "width" data TreeViewColumnWidthPropertyInfo instance AttrInfo TreeViewColumnWidthPropertyInfo where @@ -1003,13 +1061,15 @@ attrGet _ = getTreeViewColumnWidth attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "x-offset" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) getTreeViewColumnXOffset :: (MonadIO m, TreeViewColumnK o) => o -> m Int32 -getTreeViewColumnXOffset obj = liftIO $ getObjectPropertyCInt obj "x-offset" +getTreeViewColumnXOffset obj = liftIO $ getObjectPropertyInt32 obj "x-offset" data TreeViewColumnXOffsetPropertyInfo instance AttrInfo TreeViewColumnXOffsetPropertyInfo where @@ -1021,10 +1081,68 @@ attrGet _ = getTreeViewColumnXOffset attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList TreeViewColumn = TreeViewColumnAttributeList type TreeViewColumnAttributeList = ('[ '("alignment", TreeViewColumnAlignmentPropertyInfo), '("cellArea", TreeViewColumnCellAreaPropertyInfo), '("clickable", TreeViewColumnClickablePropertyInfo), '("expand", TreeViewColumnExpandPropertyInfo), '("fixedWidth", TreeViewColumnFixedWidthPropertyInfo), '("maxWidth", TreeViewColumnMaxWidthPropertyInfo), '("minWidth", TreeViewColumnMinWidthPropertyInfo), '("reorderable", TreeViewColumnReorderablePropertyInfo), '("resizable", TreeViewColumnResizablePropertyInfo), '("sizing", TreeViewColumnSizingPropertyInfo), '("sortColumnId", TreeViewColumnSortColumnIdPropertyInfo), '("sortIndicator", TreeViewColumnSortIndicatorPropertyInfo), '("sortOrder", TreeViewColumnSortOrderPropertyInfo), '("spacing", TreeViewColumnSpacingPropertyInfo), '("title", TreeViewColumnTitlePropertyInfo), '("visible", TreeViewColumnVisiblePropertyInfo), '("widget", TreeViewColumnWidgetPropertyInfo), '("width", TreeViewColumnWidthPropertyInfo), '("xOffset", TreeViewColumnXOffsetPropertyInfo)] :: [(Symbol, *)]) +treeViewColumnAlignment :: AttrLabelProxy "alignment" +treeViewColumnAlignment = AttrLabelProxy + +treeViewColumnCellArea :: AttrLabelProxy "cellArea" +treeViewColumnCellArea = AttrLabelProxy + +treeViewColumnClickable :: AttrLabelProxy "clickable" +treeViewColumnClickable = AttrLabelProxy + +treeViewColumnExpand :: AttrLabelProxy "expand" +treeViewColumnExpand = AttrLabelProxy + +treeViewColumnFixedWidth :: AttrLabelProxy "fixedWidth" +treeViewColumnFixedWidth = AttrLabelProxy + +treeViewColumnMaxWidth :: AttrLabelProxy "maxWidth" +treeViewColumnMaxWidth = AttrLabelProxy + +treeViewColumnMinWidth :: AttrLabelProxy "minWidth" +treeViewColumnMinWidth = AttrLabelProxy + +treeViewColumnReorderable :: AttrLabelProxy "reorderable" +treeViewColumnReorderable = AttrLabelProxy + +treeViewColumnResizable :: AttrLabelProxy "resizable" +treeViewColumnResizable = AttrLabelProxy + +treeViewColumnSizing :: AttrLabelProxy "sizing" +treeViewColumnSizing = AttrLabelProxy + +treeViewColumnSortColumnId :: AttrLabelProxy "sortColumnId" +treeViewColumnSortColumnId = AttrLabelProxy + +treeViewColumnSortIndicator :: AttrLabelProxy "sortIndicator" +treeViewColumnSortIndicator = AttrLabelProxy + +treeViewColumnSortOrder :: AttrLabelProxy "sortOrder" +treeViewColumnSortOrder = AttrLabelProxy + +treeViewColumnSpacing :: AttrLabelProxy "spacing" +treeViewColumnSpacing = AttrLabelProxy + +treeViewColumnTitle :: AttrLabelProxy "title" +treeViewColumnTitle = AttrLabelProxy + +treeViewColumnVisible :: AttrLabelProxy "visible" +treeViewColumnVisible = AttrLabelProxy + +treeViewColumnWidget :: AttrLabelProxy "widget" +treeViewColumnWidget = AttrLabelProxy + +treeViewColumnWidth :: AttrLabelProxy "width" +treeViewColumnWidth = AttrLabelProxy + +treeViewColumnXOffset :: AttrLabelProxy "xOffset" +treeViewColumnXOffset = AttrLabelProxy + data TreeViewColumnClickedSignalInfo instance SignalInfo TreeViewColumnClickedSignalInfo where type HaskellCallbackType TreeViewColumnClickedSignalInfo = TreeViewColumnClickedCallback @@ -1037,7 +1155,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "TreeViewColumn" +-- returnType : Just (TInterface "Gtk" "TreeViewColumn") -- throws : False -- Skip return : False @@ -1058,7 +1176,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "area", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "TreeViewColumn" +-- returnType : Just (TInterface "Gtk" "TreeViewColumn") -- throws : False -- Skip return : False @@ -1081,9 +1199,9 @@ -- method TreeViewColumn::add_attribute -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1091,7 +1209,7 @@ Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" Ptr CellRenderer -> -- cell_renderer : TInterface "Gtk" "CellRenderer" CString -> -- attribute : TBasicType TUTF8 - Int32 -> -- column : TBasicType TInt32 + Int32 -> -- column : TBasicType TInt IO () @@ -1118,17 +1236,17 @@ -- method TreeViewColumn::cell_get_position -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x_offset", 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}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_column_cell_get_position" gtk_tree_view_column_cell_get_position :: Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" Ptr CellRenderer -> -- cell_renderer : TInterface "Gtk" "CellRenderer" - Ptr Int32 -> -- x_offset : TBasicType TInt32 - Ptr Int32 -> -- width : TBasicType TInt32 + Ptr Int32 -> -- x_offset : TBasicType TInt + Ptr Int32 -> -- width : TBasicType TInt IO CInt @@ -1158,19 +1276,19 @@ -- method TreeViewColumn::cell_get_size -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x_offset", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y_offset", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_column_cell_get_size" gtk_tree_view_column_cell_get_size :: Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" Ptr Gdk.Rectangle -> -- cell_area : TInterface "Gdk" "Rectangle" - Ptr Int32 -> -- x_offset : TBasicType TInt32 - Ptr Int32 -> -- y_offset : TBasicType TInt32 - Ptr Int32 -> -- width : TBasicType TInt32 - Ptr Int32 -> -- height : TBasicType TInt32 + Ptr Int32 -> -- x_offset : TBasicType TInt + Ptr Int32 -> -- y_offset : TBasicType TInt + Ptr Int32 -> -- width : TBasicType TInt + Ptr Int32 -> -- height : TBasicType TInt IO () @@ -1211,7 +1329,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1239,7 +1357,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tree_model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_expander", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_expanded", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1280,7 +1398,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1307,7 +1425,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1338,7 +1456,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1365,7 +1483,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1396,7 +1514,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TFloat +-- returnType : Just (TBasicType TFloat) -- throws : False -- Skip return : False @@ -1424,7 +1542,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -1453,7 +1571,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1481,7 +1599,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1509,7 +1627,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1536,7 +1654,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1563,7 +1681,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1590,7 +1708,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1618,7 +1736,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1646,7 +1764,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "TreeViewColumnSizing" +-- returnType : Just (TInterface "Gtk" "TreeViewColumnSizing") -- throws : False -- Skip return : False @@ -1674,7 +1792,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1701,7 +1819,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1729,7 +1847,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "SortType" +-- returnType : Just (TInterface "Gtk" "SortType") -- throws : False -- Skip return : False @@ -1757,7 +1875,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1784,7 +1902,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1813,7 +1931,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -1842,7 +1960,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1870,7 +1988,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -1899,7 +2017,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1926,7 +2044,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1953,7 +2071,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1987,7 +2105,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2021,7 +2139,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2048,7 +2166,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2076,9 +2194,9 @@ -- method TreeViewColumn::set_cell_data_func -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TreeCellDataFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TreeCellDataFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2086,7 +2204,7 @@ Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" Ptr CellRenderer -> -- cell_renderer : TInterface "Gtk" "CellRenderer" FunPtr TreeCellDataFuncC -> -- func : TInterface "Gtk" "TreeCellDataFunc" - Ptr () -> -- func_data : TBasicType TVoid + Ptr () -> -- func_data : TBasicType TPtr FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" IO () @@ -2120,7 +2238,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "clickable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2150,7 +2268,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2178,15 +2296,15 @@ -- method TreeViewColumn::set_fixed_width -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fixed_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fixed_width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_column_set_fixed_width" gtk_tree_view_column_set_fixed_width :: Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" - Int32 -> -- fixed_width : TBasicType TInt32 + Int32 -> -- fixed_width : TBasicType TInt IO () @@ -2207,15 +2325,15 @@ -- method TreeViewColumn::set_max_width -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max_width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_column_set_max_width" gtk_tree_view_column_set_max_width :: Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" - Int32 -> -- max_width : TBasicType TInt32 + Int32 -> -- max_width : TBasicType TInt IO () @@ -2236,15 +2354,15 @@ -- method TreeViewColumn::set_min_width -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "min_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "min_width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_column_set_min_width" gtk_tree_view_column_set_min_width :: Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" - Int32 -> -- min_width : TBasicType TInt32 + Int32 -> -- min_width : TBasicType TInt IO () @@ -2267,7 +2385,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "reorderable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2297,7 +2415,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resizable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2327,7 +2445,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gtk" "TreeViewColumnSizing", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2355,15 +2473,15 @@ -- method TreeViewColumn::set_sort_column_id -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_column_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_column_id", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_column_set_sort_column_id" gtk_tree_view_column_set_sort_column_id :: Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" - Int32 -> -- sort_column_id : TBasicType TInt32 + Int32 -> -- sort_column_id : TBasicType TInt IO () @@ -2386,7 +2504,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2416,7 +2534,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "order", argType = TInterface "Gtk" "SortType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2444,15 +2562,15 @@ -- method TreeViewColumn::set_spacing -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_column_set_spacing" gtk_tree_view_column_set_spacing :: Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" - Int32 -> -- spacing : TBasicType TInt32 + Int32 -> -- spacing : TBasicType TInt IO () @@ -2475,7 +2593,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2506,7 +2624,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2536,7 +2654,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/TreeViewColumn.hs-boot b/GI/Gtk/Objects/TreeViewColumn.hs-boot --- a/GI/Gtk/Objects/TreeViewColumn.hs-boot +++ b/GI/Gtk/Objects/TreeViewColumn.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.TreeViewColumn where -import Prelude () 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 diff --git a/GI/Gtk/Objects/UIManager.hs b/GI/Gtk/Objects/UIManager.hs --- a/GI/Gtk/Objects/UIManager.hs +++ b/GI/Gtk/Objects/UIManager.hs @@ -114,11 +114,13 @@ constructUIManagerAddTearoffs , getUIManagerAddTearoffs , setUIManagerAddTearoffs , + uIManagerAddTearoffs , -- ** Ui UIManagerUiPropertyInfo , getUIManagerUi , + uIManagerUi , @@ -200,9 +202,9 @@ ) where -import Prelude () 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 @@ -551,6 +553,7 @@ -- VVV Prop "add-tearoffs" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getUIManagerAddTearoffs :: (MonadIO m, UIManagerK o) => o -> m Bool getUIManagerAddTearoffs obj = liftIO $ getObjectPropertyBool obj "add-tearoffs" @@ -571,28 +574,37 @@ attrGet _ = getUIManagerAddTearoffs attrSet _ = setUIManagerAddTearoffs attrConstruct _ = constructUIManagerAddTearoffs + attrClear _ = undefined -- VVV Prop "ui" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) -getUIManagerUi :: (MonadIO m, UIManagerK o) => o -> m T.Text +getUIManagerUi :: (MonadIO m, UIManagerK o) => o -> m (Maybe T.Text) getUIManagerUi obj = liftIO $ getObjectPropertyString obj "ui" data UIManagerUiPropertyInfo instance AttrInfo UIManagerUiPropertyInfo where - type AttrAllowedOps UIManagerUiPropertyInfo = '[ 'AttrGet] + type AttrAllowedOps UIManagerUiPropertyInfo = '[ 'AttrGet, 'AttrClear] type AttrSetTypeConstraint UIManagerUiPropertyInfo = (~) () type AttrBaseTypeConstraint UIManagerUiPropertyInfo = UIManagerK - type AttrGetType UIManagerUiPropertyInfo = T.Text + type AttrGetType UIManagerUiPropertyInfo = (Maybe T.Text) type AttrLabel UIManagerUiPropertyInfo = "ui" attrGet _ = getUIManagerUi attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined type instance AttributeList UIManager = UIManagerAttributeList type UIManagerAttributeList = ('[ '("addTearoffs", UIManagerAddTearoffsPropertyInfo), '("ui", UIManagerUiPropertyInfo)] :: [(Symbol, *)]) +uIManagerAddTearoffs :: AttrLabelProxy "addTearoffs" +uIManagerAddTearoffs = AttrLabelProxy + +uIManagerUi :: AttrLabelProxy "ui" +uIManagerUi = AttrLabelProxy + data UIManagerActionsChangedSignalInfo instance SignalInfo UIManagerActionsChangedSignalInfo where type HaskellCallbackType UIManagerActionsChangedSignalInfo = UIManagerActionsChangedCallback @@ -630,7 +642,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "UIManager" +-- returnType : Just (TInterface "Gtk" "UIManager") -- throws : False -- Skip return : False @@ -649,15 +661,15 @@ -- method UIManager::add_ui -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "merge_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, 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 = "action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gtk" "UIManagerItemType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "top", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "merge_id", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, 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 = "action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gtk" "UIManagerItemType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "top", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_ui_manager_add_ui" gtk_ui_manager_add_ui :: Ptr UIManager -> -- _obj : TInterface "Gtk" "UIManager" - Word32 -> -- merge_id : TBasicType TUInt32 + Word32 -> -- merge_id : TBasicType TUInt CString -> -- path : TBasicType TUTF8 CString -> -- name : TBasicType TUTF8 CString -> -- action : TBasicType TUTF8 @@ -702,7 +714,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt32 +-- returnType : Just (TBasicType TUInt) -- throws : True -- Skip return : False @@ -738,7 +750,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt32 +-- returnType : Just (TBasicType TUInt) -- throws : True -- Skip return : False @@ -774,7 +786,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt32 +-- returnType : Just (TBasicType TUInt) -- throws : True -- Skip return : False @@ -812,7 +824,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -839,7 +851,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "AccelGroup" +-- returnType : Just (TInterface "Gtk" "AccelGroup") -- throws : False -- Skip return : False @@ -868,7 +880,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Action" +-- returnType : Just (TInterface "Gtk" "Action") -- throws : False -- Skip return : False @@ -901,7 +913,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TGList (TInterface "Gtk" "ActionGroup") +-- returnType : Just (TGList (TInterface "Gtk" "ActionGroup")) -- throws : False -- Skip return : False @@ -917,7 +929,6 @@ uIManagerGetActionGroups _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_ui_manager_get_action_groups _obj' - checkUnexpectedReturnNULL "gtk_ui_manager_get_action_groups" result result' <- unpackGList result result'' <- mapM (newObject ActionGroup) result' touchManagedPtr _obj @@ -931,7 +942,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -959,7 +970,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "types", argType = TInterface "Gtk" "UIManagerItemType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TGSList (TInterface "Gtk" "Widget") +-- returnType : Just (TGSList (TInterface "Gtk" "Widget")) -- throws : False -- Skip return : False @@ -978,7 +989,6 @@ let _obj' = unsafeManagedPtrCastPtr _obj let types' = gflagsToWord types result <- gtk_ui_manager_get_toplevels _obj' types' - checkUnexpectedReturnNULL "gtk_ui_manager_get_toplevels" result result' <- unpackGSList result result'' <- mapM (newObject Widget) result' g_slist_free result @@ -993,7 +1003,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1023,7 +1033,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -1054,16 +1064,16 @@ -- method UIManager::insert_action_group -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_group", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_group", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_ui_manager_insert_action_group" gtk_ui_manager_insert_action_group :: Ptr UIManager -> -- _obj : TInterface "Gtk" "UIManager" Ptr ActionGroup -> -- action_group : TInterface "Gtk" "ActionGroup" - Int32 -> -- pos : TBasicType TInt32 + Int32 -> -- pos : TBasicType TInt IO () {-# DEPRECATED uIManagerInsertActionGroup ["(Since version 3.10)"]#-} @@ -1089,7 +1099,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt32 +-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -1116,7 +1126,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_group", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1145,15 +1155,15 @@ -- method UIManager::remove_ui -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "merge_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "merge_id", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_ui_manager_remove_ui" gtk_ui_manager_remove_ui :: Ptr UIManager -> -- _obj : TInterface "Gtk" "UIManager" - Word32 -> -- merge_id : TBasicType TUInt32 + Word32 -> -- merge_id : TBasicType TUInt IO () {-# DEPRECATED uIManagerRemoveUi ["(Since version 3.10)"]#-} @@ -1176,7 +1186,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "add_tearoffs", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/UIManager.hs-boot b/GI/Gtk/Objects/UIManager.hs-boot --- a/GI/Gtk/Objects/UIManager.hs-boot +++ b/GI/Gtk/Objects/UIManager.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.UIManager where -import Prelude () 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 diff --git a/GI/Gtk/Objects/VBox.hs b/GI/Gtk/Objects/VBox.hs --- a/GI/Gtk/Objects/VBox.hs +++ b/GI/Gtk/Objects/VBox.hs @@ -25,9 +25,9 @@ ) where -import Prelude () 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 @@ -403,15 +403,15 @@ -- method VBox::new -- method type : Constructor --- Args : [Arg {argCName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "VBox" +-- returnType : Just (TInterface "Gtk" "VBox") -- throws : False -- Skip return : False foreign import ccall "gtk_vbox_new" gtk_vbox_new :: CInt -> -- homogeneous : TBasicType TBoolean - Int32 -> -- spacing : TBasicType TInt32 + Int32 -> -- spacing : TBasicType TInt IO (Ptr VBox) {-# DEPRECATED vBoxNew ["(Since version 3.2)","You can use gtk_box_new() with %GTK_ORIENTATION_VERTICAL instead,"," which is a quick and easy change. But the recommendation is to switch to"," #GtkGrid, since #GtkBox is going to go away eventually."," See [Migrating from other containers to GtkGrid][gtk-migrating-GtkGrid]."]#-} diff --git a/GI/Gtk/Objects/VBox.hs-boot b/GI/Gtk/Objects/VBox.hs-boot --- a/GI/Gtk/Objects/VBox.hs-boot +++ b/GI/Gtk/Objects/VBox.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.VBox where -import Prelude () 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 diff --git a/GI/Gtk/Objects/VButtonBox.hs b/GI/Gtk/Objects/VButtonBox.hs --- a/GI/Gtk/Objects/VButtonBox.hs +++ b/GI/Gtk/Objects/VButtonBox.hs @@ -25,9 +25,9 @@ ) where -import Prelude () 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 @@ -411,7 +411,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "VButtonBox" +-- returnType : Just (TInterface "Gtk" "VButtonBox") -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/VButtonBox.hs-boot b/GI/Gtk/Objects/VButtonBox.hs-boot --- a/GI/Gtk/Objects/VButtonBox.hs-boot +++ b/GI/Gtk/Objects/VButtonBox.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.VButtonBox where -import Prelude () 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 diff --git a/GI/Gtk/Objects/VPaned.hs b/GI/Gtk/Objects/VPaned.hs --- a/GI/Gtk/Objects/VPaned.hs +++ b/GI/Gtk/Objects/VPaned.hs @@ -25,9 +25,9 @@ ) where -import Prelude () 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 @@ -403,7 +403,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "VPaned" +-- returnType : Just (TInterface "Gtk" "VPaned") -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/VPaned.hs-boot b/GI/Gtk/Objects/VPaned.hs-boot --- a/GI/Gtk/Objects/VPaned.hs-boot +++ b/GI/Gtk/Objects/VPaned.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.VPaned where -import Prelude () 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 diff --git a/GI/Gtk/Objects/VScale.hs b/GI/Gtk/Objects/VScale.hs --- a/GI/Gtk/Objects/VScale.hs +++ b/GI/Gtk/Objects/VScale.hs @@ -29,9 +29,9 @@ ) where -import Prelude () 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 @@ -410,7 +410,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "VScale" +-- returnType : Just (TInterface "Gtk" "VScale") -- throws : False -- Skip return : False @@ -435,7 +435,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "VScale" +-- returnType : Just (TInterface "Gtk" "VScale") -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/VScale.hs-boot b/GI/Gtk/Objects/VScale.hs-boot --- a/GI/Gtk/Objects/VScale.hs-boot +++ b/GI/Gtk/Objects/VScale.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.VScale where -import Prelude () 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 diff --git a/GI/Gtk/Objects/VScrollbar.hs b/GI/Gtk/Objects/VScrollbar.hs --- a/GI/Gtk/Objects/VScrollbar.hs +++ b/GI/Gtk/Objects/VScrollbar.hs @@ -25,9 +25,9 @@ ) where -import Prelude () 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 @@ -394,7 +394,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "VScrollbar" +-- returnType : Just (TInterface "Gtk" "VScrollbar") -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/VScrollbar.hs-boot b/GI/Gtk/Objects/VScrollbar.hs-boot --- a/GI/Gtk/Objects/VScrollbar.hs-boot +++ b/GI/Gtk/Objects/VScrollbar.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.VScrollbar where -import Prelude () 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 diff --git a/GI/Gtk/Objects/VSeparator.hs b/GI/Gtk/Objects/VSeparator.hs --- a/GI/Gtk/Objects/VSeparator.hs +++ b/GI/Gtk/Objects/VSeparator.hs @@ -25,9 +25,9 @@ ) where -import Prelude () 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 @@ -366,7 +366,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "VSeparator" +-- returnType : Just (TInterface "Gtk" "VSeparator") -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/VSeparator.hs-boot b/GI/Gtk/Objects/VSeparator.hs-boot --- a/GI/Gtk/Objects/VSeparator.hs-boot +++ b/GI/Gtk/Objects/VSeparator.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.VSeparator where -import Prelude () 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 diff --git a/GI/Gtk/Objects/Viewport.hs b/GI/Gtk/Objects/Viewport.hs --- a/GI/Gtk/Objects/Viewport.hs +++ b/GI/Gtk/Objects/Viewport.hs @@ -69,15 +69,16 @@ constructViewportShadowType , getViewportShadowType , setViewportShadowType , + viewportShadowType , ) where -import Prelude () 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 @@ -444,6 +445,7 @@ -- VVV Prop "shadow-type" -- Type: TInterface "Gtk" "ShadowType" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getViewportShadowType :: (MonadIO m, ViewportK o) => o -> m ShadowType getViewportShadowType obj = liftIO $ getObjectPropertyEnum obj "shadow-type" @@ -464,10 +466,14 @@ attrGet _ = getViewportShadowType attrSet _ = setViewportShadowType attrConstruct _ = constructViewportShadowType + attrClear _ = undefined type instance AttributeList Viewport = ViewportAttributeList type ViewportAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("hadjustment", ScrollableHadjustmentPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hscrollPolicy", ScrollableHscrollPolicyPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadowType", ViewportShadowTypePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("vadjustment", ScrollableVadjustmentPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("vscrollPolicy", ScrollableVscrollPolicyPropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) +viewportShadowType :: AttrLabelProxy "shadowType" +viewportShadowType = AttrLabelProxy + type instance SignalList Viewport = ViewportSignalList type ViewportSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -475,7 +481,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "hadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "vadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Viewport" +-- returnType : Just (TInterface "Gtk" "Viewport") -- throws : False -- Skip return : False @@ -512,7 +518,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gdk" "Window" +-- returnType : Just (TInterface "Gdk" "Window") -- throws : False -- Skip return : False @@ -541,7 +547,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Adjustment" +-- returnType : Just (TInterface "Gtk" "Adjustment") -- throws : False -- Skip return : False @@ -570,7 +576,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "ShadowType" +-- returnType : Just (TInterface "Gtk" "ShadowType") -- throws : False -- Skip return : False @@ -598,7 +604,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Adjustment" +-- returnType : Just (TInterface "Gtk" "Adjustment") -- throws : False -- Skip return : False @@ -627,7 +633,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gdk" "Window" +-- returnType : Just (TInterface "Gdk" "Window") -- throws : False -- Skip return : False @@ -656,7 +662,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -691,7 +697,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -721,7 +727,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/Viewport.hs-boot b/GI/Gtk/Objects/Viewport.hs-boot --- a/GI/Gtk/Objects/Viewport.hs-boot +++ b/GI/Gtk/Objects/Viewport.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.Viewport where -import Prelude () 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 diff --git a/GI/Gtk/Objects/VolumeButton.hs b/GI/Gtk/Objects/VolumeButton.hs --- a/GI/Gtk/Objects/VolumeButton.hs +++ b/GI/Gtk/Objects/VolumeButton.hs @@ -29,15 +29,16 @@ constructVolumeButtonUseSymbolic , getVolumeButtonUseSymbolic , setVolumeButtonUseSymbolic , + volumeButtonUseSymbolic , ) where -import Prelude () 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 @@ -439,6 +440,7 @@ -- VVV Prop "use-symbolic" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Nothing,Nothing) getVolumeButtonUseSymbolic :: (MonadIO m, VolumeButtonK o) => o -> m Bool getVolumeButtonUseSymbolic obj = liftIO $ getObjectPropertyBool obj "use-symbolic" @@ -459,10 +461,14 @@ attrGet _ = getVolumeButtonUseSymbolic attrSet _ = setVolumeButtonUseSymbolic attrConstruct _ = constructVolumeButtonUseSymbolic + attrClear _ = undefined type instance AttributeList VolumeButton = VolumeButtonAttributeList type VolumeButtonAttributeList = ('[ '("actionName", ActionableActionNamePropertyInfo), '("actionTarget", ActionableActionTargetPropertyInfo), '("adjustment", ScaleButtonAdjustmentPropertyInfo), '("alwaysShowImage", ButtonAlwaysShowImagePropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnClick", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("icons", ScaleButtonIconsPropertyInfo), '("image", ButtonImagePropertyInfo), '("imagePosition", ButtonImagePositionPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("relatedAction", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("size", ScaleButtonSizePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("useActionAppearance", ActivatableUseActionAppearancePropertyInfo), '("useStock", ButtonUseStockPropertyInfo), '("useSymbolic", VolumeButtonUseSymbolicPropertyInfo), '("useUnderline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("value", ScaleButtonValuePropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) +volumeButtonUseSymbolic :: AttrLabelProxy "useSymbolic" +volumeButtonUseSymbolic = AttrLabelProxy + type instance SignalList VolumeButton = VolumeButtonSignalList type VolumeButtonSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popdown", ScaleButtonPopdownSignalInfo), '("popup", ScaleButtonPopupSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("valueChanged", ScaleButtonValueChangedSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) @@ -470,7 +476,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "VolumeButton" +-- returnType : Just (TInterface "Gtk" "VolumeButton") -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/VolumeButton.hs-boot b/GI/Gtk/Objects/VolumeButton.hs-boot --- a/GI/Gtk/Objects/VolumeButton.hs-boot +++ b/GI/Gtk/Objects/VolumeButton.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.VolumeButton where -import Prelude () 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 diff --git a/GI/Gtk/Objects/Widget.hs b/GI/Gtk/Objects/Widget.hs --- a/GI/Gtk/Objects/Widget.hs +++ b/GI/Gtk/Objects/Widget.hs @@ -1330,13742 +1330,13980 @@ constructWidgetAppPaintable , getWidgetAppPaintable , setWidgetAppPaintable , - - --- ** CanDefault - WidgetCanDefaultPropertyInfo , - constructWidgetCanDefault , - getWidgetCanDefault , - setWidgetCanDefault , - - --- ** CanFocus - WidgetCanFocusPropertyInfo , - constructWidgetCanFocus , - getWidgetCanFocus , - setWidgetCanFocus , - - --- ** CompositeChild - WidgetCompositeChildPropertyInfo , - getWidgetCompositeChild , - - --- ** DoubleBuffered - WidgetDoubleBufferedPropertyInfo , - constructWidgetDoubleBuffered , - getWidgetDoubleBuffered , - setWidgetDoubleBuffered , - - --- ** Events - WidgetEventsPropertyInfo , - constructWidgetEvents , - getWidgetEvents , - setWidgetEvents , - - --- ** Expand - WidgetExpandPropertyInfo , - constructWidgetExpand , - getWidgetExpand , - setWidgetExpand , - - --- ** Halign - WidgetHalignPropertyInfo , - constructWidgetHalign , - getWidgetHalign , - setWidgetHalign , - - --- ** HasDefault - WidgetHasDefaultPropertyInfo , - constructWidgetHasDefault , - getWidgetHasDefault , - setWidgetHasDefault , - - --- ** HasFocus - WidgetHasFocusPropertyInfo , - constructWidgetHasFocus , - getWidgetHasFocus , - setWidgetHasFocus , - - --- ** HasTooltip - WidgetHasTooltipPropertyInfo , - constructWidgetHasTooltip , - getWidgetHasTooltip , - setWidgetHasTooltip , - - --- ** HeightRequest - WidgetHeightRequestPropertyInfo , - constructWidgetHeightRequest , - getWidgetHeightRequest , - setWidgetHeightRequest , - - --- ** Hexpand - WidgetHexpandPropertyInfo , - constructWidgetHexpand , - getWidgetHexpand , - setWidgetHexpand , - - --- ** HexpandSet - WidgetHexpandSetPropertyInfo , - constructWidgetHexpandSet , - getWidgetHexpandSet , - setWidgetHexpandSet , - - --- ** IsFocus - WidgetIsFocusPropertyInfo , - constructWidgetIsFocus , - getWidgetIsFocus , - setWidgetIsFocus , - - --- ** Margin - WidgetMarginPropertyInfo , - constructWidgetMargin , - getWidgetMargin , - setWidgetMargin , - - --- ** MarginBottom - WidgetMarginBottomPropertyInfo , - constructWidgetMarginBottom , - getWidgetMarginBottom , - setWidgetMarginBottom , - - --- ** MarginEnd - WidgetMarginEndPropertyInfo , - constructWidgetMarginEnd , - getWidgetMarginEnd , - setWidgetMarginEnd , - - --- ** MarginLeft - WidgetMarginLeftPropertyInfo , - constructWidgetMarginLeft , - getWidgetMarginLeft , - setWidgetMarginLeft , - - --- ** MarginRight - WidgetMarginRightPropertyInfo , - constructWidgetMarginRight , - getWidgetMarginRight , - setWidgetMarginRight , - - --- ** MarginStart - WidgetMarginStartPropertyInfo , - constructWidgetMarginStart , - getWidgetMarginStart , - setWidgetMarginStart , - - --- ** MarginTop - WidgetMarginTopPropertyInfo , - constructWidgetMarginTop , - getWidgetMarginTop , - setWidgetMarginTop , - - --- ** Name - WidgetNamePropertyInfo , - constructWidgetName , - getWidgetName , - setWidgetName , - - --- ** NoShowAll - WidgetNoShowAllPropertyInfo , - constructWidgetNoShowAll , - getWidgetNoShowAll , - setWidgetNoShowAll , - - --- ** Opacity - WidgetOpacityPropertyInfo , - constructWidgetOpacity , - getWidgetOpacity , - setWidgetOpacity , - - --- ** Parent - WidgetParentPropertyInfo , - constructWidgetParent , - getWidgetParent , - setWidgetParent , - - --- ** ReceivesDefault - WidgetReceivesDefaultPropertyInfo , - constructWidgetReceivesDefault , - getWidgetReceivesDefault , - setWidgetReceivesDefault , - - --- ** ScaleFactor - WidgetScaleFactorPropertyInfo , - getWidgetScaleFactor , - - --- ** Sensitive - WidgetSensitivePropertyInfo , - constructWidgetSensitive , - getWidgetSensitive , - setWidgetSensitive , - - --- ** Style - WidgetStylePropertyInfo , - constructWidgetStyle , - getWidgetStyle , - setWidgetStyle , - - --- ** TooltipMarkup - WidgetTooltipMarkupPropertyInfo , - constructWidgetTooltipMarkup , - getWidgetTooltipMarkup , - setWidgetTooltipMarkup , - - --- ** TooltipText - WidgetTooltipTextPropertyInfo , - constructWidgetTooltipText , - getWidgetTooltipText , - setWidgetTooltipText , - - --- ** Valign - WidgetValignPropertyInfo , - constructWidgetValign , - getWidgetValign , - setWidgetValign , - - --- ** Vexpand - WidgetVexpandPropertyInfo , - constructWidgetVexpand , - getWidgetVexpand , - setWidgetVexpand , - - --- ** VexpandSet - WidgetVexpandSetPropertyInfo , - constructWidgetVexpandSet , - getWidgetVexpandSet , - setWidgetVexpandSet , - - --- ** Visible - WidgetVisiblePropertyInfo , - constructWidgetVisible , - getWidgetVisible , - setWidgetVisible , - - --- ** WidthRequest - WidgetWidthRequestPropertyInfo , - constructWidgetWidthRequest , - getWidgetWidthRequest , - setWidgetWidthRequest , - - --- ** Window - WidgetWindowPropertyInfo , - getWidgetWindow , - - - - - -- * Signals --- ** AccelClosuresChanged - WidgetAccelClosuresChangedCallback , - WidgetAccelClosuresChangedCallbackC , - WidgetAccelClosuresChangedSignalInfo , - afterWidgetAccelClosuresChanged , - mkWidgetAccelClosuresChangedCallback , - noWidgetAccelClosuresChangedCallback , - onWidgetAccelClosuresChanged , - widgetAccelClosuresChangedCallbackWrapper, - widgetAccelClosuresChangedClosure , - - --- ** ButtonPressEvent - WidgetButtonPressEventCallback , - WidgetButtonPressEventCallbackC , - WidgetButtonPressEventSignalInfo , - afterWidgetButtonPressEvent , - mkWidgetButtonPressEventCallback , - noWidgetButtonPressEventCallback , - onWidgetButtonPressEvent , - widgetButtonPressEventCallbackWrapper , - widgetButtonPressEventClosure , - - --- ** ButtonReleaseEvent - WidgetButtonReleaseEventCallback , - WidgetButtonReleaseEventCallbackC , - WidgetButtonReleaseEventSignalInfo , - afterWidgetButtonReleaseEvent , - mkWidgetButtonReleaseEventCallback , - noWidgetButtonReleaseEventCallback , - onWidgetButtonReleaseEvent , - widgetButtonReleaseEventCallbackWrapper , - widgetButtonReleaseEventClosure , - - --- ** CanActivateAccel - WidgetCanActivateAccelCallback , - WidgetCanActivateAccelCallbackC , - WidgetCanActivateAccelSignalInfo , - afterWidgetCanActivateAccel , - mkWidgetCanActivateAccelCallback , - noWidgetCanActivateAccelCallback , - onWidgetCanActivateAccel , - widgetCanActivateAccelCallbackWrapper , - widgetCanActivateAccelClosure , - - --- ** ChildNotify - WidgetChildNotifyCallback , - WidgetChildNotifyCallbackC , - WidgetChildNotifySignalInfo , - afterWidgetChildNotify , - mkWidgetChildNotifyCallback , - noWidgetChildNotifyCallback , - onWidgetChildNotify , - widgetChildNotifyCallbackWrapper , - widgetChildNotifyClosure , - - --- ** CompositedChanged - WidgetCompositedChangedCallback , - WidgetCompositedChangedCallbackC , - WidgetCompositedChangedSignalInfo , - afterWidgetCompositedChanged , - mkWidgetCompositedChangedCallback , - noWidgetCompositedChangedCallback , - onWidgetCompositedChanged , - widgetCompositedChangedCallbackWrapper , - widgetCompositedChangedClosure , - - --- ** ConfigureEvent - WidgetConfigureEventCallback , - WidgetConfigureEventCallbackC , - WidgetConfigureEventSignalInfo , - afterWidgetConfigureEvent , - mkWidgetConfigureEventCallback , - noWidgetConfigureEventCallback , - onWidgetConfigureEvent , - widgetConfigureEventCallbackWrapper , - widgetConfigureEventClosure , - - --- ** DamageEvent - WidgetDamageEventCallback , - WidgetDamageEventCallbackC , - WidgetDamageEventSignalInfo , - afterWidgetDamageEvent , - mkWidgetDamageEventCallback , - noWidgetDamageEventCallback , - onWidgetDamageEvent , - widgetDamageEventCallbackWrapper , - widgetDamageEventClosure , - - --- ** DeleteEvent - WidgetDeleteEventCallback , - WidgetDeleteEventCallbackC , - WidgetDeleteEventSignalInfo , - afterWidgetDeleteEvent , - mkWidgetDeleteEventCallback , - noWidgetDeleteEventCallback , - onWidgetDeleteEvent , - widgetDeleteEventCallbackWrapper , - widgetDeleteEventClosure , - - --- ** Destroy - WidgetDestroyCallback , - WidgetDestroyCallbackC , - WidgetDestroySignalInfo , - afterWidgetDestroy , - mkWidgetDestroyCallback , - noWidgetDestroyCallback , - onWidgetDestroy , - widgetDestroyCallbackWrapper , - widgetDestroyClosure , - - --- ** DestroyEvent - WidgetDestroyEventCallback , - WidgetDestroyEventCallbackC , - WidgetDestroyEventSignalInfo , - afterWidgetDestroyEvent , - mkWidgetDestroyEventCallback , - noWidgetDestroyEventCallback , - onWidgetDestroyEvent , - widgetDestroyEventCallbackWrapper , - widgetDestroyEventClosure , - - --- ** DirectionChanged - WidgetDirectionChangedCallback , - WidgetDirectionChangedCallbackC , - WidgetDirectionChangedSignalInfo , - afterWidgetDirectionChanged , - mkWidgetDirectionChangedCallback , - noWidgetDirectionChangedCallback , - onWidgetDirectionChanged , - widgetDirectionChangedCallbackWrapper , - widgetDirectionChangedClosure , - - --- ** DragBegin - WidgetDragBeginCallback , - WidgetDragBeginCallbackC , - WidgetDragBeginSignalInfo , - afterWidgetDragBegin , - mkWidgetDragBeginCallback , - noWidgetDragBeginCallback , - onWidgetDragBegin , - widgetDragBeginCallbackWrapper , - widgetDragBeginClosure , - - --- ** DragDataDelete - WidgetDragDataDeleteCallback , - WidgetDragDataDeleteCallbackC , - WidgetDragDataDeleteSignalInfo , - afterWidgetDragDataDelete , - mkWidgetDragDataDeleteCallback , - noWidgetDragDataDeleteCallback , - onWidgetDragDataDelete , - widgetDragDataDeleteCallbackWrapper , - widgetDragDataDeleteClosure , - - --- ** DragDataGet - WidgetDragDataGetCallback , - WidgetDragDataGetCallbackC , - WidgetDragDataGetSignalInfo , - afterWidgetDragDataGet , - mkWidgetDragDataGetCallback , - noWidgetDragDataGetCallback , - onWidgetDragDataGet , - widgetDragDataGetCallbackWrapper , - widgetDragDataGetClosure , - - --- ** DragDataReceived - WidgetDragDataReceivedCallback , - WidgetDragDataReceivedCallbackC , - WidgetDragDataReceivedSignalInfo , - afterWidgetDragDataReceived , - mkWidgetDragDataReceivedCallback , - noWidgetDragDataReceivedCallback , - onWidgetDragDataReceived , - widgetDragDataReceivedCallbackWrapper , - widgetDragDataReceivedClosure , - - --- ** DragDrop - WidgetDragDropCallback , - WidgetDragDropCallbackC , - WidgetDragDropSignalInfo , - afterWidgetDragDrop , - mkWidgetDragDropCallback , - noWidgetDragDropCallback , - onWidgetDragDrop , - widgetDragDropCallbackWrapper , - widgetDragDropClosure , - - --- ** DragEnd - WidgetDragEndCallback , - WidgetDragEndCallbackC , - WidgetDragEndSignalInfo , - afterWidgetDragEnd , - mkWidgetDragEndCallback , - noWidgetDragEndCallback , - onWidgetDragEnd , - widgetDragEndCallbackWrapper , - widgetDragEndClosure , - - --- ** DragFailed - WidgetDragFailedCallback , - WidgetDragFailedCallbackC , - WidgetDragFailedSignalInfo , - afterWidgetDragFailed , - mkWidgetDragFailedCallback , - noWidgetDragFailedCallback , - onWidgetDragFailed , - widgetDragFailedCallbackWrapper , - widgetDragFailedClosure , - - --- ** DragLeave - WidgetDragLeaveCallback , - WidgetDragLeaveCallbackC , - WidgetDragLeaveSignalInfo , - afterWidgetDragLeave , - mkWidgetDragLeaveCallback , - noWidgetDragLeaveCallback , - onWidgetDragLeave , - widgetDragLeaveCallbackWrapper , - widgetDragLeaveClosure , - - --- ** DragMotion - WidgetDragMotionCallback , - WidgetDragMotionCallbackC , - WidgetDragMotionSignalInfo , - afterWidgetDragMotion , - mkWidgetDragMotionCallback , - noWidgetDragMotionCallback , - onWidgetDragMotion , - widgetDragMotionCallbackWrapper , - widgetDragMotionClosure , - - --- ** Draw - WidgetDrawCallback , - WidgetDrawCallbackC , - WidgetDrawSignalInfo , - afterWidgetDraw , - mkWidgetDrawCallback , - noWidgetDrawCallback , - onWidgetDraw , - widgetDrawCallbackWrapper , - widgetDrawClosure , - - --- ** EnterNotifyEvent - WidgetEnterNotifyEventCallback , - WidgetEnterNotifyEventCallbackC , - WidgetEnterNotifyEventSignalInfo , - afterWidgetEnterNotifyEvent , - mkWidgetEnterNotifyEventCallback , - noWidgetEnterNotifyEventCallback , - onWidgetEnterNotifyEvent , - widgetEnterNotifyEventCallbackWrapper , - widgetEnterNotifyEventClosure , - - --- ** Event - WidgetEventCallback , - WidgetEventCallbackC , - WidgetEventSignalInfo , - afterWidgetEvent , - mkWidgetEventCallback , - noWidgetEventCallback , - onWidgetEvent , - widgetEventCallbackWrapper , - widgetEventClosure , - - --- ** EventAfter - WidgetEventAfterCallback , - WidgetEventAfterCallbackC , - WidgetEventAfterSignalInfo , - afterWidgetEventAfter , - mkWidgetEventAfterCallback , - noWidgetEventAfterCallback , - onWidgetEventAfter , - widgetEventAfterCallbackWrapper , - widgetEventAfterClosure , - - --- ** Focus - WidgetFocusCallback , - WidgetFocusCallbackC , - WidgetFocusSignalInfo , - afterWidgetFocus , - mkWidgetFocusCallback , - noWidgetFocusCallback , - onWidgetFocus , - widgetFocusCallbackWrapper , - widgetFocusClosure , - - --- ** FocusInEvent - WidgetFocusInEventCallback , - WidgetFocusInEventCallbackC , - WidgetFocusInEventSignalInfo , - afterWidgetFocusInEvent , - mkWidgetFocusInEventCallback , - noWidgetFocusInEventCallback , - onWidgetFocusInEvent , - widgetFocusInEventCallbackWrapper , - widgetFocusInEventClosure , - - --- ** FocusOutEvent - WidgetFocusOutEventCallback , - WidgetFocusOutEventCallbackC , - WidgetFocusOutEventSignalInfo , - afterWidgetFocusOutEvent , - mkWidgetFocusOutEventCallback , - noWidgetFocusOutEventCallback , - onWidgetFocusOutEvent , - widgetFocusOutEventCallbackWrapper , - widgetFocusOutEventClosure , - - --- ** GrabBrokenEvent - WidgetGrabBrokenEventCallback , - WidgetGrabBrokenEventCallbackC , - WidgetGrabBrokenEventSignalInfo , - afterWidgetGrabBrokenEvent , - mkWidgetGrabBrokenEventCallback , - noWidgetGrabBrokenEventCallback , - onWidgetGrabBrokenEvent , - widgetGrabBrokenEventCallbackWrapper , - widgetGrabBrokenEventClosure , - - --- ** GrabFocus - WidgetGrabFocusCallback , - WidgetGrabFocusCallbackC , - WidgetGrabFocusSignalInfo , - afterWidgetGrabFocus , - mkWidgetGrabFocusCallback , - noWidgetGrabFocusCallback , - onWidgetGrabFocus , - widgetGrabFocusCallbackWrapper , - widgetGrabFocusClosure , - - --- ** GrabNotify - WidgetGrabNotifyCallback , - WidgetGrabNotifyCallbackC , - WidgetGrabNotifySignalInfo , - afterWidgetGrabNotify , - mkWidgetGrabNotifyCallback , - noWidgetGrabNotifyCallback , - onWidgetGrabNotify , - widgetGrabNotifyCallbackWrapper , - widgetGrabNotifyClosure , - - --- ** Hide - WidgetHideCallback , - WidgetHideCallbackC , - WidgetHideSignalInfo , - afterWidgetHide , - mkWidgetHideCallback , - noWidgetHideCallback , - onWidgetHide , - widgetHideCallbackWrapper , - widgetHideClosure , - - --- ** HierarchyChanged - WidgetHierarchyChangedCallback , - WidgetHierarchyChangedCallbackC , - WidgetHierarchyChangedSignalInfo , - afterWidgetHierarchyChanged , - mkWidgetHierarchyChangedCallback , - noWidgetHierarchyChangedCallback , - onWidgetHierarchyChanged , - widgetHierarchyChangedCallbackWrapper , - widgetHierarchyChangedClosure , - - --- ** KeyPressEvent - WidgetKeyPressEventCallback , - WidgetKeyPressEventCallbackC , - WidgetKeyPressEventSignalInfo , - afterWidgetKeyPressEvent , - mkWidgetKeyPressEventCallback , - noWidgetKeyPressEventCallback , - onWidgetKeyPressEvent , - widgetKeyPressEventCallbackWrapper , - widgetKeyPressEventClosure , - - --- ** KeyReleaseEvent - WidgetKeyReleaseEventCallback , - WidgetKeyReleaseEventCallbackC , - WidgetKeyReleaseEventSignalInfo , - afterWidgetKeyReleaseEvent , - mkWidgetKeyReleaseEventCallback , - noWidgetKeyReleaseEventCallback , - onWidgetKeyReleaseEvent , - widgetKeyReleaseEventCallbackWrapper , - widgetKeyReleaseEventClosure , - - --- ** KeynavFailed - WidgetKeynavFailedCallback , - WidgetKeynavFailedCallbackC , - WidgetKeynavFailedSignalInfo , - afterWidgetKeynavFailed , - mkWidgetKeynavFailedCallback , - noWidgetKeynavFailedCallback , - onWidgetKeynavFailed , - widgetKeynavFailedCallbackWrapper , - widgetKeynavFailedClosure , - - --- ** LeaveNotifyEvent - WidgetLeaveNotifyEventCallback , - WidgetLeaveNotifyEventCallbackC , - WidgetLeaveNotifyEventSignalInfo , - afterWidgetLeaveNotifyEvent , - mkWidgetLeaveNotifyEventCallback , - noWidgetLeaveNotifyEventCallback , - onWidgetLeaveNotifyEvent , - widgetLeaveNotifyEventCallbackWrapper , - widgetLeaveNotifyEventClosure , - - --- ** Map - WidgetMapCallback , - WidgetMapCallbackC , - WidgetMapSignalInfo , - afterWidgetMap , - mkWidgetMapCallback , - noWidgetMapCallback , - onWidgetMap , - widgetMapCallbackWrapper , - widgetMapClosure , - - --- ** MapEvent - WidgetMapEventCallback , - WidgetMapEventCallbackC , - WidgetMapEventSignalInfo , - afterWidgetMapEvent , - mkWidgetMapEventCallback , - noWidgetMapEventCallback , - onWidgetMapEvent , - widgetMapEventCallbackWrapper , - widgetMapEventClosure , - - --- ** MnemonicActivate - WidgetMnemonicActivateCallback , - WidgetMnemonicActivateCallbackC , - WidgetMnemonicActivateSignalInfo , - afterWidgetMnemonicActivate , - mkWidgetMnemonicActivateCallback , - noWidgetMnemonicActivateCallback , - onWidgetMnemonicActivate , - widgetMnemonicActivateCallbackWrapper , - widgetMnemonicActivateClosure , - - --- ** MotionNotifyEvent - WidgetMotionNotifyEventCallback , - WidgetMotionNotifyEventCallbackC , - WidgetMotionNotifyEventSignalInfo , - afterWidgetMotionNotifyEvent , - mkWidgetMotionNotifyEventCallback , - noWidgetMotionNotifyEventCallback , - onWidgetMotionNotifyEvent , - widgetMotionNotifyEventCallbackWrapper , - widgetMotionNotifyEventClosure , - - --- ** MoveFocus - WidgetMoveFocusCallback , - WidgetMoveFocusCallbackC , - WidgetMoveFocusSignalInfo , - afterWidgetMoveFocus , - mkWidgetMoveFocusCallback , - noWidgetMoveFocusCallback , - onWidgetMoveFocus , - widgetMoveFocusCallbackWrapper , - widgetMoveFocusClosure , - - --- ** ParentSet - WidgetParentSetCallback , - WidgetParentSetCallbackC , - WidgetParentSetSignalInfo , - afterWidgetParentSet , - mkWidgetParentSetCallback , - noWidgetParentSetCallback , - onWidgetParentSet , - widgetParentSetCallbackWrapper , - widgetParentSetClosure , - - --- ** PopupMenu - WidgetPopupMenuCallback , - WidgetPopupMenuCallbackC , - WidgetPopupMenuSignalInfo , - afterWidgetPopupMenu , - mkWidgetPopupMenuCallback , - noWidgetPopupMenuCallback , - onWidgetPopupMenu , - widgetPopupMenuCallbackWrapper , - widgetPopupMenuClosure , - - --- ** PropertyNotifyEvent - WidgetPropertyNotifyEventCallback , - WidgetPropertyNotifyEventCallbackC , - WidgetPropertyNotifyEventSignalInfo , - afterWidgetPropertyNotifyEvent , - mkWidgetPropertyNotifyEventCallback , - noWidgetPropertyNotifyEventCallback , - onWidgetPropertyNotifyEvent , - widgetPropertyNotifyEventCallbackWrapper, - widgetPropertyNotifyEventClosure , - - --- ** ProximityInEvent - WidgetProximityInEventCallback , - WidgetProximityInEventCallbackC , - WidgetProximityInEventSignalInfo , - afterWidgetProximityInEvent , - mkWidgetProximityInEventCallback , - noWidgetProximityInEventCallback , - onWidgetProximityInEvent , - widgetProximityInEventCallbackWrapper , - widgetProximityInEventClosure , - - --- ** ProximityOutEvent - WidgetProximityOutEventCallback , - WidgetProximityOutEventCallbackC , - WidgetProximityOutEventSignalInfo , - afterWidgetProximityOutEvent , - mkWidgetProximityOutEventCallback , - noWidgetProximityOutEventCallback , - onWidgetProximityOutEvent , - widgetProximityOutEventCallbackWrapper , - widgetProximityOutEventClosure , - - --- ** QueryTooltip - WidgetQueryTooltipCallback , - WidgetQueryTooltipCallbackC , - WidgetQueryTooltipSignalInfo , - afterWidgetQueryTooltip , - mkWidgetQueryTooltipCallback , - noWidgetQueryTooltipCallback , - onWidgetQueryTooltip , - widgetQueryTooltipCallbackWrapper , - widgetQueryTooltipClosure , - - --- ** Realize - WidgetRealizeCallback , - WidgetRealizeCallbackC , - WidgetRealizeSignalInfo , - afterWidgetRealize , - mkWidgetRealizeCallback , - noWidgetRealizeCallback , - onWidgetRealize , - widgetRealizeCallbackWrapper , - widgetRealizeClosure , - - --- ** ScreenChanged - WidgetScreenChangedCallback , - WidgetScreenChangedCallbackC , - WidgetScreenChangedSignalInfo , - afterWidgetScreenChanged , - mkWidgetScreenChangedCallback , - noWidgetScreenChangedCallback , - onWidgetScreenChanged , - widgetScreenChangedCallbackWrapper , - widgetScreenChangedClosure , - - --- ** ScrollEvent - WidgetScrollEventCallback , - WidgetScrollEventCallbackC , - WidgetScrollEventSignalInfo , - afterWidgetScrollEvent , - mkWidgetScrollEventCallback , - noWidgetScrollEventCallback , - onWidgetScrollEvent , - widgetScrollEventCallbackWrapper , - widgetScrollEventClosure , - - --- ** SelectionClearEvent - WidgetSelectionClearEventCallback , - WidgetSelectionClearEventCallbackC , - WidgetSelectionClearEventSignalInfo , - afterWidgetSelectionClearEvent , - mkWidgetSelectionClearEventCallback , - noWidgetSelectionClearEventCallback , - onWidgetSelectionClearEvent , - widgetSelectionClearEventCallbackWrapper, - widgetSelectionClearEventClosure , - - --- ** SelectionGet - WidgetSelectionGetCallback , - WidgetSelectionGetCallbackC , - WidgetSelectionGetSignalInfo , - afterWidgetSelectionGet , - mkWidgetSelectionGetCallback , - noWidgetSelectionGetCallback , - onWidgetSelectionGet , - widgetSelectionGetCallbackWrapper , - widgetSelectionGetClosure , - - --- ** SelectionNotifyEvent - WidgetSelectionNotifyEventCallback , - WidgetSelectionNotifyEventCallbackC , - WidgetSelectionNotifyEventSignalInfo , - afterWidgetSelectionNotifyEvent , - mkWidgetSelectionNotifyEventCallback , - noWidgetSelectionNotifyEventCallback , - onWidgetSelectionNotifyEvent , - widgetSelectionNotifyEventCallbackWrapper, - widgetSelectionNotifyEventClosure , - - --- ** SelectionReceived - WidgetSelectionReceivedCallback , - WidgetSelectionReceivedCallbackC , - WidgetSelectionReceivedSignalInfo , - afterWidgetSelectionReceived , - mkWidgetSelectionReceivedCallback , - noWidgetSelectionReceivedCallback , - onWidgetSelectionReceived , - widgetSelectionReceivedCallbackWrapper , - widgetSelectionReceivedClosure , - - --- ** SelectionRequestEvent - WidgetSelectionRequestEventCallback , - WidgetSelectionRequestEventCallbackC , - WidgetSelectionRequestEventSignalInfo , - afterWidgetSelectionRequestEvent , - mkWidgetSelectionRequestEventCallback , - noWidgetSelectionRequestEventCallback , - onWidgetSelectionRequestEvent , - widgetSelectionRequestEventCallbackWrapper, - widgetSelectionRequestEventClosure , - - --- ** Show - WidgetShowCallback , - WidgetShowCallbackC , - WidgetShowSignalInfo , - afterWidgetShow , - mkWidgetShowCallback , - noWidgetShowCallback , - onWidgetShow , - widgetShowCallbackWrapper , - widgetShowClosure , - - --- ** ShowHelp - WidgetShowHelpCallback , - WidgetShowHelpCallbackC , - WidgetShowHelpSignalInfo , - afterWidgetShowHelp , - mkWidgetShowHelpCallback , - noWidgetShowHelpCallback , - onWidgetShowHelp , - widgetShowHelpCallbackWrapper , - widgetShowHelpClosure , - - --- ** SizeAllocate - WidgetSizeAllocateCallback , - WidgetSizeAllocateCallbackC , - WidgetSizeAllocateSignalInfo , - afterWidgetSizeAllocate , - mkWidgetSizeAllocateCallback , - noWidgetSizeAllocateCallback , - onWidgetSizeAllocate , - widgetSizeAllocateCallbackWrapper , - widgetSizeAllocateClosure , - - --- ** StateChanged - WidgetStateChangedCallback , - WidgetStateChangedCallbackC , - WidgetStateChangedSignalInfo , - afterWidgetStateChanged , - mkWidgetStateChangedCallback , - noWidgetStateChangedCallback , - onWidgetStateChanged , - widgetStateChangedCallbackWrapper , - widgetStateChangedClosure , - - --- ** StateFlagsChanged - WidgetStateFlagsChangedCallback , - WidgetStateFlagsChangedCallbackC , - WidgetStateFlagsChangedSignalInfo , - afterWidgetStateFlagsChanged , - mkWidgetStateFlagsChangedCallback , - noWidgetStateFlagsChangedCallback , - onWidgetStateFlagsChanged , - widgetStateFlagsChangedCallbackWrapper , - widgetStateFlagsChangedClosure , - - --- ** StyleSet - WidgetStyleSetCallback , - WidgetStyleSetCallbackC , - WidgetStyleSetSignalInfo , - afterWidgetStyleSet , - mkWidgetStyleSetCallback , - noWidgetStyleSetCallback , - onWidgetStyleSet , - widgetStyleSetCallbackWrapper , - widgetStyleSetClosure , - - --- ** StyleUpdated - WidgetStyleUpdatedCallback , - WidgetStyleUpdatedCallbackC , - WidgetStyleUpdatedSignalInfo , - afterWidgetStyleUpdated , - mkWidgetStyleUpdatedCallback , - noWidgetStyleUpdatedCallback , - onWidgetStyleUpdated , - widgetStyleUpdatedCallbackWrapper , - widgetStyleUpdatedClosure , - - --- ** TouchEvent - WidgetTouchEventCallback , - WidgetTouchEventCallbackC , - WidgetTouchEventSignalInfo , - afterWidgetTouchEvent , - mkWidgetTouchEventCallback , - noWidgetTouchEventCallback , - onWidgetTouchEvent , - widgetTouchEventCallbackWrapper , - widgetTouchEventClosure , - - --- ** Unmap - WidgetUnmapCallback , - WidgetUnmapCallbackC , - WidgetUnmapSignalInfo , - afterWidgetUnmap , - mkWidgetUnmapCallback , - noWidgetUnmapCallback , - onWidgetUnmap , - widgetUnmapCallbackWrapper , - widgetUnmapClosure , - - --- ** UnmapEvent - WidgetUnmapEventCallback , - WidgetUnmapEventCallbackC , - WidgetUnmapEventSignalInfo , - afterWidgetUnmapEvent , - mkWidgetUnmapEventCallback , - noWidgetUnmapEventCallback , - onWidgetUnmapEvent , - widgetUnmapEventCallbackWrapper , - widgetUnmapEventClosure , - - --- ** Unrealize - WidgetUnrealizeCallback , - WidgetUnrealizeCallbackC , - WidgetUnrealizeSignalInfo , - afterWidgetUnrealize , - mkWidgetUnrealizeCallback , - noWidgetUnrealizeCallback , - onWidgetUnrealize , - widgetUnrealizeCallbackWrapper , - widgetUnrealizeClosure , - - --- ** VisibilityNotifyEvent - WidgetVisibilityNotifyEventCallback , - WidgetVisibilityNotifyEventCallbackC , - WidgetVisibilityNotifyEventSignalInfo , - afterWidgetVisibilityNotifyEvent , - mkWidgetVisibilityNotifyEventCallback , - noWidgetVisibilityNotifyEventCallback , - onWidgetVisibilityNotifyEvent , - widgetVisibilityNotifyEventCallbackWrapper, - widgetVisibilityNotifyEventClosure , - - --- ** WindowStateEvent - WidgetWindowStateEventCallback , - WidgetWindowStateEventCallbackC , - WidgetWindowStateEventSignalInfo , - afterWidgetWindowStateEvent , - mkWidgetWindowStateEventCallback , - noWidgetWindowStateEventCallback , - onWidgetWindowStateEvent , - widgetWindowStateEventCallbackWrapper , - widgetWindowStateEventClosure , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GLib as GLib -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk -import qualified GI.GdkPixbuf as GdkPixbuf -import qualified GI.Gio as Gio -import qualified GI.Pango as Pango -import qualified GI.Cairo as Cairo - -newtype Widget = Widget (ForeignPtr Widget) -foreign import ccall "gtk_widget_get_type" - c_gtk_widget_get_type :: IO GType - -type instance ParentTypes Widget = WidgetParentTypes -type WidgetParentTypes = '[GObject.Object, Atk.ImplementorIface, Buildable] - -instance GObject Widget where - gobjectIsInitiallyUnowned _ = True - gobjectType _ = c_gtk_widget_get_type - - -class GObject o => WidgetK o -instance (GObject o, IsDescendantOf Widget o) => WidgetK o - -toWidget :: WidgetK o => o -> IO Widget -toWidget = unsafeCastTo Widget - -noWidget :: Maybe Widget -noWidget = Nothing - -type family ResolveWidgetMethod (t :: Symbol) (o :: *) :: * where - ResolveWidgetMethod "activate" o = WidgetActivateMethodInfo - ResolveWidgetMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo - ResolveWidgetMethod "addChild" o = BuildableAddChildMethodInfo - ResolveWidgetMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo - ResolveWidgetMethod "addEvents" o = WidgetAddEventsMethodInfo - ResolveWidgetMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo - ResolveWidgetMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo - ResolveWidgetMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveWidgetMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveWidgetMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo - ResolveWidgetMethod "childFocus" o = WidgetChildFocusMethodInfo - ResolveWidgetMethod "childNotify" o = WidgetChildNotifyMethodInfo - ResolveWidgetMethod "classPath" o = WidgetClassPathMethodInfo - ResolveWidgetMethod "computeExpand" o = WidgetComputeExpandMethodInfo - ResolveWidgetMethod "constructChild" o = BuildableConstructChildMethodInfo - ResolveWidgetMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo - ResolveWidgetMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo - ResolveWidgetMethod "customFinished" o = BuildableCustomFinishedMethodInfo - ResolveWidgetMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo - ResolveWidgetMethod "customTagStart" o = BuildableCustomTagStartMethodInfo - ResolveWidgetMethod "destroy" o = WidgetDestroyMethodInfo - ResolveWidgetMethod "destroyed" o = WidgetDestroyedMethodInfo - ResolveWidgetMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo - ResolveWidgetMethod "dragBegin" o = WidgetDragBeginMethodInfo - ResolveWidgetMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo - ResolveWidgetMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo - ResolveWidgetMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo - ResolveWidgetMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo - ResolveWidgetMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo - ResolveWidgetMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo - ResolveWidgetMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo - ResolveWidgetMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo - ResolveWidgetMethod "dragDestSet" o = WidgetDragDestSetMethodInfo - ResolveWidgetMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo - ResolveWidgetMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo - ResolveWidgetMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo - ResolveWidgetMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo - ResolveWidgetMethod "dragGetData" o = WidgetDragGetDataMethodInfo - ResolveWidgetMethod "dragHighlight" o = WidgetDragHighlightMethodInfo - ResolveWidgetMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo - ResolveWidgetMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo - ResolveWidgetMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo - ResolveWidgetMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo - ResolveWidgetMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo - ResolveWidgetMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo - ResolveWidgetMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo - ResolveWidgetMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo - ResolveWidgetMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo - ResolveWidgetMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo - ResolveWidgetMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo - ResolveWidgetMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo - ResolveWidgetMethod "draw" o = WidgetDrawMethodInfo - ResolveWidgetMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo - ResolveWidgetMethod "errorBell" o = WidgetErrorBellMethodInfo - ResolveWidgetMethod "event" o = WidgetEventMethodInfo - ResolveWidgetMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveWidgetMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo - ResolveWidgetMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveWidgetMethod "grabAdd" o = WidgetGrabAddMethodInfo - ResolveWidgetMethod "grabDefault" o = WidgetGrabDefaultMethodInfo - ResolveWidgetMethod "grabFocus" o = WidgetGrabFocusMethodInfo - ResolveWidgetMethod "grabRemove" o = WidgetGrabRemoveMethodInfo - ResolveWidgetMethod "hasDefault" o = WidgetHasDefaultMethodInfo - ResolveWidgetMethod "hasFocus" o = WidgetHasFocusMethodInfo - ResolveWidgetMethod "hasGrab" o = WidgetHasGrabMethodInfo - ResolveWidgetMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo - ResolveWidgetMethod "hasScreen" o = WidgetHasScreenMethodInfo - ResolveWidgetMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo - ResolveWidgetMethod "hide" o = WidgetHideMethodInfo - ResolveWidgetMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo - ResolveWidgetMethod "inDestruction" o = WidgetInDestructionMethodInfo - ResolveWidgetMethod "initTemplate" o = WidgetInitTemplateMethodInfo - ResolveWidgetMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo - ResolveWidgetMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo - ResolveWidgetMethod "intersect" o = WidgetIntersectMethodInfo - ResolveWidgetMethod "isAncestor" o = WidgetIsAncestorMethodInfo - ResolveWidgetMethod "isComposited" o = WidgetIsCompositedMethodInfo - ResolveWidgetMethod "isDrawable" o = WidgetIsDrawableMethodInfo - ResolveWidgetMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveWidgetMethod "isFocus" o = WidgetIsFocusMethodInfo - ResolveWidgetMethod "isSensitive" o = WidgetIsSensitiveMethodInfo - ResolveWidgetMethod "isToplevel" o = WidgetIsToplevelMethodInfo - ResolveWidgetMethod "isVisible" o = WidgetIsVisibleMethodInfo - ResolveWidgetMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo - ResolveWidgetMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo - ResolveWidgetMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo - ResolveWidgetMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo - ResolveWidgetMethod "map" o = WidgetMapMethodInfo - ResolveWidgetMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo - ResolveWidgetMethod "modifyBase" o = WidgetModifyBaseMethodInfo - ResolveWidgetMethod "modifyBg" o = WidgetModifyBgMethodInfo - ResolveWidgetMethod "modifyCursor" o = WidgetModifyCursorMethodInfo - ResolveWidgetMethod "modifyFg" o = WidgetModifyFgMethodInfo - ResolveWidgetMethod "modifyFont" o = WidgetModifyFontMethodInfo - ResolveWidgetMethod "modifyStyle" o = WidgetModifyStyleMethodInfo - ResolveWidgetMethod "modifyText" o = WidgetModifyTextMethodInfo - ResolveWidgetMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveWidgetMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveWidgetMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo - ResolveWidgetMethod "overrideColor" o = WidgetOverrideColorMethodInfo - ResolveWidgetMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo - ResolveWidgetMethod "overrideFont" o = WidgetOverrideFontMethodInfo - ResolveWidgetMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo - ResolveWidgetMethod "parserFinished" o = BuildableParserFinishedMethodInfo - ResolveWidgetMethod "path" o = WidgetPathMethodInfo - ResolveWidgetMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo - ResolveWidgetMethod "queueDraw" o = WidgetQueueDrawMethodInfo - ResolveWidgetMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo - ResolveWidgetMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo - ResolveWidgetMethod "queueResize" o = WidgetQueueResizeMethodInfo - ResolveWidgetMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo - ResolveWidgetMethod "realize" o = WidgetRealizeMethodInfo - ResolveWidgetMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveWidgetMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveWidgetMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo - ResolveWidgetMethod "registerWindow" o = WidgetRegisterWindowMethodInfo - ResolveWidgetMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo - ResolveWidgetMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo - ResolveWidgetMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo - ResolveWidgetMethod "renderIcon" o = WidgetRenderIconMethodInfo - ResolveWidgetMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo - ResolveWidgetMethod "reparent" o = WidgetReparentMethodInfo - ResolveWidgetMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveWidgetMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveWidgetMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo - ResolveWidgetMethod "resetStyle" o = WidgetResetStyleMethodInfo - ResolveWidgetMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveWidgetMethod "sendExpose" o = WidgetSendExposeMethodInfo - ResolveWidgetMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo - ResolveWidgetMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo - ResolveWidgetMethod "show" o = WidgetShowMethodInfo - ResolveWidgetMethod "showAll" o = WidgetShowAllMethodInfo - ResolveWidgetMethod "showNow" o = WidgetShowNowMethodInfo - ResolveWidgetMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo - ResolveWidgetMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo - ResolveWidgetMethod "sizeRequest" o = WidgetSizeRequestMethodInfo - ResolveWidgetMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveWidgetMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveWidgetMethod "styleAttach" o = WidgetStyleAttachMethodInfo - ResolveWidgetMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo - ResolveWidgetMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo - ResolveWidgetMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveWidgetMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo - ResolveWidgetMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo - ResolveWidgetMethod "unmap" o = WidgetUnmapMethodInfo - ResolveWidgetMethod "unparent" o = WidgetUnparentMethodInfo - ResolveWidgetMethod "unrealize" o = WidgetUnrealizeMethodInfo - ResolveWidgetMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveWidgetMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo - ResolveWidgetMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo - ResolveWidgetMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveWidgetMethod "getAccessible" o = WidgetGetAccessibleMethodInfo - ResolveWidgetMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo - ResolveWidgetMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo - ResolveWidgetMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo - ResolveWidgetMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo - ResolveWidgetMethod "getAllocation" o = WidgetGetAllocationMethodInfo - ResolveWidgetMethod "getAncestor" o = WidgetGetAncestorMethodInfo - ResolveWidgetMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo - ResolveWidgetMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo - ResolveWidgetMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo - ResolveWidgetMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo - ResolveWidgetMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo - ResolveWidgetMethod "getClip" o = WidgetGetClipMethodInfo - ResolveWidgetMethod "getClipboard" o = WidgetGetClipboardMethodInfo - ResolveWidgetMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo - ResolveWidgetMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveWidgetMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo - ResolveWidgetMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo - ResolveWidgetMethod "getDirection" o = WidgetGetDirectionMethodInfo - ResolveWidgetMethod "getDisplay" o = WidgetGetDisplayMethodInfo - ResolveWidgetMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo - ResolveWidgetMethod "getEvents" o = WidgetGetEventsMethodInfo - ResolveWidgetMethod "getFontMap" o = WidgetGetFontMapMethodInfo - ResolveWidgetMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo - ResolveWidgetMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo - ResolveWidgetMethod "getHalign" o = WidgetGetHalignMethodInfo - ResolveWidgetMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo - ResolveWidgetMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo - ResolveWidgetMethod "getHexpand" o = WidgetGetHexpandMethodInfo - ResolveWidgetMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo - ResolveWidgetMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo - ResolveWidgetMethod "getMapped" o = WidgetGetMappedMethodInfo - ResolveWidgetMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo - ResolveWidgetMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo - ResolveWidgetMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo - ResolveWidgetMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo - ResolveWidgetMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo - ResolveWidgetMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo - ResolveWidgetMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo - ResolveWidgetMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo - ResolveWidgetMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo - ResolveWidgetMethod "getOpacity" o = WidgetGetOpacityMethodInfo - ResolveWidgetMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo - ResolveWidgetMethod "getParent" o = WidgetGetParentMethodInfo - ResolveWidgetMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo - ResolveWidgetMethod "getPath" o = WidgetGetPathMethodInfo - ResolveWidgetMethod "getPointer" o = WidgetGetPointerMethodInfo - ResolveWidgetMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo - ResolveWidgetMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo - ResolveWidgetMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo - ResolveWidgetMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo - ResolveWidgetMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo - ResolveWidgetMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo - ResolveWidgetMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveWidgetMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveWidgetMethod "getRealized" o = WidgetGetRealizedMethodInfo - ResolveWidgetMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo - ResolveWidgetMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo - ResolveWidgetMethod "getRequisition" o = WidgetGetRequisitionMethodInfo - ResolveWidgetMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo - ResolveWidgetMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo - ResolveWidgetMethod "getScreen" o = WidgetGetScreenMethodInfo - ResolveWidgetMethod "getSensitive" o = WidgetGetSensitiveMethodInfo - ResolveWidgetMethod "getSettings" o = WidgetGetSettingsMethodInfo - ResolveWidgetMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo - ResolveWidgetMethod "getState" o = WidgetGetStateMethodInfo - ResolveWidgetMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo - ResolveWidgetMethod "getStyle" o = WidgetGetStyleMethodInfo - ResolveWidgetMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo - ResolveWidgetMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo - ResolveWidgetMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo - ResolveWidgetMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo - ResolveWidgetMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo - ResolveWidgetMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo - ResolveWidgetMethod "getToplevel" o = WidgetGetToplevelMethodInfo - ResolveWidgetMethod "getValign" o = WidgetGetValignMethodInfo - ResolveWidgetMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo - ResolveWidgetMethod "getVexpand" o = WidgetGetVexpandMethodInfo - ResolveWidgetMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo - ResolveWidgetMethod "getVisible" o = WidgetGetVisibleMethodInfo - ResolveWidgetMethod "getVisual" o = WidgetGetVisualMethodInfo - ResolveWidgetMethod "getWindow" o = WidgetGetWindowMethodInfo - ResolveWidgetMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo - ResolveWidgetMethod "setAllocation" o = WidgetSetAllocationMethodInfo - ResolveWidgetMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo - ResolveWidgetMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo - ResolveWidgetMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo - ResolveWidgetMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo - ResolveWidgetMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo - ResolveWidgetMethod "setClip" o = WidgetSetClipMethodInfo - ResolveWidgetMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo - ResolveWidgetMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveWidgetMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo - ResolveWidgetMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo - ResolveWidgetMethod "setDirection" o = WidgetSetDirectionMethodInfo - ResolveWidgetMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo - ResolveWidgetMethod "setEvents" o = WidgetSetEventsMethodInfo - ResolveWidgetMethod "setFontMap" o = WidgetSetFontMapMethodInfo - ResolveWidgetMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo - ResolveWidgetMethod "setHalign" o = WidgetSetHalignMethodInfo - ResolveWidgetMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo - ResolveWidgetMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo - ResolveWidgetMethod "setHexpand" o = WidgetSetHexpandMethodInfo - ResolveWidgetMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo - ResolveWidgetMethod "setMapped" o = WidgetSetMappedMethodInfo - ResolveWidgetMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo - ResolveWidgetMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo - ResolveWidgetMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo - ResolveWidgetMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo - ResolveWidgetMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo - ResolveWidgetMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo - ResolveWidgetMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo - ResolveWidgetMethod "setOpacity" o = WidgetSetOpacityMethodInfo - ResolveWidgetMethod "setParent" o = WidgetSetParentMethodInfo - ResolveWidgetMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo - ResolveWidgetMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveWidgetMethod "setRealized" o = WidgetSetRealizedMethodInfo - ResolveWidgetMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo - ResolveWidgetMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo - ResolveWidgetMethod "setSensitive" o = WidgetSetSensitiveMethodInfo - ResolveWidgetMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo - ResolveWidgetMethod "setState" o = WidgetSetStateMethodInfo - ResolveWidgetMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo - ResolveWidgetMethod "setStyle" o = WidgetSetStyleMethodInfo - ResolveWidgetMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo - ResolveWidgetMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo - ResolveWidgetMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo - ResolveWidgetMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo - ResolveWidgetMethod "setValign" o = WidgetSetValignMethodInfo - ResolveWidgetMethod "setVexpand" o = WidgetSetVexpandMethodInfo - ResolveWidgetMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo - ResolveWidgetMethod "setVisible" o = WidgetSetVisibleMethodInfo - ResolveWidgetMethod "setVisual" o = WidgetSetVisualMethodInfo - ResolveWidgetMethod "setWindow" o = WidgetSetWindowMethodInfo - ResolveWidgetMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveWidgetMethod t Widget, MethodInfo info Widget p) => IsLabelProxy t (Widget -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveWidgetMethod t Widget, MethodInfo info Widget p) => IsLabel t (Widget -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal Widget::accel-closures-changed -type WidgetAccelClosuresChangedCallback = - IO () - -noWidgetAccelClosuresChangedCallback :: Maybe WidgetAccelClosuresChangedCallback -noWidgetAccelClosuresChangedCallback = Nothing - -type WidgetAccelClosuresChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetAccelClosuresChangedCallback :: WidgetAccelClosuresChangedCallbackC -> IO (FunPtr WidgetAccelClosuresChangedCallbackC) - -widgetAccelClosuresChangedClosure :: WidgetAccelClosuresChangedCallback -> IO Closure -widgetAccelClosuresChangedClosure cb = newCClosure =<< mkWidgetAccelClosuresChangedCallback wrapped - where wrapped = widgetAccelClosuresChangedCallbackWrapper cb - -widgetAccelClosuresChangedCallbackWrapper :: - WidgetAccelClosuresChangedCallback -> - Ptr () -> - Ptr () -> - IO () -widgetAccelClosuresChangedCallbackWrapper _cb _ _ = do - _cb - -onWidgetAccelClosuresChanged :: (GObject a, MonadIO m) => a -> WidgetAccelClosuresChangedCallback -> m SignalHandlerId -onWidgetAccelClosuresChanged obj cb = liftIO $ connectWidgetAccelClosuresChanged obj cb SignalConnectBefore -afterWidgetAccelClosuresChanged :: (GObject a, MonadIO m) => a -> WidgetAccelClosuresChangedCallback -> m SignalHandlerId -afterWidgetAccelClosuresChanged obj cb = connectWidgetAccelClosuresChanged obj cb SignalConnectAfter - -connectWidgetAccelClosuresChanged :: (GObject a, MonadIO m) => - a -> WidgetAccelClosuresChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetAccelClosuresChanged obj cb after = liftIO $ do - cb' <- mkWidgetAccelClosuresChangedCallback (widgetAccelClosuresChangedCallbackWrapper cb) - connectSignalFunPtr obj "accel-closures-changed" cb' after - --- signal Widget::button-press-event -type WidgetButtonPressEventCallback = - Gdk.EventButton -> - IO Bool - -noWidgetButtonPressEventCallback :: Maybe WidgetButtonPressEventCallback -noWidgetButtonPressEventCallback = Nothing - -type WidgetButtonPressEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventButton -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetButtonPressEventCallback :: WidgetButtonPressEventCallbackC -> IO (FunPtr WidgetButtonPressEventCallbackC) - -widgetButtonPressEventClosure :: WidgetButtonPressEventCallback -> IO Closure -widgetButtonPressEventClosure cb = newCClosure =<< mkWidgetButtonPressEventCallback wrapped - where wrapped = widgetButtonPressEventCallbackWrapper cb - -widgetButtonPressEventCallbackWrapper :: - WidgetButtonPressEventCallback -> - Ptr () -> - Ptr Gdk.EventButton -> - Ptr () -> - IO CInt -widgetButtonPressEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr 80 Gdk.EventButton) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetButtonPressEvent :: (GObject a, MonadIO m) => a -> WidgetButtonPressEventCallback -> m SignalHandlerId -onWidgetButtonPressEvent obj cb = liftIO $ connectWidgetButtonPressEvent obj cb SignalConnectBefore -afterWidgetButtonPressEvent :: (GObject a, MonadIO m) => a -> WidgetButtonPressEventCallback -> m SignalHandlerId -afterWidgetButtonPressEvent obj cb = connectWidgetButtonPressEvent obj cb SignalConnectAfter - -connectWidgetButtonPressEvent :: (GObject a, MonadIO m) => - a -> WidgetButtonPressEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetButtonPressEvent obj cb after = liftIO $ do - cb' <- mkWidgetButtonPressEventCallback (widgetButtonPressEventCallbackWrapper cb) - connectSignalFunPtr obj "button-press-event" cb' after - --- signal Widget::button-release-event -type WidgetButtonReleaseEventCallback = - Gdk.EventButton -> - IO Bool - -noWidgetButtonReleaseEventCallback :: Maybe WidgetButtonReleaseEventCallback -noWidgetButtonReleaseEventCallback = Nothing - -type WidgetButtonReleaseEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventButton -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetButtonReleaseEventCallback :: WidgetButtonReleaseEventCallbackC -> IO (FunPtr WidgetButtonReleaseEventCallbackC) - -widgetButtonReleaseEventClosure :: WidgetButtonReleaseEventCallback -> IO Closure -widgetButtonReleaseEventClosure cb = newCClosure =<< mkWidgetButtonReleaseEventCallback wrapped - where wrapped = widgetButtonReleaseEventCallbackWrapper cb - -widgetButtonReleaseEventCallbackWrapper :: - WidgetButtonReleaseEventCallback -> - Ptr () -> - Ptr Gdk.EventButton -> - Ptr () -> - IO CInt -widgetButtonReleaseEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr 80 Gdk.EventButton) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetButtonReleaseEvent :: (GObject a, MonadIO m) => a -> WidgetButtonReleaseEventCallback -> m SignalHandlerId -onWidgetButtonReleaseEvent obj cb = liftIO $ connectWidgetButtonReleaseEvent obj cb SignalConnectBefore -afterWidgetButtonReleaseEvent :: (GObject a, MonadIO m) => a -> WidgetButtonReleaseEventCallback -> m SignalHandlerId -afterWidgetButtonReleaseEvent obj cb = connectWidgetButtonReleaseEvent obj cb SignalConnectAfter - -connectWidgetButtonReleaseEvent :: (GObject a, MonadIO m) => - a -> WidgetButtonReleaseEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetButtonReleaseEvent obj cb after = liftIO $ do - cb' <- mkWidgetButtonReleaseEventCallback (widgetButtonReleaseEventCallbackWrapper cb) - connectSignalFunPtr obj "button-release-event" cb' after - --- signal Widget::can-activate-accel -type WidgetCanActivateAccelCallback = - Word32 -> - IO Bool - -noWidgetCanActivateAccelCallback :: Maybe WidgetCanActivateAccelCallback -noWidgetCanActivateAccelCallback = Nothing - -type WidgetCanActivateAccelCallbackC = - Ptr () -> -- object - Word32 -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetCanActivateAccelCallback :: WidgetCanActivateAccelCallbackC -> IO (FunPtr WidgetCanActivateAccelCallbackC) - -widgetCanActivateAccelClosure :: WidgetCanActivateAccelCallback -> IO Closure -widgetCanActivateAccelClosure cb = newCClosure =<< mkWidgetCanActivateAccelCallback wrapped - where wrapped = widgetCanActivateAccelCallbackWrapper cb - -widgetCanActivateAccelCallbackWrapper :: - WidgetCanActivateAccelCallback -> - Ptr () -> - Word32 -> - Ptr () -> - IO CInt -widgetCanActivateAccelCallbackWrapper _cb _ signalId _ = do - result <- _cb signalId - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetCanActivateAccel :: (GObject a, MonadIO m) => a -> WidgetCanActivateAccelCallback -> m SignalHandlerId -onWidgetCanActivateAccel obj cb = liftIO $ connectWidgetCanActivateAccel obj cb SignalConnectBefore -afterWidgetCanActivateAccel :: (GObject a, MonadIO m) => a -> WidgetCanActivateAccelCallback -> m SignalHandlerId -afterWidgetCanActivateAccel obj cb = connectWidgetCanActivateAccel obj cb SignalConnectAfter - -connectWidgetCanActivateAccel :: (GObject a, MonadIO m) => - a -> WidgetCanActivateAccelCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetCanActivateAccel obj cb after = liftIO $ do - cb' <- mkWidgetCanActivateAccelCallback (widgetCanActivateAccelCallbackWrapper cb) - connectSignalFunPtr obj "can-activate-accel" cb' after - --- signal Widget::child-notify -type WidgetChildNotifyCallback = - GParamSpec -> - IO () - -noWidgetChildNotifyCallback :: Maybe WidgetChildNotifyCallback -noWidgetChildNotifyCallback = Nothing - -type WidgetChildNotifyCallbackC = - Ptr () -> -- object - Ptr GParamSpec -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetChildNotifyCallback :: WidgetChildNotifyCallbackC -> IO (FunPtr WidgetChildNotifyCallbackC) - -widgetChildNotifyClosure :: WidgetChildNotifyCallback -> IO Closure -widgetChildNotifyClosure cb = newCClosure =<< mkWidgetChildNotifyCallback wrapped - where wrapped = widgetChildNotifyCallbackWrapper cb - -widgetChildNotifyCallbackWrapper :: - WidgetChildNotifyCallback -> - Ptr () -> - Ptr GParamSpec -> - Ptr () -> - IO () -widgetChildNotifyCallbackWrapper _cb _ childProperty _ = do - childProperty' <- newGParamSpecFromPtr childProperty - _cb childProperty' - -onWidgetChildNotify :: (GObject a, MonadIO m) => a -> WidgetChildNotifyCallback -> m SignalHandlerId -onWidgetChildNotify obj cb = liftIO $ connectWidgetChildNotify obj cb SignalConnectBefore -afterWidgetChildNotify :: (GObject a, MonadIO m) => a -> WidgetChildNotifyCallback -> m SignalHandlerId -afterWidgetChildNotify obj cb = connectWidgetChildNotify obj cb SignalConnectAfter - -connectWidgetChildNotify :: (GObject a, MonadIO m) => - a -> WidgetChildNotifyCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetChildNotify obj cb after = liftIO $ do - cb' <- mkWidgetChildNotifyCallback (widgetChildNotifyCallbackWrapper cb) - connectSignalFunPtr obj "child-notify" cb' after - --- signal Widget::composited-changed -type WidgetCompositedChangedCallback = - IO () - -noWidgetCompositedChangedCallback :: Maybe WidgetCompositedChangedCallback -noWidgetCompositedChangedCallback = Nothing - -type WidgetCompositedChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetCompositedChangedCallback :: WidgetCompositedChangedCallbackC -> IO (FunPtr WidgetCompositedChangedCallbackC) - -widgetCompositedChangedClosure :: WidgetCompositedChangedCallback -> IO Closure -widgetCompositedChangedClosure cb = newCClosure =<< mkWidgetCompositedChangedCallback wrapped - where wrapped = widgetCompositedChangedCallbackWrapper cb - -widgetCompositedChangedCallbackWrapper :: - WidgetCompositedChangedCallback -> - Ptr () -> - Ptr () -> - IO () -widgetCompositedChangedCallbackWrapper _cb _ _ = do - _cb - -onWidgetCompositedChanged :: (GObject a, MonadIO m) => a -> WidgetCompositedChangedCallback -> m SignalHandlerId -onWidgetCompositedChanged obj cb = liftIO $ connectWidgetCompositedChanged obj cb SignalConnectBefore -afterWidgetCompositedChanged :: (GObject a, MonadIO m) => a -> WidgetCompositedChangedCallback -> m SignalHandlerId -afterWidgetCompositedChanged obj cb = connectWidgetCompositedChanged obj cb SignalConnectAfter - -connectWidgetCompositedChanged :: (GObject a, MonadIO m) => - a -> WidgetCompositedChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetCompositedChanged obj cb after = liftIO $ do - cb' <- mkWidgetCompositedChangedCallback (widgetCompositedChangedCallbackWrapper cb) - connectSignalFunPtr obj "composited-changed" cb' after - --- signal Widget::configure-event -type WidgetConfigureEventCallback = - Gdk.EventConfigure -> - IO Bool - -noWidgetConfigureEventCallback :: Maybe WidgetConfigureEventCallback -noWidgetConfigureEventCallback = Nothing - -type WidgetConfigureEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventConfigure -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetConfigureEventCallback :: WidgetConfigureEventCallbackC -> IO (FunPtr WidgetConfigureEventCallbackC) - -widgetConfigureEventClosure :: WidgetConfigureEventCallback -> IO Closure -widgetConfigureEventClosure cb = newCClosure =<< mkWidgetConfigureEventCallback wrapped - where wrapped = widgetConfigureEventCallbackWrapper cb - -widgetConfigureEventCallbackWrapper :: - WidgetConfigureEventCallback -> - Ptr () -> - Ptr Gdk.EventConfigure -> - Ptr () -> - IO CInt -widgetConfigureEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr 40 Gdk.EventConfigure) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetConfigureEvent :: (GObject a, MonadIO m) => a -> WidgetConfigureEventCallback -> m SignalHandlerId -onWidgetConfigureEvent obj cb = liftIO $ connectWidgetConfigureEvent obj cb SignalConnectBefore -afterWidgetConfigureEvent :: (GObject a, MonadIO m) => a -> WidgetConfigureEventCallback -> m SignalHandlerId -afterWidgetConfigureEvent obj cb = connectWidgetConfigureEvent obj cb SignalConnectAfter - -connectWidgetConfigureEvent :: (GObject a, MonadIO m) => - a -> WidgetConfigureEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetConfigureEvent obj cb after = liftIO $ do - cb' <- mkWidgetConfigureEventCallback (widgetConfigureEventCallbackWrapper cb) - connectSignalFunPtr obj "configure-event" cb' after - --- signal Widget::damage-event -type WidgetDamageEventCallback = - Gdk.EventExpose -> - IO Bool - -noWidgetDamageEventCallback :: Maybe WidgetDamageEventCallback -noWidgetDamageEventCallback = Nothing - -type WidgetDamageEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventExpose -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetDamageEventCallback :: WidgetDamageEventCallbackC -> IO (FunPtr WidgetDamageEventCallbackC) - -widgetDamageEventClosure :: WidgetDamageEventCallback -> IO Closure -widgetDamageEventClosure cb = newCClosure =<< mkWidgetDamageEventCallback wrapped - where wrapped = widgetDamageEventCallbackWrapper cb - -widgetDamageEventCallbackWrapper :: - WidgetDamageEventCallback -> - Ptr () -> - Ptr Gdk.EventExpose -> - Ptr () -> - IO CInt -widgetDamageEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr 56 Gdk.EventExpose) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetDamageEvent :: (GObject a, MonadIO m) => a -> WidgetDamageEventCallback -> m SignalHandlerId -onWidgetDamageEvent obj cb = liftIO $ connectWidgetDamageEvent obj cb SignalConnectBefore -afterWidgetDamageEvent :: (GObject a, MonadIO m) => a -> WidgetDamageEventCallback -> m SignalHandlerId -afterWidgetDamageEvent obj cb = connectWidgetDamageEvent obj cb SignalConnectAfter - -connectWidgetDamageEvent :: (GObject a, MonadIO m) => - a -> WidgetDamageEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetDamageEvent obj cb after = liftIO $ do - cb' <- mkWidgetDamageEventCallback (widgetDamageEventCallbackWrapper cb) - connectSignalFunPtr obj "damage-event" cb' after - --- signal Widget::delete-event -type WidgetDeleteEventCallback = - Gdk.Event -> - IO Bool - -noWidgetDeleteEventCallback :: Maybe WidgetDeleteEventCallback -noWidgetDeleteEventCallback = Nothing - -type WidgetDeleteEventCallbackC = - Ptr () -> -- object - Ptr Gdk.Event -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetDeleteEventCallback :: WidgetDeleteEventCallbackC -> IO (FunPtr WidgetDeleteEventCallbackC) - -widgetDeleteEventClosure :: WidgetDeleteEventCallback -> IO Closure -widgetDeleteEventClosure cb = newCClosure =<< mkWidgetDeleteEventCallback wrapped - where wrapped = widgetDeleteEventCallbackWrapper cb - -widgetDeleteEventCallbackWrapper :: - WidgetDeleteEventCallback -> - Ptr () -> - Ptr Gdk.Event -> - Ptr () -> - IO CInt -widgetDeleteEventCallbackWrapper _cb _ event _ = do - event' <- (newBoxed Gdk.Event) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetDeleteEvent :: (GObject a, MonadIO m) => a -> WidgetDeleteEventCallback -> m SignalHandlerId -onWidgetDeleteEvent obj cb = liftIO $ connectWidgetDeleteEvent obj cb SignalConnectBefore -afterWidgetDeleteEvent :: (GObject a, MonadIO m) => a -> WidgetDeleteEventCallback -> m SignalHandlerId -afterWidgetDeleteEvent obj cb = connectWidgetDeleteEvent obj cb SignalConnectAfter - -connectWidgetDeleteEvent :: (GObject a, MonadIO m) => - a -> WidgetDeleteEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetDeleteEvent obj cb after = liftIO $ do - cb' <- mkWidgetDeleteEventCallback (widgetDeleteEventCallbackWrapper cb) - connectSignalFunPtr obj "delete-event" cb' after - --- signal Widget::destroy -type WidgetDestroyCallback = - IO () - -noWidgetDestroyCallback :: Maybe WidgetDestroyCallback -noWidgetDestroyCallback = Nothing - -type WidgetDestroyCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetDestroyCallback :: WidgetDestroyCallbackC -> IO (FunPtr WidgetDestroyCallbackC) - -widgetDestroyClosure :: WidgetDestroyCallback -> IO Closure -widgetDestroyClosure cb = newCClosure =<< mkWidgetDestroyCallback wrapped - where wrapped = widgetDestroyCallbackWrapper cb - -widgetDestroyCallbackWrapper :: - WidgetDestroyCallback -> - Ptr () -> - Ptr () -> - IO () -widgetDestroyCallbackWrapper _cb _ _ = do - _cb - -onWidgetDestroy :: (GObject a, MonadIO m) => a -> WidgetDestroyCallback -> m SignalHandlerId -onWidgetDestroy obj cb = liftIO $ connectWidgetDestroy obj cb SignalConnectBefore -afterWidgetDestroy :: (GObject a, MonadIO m) => a -> WidgetDestroyCallback -> m SignalHandlerId -afterWidgetDestroy obj cb = connectWidgetDestroy obj cb SignalConnectAfter - -connectWidgetDestroy :: (GObject a, MonadIO m) => - a -> WidgetDestroyCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetDestroy obj cb after = liftIO $ do - cb' <- mkWidgetDestroyCallback (widgetDestroyCallbackWrapper cb) - connectSignalFunPtr obj "destroy" cb' after - --- signal Widget::destroy-event -type WidgetDestroyEventCallback = - Gdk.Event -> - IO Bool - -noWidgetDestroyEventCallback :: Maybe WidgetDestroyEventCallback -noWidgetDestroyEventCallback = Nothing - -type WidgetDestroyEventCallbackC = - Ptr () -> -- object - Ptr Gdk.Event -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetDestroyEventCallback :: WidgetDestroyEventCallbackC -> IO (FunPtr WidgetDestroyEventCallbackC) - -widgetDestroyEventClosure :: WidgetDestroyEventCallback -> IO Closure -widgetDestroyEventClosure cb = newCClosure =<< mkWidgetDestroyEventCallback wrapped - where wrapped = widgetDestroyEventCallbackWrapper cb - -widgetDestroyEventCallbackWrapper :: - WidgetDestroyEventCallback -> - Ptr () -> - Ptr Gdk.Event -> - Ptr () -> - IO CInt -widgetDestroyEventCallbackWrapper _cb _ event _ = do - event' <- (newBoxed Gdk.Event) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetDestroyEvent :: (GObject a, MonadIO m) => a -> WidgetDestroyEventCallback -> m SignalHandlerId -onWidgetDestroyEvent obj cb = liftIO $ connectWidgetDestroyEvent obj cb SignalConnectBefore -afterWidgetDestroyEvent :: (GObject a, MonadIO m) => a -> WidgetDestroyEventCallback -> m SignalHandlerId -afterWidgetDestroyEvent obj cb = connectWidgetDestroyEvent obj cb SignalConnectAfter - -connectWidgetDestroyEvent :: (GObject a, MonadIO m) => - a -> WidgetDestroyEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetDestroyEvent obj cb after = liftIO $ do - cb' <- mkWidgetDestroyEventCallback (widgetDestroyEventCallbackWrapper cb) - connectSignalFunPtr obj "destroy-event" cb' after - --- signal Widget::direction-changed -type WidgetDirectionChangedCallback = - TextDirection -> - IO () - -noWidgetDirectionChangedCallback :: Maybe WidgetDirectionChangedCallback -noWidgetDirectionChangedCallback = Nothing - -type WidgetDirectionChangedCallbackC = - Ptr () -> -- object - CUInt -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetDirectionChangedCallback :: WidgetDirectionChangedCallbackC -> IO (FunPtr WidgetDirectionChangedCallbackC) - -widgetDirectionChangedClosure :: WidgetDirectionChangedCallback -> IO Closure -widgetDirectionChangedClosure cb = newCClosure =<< mkWidgetDirectionChangedCallback wrapped - where wrapped = widgetDirectionChangedCallbackWrapper cb - -widgetDirectionChangedCallbackWrapper :: - WidgetDirectionChangedCallback -> - Ptr () -> - CUInt -> - Ptr () -> - IO () -widgetDirectionChangedCallbackWrapper _cb _ previousDirection _ = do - let previousDirection' = (toEnum . fromIntegral) previousDirection - _cb previousDirection' - -onWidgetDirectionChanged :: (GObject a, MonadIO m) => a -> WidgetDirectionChangedCallback -> m SignalHandlerId -onWidgetDirectionChanged obj cb = liftIO $ connectWidgetDirectionChanged obj cb SignalConnectBefore -afterWidgetDirectionChanged :: (GObject a, MonadIO m) => a -> WidgetDirectionChangedCallback -> m SignalHandlerId -afterWidgetDirectionChanged obj cb = connectWidgetDirectionChanged obj cb SignalConnectAfter - -connectWidgetDirectionChanged :: (GObject a, MonadIO m) => - a -> WidgetDirectionChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetDirectionChanged obj cb after = liftIO $ do - cb' <- mkWidgetDirectionChangedCallback (widgetDirectionChangedCallbackWrapper cb) - connectSignalFunPtr obj "direction-changed" cb' after - --- signal Widget::drag-begin -type WidgetDragBeginCallback = - Gdk.DragContext -> - IO () - -noWidgetDragBeginCallback :: Maybe WidgetDragBeginCallback -noWidgetDragBeginCallback = Nothing - -type WidgetDragBeginCallbackC = - Ptr () -> -- object - Ptr Gdk.DragContext -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetDragBeginCallback :: WidgetDragBeginCallbackC -> IO (FunPtr WidgetDragBeginCallbackC) - -widgetDragBeginClosure :: WidgetDragBeginCallback -> IO Closure -widgetDragBeginClosure cb = newCClosure =<< mkWidgetDragBeginCallback wrapped - where wrapped = widgetDragBeginCallbackWrapper cb - -widgetDragBeginCallbackWrapper :: - WidgetDragBeginCallback -> - Ptr () -> - Ptr Gdk.DragContext -> - Ptr () -> - IO () -widgetDragBeginCallbackWrapper _cb _ context _ = do - context' <- (newObject Gdk.DragContext) context - _cb context' - -onWidgetDragBegin :: (GObject a, MonadIO m) => a -> WidgetDragBeginCallback -> m SignalHandlerId -onWidgetDragBegin obj cb = liftIO $ connectWidgetDragBegin obj cb SignalConnectBefore -afterWidgetDragBegin :: (GObject a, MonadIO m) => a -> WidgetDragBeginCallback -> m SignalHandlerId -afterWidgetDragBegin obj cb = connectWidgetDragBegin obj cb SignalConnectAfter - -connectWidgetDragBegin :: (GObject a, MonadIO m) => - a -> WidgetDragBeginCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetDragBegin obj cb after = liftIO $ do - cb' <- mkWidgetDragBeginCallback (widgetDragBeginCallbackWrapper cb) - connectSignalFunPtr obj "drag-begin" cb' after - --- signal Widget::drag-data-delete -type WidgetDragDataDeleteCallback = - Gdk.DragContext -> - IO () - -noWidgetDragDataDeleteCallback :: Maybe WidgetDragDataDeleteCallback -noWidgetDragDataDeleteCallback = Nothing - -type WidgetDragDataDeleteCallbackC = - Ptr () -> -- object - Ptr Gdk.DragContext -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetDragDataDeleteCallback :: WidgetDragDataDeleteCallbackC -> IO (FunPtr WidgetDragDataDeleteCallbackC) - -widgetDragDataDeleteClosure :: WidgetDragDataDeleteCallback -> IO Closure -widgetDragDataDeleteClosure cb = newCClosure =<< mkWidgetDragDataDeleteCallback wrapped - where wrapped = widgetDragDataDeleteCallbackWrapper cb - -widgetDragDataDeleteCallbackWrapper :: - WidgetDragDataDeleteCallback -> - Ptr () -> - Ptr Gdk.DragContext -> - Ptr () -> - IO () -widgetDragDataDeleteCallbackWrapper _cb _ context _ = do - context' <- (newObject Gdk.DragContext) context - _cb context' - -onWidgetDragDataDelete :: (GObject a, MonadIO m) => a -> WidgetDragDataDeleteCallback -> m SignalHandlerId -onWidgetDragDataDelete obj cb = liftIO $ connectWidgetDragDataDelete obj cb SignalConnectBefore -afterWidgetDragDataDelete :: (GObject a, MonadIO m) => a -> WidgetDragDataDeleteCallback -> m SignalHandlerId -afterWidgetDragDataDelete obj cb = connectWidgetDragDataDelete obj cb SignalConnectAfter - -connectWidgetDragDataDelete :: (GObject a, MonadIO m) => - a -> WidgetDragDataDeleteCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetDragDataDelete obj cb after = liftIO $ do - cb' <- mkWidgetDragDataDeleteCallback (widgetDragDataDeleteCallbackWrapper cb) - connectSignalFunPtr obj "drag-data-delete" cb' after - --- signal Widget::drag-data-get -type WidgetDragDataGetCallback = - Gdk.DragContext -> - SelectionData -> - Word32 -> - Word32 -> - IO () - -noWidgetDragDataGetCallback :: Maybe WidgetDragDataGetCallback -noWidgetDragDataGetCallback = Nothing - -type WidgetDragDataGetCallbackC = - Ptr () -> -- object - Ptr Gdk.DragContext -> - Ptr SelectionData -> - Word32 -> - Word32 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetDragDataGetCallback :: WidgetDragDataGetCallbackC -> IO (FunPtr WidgetDragDataGetCallbackC) - -widgetDragDataGetClosure :: WidgetDragDataGetCallback -> IO Closure -widgetDragDataGetClosure cb = newCClosure =<< mkWidgetDragDataGetCallback wrapped - where wrapped = widgetDragDataGetCallbackWrapper cb - -widgetDragDataGetCallbackWrapper :: - WidgetDragDataGetCallback -> - Ptr () -> - Ptr Gdk.DragContext -> - Ptr SelectionData -> - Word32 -> - Word32 -> - Ptr () -> - IO () -widgetDragDataGetCallbackWrapper _cb _ context data_ info time _ = do - context' <- (newObject Gdk.DragContext) context - data_' <- (newBoxed SelectionData) data_ - _cb context' data_' info time - -onWidgetDragDataGet :: (GObject a, MonadIO m) => a -> WidgetDragDataGetCallback -> m SignalHandlerId -onWidgetDragDataGet obj cb = liftIO $ connectWidgetDragDataGet obj cb SignalConnectBefore -afterWidgetDragDataGet :: (GObject a, MonadIO m) => a -> WidgetDragDataGetCallback -> m SignalHandlerId -afterWidgetDragDataGet obj cb = connectWidgetDragDataGet obj cb SignalConnectAfter - -connectWidgetDragDataGet :: (GObject a, MonadIO m) => - a -> WidgetDragDataGetCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetDragDataGet obj cb after = liftIO $ do - cb' <- mkWidgetDragDataGetCallback (widgetDragDataGetCallbackWrapper cb) - connectSignalFunPtr obj "drag-data-get" cb' after - --- signal Widget::drag-data-received -type WidgetDragDataReceivedCallback = - Gdk.DragContext -> - Int32 -> - Int32 -> - SelectionData -> - Word32 -> - Word32 -> - IO () - -noWidgetDragDataReceivedCallback :: Maybe WidgetDragDataReceivedCallback -noWidgetDragDataReceivedCallback = Nothing - -type WidgetDragDataReceivedCallbackC = - Ptr () -> -- object - Ptr Gdk.DragContext -> - Int32 -> - Int32 -> - Ptr SelectionData -> - Word32 -> - Word32 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetDragDataReceivedCallback :: WidgetDragDataReceivedCallbackC -> IO (FunPtr WidgetDragDataReceivedCallbackC) - -widgetDragDataReceivedClosure :: WidgetDragDataReceivedCallback -> IO Closure -widgetDragDataReceivedClosure cb = newCClosure =<< mkWidgetDragDataReceivedCallback wrapped - where wrapped = widgetDragDataReceivedCallbackWrapper cb - -widgetDragDataReceivedCallbackWrapper :: - WidgetDragDataReceivedCallback -> - Ptr () -> - Ptr Gdk.DragContext -> - Int32 -> - Int32 -> - Ptr SelectionData -> - Word32 -> - Word32 -> - Ptr () -> - IO () -widgetDragDataReceivedCallbackWrapper _cb _ context x y data_ info time _ = do - context' <- (newObject Gdk.DragContext) context - data_' <- (newBoxed SelectionData) data_ - _cb context' x y data_' info time - -onWidgetDragDataReceived :: (GObject a, MonadIO m) => a -> WidgetDragDataReceivedCallback -> m SignalHandlerId -onWidgetDragDataReceived obj cb = liftIO $ connectWidgetDragDataReceived obj cb SignalConnectBefore -afterWidgetDragDataReceived :: (GObject a, MonadIO m) => a -> WidgetDragDataReceivedCallback -> m SignalHandlerId -afterWidgetDragDataReceived obj cb = connectWidgetDragDataReceived obj cb SignalConnectAfter - -connectWidgetDragDataReceived :: (GObject a, MonadIO m) => - a -> WidgetDragDataReceivedCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetDragDataReceived obj cb after = liftIO $ do - cb' <- mkWidgetDragDataReceivedCallback (widgetDragDataReceivedCallbackWrapper cb) - connectSignalFunPtr obj "drag-data-received" cb' after - --- signal Widget::drag-drop -type WidgetDragDropCallback = - Gdk.DragContext -> - Int32 -> - Int32 -> - Word32 -> - IO Bool - -noWidgetDragDropCallback :: Maybe WidgetDragDropCallback -noWidgetDragDropCallback = Nothing - -type WidgetDragDropCallbackC = - Ptr () -> -- object - Ptr Gdk.DragContext -> - Int32 -> - Int32 -> - Word32 -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetDragDropCallback :: WidgetDragDropCallbackC -> IO (FunPtr WidgetDragDropCallbackC) - -widgetDragDropClosure :: WidgetDragDropCallback -> IO Closure -widgetDragDropClosure cb = newCClosure =<< mkWidgetDragDropCallback wrapped - where wrapped = widgetDragDropCallbackWrapper cb - -widgetDragDropCallbackWrapper :: - WidgetDragDropCallback -> - Ptr () -> - Ptr Gdk.DragContext -> - Int32 -> - Int32 -> - Word32 -> - Ptr () -> - IO CInt -widgetDragDropCallbackWrapper _cb _ context x y time _ = do - context' <- (newObject Gdk.DragContext) context - result <- _cb context' x y time - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetDragDrop :: (GObject a, MonadIO m) => a -> WidgetDragDropCallback -> m SignalHandlerId -onWidgetDragDrop obj cb = liftIO $ connectWidgetDragDrop obj cb SignalConnectBefore -afterWidgetDragDrop :: (GObject a, MonadIO m) => a -> WidgetDragDropCallback -> m SignalHandlerId -afterWidgetDragDrop obj cb = connectWidgetDragDrop obj cb SignalConnectAfter - -connectWidgetDragDrop :: (GObject a, MonadIO m) => - a -> WidgetDragDropCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetDragDrop obj cb after = liftIO $ do - cb' <- mkWidgetDragDropCallback (widgetDragDropCallbackWrapper cb) - connectSignalFunPtr obj "drag-drop" cb' after - --- signal Widget::drag-end -type WidgetDragEndCallback = - Gdk.DragContext -> - IO () - -noWidgetDragEndCallback :: Maybe WidgetDragEndCallback -noWidgetDragEndCallback = Nothing - -type WidgetDragEndCallbackC = - Ptr () -> -- object - Ptr Gdk.DragContext -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetDragEndCallback :: WidgetDragEndCallbackC -> IO (FunPtr WidgetDragEndCallbackC) - -widgetDragEndClosure :: WidgetDragEndCallback -> IO Closure -widgetDragEndClosure cb = newCClosure =<< mkWidgetDragEndCallback wrapped - where wrapped = widgetDragEndCallbackWrapper cb - -widgetDragEndCallbackWrapper :: - WidgetDragEndCallback -> - Ptr () -> - Ptr Gdk.DragContext -> - Ptr () -> - IO () -widgetDragEndCallbackWrapper _cb _ context _ = do - context' <- (newObject Gdk.DragContext) context - _cb context' - -onWidgetDragEnd :: (GObject a, MonadIO m) => a -> WidgetDragEndCallback -> m SignalHandlerId -onWidgetDragEnd obj cb = liftIO $ connectWidgetDragEnd obj cb SignalConnectBefore -afterWidgetDragEnd :: (GObject a, MonadIO m) => a -> WidgetDragEndCallback -> m SignalHandlerId -afterWidgetDragEnd obj cb = connectWidgetDragEnd obj cb SignalConnectAfter - -connectWidgetDragEnd :: (GObject a, MonadIO m) => - a -> WidgetDragEndCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetDragEnd obj cb after = liftIO $ do - cb' <- mkWidgetDragEndCallback (widgetDragEndCallbackWrapper cb) - connectSignalFunPtr obj "drag-end" cb' after - --- signal Widget::drag-failed -type WidgetDragFailedCallback = - Gdk.DragContext -> - DragResult -> - IO Bool - -noWidgetDragFailedCallback :: Maybe WidgetDragFailedCallback -noWidgetDragFailedCallback = Nothing - -type WidgetDragFailedCallbackC = - Ptr () -> -- object - Ptr Gdk.DragContext -> - CUInt -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetDragFailedCallback :: WidgetDragFailedCallbackC -> IO (FunPtr WidgetDragFailedCallbackC) - -widgetDragFailedClosure :: WidgetDragFailedCallback -> IO Closure -widgetDragFailedClosure cb = newCClosure =<< mkWidgetDragFailedCallback wrapped - where wrapped = widgetDragFailedCallbackWrapper cb - -widgetDragFailedCallbackWrapper :: - WidgetDragFailedCallback -> - Ptr () -> - Ptr Gdk.DragContext -> - CUInt -> - Ptr () -> - IO CInt -widgetDragFailedCallbackWrapper _cb _ context result_ _ = do - context' <- (newObject Gdk.DragContext) context - let result_' = (toEnum . fromIntegral) result_ - result <- _cb context' result_' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetDragFailed :: (GObject a, MonadIO m) => a -> WidgetDragFailedCallback -> m SignalHandlerId -onWidgetDragFailed obj cb = liftIO $ connectWidgetDragFailed obj cb SignalConnectBefore -afterWidgetDragFailed :: (GObject a, MonadIO m) => a -> WidgetDragFailedCallback -> m SignalHandlerId -afterWidgetDragFailed obj cb = connectWidgetDragFailed obj cb SignalConnectAfter - -connectWidgetDragFailed :: (GObject a, MonadIO m) => - a -> WidgetDragFailedCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetDragFailed obj cb after = liftIO $ do - cb' <- mkWidgetDragFailedCallback (widgetDragFailedCallbackWrapper cb) - connectSignalFunPtr obj "drag-failed" cb' after - --- signal Widget::drag-leave -type WidgetDragLeaveCallback = - Gdk.DragContext -> - Word32 -> - IO () - -noWidgetDragLeaveCallback :: Maybe WidgetDragLeaveCallback -noWidgetDragLeaveCallback = Nothing - -type WidgetDragLeaveCallbackC = - Ptr () -> -- object - Ptr Gdk.DragContext -> - Word32 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetDragLeaveCallback :: WidgetDragLeaveCallbackC -> IO (FunPtr WidgetDragLeaveCallbackC) - -widgetDragLeaveClosure :: WidgetDragLeaveCallback -> IO Closure -widgetDragLeaveClosure cb = newCClosure =<< mkWidgetDragLeaveCallback wrapped - where wrapped = widgetDragLeaveCallbackWrapper cb - -widgetDragLeaveCallbackWrapper :: - WidgetDragLeaveCallback -> - Ptr () -> - Ptr Gdk.DragContext -> - Word32 -> - Ptr () -> - IO () -widgetDragLeaveCallbackWrapper _cb _ context time _ = do - context' <- (newObject Gdk.DragContext) context - _cb context' time - -onWidgetDragLeave :: (GObject a, MonadIO m) => a -> WidgetDragLeaveCallback -> m SignalHandlerId -onWidgetDragLeave obj cb = liftIO $ connectWidgetDragLeave obj cb SignalConnectBefore -afterWidgetDragLeave :: (GObject a, MonadIO m) => a -> WidgetDragLeaveCallback -> m SignalHandlerId -afterWidgetDragLeave obj cb = connectWidgetDragLeave obj cb SignalConnectAfter - -connectWidgetDragLeave :: (GObject a, MonadIO m) => - a -> WidgetDragLeaveCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetDragLeave obj cb after = liftIO $ do - cb' <- mkWidgetDragLeaveCallback (widgetDragLeaveCallbackWrapper cb) - connectSignalFunPtr obj "drag-leave" cb' after - --- signal Widget::drag-motion -type WidgetDragMotionCallback = - Gdk.DragContext -> - Int32 -> - Int32 -> - Word32 -> - IO Bool - -noWidgetDragMotionCallback :: Maybe WidgetDragMotionCallback -noWidgetDragMotionCallback = Nothing - -type WidgetDragMotionCallbackC = - Ptr () -> -- object - Ptr Gdk.DragContext -> - Int32 -> - Int32 -> - Word32 -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetDragMotionCallback :: WidgetDragMotionCallbackC -> IO (FunPtr WidgetDragMotionCallbackC) - -widgetDragMotionClosure :: WidgetDragMotionCallback -> IO Closure -widgetDragMotionClosure cb = newCClosure =<< mkWidgetDragMotionCallback wrapped - where wrapped = widgetDragMotionCallbackWrapper cb - -widgetDragMotionCallbackWrapper :: - WidgetDragMotionCallback -> - Ptr () -> - Ptr Gdk.DragContext -> - Int32 -> - Int32 -> - Word32 -> - Ptr () -> - IO CInt -widgetDragMotionCallbackWrapper _cb _ context x y time _ = do - context' <- (newObject Gdk.DragContext) context - result <- _cb context' x y time - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetDragMotion :: (GObject a, MonadIO m) => a -> WidgetDragMotionCallback -> m SignalHandlerId -onWidgetDragMotion obj cb = liftIO $ connectWidgetDragMotion obj cb SignalConnectBefore -afterWidgetDragMotion :: (GObject a, MonadIO m) => a -> WidgetDragMotionCallback -> m SignalHandlerId -afterWidgetDragMotion obj cb = connectWidgetDragMotion obj cb SignalConnectAfter - -connectWidgetDragMotion :: (GObject a, MonadIO m) => - a -> WidgetDragMotionCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetDragMotion obj cb after = liftIO $ do - cb' <- mkWidgetDragMotionCallback (widgetDragMotionCallbackWrapper cb) - connectSignalFunPtr obj "drag-motion" cb' after - --- signal Widget::draw -type WidgetDrawCallback = - Cairo.Context -> - IO Bool - -noWidgetDrawCallback :: Maybe WidgetDrawCallback -noWidgetDrawCallback = Nothing - -type WidgetDrawCallbackC = - Ptr () -> -- object - Ptr Cairo.Context -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetDrawCallback :: WidgetDrawCallbackC -> IO (FunPtr WidgetDrawCallbackC) - -widgetDrawClosure :: WidgetDrawCallback -> IO Closure -widgetDrawClosure cb = newCClosure =<< mkWidgetDrawCallback wrapped - where wrapped = widgetDrawCallbackWrapper cb - -widgetDrawCallbackWrapper :: - WidgetDrawCallback -> - Ptr () -> - Ptr Cairo.Context -> - Ptr () -> - IO CInt -widgetDrawCallbackWrapper _cb _ cr _ = do - cr' <- (newBoxed Cairo.Context) cr - result <- _cb cr' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetDraw :: (GObject a, MonadIO m) => a -> WidgetDrawCallback -> m SignalHandlerId -onWidgetDraw obj cb = liftIO $ connectWidgetDraw obj cb SignalConnectBefore -afterWidgetDraw :: (GObject a, MonadIO m) => a -> WidgetDrawCallback -> m SignalHandlerId -afterWidgetDraw obj cb = connectWidgetDraw obj cb SignalConnectAfter - -connectWidgetDraw :: (GObject a, MonadIO m) => - a -> WidgetDrawCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetDraw obj cb after = liftIO $ do - cb' <- mkWidgetDrawCallback (widgetDrawCallbackWrapper cb) - connectSignalFunPtr obj "draw" cb' after - --- signal Widget::enter-notify-event -type WidgetEnterNotifyEventCallback = - Gdk.EventCrossing -> - IO Bool - -noWidgetEnterNotifyEventCallback :: Maybe WidgetEnterNotifyEventCallback -noWidgetEnterNotifyEventCallback = Nothing - -type WidgetEnterNotifyEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventCrossing -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetEnterNotifyEventCallback :: WidgetEnterNotifyEventCallbackC -> IO (FunPtr WidgetEnterNotifyEventCallbackC) - -widgetEnterNotifyEventClosure :: WidgetEnterNotifyEventCallback -> IO Closure -widgetEnterNotifyEventClosure cb = newCClosure =<< mkWidgetEnterNotifyEventCallback wrapped - where wrapped = widgetEnterNotifyEventCallbackWrapper cb - -widgetEnterNotifyEventCallbackWrapper :: - WidgetEnterNotifyEventCallback -> - Ptr () -> - Ptr Gdk.EventCrossing -> - Ptr () -> - IO CInt -widgetEnterNotifyEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr 88 Gdk.EventCrossing) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetEnterNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetEnterNotifyEventCallback -> m SignalHandlerId -onWidgetEnterNotifyEvent obj cb = liftIO $ connectWidgetEnterNotifyEvent obj cb SignalConnectBefore -afterWidgetEnterNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetEnterNotifyEventCallback -> m SignalHandlerId -afterWidgetEnterNotifyEvent obj cb = connectWidgetEnterNotifyEvent obj cb SignalConnectAfter - -connectWidgetEnterNotifyEvent :: (GObject a, MonadIO m) => - a -> WidgetEnterNotifyEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetEnterNotifyEvent obj cb after = liftIO $ do - cb' <- mkWidgetEnterNotifyEventCallback (widgetEnterNotifyEventCallbackWrapper cb) - connectSignalFunPtr obj "enter-notify-event" cb' after - --- signal Widget::event -type WidgetEventCallback = - Gdk.Event -> - IO Bool - -noWidgetEventCallback :: Maybe WidgetEventCallback -noWidgetEventCallback = Nothing - -type WidgetEventCallbackC = - Ptr () -> -- object - Ptr Gdk.Event -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetEventCallback :: WidgetEventCallbackC -> IO (FunPtr WidgetEventCallbackC) - -widgetEventClosure :: WidgetEventCallback -> IO Closure -widgetEventClosure cb = newCClosure =<< mkWidgetEventCallback wrapped - where wrapped = widgetEventCallbackWrapper cb - -widgetEventCallbackWrapper :: - WidgetEventCallback -> - Ptr () -> - Ptr Gdk.Event -> - Ptr () -> - IO CInt -widgetEventCallbackWrapper _cb _ event _ = do - event' <- (newBoxed Gdk.Event) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetEvent :: (GObject a, MonadIO m) => a -> WidgetEventCallback -> m SignalHandlerId -onWidgetEvent obj cb = liftIO $ connectWidgetEvent obj cb SignalConnectBefore -afterWidgetEvent :: (GObject a, MonadIO m) => a -> WidgetEventCallback -> m SignalHandlerId -afterWidgetEvent obj cb = connectWidgetEvent obj cb SignalConnectAfter - -connectWidgetEvent :: (GObject a, MonadIO m) => - a -> WidgetEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetEvent obj cb after = liftIO $ do - cb' <- mkWidgetEventCallback (widgetEventCallbackWrapper cb) - connectSignalFunPtr obj "event" cb' after - --- signal Widget::event-after -type WidgetEventAfterCallback = - Gdk.Event -> - IO () - -noWidgetEventAfterCallback :: Maybe WidgetEventAfterCallback -noWidgetEventAfterCallback = Nothing - -type WidgetEventAfterCallbackC = - Ptr () -> -- object - Ptr Gdk.Event -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetEventAfterCallback :: WidgetEventAfterCallbackC -> IO (FunPtr WidgetEventAfterCallbackC) - -widgetEventAfterClosure :: WidgetEventAfterCallback -> IO Closure -widgetEventAfterClosure cb = newCClosure =<< mkWidgetEventAfterCallback wrapped - where wrapped = widgetEventAfterCallbackWrapper cb - -widgetEventAfterCallbackWrapper :: - WidgetEventAfterCallback -> - Ptr () -> - Ptr Gdk.Event -> - Ptr () -> - IO () -widgetEventAfterCallbackWrapper _cb _ event _ = do - event' <- (newBoxed Gdk.Event) event - _cb event' - -onWidgetEventAfter :: (GObject a, MonadIO m) => a -> WidgetEventAfterCallback -> m SignalHandlerId -onWidgetEventAfter obj cb = liftIO $ connectWidgetEventAfter obj cb SignalConnectBefore -afterWidgetEventAfter :: (GObject a, MonadIO m) => a -> WidgetEventAfterCallback -> m SignalHandlerId -afterWidgetEventAfter obj cb = connectWidgetEventAfter obj cb SignalConnectAfter - -connectWidgetEventAfter :: (GObject a, MonadIO m) => - a -> WidgetEventAfterCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetEventAfter obj cb after = liftIO $ do - cb' <- mkWidgetEventAfterCallback (widgetEventAfterCallbackWrapper cb) - connectSignalFunPtr obj "event-after" cb' after - --- signal Widget::focus -type WidgetFocusCallback = - DirectionType -> - IO Bool - -noWidgetFocusCallback :: Maybe WidgetFocusCallback -noWidgetFocusCallback = Nothing - -type WidgetFocusCallbackC = - Ptr () -> -- object - CUInt -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetFocusCallback :: WidgetFocusCallbackC -> IO (FunPtr WidgetFocusCallbackC) - -widgetFocusClosure :: WidgetFocusCallback -> IO Closure -widgetFocusClosure cb = newCClosure =<< mkWidgetFocusCallback wrapped - where wrapped = widgetFocusCallbackWrapper cb - -widgetFocusCallbackWrapper :: - WidgetFocusCallback -> - Ptr () -> - CUInt -> - Ptr () -> - IO CInt -widgetFocusCallbackWrapper _cb _ direction _ = do - let direction' = (toEnum . fromIntegral) direction - result <- _cb direction' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetFocus :: (GObject a, MonadIO m) => a -> WidgetFocusCallback -> m SignalHandlerId -onWidgetFocus obj cb = liftIO $ connectWidgetFocus obj cb SignalConnectBefore -afterWidgetFocus :: (GObject a, MonadIO m) => a -> WidgetFocusCallback -> m SignalHandlerId -afterWidgetFocus obj cb = connectWidgetFocus obj cb SignalConnectAfter - -connectWidgetFocus :: (GObject a, MonadIO m) => - a -> WidgetFocusCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetFocus obj cb after = liftIO $ do - cb' <- mkWidgetFocusCallback (widgetFocusCallbackWrapper cb) - connectSignalFunPtr obj "focus" cb' after - --- signal Widget::focus-in-event -type WidgetFocusInEventCallback = - Gdk.EventFocus -> - IO Bool - -noWidgetFocusInEventCallback :: Maybe WidgetFocusInEventCallback -noWidgetFocusInEventCallback = Nothing - -type WidgetFocusInEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventFocus -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetFocusInEventCallback :: WidgetFocusInEventCallbackC -> IO (FunPtr WidgetFocusInEventCallbackC) - -widgetFocusInEventClosure :: WidgetFocusInEventCallback -> IO Closure -widgetFocusInEventClosure cb = newCClosure =<< mkWidgetFocusInEventCallback wrapped - where wrapped = widgetFocusInEventCallbackWrapper cb - -widgetFocusInEventCallbackWrapper :: - WidgetFocusInEventCallback -> - Ptr () -> - Ptr Gdk.EventFocus -> - Ptr () -> - IO CInt -widgetFocusInEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr 24 Gdk.EventFocus) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetFocusInEvent :: (GObject a, MonadIO m) => a -> WidgetFocusInEventCallback -> m SignalHandlerId -onWidgetFocusInEvent obj cb = liftIO $ connectWidgetFocusInEvent obj cb SignalConnectBefore -afterWidgetFocusInEvent :: (GObject a, MonadIO m) => a -> WidgetFocusInEventCallback -> m SignalHandlerId -afterWidgetFocusInEvent obj cb = connectWidgetFocusInEvent obj cb SignalConnectAfter - -connectWidgetFocusInEvent :: (GObject a, MonadIO m) => - a -> WidgetFocusInEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetFocusInEvent obj cb after = liftIO $ do - cb' <- mkWidgetFocusInEventCallback (widgetFocusInEventCallbackWrapper cb) - connectSignalFunPtr obj "focus-in-event" cb' after - --- signal Widget::focus-out-event -type WidgetFocusOutEventCallback = - Gdk.EventFocus -> - IO Bool - -noWidgetFocusOutEventCallback :: Maybe WidgetFocusOutEventCallback -noWidgetFocusOutEventCallback = Nothing - -type WidgetFocusOutEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventFocus -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetFocusOutEventCallback :: WidgetFocusOutEventCallbackC -> IO (FunPtr WidgetFocusOutEventCallbackC) - -widgetFocusOutEventClosure :: WidgetFocusOutEventCallback -> IO Closure -widgetFocusOutEventClosure cb = newCClosure =<< mkWidgetFocusOutEventCallback wrapped - where wrapped = widgetFocusOutEventCallbackWrapper cb - -widgetFocusOutEventCallbackWrapper :: - WidgetFocusOutEventCallback -> - Ptr () -> - Ptr Gdk.EventFocus -> - Ptr () -> - IO CInt -widgetFocusOutEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr 24 Gdk.EventFocus) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetFocusOutEvent :: (GObject a, MonadIO m) => a -> WidgetFocusOutEventCallback -> m SignalHandlerId -onWidgetFocusOutEvent obj cb = liftIO $ connectWidgetFocusOutEvent obj cb SignalConnectBefore -afterWidgetFocusOutEvent :: (GObject a, MonadIO m) => a -> WidgetFocusOutEventCallback -> m SignalHandlerId -afterWidgetFocusOutEvent obj cb = connectWidgetFocusOutEvent obj cb SignalConnectAfter - -connectWidgetFocusOutEvent :: (GObject a, MonadIO m) => - a -> WidgetFocusOutEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetFocusOutEvent obj cb after = liftIO $ do - cb' <- mkWidgetFocusOutEventCallback (widgetFocusOutEventCallbackWrapper cb) - connectSignalFunPtr obj "focus-out-event" cb' after - --- signal Widget::grab-broken-event -type WidgetGrabBrokenEventCallback = - Gdk.EventGrabBroken -> - IO Bool - -noWidgetGrabBrokenEventCallback :: Maybe WidgetGrabBrokenEventCallback -noWidgetGrabBrokenEventCallback = Nothing - -type WidgetGrabBrokenEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventGrabBroken -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetGrabBrokenEventCallback :: WidgetGrabBrokenEventCallbackC -> IO (FunPtr WidgetGrabBrokenEventCallbackC) - -widgetGrabBrokenEventClosure :: WidgetGrabBrokenEventCallback -> IO Closure -widgetGrabBrokenEventClosure cb = newCClosure =<< mkWidgetGrabBrokenEventCallback wrapped - where wrapped = widgetGrabBrokenEventCallbackWrapper cb - -widgetGrabBrokenEventCallbackWrapper :: - WidgetGrabBrokenEventCallback -> - Ptr () -> - Ptr Gdk.EventGrabBroken -> - Ptr () -> - IO CInt -widgetGrabBrokenEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr 40 Gdk.EventGrabBroken) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetGrabBrokenEvent :: (GObject a, MonadIO m) => a -> WidgetGrabBrokenEventCallback -> m SignalHandlerId -onWidgetGrabBrokenEvent obj cb = liftIO $ connectWidgetGrabBrokenEvent obj cb SignalConnectBefore -afterWidgetGrabBrokenEvent :: (GObject a, MonadIO m) => a -> WidgetGrabBrokenEventCallback -> m SignalHandlerId -afterWidgetGrabBrokenEvent obj cb = connectWidgetGrabBrokenEvent obj cb SignalConnectAfter - -connectWidgetGrabBrokenEvent :: (GObject a, MonadIO m) => - a -> WidgetGrabBrokenEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetGrabBrokenEvent obj cb after = liftIO $ do - cb' <- mkWidgetGrabBrokenEventCallback (widgetGrabBrokenEventCallbackWrapper cb) - connectSignalFunPtr obj "grab-broken-event" cb' after - --- signal Widget::grab-focus -type WidgetGrabFocusCallback = - IO () - -noWidgetGrabFocusCallback :: Maybe WidgetGrabFocusCallback -noWidgetGrabFocusCallback = Nothing - -type WidgetGrabFocusCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetGrabFocusCallback :: WidgetGrabFocusCallbackC -> IO (FunPtr WidgetGrabFocusCallbackC) - -widgetGrabFocusClosure :: WidgetGrabFocusCallback -> IO Closure -widgetGrabFocusClosure cb = newCClosure =<< mkWidgetGrabFocusCallback wrapped - where wrapped = widgetGrabFocusCallbackWrapper cb - -widgetGrabFocusCallbackWrapper :: - WidgetGrabFocusCallback -> - Ptr () -> - Ptr () -> - IO () -widgetGrabFocusCallbackWrapper _cb _ _ = do - _cb - -onWidgetGrabFocus :: (GObject a, MonadIO m) => a -> WidgetGrabFocusCallback -> m SignalHandlerId -onWidgetGrabFocus obj cb = liftIO $ connectWidgetGrabFocus obj cb SignalConnectBefore -afterWidgetGrabFocus :: (GObject a, MonadIO m) => a -> WidgetGrabFocusCallback -> m SignalHandlerId -afterWidgetGrabFocus obj cb = connectWidgetGrabFocus obj cb SignalConnectAfter - -connectWidgetGrabFocus :: (GObject a, MonadIO m) => - a -> WidgetGrabFocusCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetGrabFocus obj cb after = liftIO $ do - cb' <- mkWidgetGrabFocusCallback (widgetGrabFocusCallbackWrapper cb) - connectSignalFunPtr obj "grab-focus" cb' after - --- signal Widget::grab-notify -type WidgetGrabNotifyCallback = - Bool -> - IO () - -noWidgetGrabNotifyCallback :: Maybe WidgetGrabNotifyCallback -noWidgetGrabNotifyCallback = Nothing - -type WidgetGrabNotifyCallbackC = - Ptr () -> -- object - CInt -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetGrabNotifyCallback :: WidgetGrabNotifyCallbackC -> IO (FunPtr WidgetGrabNotifyCallbackC) - -widgetGrabNotifyClosure :: WidgetGrabNotifyCallback -> IO Closure -widgetGrabNotifyClosure cb = newCClosure =<< mkWidgetGrabNotifyCallback wrapped - where wrapped = widgetGrabNotifyCallbackWrapper cb - -widgetGrabNotifyCallbackWrapper :: - WidgetGrabNotifyCallback -> - Ptr () -> - CInt -> - Ptr () -> - IO () -widgetGrabNotifyCallbackWrapper _cb _ wasGrabbed _ = do - let wasGrabbed' = (/= 0) wasGrabbed - _cb wasGrabbed' - -onWidgetGrabNotify :: (GObject a, MonadIO m) => a -> WidgetGrabNotifyCallback -> m SignalHandlerId -onWidgetGrabNotify obj cb = liftIO $ connectWidgetGrabNotify obj cb SignalConnectBefore -afterWidgetGrabNotify :: (GObject a, MonadIO m) => a -> WidgetGrabNotifyCallback -> m SignalHandlerId -afterWidgetGrabNotify obj cb = connectWidgetGrabNotify obj cb SignalConnectAfter - -connectWidgetGrabNotify :: (GObject a, MonadIO m) => - a -> WidgetGrabNotifyCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetGrabNotify obj cb after = liftIO $ do - cb' <- mkWidgetGrabNotifyCallback (widgetGrabNotifyCallbackWrapper cb) - connectSignalFunPtr obj "grab-notify" cb' after - --- signal Widget::hide -type WidgetHideCallback = - IO () - -noWidgetHideCallback :: Maybe WidgetHideCallback -noWidgetHideCallback = Nothing - -type WidgetHideCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetHideCallback :: WidgetHideCallbackC -> IO (FunPtr WidgetHideCallbackC) - -widgetHideClosure :: WidgetHideCallback -> IO Closure -widgetHideClosure cb = newCClosure =<< mkWidgetHideCallback wrapped - where wrapped = widgetHideCallbackWrapper cb - -widgetHideCallbackWrapper :: - WidgetHideCallback -> - Ptr () -> - Ptr () -> - IO () -widgetHideCallbackWrapper _cb _ _ = do - _cb - -onWidgetHide :: (GObject a, MonadIO m) => a -> WidgetHideCallback -> m SignalHandlerId -onWidgetHide obj cb = liftIO $ connectWidgetHide obj cb SignalConnectBefore -afterWidgetHide :: (GObject a, MonadIO m) => a -> WidgetHideCallback -> m SignalHandlerId -afterWidgetHide obj cb = connectWidgetHide obj cb SignalConnectAfter - -connectWidgetHide :: (GObject a, MonadIO m) => - a -> WidgetHideCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetHide obj cb after = liftIO $ do - cb' <- mkWidgetHideCallback (widgetHideCallbackWrapper cb) - connectSignalFunPtr obj "hide" cb' after - --- signal Widget::hierarchy-changed -type WidgetHierarchyChangedCallback = - Maybe Widget -> - IO () - -noWidgetHierarchyChangedCallback :: Maybe WidgetHierarchyChangedCallback -noWidgetHierarchyChangedCallback = Nothing - -type WidgetHierarchyChangedCallbackC = - Ptr () -> -- object - Ptr Widget -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetHierarchyChangedCallback :: WidgetHierarchyChangedCallbackC -> IO (FunPtr WidgetHierarchyChangedCallbackC) - -widgetHierarchyChangedClosure :: WidgetHierarchyChangedCallback -> IO Closure -widgetHierarchyChangedClosure cb = newCClosure =<< mkWidgetHierarchyChangedCallback wrapped - where wrapped = widgetHierarchyChangedCallbackWrapper cb - -widgetHierarchyChangedCallbackWrapper :: - WidgetHierarchyChangedCallback -> - Ptr () -> - Ptr Widget -> - Ptr () -> - IO () -widgetHierarchyChangedCallbackWrapper _cb _ previousToplevel _ = do - maybePreviousToplevel <- - if previousToplevel == nullPtr - then return Nothing - else do - previousToplevel' <- (newObject Widget) previousToplevel - return $ Just previousToplevel' - _cb maybePreviousToplevel - -onWidgetHierarchyChanged :: (GObject a, MonadIO m) => a -> WidgetHierarchyChangedCallback -> m SignalHandlerId -onWidgetHierarchyChanged obj cb = liftIO $ connectWidgetHierarchyChanged obj cb SignalConnectBefore -afterWidgetHierarchyChanged :: (GObject a, MonadIO m) => a -> WidgetHierarchyChangedCallback -> m SignalHandlerId -afterWidgetHierarchyChanged obj cb = connectWidgetHierarchyChanged obj cb SignalConnectAfter - -connectWidgetHierarchyChanged :: (GObject a, MonadIO m) => - a -> WidgetHierarchyChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetHierarchyChanged obj cb after = liftIO $ do - cb' <- mkWidgetHierarchyChangedCallback (widgetHierarchyChangedCallbackWrapper cb) - connectSignalFunPtr obj "hierarchy-changed" cb' after - --- signal Widget::key-press-event -type WidgetKeyPressEventCallback = - Gdk.EventKey -> - IO Bool - -noWidgetKeyPressEventCallback :: Maybe WidgetKeyPressEventCallback -noWidgetKeyPressEventCallback = Nothing - -type WidgetKeyPressEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventKey -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetKeyPressEventCallback :: WidgetKeyPressEventCallbackC -> IO (FunPtr WidgetKeyPressEventCallbackC) - -widgetKeyPressEventClosure :: WidgetKeyPressEventCallback -> IO Closure -widgetKeyPressEventClosure cb = newCClosure =<< mkWidgetKeyPressEventCallback wrapped - where wrapped = widgetKeyPressEventCallbackWrapper cb - -widgetKeyPressEventCallbackWrapper :: - WidgetKeyPressEventCallback -> - Ptr () -> - Ptr Gdk.EventKey -> - Ptr () -> - IO CInt -widgetKeyPressEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr 56 Gdk.EventKey) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetKeyPressEvent :: (GObject a, MonadIO m) => a -> WidgetKeyPressEventCallback -> m SignalHandlerId -onWidgetKeyPressEvent obj cb = liftIO $ connectWidgetKeyPressEvent obj cb SignalConnectBefore -afterWidgetKeyPressEvent :: (GObject a, MonadIO m) => a -> WidgetKeyPressEventCallback -> m SignalHandlerId -afterWidgetKeyPressEvent obj cb = connectWidgetKeyPressEvent obj cb SignalConnectAfter - -connectWidgetKeyPressEvent :: (GObject a, MonadIO m) => - a -> WidgetKeyPressEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetKeyPressEvent obj cb after = liftIO $ do - cb' <- mkWidgetKeyPressEventCallback (widgetKeyPressEventCallbackWrapper cb) - connectSignalFunPtr obj "key-press-event" cb' after - --- signal Widget::key-release-event -type WidgetKeyReleaseEventCallback = - Gdk.EventKey -> - IO Bool - -noWidgetKeyReleaseEventCallback :: Maybe WidgetKeyReleaseEventCallback -noWidgetKeyReleaseEventCallback = Nothing - -type WidgetKeyReleaseEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventKey -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetKeyReleaseEventCallback :: WidgetKeyReleaseEventCallbackC -> IO (FunPtr WidgetKeyReleaseEventCallbackC) - -widgetKeyReleaseEventClosure :: WidgetKeyReleaseEventCallback -> IO Closure -widgetKeyReleaseEventClosure cb = newCClosure =<< mkWidgetKeyReleaseEventCallback wrapped - where wrapped = widgetKeyReleaseEventCallbackWrapper cb - -widgetKeyReleaseEventCallbackWrapper :: - WidgetKeyReleaseEventCallback -> - Ptr () -> - Ptr Gdk.EventKey -> - Ptr () -> - IO CInt -widgetKeyReleaseEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr 56 Gdk.EventKey) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetKeyReleaseEvent :: (GObject a, MonadIO m) => a -> WidgetKeyReleaseEventCallback -> m SignalHandlerId -onWidgetKeyReleaseEvent obj cb = liftIO $ connectWidgetKeyReleaseEvent obj cb SignalConnectBefore -afterWidgetKeyReleaseEvent :: (GObject a, MonadIO m) => a -> WidgetKeyReleaseEventCallback -> m SignalHandlerId -afterWidgetKeyReleaseEvent obj cb = connectWidgetKeyReleaseEvent obj cb SignalConnectAfter - -connectWidgetKeyReleaseEvent :: (GObject a, MonadIO m) => - a -> WidgetKeyReleaseEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetKeyReleaseEvent obj cb after = liftIO $ do - cb' <- mkWidgetKeyReleaseEventCallback (widgetKeyReleaseEventCallbackWrapper cb) - connectSignalFunPtr obj "key-release-event" cb' after - --- signal Widget::keynav-failed -type WidgetKeynavFailedCallback = - DirectionType -> - IO Bool - -noWidgetKeynavFailedCallback :: Maybe WidgetKeynavFailedCallback -noWidgetKeynavFailedCallback = Nothing - -type WidgetKeynavFailedCallbackC = - Ptr () -> -- object - CUInt -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetKeynavFailedCallback :: WidgetKeynavFailedCallbackC -> IO (FunPtr WidgetKeynavFailedCallbackC) - -widgetKeynavFailedClosure :: WidgetKeynavFailedCallback -> IO Closure -widgetKeynavFailedClosure cb = newCClosure =<< mkWidgetKeynavFailedCallback wrapped - where wrapped = widgetKeynavFailedCallbackWrapper cb - -widgetKeynavFailedCallbackWrapper :: - WidgetKeynavFailedCallback -> - Ptr () -> - CUInt -> - Ptr () -> - IO CInt -widgetKeynavFailedCallbackWrapper _cb _ direction _ = do - let direction' = (toEnum . fromIntegral) direction - result <- _cb direction' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetKeynavFailed :: (GObject a, MonadIO m) => a -> WidgetKeynavFailedCallback -> m SignalHandlerId -onWidgetKeynavFailed obj cb = liftIO $ connectWidgetKeynavFailed obj cb SignalConnectBefore -afterWidgetKeynavFailed :: (GObject a, MonadIO m) => a -> WidgetKeynavFailedCallback -> m SignalHandlerId -afterWidgetKeynavFailed obj cb = connectWidgetKeynavFailed obj cb SignalConnectAfter - -connectWidgetKeynavFailed :: (GObject a, MonadIO m) => - a -> WidgetKeynavFailedCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetKeynavFailed obj cb after = liftIO $ do - cb' <- mkWidgetKeynavFailedCallback (widgetKeynavFailedCallbackWrapper cb) - connectSignalFunPtr obj "keynav-failed" cb' after - --- signal Widget::leave-notify-event -type WidgetLeaveNotifyEventCallback = - Gdk.EventCrossing -> - IO Bool - -noWidgetLeaveNotifyEventCallback :: Maybe WidgetLeaveNotifyEventCallback -noWidgetLeaveNotifyEventCallback = Nothing - -type WidgetLeaveNotifyEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventCrossing -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetLeaveNotifyEventCallback :: WidgetLeaveNotifyEventCallbackC -> IO (FunPtr WidgetLeaveNotifyEventCallbackC) - -widgetLeaveNotifyEventClosure :: WidgetLeaveNotifyEventCallback -> IO Closure -widgetLeaveNotifyEventClosure cb = newCClosure =<< mkWidgetLeaveNotifyEventCallback wrapped - where wrapped = widgetLeaveNotifyEventCallbackWrapper cb - -widgetLeaveNotifyEventCallbackWrapper :: - WidgetLeaveNotifyEventCallback -> - Ptr () -> - Ptr Gdk.EventCrossing -> - Ptr () -> - IO CInt -widgetLeaveNotifyEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr 88 Gdk.EventCrossing) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetLeaveNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetLeaveNotifyEventCallback -> m SignalHandlerId -onWidgetLeaveNotifyEvent obj cb = liftIO $ connectWidgetLeaveNotifyEvent obj cb SignalConnectBefore -afterWidgetLeaveNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetLeaveNotifyEventCallback -> m SignalHandlerId -afterWidgetLeaveNotifyEvent obj cb = connectWidgetLeaveNotifyEvent obj cb SignalConnectAfter - -connectWidgetLeaveNotifyEvent :: (GObject a, MonadIO m) => - a -> WidgetLeaveNotifyEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetLeaveNotifyEvent obj cb after = liftIO $ do - cb' <- mkWidgetLeaveNotifyEventCallback (widgetLeaveNotifyEventCallbackWrapper cb) - connectSignalFunPtr obj "leave-notify-event" cb' after - --- signal Widget::map -type WidgetMapCallback = - IO () - -noWidgetMapCallback :: Maybe WidgetMapCallback -noWidgetMapCallback = Nothing - -type WidgetMapCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetMapCallback :: WidgetMapCallbackC -> IO (FunPtr WidgetMapCallbackC) - -widgetMapClosure :: WidgetMapCallback -> IO Closure -widgetMapClosure cb = newCClosure =<< mkWidgetMapCallback wrapped - where wrapped = widgetMapCallbackWrapper cb - -widgetMapCallbackWrapper :: - WidgetMapCallback -> - Ptr () -> - Ptr () -> - IO () -widgetMapCallbackWrapper _cb _ _ = do - _cb - -onWidgetMap :: (GObject a, MonadIO m) => a -> WidgetMapCallback -> m SignalHandlerId -onWidgetMap obj cb = liftIO $ connectWidgetMap obj cb SignalConnectBefore -afterWidgetMap :: (GObject a, MonadIO m) => a -> WidgetMapCallback -> m SignalHandlerId -afterWidgetMap obj cb = connectWidgetMap obj cb SignalConnectAfter - -connectWidgetMap :: (GObject a, MonadIO m) => - a -> WidgetMapCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetMap obj cb after = liftIO $ do - cb' <- mkWidgetMapCallback (widgetMapCallbackWrapper cb) - connectSignalFunPtr obj "map" cb' after - --- signal Widget::map-event -type WidgetMapEventCallback = - Gdk.EventAny -> - IO Bool - -noWidgetMapEventCallback :: Maybe WidgetMapEventCallback -noWidgetMapEventCallback = Nothing - -type WidgetMapEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventAny -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetMapEventCallback :: WidgetMapEventCallbackC -> IO (FunPtr WidgetMapEventCallbackC) - -widgetMapEventClosure :: WidgetMapEventCallback -> IO Closure -widgetMapEventClosure cb = newCClosure =<< mkWidgetMapEventCallback wrapped - where wrapped = widgetMapEventCallbackWrapper cb - -widgetMapEventCallbackWrapper :: - WidgetMapEventCallback -> - Ptr () -> - Ptr Gdk.EventAny -> - Ptr () -> - IO CInt -widgetMapEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr 24 Gdk.EventAny) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetMapEvent :: (GObject a, MonadIO m) => a -> WidgetMapEventCallback -> m SignalHandlerId -onWidgetMapEvent obj cb = liftIO $ connectWidgetMapEvent obj cb SignalConnectBefore -afterWidgetMapEvent :: (GObject a, MonadIO m) => a -> WidgetMapEventCallback -> m SignalHandlerId -afterWidgetMapEvent obj cb = connectWidgetMapEvent obj cb SignalConnectAfter - -connectWidgetMapEvent :: (GObject a, MonadIO m) => - a -> WidgetMapEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetMapEvent obj cb after = liftIO $ do - cb' <- mkWidgetMapEventCallback (widgetMapEventCallbackWrapper cb) - connectSignalFunPtr obj "map-event" cb' after - --- signal Widget::mnemonic-activate -type WidgetMnemonicActivateCallback = - Bool -> - IO Bool - -noWidgetMnemonicActivateCallback :: Maybe WidgetMnemonicActivateCallback -noWidgetMnemonicActivateCallback = Nothing - -type WidgetMnemonicActivateCallbackC = - Ptr () -> -- object - CInt -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetMnemonicActivateCallback :: WidgetMnemonicActivateCallbackC -> IO (FunPtr WidgetMnemonicActivateCallbackC) - -widgetMnemonicActivateClosure :: WidgetMnemonicActivateCallback -> IO Closure -widgetMnemonicActivateClosure cb = newCClosure =<< mkWidgetMnemonicActivateCallback wrapped - where wrapped = widgetMnemonicActivateCallbackWrapper cb - -widgetMnemonicActivateCallbackWrapper :: - WidgetMnemonicActivateCallback -> - Ptr () -> - CInt -> - Ptr () -> - IO CInt -widgetMnemonicActivateCallbackWrapper _cb _ arg1 _ = do - let arg1' = (/= 0) arg1 - result <- _cb arg1' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetMnemonicActivate :: (GObject a, MonadIO m) => a -> WidgetMnemonicActivateCallback -> m SignalHandlerId -onWidgetMnemonicActivate obj cb = liftIO $ connectWidgetMnemonicActivate obj cb SignalConnectBefore -afterWidgetMnemonicActivate :: (GObject a, MonadIO m) => a -> WidgetMnemonicActivateCallback -> m SignalHandlerId -afterWidgetMnemonicActivate obj cb = connectWidgetMnemonicActivate obj cb SignalConnectAfter - -connectWidgetMnemonicActivate :: (GObject a, MonadIO m) => - a -> WidgetMnemonicActivateCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetMnemonicActivate obj cb after = liftIO $ do - cb' <- mkWidgetMnemonicActivateCallback (widgetMnemonicActivateCallbackWrapper cb) - connectSignalFunPtr obj "mnemonic-activate" cb' after - --- signal Widget::motion-notify-event -type WidgetMotionNotifyEventCallback = - Gdk.EventMotion -> - IO Bool - -noWidgetMotionNotifyEventCallback :: Maybe WidgetMotionNotifyEventCallback -noWidgetMotionNotifyEventCallback = Nothing - -type WidgetMotionNotifyEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventMotion -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetMotionNotifyEventCallback :: WidgetMotionNotifyEventCallbackC -> IO (FunPtr WidgetMotionNotifyEventCallbackC) - -widgetMotionNotifyEventClosure :: WidgetMotionNotifyEventCallback -> IO Closure -widgetMotionNotifyEventClosure cb = newCClosure =<< mkWidgetMotionNotifyEventCallback wrapped - where wrapped = widgetMotionNotifyEventCallbackWrapper cb - -widgetMotionNotifyEventCallbackWrapper :: - WidgetMotionNotifyEventCallback -> - Ptr () -> - Ptr Gdk.EventMotion -> - Ptr () -> - IO CInt -widgetMotionNotifyEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr 80 Gdk.EventMotion) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetMotionNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetMotionNotifyEventCallback -> m SignalHandlerId -onWidgetMotionNotifyEvent obj cb = liftIO $ connectWidgetMotionNotifyEvent obj cb SignalConnectBefore -afterWidgetMotionNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetMotionNotifyEventCallback -> m SignalHandlerId -afterWidgetMotionNotifyEvent obj cb = connectWidgetMotionNotifyEvent obj cb SignalConnectAfter - -connectWidgetMotionNotifyEvent :: (GObject a, MonadIO m) => - a -> WidgetMotionNotifyEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetMotionNotifyEvent obj cb after = liftIO $ do - cb' <- mkWidgetMotionNotifyEventCallback (widgetMotionNotifyEventCallbackWrapper cb) - connectSignalFunPtr obj "motion-notify-event" cb' after - --- signal Widget::move-focus -type WidgetMoveFocusCallback = - DirectionType -> - IO () - -noWidgetMoveFocusCallback :: Maybe WidgetMoveFocusCallback -noWidgetMoveFocusCallback = Nothing - -type WidgetMoveFocusCallbackC = - Ptr () -> -- object - CUInt -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetMoveFocusCallback :: WidgetMoveFocusCallbackC -> IO (FunPtr WidgetMoveFocusCallbackC) - -widgetMoveFocusClosure :: WidgetMoveFocusCallback -> IO Closure -widgetMoveFocusClosure cb = newCClosure =<< mkWidgetMoveFocusCallback wrapped - where wrapped = widgetMoveFocusCallbackWrapper cb - -widgetMoveFocusCallbackWrapper :: - WidgetMoveFocusCallback -> - Ptr () -> - CUInt -> - Ptr () -> - IO () -widgetMoveFocusCallbackWrapper _cb _ direction _ = do - let direction' = (toEnum . fromIntegral) direction - _cb direction' - -onWidgetMoveFocus :: (GObject a, MonadIO m) => a -> WidgetMoveFocusCallback -> m SignalHandlerId -onWidgetMoveFocus obj cb = liftIO $ connectWidgetMoveFocus obj cb SignalConnectBefore -afterWidgetMoveFocus :: (GObject a, MonadIO m) => a -> WidgetMoveFocusCallback -> m SignalHandlerId -afterWidgetMoveFocus obj cb = connectWidgetMoveFocus obj cb SignalConnectAfter - -connectWidgetMoveFocus :: (GObject a, MonadIO m) => - a -> WidgetMoveFocusCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetMoveFocus obj cb after = liftIO $ do - cb' <- mkWidgetMoveFocusCallback (widgetMoveFocusCallbackWrapper cb) - connectSignalFunPtr obj "move-focus" cb' after - --- signal Widget::parent-set -type WidgetParentSetCallback = - Maybe Widget -> - IO () - -noWidgetParentSetCallback :: Maybe WidgetParentSetCallback -noWidgetParentSetCallback = Nothing - -type WidgetParentSetCallbackC = - Ptr () -> -- object - Ptr Widget -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetParentSetCallback :: WidgetParentSetCallbackC -> IO (FunPtr WidgetParentSetCallbackC) - -widgetParentSetClosure :: WidgetParentSetCallback -> IO Closure -widgetParentSetClosure cb = newCClosure =<< mkWidgetParentSetCallback wrapped - where wrapped = widgetParentSetCallbackWrapper cb - -widgetParentSetCallbackWrapper :: - WidgetParentSetCallback -> - Ptr () -> - Ptr Widget -> - Ptr () -> - IO () -widgetParentSetCallbackWrapper _cb _ oldParent _ = do - maybeOldParent <- - if oldParent == nullPtr - then return Nothing - else do - oldParent' <- (newObject Widget) oldParent - return $ Just oldParent' - _cb maybeOldParent - -onWidgetParentSet :: (GObject a, MonadIO m) => a -> WidgetParentSetCallback -> m SignalHandlerId -onWidgetParentSet obj cb = liftIO $ connectWidgetParentSet obj cb SignalConnectBefore -afterWidgetParentSet :: (GObject a, MonadIO m) => a -> WidgetParentSetCallback -> m SignalHandlerId -afterWidgetParentSet obj cb = connectWidgetParentSet obj cb SignalConnectAfter - -connectWidgetParentSet :: (GObject a, MonadIO m) => - a -> WidgetParentSetCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetParentSet obj cb after = liftIO $ do - cb' <- mkWidgetParentSetCallback (widgetParentSetCallbackWrapper cb) - connectSignalFunPtr obj "parent-set" cb' after - --- signal Widget::popup-menu -type WidgetPopupMenuCallback = - IO Bool - -noWidgetPopupMenuCallback :: Maybe WidgetPopupMenuCallback -noWidgetPopupMenuCallback = Nothing - -type WidgetPopupMenuCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetPopupMenuCallback :: WidgetPopupMenuCallbackC -> IO (FunPtr WidgetPopupMenuCallbackC) - -widgetPopupMenuClosure :: WidgetPopupMenuCallback -> IO Closure -widgetPopupMenuClosure cb = newCClosure =<< mkWidgetPopupMenuCallback wrapped - where wrapped = widgetPopupMenuCallbackWrapper cb - -widgetPopupMenuCallbackWrapper :: - WidgetPopupMenuCallback -> - Ptr () -> - Ptr () -> - IO CInt -widgetPopupMenuCallbackWrapper _cb _ _ = do - result <- _cb - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetPopupMenu :: (GObject a, MonadIO m) => a -> WidgetPopupMenuCallback -> m SignalHandlerId -onWidgetPopupMenu obj cb = liftIO $ connectWidgetPopupMenu obj cb SignalConnectBefore -afterWidgetPopupMenu :: (GObject a, MonadIO m) => a -> WidgetPopupMenuCallback -> m SignalHandlerId -afterWidgetPopupMenu obj cb = connectWidgetPopupMenu obj cb SignalConnectAfter - -connectWidgetPopupMenu :: (GObject a, MonadIO m) => - a -> WidgetPopupMenuCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetPopupMenu obj cb after = liftIO $ do - cb' <- mkWidgetPopupMenuCallback (widgetPopupMenuCallbackWrapper cb) - connectSignalFunPtr obj "popup-menu" cb' after - --- signal Widget::property-notify-event -type WidgetPropertyNotifyEventCallback = - Gdk.EventProperty -> - IO Bool - -noWidgetPropertyNotifyEventCallback :: Maybe WidgetPropertyNotifyEventCallback -noWidgetPropertyNotifyEventCallback = Nothing - -type WidgetPropertyNotifyEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventProperty -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetPropertyNotifyEventCallback :: WidgetPropertyNotifyEventCallbackC -> IO (FunPtr WidgetPropertyNotifyEventCallbackC) - -widgetPropertyNotifyEventClosure :: WidgetPropertyNotifyEventCallback -> IO Closure -widgetPropertyNotifyEventClosure cb = newCClosure =<< mkWidgetPropertyNotifyEventCallback wrapped - where wrapped = widgetPropertyNotifyEventCallbackWrapper cb - -widgetPropertyNotifyEventCallbackWrapper :: - WidgetPropertyNotifyEventCallback -> - Ptr () -> - Ptr Gdk.EventProperty -> - Ptr () -> - IO CInt -widgetPropertyNotifyEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr 40 Gdk.EventProperty) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetPropertyNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetPropertyNotifyEventCallback -> m SignalHandlerId -onWidgetPropertyNotifyEvent obj cb = liftIO $ connectWidgetPropertyNotifyEvent obj cb SignalConnectBefore -afterWidgetPropertyNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetPropertyNotifyEventCallback -> m SignalHandlerId -afterWidgetPropertyNotifyEvent obj cb = connectWidgetPropertyNotifyEvent obj cb SignalConnectAfter - -connectWidgetPropertyNotifyEvent :: (GObject a, MonadIO m) => - a -> WidgetPropertyNotifyEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetPropertyNotifyEvent obj cb after = liftIO $ do - cb' <- mkWidgetPropertyNotifyEventCallback (widgetPropertyNotifyEventCallbackWrapper cb) - connectSignalFunPtr obj "property-notify-event" cb' after - --- signal Widget::proximity-in-event -type WidgetProximityInEventCallback = - Gdk.EventProximity -> - IO Bool - -noWidgetProximityInEventCallback :: Maybe WidgetProximityInEventCallback -noWidgetProximityInEventCallback = Nothing - -type WidgetProximityInEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventProximity -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetProximityInEventCallback :: WidgetProximityInEventCallbackC -> IO (FunPtr WidgetProximityInEventCallbackC) - -widgetProximityInEventClosure :: WidgetProximityInEventCallback -> IO Closure -widgetProximityInEventClosure cb = newCClosure =<< mkWidgetProximityInEventCallback wrapped - where wrapped = widgetProximityInEventCallbackWrapper cb - -widgetProximityInEventCallbackWrapper :: - WidgetProximityInEventCallback -> - Ptr () -> - Ptr Gdk.EventProximity -> - Ptr () -> - IO CInt -widgetProximityInEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr 32 Gdk.EventProximity) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetProximityInEvent :: (GObject a, MonadIO m) => a -> WidgetProximityInEventCallback -> m SignalHandlerId -onWidgetProximityInEvent obj cb = liftIO $ connectWidgetProximityInEvent obj cb SignalConnectBefore -afterWidgetProximityInEvent :: (GObject a, MonadIO m) => a -> WidgetProximityInEventCallback -> m SignalHandlerId -afterWidgetProximityInEvent obj cb = connectWidgetProximityInEvent obj cb SignalConnectAfter - -connectWidgetProximityInEvent :: (GObject a, MonadIO m) => - a -> WidgetProximityInEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetProximityInEvent obj cb after = liftIO $ do - cb' <- mkWidgetProximityInEventCallback (widgetProximityInEventCallbackWrapper cb) - connectSignalFunPtr obj "proximity-in-event" cb' after - --- signal Widget::proximity-out-event -type WidgetProximityOutEventCallback = - Gdk.EventProximity -> - IO Bool - -noWidgetProximityOutEventCallback :: Maybe WidgetProximityOutEventCallback -noWidgetProximityOutEventCallback = Nothing - -type WidgetProximityOutEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventProximity -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetProximityOutEventCallback :: WidgetProximityOutEventCallbackC -> IO (FunPtr WidgetProximityOutEventCallbackC) - -widgetProximityOutEventClosure :: WidgetProximityOutEventCallback -> IO Closure -widgetProximityOutEventClosure cb = newCClosure =<< mkWidgetProximityOutEventCallback wrapped - where wrapped = widgetProximityOutEventCallbackWrapper cb - -widgetProximityOutEventCallbackWrapper :: - WidgetProximityOutEventCallback -> - Ptr () -> - Ptr Gdk.EventProximity -> - Ptr () -> - IO CInt -widgetProximityOutEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr 32 Gdk.EventProximity) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetProximityOutEvent :: (GObject a, MonadIO m) => a -> WidgetProximityOutEventCallback -> m SignalHandlerId -onWidgetProximityOutEvent obj cb = liftIO $ connectWidgetProximityOutEvent obj cb SignalConnectBefore -afterWidgetProximityOutEvent :: (GObject a, MonadIO m) => a -> WidgetProximityOutEventCallback -> m SignalHandlerId -afterWidgetProximityOutEvent obj cb = connectWidgetProximityOutEvent obj cb SignalConnectAfter - -connectWidgetProximityOutEvent :: (GObject a, MonadIO m) => - a -> WidgetProximityOutEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetProximityOutEvent obj cb after = liftIO $ do - cb' <- mkWidgetProximityOutEventCallback (widgetProximityOutEventCallbackWrapper cb) - connectSignalFunPtr obj "proximity-out-event" cb' after - --- signal Widget::query-tooltip -type WidgetQueryTooltipCallback = - Int32 -> - Int32 -> - Bool -> - Tooltip -> - IO Bool - -noWidgetQueryTooltipCallback :: Maybe WidgetQueryTooltipCallback -noWidgetQueryTooltipCallback = Nothing - -type WidgetQueryTooltipCallbackC = - Ptr () -> -- object - Int32 -> - Int32 -> - CInt -> - Ptr Tooltip -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetQueryTooltipCallback :: WidgetQueryTooltipCallbackC -> IO (FunPtr WidgetQueryTooltipCallbackC) - -widgetQueryTooltipClosure :: WidgetQueryTooltipCallback -> IO Closure -widgetQueryTooltipClosure cb = newCClosure =<< mkWidgetQueryTooltipCallback wrapped - where wrapped = widgetQueryTooltipCallbackWrapper cb - -widgetQueryTooltipCallbackWrapper :: - WidgetQueryTooltipCallback -> - Ptr () -> - Int32 -> - Int32 -> - CInt -> - Ptr Tooltip -> - Ptr () -> - IO CInt -widgetQueryTooltipCallbackWrapper _cb _ x y keyboardMode tooltip _ = do - let keyboardMode' = (/= 0) keyboardMode - tooltip' <- (newObject Tooltip) tooltip - result <- _cb x y keyboardMode' tooltip' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetQueryTooltip :: (GObject a, MonadIO m) => a -> WidgetQueryTooltipCallback -> m SignalHandlerId -onWidgetQueryTooltip obj cb = liftIO $ connectWidgetQueryTooltip obj cb SignalConnectBefore -afterWidgetQueryTooltip :: (GObject a, MonadIO m) => a -> WidgetQueryTooltipCallback -> m SignalHandlerId -afterWidgetQueryTooltip obj cb = connectWidgetQueryTooltip obj cb SignalConnectAfter - -connectWidgetQueryTooltip :: (GObject a, MonadIO m) => - a -> WidgetQueryTooltipCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetQueryTooltip obj cb after = liftIO $ do - cb' <- mkWidgetQueryTooltipCallback (widgetQueryTooltipCallbackWrapper cb) - connectSignalFunPtr obj "query-tooltip" cb' after - --- signal Widget::realize -type WidgetRealizeCallback = - IO () - -noWidgetRealizeCallback :: Maybe WidgetRealizeCallback -noWidgetRealizeCallback = Nothing - -type WidgetRealizeCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetRealizeCallback :: WidgetRealizeCallbackC -> IO (FunPtr WidgetRealizeCallbackC) - -widgetRealizeClosure :: WidgetRealizeCallback -> IO Closure -widgetRealizeClosure cb = newCClosure =<< mkWidgetRealizeCallback wrapped - where wrapped = widgetRealizeCallbackWrapper cb - -widgetRealizeCallbackWrapper :: - WidgetRealizeCallback -> - Ptr () -> - Ptr () -> - IO () -widgetRealizeCallbackWrapper _cb _ _ = do - _cb - -onWidgetRealize :: (GObject a, MonadIO m) => a -> WidgetRealizeCallback -> m SignalHandlerId -onWidgetRealize obj cb = liftIO $ connectWidgetRealize obj cb SignalConnectBefore -afterWidgetRealize :: (GObject a, MonadIO m) => a -> WidgetRealizeCallback -> m SignalHandlerId -afterWidgetRealize obj cb = connectWidgetRealize obj cb SignalConnectAfter - -connectWidgetRealize :: (GObject a, MonadIO m) => - a -> WidgetRealizeCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetRealize obj cb after = liftIO $ do - cb' <- mkWidgetRealizeCallback (widgetRealizeCallbackWrapper cb) - connectSignalFunPtr obj "realize" cb' after - --- signal Widget::screen-changed -type WidgetScreenChangedCallback = - Maybe Gdk.Screen -> - IO () - -noWidgetScreenChangedCallback :: Maybe WidgetScreenChangedCallback -noWidgetScreenChangedCallback = Nothing - -type WidgetScreenChangedCallbackC = - Ptr () -> -- object - Ptr Gdk.Screen -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetScreenChangedCallback :: WidgetScreenChangedCallbackC -> IO (FunPtr WidgetScreenChangedCallbackC) - -widgetScreenChangedClosure :: WidgetScreenChangedCallback -> IO Closure -widgetScreenChangedClosure cb = newCClosure =<< mkWidgetScreenChangedCallback wrapped - where wrapped = widgetScreenChangedCallbackWrapper cb - -widgetScreenChangedCallbackWrapper :: - WidgetScreenChangedCallback -> - Ptr () -> - Ptr Gdk.Screen -> - Ptr () -> - IO () -widgetScreenChangedCallbackWrapper _cb _ previousScreen _ = do - maybePreviousScreen <- - if previousScreen == nullPtr - then return Nothing - else do - previousScreen' <- (newObject Gdk.Screen) previousScreen - return $ Just previousScreen' - _cb maybePreviousScreen - -onWidgetScreenChanged :: (GObject a, MonadIO m) => a -> WidgetScreenChangedCallback -> m SignalHandlerId -onWidgetScreenChanged obj cb = liftIO $ connectWidgetScreenChanged obj cb SignalConnectBefore -afterWidgetScreenChanged :: (GObject a, MonadIO m) => a -> WidgetScreenChangedCallback -> m SignalHandlerId -afterWidgetScreenChanged obj cb = connectWidgetScreenChanged obj cb SignalConnectAfter - -connectWidgetScreenChanged :: (GObject a, MonadIO m) => - a -> WidgetScreenChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetScreenChanged obj cb after = liftIO $ do - cb' <- mkWidgetScreenChangedCallback (widgetScreenChangedCallbackWrapper cb) - connectSignalFunPtr obj "screen-changed" cb' after - --- signal Widget::scroll-event -type WidgetScrollEventCallback = - Gdk.EventScroll -> - IO Bool - -noWidgetScrollEventCallback :: Maybe WidgetScrollEventCallback -noWidgetScrollEventCallback = Nothing - -type WidgetScrollEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventScroll -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetScrollEventCallback :: WidgetScrollEventCallbackC -> IO (FunPtr WidgetScrollEventCallbackC) - -widgetScrollEventClosure :: WidgetScrollEventCallback -> IO Closure -widgetScrollEventClosure cb = newCClosure =<< mkWidgetScrollEventCallback wrapped - where wrapped = widgetScrollEventCallbackWrapper cb - -widgetScrollEventCallbackWrapper :: - WidgetScrollEventCallback -> - Ptr () -> - Ptr Gdk.EventScroll -> - Ptr () -> - IO CInt -widgetScrollEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr 88 Gdk.EventScroll) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetScrollEvent :: (GObject a, MonadIO m) => a -> WidgetScrollEventCallback -> m SignalHandlerId -onWidgetScrollEvent obj cb = liftIO $ connectWidgetScrollEvent obj cb SignalConnectBefore -afterWidgetScrollEvent :: (GObject a, MonadIO m) => a -> WidgetScrollEventCallback -> m SignalHandlerId -afterWidgetScrollEvent obj cb = connectWidgetScrollEvent obj cb SignalConnectAfter - -connectWidgetScrollEvent :: (GObject a, MonadIO m) => - a -> WidgetScrollEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetScrollEvent obj cb after = liftIO $ do - cb' <- mkWidgetScrollEventCallback (widgetScrollEventCallbackWrapper cb) - connectSignalFunPtr obj "scroll-event" cb' after - --- signal Widget::selection-clear-event -type WidgetSelectionClearEventCallback = - Gdk.EventSelection -> - IO Bool - -noWidgetSelectionClearEventCallback :: Maybe WidgetSelectionClearEventCallback -noWidgetSelectionClearEventCallback = Nothing - -type WidgetSelectionClearEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventSelection -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetSelectionClearEventCallback :: WidgetSelectionClearEventCallbackC -> IO (FunPtr WidgetSelectionClearEventCallbackC) - -widgetSelectionClearEventClosure :: WidgetSelectionClearEventCallback -> IO Closure -widgetSelectionClearEventClosure cb = newCClosure =<< mkWidgetSelectionClearEventCallback wrapped - where wrapped = widgetSelectionClearEventCallbackWrapper cb - -widgetSelectionClearEventCallbackWrapper :: - WidgetSelectionClearEventCallback -> - Ptr () -> - Ptr Gdk.EventSelection -> - Ptr () -> - IO CInt -widgetSelectionClearEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr 64 Gdk.EventSelection) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetSelectionClearEvent :: (GObject a, MonadIO m) => a -> WidgetSelectionClearEventCallback -> m SignalHandlerId -onWidgetSelectionClearEvent obj cb = liftIO $ connectWidgetSelectionClearEvent obj cb SignalConnectBefore -afterWidgetSelectionClearEvent :: (GObject a, MonadIO m) => a -> WidgetSelectionClearEventCallback -> m SignalHandlerId -afterWidgetSelectionClearEvent obj cb = connectWidgetSelectionClearEvent obj cb SignalConnectAfter - -connectWidgetSelectionClearEvent :: (GObject a, MonadIO m) => - a -> WidgetSelectionClearEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetSelectionClearEvent obj cb after = liftIO $ do - cb' <- mkWidgetSelectionClearEventCallback (widgetSelectionClearEventCallbackWrapper cb) - connectSignalFunPtr obj "selection-clear-event" cb' after - --- signal Widget::selection-get -type WidgetSelectionGetCallback = - SelectionData -> - Word32 -> - Word32 -> - IO () - -noWidgetSelectionGetCallback :: Maybe WidgetSelectionGetCallback -noWidgetSelectionGetCallback = Nothing - -type WidgetSelectionGetCallbackC = - Ptr () -> -- object - Ptr SelectionData -> - Word32 -> - Word32 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetSelectionGetCallback :: WidgetSelectionGetCallbackC -> IO (FunPtr WidgetSelectionGetCallbackC) - -widgetSelectionGetClosure :: WidgetSelectionGetCallback -> IO Closure -widgetSelectionGetClosure cb = newCClosure =<< mkWidgetSelectionGetCallback wrapped - where wrapped = widgetSelectionGetCallbackWrapper cb - -widgetSelectionGetCallbackWrapper :: - WidgetSelectionGetCallback -> - Ptr () -> - Ptr SelectionData -> - Word32 -> - Word32 -> - Ptr () -> - IO () -widgetSelectionGetCallbackWrapper _cb _ data_ info time _ = do - data_' <- (newBoxed SelectionData) data_ - _cb data_' info time - -onWidgetSelectionGet :: (GObject a, MonadIO m) => a -> WidgetSelectionGetCallback -> m SignalHandlerId -onWidgetSelectionGet obj cb = liftIO $ connectWidgetSelectionGet obj cb SignalConnectBefore -afterWidgetSelectionGet :: (GObject a, MonadIO m) => a -> WidgetSelectionGetCallback -> m SignalHandlerId -afterWidgetSelectionGet obj cb = connectWidgetSelectionGet obj cb SignalConnectAfter - -connectWidgetSelectionGet :: (GObject a, MonadIO m) => - a -> WidgetSelectionGetCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetSelectionGet obj cb after = liftIO $ do - cb' <- mkWidgetSelectionGetCallback (widgetSelectionGetCallbackWrapper cb) - connectSignalFunPtr obj "selection-get" cb' after - --- signal Widget::selection-notify-event -type WidgetSelectionNotifyEventCallback = - Gdk.EventSelection -> - IO Bool - -noWidgetSelectionNotifyEventCallback :: Maybe WidgetSelectionNotifyEventCallback -noWidgetSelectionNotifyEventCallback = Nothing - -type WidgetSelectionNotifyEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventSelection -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetSelectionNotifyEventCallback :: WidgetSelectionNotifyEventCallbackC -> IO (FunPtr WidgetSelectionNotifyEventCallbackC) - -widgetSelectionNotifyEventClosure :: WidgetSelectionNotifyEventCallback -> IO Closure -widgetSelectionNotifyEventClosure cb = newCClosure =<< mkWidgetSelectionNotifyEventCallback wrapped - where wrapped = widgetSelectionNotifyEventCallbackWrapper cb - -widgetSelectionNotifyEventCallbackWrapper :: - WidgetSelectionNotifyEventCallback -> - Ptr () -> - Ptr Gdk.EventSelection -> - Ptr () -> - IO CInt -widgetSelectionNotifyEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr 64 Gdk.EventSelection) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetSelectionNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetSelectionNotifyEventCallback -> m SignalHandlerId -onWidgetSelectionNotifyEvent obj cb = liftIO $ connectWidgetSelectionNotifyEvent obj cb SignalConnectBefore -afterWidgetSelectionNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetSelectionNotifyEventCallback -> m SignalHandlerId -afterWidgetSelectionNotifyEvent obj cb = connectWidgetSelectionNotifyEvent obj cb SignalConnectAfter - -connectWidgetSelectionNotifyEvent :: (GObject a, MonadIO m) => - a -> WidgetSelectionNotifyEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetSelectionNotifyEvent obj cb after = liftIO $ do - cb' <- mkWidgetSelectionNotifyEventCallback (widgetSelectionNotifyEventCallbackWrapper cb) - connectSignalFunPtr obj "selection-notify-event" cb' after - --- signal Widget::selection-received -type WidgetSelectionReceivedCallback = - SelectionData -> - Word32 -> - IO () - -noWidgetSelectionReceivedCallback :: Maybe WidgetSelectionReceivedCallback -noWidgetSelectionReceivedCallback = Nothing - -type WidgetSelectionReceivedCallbackC = - Ptr () -> -- object - Ptr SelectionData -> - Word32 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetSelectionReceivedCallback :: WidgetSelectionReceivedCallbackC -> IO (FunPtr WidgetSelectionReceivedCallbackC) - -widgetSelectionReceivedClosure :: WidgetSelectionReceivedCallback -> IO Closure -widgetSelectionReceivedClosure cb = newCClosure =<< mkWidgetSelectionReceivedCallback wrapped - where wrapped = widgetSelectionReceivedCallbackWrapper cb - -widgetSelectionReceivedCallbackWrapper :: - WidgetSelectionReceivedCallback -> - Ptr () -> - Ptr SelectionData -> - Word32 -> - Ptr () -> - IO () -widgetSelectionReceivedCallbackWrapper _cb _ data_ time _ = do - data_' <- (newBoxed SelectionData) data_ - _cb data_' time - -onWidgetSelectionReceived :: (GObject a, MonadIO m) => a -> WidgetSelectionReceivedCallback -> m SignalHandlerId -onWidgetSelectionReceived obj cb = liftIO $ connectWidgetSelectionReceived obj cb SignalConnectBefore -afterWidgetSelectionReceived :: (GObject a, MonadIO m) => a -> WidgetSelectionReceivedCallback -> m SignalHandlerId -afterWidgetSelectionReceived obj cb = connectWidgetSelectionReceived obj cb SignalConnectAfter - -connectWidgetSelectionReceived :: (GObject a, MonadIO m) => - a -> WidgetSelectionReceivedCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetSelectionReceived obj cb after = liftIO $ do - cb' <- mkWidgetSelectionReceivedCallback (widgetSelectionReceivedCallbackWrapper cb) - connectSignalFunPtr obj "selection-received" cb' after - --- signal Widget::selection-request-event -type WidgetSelectionRequestEventCallback = - Gdk.EventSelection -> - IO Bool - -noWidgetSelectionRequestEventCallback :: Maybe WidgetSelectionRequestEventCallback -noWidgetSelectionRequestEventCallback = Nothing - -type WidgetSelectionRequestEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventSelection -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetSelectionRequestEventCallback :: WidgetSelectionRequestEventCallbackC -> IO (FunPtr WidgetSelectionRequestEventCallbackC) - -widgetSelectionRequestEventClosure :: WidgetSelectionRequestEventCallback -> IO Closure -widgetSelectionRequestEventClosure cb = newCClosure =<< mkWidgetSelectionRequestEventCallback wrapped - where wrapped = widgetSelectionRequestEventCallbackWrapper cb - -widgetSelectionRequestEventCallbackWrapper :: - WidgetSelectionRequestEventCallback -> - Ptr () -> - Ptr Gdk.EventSelection -> - Ptr () -> - IO CInt -widgetSelectionRequestEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr 64 Gdk.EventSelection) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetSelectionRequestEvent :: (GObject a, MonadIO m) => a -> WidgetSelectionRequestEventCallback -> m SignalHandlerId -onWidgetSelectionRequestEvent obj cb = liftIO $ connectWidgetSelectionRequestEvent obj cb SignalConnectBefore -afterWidgetSelectionRequestEvent :: (GObject a, MonadIO m) => a -> WidgetSelectionRequestEventCallback -> m SignalHandlerId -afterWidgetSelectionRequestEvent obj cb = connectWidgetSelectionRequestEvent obj cb SignalConnectAfter - -connectWidgetSelectionRequestEvent :: (GObject a, MonadIO m) => - a -> WidgetSelectionRequestEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetSelectionRequestEvent obj cb after = liftIO $ do - cb' <- mkWidgetSelectionRequestEventCallback (widgetSelectionRequestEventCallbackWrapper cb) - connectSignalFunPtr obj "selection-request-event" cb' after - --- signal Widget::show -type WidgetShowCallback = - IO () - -noWidgetShowCallback :: Maybe WidgetShowCallback -noWidgetShowCallback = Nothing - -type WidgetShowCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetShowCallback :: WidgetShowCallbackC -> IO (FunPtr WidgetShowCallbackC) - -widgetShowClosure :: WidgetShowCallback -> IO Closure -widgetShowClosure cb = newCClosure =<< mkWidgetShowCallback wrapped - where wrapped = widgetShowCallbackWrapper cb - -widgetShowCallbackWrapper :: - WidgetShowCallback -> - Ptr () -> - Ptr () -> - IO () -widgetShowCallbackWrapper _cb _ _ = do - _cb - -onWidgetShow :: (GObject a, MonadIO m) => a -> WidgetShowCallback -> m SignalHandlerId -onWidgetShow obj cb = liftIO $ connectWidgetShow obj cb SignalConnectBefore -afterWidgetShow :: (GObject a, MonadIO m) => a -> WidgetShowCallback -> m SignalHandlerId -afterWidgetShow obj cb = connectWidgetShow obj cb SignalConnectAfter - -connectWidgetShow :: (GObject a, MonadIO m) => - a -> WidgetShowCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetShow obj cb after = liftIO $ do - cb' <- mkWidgetShowCallback (widgetShowCallbackWrapper cb) - connectSignalFunPtr obj "show" cb' after - --- signal Widget::show-help -type WidgetShowHelpCallback = - WidgetHelpType -> - IO Bool - -noWidgetShowHelpCallback :: Maybe WidgetShowHelpCallback -noWidgetShowHelpCallback = Nothing - -type WidgetShowHelpCallbackC = - Ptr () -> -- object - CUInt -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetShowHelpCallback :: WidgetShowHelpCallbackC -> IO (FunPtr WidgetShowHelpCallbackC) - -widgetShowHelpClosure :: WidgetShowHelpCallback -> IO Closure -widgetShowHelpClosure cb = newCClosure =<< mkWidgetShowHelpCallback wrapped - where wrapped = widgetShowHelpCallbackWrapper cb - -widgetShowHelpCallbackWrapper :: - WidgetShowHelpCallback -> - Ptr () -> - CUInt -> - Ptr () -> - IO CInt -widgetShowHelpCallbackWrapper _cb _ helpType _ = do - let helpType' = (toEnum . fromIntegral) helpType - result <- _cb helpType' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetShowHelp :: (GObject a, MonadIO m) => a -> WidgetShowHelpCallback -> m SignalHandlerId -onWidgetShowHelp obj cb = liftIO $ connectWidgetShowHelp obj cb SignalConnectBefore -afterWidgetShowHelp :: (GObject a, MonadIO m) => a -> WidgetShowHelpCallback -> m SignalHandlerId -afterWidgetShowHelp obj cb = connectWidgetShowHelp obj cb SignalConnectAfter - -connectWidgetShowHelp :: (GObject a, MonadIO m) => - a -> WidgetShowHelpCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetShowHelp obj cb after = liftIO $ do - cb' <- mkWidgetShowHelpCallback (widgetShowHelpCallbackWrapper cb) - connectSignalFunPtr obj "show-help" cb' after - --- signal Widget::size-allocate -type WidgetSizeAllocateCallback = - Gdk.Rectangle -> - IO () - -noWidgetSizeAllocateCallback :: Maybe WidgetSizeAllocateCallback -noWidgetSizeAllocateCallback = Nothing - -type WidgetSizeAllocateCallbackC = - Ptr () -> -- object - Ptr Gdk.Rectangle -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetSizeAllocateCallback :: WidgetSizeAllocateCallbackC -> IO (FunPtr WidgetSizeAllocateCallbackC) - -widgetSizeAllocateClosure :: WidgetSizeAllocateCallback -> IO Closure -widgetSizeAllocateClosure cb = newCClosure =<< mkWidgetSizeAllocateCallback wrapped - where wrapped = widgetSizeAllocateCallbackWrapper cb - -widgetSizeAllocateCallbackWrapper :: - WidgetSizeAllocateCallback -> - Ptr () -> - Ptr Gdk.Rectangle -> - Ptr () -> - IO () -widgetSizeAllocateCallbackWrapper _cb _ allocation _ = do - allocation' <- (newBoxed Gdk.Rectangle) allocation - _cb allocation' - -onWidgetSizeAllocate :: (GObject a, MonadIO m) => a -> WidgetSizeAllocateCallback -> m SignalHandlerId -onWidgetSizeAllocate obj cb = liftIO $ connectWidgetSizeAllocate obj cb SignalConnectBefore -afterWidgetSizeAllocate :: (GObject a, MonadIO m) => a -> WidgetSizeAllocateCallback -> m SignalHandlerId -afterWidgetSizeAllocate obj cb = connectWidgetSizeAllocate obj cb SignalConnectAfter - -connectWidgetSizeAllocate :: (GObject a, MonadIO m) => - a -> WidgetSizeAllocateCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetSizeAllocate obj cb after = liftIO $ do - cb' <- mkWidgetSizeAllocateCallback (widgetSizeAllocateCallbackWrapper cb) - connectSignalFunPtr obj "size-allocate" cb' after - --- signal Widget::state-changed -type WidgetStateChangedCallback = - StateType -> - IO () - -noWidgetStateChangedCallback :: Maybe WidgetStateChangedCallback -noWidgetStateChangedCallback = Nothing - -type WidgetStateChangedCallbackC = - Ptr () -> -- object - CUInt -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetStateChangedCallback :: WidgetStateChangedCallbackC -> IO (FunPtr WidgetStateChangedCallbackC) - -widgetStateChangedClosure :: WidgetStateChangedCallback -> IO Closure -widgetStateChangedClosure cb = newCClosure =<< mkWidgetStateChangedCallback wrapped - where wrapped = widgetStateChangedCallbackWrapper cb - -widgetStateChangedCallbackWrapper :: - WidgetStateChangedCallback -> - Ptr () -> - CUInt -> - Ptr () -> - IO () -widgetStateChangedCallbackWrapper _cb _ state _ = do - let state' = (toEnum . fromIntegral) state - _cb state' - -onWidgetStateChanged :: (GObject a, MonadIO m) => a -> WidgetStateChangedCallback -> m SignalHandlerId -onWidgetStateChanged obj cb = liftIO $ connectWidgetStateChanged obj cb SignalConnectBefore -afterWidgetStateChanged :: (GObject a, MonadIO m) => a -> WidgetStateChangedCallback -> m SignalHandlerId -afterWidgetStateChanged obj cb = connectWidgetStateChanged obj cb SignalConnectAfter - -connectWidgetStateChanged :: (GObject a, MonadIO m) => - a -> WidgetStateChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetStateChanged obj cb after = liftIO $ do - cb' <- mkWidgetStateChangedCallback (widgetStateChangedCallbackWrapper cb) - connectSignalFunPtr obj "state-changed" cb' after - --- signal Widget::state-flags-changed -type WidgetStateFlagsChangedCallback = - [StateFlags] -> - IO () - -noWidgetStateFlagsChangedCallback :: Maybe WidgetStateFlagsChangedCallback -noWidgetStateFlagsChangedCallback = Nothing - -type WidgetStateFlagsChangedCallbackC = - Ptr () -> -- object - CUInt -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetStateFlagsChangedCallback :: WidgetStateFlagsChangedCallbackC -> IO (FunPtr WidgetStateFlagsChangedCallbackC) - -widgetStateFlagsChangedClosure :: WidgetStateFlagsChangedCallback -> IO Closure -widgetStateFlagsChangedClosure cb = newCClosure =<< mkWidgetStateFlagsChangedCallback wrapped - where wrapped = widgetStateFlagsChangedCallbackWrapper cb - -widgetStateFlagsChangedCallbackWrapper :: - WidgetStateFlagsChangedCallback -> - Ptr () -> - CUInt -> - Ptr () -> - IO () -widgetStateFlagsChangedCallbackWrapper _cb _ flags _ = do - let flags' = wordToGFlags flags - _cb flags' - -onWidgetStateFlagsChanged :: (GObject a, MonadIO m) => a -> WidgetStateFlagsChangedCallback -> m SignalHandlerId -onWidgetStateFlagsChanged obj cb = liftIO $ connectWidgetStateFlagsChanged obj cb SignalConnectBefore -afterWidgetStateFlagsChanged :: (GObject a, MonadIO m) => a -> WidgetStateFlagsChangedCallback -> m SignalHandlerId -afterWidgetStateFlagsChanged obj cb = connectWidgetStateFlagsChanged obj cb SignalConnectAfter - -connectWidgetStateFlagsChanged :: (GObject a, MonadIO m) => - a -> WidgetStateFlagsChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetStateFlagsChanged obj cb after = liftIO $ do - cb' <- mkWidgetStateFlagsChangedCallback (widgetStateFlagsChangedCallbackWrapper cb) - connectSignalFunPtr obj "state-flags-changed" cb' after - --- signal Widget::style-set -type WidgetStyleSetCallback = - Maybe Style -> - IO () - -noWidgetStyleSetCallback :: Maybe WidgetStyleSetCallback -noWidgetStyleSetCallback = Nothing - -type WidgetStyleSetCallbackC = - Ptr () -> -- object - Ptr Style -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetStyleSetCallback :: WidgetStyleSetCallbackC -> IO (FunPtr WidgetStyleSetCallbackC) - -widgetStyleSetClosure :: WidgetStyleSetCallback -> IO Closure -widgetStyleSetClosure cb = newCClosure =<< mkWidgetStyleSetCallback wrapped - where wrapped = widgetStyleSetCallbackWrapper cb - -widgetStyleSetCallbackWrapper :: - WidgetStyleSetCallback -> - Ptr () -> - Ptr Style -> - Ptr () -> - IO () -widgetStyleSetCallbackWrapper _cb _ previousStyle _ = do - maybePreviousStyle <- - if previousStyle == nullPtr - then return Nothing - else do - previousStyle' <- (newObject Style) previousStyle - return $ Just previousStyle' - _cb maybePreviousStyle - -onWidgetStyleSet :: (GObject a, MonadIO m) => a -> WidgetStyleSetCallback -> m SignalHandlerId -onWidgetStyleSet obj cb = liftIO $ connectWidgetStyleSet obj cb SignalConnectBefore -afterWidgetStyleSet :: (GObject a, MonadIO m) => a -> WidgetStyleSetCallback -> m SignalHandlerId -afterWidgetStyleSet obj cb = connectWidgetStyleSet obj cb SignalConnectAfter - -connectWidgetStyleSet :: (GObject a, MonadIO m) => - a -> WidgetStyleSetCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetStyleSet obj cb after = liftIO $ do - cb' <- mkWidgetStyleSetCallback (widgetStyleSetCallbackWrapper cb) - connectSignalFunPtr obj "style-set" cb' after - --- signal Widget::style-updated -type WidgetStyleUpdatedCallback = - IO () - -noWidgetStyleUpdatedCallback :: Maybe WidgetStyleUpdatedCallback -noWidgetStyleUpdatedCallback = Nothing - -type WidgetStyleUpdatedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetStyleUpdatedCallback :: WidgetStyleUpdatedCallbackC -> IO (FunPtr WidgetStyleUpdatedCallbackC) - -widgetStyleUpdatedClosure :: WidgetStyleUpdatedCallback -> IO Closure -widgetStyleUpdatedClosure cb = newCClosure =<< mkWidgetStyleUpdatedCallback wrapped - where wrapped = widgetStyleUpdatedCallbackWrapper cb - -widgetStyleUpdatedCallbackWrapper :: - WidgetStyleUpdatedCallback -> - Ptr () -> - Ptr () -> - IO () -widgetStyleUpdatedCallbackWrapper _cb _ _ = do - _cb - -onWidgetStyleUpdated :: (GObject a, MonadIO m) => a -> WidgetStyleUpdatedCallback -> m SignalHandlerId -onWidgetStyleUpdated obj cb = liftIO $ connectWidgetStyleUpdated obj cb SignalConnectBefore -afterWidgetStyleUpdated :: (GObject a, MonadIO m) => a -> WidgetStyleUpdatedCallback -> m SignalHandlerId -afterWidgetStyleUpdated obj cb = connectWidgetStyleUpdated obj cb SignalConnectAfter - -connectWidgetStyleUpdated :: (GObject a, MonadIO m) => - a -> WidgetStyleUpdatedCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetStyleUpdated obj cb after = liftIO $ do - cb' <- mkWidgetStyleUpdatedCallback (widgetStyleUpdatedCallbackWrapper cb) - connectSignalFunPtr obj "style-updated" cb' after - --- signal Widget::touch-event -type WidgetTouchEventCallback = - Gdk.Event -> - IO Bool - -noWidgetTouchEventCallback :: Maybe WidgetTouchEventCallback -noWidgetTouchEventCallback = Nothing - -type WidgetTouchEventCallbackC = - Ptr () -> -- object - Ptr Gdk.Event -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetTouchEventCallback :: WidgetTouchEventCallbackC -> IO (FunPtr WidgetTouchEventCallbackC) - -widgetTouchEventClosure :: WidgetTouchEventCallback -> IO Closure -widgetTouchEventClosure cb = newCClosure =<< mkWidgetTouchEventCallback wrapped - where wrapped = widgetTouchEventCallbackWrapper cb - -widgetTouchEventCallbackWrapper :: - WidgetTouchEventCallback -> - Ptr () -> - Ptr Gdk.Event -> - Ptr () -> - IO CInt -widgetTouchEventCallbackWrapper _cb _ object _ = do - object' <- (newBoxed Gdk.Event) object - result <- _cb object' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetTouchEvent :: (GObject a, MonadIO m) => a -> WidgetTouchEventCallback -> m SignalHandlerId -onWidgetTouchEvent obj cb = liftIO $ connectWidgetTouchEvent obj cb SignalConnectBefore -afterWidgetTouchEvent :: (GObject a, MonadIO m) => a -> WidgetTouchEventCallback -> m SignalHandlerId -afterWidgetTouchEvent obj cb = connectWidgetTouchEvent obj cb SignalConnectAfter - -connectWidgetTouchEvent :: (GObject a, MonadIO m) => - a -> WidgetTouchEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetTouchEvent obj cb after = liftIO $ do - cb' <- mkWidgetTouchEventCallback (widgetTouchEventCallbackWrapper cb) - connectSignalFunPtr obj "touch-event" cb' after - --- signal Widget::unmap -type WidgetUnmapCallback = - IO () - -noWidgetUnmapCallback :: Maybe WidgetUnmapCallback -noWidgetUnmapCallback = Nothing - -type WidgetUnmapCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetUnmapCallback :: WidgetUnmapCallbackC -> IO (FunPtr WidgetUnmapCallbackC) - -widgetUnmapClosure :: WidgetUnmapCallback -> IO Closure -widgetUnmapClosure cb = newCClosure =<< mkWidgetUnmapCallback wrapped - where wrapped = widgetUnmapCallbackWrapper cb - -widgetUnmapCallbackWrapper :: - WidgetUnmapCallback -> - Ptr () -> - Ptr () -> - IO () -widgetUnmapCallbackWrapper _cb _ _ = do - _cb - -onWidgetUnmap :: (GObject a, MonadIO m) => a -> WidgetUnmapCallback -> m SignalHandlerId -onWidgetUnmap obj cb = liftIO $ connectWidgetUnmap obj cb SignalConnectBefore -afterWidgetUnmap :: (GObject a, MonadIO m) => a -> WidgetUnmapCallback -> m SignalHandlerId -afterWidgetUnmap obj cb = connectWidgetUnmap obj cb SignalConnectAfter - -connectWidgetUnmap :: (GObject a, MonadIO m) => - a -> WidgetUnmapCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetUnmap obj cb after = liftIO $ do - cb' <- mkWidgetUnmapCallback (widgetUnmapCallbackWrapper cb) - connectSignalFunPtr obj "unmap" cb' after - --- signal Widget::unmap-event -type WidgetUnmapEventCallback = - Gdk.EventAny -> - IO Bool - -noWidgetUnmapEventCallback :: Maybe WidgetUnmapEventCallback -noWidgetUnmapEventCallback = Nothing - -type WidgetUnmapEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventAny -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetUnmapEventCallback :: WidgetUnmapEventCallbackC -> IO (FunPtr WidgetUnmapEventCallbackC) - -widgetUnmapEventClosure :: WidgetUnmapEventCallback -> IO Closure -widgetUnmapEventClosure cb = newCClosure =<< mkWidgetUnmapEventCallback wrapped - where wrapped = widgetUnmapEventCallbackWrapper cb - -widgetUnmapEventCallbackWrapper :: - WidgetUnmapEventCallback -> - Ptr () -> - Ptr Gdk.EventAny -> - Ptr () -> - IO CInt -widgetUnmapEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr 24 Gdk.EventAny) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetUnmapEvent :: (GObject a, MonadIO m) => a -> WidgetUnmapEventCallback -> m SignalHandlerId -onWidgetUnmapEvent obj cb = liftIO $ connectWidgetUnmapEvent obj cb SignalConnectBefore -afterWidgetUnmapEvent :: (GObject a, MonadIO m) => a -> WidgetUnmapEventCallback -> m SignalHandlerId -afterWidgetUnmapEvent obj cb = connectWidgetUnmapEvent obj cb SignalConnectAfter - -connectWidgetUnmapEvent :: (GObject a, MonadIO m) => - a -> WidgetUnmapEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetUnmapEvent obj cb after = liftIO $ do - cb' <- mkWidgetUnmapEventCallback (widgetUnmapEventCallbackWrapper cb) - connectSignalFunPtr obj "unmap-event" cb' after - --- signal Widget::unrealize -type WidgetUnrealizeCallback = - IO () - -noWidgetUnrealizeCallback :: Maybe WidgetUnrealizeCallback -noWidgetUnrealizeCallback = Nothing - -type WidgetUnrealizeCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWidgetUnrealizeCallback :: WidgetUnrealizeCallbackC -> IO (FunPtr WidgetUnrealizeCallbackC) - -widgetUnrealizeClosure :: WidgetUnrealizeCallback -> IO Closure -widgetUnrealizeClosure cb = newCClosure =<< mkWidgetUnrealizeCallback wrapped - where wrapped = widgetUnrealizeCallbackWrapper cb - -widgetUnrealizeCallbackWrapper :: - WidgetUnrealizeCallback -> - Ptr () -> - Ptr () -> - IO () -widgetUnrealizeCallbackWrapper _cb _ _ = do - _cb - -onWidgetUnrealize :: (GObject a, MonadIO m) => a -> WidgetUnrealizeCallback -> m SignalHandlerId -onWidgetUnrealize obj cb = liftIO $ connectWidgetUnrealize obj cb SignalConnectBefore -afterWidgetUnrealize :: (GObject a, MonadIO m) => a -> WidgetUnrealizeCallback -> m SignalHandlerId -afterWidgetUnrealize obj cb = connectWidgetUnrealize obj cb SignalConnectAfter - -connectWidgetUnrealize :: (GObject a, MonadIO m) => - a -> WidgetUnrealizeCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetUnrealize obj cb after = liftIO $ do - cb' <- mkWidgetUnrealizeCallback (widgetUnrealizeCallbackWrapper cb) - connectSignalFunPtr obj "unrealize" cb' after - --- signal Widget::visibility-notify-event -type WidgetVisibilityNotifyEventCallback = - Gdk.EventVisibility -> - IO Bool - -noWidgetVisibilityNotifyEventCallback :: Maybe WidgetVisibilityNotifyEventCallback -noWidgetVisibilityNotifyEventCallback = Nothing - -type WidgetVisibilityNotifyEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventVisibility -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetVisibilityNotifyEventCallback :: WidgetVisibilityNotifyEventCallbackC -> IO (FunPtr WidgetVisibilityNotifyEventCallbackC) - -widgetVisibilityNotifyEventClosure :: WidgetVisibilityNotifyEventCallback -> IO Closure -widgetVisibilityNotifyEventClosure cb = newCClosure =<< mkWidgetVisibilityNotifyEventCallback wrapped - where wrapped = widgetVisibilityNotifyEventCallbackWrapper cb - -widgetVisibilityNotifyEventCallbackWrapper :: - WidgetVisibilityNotifyEventCallback -> - Ptr () -> - Ptr Gdk.EventVisibility -> - Ptr () -> - IO CInt -widgetVisibilityNotifyEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr 24 Gdk.EventVisibility) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetVisibilityNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetVisibilityNotifyEventCallback -> m SignalHandlerId -onWidgetVisibilityNotifyEvent obj cb = liftIO $ connectWidgetVisibilityNotifyEvent obj cb SignalConnectBefore -afterWidgetVisibilityNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetVisibilityNotifyEventCallback -> m SignalHandlerId -afterWidgetVisibilityNotifyEvent obj cb = connectWidgetVisibilityNotifyEvent obj cb SignalConnectAfter - -connectWidgetVisibilityNotifyEvent :: (GObject a, MonadIO m) => - a -> WidgetVisibilityNotifyEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetVisibilityNotifyEvent obj cb after = liftIO $ do - cb' <- mkWidgetVisibilityNotifyEventCallback (widgetVisibilityNotifyEventCallbackWrapper cb) - connectSignalFunPtr obj "visibility-notify-event" cb' after - --- signal Widget::window-state-event -type WidgetWindowStateEventCallback = - Gdk.EventWindowState -> - IO Bool - -noWidgetWindowStateEventCallback :: Maybe WidgetWindowStateEventCallback -noWidgetWindowStateEventCallback = Nothing - -type WidgetWindowStateEventCallbackC = - Ptr () -> -- object - Ptr Gdk.EventWindowState -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkWidgetWindowStateEventCallback :: WidgetWindowStateEventCallbackC -> IO (FunPtr WidgetWindowStateEventCallbackC) - -widgetWindowStateEventClosure :: WidgetWindowStateEventCallback -> IO Closure -widgetWindowStateEventClosure cb = newCClosure =<< mkWidgetWindowStateEventCallback wrapped - where wrapped = widgetWindowStateEventCallbackWrapper cb - -widgetWindowStateEventCallbackWrapper :: - WidgetWindowStateEventCallback -> - Ptr () -> - Ptr Gdk.EventWindowState -> - Ptr () -> - IO CInt -widgetWindowStateEventCallbackWrapper _cb _ event _ = do - event' <- (newPtr 32 Gdk.EventWindowState) event - result <- _cb event' - let result' = (fromIntegral . fromEnum) result - return result' - -onWidgetWindowStateEvent :: (GObject a, MonadIO m) => a -> WidgetWindowStateEventCallback -> m SignalHandlerId -onWidgetWindowStateEvent obj cb = liftIO $ connectWidgetWindowStateEvent obj cb SignalConnectBefore -afterWidgetWindowStateEvent :: (GObject a, MonadIO m) => a -> WidgetWindowStateEventCallback -> m SignalHandlerId -afterWidgetWindowStateEvent obj cb = connectWidgetWindowStateEvent obj cb SignalConnectAfter - -connectWidgetWindowStateEvent :: (GObject a, MonadIO m) => - a -> WidgetWindowStateEventCallback -> SignalConnectMode -> m SignalHandlerId -connectWidgetWindowStateEvent obj cb after = liftIO $ do - cb' <- mkWidgetWindowStateEventCallback (widgetWindowStateEventCallbackWrapper cb) - connectSignalFunPtr obj "window-state-event" cb' after - --- VVV Prop "app-paintable" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetAppPaintable :: (MonadIO m, WidgetK o) => o -> m Bool -getWidgetAppPaintable obj = liftIO $ getObjectPropertyBool obj "app-paintable" - -setWidgetAppPaintable :: (MonadIO m, WidgetK o) => o -> Bool -> m () -setWidgetAppPaintable obj val = liftIO $ setObjectPropertyBool obj "app-paintable" val - -constructWidgetAppPaintable :: Bool -> IO ([Char], GValue) -constructWidgetAppPaintable val = constructObjectPropertyBool "app-paintable" val - -data WidgetAppPaintablePropertyInfo -instance AttrInfo WidgetAppPaintablePropertyInfo where - type AttrAllowedOps WidgetAppPaintablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetAppPaintablePropertyInfo = (~) Bool - type AttrBaseTypeConstraint WidgetAppPaintablePropertyInfo = WidgetK - type AttrGetType WidgetAppPaintablePropertyInfo = Bool - type AttrLabel WidgetAppPaintablePropertyInfo = "app-paintable" - attrGet _ = getWidgetAppPaintable - attrSet _ = setWidgetAppPaintable - attrConstruct _ = constructWidgetAppPaintable - --- VVV Prop "can-default" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetCanDefault :: (MonadIO m, WidgetK o) => o -> m Bool -getWidgetCanDefault obj = liftIO $ getObjectPropertyBool obj "can-default" - -setWidgetCanDefault :: (MonadIO m, WidgetK o) => o -> Bool -> m () -setWidgetCanDefault obj val = liftIO $ setObjectPropertyBool obj "can-default" val - -constructWidgetCanDefault :: Bool -> IO ([Char], GValue) -constructWidgetCanDefault val = constructObjectPropertyBool "can-default" val - -data WidgetCanDefaultPropertyInfo -instance AttrInfo WidgetCanDefaultPropertyInfo where - type AttrAllowedOps WidgetCanDefaultPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetCanDefaultPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WidgetCanDefaultPropertyInfo = WidgetK - type AttrGetType WidgetCanDefaultPropertyInfo = Bool - type AttrLabel WidgetCanDefaultPropertyInfo = "can-default" - attrGet _ = getWidgetCanDefault - attrSet _ = setWidgetCanDefault - attrConstruct _ = constructWidgetCanDefault - --- VVV Prop "can-focus" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetCanFocus :: (MonadIO m, WidgetK o) => o -> m Bool -getWidgetCanFocus obj = liftIO $ getObjectPropertyBool obj "can-focus" - -setWidgetCanFocus :: (MonadIO m, WidgetK o) => o -> Bool -> m () -setWidgetCanFocus obj val = liftIO $ setObjectPropertyBool obj "can-focus" val - -constructWidgetCanFocus :: Bool -> IO ([Char], GValue) -constructWidgetCanFocus val = constructObjectPropertyBool "can-focus" val - -data WidgetCanFocusPropertyInfo -instance AttrInfo WidgetCanFocusPropertyInfo where - type AttrAllowedOps WidgetCanFocusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetCanFocusPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WidgetCanFocusPropertyInfo = WidgetK - type AttrGetType WidgetCanFocusPropertyInfo = Bool - type AttrLabel WidgetCanFocusPropertyInfo = "can-focus" - attrGet _ = getWidgetCanFocus - attrSet _ = setWidgetCanFocus - attrConstruct _ = constructWidgetCanFocus - --- VVV Prop "composite-child" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getWidgetCompositeChild :: (MonadIO m, WidgetK o) => o -> m Bool -getWidgetCompositeChild obj = liftIO $ getObjectPropertyBool obj "composite-child" - -data WidgetCompositeChildPropertyInfo -instance AttrInfo WidgetCompositeChildPropertyInfo where - type AttrAllowedOps WidgetCompositeChildPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint WidgetCompositeChildPropertyInfo = (~) () - type AttrBaseTypeConstraint WidgetCompositeChildPropertyInfo = WidgetK - type AttrGetType WidgetCompositeChildPropertyInfo = Bool - type AttrLabel WidgetCompositeChildPropertyInfo = "composite-child" - attrGet _ = getWidgetCompositeChild - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "double-buffered" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetDoubleBuffered :: (MonadIO m, WidgetK o) => o -> m Bool -getWidgetDoubleBuffered obj = liftIO $ getObjectPropertyBool obj "double-buffered" - -setWidgetDoubleBuffered :: (MonadIO m, WidgetK o) => o -> Bool -> m () -setWidgetDoubleBuffered obj val = liftIO $ setObjectPropertyBool obj "double-buffered" val - -constructWidgetDoubleBuffered :: Bool -> IO ([Char], GValue) -constructWidgetDoubleBuffered val = constructObjectPropertyBool "double-buffered" val - -data WidgetDoubleBufferedPropertyInfo -instance AttrInfo WidgetDoubleBufferedPropertyInfo where - type AttrAllowedOps WidgetDoubleBufferedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetDoubleBufferedPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WidgetDoubleBufferedPropertyInfo = WidgetK - type AttrGetType WidgetDoubleBufferedPropertyInfo = Bool - type AttrLabel WidgetDoubleBufferedPropertyInfo = "double-buffered" - attrGet _ = getWidgetDoubleBuffered - attrSet _ = setWidgetDoubleBuffered - attrConstruct _ = constructWidgetDoubleBuffered - --- VVV Prop "events" - -- Type: TInterface "Gdk" "EventMask" - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetEvents :: (MonadIO m, WidgetK o) => o -> m [Gdk.EventMask] -getWidgetEvents obj = liftIO $ getObjectPropertyFlags obj "events" - -setWidgetEvents :: (MonadIO m, WidgetK o) => o -> [Gdk.EventMask] -> m () -setWidgetEvents obj val = liftIO $ setObjectPropertyFlags obj "events" val - -constructWidgetEvents :: [Gdk.EventMask] -> IO ([Char], GValue) -constructWidgetEvents val = constructObjectPropertyFlags "events" val - -data WidgetEventsPropertyInfo -instance AttrInfo WidgetEventsPropertyInfo where - type AttrAllowedOps WidgetEventsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetEventsPropertyInfo = (~) [Gdk.EventMask] - type AttrBaseTypeConstraint WidgetEventsPropertyInfo = WidgetK - type AttrGetType WidgetEventsPropertyInfo = [Gdk.EventMask] - type AttrLabel WidgetEventsPropertyInfo = "events" - attrGet _ = getWidgetEvents - attrSet _ = setWidgetEvents - attrConstruct _ = constructWidgetEvents - --- VVV Prop "expand" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetExpand :: (MonadIO m, WidgetK o) => o -> m Bool -getWidgetExpand obj = liftIO $ getObjectPropertyBool obj "expand" - -setWidgetExpand :: (MonadIO m, WidgetK o) => o -> Bool -> m () -setWidgetExpand obj val = liftIO $ setObjectPropertyBool obj "expand" val - -constructWidgetExpand :: Bool -> IO ([Char], GValue) -constructWidgetExpand val = constructObjectPropertyBool "expand" val - -data WidgetExpandPropertyInfo -instance AttrInfo WidgetExpandPropertyInfo where - type AttrAllowedOps WidgetExpandPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetExpandPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WidgetExpandPropertyInfo = WidgetK - type AttrGetType WidgetExpandPropertyInfo = Bool - type AttrLabel WidgetExpandPropertyInfo = "expand" - attrGet _ = getWidgetExpand - attrSet _ = setWidgetExpand - attrConstruct _ = constructWidgetExpand - --- VVV Prop "halign" - -- Type: TInterface "Gtk" "Align" - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetHalign :: (MonadIO m, WidgetK o) => o -> m Align -getWidgetHalign obj = liftIO $ getObjectPropertyEnum obj "halign" - -setWidgetHalign :: (MonadIO m, WidgetK o) => o -> Align -> m () -setWidgetHalign obj val = liftIO $ setObjectPropertyEnum obj "halign" val - -constructWidgetHalign :: Align -> IO ([Char], GValue) -constructWidgetHalign val = constructObjectPropertyEnum "halign" val - -data WidgetHalignPropertyInfo -instance AttrInfo WidgetHalignPropertyInfo where - type AttrAllowedOps WidgetHalignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetHalignPropertyInfo = (~) Align - type AttrBaseTypeConstraint WidgetHalignPropertyInfo = WidgetK - type AttrGetType WidgetHalignPropertyInfo = Align - type AttrLabel WidgetHalignPropertyInfo = "halign" - attrGet _ = getWidgetHalign - attrSet _ = setWidgetHalign - attrConstruct _ = constructWidgetHalign - --- VVV Prop "has-default" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetHasDefault :: (MonadIO m, WidgetK o) => o -> m Bool -getWidgetHasDefault obj = liftIO $ getObjectPropertyBool obj "has-default" - -setWidgetHasDefault :: (MonadIO m, WidgetK o) => o -> Bool -> m () -setWidgetHasDefault obj val = liftIO $ setObjectPropertyBool obj "has-default" val - -constructWidgetHasDefault :: Bool -> IO ([Char], GValue) -constructWidgetHasDefault val = constructObjectPropertyBool "has-default" val - -data WidgetHasDefaultPropertyInfo -instance AttrInfo WidgetHasDefaultPropertyInfo where - type AttrAllowedOps WidgetHasDefaultPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetHasDefaultPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WidgetHasDefaultPropertyInfo = WidgetK - type AttrGetType WidgetHasDefaultPropertyInfo = Bool - type AttrLabel WidgetHasDefaultPropertyInfo = "has-default" - attrGet _ = getWidgetHasDefault - attrSet _ = setWidgetHasDefault - attrConstruct _ = constructWidgetHasDefault - --- VVV Prop "has-focus" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetHasFocus :: (MonadIO m, WidgetK o) => o -> m Bool -getWidgetHasFocus obj = liftIO $ getObjectPropertyBool obj "has-focus" - -setWidgetHasFocus :: (MonadIO m, WidgetK o) => o -> Bool -> m () -setWidgetHasFocus obj val = liftIO $ setObjectPropertyBool obj "has-focus" val - -constructWidgetHasFocus :: Bool -> IO ([Char], GValue) -constructWidgetHasFocus val = constructObjectPropertyBool "has-focus" val - -data WidgetHasFocusPropertyInfo -instance AttrInfo WidgetHasFocusPropertyInfo where - type AttrAllowedOps WidgetHasFocusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetHasFocusPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WidgetHasFocusPropertyInfo = WidgetK - type AttrGetType WidgetHasFocusPropertyInfo = Bool - type AttrLabel WidgetHasFocusPropertyInfo = "has-focus" - attrGet _ = getWidgetHasFocus - attrSet _ = setWidgetHasFocus - attrConstruct _ = constructWidgetHasFocus - --- VVV Prop "has-tooltip" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetHasTooltip :: (MonadIO m, WidgetK o) => o -> m Bool -getWidgetHasTooltip obj = liftIO $ getObjectPropertyBool obj "has-tooltip" - -setWidgetHasTooltip :: (MonadIO m, WidgetK o) => o -> Bool -> m () -setWidgetHasTooltip obj val = liftIO $ setObjectPropertyBool obj "has-tooltip" val - -constructWidgetHasTooltip :: Bool -> IO ([Char], GValue) -constructWidgetHasTooltip val = constructObjectPropertyBool "has-tooltip" val - -data WidgetHasTooltipPropertyInfo -instance AttrInfo WidgetHasTooltipPropertyInfo where - type AttrAllowedOps WidgetHasTooltipPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetHasTooltipPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WidgetHasTooltipPropertyInfo = WidgetK - type AttrGetType WidgetHasTooltipPropertyInfo = Bool - type AttrLabel WidgetHasTooltipPropertyInfo = "has-tooltip" - attrGet _ = getWidgetHasTooltip - attrSet _ = setWidgetHasTooltip - attrConstruct _ = constructWidgetHasTooltip - --- VVV Prop "height-request" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetHeightRequest :: (MonadIO m, WidgetK o) => o -> m Int32 -getWidgetHeightRequest obj = liftIO $ getObjectPropertyCInt obj "height-request" - -setWidgetHeightRequest :: (MonadIO m, WidgetK o) => o -> Int32 -> m () -setWidgetHeightRequest obj val = liftIO $ setObjectPropertyCInt obj "height-request" val - -constructWidgetHeightRequest :: Int32 -> IO ([Char], GValue) -constructWidgetHeightRequest val = constructObjectPropertyCInt "height-request" val - -data WidgetHeightRequestPropertyInfo -instance AttrInfo WidgetHeightRequestPropertyInfo where - type AttrAllowedOps WidgetHeightRequestPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetHeightRequestPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint WidgetHeightRequestPropertyInfo = WidgetK - type AttrGetType WidgetHeightRequestPropertyInfo = Int32 - type AttrLabel WidgetHeightRequestPropertyInfo = "height-request" - attrGet _ = getWidgetHeightRequest - attrSet _ = setWidgetHeightRequest - attrConstruct _ = constructWidgetHeightRequest - --- VVV Prop "hexpand" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetHexpand :: (MonadIO m, WidgetK o) => o -> m Bool -getWidgetHexpand obj = liftIO $ getObjectPropertyBool obj "hexpand" - -setWidgetHexpand :: (MonadIO m, WidgetK o) => o -> Bool -> m () -setWidgetHexpand obj val = liftIO $ setObjectPropertyBool obj "hexpand" val - -constructWidgetHexpand :: Bool -> IO ([Char], GValue) -constructWidgetHexpand val = constructObjectPropertyBool "hexpand" val - -data WidgetHexpandPropertyInfo -instance AttrInfo WidgetHexpandPropertyInfo where - type AttrAllowedOps WidgetHexpandPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetHexpandPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WidgetHexpandPropertyInfo = WidgetK - type AttrGetType WidgetHexpandPropertyInfo = Bool - type AttrLabel WidgetHexpandPropertyInfo = "hexpand" - attrGet _ = getWidgetHexpand - attrSet _ = setWidgetHexpand - attrConstruct _ = constructWidgetHexpand - --- VVV Prop "hexpand-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetHexpandSet :: (MonadIO m, WidgetK o) => o -> m Bool -getWidgetHexpandSet obj = liftIO $ getObjectPropertyBool obj "hexpand-set" - -setWidgetHexpandSet :: (MonadIO m, WidgetK o) => o -> Bool -> m () -setWidgetHexpandSet obj val = liftIO $ setObjectPropertyBool obj "hexpand-set" val - -constructWidgetHexpandSet :: Bool -> IO ([Char], GValue) -constructWidgetHexpandSet val = constructObjectPropertyBool "hexpand-set" val - -data WidgetHexpandSetPropertyInfo -instance AttrInfo WidgetHexpandSetPropertyInfo where - type AttrAllowedOps WidgetHexpandSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetHexpandSetPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WidgetHexpandSetPropertyInfo = WidgetK - type AttrGetType WidgetHexpandSetPropertyInfo = Bool - type AttrLabel WidgetHexpandSetPropertyInfo = "hexpand-set" - attrGet _ = getWidgetHexpandSet - attrSet _ = setWidgetHexpandSet - attrConstruct _ = constructWidgetHexpandSet - --- VVV Prop "is-focus" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetIsFocus :: (MonadIO m, WidgetK o) => o -> m Bool -getWidgetIsFocus obj = liftIO $ getObjectPropertyBool obj "is-focus" - -setWidgetIsFocus :: (MonadIO m, WidgetK o) => o -> Bool -> m () -setWidgetIsFocus obj val = liftIO $ setObjectPropertyBool obj "is-focus" val - -constructWidgetIsFocus :: Bool -> IO ([Char], GValue) -constructWidgetIsFocus val = constructObjectPropertyBool "is-focus" val - -data WidgetIsFocusPropertyInfo -instance AttrInfo WidgetIsFocusPropertyInfo where - type AttrAllowedOps WidgetIsFocusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetIsFocusPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WidgetIsFocusPropertyInfo = WidgetK - type AttrGetType WidgetIsFocusPropertyInfo = Bool - type AttrLabel WidgetIsFocusPropertyInfo = "is-focus" - attrGet _ = getWidgetIsFocus - attrSet _ = setWidgetIsFocus - attrConstruct _ = constructWidgetIsFocus - --- VVV Prop "margin" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetMargin :: (MonadIO m, WidgetK o) => o -> m Int32 -getWidgetMargin obj = liftIO $ getObjectPropertyCInt obj "margin" - -setWidgetMargin :: (MonadIO m, WidgetK o) => o -> Int32 -> m () -setWidgetMargin obj val = liftIO $ setObjectPropertyCInt obj "margin" val - -constructWidgetMargin :: Int32 -> IO ([Char], GValue) -constructWidgetMargin val = constructObjectPropertyCInt "margin" val - -data WidgetMarginPropertyInfo -instance AttrInfo WidgetMarginPropertyInfo where - type AttrAllowedOps WidgetMarginPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetMarginPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint WidgetMarginPropertyInfo = WidgetK - type AttrGetType WidgetMarginPropertyInfo = Int32 - type AttrLabel WidgetMarginPropertyInfo = "margin" - attrGet _ = getWidgetMargin - attrSet _ = setWidgetMargin - attrConstruct _ = constructWidgetMargin - --- VVV Prop "margin-bottom" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetMarginBottom :: (MonadIO m, WidgetK o) => o -> m Int32 -getWidgetMarginBottom obj = liftIO $ getObjectPropertyCInt obj "margin-bottom" - -setWidgetMarginBottom :: (MonadIO m, WidgetK o) => o -> Int32 -> m () -setWidgetMarginBottom obj val = liftIO $ setObjectPropertyCInt obj "margin-bottom" val - -constructWidgetMarginBottom :: Int32 -> IO ([Char], GValue) -constructWidgetMarginBottom val = constructObjectPropertyCInt "margin-bottom" val - -data WidgetMarginBottomPropertyInfo -instance AttrInfo WidgetMarginBottomPropertyInfo where - type AttrAllowedOps WidgetMarginBottomPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetMarginBottomPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint WidgetMarginBottomPropertyInfo = WidgetK - type AttrGetType WidgetMarginBottomPropertyInfo = Int32 - type AttrLabel WidgetMarginBottomPropertyInfo = "margin-bottom" - attrGet _ = getWidgetMarginBottom - attrSet _ = setWidgetMarginBottom - attrConstruct _ = constructWidgetMarginBottom - --- VVV Prop "margin-end" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetMarginEnd :: (MonadIO m, WidgetK o) => o -> m Int32 -getWidgetMarginEnd obj = liftIO $ getObjectPropertyCInt obj "margin-end" - -setWidgetMarginEnd :: (MonadIO m, WidgetK o) => o -> Int32 -> m () -setWidgetMarginEnd obj val = liftIO $ setObjectPropertyCInt obj "margin-end" val - -constructWidgetMarginEnd :: Int32 -> IO ([Char], GValue) -constructWidgetMarginEnd val = constructObjectPropertyCInt "margin-end" val - -data WidgetMarginEndPropertyInfo -instance AttrInfo WidgetMarginEndPropertyInfo where - type AttrAllowedOps WidgetMarginEndPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetMarginEndPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint WidgetMarginEndPropertyInfo = WidgetK - type AttrGetType WidgetMarginEndPropertyInfo = Int32 - type AttrLabel WidgetMarginEndPropertyInfo = "margin-end" - attrGet _ = getWidgetMarginEnd - attrSet _ = setWidgetMarginEnd - attrConstruct _ = constructWidgetMarginEnd - --- VVV Prop "margin-left" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetMarginLeft :: (MonadIO m, WidgetK o) => o -> m Int32 -getWidgetMarginLeft obj = liftIO $ getObjectPropertyCInt obj "margin-left" - -setWidgetMarginLeft :: (MonadIO m, WidgetK o) => o -> Int32 -> m () -setWidgetMarginLeft obj val = liftIO $ setObjectPropertyCInt obj "margin-left" val - -constructWidgetMarginLeft :: Int32 -> IO ([Char], GValue) -constructWidgetMarginLeft val = constructObjectPropertyCInt "margin-left" val - -data WidgetMarginLeftPropertyInfo -instance AttrInfo WidgetMarginLeftPropertyInfo where - type AttrAllowedOps WidgetMarginLeftPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetMarginLeftPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint WidgetMarginLeftPropertyInfo = WidgetK - type AttrGetType WidgetMarginLeftPropertyInfo = Int32 - type AttrLabel WidgetMarginLeftPropertyInfo = "margin-left" - attrGet _ = getWidgetMarginLeft - attrSet _ = setWidgetMarginLeft - attrConstruct _ = constructWidgetMarginLeft - --- VVV Prop "margin-right" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetMarginRight :: (MonadIO m, WidgetK o) => o -> m Int32 -getWidgetMarginRight obj = liftIO $ getObjectPropertyCInt obj "margin-right" - -setWidgetMarginRight :: (MonadIO m, WidgetK o) => o -> Int32 -> m () -setWidgetMarginRight obj val = liftIO $ setObjectPropertyCInt obj "margin-right" val - -constructWidgetMarginRight :: Int32 -> IO ([Char], GValue) -constructWidgetMarginRight val = constructObjectPropertyCInt "margin-right" val - -data WidgetMarginRightPropertyInfo -instance AttrInfo WidgetMarginRightPropertyInfo where - type AttrAllowedOps WidgetMarginRightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetMarginRightPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint WidgetMarginRightPropertyInfo = WidgetK - type AttrGetType WidgetMarginRightPropertyInfo = Int32 - type AttrLabel WidgetMarginRightPropertyInfo = "margin-right" - attrGet _ = getWidgetMarginRight - attrSet _ = setWidgetMarginRight - attrConstruct _ = constructWidgetMarginRight - --- VVV Prop "margin-start" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetMarginStart :: (MonadIO m, WidgetK o) => o -> m Int32 -getWidgetMarginStart obj = liftIO $ getObjectPropertyCInt obj "margin-start" - -setWidgetMarginStart :: (MonadIO m, WidgetK o) => o -> Int32 -> m () -setWidgetMarginStart obj val = liftIO $ setObjectPropertyCInt obj "margin-start" val - -constructWidgetMarginStart :: Int32 -> IO ([Char], GValue) -constructWidgetMarginStart val = constructObjectPropertyCInt "margin-start" val - -data WidgetMarginStartPropertyInfo -instance AttrInfo WidgetMarginStartPropertyInfo where - type AttrAllowedOps WidgetMarginStartPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetMarginStartPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint WidgetMarginStartPropertyInfo = WidgetK - type AttrGetType WidgetMarginStartPropertyInfo = Int32 - type AttrLabel WidgetMarginStartPropertyInfo = "margin-start" - attrGet _ = getWidgetMarginStart - attrSet _ = setWidgetMarginStart - attrConstruct _ = constructWidgetMarginStart - --- VVV Prop "margin-top" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetMarginTop :: (MonadIO m, WidgetK o) => o -> m Int32 -getWidgetMarginTop obj = liftIO $ getObjectPropertyCInt obj "margin-top" - -setWidgetMarginTop :: (MonadIO m, WidgetK o) => o -> Int32 -> m () -setWidgetMarginTop obj val = liftIO $ setObjectPropertyCInt obj "margin-top" val - -constructWidgetMarginTop :: Int32 -> IO ([Char], GValue) -constructWidgetMarginTop val = constructObjectPropertyCInt "margin-top" val - -data WidgetMarginTopPropertyInfo -instance AttrInfo WidgetMarginTopPropertyInfo where - type AttrAllowedOps WidgetMarginTopPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetMarginTopPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint WidgetMarginTopPropertyInfo = WidgetK - type AttrGetType WidgetMarginTopPropertyInfo = Int32 - type AttrLabel WidgetMarginTopPropertyInfo = "margin-top" - attrGet _ = getWidgetMarginTop - attrSet _ = setWidgetMarginTop - attrConstruct _ = constructWidgetMarginTop - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetName :: (MonadIO m, WidgetK o) => o -> m T.Text -getWidgetName obj = liftIO $ getObjectPropertyString obj "name" - -setWidgetName :: (MonadIO m, WidgetK o) => o -> T.Text -> m () -setWidgetName obj val = liftIO $ setObjectPropertyString obj "name" val - -constructWidgetName :: T.Text -> IO ([Char], GValue) -constructWidgetName val = constructObjectPropertyString "name" val - -data WidgetNamePropertyInfo -instance AttrInfo WidgetNamePropertyInfo where - type AttrAllowedOps WidgetNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint WidgetNamePropertyInfo = WidgetK - type AttrGetType WidgetNamePropertyInfo = T.Text - type AttrLabel WidgetNamePropertyInfo = "name" - attrGet _ = getWidgetName - attrSet _ = setWidgetName - attrConstruct _ = constructWidgetName - --- VVV Prop "no-show-all" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetNoShowAll :: (MonadIO m, WidgetK o) => o -> m Bool -getWidgetNoShowAll obj = liftIO $ getObjectPropertyBool obj "no-show-all" - -setWidgetNoShowAll :: (MonadIO m, WidgetK o) => o -> Bool -> m () -setWidgetNoShowAll obj val = liftIO $ setObjectPropertyBool obj "no-show-all" val - -constructWidgetNoShowAll :: Bool -> IO ([Char], GValue) -constructWidgetNoShowAll val = constructObjectPropertyBool "no-show-all" val - -data WidgetNoShowAllPropertyInfo -instance AttrInfo WidgetNoShowAllPropertyInfo where - type AttrAllowedOps WidgetNoShowAllPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetNoShowAllPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WidgetNoShowAllPropertyInfo = WidgetK - type AttrGetType WidgetNoShowAllPropertyInfo = Bool - type AttrLabel WidgetNoShowAllPropertyInfo = "no-show-all" - attrGet _ = getWidgetNoShowAll - attrSet _ = setWidgetNoShowAll - attrConstruct _ = constructWidgetNoShowAll - --- VVV Prop "opacity" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetOpacity :: (MonadIO m, WidgetK o) => o -> m Double -getWidgetOpacity obj = liftIO $ getObjectPropertyDouble obj "opacity" - -setWidgetOpacity :: (MonadIO m, WidgetK o) => o -> Double -> m () -setWidgetOpacity obj val = liftIO $ setObjectPropertyDouble obj "opacity" val - -constructWidgetOpacity :: Double -> IO ([Char], GValue) -constructWidgetOpacity val = constructObjectPropertyDouble "opacity" val - -data WidgetOpacityPropertyInfo -instance AttrInfo WidgetOpacityPropertyInfo where - type AttrAllowedOps WidgetOpacityPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetOpacityPropertyInfo = (~) Double - type AttrBaseTypeConstraint WidgetOpacityPropertyInfo = WidgetK - type AttrGetType WidgetOpacityPropertyInfo = Double - type AttrLabel WidgetOpacityPropertyInfo = "opacity" - attrGet _ = getWidgetOpacity - attrSet _ = setWidgetOpacity - attrConstruct _ = constructWidgetOpacity - --- VVV Prop "parent" - -- Type: TInterface "Gtk" "Container" - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetParent :: (MonadIO m, WidgetK o) => o -> m Container -getWidgetParent obj = liftIO $ getObjectPropertyObject obj "parent" Container - -setWidgetParent :: (MonadIO m, WidgetK o, ContainerK a) => o -> a -> m () -setWidgetParent obj val = liftIO $ setObjectPropertyObject obj "parent" val - -constructWidgetParent :: (ContainerK a) => a -> IO ([Char], GValue) -constructWidgetParent val = constructObjectPropertyObject "parent" val - -data WidgetParentPropertyInfo -instance AttrInfo WidgetParentPropertyInfo where - type AttrAllowedOps WidgetParentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetParentPropertyInfo = ContainerK - type AttrBaseTypeConstraint WidgetParentPropertyInfo = WidgetK - type AttrGetType WidgetParentPropertyInfo = Container - type AttrLabel WidgetParentPropertyInfo = "parent" - attrGet _ = getWidgetParent - attrSet _ = setWidgetParent - attrConstruct _ = constructWidgetParent - --- VVV Prop "receives-default" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetReceivesDefault :: (MonadIO m, WidgetK o) => o -> m Bool -getWidgetReceivesDefault obj = liftIO $ getObjectPropertyBool obj "receives-default" - -setWidgetReceivesDefault :: (MonadIO m, WidgetK o) => o -> Bool -> m () -setWidgetReceivesDefault obj val = liftIO $ setObjectPropertyBool obj "receives-default" val - -constructWidgetReceivesDefault :: Bool -> IO ([Char], GValue) -constructWidgetReceivesDefault val = constructObjectPropertyBool "receives-default" val - -data WidgetReceivesDefaultPropertyInfo -instance AttrInfo WidgetReceivesDefaultPropertyInfo where - type AttrAllowedOps WidgetReceivesDefaultPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetReceivesDefaultPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WidgetReceivesDefaultPropertyInfo = WidgetK - type AttrGetType WidgetReceivesDefaultPropertyInfo = Bool - type AttrLabel WidgetReceivesDefaultPropertyInfo = "receives-default" - attrGet _ = getWidgetReceivesDefault - attrSet _ = setWidgetReceivesDefault - attrConstruct _ = constructWidgetReceivesDefault - --- VVV Prop "scale-factor" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable] - -getWidgetScaleFactor :: (MonadIO m, WidgetK o) => o -> m Int32 -getWidgetScaleFactor obj = liftIO $ getObjectPropertyCInt obj "scale-factor" - -data WidgetScaleFactorPropertyInfo -instance AttrInfo WidgetScaleFactorPropertyInfo where - type AttrAllowedOps WidgetScaleFactorPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint WidgetScaleFactorPropertyInfo = (~) () - type AttrBaseTypeConstraint WidgetScaleFactorPropertyInfo = WidgetK - type AttrGetType WidgetScaleFactorPropertyInfo = Int32 - type AttrLabel WidgetScaleFactorPropertyInfo = "scale-factor" - attrGet _ = getWidgetScaleFactor - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "sensitive" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetSensitive :: (MonadIO m, WidgetK o) => o -> m Bool -getWidgetSensitive obj = liftIO $ getObjectPropertyBool obj "sensitive" - -setWidgetSensitive :: (MonadIO m, WidgetK o) => o -> Bool -> m () -setWidgetSensitive obj val = liftIO $ setObjectPropertyBool obj "sensitive" val - -constructWidgetSensitive :: Bool -> IO ([Char], GValue) -constructWidgetSensitive val = constructObjectPropertyBool "sensitive" val - -data WidgetSensitivePropertyInfo -instance AttrInfo WidgetSensitivePropertyInfo where - type AttrAllowedOps WidgetSensitivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetSensitivePropertyInfo = (~) Bool - type AttrBaseTypeConstraint WidgetSensitivePropertyInfo = WidgetK - type AttrGetType WidgetSensitivePropertyInfo = Bool - type AttrLabel WidgetSensitivePropertyInfo = "sensitive" - attrGet _ = getWidgetSensitive - attrSet _ = setWidgetSensitive - attrConstruct _ = constructWidgetSensitive - --- VVV Prop "style" - -- Type: TInterface "Gtk" "Style" - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetStyle :: (MonadIO m, WidgetK o) => o -> m Style -getWidgetStyle obj = liftIO $ getObjectPropertyObject obj "style" Style - -setWidgetStyle :: (MonadIO m, WidgetK o, StyleK a) => o -> a -> m () -setWidgetStyle obj val = liftIO $ setObjectPropertyObject obj "style" val - -constructWidgetStyle :: (StyleK a) => a -> IO ([Char], GValue) -constructWidgetStyle val = constructObjectPropertyObject "style" val - -data WidgetStylePropertyInfo -instance AttrInfo WidgetStylePropertyInfo where - type AttrAllowedOps WidgetStylePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetStylePropertyInfo = StyleK - type AttrBaseTypeConstraint WidgetStylePropertyInfo = WidgetK - type AttrGetType WidgetStylePropertyInfo = Style - type AttrLabel WidgetStylePropertyInfo = "style" - attrGet _ = getWidgetStyle - attrSet _ = setWidgetStyle - attrConstruct _ = constructWidgetStyle - --- VVV Prop "tooltip-markup" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetTooltipMarkup :: (MonadIO m, WidgetK o) => o -> m T.Text -getWidgetTooltipMarkup obj = liftIO $ getObjectPropertyString obj "tooltip-markup" - -setWidgetTooltipMarkup :: (MonadIO m, WidgetK o) => o -> T.Text -> m () -setWidgetTooltipMarkup obj val = liftIO $ setObjectPropertyString obj "tooltip-markup" val - -constructWidgetTooltipMarkup :: T.Text -> IO ([Char], GValue) -constructWidgetTooltipMarkup val = constructObjectPropertyString "tooltip-markup" val - -data WidgetTooltipMarkupPropertyInfo -instance AttrInfo WidgetTooltipMarkupPropertyInfo where - type AttrAllowedOps WidgetTooltipMarkupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetTooltipMarkupPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint WidgetTooltipMarkupPropertyInfo = WidgetK - type AttrGetType WidgetTooltipMarkupPropertyInfo = T.Text - type AttrLabel WidgetTooltipMarkupPropertyInfo = "tooltip-markup" - attrGet _ = getWidgetTooltipMarkup - attrSet _ = setWidgetTooltipMarkup - attrConstruct _ = constructWidgetTooltipMarkup - --- VVV Prop "tooltip-text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetTooltipText :: (MonadIO m, WidgetK o) => o -> m T.Text -getWidgetTooltipText obj = liftIO $ getObjectPropertyString obj "tooltip-text" - -setWidgetTooltipText :: (MonadIO m, WidgetK o) => o -> T.Text -> m () -setWidgetTooltipText obj val = liftIO $ setObjectPropertyString obj "tooltip-text" val - -constructWidgetTooltipText :: T.Text -> IO ([Char], GValue) -constructWidgetTooltipText val = constructObjectPropertyString "tooltip-text" val - -data WidgetTooltipTextPropertyInfo -instance AttrInfo WidgetTooltipTextPropertyInfo where - type AttrAllowedOps WidgetTooltipTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetTooltipTextPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint WidgetTooltipTextPropertyInfo = WidgetK - type AttrGetType WidgetTooltipTextPropertyInfo = T.Text - type AttrLabel WidgetTooltipTextPropertyInfo = "tooltip-text" - attrGet _ = getWidgetTooltipText - attrSet _ = setWidgetTooltipText - attrConstruct _ = constructWidgetTooltipText - --- VVV Prop "valign" - -- Type: TInterface "Gtk" "Align" - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetValign :: (MonadIO m, WidgetK o) => o -> m Align -getWidgetValign obj = liftIO $ getObjectPropertyEnum obj "valign" - -setWidgetValign :: (MonadIO m, WidgetK o) => o -> Align -> m () -setWidgetValign obj val = liftIO $ setObjectPropertyEnum obj "valign" val - -constructWidgetValign :: Align -> IO ([Char], GValue) -constructWidgetValign val = constructObjectPropertyEnum "valign" val - -data WidgetValignPropertyInfo -instance AttrInfo WidgetValignPropertyInfo where - type AttrAllowedOps WidgetValignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetValignPropertyInfo = (~) Align - type AttrBaseTypeConstraint WidgetValignPropertyInfo = WidgetK - type AttrGetType WidgetValignPropertyInfo = Align - type AttrLabel WidgetValignPropertyInfo = "valign" - attrGet _ = getWidgetValign - attrSet _ = setWidgetValign - attrConstruct _ = constructWidgetValign - --- VVV Prop "vexpand" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetVexpand :: (MonadIO m, WidgetK o) => o -> m Bool -getWidgetVexpand obj = liftIO $ getObjectPropertyBool obj "vexpand" - -setWidgetVexpand :: (MonadIO m, WidgetK o) => o -> Bool -> m () -setWidgetVexpand obj val = liftIO $ setObjectPropertyBool obj "vexpand" val - -constructWidgetVexpand :: Bool -> IO ([Char], GValue) -constructWidgetVexpand val = constructObjectPropertyBool "vexpand" val - -data WidgetVexpandPropertyInfo -instance AttrInfo WidgetVexpandPropertyInfo where - type AttrAllowedOps WidgetVexpandPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetVexpandPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WidgetVexpandPropertyInfo = WidgetK - type AttrGetType WidgetVexpandPropertyInfo = Bool - type AttrLabel WidgetVexpandPropertyInfo = "vexpand" - attrGet _ = getWidgetVexpand - attrSet _ = setWidgetVexpand - attrConstruct _ = constructWidgetVexpand - --- VVV Prop "vexpand-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetVexpandSet :: (MonadIO m, WidgetK o) => o -> m Bool -getWidgetVexpandSet obj = liftIO $ getObjectPropertyBool obj "vexpand-set" - -setWidgetVexpandSet :: (MonadIO m, WidgetK o) => o -> Bool -> m () -setWidgetVexpandSet obj val = liftIO $ setObjectPropertyBool obj "vexpand-set" val - -constructWidgetVexpandSet :: Bool -> IO ([Char], GValue) -constructWidgetVexpandSet val = constructObjectPropertyBool "vexpand-set" val - -data WidgetVexpandSetPropertyInfo -instance AttrInfo WidgetVexpandSetPropertyInfo where - type AttrAllowedOps WidgetVexpandSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetVexpandSetPropertyInfo = (~) Bool - type AttrBaseTypeConstraint WidgetVexpandSetPropertyInfo = WidgetK - type AttrGetType WidgetVexpandSetPropertyInfo = Bool - type AttrLabel WidgetVexpandSetPropertyInfo = "vexpand-set" - attrGet _ = getWidgetVexpandSet - attrSet _ = setWidgetVexpandSet - attrConstruct _ = constructWidgetVexpandSet - --- VVV Prop "visible" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetVisible :: (MonadIO m, WidgetK o) => o -> m Bool -getWidgetVisible obj = liftIO $ getObjectPropertyBool obj "visible" - -setWidgetVisible :: (MonadIO m, WidgetK o) => o -> Bool -> m () -setWidgetVisible obj val = liftIO $ setObjectPropertyBool obj "visible" val - -constructWidgetVisible :: Bool -> IO ([Char], GValue) -constructWidgetVisible val = constructObjectPropertyBool "visible" val - -data WidgetVisiblePropertyInfo -instance AttrInfo WidgetVisiblePropertyInfo where - type AttrAllowedOps WidgetVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetVisiblePropertyInfo = (~) Bool - type AttrBaseTypeConstraint WidgetVisiblePropertyInfo = WidgetK - type AttrGetType WidgetVisiblePropertyInfo = Bool - type AttrLabel WidgetVisiblePropertyInfo = "visible" - attrGet _ = getWidgetVisible - attrSet _ = setWidgetVisible - attrConstruct _ = constructWidgetVisible - --- VVV Prop "width-request" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetWidthRequest :: (MonadIO m, WidgetK o) => o -> m Int32 -getWidgetWidthRequest obj = liftIO $ getObjectPropertyCInt obj "width-request" - -setWidgetWidthRequest :: (MonadIO m, WidgetK o) => o -> Int32 -> m () -setWidgetWidthRequest obj val = liftIO $ setObjectPropertyCInt obj "width-request" val - -constructWidgetWidthRequest :: Int32 -> IO ([Char], GValue) -constructWidgetWidthRequest val = constructObjectPropertyCInt "width-request" val - -data WidgetWidthRequestPropertyInfo -instance AttrInfo WidgetWidthRequestPropertyInfo where - type AttrAllowedOps WidgetWidthRequestPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetWidthRequestPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint WidgetWidthRequestPropertyInfo = WidgetK - type AttrGetType WidgetWidthRequestPropertyInfo = Int32 - type AttrLabel WidgetWidthRequestPropertyInfo = "width-request" - attrGet _ = getWidgetWidthRequest - attrSet _ = setWidgetWidthRequest - attrConstruct _ = constructWidgetWidthRequest - --- VVV Prop "window" - -- Type: TInterface "Gdk" "Window" - -- Flags: [PropertyReadable] - -getWidgetWindow :: (MonadIO m, WidgetK o) => o -> m Gdk.Window -getWidgetWindow obj = liftIO $ getObjectPropertyObject obj "window" Gdk.Window - -data WidgetWindowPropertyInfo -instance AttrInfo WidgetWindowPropertyInfo where - type AttrAllowedOps WidgetWindowPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint WidgetWindowPropertyInfo = (~) () - type AttrBaseTypeConstraint WidgetWindowPropertyInfo = WidgetK - type AttrGetType WidgetWindowPropertyInfo = Gdk.Window - type AttrLabel WidgetWindowPropertyInfo = "window" - attrGet _ = getWidgetWindow - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList Widget = WidgetAttributeList -type WidgetAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -data WidgetAccelClosuresChangedSignalInfo -instance SignalInfo WidgetAccelClosuresChangedSignalInfo where - type HaskellCallbackType WidgetAccelClosuresChangedSignalInfo = WidgetAccelClosuresChangedCallback - connectSignal _ = connectWidgetAccelClosuresChanged - -data WidgetButtonPressEventSignalInfo -instance SignalInfo WidgetButtonPressEventSignalInfo where - type HaskellCallbackType WidgetButtonPressEventSignalInfo = WidgetButtonPressEventCallback - connectSignal _ = connectWidgetButtonPressEvent - -data WidgetButtonReleaseEventSignalInfo -instance SignalInfo WidgetButtonReleaseEventSignalInfo where - type HaskellCallbackType WidgetButtonReleaseEventSignalInfo = WidgetButtonReleaseEventCallback - connectSignal _ = connectWidgetButtonReleaseEvent - -data WidgetCanActivateAccelSignalInfo -instance SignalInfo WidgetCanActivateAccelSignalInfo where - type HaskellCallbackType WidgetCanActivateAccelSignalInfo = WidgetCanActivateAccelCallback - connectSignal _ = connectWidgetCanActivateAccel - -data WidgetChildNotifySignalInfo -instance SignalInfo WidgetChildNotifySignalInfo where - type HaskellCallbackType WidgetChildNotifySignalInfo = WidgetChildNotifyCallback - connectSignal _ = connectWidgetChildNotify - -data WidgetCompositedChangedSignalInfo -instance SignalInfo WidgetCompositedChangedSignalInfo where - type HaskellCallbackType WidgetCompositedChangedSignalInfo = WidgetCompositedChangedCallback - connectSignal _ = connectWidgetCompositedChanged - -data WidgetConfigureEventSignalInfo -instance SignalInfo WidgetConfigureEventSignalInfo where - type HaskellCallbackType WidgetConfigureEventSignalInfo = WidgetConfigureEventCallback - connectSignal _ = connectWidgetConfigureEvent - -data WidgetDamageEventSignalInfo -instance SignalInfo WidgetDamageEventSignalInfo where - type HaskellCallbackType WidgetDamageEventSignalInfo = WidgetDamageEventCallback - connectSignal _ = connectWidgetDamageEvent - -data WidgetDeleteEventSignalInfo -instance SignalInfo WidgetDeleteEventSignalInfo where - type HaskellCallbackType WidgetDeleteEventSignalInfo = WidgetDeleteEventCallback - connectSignal _ = connectWidgetDeleteEvent - -data WidgetDestroySignalInfo -instance SignalInfo WidgetDestroySignalInfo where - type HaskellCallbackType WidgetDestroySignalInfo = WidgetDestroyCallback - connectSignal _ = connectWidgetDestroy - -data WidgetDestroyEventSignalInfo -instance SignalInfo WidgetDestroyEventSignalInfo where - type HaskellCallbackType WidgetDestroyEventSignalInfo = WidgetDestroyEventCallback - connectSignal _ = connectWidgetDestroyEvent - -data WidgetDirectionChangedSignalInfo -instance SignalInfo WidgetDirectionChangedSignalInfo where - type HaskellCallbackType WidgetDirectionChangedSignalInfo = WidgetDirectionChangedCallback - connectSignal _ = connectWidgetDirectionChanged - -data WidgetDragBeginSignalInfo -instance SignalInfo WidgetDragBeginSignalInfo where - type HaskellCallbackType WidgetDragBeginSignalInfo = WidgetDragBeginCallback - connectSignal _ = connectWidgetDragBegin - -data WidgetDragDataDeleteSignalInfo -instance SignalInfo WidgetDragDataDeleteSignalInfo where - type HaskellCallbackType WidgetDragDataDeleteSignalInfo = WidgetDragDataDeleteCallback - connectSignal _ = connectWidgetDragDataDelete - -data WidgetDragDataGetSignalInfo -instance SignalInfo WidgetDragDataGetSignalInfo where - type HaskellCallbackType WidgetDragDataGetSignalInfo = WidgetDragDataGetCallback - connectSignal _ = connectWidgetDragDataGet - -data WidgetDragDataReceivedSignalInfo -instance SignalInfo WidgetDragDataReceivedSignalInfo where - type HaskellCallbackType WidgetDragDataReceivedSignalInfo = WidgetDragDataReceivedCallback - connectSignal _ = connectWidgetDragDataReceived - -data WidgetDragDropSignalInfo -instance SignalInfo WidgetDragDropSignalInfo where - type HaskellCallbackType WidgetDragDropSignalInfo = WidgetDragDropCallback - connectSignal _ = connectWidgetDragDrop - -data WidgetDragEndSignalInfo -instance SignalInfo WidgetDragEndSignalInfo where - type HaskellCallbackType WidgetDragEndSignalInfo = WidgetDragEndCallback - connectSignal _ = connectWidgetDragEnd - -data WidgetDragFailedSignalInfo -instance SignalInfo WidgetDragFailedSignalInfo where - type HaskellCallbackType WidgetDragFailedSignalInfo = WidgetDragFailedCallback - connectSignal _ = connectWidgetDragFailed - -data WidgetDragLeaveSignalInfo -instance SignalInfo WidgetDragLeaveSignalInfo where - type HaskellCallbackType WidgetDragLeaveSignalInfo = WidgetDragLeaveCallback - connectSignal _ = connectWidgetDragLeave - -data WidgetDragMotionSignalInfo -instance SignalInfo WidgetDragMotionSignalInfo where - type HaskellCallbackType WidgetDragMotionSignalInfo = WidgetDragMotionCallback - connectSignal _ = connectWidgetDragMotion - -data WidgetDrawSignalInfo -instance SignalInfo WidgetDrawSignalInfo where - type HaskellCallbackType WidgetDrawSignalInfo = WidgetDrawCallback - connectSignal _ = connectWidgetDraw - -data WidgetEnterNotifyEventSignalInfo -instance SignalInfo WidgetEnterNotifyEventSignalInfo where - type HaskellCallbackType WidgetEnterNotifyEventSignalInfo = WidgetEnterNotifyEventCallback - connectSignal _ = connectWidgetEnterNotifyEvent - -data WidgetEventSignalInfo -instance SignalInfo WidgetEventSignalInfo where - type HaskellCallbackType WidgetEventSignalInfo = WidgetEventCallback - connectSignal _ = connectWidgetEvent - -data WidgetEventAfterSignalInfo -instance SignalInfo WidgetEventAfterSignalInfo where - type HaskellCallbackType WidgetEventAfterSignalInfo = WidgetEventAfterCallback - connectSignal _ = connectWidgetEventAfter - -data WidgetFocusSignalInfo -instance SignalInfo WidgetFocusSignalInfo where - type HaskellCallbackType WidgetFocusSignalInfo = WidgetFocusCallback - connectSignal _ = connectWidgetFocus - -data WidgetFocusInEventSignalInfo -instance SignalInfo WidgetFocusInEventSignalInfo where - type HaskellCallbackType WidgetFocusInEventSignalInfo = WidgetFocusInEventCallback - connectSignal _ = connectWidgetFocusInEvent - -data WidgetFocusOutEventSignalInfo -instance SignalInfo WidgetFocusOutEventSignalInfo where - type HaskellCallbackType WidgetFocusOutEventSignalInfo = WidgetFocusOutEventCallback - connectSignal _ = connectWidgetFocusOutEvent - -data WidgetGrabBrokenEventSignalInfo -instance SignalInfo WidgetGrabBrokenEventSignalInfo where - type HaskellCallbackType WidgetGrabBrokenEventSignalInfo = WidgetGrabBrokenEventCallback - connectSignal _ = connectWidgetGrabBrokenEvent - -data WidgetGrabFocusSignalInfo -instance SignalInfo WidgetGrabFocusSignalInfo where - type HaskellCallbackType WidgetGrabFocusSignalInfo = WidgetGrabFocusCallback - connectSignal _ = connectWidgetGrabFocus - -data WidgetGrabNotifySignalInfo -instance SignalInfo WidgetGrabNotifySignalInfo where - type HaskellCallbackType WidgetGrabNotifySignalInfo = WidgetGrabNotifyCallback - connectSignal _ = connectWidgetGrabNotify - -data WidgetHideSignalInfo -instance SignalInfo WidgetHideSignalInfo where - type HaskellCallbackType WidgetHideSignalInfo = WidgetHideCallback - connectSignal _ = connectWidgetHide - -data WidgetHierarchyChangedSignalInfo -instance SignalInfo WidgetHierarchyChangedSignalInfo where - type HaskellCallbackType WidgetHierarchyChangedSignalInfo = WidgetHierarchyChangedCallback - connectSignal _ = connectWidgetHierarchyChanged - -data WidgetKeyPressEventSignalInfo -instance SignalInfo WidgetKeyPressEventSignalInfo where - type HaskellCallbackType WidgetKeyPressEventSignalInfo = WidgetKeyPressEventCallback - connectSignal _ = connectWidgetKeyPressEvent - -data WidgetKeyReleaseEventSignalInfo -instance SignalInfo WidgetKeyReleaseEventSignalInfo where - type HaskellCallbackType WidgetKeyReleaseEventSignalInfo = WidgetKeyReleaseEventCallback - connectSignal _ = connectWidgetKeyReleaseEvent - -data WidgetKeynavFailedSignalInfo -instance SignalInfo WidgetKeynavFailedSignalInfo where - type HaskellCallbackType WidgetKeynavFailedSignalInfo = WidgetKeynavFailedCallback - connectSignal _ = connectWidgetKeynavFailed - -data WidgetLeaveNotifyEventSignalInfo -instance SignalInfo WidgetLeaveNotifyEventSignalInfo where - type HaskellCallbackType WidgetLeaveNotifyEventSignalInfo = WidgetLeaveNotifyEventCallback - connectSignal _ = connectWidgetLeaveNotifyEvent - -data WidgetMapSignalInfo -instance SignalInfo WidgetMapSignalInfo where - type HaskellCallbackType WidgetMapSignalInfo = WidgetMapCallback - connectSignal _ = connectWidgetMap - -data WidgetMapEventSignalInfo -instance SignalInfo WidgetMapEventSignalInfo where - type HaskellCallbackType WidgetMapEventSignalInfo = WidgetMapEventCallback - connectSignal _ = connectWidgetMapEvent - -data WidgetMnemonicActivateSignalInfo -instance SignalInfo WidgetMnemonicActivateSignalInfo where - type HaskellCallbackType WidgetMnemonicActivateSignalInfo = WidgetMnemonicActivateCallback - connectSignal _ = connectWidgetMnemonicActivate - -data WidgetMotionNotifyEventSignalInfo -instance SignalInfo WidgetMotionNotifyEventSignalInfo where - type HaskellCallbackType WidgetMotionNotifyEventSignalInfo = WidgetMotionNotifyEventCallback - connectSignal _ = connectWidgetMotionNotifyEvent - -data WidgetMoveFocusSignalInfo -instance SignalInfo WidgetMoveFocusSignalInfo where - type HaskellCallbackType WidgetMoveFocusSignalInfo = WidgetMoveFocusCallback - connectSignal _ = connectWidgetMoveFocus - -data WidgetParentSetSignalInfo -instance SignalInfo WidgetParentSetSignalInfo where - type HaskellCallbackType WidgetParentSetSignalInfo = WidgetParentSetCallback - connectSignal _ = connectWidgetParentSet - -data WidgetPopupMenuSignalInfo -instance SignalInfo WidgetPopupMenuSignalInfo where - type HaskellCallbackType WidgetPopupMenuSignalInfo = WidgetPopupMenuCallback - connectSignal _ = connectWidgetPopupMenu - -data WidgetPropertyNotifyEventSignalInfo -instance SignalInfo WidgetPropertyNotifyEventSignalInfo where - type HaskellCallbackType WidgetPropertyNotifyEventSignalInfo = WidgetPropertyNotifyEventCallback - connectSignal _ = connectWidgetPropertyNotifyEvent - -data WidgetProximityInEventSignalInfo -instance SignalInfo WidgetProximityInEventSignalInfo where - type HaskellCallbackType WidgetProximityInEventSignalInfo = WidgetProximityInEventCallback - connectSignal _ = connectWidgetProximityInEvent - -data WidgetProximityOutEventSignalInfo -instance SignalInfo WidgetProximityOutEventSignalInfo where - type HaskellCallbackType WidgetProximityOutEventSignalInfo = WidgetProximityOutEventCallback - connectSignal _ = connectWidgetProximityOutEvent - -data WidgetQueryTooltipSignalInfo -instance SignalInfo WidgetQueryTooltipSignalInfo where - type HaskellCallbackType WidgetQueryTooltipSignalInfo = WidgetQueryTooltipCallback - connectSignal _ = connectWidgetQueryTooltip - -data WidgetRealizeSignalInfo -instance SignalInfo WidgetRealizeSignalInfo where - type HaskellCallbackType WidgetRealizeSignalInfo = WidgetRealizeCallback - connectSignal _ = connectWidgetRealize - -data WidgetScreenChangedSignalInfo -instance SignalInfo WidgetScreenChangedSignalInfo where - type HaskellCallbackType WidgetScreenChangedSignalInfo = WidgetScreenChangedCallback - connectSignal _ = connectWidgetScreenChanged - -data WidgetScrollEventSignalInfo -instance SignalInfo WidgetScrollEventSignalInfo where - type HaskellCallbackType WidgetScrollEventSignalInfo = WidgetScrollEventCallback - connectSignal _ = connectWidgetScrollEvent - -data WidgetSelectionClearEventSignalInfo -instance SignalInfo WidgetSelectionClearEventSignalInfo where - type HaskellCallbackType WidgetSelectionClearEventSignalInfo = WidgetSelectionClearEventCallback - connectSignal _ = connectWidgetSelectionClearEvent - -data WidgetSelectionGetSignalInfo -instance SignalInfo WidgetSelectionGetSignalInfo where - type HaskellCallbackType WidgetSelectionGetSignalInfo = WidgetSelectionGetCallback - connectSignal _ = connectWidgetSelectionGet - -data WidgetSelectionNotifyEventSignalInfo -instance SignalInfo WidgetSelectionNotifyEventSignalInfo where - type HaskellCallbackType WidgetSelectionNotifyEventSignalInfo = WidgetSelectionNotifyEventCallback - connectSignal _ = connectWidgetSelectionNotifyEvent - -data WidgetSelectionReceivedSignalInfo -instance SignalInfo WidgetSelectionReceivedSignalInfo where - type HaskellCallbackType WidgetSelectionReceivedSignalInfo = WidgetSelectionReceivedCallback - connectSignal _ = connectWidgetSelectionReceived - -data WidgetSelectionRequestEventSignalInfo -instance SignalInfo WidgetSelectionRequestEventSignalInfo where - type HaskellCallbackType WidgetSelectionRequestEventSignalInfo = WidgetSelectionRequestEventCallback - connectSignal _ = connectWidgetSelectionRequestEvent - -data WidgetShowSignalInfo -instance SignalInfo WidgetShowSignalInfo where - type HaskellCallbackType WidgetShowSignalInfo = WidgetShowCallback - connectSignal _ = connectWidgetShow - -data WidgetShowHelpSignalInfo -instance SignalInfo WidgetShowHelpSignalInfo where - type HaskellCallbackType WidgetShowHelpSignalInfo = WidgetShowHelpCallback - connectSignal _ = connectWidgetShowHelp - -data WidgetSizeAllocateSignalInfo -instance SignalInfo WidgetSizeAllocateSignalInfo where - type HaskellCallbackType WidgetSizeAllocateSignalInfo = WidgetSizeAllocateCallback - connectSignal _ = connectWidgetSizeAllocate - -data WidgetStateChangedSignalInfo -instance SignalInfo WidgetStateChangedSignalInfo where - type HaskellCallbackType WidgetStateChangedSignalInfo = WidgetStateChangedCallback - connectSignal _ = connectWidgetStateChanged - -data WidgetStateFlagsChangedSignalInfo -instance SignalInfo WidgetStateFlagsChangedSignalInfo where - type HaskellCallbackType WidgetStateFlagsChangedSignalInfo = WidgetStateFlagsChangedCallback - connectSignal _ = connectWidgetStateFlagsChanged - -data WidgetStyleSetSignalInfo -instance SignalInfo WidgetStyleSetSignalInfo where - type HaskellCallbackType WidgetStyleSetSignalInfo = WidgetStyleSetCallback - connectSignal _ = connectWidgetStyleSet - -data WidgetStyleUpdatedSignalInfo -instance SignalInfo WidgetStyleUpdatedSignalInfo where - type HaskellCallbackType WidgetStyleUpdatedSignalInfo = WidgetStyleUpdatedCallback - connectSignal _ = connectWidgetStyleUpdated - -data WidgetTouchEventSignalInfo -instance SignalInfo WidgetTouchEventSignalInfo where - type HaskellCallbackType WidgetTouchEventSignalInfo = WidgetTouchEventCallback - connectSignal _ = connectWidgetTouchEvent - -data WidgetUnmapSignalInfo -instance SignalInfo WidgetUnmapSignalInfo where - type HaskellCallbackType WidgetUnmapSignalInfo = WidgetUnmapCallback - connectSignal _ = connectWidgetUnmap - -data WidgetUnmapEventSignalInfo -instance SignalInfo WidgetUnmapEventSignalInfo where - type HaskellCallbackType WidgetUnmapEventSignalInfo = WidgetUnmapEventCallback - connectSignal _ = connectWidgetUnmapEvent - -data WidgetUnrealizeSignalInfo -instance SignalInfo WidgetUnrealizeSignalInfo where - type HaskellCallbackType WidgetUnrealizeSignalInfo = WidgetUnrealizeCallback - connectSignal _ = connectWidgetUnrealize - -data WidgetVisibilityNotifyEventSignalInfo -instance SignalInfo WidgetVisibilityNotifyEventSignalInfo where - type HaskellCallbackType WidgetVisibilityNotifyEventSignalInfo = WidgetVisibilityNotifyEventCallback - connectSignal _ = connectWidgetVisibilityNotifyEvent - -data WidgetWindowStateEventSignalInfo -instance SignalInfo WidgetWindowStateEventSignalInfo where - type HaskellCallbackType WidgetWindowStateEventSignalInfo = WidgetWindowStateEventCallback - connectSignal _ = connectWidgetWindowStateEvent - -type instance SignalList Widget = WidgetSignalList -type WidgetSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) - --- method Widget::activate --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_activate" gtk_widget_activate :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetActivate :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetActivate _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_activate _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetActivateMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetActivateMethodInfo a signature where - overloadedMethod _ = widgetActivate - --- method Widget::add_accelerator --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_signal", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_flags", argType = TInterface "Gtk" "AccelFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_add_accelerator" gtk_widget_add_accelerator :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CString -> -- accel_signal : TBasicType TUTF8 - Ptr AccelGroup -> -- accel_group : TInterface "Gtk" "AccelGroup" - Word32 -> -- accel_key : TBasicType TUInt32 - CUInt -> -- accel_mods : TInterface "Gdk" "ModifierType" - CUInt -> -- accel_flags : TInterface "Gtk" "AccelFlags" - IO () - - -widgetAddAccelerator :: - (MonadIO m, WidgetK a, AccelGroupK b) => - a -- _obj - -> T.Text -- accelSignal - -> b -- accelGroup - -> Word32 -- accelKey - -> [Gdk.ModifierType] -- accelMods - -> [AccelFlags] -- accelFlags - -> m () -- result -widgetAddAccelerator _obj accelSignal accelGroup accelKey accelMods accelFlags = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - accelSignal' <- textToCString accelSignal - let accelGroup' = unsafeManagedPtrCastPtr accelGroup - let accelMods' = gflagsToWord accelMods - let accelFlags' = gflagsToWord accelFlags - gtk_widget_add_accelerator _obj' accelSignal' accelGroup' accelKey accelMods' accelFlags' - touchManagedPtr _obj - touchManagedPtr accelGroup - freeMem accelSignal' - return () - -data WidgetAddAcceleratorMethodInfo -instance (signature ~ (T.Text -> b -> Word32 -> [Gdk.ModifierType] -> [AccelFlags] -> m ()), MonadIO m, WidgetK a, AccelGroupK b) => MethodInfo WidgetAddAcceleratorMethodInfo a signature where - overloadedMethod _ = widgetAddAccelerator - --- method Widget::add_device_events --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 = "events", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_add_device_events" gtk_widget_add_device_events :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Device -> -- device : TInterface "Gdk" "Device" - CUInt -> -- events : TInterface "Gdk" "EventMask" - IO () - - -widgetAddDeviceEvents :: - (MonadIO m, WidgetK a, Gdk.DeviceK b) => - a -- _obj - -> b -- device - -> [Gdk.EventMask] -- events - -> m () -- result -widgetAddDeviceEvents _obj device events = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let device' = unsafeManagedPtrCastPtr device - let events' = gflagsToWord events - gtk_widget_add_device_events _obj' device' events' - touchManagedPtr _obj - touchManagedPtr device - return () - -data WidgetAddDeviceEventsMethodInfo -instance (signature ~ (b -> [Gdk.EventMask] -> m ()), MonadIO m, WidgetK a, Gdk.DeviceK b) => MethodInfo WidgetAddDeviceEventsMethodInfo a signature where - overloadedMethod _ = widgetAddDeviceEvents - --- method Widget::add_events --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "events", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_add_events" gtk_widget_add_events :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Int32 -> -- events : TBasicType TInt32 - IO () - - -widgetAddEvents :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Int32 -- events - -> m () -- result -widgetAddEvents _obj events = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_add_events _obj' events - touchManagedPtr _obj - return () - -data WidgetAddEventsMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetAddEventsMethodInfo a signature where - overloadedMethod _ = widgetAddEvents - --- method Widget::add_mnemonic_label --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_add_mnemonic_label" gtk_widget_add_mnemonic_label :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Widget -> -- label : TInterface "Gtk" "Widget" - IO () - - -widgetAddMnemonicLabel :: - (MonadIO m, WidgetK a, WidgetK b) => - a -- _obj - -> b -- label - -> m () -- result -widgetAddMnemonicLabel _obj label = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let label' = unsafeManagedPtrCastPtr label - gtk_widget_add_mnemonic_label _obj' label' - touchManagedPtr _obj - touchManagedPtr label - return () - -data WidgetAddMnemonicLabelMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, WidgetK a, WidgetK b) => MethodInfo WidgetAddMnemonicLabelMethodInfo a signature where - overloadedMethod _ = widgetAddMnemonicLabel - --- method Widget::add_tick_callback --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gtk" "TickCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, 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 : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_add_tick_callback" gtk_widget_add_tick_callback :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - FunPtr TickCallbackC -> -- callback : TInterface "Gtk" "TickCallback" - Ptr () -> -- user_data : TBasicType TVoid - FunPtr GLib.DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify" - IO Word32 - - -widgetAddTickCallback :: - (MonadIO m, WidgetK a) => - a -- _obj - -> TickCallback -- callback - -> m Word32 -- result -widgetAddTickCallback _obj callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - callback' <- mkTickCallback (tickCallbackWrapper Nothing callback) - let userData = castFunPtrToPtr callback' - let notify = safeFreeFunPtrPtr - result <- gtk_widget_add_tick_callback _obj' callback' userData notify - touchManagedPtr _obj - return result - -data WidgetAddTickCallbackMethodInfo -instance (signature ~ (TickCallback -> m Word32), MonadIO m, WidgetK a) => MethodInfo WidgetAddTickCallbackMethodInfo a signature where - overloadedMethod _ = widgetAddTickCallback - --- method Widget::can_activate_accel --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "signal_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_can_activate_accel" gtk_widget_can_activate_accel :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Word32 -> -- signal_id : TBasicType TUInt32 - IO CInt - - -widgetCanActivateAccel :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Word32 -- signalId - -> m Bool -- result -widgetCanActivateAccel _obj signalId = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_can_activate_accel _obj' signalId - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetCanActivateAccelMethodInfo -instance (signature ~ (Word32 -> m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetCanActivateAccelMethodInfo a signature where - overloadedMethod _ = widgetCanActivateAccel - --- method Widget::child_focus --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "direction", argType = TInterface "Gtk" "DirectionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_child_focus" gtk_widget_child_focus :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CUInt -> -- direction : TInterface "Gtk" "DirectionType" - IO CInt - - -widgetChildFocus :: - (MonadIO m, WidgetK a) => - a -- _obj - -> DirectionType -- direction - -> m Bool -- result -widgetChildFocus _obj direction = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let direction' = (fromIntegral . fromEnum) direction - result <- gtk_widget_child_focus _obj' direction' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetChildFocusMethodInfo -instance (signature ~ (DirectionType -> m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetChildFocusMethodInfo a signature where - overloadedMethod _ = widgetChildFocus - --- method Widget::child_notify --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child_property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_child_notify" gtk_widget_child_notify :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CString -> -- child_property : TBasicType TUTF8 - IO () - - -widgetChildNotify :: - (MonadIO m, WidgetK a) => - a -- _obj - -> T.Text -- childProperty - -> m () -- result -widgetChildNotify _obj childProperty = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - childProperty' <- textToCString childProperty - gtk_widget_child_notify _obj' childProperty' - touchManagedPtr _obj - freeMem childProperty' - return () - -data WidgetChildNotifyMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetChildNotifyMethodInfo a signature where - overloadedMethod _ = widgetChildNotify - --- method Widget::class_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path_length", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "path_reversed", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_class_path" gtk_widget_class_path :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Word32 -> -- path_length : TBasicType TUInt32 - Ptr CString -> -- path : TBasicType TUTF8 - Ptr CString -> -- path_reversed : TBasicType TUTF8 - IO () - -{-# DEPRECATED widgetClassPath ["(Since version 3.0)","Use gtk_widget_get_path() instead"]#-} -widgetClassPath :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m (Word32,T.Text,T.Text) -- result -widgetClassPath _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - pathLength <- allocMem :: IO (Ptr Word32) - path <- allocMem :: IO (Ptr CString) - pathReversed <- allocMem :: IO (Ptr CString) - gtk_widget_class_path _obj' pathLength path pathReversed - pathLength' <- peek pathLength - path' <- peek path - path'' <- cstringToText path' - freeMem path' - pathReversed' <- peek pathReversed - pathReversed'' <- cstringToText pathReversed' - freeMem pathReversed' - touchManagedPtr _obj - freeMem pathLength - freeMem path - freeMem pathReversed - return (pathLength', path'', pathReversed'') - -data WidgetClassPathMethodInfo -instance (signature ~ (m (Word32,T.Text,T.Text)), MonadIO m, WidgetK a) => MethodInfo WidgetClassPathMethodInfo a signature where - overloadedMethod _ = widgetClassPath - --- method Widget::compute_expand --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_compute_expand" gtk_widget_compute_expand :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CUInt -> -- orientation : TInterface "Gtk" "Orientation" - IO CInt - - -widgetComputeExpand :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Orientation -- orientation - -> m Bool -- result -widgetComputeExpand _obj orientation = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let orientation' = (fromIntegral . fromEnum) orientation - result <- gtk_widget_compute_expand _obj' orientation' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetComputeExpandMethodInfo -instance (signature ~ (Orientation -> m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetComputeExpandMethodInfo a signature where - overloadedMethod _ = widgetComputeExpand - --- method Widget::create_pango_context --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TInterface "Pango" "Context" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_create_pango_context" gtk_widget_create_pango_context :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr Pango.Context) - - -widgetCreatePangoContext :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Pango.Context -- result -widgetCreatePangoContext _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_create_pango_context _obj' - checkUnexpectedReturnNULL "gtk_widget_create_pango_context" result - result' <- (wrapObject Pango.Context) result - touchManagedPtr _obj - return result' - -data WidgetCreatePangoContextMethodInfo -instance (signature ~ (m Pango.Context), MonadIO m, WidgetK a) => MethodInfo WidgetCreatePangoContextMethodInfo a signature where - overloadedMethod _ = widgetCreatePangoContext - --- method Widget::create_pango_layout --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TInterface "Pango" "Layout" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_create_pango_layout" gtk_widget_create_pango_layout :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CString -> -- text : TBasicType TUTF8 - IO (Ptr Pango.Layout) - - -widgetCreatePangoLayout :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Maybe (T.Text) -- text - -> m Pango.Layout -- result -widgetCreatePangoLayout _obj text = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeText <- case text of - Nothing -> return nullPtr - Just jText -> do - jText' <- textToCString jText - return jText' - result <- gtk_widget_create_pango_layout _obj' maybeText - checkUnexpectedReturnNULL "gtk_widget_create_pango_layout" result - result' <- (wrapObject Pango.Layout) result - touchManagedPtr _obj - freeMem maybeText - return result' - -data WidgetCreatePangoLayoutMethodInfo -instance (signature ~ (Maybe (T.Text) -> m Pango.Layout), MonadIO m, WidgetK a) => MethodInfo WidgetCreatePangoLayoutMethodInfo a signature where - overloadedMethod _ = widgetCreatePangoLayout - --- method Widget::destroy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_destroy" gtk_widget_destroy :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetDestroy :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetDestroy _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_destroy _obj' - touchManagedPtr _obj - return () - -data WidgetDestroyMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDestroyMethodInfo a signature where - overloadedMethod _ = widgetDestroy - --- method Widget::destroyed --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget_pointer", argType = TInterface "Gtk" "Widget", direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_destroyed" gtk_widget_destroyed :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr (Ptr Widget) -> -- widget_pointer : TInterface "Gtk" "Widget" - IO () - - -widgetDestroyed :: - (MonadIO m, WidgetK a, WidgetK b) => - a -- _obj - -> b -- widgetPointer - -> m (Widget) -- result -widgetDestroyed _obj widgetPointer = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let widgetPointer' = unsafeManagedPtrCastPtr widgetPointer - widgetPointer'' <- allocMem :: IO (Ptr (Ptr Widget)) - poke widgetPointer'' widgetPointer' - gtk_widget_destroyed _obj' widgetPointer'' - widgetPointer''' <- peek widgetPointer'' - widgetPointer'''' <- (newObject Widget) widgetPointer''' - touchManagedPtr _obj - touchManagedPtr widgetPointer - freeMem widgetPointer'' - return widgetPointer'''' - -data WidgetDestroyedMethodInfo -instance (signature ~ (b -> m (Widget)), MonadIO m, WidgetK a, WidgetK b) => MethodInfo WidgetDestroyedMethodInfo a signature where - overloadedMethod _ = widgetDestroyed - --- method Widget::device_is_shadowed --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_device_is_shadowed" gtk_widget_device_is_shadowed :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Device -> -- device : TInterface "Gdk" "Device" - IO CInt - - -widgetDeviceIsShadowed :: - (MonadIO m, WidgetK a, Gdk.DeviceK b) => - a -- _obj - -> b -- device - -> m Bool -- result -widgetDeviceIsShadowed _obj device = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let device' = unsafeManagedPtrCastPtr device - result <- gtk_widget_device_is_shadowed _obj' device' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr device - return result' - -data WidgetDeviceIsShadowedMethodInfo -instance (signature ~ (b -> m Bool), MonadIO m, WidgetK a, Gdk.DeviceK b) => MethodInfo WidgetDeviceIsShadowedMethodInfo a signature where - overloadedMethod _ = widgetDeviceIsShadowed - --- method Widget::drag_begin --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TInterface "Gdk" "DragContext" --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_begin" gtk_drag_begin :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr TargetList -> -- targets : TInterface "Gtk" "TargetList" - CUInt -> -- actions : TInterface "Gdk" "DragAction" - Int32 -> -- button : TBasicType TInt32 - Ptr Gdk.Event -> -- event : TInterface "Gdk" "Event" - IO (Ptr Gdk.DragContext) - -{-# DEPRECATED widgetDragBegin ["(Since version 3.10)","Use gtk_drag_begin_with_coordinates() instead"]#-} -widgetDragBegin :: - (MonadIO m, WidgetK a) => - a -- _obj - -> TargetList -- targets - -> [Gdk.DragAction] -- actions - -> Int32 -- button - -> Maybe (Gdk.Event) -- event - -> m Gdk.DragContext -- result -widgetDragBegin _obj targets actions button event = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let targets' = unsafeManagedPtrGetPtr targets - let actions' = gflagsToWord actions - maybeEvent <- case event of - Nothing -> return nullPtr - Just jEvent -> do - let jEvent' = unsafeManagedPtrGetPtr jEvent - return jEvent' - result <- gtk_drag_begin _obj' targets' actions' button maybeEvent - checkUnexpectedReturnNULL "gtk_drag_begin" result - result' <- (newObject Gdk.DragContext) result - touchManagedPtr _obj - touchManagedPtr targets - whenJust event touchManagedPtr - return result' - -data WidgetDragBeginMethodInfo -instance (signature ~ (TargetList -> [Gdk.DragAction] -> Int32 -> Maybe (Gdk.Event) -> m Gdk.DragContext), MonadIO m, WidgetK a) => MethodInfo WidgetDragBeginMethodInfo a signature where - overloadedMethod _ = widgetDragBegin - --- method Widget::drag_begin_with_coordinates --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TInterface "Gdk" "DragContext" --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_begin_with_coordinates" gtk_drag_begin_with_coordinates :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr TargetList -> -- targets : TInterface "Gtk" "TargetList" - CUInt -> -- actions : TInterface "Gdk" "DragAction" - Int32 -> -- button : TBasicType TInt32 - Ptr Gdk.Event -> -- event : TInterface "Gdk" "Event" - Int32 -> -- x : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 - IO (Ptr Gdk.DragContext) - - -widgetDragBeginWithCoordinates :: - (MonadIO m, WidgetK a) => - a -- _obj - -> TargetList -- targets - -> [Gdk.DragAction] -- actions - -> Int32 -- button - -> Maybe (Gdk.Event) -- event - -> Int32 -- x - -> Int32 -- y - -> m Gdk.DragContext -- result -widgetDragBeginWithCoordinates _obj targets actions button event x y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let targets' = unsafeManagedPtrGetPtr targets - let actions' = gflagsToWord actions - maybeEvent <- case event of - Nothing -> return nullPtr - Just jEvent -> do - let jEvent' = unsafeManagedPtrGetPtr jEvent - return jEvent' - result <- gtk_drag_begin_with_coordinates _obj' targets' actions' button maybeEvent x y - checkUnexpectedReturnNULL "gtk_drag_begin_with_coordinates" result - result' <- (newObject Gdk.DragContext) result - touchManagedPtr _obj - touchManagedPtr targets - whenJust event touchManagedPtr - return result' - -data WidgetDragBeginWithCoordinatesMethodInfo -instance (signature ~ (TargetList -> [Gdk.DragAction] -> Int32 -> Maybe (Gdk.Event) -> Int32 -> Int32 -> m Gdk.DragContext), MonadIO m, WidgetK a) => MethodInfo WidgetDragBeginWithCoordinatesMethodInfo a signature where - overloadedMethod _ = widgetDragBeginWithCoordinates - --- method Widget::drag_check_threshold --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "current_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "current_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_check_threshold" gtk_drag_check_threshold :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Int32 -> -- start_x : TBasicType TInt32 - Int32 -> -- start_y : TBasicType TInt32 - Int32 -> -- current_x : TBasicType TInt32 - Int32 -> -- current_y : TBasicType TInt32 - IO CInt - - -widgetDragCheckThreshold :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Int32 -- startX - -> Int32 -- startY - -> Int32 -- currentX - -> Int32 -- currentY - -> m Bool -- result -widgetDragCheckThreshold _obj startX startY currentX currentY = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_drag_check_threshold _obj' startX startY currentX currentY - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetDragCheckThresholdMethodInfo -instance (signature ~ (Int32 -> Int32 -> Int32 -> Int32 -> m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetDragCheckThresholdMethodInfo a signature where - overloadedMethod _ = widgetDragCheckThreshold - --- method Widget::drag_dest_add_image_targets --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_dest_add_image_targets" gtk_drag_dest_add_image_targets :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetDragDestAddImageTargets :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetDragDestAddImageTargets _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_drag_dest_add_image_targets _obj' - touchManagedPtr _obj - return () - -data WidgetDragDestAddImageTargetsMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragDestAddImageTargetsMethodInfo a signature where - overloadedMethod _ = widgetDragDestAddImageTargets - --- method Widget::drag_dest_add_text_targets --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_dest_add_text_targets" gtk_drag_dest_add_text_targets :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetDragDestAddTextTargets :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetDragDestAddTextTargets _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_drag_dest_add_text_targets _obj' - touchManagedPtr _obj - return () - -data WidgetDragDestAddTextTargetsMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragDestAddTextTargetsMethodInfo a signature where - overloadedMethod _ = widgetDragDestAddTextTargets - --- method Widget::drag_dest_add_uri_targets --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_dest_add_uri_targets" gtk_drag_dest_add_uri_targets :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetDragDestAddUriTargets :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetDragDestAddUriTargets _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_drag_dest_add_uri_targets _obj' - touchManagedPtr _obj - return () - -data WidgetDragDestAddUriTargetsMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragDestAddUriTargetsMethodInfo a signature where - overloadedMethod _ = widgetDragDestAddUriTargets - --- method Widget::drag_dest_find_target --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target_list", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TInterface "Gdk" "Atom" --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_dest_find_target" gtk_drag_dest_find_target :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.DragContext -> -- context : TInterface "Gdk" "DragContext" - Ptr TargetList -> -- target_list : TInterface "Gtk" "TargetList" - IO (Ptr Gdk.Atom) - - -widgetDragDestFindTarget :: - (MonadIO m, WidgetK a, Gdk.DragContextK b) => - a -- _obj - -> b -- context - -> Maybe (TargetList) -- targetList - -> m Gdk.Atom -- result -widgetDragDestFindTarget _obj context targetList = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let context' = unsafeManagedPtrCastPtr context - maybeTargetList <- case targetList of - Nothing -> return nullPtr - Just jTargetList -> do - let jTargetList' = unsafeManagedPtrGetPtr jTargetList - return jTargetList' - result <- gtk_drag_dest_find_target _obj' context' maybeTargetList - checkUnexpectedReturnNULL "gtk_drag_dest_find_target" result - -- XXX Wrapping a foreign struct/union with no known destructor, leak? - result' <- (\x -> Gdk.Atom <$> newForeignPtr_ x) result - touchManagedPtr _obj - touchManagedPtr context - whenJust targetList touchManagedPtr - return result' - -data WidgetDragDestFindTargetMethodInfo -instance (signature ~ (b -> Maybe (TargetList) -> m Gdk.Atom), MonadIO m, WidgetK a, Gdk.DragContextK b) => MethodInfo WidgetDragDestFindTargetMethodInfo a signature where - overloadedMethod _ = widgetDragDestFindTarget - --- method Widget::drag_dest_get_target_list --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TInterface "Gtk" "TargetList" --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_dest_get_target_list" gtk_drag_dest_get_target_list :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr TargetList) - - -widgetDragDestGetTargetList :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m TargetList -- result -widgetDragDestGetTargetList _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_drag_dest_get_target_list _obj' - checkUnexpectedReturnNULL "gtk_drag_dest_get_target_list" result - result' <- (newBoxed TargetList) result - touchManagedPtr _obj - return result' - -data WidgetDragDestGetTargetListMethodInfo -instance (signature ~ (m TargetList), MonadIO m, WidgetK a) => MethodInfo WidgetDragDestGetTargetListMethodInfo a signature where - overloadedMethod _ = widgetDragDestGetTargetList - --- method Widget::drag_dest_get_track_motion --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_dest_get_track_motion" gtk_drag_dest_get_track_motion :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetDragDestGetTrackMotion :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetDragDestGetTrackMotion _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_drag_dest_get_track_motion _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetDragDestGetTrackMotionMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetDragDestGetTrackMotionMethodInfo a signature where - overloadedMethod _ = widgetDragDestGetTrackMotion - --- method Widget::drag_dest_set --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "DestDefaults", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_dest_set" gtk_drag_dest_set :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CUInt -> -- flags : TInterface "Gtk" "DestDefaults" - Ptr TargetEntry -> -- targets : TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry") - Int32 -> -- n_targets : TBasicType TInt32 - CUInt -> -- actions : TInterface "Gdk" "DragAction" - IO () - - -widgetDragDestSet :: - (MonadIO m, WidgetK a) => - a -- _obj - -> [DestDefaults] -- flags - -> Maybe ([TargetEntry]) -- targets - -> [Gdk.DragAction] -- actions - -> m () -- result -widgetDragDestSet _obj flags targets actions = liftIO $ do - let nTargets = case targets of - Nothing -> 0 - Just jTargets -> fromIntegral $ length jTargets - let _obj' = unsafeManagedPtrCastPtr _obj - let flags' = gflagsToWord flags - maybeTargets <- case targets of - Nothing -> return nullPtr - Just jTargets -> do - let jTargets' = map unsafeManagedPtrGetPtr jTargets - jTargets'' <- packBlockArray 16 jTargets' - return jTargets'' - let actions' = gflagsToWord actions - gtk_drag_dest_set _obj' flags' maybeTargets nTargets actions' - touchManagedPtr _obj - whenJust targets (mapM_ touchManagedPtr) - freeMem maybeTargets - return () - -data WidgetDragDestSetMethodInfo -instance (signature ~ ([DestDefaults] -> Maybe ([TargetEntry]) -> [Gdk.DragAction] -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragDestSetMethodInfo a signature where - overloadedMethod _ = widgetDragDestSet - --- method Widget::drag_dest_set_proxy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "proxy_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 = "use_coordinates", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_dest_set_proxy" gtk_drag_dest_set_proxy :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Window -> -- proxy_window : TInterface "Gdk" "Window" - CUInt -> -- protocol : TInterface "Gdk" "DragProtocol" - CInt -> -- use_coordinates : TBasicType TBoolean - IO () - - -widgetDragDestSetProxy :: - (MonadIO m, WidgetK a, Gdk.WindowK b) => - a -- _obj - -> b -- proxyWindow - -> Gdk.DragProtocol -- protocol - -> Bool -- useCoordinates - -> m () -- result -widgetDragDestSetProxy _obj proxyWindow protocol useCoordinates = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let proxyWindow' = unsafeManagedPtrCastPtr proxyWindow - let protocol' = (fromIntegral . fromEnum) protocol - let useCoordinates' = (fromIntegral . fromEnum) useCoordinates - gtk_drag_dest_set_proxy _obj' proxyWindow' protocol' useCoordinates' - touchManagedPtr _obj - touchManagedPtr proxyWindow - return () - -data WidgetDragDestSetProxyMethodInfo -instance (signature ~ (b -> Gdk.DragProtocol -> Bool -> m ()), MonadIO m, WidgetK a, Gdk.WindowK b) => MethodInfo WidgetDragDestSetProxyMethodInfo a signature where - overloadedMethod _ = widgetDragDestSetProxy - --- method Widget::drag_dest_set_target_list --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target_list", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_dest_set_target_list" gtk_drag_dest_set_target_list :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr TargetList -> -- target_list : TInterface "Gtk" "TargetList" - IO () - - -widgetDragDestSetTargetList :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Maybe (TargetList) -- targetList - -> m () -- result -widgetDragDestSetTargetList _obj targetList = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeTargetList <- case targetList of - Nothing -> return nullPtr - Just jTargetList -> do - let jTargetList' = unsafeManagedPtrGetPtr jTargetList - return jTargetList' - gtk_drag_dest_set_target_list _obj' maybeTargetList - touchManagedPtr _obj - whenJust targetList touchManagedPtr - return () - -data WidgetDragDestSetTargetListMethodInfo -instance (signature ~ (Maybe (TargetList) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragDestSetTargetListMethodInfo a signature where - overloadedMethod _ = widgetDragDestSetTargetList - --- method Widget::drag_dest_set_track_motion --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "track_motion", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_dest_set_track_motion" gtk_drag_dest_set_track_motion :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CInt -> -- track_motion : TBasicType TBoolean - IO () - - -widgetDragDestSetTrackMotion :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Bool -- trackMotion - -> m () -- result -widgetDragDestSetTrackMotion _obj trackMotion = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let trackMotion' = (fromIntegral . fromEnum) trackMotion - gtk_drag_dest_set_track_motion _obj' trackMotion' - touchManagedPtr _obj - return () - -data WidgetDragDestSetTrackMotionMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragDestSetTrackMotionMethodInfo a signature where - overloadedMethod _ = widgetDragDestSetTrackMotion - --- method Widget::drag_dest_unset --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_dest_unset" gtk_drag_dest_unset :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetDragDestUnset :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetDragDestUnset _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_drag_dest_unset _obj' - touchManagedPtr _obj - return () - -data WidgetDragDestUnsetMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragDestUnsetMethodInfo a signature where - overloadedMethod _ = widgetDragDestUnset - --- method Widget::drag_get_data --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", 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 : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_get_data" gtk_drag_get_data :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.DragContext -> -- context : TInterface "Gdk" "DragContext" - Ptr Gdk.Atom -> -- target : TInterface "Gdk" "Atom" - Word32 -> -- time_ : TBasicType TUInt32 - IO () - - -widgetDragGetData :: - (MonadIO m, WidgetK a, Gdk.DragContextK b) => - a -- _obj - -> b -- context - -> Gdk.Atom -- target - -> Word32 -- time - -> m () -- result -widgetDragGetData _obj context target time = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let context' = unsafeManagedPtrCastPtr context - let target' = unsafeManagedPtrGetPtr target - gtk_drag_get_data _obj' context' target' time - touchManagedPtr _obj - touchManagedPtr context - touchManagedPtr target - return () - -data WidgetDragGetDataMethodInfo -instance (signature ~ (b -> Gdk.Atom -> Word32 -> m ()), MonadIO m, WidgetK a, Gdk.DragContextK b) => MethodInfo WidgetDragGetDataMethodInfo a signature where - overloadedMethod _ = widgetDragGetData - --- method Widget::drag_highlight --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_highlight" gtk_drag_highlight :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetDragHighlight :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetDragHighlight _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_drag_highlight _obj' - touchManagedPtr _obj - return () - -data WidgetDragHighlightMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragHighlightMethodInfo a signature where - overloadedMethod _ = widgetDragHighlight - --- method Widget::drag_source_add_image_targets --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_source_add_image_targets" gtk_drag_source_add_image_targets :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetDragSourceAddImageTargets :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetDragSourceAddImageTargets _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_drag_source_add_image_targets _obj' - touchManagedPtr _obj - return () - -data WidgetDragSourceAddImageTargetsMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragSourceAddImageTargetsMethodInfo a signature where - overloadedMethod _ = widgetDragSourceAddImageTargets - --- method Widget::drag_source_add_text_targets --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_source_add_text_targets" gtk_drag_source_add_text_targets :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetDragSourceAddTextTargets :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetDragSourceAddTextTargets _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_drag_source_add_text_targets _obj' - touchManagedPtr _obj - return () - -data WidgetDragSourceAddTextTargetsMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragSourceAddTextTargetsMethodInfo a signature where - overloadedMethod _ = widgetDragSourceAddTextTargets - --- method Widget::drag_source_add_uri_targets --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_source_add_uri_targets" gtk_drag_source_add_uri_targets :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetDragSourceAddUriTargets :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetDragSourceAddUriTargets _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_drag_source_add_uri_targets _obj' - touchManagedPtr _obj - return () - -data WidgetDragSourceAddUriTargetsMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragSourceAddUriTargetsMethodInfo a signature where - overloadedMethod _ = widgetDragSourceAddUriTargets - --- method Widget::drag_source_get_target_list --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TInterface "Gtk" "TargetList" --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_source_get_target_list" gtk_drag_source_get_target_list :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr TargetList) - - -widgetDragSourceGetTargetList :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m TargetList -- result -widgetDragSourceGetTargetList _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_drag_source_get_target_list _obj' - checkUnexpectedReturnNULL "gtk_drag_source_get_target_list" result - result' <- (newBoxed TargetList) result - touchManagedPtr _obj - return result' - -data WidgetDragSourceGetTargetListMethodInfo -instance (signature ~ (m TargetList), MonadIO m, WidgetK a) => MethodInfo WidgetDragSourceGetTargetListMethodInfo a signature where - overloadedMethod _ = widgetDragSourceGetTargetList - --- method Widget::drag_source_set --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_button_mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_source_set" gtk_drag_source_set :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CUInt -> -- start_button_mask : TInterface "Gdk" "ModifierType" - Ptr TargetEntry -> -- targets : TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry") - Int32 -> -- n_targets : TBasicType TInt32 - CUInt -> -- actions : TInterface "Gdk" "DragAction" - IO () - - -widgetDragSourceSet :: - (MonadIO m, WidgetK a) => - a -- _obj - -> [Gdk.ModifierType] -- startButtonMask - -> Maybe ([TargetEntry]) -- targets - -> [Gdk.DragAction] -- actions - -> m () -- result -widgetDragSourceSet _obj startButtonMask targets actions = liftIO $ do - let nTargets = case targets of - Nothing -> 0 - Just jTargets -> fromIntegral $ length jTargets - let _obj' = unsafeManagedPtrCastPtr _obj - let startButtonMask' = gflagsToWord startButtonMask - maybeTargets <- case targets of - Nothing -> return nullPtr - Just jTargets -> do - let jTargets' = map unsafeManagedPtrGetPtr jTargets - jTargets'' <- packBlockArray 16 jTargets' - return jTargets'' - let actions' = gflagsToWord actions - gtk_drag_source_set _obj' startButtonMask' maybeTargets nTargets actions' - touchManagedPtr _obj - whenJust targets (mapM_ touchManagedPtr) - freeMem maybeTargets - return () - -data WidgetDragSourceSetMethodInfo -instance (signature ~ ([Gdk.ModifierType] -> Maybe ([TargetEntry]) -> [Gdk.DragAction] -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragSourceSetMethodInfo a signature where - overloadedMethod _ = widgetDragSourceSet - --- method Widget::drag_source_set_icon_gicon --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_source_set_icon_gicon" gtk_drag_source_set_icon_gicon :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gio.Icon -> -- icon : TInterface "Gio" "Icon" - IO () - - -widgetDragSourceSetIconGicon :: - (MonadIO m, WidgetK a, Gio.IconK b) => - a -- _obj - -> b -- icon - -> m () -- result -widgetDragSourceSetIconGicon _obj icon = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let icon' = unsafeManagedPtrCastPtr icon - gtk_drag_source_set_icon_gicon _obj' icon' - touchManagedPtr _obj - touchManagedPtr icon - return () - -data WidgetDragSourceSetIconGiconMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, WidgetK a, Gio.IconK b) => MethodInfo WidgetDragSourceSetIconGiconMethodInfo a signature where - overloadedMethod _ = widgetDragSourceSetIconGicon - --- method Widget::drag_source_set_icon_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_source_set_icon_name" gtk_drag_source_set_icon_name :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CString -> -- icon_name : TBasicType TUTF8 - IO () - - -widgetDragSourceSetIconName :: - (MonadIO m, WidgetK a) => - a -- _obj - -> T.Text -- iconName - -> m () -- result -widgetDragSourceSetIconName _obj iconName = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - iconName' <- textToCString iconName - gtk_drag_source_set_icon_name _obj' iconName' - touchManagedPtr _obj - freeMem iconName' - return () - -data WidgetDragSourceSetIconNameMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragSourceSetIconNameMethodInfo a signature where - overloadedMethod _ = widgetDragSourceSetIconName - --- method Widget::drag_source_set_icon_pixbuf --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_source_set_icon_pixbuf" gtk_drag_source_set_icon_pixbuf :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr GdkPixbuf.Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf" - IO () - - -widgetDragSourceSetIconPixbuf :: - (MonadIO m, WidgetK a, GdkPixbuf.PixbufK b) => - a -- _obj - -> b -- pixbuf - -> m () -- result -widgetDragSourceSetIconPixbuf _obj pixbuf = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let pixbuf' = unsafeManagedPtrCastPtr pixbuf - gtk_drag_source_set_icon_pixbuf _obj' pixbuf' - touchManagedPtr _obj - touchManagedPtr pixbuf - return () - -data WidgetDragSourceSetIconPixbufMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, WidgetK a, GdkPixbuf.PixbufK b) => MethodInfo WidgetDragSourceSetIconPixbufMethodInfo a signature where - overloadedMethod _ = widgetDragSourceSetIconPixbuf - --- method Widget::drag_source_set_icon_stock --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_source_set_icon_stock" gtk_drag_source_set_icon_stock :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CString -> -- stock_id : TBasicType TUTF8 - IO () - -{-# DEPRECATED widgetDragSourceSetIconStock ["(Since version 3.10)","Use gtk_drag_source_set_icon_name() instead."]#-} -widgetDragSourceSetIconStock :: - (MonadIO m, WidgetK a) => - a -- _obj - -> T.Text -- stockId - -> m () -- result -widgetDragSourceSetIconStock _obj stockId = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - stockId' <- textToCString stockId - gtk_drag_source_set_icon_stock _obj' stockId' - touchManagedPtr _obj - freeMem stockId' - return () - -data WidgetDragSourceSetIconStockMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragSourceSetIconStockMethodInfo a signature where - overloadedMethod _ = widgetDragSourceSetIconStock - --- method Widget::drag_source_set_target_list --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target_list", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_source_set_target_list" gtk_drag_source_set_target_list :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr TargetList -> -- target_list : TInterface "Gtk" "TargetList" - IO () - - -widgetDragSourceSetTargetList :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Maybe (TargetList) -- targetList - -> m () -- result -widgetDragSourceSetTargetList _obj targetList = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeTargetList <- case targetList of - Nothing -> return nullPtr - Just jTargetList -> do - let jTargetList' = unsafeManagedPtrGetPtr jTargetList - return jTargetList' - gtk_drag_source_set_target_list _obj' maybeTargetList - touchManagedPtr _obj - whenJust targetList touchManagedPtr - return () - -data WidgetDragSourceSetTargetListMethodInfo -instance (signature ~ (Maybe (TargetList) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragSourceSetTargetListMethodInfo a signature where - overloadedMethod _ = widgetDragSourceSetTargetList - --- method Widget::drag_source_unset --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_source_unset" gtk_drag_source_unset :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetDragSourceUnset :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetDragSourceUnset _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_drag_source_unset _obj' - touchManagedPtr _obj - return () - -data WidgetDragSourceUnsetMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragSourceUnsetMethodInfo a signature where - overloadedMethod _ = widgetDragSourceUnset - --- method Widget::drag_unhighlight --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_drag_unhighlight" gtk_drag_unhighlight :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetDragUnhighlight :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetDragUnhighlight _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_drag_unhighlight _obj' - touchManagedPtr _obj - return () - -data WidgetDragUnhighlightMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragUnhighlightMethodInfo a signature where - overloadedMethod _ = widgetDragUnhighlight - --- method Widget::draw --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_draw" gtk_widget_draw :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" - IO () - - -widgetDraw :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Cairo.Context -- cr - -> m () -- result -widgetDraw _obj cr = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let cr' = unsafeManagedPtrGetPtr cr - gtk_widget_draw _obj' cr' - touchManagedPtr _obj - touchManagedPtr cr - return () - -data WidgetDrawMethodInfo -instance (signature ~ (Cairo.Context -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDrawMethodInfo a signature where - overloadedMethod _ = widgetDraw - --- method Widget::ensure_style --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_ensure_style" gtk_widget_ensure_style :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - -{-# DEPRECATED widgetEnsureStyle ["(Since version 3.0)","Use #GtkStyleContext instead"]#-} -widgetEnsureStyle :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetEnsureStyle _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_ensure_style _obj' - touchManagedPtr _obj - return () - -data WidgetEnsureStyleMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetEnsureStyleMethodInfo a signature where - overloadedMethod _ = widgetEnsureStyle - --- method Widget::error_bell --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_error_bell" gtk_widget_error_bell :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetErrorBell :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetErrorBell _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_error_bell _obj' - touchManagedPtr _obj - return () - -data WidgetErrorBellMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetErrorBellMethodInfo a signature where - overloadedMethod _ = widgetErrorBell - --- method Widget::event --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_event" gtk_widget_event :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Event -> -- event : TInterface "Gdk" "Event" - IO CInt - - -widgetEvent :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Gdk.Event -- event - -> m Bool -- result -widgetEvent _obj event = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let event' = unsafeManagedPtrGetPtr event - result <- gtk_widget_event _obj' event' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr event - return result' - -data WidgetEventMethodInfo -instance (signature ~ (Gdk.Event -> m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetEventMethodInfo a signature where - overloadedMethod _ = widgetEvent - --- method Widget::freeze_child_notify --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_freeze_child_notify" gtk_widget_freeze_child_notify :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetFreezeChildNotify :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetFreezeChildNotify _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_freeze_child_notify _obj' - touchManagedPtr _obj - return () - -data WidgetFreezeChildNotifyMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetFreezeChildNotifyMethodInfo a signature where - overloadedMethod _ = widgetFreezeChildNotify - --- method Widget::get_accessible --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TInterface "Atk" "Object" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_accessible" gtk_widget_get_accessible :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr Atk.Object) - - -widgetGetAccessible :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Atk.Object -- result -widgetGetAccessible _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_accessible _obj' - checkUnexpectedReturnNULL "gtk_widget_get_accessible" result - result' <- (newObject Atk.Object) result - touchManagedPtr _obj - return result' - -data WidgetGetAccessibleMethodInfo -instance (signature ~ (m Atk.Object), MonadIO m, WidgetK a) => MethodInfo WidgetGetAccessibleMethodInfo a signature where - overloadedMethod _ = widgetGetAccessible - --- method Widget::get_action_group --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "prefix", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TInterface "Gio" "ActionGroup" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_action_group" gtk_widget_get_action_group :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CString -> -- prefix : TBasicType TUTF8 - IO (Ptr Gio.ActionGroup) - - -widgetGetActionGroup :: - (MonadIO m, WidgetK a) => - a -- _obj - -> T.Text -- prefix - -> m Gio.ActionGroup -- result -widgetGetActionGroup _obj prefix = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - prefix' <- textToCString prefix - result <- gtk_widget_get_action_group _obj' prefix' - checkUnexpectedReturnNULL "gtk_widget_get_action_group" result - result' <- (newObject Gio.ActionGroup) result - touchManagedPtr _obj - freeMem prefix' - return result' - -data WidgetGetActionGroupMethodInfo -instance (signature ~ (T.Text -> m Gio.ActionGroup), MonadIO m, WidgetK a) => MethodInfo WidgetGetActionGroupMethodInfo a signature where - overloadedMethod _ = widgetGetActionGroup - --- method Widget::get_allocated_baseline --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_allocated_baseline" gtk_widget_get_allocated_baseline :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO Int32 - - -widgetGetAllocatedBaseline :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Int32 -- result -widgetGetAllocatedBaseline _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_allocated_baseline _obj' - touchManagedPtr _obj - return result - -data WidgetGetAllocatedBaselineMethodInfo -instance (signature ~ (m Int32), MonadIO m, WidgetK a) => MethodInfo WidgetGetAllocatedBaselineMethodInfo a signature where - overloadedMethod _ = widgetGetAllocatedBaseline - --- method Widget::get_allocated_height --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_allocated_height" gtk_widget_get_allocated_height :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO Int32 - - -widgetGetAllocatedHeight :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Int32 -- result -widgetGetAllocatedHeight _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_allocated_height _obj' - touchManagedPtr _obj - return result - -data WidgetGetAllocatedHeightMethodInfo -instance (signature ~ (m Int32), MonadIO m, WidgetK a) => MethodInfo WidgetGetAllocatedHeightMethodInfo a signature where - overloadedMethod _ = widgetGetAllocatedHeight - --- method Widget::get_allocated_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_allocated_width" gtk_widget_get_allocated_width :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO Int32 - - -widgetGetAllocatedWidth :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Int32 -- result -widgetGetAllocatedWidth _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_allocated_width _obj' - touchManagedPtr _obj - return result - -data WidgetGetAllocatedWidthMethodInfo -instance (signature ~ (m Int32), MonadIO m, WidgetK a) => MethodInfo WidgetGetAllocatedWidthMethodInfo a signature where - overloadedMethod _ = widgetGetAllocatedWidth - --- method Widget::get_allocation --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allocation", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_allocation" gtk_widget_get_allocation :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Rectangle -> -- allocation : TInterface "Gdk" "Rectangle" - IO () - - -widgetGetAllocation :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m (Gdk.Rectangle) -- result -widgetGetAllocation _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - allocation <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) - gtk_widget_get_allocation _obj' allocation - allocation' <- (wrapBoxed Gdk.Rectangle) allocation - touchManagedPtr _obj - return allocation' - -data WidgetGetAllocationMethodInfo -instance (signature ~ (m (Gdk.Rectangle)), MonadIO m, WidgetK a) => MethodInfo WidgetGetAllocationMethodInfo a signature where - overloadedMethod _ = widgetGetAllocation - --- method Widget::get_ancestor --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TInterface "Gtk" "Widget" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_ancestor" gtk_widget_get_ancestor :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CGType -> -- widget_type : TBasicType TGType - IO (Ptr Widget) - - -widgetGetAncestor :: - (MonadIO m, WidgetK a) => - a -- _obj - -> GType -- widgetType - -> m Widget -- result -widgetGetAncestor _obj widgetType = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let widgetType' = gtypeToCGType widgetType - result <- gtk_widget_get_ancestor _obj' widgetType' - checkUnexpectedReturnNULL "gtk_widget_get_ancestor" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data WidgetGetAncestorMethodInfo -instance (signature ~ (GType -> m Widget), MonadIO m, WidgetK a) => MethodInfo WidgetGetAncestorMethodInfo a signature where - overloadedMethod _ = widgetGetAncestor - --- method Widget::get_app_paintable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_app_paintable" gtk_widget_get_app_paintable :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetGetAppPaintable :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetGetAppPaintable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_app_paintable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetGetAppPaintableMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetAppPaintableMethodInfo a signature where - overloadedMethod _ = widgetGetAppPaintable - --- method Widget::get_can_default --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_can_default" gtk_widget_get_can_default :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetGetCanDefault :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetGetCanDefault _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_can_default _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetGetCanDefaultMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetCanDefaultMethodInfo a signature where - overloadedMethod _ = widgetGetCanDefault - --- method Widget::get_can_focus --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_can_focus" gtk_widget_get_can_focus :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetGetCanFocus :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetGetCanFocus _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_can_focus _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetGetCanFocusMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetCanFocusMethodInfo a signature where - overloadedMethod _ = widgetGetCanFocus - --- method Widget::get_child_requisition --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "requisition", argType = TInterface "Gtk" "Requisition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_child_requisition" gtk_widget_get_child_requisition :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Requisition -> -- requisition : TInterface "Gtk" "Requisition" - IO () - -{-# DEPRECATED widgetGetChildRequisition ["(Since version 3.0)","Use gtk_widget_get_preferred_size() instead."]#-} -widgetGetChildRequisition :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m (Requisition) -- result -widgetGetChildRequisition _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - requisition <- callocBoxedBytes 8 :: IO (Ptr Requisition) - gtk_widget_get_child_requisition _obj' requisition - requisition' <- (wrapBoxed Requisition) requisition - touchManagedPtr _obj - return requisition' - -data WidgetGetChildRequisitionMethodInfo -instance (signature ~ (m (Requisition)), MonadIO m, WidgetK a) => MethodInfo WidgetGetChildRequisitionMethodInfo a signature where - overloadedMethod _ = widgetGetChildRequisition - --- method Widget::get_child_visible --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_child_visible" gtk_widget_get_child_visible :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetGetChildVisible :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetGetChildVisible _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_child_visible _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetGetChildVisibleMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetChildVisibleMethodInfo a signature where - overloadedMethod _ = widgetGetChildVisible - --- method Widget::get_clip --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "clip", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_clip" gtk_widget_get_clip :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Rectangle -> -- clip : TInterface "Gdk" "Rectangle" - IO () - - -widgetGetClip :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m (Gdk.Rectangle) -- result -widgetGetClip _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - clip <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) - gtk_widget_get_clip _obj' clip - clip' <- (wrapBoxed Gdk.Rectangle) clip - touchManagedPtr _obj - return clip' - -data WidgetGetClipMethodInfo -instance (signature ~ (m (Gdk.Rectangle)), MonadIO m, WidgetK a) => MethodInfo WidgetGetClipMethodInfo a signature where - overloadedMethod _ = widgetGetClip - --- method Widget::get_clipboard --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 : TInterface "Gtk" "Clipboard" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_clipboard" gtk_widget_get_clipboard :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Atom -> -- selection : TInterface "Gdk" "Atom" - IO (Ptr Clipboard) - - -widgetGetClipboard :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Gdk.Atom -- selection - -> m Clipboard -- result -widgetGetClipboard _obj selection = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let selection' = unsafeManagedPtrGetPtr selection - result <- gtk_widget_get_clipboard _obj' selection' - checkUnexpectedReturnNULL "gtk_widget_get_clipboard" result - result' <- (newObject Clipboard) result - touchManagedPtr _obj - touchManagedPtr selection - return result' - -data WidgetGetClipboardMethodInfo -instance (signature ~ (Gdk.Atom -> m Clipboard), MonadIO m, WidgetK a) => MethodInfo WidgetGetClipboardMethodInfo a signature where - overloadedMethod _ = widgetGetClipboard - --- method Widget::get_composite_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_composite_name" gtk_widget_get_composite_name :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CString - -{-# DEPRECATED widgetGetCompositeName ["(Since version 3.10)","Use gtk_widget_class_set_template(), or don\8217t use this API at all."]#-} -widgetGetCompositeName :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m T.Text -- result -widgetGetCompositeName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_composite_name _obj' - checkUnexpectedReturnNULL "gtk_widget_get_composite_name" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data WidgetGetCompositeNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, WidgetK a) => MethodInfo WidgetGetCompositeNameMethodInfo a signature where - overloadedMethod _ = widgetGetCompositeName - --- method Widget::get_device_enabled --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_device_enabled" gtk_widget_get_device_enabled :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Device -> -- device : TInterface "Gdk" "Device" - IO CInt - - -widgetGetDeviceEnabled :: - (MonadIO m, WidgetK a, Gdk.DeviceK b) => - a -- _obj - -> b -- device - -> m Bool -- result -widgetGetDeviceEnabled _obj device = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let device' = unsafeManagedPtrCastPtr device - result <- gtk_widget_get_device_enabled _obj' device' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr device - return result' - -data WidgetGetDeviceEnabledMethodInfo -instance (signature ~ (b -> m Bool), MonadIO m, WidgetK a, Gdk.DeviceK b) => MethodInfo WidgetGetDeviceEnabledMethodInfo a signature where - overloadedMethod _ = widgetGetDeviceEnabled - --- method Widget::get_device_events --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 : TInterface "Gdk" "EventMask" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_device_events" gtk_widget_get_device_events :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Device -> -- device : TInterface "Gdk" "Device" - IO CUInt - - -widgetGetDeviceEvents :: - (MonadIO m, WidgetK a, Gdk.DeviceK b) => - a -- _obj - -> b -- device - -> m [Gdk.EventMask] -- result -widgetGetDeviceEvents _obj device = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let device' = unsafeManagedPtrCastPtr device - result <- gtk_widget_get_device_events _obj' device' - let result' = wordToGFlags result - touchManagedPtr _obj - touchManagedPtr device - return result' - -data WidgetGetDeviceEventsMethodInfo -instance (signature ~ (b -> m [Gdk.EventMask]), MonadIO m, WidgetK a, Gdk.DeviceK b) => MethodInfo WidgetGetDeviceEventsMethodInfo a signature where - overloadedMethod _ = widgetGetDeviceEvents - --- method Widget::get_direction --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TInterface "Gtk" "TextDirection" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_direction" gtk_widget_get_direction :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CUInt - - -widgetGetDirection :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m TextDirection -- result -widgetGetDirection _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_direction _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data WidgetGetDirectionMethodInfo -instance (signature ~ (m TextDirection), MonadIO m, WidgetK a) => MethodInfo WidgetGetDirectionMethodInfo a signature where - overloadedMethod _ = widgetGetDirection - --- method Widget::get_display --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TInterface "Gdk" "Display" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_display" gtk_widget_get_display :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr Gdk.Display) - - -widgetGetDisplay :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Gdk.Display -- result -widgetGetDisplay _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_display _obj' - checkUnexpectedReturnNULL "gtk_widget_get_display" result - result' <- (newObject Gdk.Display) result - touchManagedPtr _obj - return result' - -data WidgetGetDisplayMethodInfo -instance (signature ~ (m Gdk.Display), MonadIO m, WidgetK a) => MethodInfo WidgetGetDisplayMethodInfo a signature where - overloadedMethod _ = widgetGetDisplay - --- method Widget::get_double_buffered --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_double_buffered" gtk_widget_get_double_buffered :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetGetDoubleBuffered :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetGetDoubleBuffered _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_double_buffered _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetGetDoubleBufferedMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetDoubleBufferedMethodInfo a signature where - overloadedMethod _ = widgetGetDoubleBuffered - --- method Widget::get_events --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_events" gtk_widget_get_events :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO Int32 - - -widgetGetEvents :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Int32 -- result -widgetGetEvents _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_events _obj' - touchManagedPtr _obj - return result - -data WidgetGetEventsMethodInfo -instance (signature ~ (m Int32), MonadIO m, WidgetK a) => MethodInfo WidgetGetEventsMethodInfo a signature where - overloadedMethod _ = widgetGetEvents - --- method Widget::get_font_map --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TInterface "Pango" "FontMap" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_font_map" gtk_widget_get_font_map :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr Pango.FontMap) - - -widgetGetFontMap :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Pango.FontMap -- result -widgetGetFontMap _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_font_map _obj' - checkUnexpectedReturnNULL "gtk_widget_get_font_map" result - result' <- (newObject Pango.FontMap) result - touchManagedPtr _obj - return result' - -data WidgetGetFontMapMethodInfo -instance (signature ~ (m Pango.FontMap), MonadIO m, WidgetK a) => MethodInfo WidgetGetFontMapMethodInfo a signature where - overloadedMethod _ = widgetGetFontMap - --- method Widget::get_font_options --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TInterface "cairo" "FontOptions" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_font_options" gtk_widget_get_font_options :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr Cairo.FontOptions) - - -widgetGetFontOptions :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Cairo.FontOptions -- result -widgetGetFontOptions _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_font_options _obj' - checkUnexpectedReturnNULL "gtk_widget_get_font_options" result - -- XXX Wrapping a foreign struct/union with no known destructor, leak? - result' <- (\x -> Cairo.FontOptions <$> newForeignPtr_ x) result - touchManagedPtr _obj - return result' - -data WidgetGetFontOptionsMethodInfo -instance (signature ~ (m Cairo.FontOptions), MonadIO m, WidgetK a) => MethodInfo WidgetGetFontOptionsMethodInfo a signature where - overloadedMethod _ = widgetGetFontOptions - --- method Widget::get_frame_clock --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TInterface "Gdk" "FrameClock" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_frame_clock" gtk_widget_get_frame_clock :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr Gdk.FrameClock) - - -widgetGetFrameClock :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Gdk.FrameClock -- result -widgetGetFrameClock _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_frame_clock _obj' - checkUnexpectedReturnNULL "gtk_widget_get_frame_clock" result - result' <- (newObject Gdk.FrameClock) result - touchManagedPtr _obj - return result' - -data WidgetGetFrameClockMethodInfo -instance (signature ~ (m Gdk.FrameClock), MonadIO m, WidgetK a) => MethodInfo WidgetGetFrameClockMethodInfo a signature where - overloadedMethod _ = widgetGetFrameClock - --- method Widget::get_halign --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TInterface "Gtk" "Align" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_halign" gtk_widget_get_halign :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CUInt - - -widgetGetHalign :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Align -- result -widgetGetHalign _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_halign _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data WidgetGetHalignMethodInfo -instance (signature ~ (m Align), MonadIO m, WidgetK a) => MethodInfo WidgetGetHalignMethodInfo a signature where - overloadedMethod _ = widgetGetHalign - --- method Widget::get_has_tooltip --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_has_tooltip" gtk_widget_get_has_tooltip :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetGetHasTooltip :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetGetHasTooltip _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_has_tooltip _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetGetHasTooltipMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetHasTooltipMethodInfo a signature where - overloadedMethod _ = widgetGetHasTooltip - --- method Widget::get_has_window --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_has_window" gtk_widget_get_has_window :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetGetHasWindow :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetGetHasWindow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_has_window _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetGetHasWindowMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetHasWindowMethodInfo a signature where - overloadedMethod _ = widgetGetHasWindow - --- method Widget::get_hexpand --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_hexpand" gtk_widget_get_hexpand :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetGetHexpand :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetGetHexpand _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_hexpand _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetGetHexpandMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetHexpandMethodInfo a signature where - overloadedMethod _ = widgetGetHexpand - --- method Widget::get_hexpand_set --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_hexpand_set" gtk_widget_get_hexpand_set :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetGetHexpandSet :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetGetHexpandSet _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_hexpand_set _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetGetHexpandSetMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetHexpandSetMethodInfo a signature where - overloadedMethod _ = widgetGetHexpandSet - --- method Widget::get_mapped --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_mapped" gtk_widget_get_mapped :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetGetMapped :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetGetMapped _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_mapped _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetGetMappedMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetMappedMethodInfo a signature where - overloadedMethod _ = widgetGetMapped - --- method Widget::get_margin_bottom --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_margin_bottom" gtk_widget_get_margin_bottom :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO Int32 - - -widgetGetMarginBottom :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Int32 -- result -widgetGetMarginBottom _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_margin_bottom _obj' - touchManagedPtr _obj - return result - -data WidgetGetMarginBottomMethodInfo -instance (signature ~ (m Int32), MonadIO m, WidgetK a) => MethodInfo WidgetGetMarginBottomMethodInfo a signature where - overloadedMethod _ = widgetGetMarginBottom - --- method Widget::get_margin_end --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_margin_end" gtk_widget_get_margin_end :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO Int32 - - -widgetGetMarginEnd :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Int32 -- result -widgetGetMarginEnd _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_margin_end _obj' - touchManagedPtr _obj - return result - -data WidgetGetMarginEndMethodInfo -instance (signature ~ (m Int32), MonadIO m, WidgetK a) => MethodInfo WidgetGetMarginEndMethodInfo a signature where - overloadedMethod _ = widgetGetMarginEnd - --- method Widget::get_margin_left --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_margin_left" gtk_widget_get_margin_left :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO Int32 - -{-# DEPRECATED widgetGetMarginLeft ["(Since version 3.12)","Use gtk_widget_get_margin_start() instead."]#-} -widgetGetMarginLeft :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Int32 -- result -widgetGetMarginLeft _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_margin_left _obj' - touchManagedPtr _obj - return result - -data WidgetGetMarginLeftMethodInfo -instance (signature ~ (m Int32), MonadIO m, WidgetK a) => MethodInfo WidgetGetMarginLeftMethodInfo a signature where - overloadedMethod _ = widgetGetMarginLeft - --- method Widget::get_margin_right --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_margin_right" gtk_widget_get_margin_right :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO Int32 - -{-# DEPRECATED widgetGetMarginRight ["(Since version 3.12)","Use gtk_widget_get_margin_end() instead."]#-} -widgetGetMarginRight :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Int32 -- result -widgetGetMarginRight _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_margin_right _obj' - touchManagedPtr _obj - return result - -data WidgetGetMarginRightMethodInfo -instance (signature ~ (m Int32), MonadIO m, WidgetK a) => MethodInfo WidgetGetMarginRightMethodInfo a signature where - overloadedMethod _ = widgetGetMarginRight - --- method Widget::get_margin_start --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_margin_start" gtk_widget_get_margin_start :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO Int32 - - -widgetGetMarginStart :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Int32 -- result -widgetGetMarginStart _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_margin_start _obj' - touchManagedPtr _obj - return result - -data WidgetGetMarginStartMethodInfo -instance (signature ~ (m Int32), MonadIO m, WidgetK a) => MethodInfo WidgetGetMarginStartMethodInfo a signature where - overloadedMethod _ = widgetGetMarginStart - --- method Widget::get_margin_top --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_margin_top" gtk_widget_get_margin_top :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO Int32 - - -widgetGetMarginTop :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Int32 -- result -widgetGetMarginTop _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_margin_top _obj' - touchManagedPtr _obj - return result - -data WidgetGetMarginTopMethodInfo -instance (signature ~ (m Int32), MonadIO m, WidgetK a) => MethodInfo WidgetGetMarginTopMethodInfo a signature where - overloadedMethod _ = widgetGetMarginTop - --- method Widget::get_modifier_mask --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 : TInterface "Gdk" "ModifierType" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_modifier_mask" gtk_widget_get_modifier_mask :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CUInt -> -- intent : TInterface "Gdk" "ModifierIntent" - IO CUInt - - -widgetGetModifierMask :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Gdk.ModifierIntent -- intent - -> m [Gdk.ModifierType] -- result -widgetGetModifierMask _obj intent = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let intent' = (fromIntegral . fromEnum) intent - result <- gtk_widget_get_modifier_mask _obj' intent' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - -data WidgetGetModifierMaskMethodInfo -instance (signature ~ (Gdk.ModifierIntent -> m [Gdk.ModifierType]), MonadIO m, WidgetK a) => MethodInfo WidgetGetModifierMaskMethodInfo a signature where - overloadedMethod _ = widgetGetModifierMask - --- method Widget::get_modifier_style --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TInterface "Gtk" "RcStyle" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_modifier_style" gtk_widget_get_modifier_style :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr RcStyle) - -{-# DEPRECATED widgetGetModifierStyle ["(Since version 3.0)","Use #GtkStyleContext with a custom #GtkStyleProvider instead"]#-} -widgetGetModifierStyle :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m RcStyle -- result -widgetGetModifierStyle _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_modifier_style _obj' - checkUnexpectedReturnNULL "gtk_widget_get_modifier_style" result - result' <- (newObject RcStyle) result - touchManagedPtr _obj - return result' - -data WidgetGetModifierStyleMethodInfo -instance (signature ~ (m RcStyle), MonadIO m, WidgetK a) => MethodInfo WidgetGetModifierStyleMethodInfo a signature where - overloadedMethod _ = widgetGetModifierStyle - --- method Widget::get_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_name" gtk_widget_get_name :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CString - - -widgetGetName :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m T.Text -- result -widgetGetName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_name _obj' - checkUnexpectedReturnNULL "gtk_widget_get_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data WidgetGetNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, WidgetK a) => MethodInfo WidgetGetNameMethodInfo a signature where - overloadedMethod _ = widgetGetName - --- method Widget::get_no_show_all --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_no_show_all" gtk_widget_get_no_show_all :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetGetNoShowAll :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetGetNoShowAll _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_no_show_all _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetGetNoShowAllMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetNoShowAllMethodInfo a signature where - overloadedMethod _ = widgetGetNoShowAll - --- method Widget::get_opacity --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TDouble --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_opacity" gtk_widget_get_opacity :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CDouble - - -widgetGetOpacity :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Double -- result -widgetGetOpacity _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_opacity _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data WidgetGetOpacityMethodInfo -instance (signature ~ (m Double), MonadIO m, WidgetK a) => MethodInfo WidgetGetOpacityMethodInfo a signature where - overloadedMethod _ = widgetGetOpacity - --- method Widget::get_pango_context --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TInterface "Pango" "Context" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_pango_context" gtk_widget_get_pango_context :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr Pango.Context) - - -widgetGetPangoContext :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Pango.Context -- result -widgetGetPangoContext _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_pango_context _obj' - checkUnexpectedReturnNULL "gtk_widget_get_pango_context" result - result' <- (newObject Pango.Context) result - touchManagedPtr _obj - return result' - -data WidgetGetPangoContextMethodInfo -instance (signature ~ (m Pango.Context), MonadIO m, WidgetK a) => MethodInfo WidgetGetPangoContextMethodInfo a signature where - overloadedMethod _ = widgetGetPangoContext - --- method Widget::get_parent --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TInterface "Gtk" "Widget" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_parent" gtk_widget_get_parent :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr Widget) - - -widgetGetParent :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Widget -- result -widgetGetParent _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_parent _obj' - checkUnexpectedReturnNULL "gtk_widget_get_parent" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data WidgetGetParentMethodInfo -instance (signature ~ (m Widget), MonadIO m, WidgetK a) => MethodInfo WidgetGetParentMethodInfo a signature where - overloadedMethod _ = widgetGetParent - --- method Widget::get_parent_window --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TInterface "Gdk" "Window" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_parent_window" gtk_widget_get_parent_window :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr Gdk.Window) - - -widgetGetParentWindow :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Gdk.Window -- result -widgetGetParentWindow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_parent_window _obj' - checkUnexpectedReturnNULL "gtk_widget_get_parent_window" result - result' <- (newObject Gdk.Window) result - touchManagedPtr _obj - return result' - -data WidgetGetParentWindowMethodInfo -instance (signature ~ (m Gdk.Window), MonadIO m, WidgetK a) => MethodInfo WidgetGetParentWindowMethodInfo a signature where - overloadedMethod _ = widgetGetParentWindow - --- method Widget::get_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TInterface "Gtk" "WidgetPath" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_path" gtk_widget_get_path :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr WidgetPath) - - -widgetGetPath :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m WidgetPath -- result -widgetGetPath _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_path _obj' - checkUnexpectedReturnNULL "gtk_widget_get_path" result - result' <- (newBoxed WidgetPath) result - touchManagedPtr _obj - return result' - -data WidgetGetPathMethodInfo -instance (signature ~ (m WidgetPath), MonadIO m, WidgetK a) => MethodInfo WidgetGetPathMethodInfo a signature where - overloadedMethod _ = widgetGetPath - --- method Widget::get_pointer --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_pointer" gtk_widget_get_pointer :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Int32 -> -- x : TBasicType TInt32 - Ptr Int32 -> -- y : TBasicType TInt32 - IO () - -{-# DEPRECATED widgetGetPointer ["(Since version 3.4)","Use gdk_window_get_device_position() instead."]#-} -widgetGetPointer :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m (Int32,Int32) -- result -widgetGetPointer _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - x <- allocMem :: IO (Ptr Int32) - y <- allocMem :: IO (Ptr Int32) - gtk_widget_get_pointer _obj' x y - x' <- peek x - y' <- peek y - touchManagedPtr _obj - freeMem x - freeMem y - return (x', y') - -data WidgetGetPointerMethodInfo -instance (signature ~ (m (Int32,Int32)), MonadIO m, WidgetK a) => MethodInfo WidgetGetPointerMethodInfo a signature where - overloadedMethod _ = widgetGetPointer - --- method Widget::get_preferred_height --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_preferred_height" gtk_widget_get_preferred_height :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Int32 -> -- minimum_height : TBasicType TInt32 - Ptr Int32 -> -- natural_height : TBasicType TInt32 - IO () - - -widgetGetPreferredHeight :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m (Int32,Int32) -- result -widgetGetPreferredHeight _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - minimumHeight <- allocMem :: IO (Ptr Int32) - naturalHeight <- allocMem :: IO (Ptr Int32) - gtk_widget_get_preferred_height _obj' minimumHeight naturalHeight - minimumHeight' <- peek minimumHeight - naturalHeight' <- peek naturalHeight - touchManagedPtr _obj - freeMem minimumHeight - freeMem naturalHeight - return (minimumHeight', naturalHeight') - -data WidgetGetPreferredHeightMethodInfo -instance (signature ~ (m (Int32,Int32)), MonadIO m, WidgetK a) => MethodInfo WidgetGetPreferredHeightMethodInfo a signature where - overloadedMethod _ = widgetGetPreferredHeight - --- method Widget::get_preferred_height_and_baseline_for_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "minimum_baseline", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_baseline", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_preferred_height_and_baseline_for_width" gtk_widget_get_preferred_height_and_baseline_for_width :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Int32 -> -- width : TBasicType TInt32 - Ptr Int32 -> -- minimum_height : TBasicType TInt32 - Ptr Int32 -> -- natural_height : TBasicType TInt32 - Ptr Int32 -> -- minimum_baseline : TBasicType TInt32 - Ptr Int32 -> -- natural_baseline : TBasicType TInt32 - IO () - - -widgetGetPreferredHeightAndBaselineForWidth :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Int32 -- width - -> m (Int32,Int32,Int32,Int32) -- result -widgetGetPreferredHeightAndBaselineForWidth _obj width = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - minimumHeight <- allocMem :: IO (Ptr Int32) - naturalHeight <- allocMem :: IO (Ptr Int32) - minimumBaseline <- allocMem :: IO (Ptr Int32) - naturalBaseline <- allocMem :: IO (Ptr Int32) - gtk_widget_get_preferred_height_and_baseline_for_width _obj' width minimumHeight naturalHeight minimumBaseline naturalBaseline - minimumHeight' <- peek minimumHeight - naturalHeight' <- peek naturalHeight - minimumBaseline' <- peek minimumBaseline - naturalBaseline' <- peek naturalBaseline - touchManagedPtr _obj - freeMem minimumHeight - freeMem naturalHeight - freeMem minimumBaseline - freeMem naturalBaseline - return (minimumHeight', naturalHeight', minimumBaseline', naturalBaseline') - -data WidgetGetPreferredHeightAndBaselineForWidthMethodInfo -instance (signature ~ (Int32 -> m (Int32,Int32,Int32,Int32)), MonadIO m, WidgetK a) => MethodInfo WidgetGetPreferredHeightAndBaselineForWidthMethodInfo a signature where - overloadedMethod _ = widgetGetPreferredHeightAndBaselineForWidth - --- method Widget::get_preferred_height_for_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_preferred_height_for_width" gtk_widget_get_preferred_height_for_width :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Int32 -> -- width : TBasicType TInt32 - Ptr Int32 -> -- minimum_height : TBasicType TInt32 - Ptr Int32 -> -- natural_height : TBasicType TInt32 - IO () - - -widgetGetPreferredHeightForWidth :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Int32 -- width - -> m (Int32,Int32) -- result -widgetGetPreferredHeightForWidth _obj width = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - minimumHeight <- allocMem :: IO (Ptr Int32) - naturalHeight <- allocMem :: IO (Ptr Int32) - gtk_widget_get_preferred_height_for_width _obj' width minimumHeight naturalHeight - minimumHeight' <- peek minimumHeight - naturalHeight' <- peek naturalHeight - touchManagedPtr _obj - freeMem minimumHeight - freeMem naturalHeight - return (minimumHeight', naturalHeight') - -data WidgetGetPreferredHeightForWidthMethodInfo -instance (signature ~ (Int32 -> m (Int32,Int32)), MonadIO m, WidgetK a) => MethodInfo WidgetGetPreferredHeightForWidthMethodInfo a signature where - overloadedMethod _ = widgetGetPreferredHeightForWidth - --- method Widget::get_preferred_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_size", argType = TInterface "Gtk" "Requisition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "natural_size", argType = TInterface "Gtk" "Requisition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_preferred_size" gtk_widget_get_preferred_size :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Requisition -> -- minimum_size : TInterface "Gtk" "Requisition" - Ptr Requisition -> -- natural_size : TInterface "Gtk" "Requisition" - IO () - - -widgetGetPreferredSize :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m (Requisition,Requisition) -- result -widgetGetPreferredSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - minimumSize <- callocBoxedBytes 8 :: IO (Ptr Requisition) - naturalSize <- callocBoxedBytes 8 :: IO (Ptr Requisition) - gtk_widget_get_preferred_size _obj' minimumSize naturalSize - minimumSize' <- (wrapBoxed Requisition) minimumSize - naturalSize' <- (wrapBoxed Requisition) naturalSize - touchManagedPtr _obj - return (minimumSize', naturalSize') - -data WidgetGetPreferredSizeMethodInfo -instance (signature ~ (m (Requisition,Requisition)), MonadIO m, WidgetK a) => MethodInfo WidgetGetPreferredSizeMethodInfo a signature where - overloadedMethod _ = widgetGetPreferredSize - --- method Widget::get_preferred_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_preferred_width" gtk_widget_get_preferred_width :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Int32 -> -- minimum_width : TBasicType TInt32 - Ptr Int32 -> -- natural_width : TBasicType TInt32 - IO () - - -widgetGetPreferredWidth :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m (Int32,Int32) -- result -widgetGetPreferredWidth _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - minimumWidth <- allocMem :: IO (Ptr Int32) - naturalWidth <- allocMem :: IO (Ptr Int32) - gtk_widget_get_preferred_width _obj' minimumWidth naturalWidth - minimumWidth' <- peek minimumWidth - naturalWidth' <- peek naturalWidth - touchManagedPtr _obj - freeMem minimumWidth - freeMem naturalWidth - return (minimumWidth', naturalWidth') - -data WidgetGetPreferredWidthMethodInfo -instance (signature ~ (m (Int32,Int32)), MonadIO m, WidgetK a) => MethodInfo WidgetGetPreferredWidthMethodInfo a signature where - overloadedMethod _ = widgetGetPreferredWidth - --- method Widget::get_preferred_width_for_height --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_preferred_width_for_height" gtk_widget_get_preferred_width_for_height :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Int32 -> -- height : TBasicType TInt32 - Ptr Int32 -> -- minimum_width : TBasicType TInt32 - Ptr Int32 -> -- natural_width : TBasicType TInt32 - IO () - - -widgetGetPreferredWidthForHeight :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Int32 -- height - -> m (Int32,Int32) -- result -widgetGetPreferredWidthForHeight _obj height = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - minimumWidth <- allocMem :: IO (Ptr Int32) - naturalWidth <- allocMem :: IO (Ptr Int32) - gtk_widget_get_preferred_width_for_height _obj' height minimumWidth naturalWidth - minimumWidth' <- peek minimumWidth - naturalWidth' <- peek naturalWidth - touchManagedPtr _obj - freeMem minimumWidth - freeMem naturalWidth - return (minimumWidth', naturalWidth') - -data WidgetGetPreferredWidthForHeightMethodInfo -instance (signature ~ (Int32 -> m (Int32,Int32)), MonadIO m, WidgetK a) => MethodInfo WidgetGetPreferredWidthForHeightMethodInfo a signature where - overloadedMethod _ = widgetGetPreferredWidthForHeight - --- method Widget::get_realized --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_realized" gtk_widget_get_realized :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetGetRealized :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetGetRealized _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_realized _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetGetRealizedMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetRealizedMethodInfo a signature where - overloadedMethod _ = widgetGetRealized - --- method Widget::get_receives_default --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_receives_default" gtk_widget_get_receives_default :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetGetReceivesDefault :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetGetReceivesDefault _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_receives_default _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetGetReceivesDefaultMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetReceivesDefaultMethodInfo a signature where - overloadedMethod _ = widgetGetReceivesDefault - --- method Widget::get_request_mode --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TInterface "Gtk" "SizeRequestMode" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_request_mode" gtk_widget_get_request_mode :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CUInt - - -widgetGetRequestMode :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m SizeRequestMode -- result -widgetGetRequestMode _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_request_mode _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data WidgetGetRequestModeMethodInfo -instance (signature ~ (m SizeRequestMode), MonadIO m, WidgetK a) => MethodInfo WidgetGetRequestModeMethodInfo a signature where - overloadedMethod _ = widgetGetRequestMode - --- method Widget::get_requisition --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "requisition", argType = TInterface "Gtk" "Requisition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_requisition" gtk_widget_get_requisition :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Requisition -> -- requisition : TInterface "Gtk" "Requisition" - IO () - -{-# DEPRECATED widgetGetRequisition ["(Since version 3.0)","The #GtkRequisition cache on the widget was","removed, If you need to cache sizes across requests and allocations,","add an explicit cache to the widget in question instead."]#-} -widgetGetRequisition :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m (Requisition) -- result -widgetGetRequisition _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - requisition <- callocBoxedBytes 8 :: IO (Ptr Requisition) - gtk_widget_get_requisition _obj' requisition - requisition' <- (wrapBoxed Requisition) requisition - touchManagedPtr _obj - return requisition' - -data WidgetGetRequisitionMethodInfo -instance (signature ~ (m (Requisition)), MonadIO m, WidgetK a) => MethodInfo WidgetGetRequisitionMethodInfo a signature where - overloadedMethod _ = widgetGetRequisition - --- method Widget::get_root_window --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TInterface "Gdk" "Window" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_root_window" gtk_widget_get_root_window :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr Gdk.Window) - -{-# DEPRECATED widgetGetRootWindow ["(Since version 3.12)","Use gdk_screen_get_root_window() instead"]#-} -widgetGetRootWindow :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Gdk.Window -- result -widgetGetRootWindow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_root_window _obj' - checkUnexpectedReturnNULL "gtk_widget_get_root_window" result - result' <- (newObject Gdk.Window) result - touchManagedPtr _obj - return result' - -data WidgetGetRootWindowMethodInfo -instance (signature ~ (m Gdk.Window), MonadIO m, WidgetK a) => MethodInfo WidgetGetRootWindowMethodInfo a signature where - overloadedMethod _ = widgetGetRootWindow - --- method Widget::get_scale_factor --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_scale_factor" gtk_widget_get_scale_factor :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO Int32 - - -widgetGetScaleFactor :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Int32 -- result -widgetGetScaleFactor _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_scale_factor _obj' - touchManagedPtr _obj - return result - -data WidgetGetScaleFactorMethodInfo -instance (signature ~ (m Int32), MonadIO m, WidgetK a) => MethodInfo WidgetGetScaleFactorMethodInfo a signature where - overloadedMethod _ = widgetGetScaleFactor - --- method Widget::get_screen --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TInterface "Gdk" "Screen" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_screen" gtk_widget_get_screen :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr Gdk.Screen) - - -widgetGetScreen :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Gdk.Screen -- result -widgetGetScreen _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_screen _obj' - checkUnexpectedReturnNULL "gtk_widget_get_screen" result - result' <- (newObject Gdk.Screen) result - touchManagedPtr _obj - return result' - -data WidgetGetScreenMethodInfo -instance (signature ~ (m Gdk.Screen), MonadIO m, WidgetK a) => MethodInfo WidgetGetScreenMethodInfo a signature where - overloadedMethod _ = widgetGetScreen - --- method Widget::get_sensitive --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_sensitive" gtk_widget_get_sensitive :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetGetSensitive :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetGetSensitive _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_sensitive _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetGetSensitiveMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetSensitiveMethodInfo a signature where - overloadedMethod _ = widgetGetSensitive - --- method Widget::get_settings --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TInterface "Gtk" "Settings" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_settings" gtk_widget_get_settings :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr Settings) - - -widgetGetSettings :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Settings -- result -widgetGetSettings _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_settings _obj' - checkUnexpectedReturnNULL "gtk_widget_get_settings" result - result' <- (newObject Settings) result - touchManagedPtr _obj - return result' - -data WidgetGetSettingsMethodInfo -instance (signature ~ (m Settings), MonadIO m, WidgetK a) => MethodInfo WidgetGetSettingsMethodInfo a signature where - overloadedMethod _ = widgetGetSettings - --- method Widget::get_size_request --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_size_request" gtk_widget_get_size_request :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Int32 -> -- width : TBasicType TInt32 - Ptr Int32 -> -- height : TBasicType TInt32 - IO () - - -widgetGetSizeRequest :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m (Int32,Int32) -- result -widgetGetSizeRequest _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - width <- allocMem :: IO (Ptr Int32) - height <- allocMem :: IO (Ptr Int32) - gtk_widget_get_size_request _obj' width height - width' <- peek width - height' <- peek height - touchManagedPtr _obj - freeMem width - freeMem height - return (width', height') - -data WidgetGetSizeRequestMethodInfo -instance (signature ~ (m (Int32,Int32)), MonadIO m, WidgetK a) => MethodInfo WidgetGetSizeRequestMethodInfo a signature where - overloadedMethod _ = widgetGetSizeRequest - --- method Widget::get_state --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TInterface "Gtk" "StateType" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_state" gtk_widget_get_state :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CUInt - -{-# DEPRECATED widgetGetState ["(Since version 3.0)","Use gtk_widget_get_state_flags() instead."]#-} -widgetGetState :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m StateType -- result -widgetGetState _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_state _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data WidgetGetStateMethodInfo -instance (signature ~ (m StateType), MonadIO m, WidgetK a) => MethodInfo WidgetGetStateMethodInfo a signature where - overloadedMethod _ = widgetGetState - --- method Widget::get_state_flags --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TInterface "Gtk" "StateFlags" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_state_flags" gtk_widget_get_state_flags :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CUInt - - -widgetGetStateFlags :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m [StateFlags] -- result -widgetGetStateFlags _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_state_flags _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - -data WidgetGetStateFlagsMethodInfo -instance (signature ~ (m [StateFlags]), MonadIO m, WidgetK a) => MethodInfo WidgetGetStateFlagsMethodInfo a signature where - overloadedMethod _ = widgetGetStateFlags - --- method Widget::get_style --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TInterface "Gtk" "Style" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_style" gtk_widget_get_style :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr Style) - -{-# DEPRECATED widgetGetStyle ["(Since version 3.0)","Use #GtkStyleContext instead"]#-} -widgetGetStyle :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Style -- result -widgetGetStyle _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_style _obj' - checkUnexpectedReturnNULL "gtk_widget_get_style" result - result' <- (newObject Style) result - touchManagedPtr _obj - return result' - -data WidgetGetStyleMethodInfo -instance (signature ~ (m Style), MonadIO m, WidgetK a) => MethodInfo WidgetGetStyleMethodInfo a signature where - overloadedMethod _ = widgetGetStyle - --- method Widget::get_style_context --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TInterface "Gtk" "StyleContext" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_style_context" gtk_widget_get_style_context :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr StyleContext) - - -widgetGetStyleContext :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m StyleContext -- result -widgetGetStyleContext _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_style_context _obj' - checkUnexpectedReturnNULL "gtk_widget_get_style_context" result - result' <- (newObject StyleContext) result - touchManagedPtr _obj - return result' - -data WidgetGetStyleContextMethodInfo -instance (signature ~ (m StyleContext), MonadIO m, WidgetK a) => MethodInfo WidgetGetStyleContextMethodInfo a signature where - overloadedMethod _ = widgetGetStyleContext - --- method Widget::get_support_multidevice --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_support_multidevice" gtk_widget_get_support_multidevice :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetGetSupportMultidevice :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetGetSupportMultidevice _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_support_multidevice _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetGetSupportMultideviceMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetSupportMultideviceMethodInfo a signature where - overloadedMethod _ = widgetGetSupportMultidevice - --- method Widget::get_template_child --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget_type", argType = TBasicType TGType, 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 : TInterface "GObject" "Object" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_template_child" gtk_widget_get_template_child :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CGType -> -- widget_type : TBasicType TGType - CString -> -- name : TBasicType TUTF8 - IO (Ptr GObject.Object) - - -widgetGetTemplateChild :: - (MonadIO m, WidgetK a) => - a -- _obj - -> GType -- widgetType - -> T.Text -- name - -> m GObject.Object -- result -widgetGetTemplateChild _obj widgetType name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let widgetType' = gtypeToCGType widgetType - name' <- textToCString name - result <- gtk_widget_get_template_child _obj' widgetType' name' - checkUnexpectedReturnNULL "gtk_widget_get_template_child" result - result' <- (newObject GObject.Object) result - touchManagedPtr _obj - freeMem name' - return result' - -data WidgetGetTemplateChildMethodInfo -instance (signature ~ (GType -> T.Text -> m GObject.Object), MonadIO m, WidgetK a) => MethodInfo WidgetGetTemplateChildMethodInfo a signature where - overloadedMethod _ = widgetGetTemplateChild - --- method Widget::get_tooltip_markup --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_tooltip_markup" gtk_widget_get_tooltip_markup :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CString - - -widgetGetTooltipMarkup :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m T.Text -- result -widgetGetTooltipMarkup _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_tooltip_markup _obj' - checkUnexpectedReturnNULL "gtk_widget_get_tooltip_markup" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data WidgetGetTooltipMarkupMethodInfo -instance (signature ~ (m T.Text), MonadIO m, WidgetK a) => MethodInfo WidgetGetTooltipMarkupMethodInfo a signature where - overloadedMethod _ = widgetGetTooltipMarkup - --- method Widget::get_tooltip_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_tooltip_text" gtk_widget_get_tooltip_text :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CString - - -widgetGetTooltipText :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m T.Text -- result -widgetGetTooltipText _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_tooltip_text _obj' - checkUnexpectedReturnNULL "gtk_widget_get_tooltip_text" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data WidgetGetTooltipTextMethodInfo -instance (signature ~ (m T.Text), MonadIO m, WidgetK a) => MethodInfo WidgetGetTooltipTextMethodInfo a signature where - overloadedMethod _ = widgetGetTooltipText - --- method Widget::get_tooltip_window --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TInterface "Gtk" "Window" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_tooltip_window" gtk_widget_get_tooltip_window :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr Window) - - -widgetGetTooltipWindow :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Window -- result -widgetGetTooltipWindow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_tooltip_window _obj' - checkUnexpectedReturnNULL "gtk_widget_get_tooltip_window" result - result' <- (newObject Window) result - touchManagedPtr _obj - return result' - -data WidgetGetTooltipWindowMethodInfo -instance (signature ~ (m Window), MonadIO m, WidgetK a) => MethodInfo WidgetGetTooltipWindowMethodInfo a signature where - overloadedMethod _ = widgetGetTooltipWindow - --- method Widget::get_toplevel --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TInterface "Gtk" "Widget" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_toplevel" gtk_widget_get_toplevel :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr Widget) - - -widgetGetToplevel :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Widget -- result -widgetGetToplevel _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_toplevel _obj' - checkUnexpectedReturnNULL "gtk_widget_get_toplevel" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - -data WidgetGetToplevelMethodInfo -instance (signature ~ (m Widget), MonadIO m, WidgetK a) => MethodInfo WidgetGetToplevelMethodInfo a signature where - overloadedMethod _ = widgetGetToplevel - --- method Widget::get_valign --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TInterface "Gtk" "Align" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_valign" gtk_widget_get_valign :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CUInt - - -widgetGetValign :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Align -- result -widgetGetValign _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_valign _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data WidgetGetValignMethodInfo -instance (signature ~ (m Align), MonadIO m, WidgetK a) => MethodInfo WidgetGetValignMethodInfo a signature where - overloadedMethod _ = widgetGetValign - --- method Widget::get_valign_with_baseline --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TInterface "Gtk" "Align" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_valign_with_baseline" gtk_widget_get_valign_with_baseline :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CUInt - - -widgetGetValignWithBaseline :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Align -- result -widgetGetValignWithBaseline _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_valign_with_baseline _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data WidgetGetValignWithBaselineMethodInfo -instance (signature ~ (m Align), MonadIO m, WidgetK a) => MethodInfo WidgetGetValignWithBaselineMethodInfo a signature where - overloadedMethod _ = widgetGetValignWithBaseline - --- method Widget::get_vexpand --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_vexpand" gtk_widget_get_vexpand :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetGetVexpand :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetGetVexpand _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_vexpand _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetGetVexpandMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetVexpandMethodInfo a signature where - overloadedMethod _ = widgetGetVexpand - --- method Widget::get_vexpand_set --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_vexpand_set" gtk_widget_get_vexpand_set :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetGetVexpandSet :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetGetVexpandSet _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_vexpand_set _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetGetVexpandSetMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetVexpandSetMethodInfo a signature where - overloadedMethod _ = widgetGetVexpandSet - --- method Widget::get_visible --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_visible" gtk_widget_get_visible :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetGetVisible :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetGetVisible _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_visible _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetGetVisibleMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetVisibleMethodInfo a signature where - overloadedMethod _ = widgetGetVisible - --- method Widget::get_visual --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TInterface "Gdk" "Visual" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_visual" gtk_widget_get_visual :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr Gdk.Visual) - - -widgetGetVisual :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Gdk.Visual -- result -widgetGetVisual _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_visual _obj' - checkUnexpectedReturnNULL "gtk_widget_get_visual" result - result' <- (newObject Gdk.Visual) result - touchManagedPtr _obj - return result' - -data WidgetGetVisualMethodInfo -instance (signature ~ (m Gdk.Visual), MonadIO m, WidgetK a) => MethodInfo WidgetGetVisualMethodInfo a signature where - overloadedMethod _ = widgetGetVisual - --- method Widget::get_window --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TInterface "Gdk" "Window" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_window" gtk_widget_get_window :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr Gdk.Window) - - -widgetGetWindow :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Gdk.Window -- result -widgetGetWindow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_window _obj' - checkUnexpectedReturnNULL "gtk_widget_get_window" result - result' <- (newObject Gdk.Window) result - touchManagedPtr _obj - return result' - -data WidgetGetWindowMethodInfo -instance (signature ~ (m Gdk.Window), MonadIO m, WidgetK a) => MethodInfo WidgetGetWindowMethodInfo a signature where - overloadedMethod _ = widgetGetWindow - --- method Widget::grab_add --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_grab_add" gtk_grab_add :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetGrabAdd :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetGrabAdd _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_grab_add _obj' - touchManagedPtr _obj - return () - -data WidgetGrabAddMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetGrabAddMethodInfo a signature where - overloadedMethod _ = widgetGrabAdd - --- method Widget::grab_default --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_grab_default" gtk_widget_grab_default :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetGrabDefault :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetGrabDefault _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_grab_default _obj' - touchManagedPtr _obj - return () - -data WidgetGrabDefaultMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetGrabDefaultMethodInfo a signature where - overloadedMethod _ = widgetGrabDefault - --- method Widget::grab_focus --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_grab_focus" gtk_widget_grab_focus :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetGrabFocus :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetGrabFocus _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_grab_focus _obj' - touchManagedPtr _obj - return () - -data WidgetGrabFocusMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetGrabFocusMethodInfo a signature where - overloadedMethod _ = widgetGrabFocus - --- method Widget::grab_remove --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_grab_remove" gtk_grab_remove :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetGrabRemove :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetGrabRemove _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_grab_remove _obj' - touchManagedPtr _obj - return () - -data WidgetGrabRemoveMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetGrabRemoveMethodInfo a signature where - overloadedMethod _ = widgetGrabRemove - --- method Widget::has_default --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_has_default" gtk_widget_has_default :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetHasDefault :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetHasDefault _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_has_default _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetHasDefaultMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetHasDefaultMethodInfo a signature where - overloadedMethod _ = widgetHasDefault - --- method Widget::has_focus --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_has_focus" gtk_widget_has_focus :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetHasFocus :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetHasFocus _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_has_focus _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetHasFocusMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetHasFocusMethodInfo a signature where - overloadedMethod _ = widgetHasFocus - --- method Widget::has_grab --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_has_grab" gtk_widget_has_grab :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetHasGrab :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetHasGrab _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_has_grab _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetHasGrabMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetHasGrabMethodInfo a signature where - overloadedMethod _ = widgetHasGrab - --- method Widget::has_rc_style --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_has_rc_style" gtk_widget_has_rc_style :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - -{-# DEPRECATED widgetHasRcStyle ["(Since version 3.0)","Use #GtkStyleContext instead"]#-} -widgetHasRcStyle :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetHasRcStyle _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_has_rc_style _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetHasRcStyleMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetHasRcStyleMethodInfo a signature where - overloadedMethod _ = widgetHasRcStyle - --- method Widget::has_screen --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_has_screen" gtk_widget_has_screen :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetHasScreen :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetHasScreen _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_has_screen _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetHasScreenMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetHasScreenMethodInfo a signature where - overloadedMethod _ = widgetHasScreen - --- method Widget::has_visible_focus --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_has_visible_focus" gtk_widget_has_visible_focus :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetHasVisibleFocus :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetHasVisibleFocus _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_has_visible_focus _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetHasVisibleFocusMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetHasVisibleFocusMethodInfo a signature where - overloadedMethod _ = widgetHasVisibleFocus - --- method Widget::hide --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_hide" gtk_widget_hide :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetHide :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetHide _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_hide _obj' - touchManagedPtr _obj - return () - -data WidgetHideMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetHideMethodInfo a signature where - overloadedMethod _ = widgetHide - --- method Widget::hide_on_delete --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_hide_on_delete" gtk_widget_hide_on_delete :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetHideOnDelete :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetHideOnDelete _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_hide_on_delete _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetHideOnDeleteMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetHideOnDeleteMethodInfo a signature where - overloadedMethod _ = widgetHideOnDelete - --- method Widget::in_destruction --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_in_destruction" gtk_widget_in_destruction :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetInDestruction :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetInDestruction _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_in_destruction _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetInDestructionMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetInDestructionMethodInfo a signature where - overloadedMethod _ = widgetInDestruction - --- method Widget::init_template --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_init_template" gtk_widget_init_template :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetInitTemplate :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetInitTemplate _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_init_template _obj' - touchManagedPtr _obj - return () - -data WidgetInitTemplateMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetInitTemplateMethodInfo a signature where - overloadedMethod _ = widgetInitTemplate - --- method Widget::input_shape_combine_region --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_input_shape_combine_region" gtk_widget_input_shape_combine_region :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Cairo.Region -> -- region : TInterface "cairo" "Region" - IO () - - -widgetInputShapeCombineRegion :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Maybe (Cairo.Region) -- region - -> m () -- result -widgetInputShapeCombineRegion _obj region = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeRegion <- case region of - Nothing -> return nullPtr - Just jRegion -> do - let jRegion' = unsafeManagedPtrGetPtr jRegion - return jRegion' - gtk_widget_input_shape_combine_region _obj' maybeRegion - touchManagedPtr _obj - whenJust region touchManagedPtr - return () - -data WidgetInputShapeCombineRegionMethodInfo -instance (signature ~ (Maybe (Cairo.Region) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetInputShapeCombineRegionMethodInfo a signature where - overloadedMethod _ = widgetInputShapeCombineRegion - --- method Widget::insert_action_group --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 = "group", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_insert_action_group" gtk_widget_insert_action_group :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CString -> -- name : TBasicType TUTF8 - Ptr Gio.ActionGroup -> -- group : TInterface "Gio" "ActionGroup" - IO () - - -widgetInsertActionGroup :: - (MonadIO m, WidgetK a, Gio.ActionGroupK b) => - a -- _obj - -> T.Text -- name - -> Maybe (b) -- group - -> m () -- result -widgetInsertActionGroup _obj name group = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - maybeGroup <- case group of - Nothing -> return nullPtr - Just jGroup -> do - let jGroup' = unsafeManagedPtrCastPtr jGroup - return jGroup' - gtk_widget_insert_action_group _obj' name' maybeGroup - touchManagedPtr _obj - whenJust group touchManagedPtr - freeMem name' - return () - -data WidgetInsertActionGroupMethodInfo -instance (signature ~ (T.Text -> Maybe (b) -> m ()), MonadIO m, WidgetK a, Gio.ActionGroupK b) => MethodInfo WidgetInsertActionGroupMethodInfo a signature where - overloadedMethod _ = widgetInsertActionGroup - --- method Widget::intersect --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "intersection", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_intersect" gtk_widget_intersect :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Rectangle -> -- area : TInterface "Gdk" "Rectangle" - Ptr Gdk.Rectangle -> -- intersection : TInterface "Gdk" "Rectangle" - IO CInt - - -widgetIntersect :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Gdk.Rectangle -- area - -> Maybe (Gdk.Rectangle) -- intersection - -> m Bool -- result -widgetIntersect _obj area intersection = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let area' = unsafeManagedPtrGetPtr area - maybeIntersection <- case intersection of - Nothing -> return nullPtr - Just jIntersection -> do - let jIntersection' = unsafeManagedPtrGetPtr jIntersection - return jIntersection' - result <- gtk_widget_intersect _obj' area' maybeIntersection - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr area - whenJust intersection touchManagedPtr - return result' - -data WidgetIntersectMethodInfo -instance (signature ~ (Gdk.Rectangle -> Maybe (Gdk.Rectangle) -> m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetIntersectMethodInfo a signature where - overloadedMethod _ = widgetIntersect - --- method Widget::is_ancestor --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ancestor", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_is_ancestor" gtk_widget_is_ancestor :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Widget -> -- ancestor : TInterface "Gtk" "Widget" - IO CInt - - -widgetIsAncestor :: - (MonadIO m, WidgetK a, WidgetK b) => - a -- _obj - -> b -- ancestor - -> m Bool -- result -widgetIsAncestor _obj ancestor = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let ancestor' = unsafeManagedPtrCastPtr ancestor - result <- gtk_widget_is_ancestor _obj' ancestor' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr ancestor - return result' - -data WidgetIsAncestorMethodInfo -instance (signature ~ (b -> m Bool), MonadIO m, WidgetK a, WidgetK b) => MethodInfo WidgetIsAncestorMethodInfo a signature where - overloadedMethod _ = widgetIsAncestor - --- method Widget::is_composited --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_is_composited" gtk_widget_is_composited :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetIsComposited :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetIsComposited _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_is_composited _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetIsCompositedMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetIsCompositedMethodInfo a signature where - overloadedMethod _ = widgetIsComposited - --- method Widget::is_drawable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_is_drawable" gtk_widget_is_drawable :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetIsDrawable :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetIsDrawable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_is_drawable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetIsDrawableMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetIsDrawableMethodInfo a signature where - overloadedMethod _ = widgetIsDrawable - --- method Widget::is_focus --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_is_focus" gtk_widget_is_focus :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetIsFocus :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetIsFocus _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_is_focus _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetIsFocusMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetIsFocusMethodInfo a signature where - overloadedMethod _ = widgetIsFocus - --- method Widget::is_sensitive --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_is_sensitive" gtk_widget_is_sensitive :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetIsSensitive :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetIsSensitive _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_is_sensitive _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetIsSensitiveMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetIsSensitiveMethodInfo a signature where - overloadedMethod _ = widgetIsSensitive - --- method Widget::is_toplevel --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_is_toplevel" gtk_widget_is_toplevel :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetIsToplevel :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetIsToplevel _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_is_toplevel _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetIsToplevelMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetIsToplevelMethodInfo a signature where - overloadedMethod _ = widgetIsToplevel - --- method Widget::is_visible --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_is_visible" gtk_widget_is_visible :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetIsVisible :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m Bool -- result -widgetIsVisible _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_is_visible _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetIsVisibleMethodInfo -instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetIsVisibleMethodInfo a signature where - overloadedMethod _ = widgetIsVisible - --- method Widget::keynav_failed --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "direction", argType = TInterface "Gtk" "DirectionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_keynav_failed" gtk_widget_keynav_failed :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CUInt -> -- direction : TInterface "Gtk" "DirectionType" - IO CInt - - -widgetKeynavFailed :: - (MonadIO m, WidgetK a) => - a -- _obj - -> DirectionType -- direction - -> m Bool -- result -widgetKeynavFailed _obj direction = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let direction' = (fromIntegral . fromEnum) direction - result <- gtk_widget_keynav_failed _obj' direction' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetKeynavFailedMethodInfo -instance (signature ~ (DirectionType -> m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetKeynavFailedMethodInfo a signature where - overloadedMethod _ = widgetKeynavFailed - --- method Widget::list_accel_closures --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TGList (TInterface "GObject" "Closure") --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_list_accel_closures" gtk_widget_list_accel_closures :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr (GList (Ptr Closure))) - - -widgetListAccelClosures :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m [Closure] -- result -widgetListAccelClosures _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_list_accel_closures _obj' - checkUnexpectedReturnNULL "gtk_widget_list_accel_closures" result - result' <- unpackGList result - result'' <- mapM (newBoxed Closure) result' - g_list_free result - touchManagedPtr _obj - return result'' - -data WidgetListAccelClosuresMethodInfo -instance (signature ~ (m [Closure]), MonadIO m, WidgetK a) => MethodInfo WidgetListAccelClosuresMethodInfo a signature where - overloadedMethod _ = widgetListAccelClosures - --- method Widget::list_action_prefixes --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_list_action_prefixes" gtk_widget_list_action_prefixes :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr CString) - - -widgetListActionPrefixes :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m [T.Text] -- result -widgetListActionPrefixes _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_list_action_prefixes _obj' - checkUnexpectedReturnNULL "gtk_widget_list_action_prefixes" result - result' <- unpackZeroTerminatedUTF8CArray result - freeMem result - touchManagedPtr _obj - return result' - -data WidgetListActionPrefixesMethodInfo -instance (signature ~ (m [T.Text]), MonadIO m, WidgetK a) => MethodInfo WidgetListActionPrefixesMethodInfo a signature where - overloadedMethod _ = widgetListActionPrefixes - --- method Widget::list_mnemonic_labels --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TGList (TInterface "Gtk" "Widget") --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_list_mnemonic_labels" gtk_widget_list_mnemonic_labels :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr (GList (Ptr Widget))) - - -widgetListMnemonicLabels :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m [Widget] -- result -widgetListMnemonicLabels _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_list_mnemonic_labels _obj' - checkUnexpectedReturnNULL "gtk_widget_list_mnemonic_labels" result - result' <- unpackGList result - result'' <- mapM (newObject Widget) result' - g_list_free result - touchManagedPtr _obj - return result'' - -data WidgetListMnemonicLabelsMethodInfo -instance (signature ~ (m [Widget]), MonadIO m, WidgetK a) => MethodInfo WidgetListMnemonicLabelsMethodInfo a signature where - overloadedMethod _ = widgetListMnemonicLabels - --- method Widget::map --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_map" gtk_widget_map :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetMap :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetMap _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_map _obj' - touchManagedPtr _obj - return () - -data WidgetMapMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetMapMethodInfo a signature where - overloadedMethod _ = widgetMap - --- method Widget::mnemonic_activate --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_cycling", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_mnemonic_activate" gtk_widget_mnemonic_activate :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CInt -> -- group_cycling : TBasicType TBoolean - IO CInt - - -widgetMnemonicActivate :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Bool -- groupCycling - -> m Bool -- result -widgetMnemonicActivate _obj groupCycling = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let groupCycling' = (fromIntegral . fromEnum) groupCycling - result <- gtk_widget_mnemonic_activate _obj' groupCycling' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WidgetMnemonicActivateMethodInfo -instance (signature ~ (Bool -> m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetMnemonicActivateMethodInfo a signature where - overloadedMethod _ = widgetMnemonicActivate - --- method Widget::modify_base --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_modify_base" gtk_widget_modify_base :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CUInt -> -- state : TInterface "Gtk" "StateType" - Ptr Gdk.Color -> -- color : TInterface "Gdk" "Color" - IO () - -{-# DEPRECATED widgetModifyBase ["(Since version 3.0)","Use gtk_widget_override_background_color() instead"]#-} -widgetModifyBase :: - (MonadIO m, WidgetK a) => - a -- _obj - -> StateType -- state - -> Maybe (Gdk.Color) -- color - -> m () -- result -widgetModifyBase _obj state color = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let state' = (fromIntegral . fromEnum) state - maybeColor <- case color of - Nothing -> return nullPtr - Just jColor -> do - let jColor' = unsafeManagedPtrGetPtr jColor - return jColor' - gtk_widget_modify_base _obj' state' maybeColor - touchManagedPtr _obj - whenJust color touchManagedPtr - return () - -data WidgetModifyBaseMethodInfo -instance (signature ~ (StateType -> Maybe (Gdk.Color) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetModifyBaseMethodInfo a signature where - overloadedMethod _ = widgetModifyBase - --- method Widget::modify_bg --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_modify_bg" gtk_widget_modify_bg :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CUInt -> -- state : TInterface "Gtk" "StateType" - Ptr Gdk.Color -> -- color : TInterface "Gdk" "Color" - IO () - -{-# DEPRECATED widgetModifyBg ["(Since version 3.0)","Use gtk_widget_override_background_color() instead"]#-} -widgetModifyBg :: - (MonadIO m, WidgetK a) => - a -- _obj - -> StateType -- state - -> Maybe (Gdk.Color) -- color - -> m () -- result -widgetModifyBg _obj state color = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let state' = (fromIntegral . fromEnum) state - maybeColor <- case color of - Nothing -> return nullPtr - Just jColor -> do - let jColor' = unsafeManagedPtrGetPtr jColor - return jColor' - gtk_widget_modify_bg _obj' state' maybeColor - touchManagedPtr _obj - whenJust color touchManagedPtr - return () - -data WidgetModifyBgMethodInfo -instance (signature ~ (StateType -> Maybe (Gdk.Color) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetModifyBgMethodInfo a signature where - overloadedMethod _ = widgetModifyBg - --- method Widget::modify_cursor --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "primary", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "secondary", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_modify_cursor" gtk_widget_modify_cursor :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Color -> -- primary : TInterface "Gdk" "Color" - Ptr Gdk.Color -> -- secondary : TInterface "Gdk" "Color" - IO () - -{-# DEPRECATED widgetModifyCursor ["(Since version 3.0)","Use gtk_widget_override_cursor() instead."]#-} -widgetModifyCursor :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Maybe (Gdk.Color) -- primary - -> Maybe (Gdk.Color) -- secondary - -> m () -- result -widgetModifyCursor _obj primary secondary = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybePrimary <- case primary of - Nothing -> return nullPtr - Just jPrimary -> do - let jPrimary' = unsafeManagedPtrGetPtr jPrimary - return jPrimary' - maybeSecondary <- case secondary of - Nothing -> return nullPtr - Just jSecondary -> do - let jSecondary' = unsafeManagedPtrGetPtr jSecondary - return jSecondary' - gtk_widget_modify_cursor _obj' maybePrimary maybeSecondary - touchManagedPtr _obj - whenJust primary touchManagedPtr - whenJust secondary touchManagedPtr - return () - -data WidgetModifyCursorMethodInfo -instance (signature ~ (Maybe (Gdk.Color) -> Maybe (Gdk.Color) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetModifyCursorMethodInfo a signature where - overloadedMethod _ = widgetModifyCursor - --- method Widget::modify_fg --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_modify_fg" gtk_widget_modify_fg :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CUInt -> -- state : TInterface "Gtk" "StateType" - Ptr Gdk.Color -> -- color : TInterface "Gdk" "Color" - IO () - -{-# DEPRECATED widgetModifyFg ["(Since version 3.0)","Use gtk_widget_override_color() instead"]#-} -widgetModifyFg :: - (MonadIO m, WidgetK a) => - a -- _obj - -> StateType -- state - -> Maybe (Gdk.Color) -- color - -> m () -- result -widgetModifyFg _obj state color = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let state' = (fromIntegral . fromEnum) state - maybeColor <- case color of - Nothing -> return nullPtr - Just jColor -> do - let jColor' = unsafeManagedPtrGetPtr jColor - return jColor' - gtk_widget_modify_fg _obj' state' maybeColor - touchManagedPtr _obj - whenJust color touchManagedPtr - return () - -data WidgetModifyFgMethodInfo -instance (signature ~ (StateType -> Maybe (Gdk.Color) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetModifyFgMethodInfo a signature where - overloadedMethod _ = widgetModifyFg - --- method Widget::modify_font --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "font_desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_modify_font" gtk_widget_modify_font :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Pango.FontDescription -> -- font_desc : TInterface "Pango" "FontDescription" - IO () - -{-# DEPRECATED widgetModifyFont ["(Since version 3.0)","Use gtk_widget_override_font() instead"]#-} -widgetModifyFont :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Maybe (Pango.FontDescription) -- fontDesc - -> m () -- result -widgetModifyFont _obj fontDesc = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeFontDesc <- case fontDesc of - Nothing -> return nullPtr - Just jFontDesc -> do - let jFontDesc' = unsafeManagedPtrGetPtr jFontDesc - return jFontDesc' - gtk_widget_modify_font _obj' maybeFontDesc - touchManagedPtr _obj - whenJust fontDesc touchManagedPtr - return () - -data WidgetModifyFontMethodInfo -instance (signature ~ (Maybe (Pango.FontDescription) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetModifyFontMethodInfo a signature where - overloadedMethod _ = widgetModifyFont - --- method Widget::modify_style --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "style", argType = TInterface "Gtk" "RcStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_modify_style" gtk_widget_modify_style :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr RcStyle -> -- style : TInterface "Gtk" "RcStyle" - IO () - -{-# DEPRECATED widgetModifyStyle ["(Since version 3.0)","Use #GtkStyleContext with a custom #GtkStyleProvider instead"]#-} -widgetModifyStyle :: - (MonadIO m, WidgetK a, RcStyleK b) => - a -- _obj - -> b -- style - -> m () -- result -widgetModifyStyle _obj style = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let style' = unsafeManagedPtrCastPtr style - gtk_widget_modify_style _obj' style' - touchManagedPtr _obj - touchManagedPtr style - return () - -data WidgetModifyStyleMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, WidgetK a, RcStyleK b) => MethodInfo WidgetModifyStyleMethodInfo a signature where - overloadedMethod _ = widgetModifyStyle - --- method Widget::modify_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_modify_text" gtk_widget_modify_text :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CUInt -> -- state : TInterface "Gtk" "StateType" - Ptr Gdk.Color -> -- color : TInterface "Gdk" "Color" - IO () - -{-# DEPRECATED widgetModifyText ["(Since version 3.0)","Use gtk_widget_override_color() instead"]#-} -widgetModifyText :: - (MonadIO m, WidgetK a) => - a -- _obj - -> StateType -- state - -> Maybe (Gdk.Color) -- color - -> m () -- result -widgetModifyText _obj state color = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let state' = (fromIntegral . fromEnum) state - maybeColor <- case color of - Nothing -> return nullPtr - Just jColor -> do - let jColor' = unsafeManagedPtrGetPtr jColor - return jColor' - gtk_widget_modify_text _obj' state' maybeColor - touchManagedPtr _obj - whenJust color touchManagedPtr - return () - -data WidgetModifyTextMethodInfo -instance (signature ~ (StateType -> Maybe (Gdk.Color) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetModifyTextMethodInfo a signature where - overloadedMethod _ = widgetModifyText - --- method Widget::override_background_color --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_override_background_color" gtk_widget_override_background_color :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CUInt -> -- state : TInterface "Gtk" "StateFlags" - Ptr Gdk.RGBA -> -- color : TInterface "Gdk" "RGBA" - IO () - -{-# DEPRECATED widgetOverrideBackgroundColor ["(Since version 3.16)","This function is not useful in the context of CSS-based"," rendering. If you wish to change the way a widget renders its background"," you should use a custom CSS style, through an application-specific"," #GtkStyleProvider and a CSS style class. You can also override the default"," drawing of a widget through the #GtkWidget::draw signal, and use Cairo to"," draw a specific color, regardless of the CSS style."]#-} -widgetOverrideBackgroundColor :: - (MonadIO m, WidgetK a) => - a -- _obj - -> [StateFlags] -- state - -> Maybe (Gdk.RGBA) -- color - -> m () -- result -widgetOverrideBackgroundColor _obj state color = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let state' = gflagsToWord state - maybeColor <- case color of - Nothing -> return nullPtr - Just jColor -> do - let jColor' = unsafeManagedPtrGetPtr jColor - return jColor' - gtk_widget_override_background_color _obj' state' maybeColor - touchManagedPtr _obj - whenJust color touchManagedPtr - return () - -data WidgetOverrideBackgroundColorMethodInfo -instance (signature ~ ([StateFlags] -> Maybe (Gdk.RGBA) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetOverrideBackgroundColorMethodInfo a signature where - overloadedMethod _ = widgetOverrideBackgroundColor - --- method Widget::override_color --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_override_color" gtk_widget_override_color :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CUInt -> -- state : TInterface "Gtk" "StateFlags" - Ptr Gdk.RGBA -> -- color : TInterface "Gdk" "RGBA" - IO () - -{-# DEPRECATED widgetOverrideColor ["(Since version 3.16)","Use a custom style provider and style classes instead"]#-} -widgetOverrideColor :: - (MonadIO m, WidgetK a) => - a -- _obj - -> [StateFlags] -- state - -> Maybe (Gdk.RGBA) -- color - -> m () -- result -widgetOverrideColor _obj state color = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let state' = gflagsToWord state - maybeColor <- case color of - Nothing -> return nullPtr - Just jColor -> do - let jColor' = unsafeManagedPtrGetPtr jColor - return jColor' - gtk_widget_override_color _obj' state' maybeColor - touchManagedPtr _obj - whenJust color touchManagedPtr - return () - -data WidgetOverrideColorMethodInfo -instance (signature ~ ([StateFlags] -> Maybe (Gdk.RGBA) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetOverrideColorMethodInfo a signature where - overloadedMethod _ = widgetOverrideColor - --- method Widget::override_cursor --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cursor", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "secondary_cursor", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_override_cursor" gtk_widget_override_cursor :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.RGBA -> -- cursor : TInterface "Gdk" "RGBA" - Ptr Gdk.RGBA -> -- secondary_cursor : TInterface "Gdk" "RGBA" - IO () - -{-# DEPRECATED widgetOverrideCursor ["(Since version 3.16)","This function is not useful in the context of CSS-based"," rendering. If you wish to change the color used to render the primary"," and secondary cursors you should use a custom CSS style, through an"," application-specific #GtkStyleProvider and a CSS style class."]#-} -widgetOverrideCursor :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Maybe (Gdk.RGBA) -- cursor - -> Maybe (Gdk.RGBA) -- secondaryCursor - -> m () -- result -widgetOverrideCursor _obj cursor secondaryCursor = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCursor <- case cursor of - Nothing -> return nullPtr - Just jCursor -> do - let jCursor' = unsafeManagedPtrGetPtr jCursor - return jCursor' - maybeSecondaryCursor <- case secondaryCursor of - Nothing -> return nullPtr - Just jSecondaryCursor -> do - let jSecondaryCursor' = unsafeManagedPtrGetPtr jSecondaryCursor - return jSecondaryCursor' - gtk_widget_override_cursor _obj' maybeCursor maybeSecondaryCursor - touchManagedPtr _obj - whenJust cursor touchManagedPtr - whenJust secondaryCursor touchManagedPtr - return () - -data WidgetOverrideCursorMethodInfo -instance (signature ~ (Maybe (Gdk.RGBA) -> Maybe (Gdk.RGBA) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetOverrideCursorMethodInfo a signature where - overloadedMethod _ = widgetOverrideCursor - --- method Widget::override_font --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "font_desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_override_font" gtk_widget_override_font :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Pango.FontDescription -> -- font_desc : TInterface "Pango" "FontDescription" - IO () - -{-# DEPRECATED widgetOverrideFont ["(Since version 3.16)","This function is not useful in the context of CSS-based"," rendering. If you wish to change the font a widget uses to render its text"," you should use a custom CSS style, through an application-specific"," #GtkStyleProvider and a CSS style class."]#-} -widgetOverrideFont :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Maybe (Pango.FontDescription) -- fontDesc - -> m () -- result -widgetOverrideFont _obj fontDesc = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeFontDesc <- case fontDesc of - Nothing -> return nullPtr - Just jFontDesc -> do - let jFontDesc' = unsafeManagedPtrGetPtr jFontDesc - return jFontDesc' - gtk_widget_override_font _obj' maybeFontDesc - touchManagedPtr _obj - whenJust fontDesc touchManagedPtr - return () - -data WidgetOverrideFontMethodInfo -instance (signature ~ (Maybe (Pango.FontDescription) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetOverrideFontMethodInfo a signature where - overloadedMethod _ = widgetOverrideFont - --- method Widget::override_symbolic_color --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_override_symbolic_color" gtk_widget_override_symbolic_color :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CString -> -- name : TBasicType TUTF8 - Ptr Gdk.RGBA -> -- color : TInterface "Gdk" "RGBA" - IO () - -{-# DEPRECATED widgetOverrideSymbolicColor ["(Since version 3.16)","This function is not useful in the context of CSS-based"," rendering. If you wish to change the color used to render symbolic icons"," you should use a custom CSS style, through an application-specific"," #GtkStyleProvider and a CSS style class."]#-} -widgetOverrideSymbolicColor :: - (MonadIO m, WidgetK a) => - a -- _obj - -> T.Text -- name - -> Maybe (Gdk.RGBA) -- color - -> m () -- result -widgetOverrideSymbolicColor _obj name color = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - maybeColor <- case color of - Nothing -> return nullPtr - Just jColor -> do - let jColor' = unsafeManagedPtrGetPtr jColor - return jColor' - gtk_widget_override_symbolic_color _obj' name' maybeColor - touchManagedPtr _obj - whenJust color touchManagedPtr - freeMem name' - return () - -data WidgetOverrideSymbolicColorMethodInfo -instance (signature ~ (T.Text -> Maybe (Gdk.RGBA) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetOverrideSymbolicColorMethodInfo a signature where - overloadedMethod _ = widgetOverrideSymbolicColor - --- method Widget::path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path_length", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "path_reversed", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_path" gtk_widget_path :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Word32 -> -- path_length : TBasicType TUInt32 - Ptr CString -> -- path : TBasicType TUTF8 - Ptr CString -> -- path_reversed : TBasicType TUTF8 - IO () - -{-# DEPRECATED widgetPath ["(Since version 3.0)","Use gtk_widget_get_path() instead"]#-} -widgetPath :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m (Word32,T.Text,T.Text) -- result -widgetPath _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - pathLength <- allocMem :: IO (Ptr Word32) - path <- allocMem :: IO (Ptr CString) - pathReversed <- allocMem :: IO (Ptr CString) - gtk_widget_path _obj' pathLength path pathReversed - pathLength' <- peek pathLength - path' <- peek path - path'' <- cstringToText path' - freeMem path' - pathReversed' <- peek pathReversed - pathReversed'' <- cstringToText pathReversed' - freeMem pathReversed' - touchManagedPtr _obj - freeMem pathLength - freeMem path - freeMem pathReversed - return (pathLength', path'', pathReversed'') - -data WidgetPathMethodInfo -instance (signature ~ (m (Word32,T.Text,T.Text)), MonadIO m, WidgetK a) => MethodInfo WidgetPathMethodInfo a signature where - overloadedMethod _ = widgetPath - --- method Widget::queue_compute_expand --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_queue_compute_expand" gtk_widget_queue_compute_expand :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetQueueComputeExpand :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetQueueComputeExpand _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_queue_compute_expand _obj' - touchManagedPtr _obj - return () - -data WidgetQueueComputeExpandMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetQueueComputeExpandMethodInfo a signature where - overloadedMethod _ = widgetQueueComputeExpand - --- method Widget::queue_draw --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_queue_draw" gtk_widget_queue_draw :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetQueueDraw :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetQueueDraw _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_queue_draw _obj' - touchManagedPtr _obj - return () - -data WidgetQueueDrawMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetQueueDrawMethodInfo a signature where - overloadedMethod _ = widgetQueueDraw - --- method Widget::queue_draw_area --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_queue_draw_area" gtk_widget_queue_draw_area :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Int32 -> -- x : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 - IO () - - -widgetQueueDrawArea :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Int32 -- x - -> Int32 -- y - -> Int32 -- width - -> Int32 -- height - -> m () -- result -widgetQueueDrawArea _obj x y width height = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_queue_draw_area _obj' x y width height - touchManagedPtr _obj - return () - -data WidgetQueueDrawAreaMethodInfo -instance (signature ~ (Int32 -> Int32 -> Int32 -> Int32 -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetQueueDrawAreaMethodInfo a signature where - overloadedMethod _ = widgetQueueDrawArea - --- method Widget::queue_draw_region --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_queue_draw_region" gtk_widget_queue_draw_region :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Cairo.Region -> -- region : TInterface "cairo" "Region" - IO () - - -widgetQueueDrawRegion :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Cairo.Region -- region - -> m () -- result -widgetQueueDrawRegion _obj region = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let region' = unsafeManagedPtrGetPtr region - gtk_widget_queue_draw_region _obj' region' - touchManagedPtr _obj - touchManagedPtr region - return () - -data WidgetQueueDrawRegionMethodInfo -instance (signature ~ (Cairo.Region -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetQueueDrawRegionMethodInfo a signature where - overloadedMethod _ = widgetQueueDrawRegion - --- method Widget::queue_resize --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_queue_resize" gtk_widget_queue_resize :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetQueueResize :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetQueueResize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_queue_resize _obj' - touchManagedPtr _obj - return () - -data WidgetQueueResizeMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetQueueResizeMethodInfo a signature where - overloadedMethod _ = widgetQueueResize - --- method Widget::queue_resize_no_redraw --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_queue_resize_no_redraw" gtk_widget_queue_resize_no_redraw :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetQueueResizeNoRedraw :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetQueueResizeNoRedraw _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_queue_resize_no_redraw _obj' - touchManagedPtr _obj - return () - -data WidgetQueueResizeNoRedrawMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetQueueResizeNoRedrawMethodInfo a signature where - overloadedMethod _ = widgetQueueResizeNoRedraw - --- method Widget::realize --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_realize" gtk_widget_realize :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetRealize :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetRealize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_realize _obj' - touchManagedPtr _obj - return () - -data WidgetRealizeMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetRealizeMethodInfo a signature where - overloadedMethod _ = widgetRealize - --- method Widget::region_intersect --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 : TInterface "cairo" "Region" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_region_intersect" gtk_widget_region_intersect :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Cairo.Region -> -- region : TInterface "cairo" "Region" - IO (Ptr Cairo.Region) - -{-# DEPRECATED widgetRegionIntersect ["(Since version 3.14)","Use gtk_widget_get_allocation() and"," cairo_region_intersect_rectangle() to get the same behavior."]#-} -widgetRegionIntersect :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Cairo.Region -- region - -> m Cairo.Region -- result -widgetRegionIntersect _obj region = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let region' = unsafeManagedPtrGetPtr region - result <- gtk_widget_region_intersect _obj' region' - checkUnexpectedReturnNULL "gtk_widget_region_intersect" result - result' <- (wrapBoxed Cairo.Region) result - touchManagedPtr _obj - touchManagedPtr region - return result' - -data WidgetRegionIntersectMethodInfo -instance (signature ~ (Cairo.Region -> m Cairo.Region), MonadIO m, WidgetK a) => MethodInfo WidgetRegionIntersectMethodInfo a signature where - overloadedMethod _ = widgetRegionIntersect - --- method Widget::register_window --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_register_window" gtk_widget_register_window :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Window -> -- window : TInterface "Gdk" "Window" - IO () - - -widgetRegisterWindow :: - (MonadIO m, WidgetK a, Gdk.WindowK b) => - a -- _obj - -> b -- window - -> m () -- result -widgetRegisterWindow _obj window = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let window' = unsafeManagedPtrCastPtr window - gtk_widget_register_window _obj' window' - touchManagedPtr _obj - touchManagedPtr window - return () - -data WidgetRegisterWindowMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, WidgetK a, Gdk.WindowK b) => MethodInfo WidgetRegisterWindowMethodInfo a signature where - overloadedMethod _ = widgetRegisterWindow - --- method Widget::remove_accelerator --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_remove_accelerator" gtk_widget_remove_accelerator :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr AccelGroup -> -- accel_group : TInterface "Gtk" "AccelGroup" - Word32 -> -- accel_key : TBasicType TUInt32 - CUInt -> -- accel_mods : TInterface "Gdk" "ModifierType" - IO CInt - - -widgetRemoveAccelerator :: - (MonadIO m, WidgetK a, AccelGroupK b) => - a -- _obj - -> b -- accelGroup - -> Word32 -- accelKey - -> [Gdk.ModifierType] -- accelMods - -> m Bool -- result -widgetRemoveAccelerator _obj accelGroup accelKey accelMods = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let accelGroup' = unsafeManagedPtrCastPtr accelGroup - let accelMods' = gflagsToWord accelMods - result <- gtk_widget_remove_accelerator _obj' accelGroup' accelKey accelMods' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr accelGroup - return result' - -data WidgetRemoveAcceleratorMethodInfo -instance (signature ~ (b -> Word32 -> [Gdk.ModifierType] -> m Bool), MonadIO m, WidgetK a, AccelGroupK b) => MethodInfo WidgetRemoveAcceleratorMethodInfo a signature where - overloadedMethod _ = widgetRemoveAccelerator - --- method Widget::remove_mnemonic_label --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_remove_mnemonic_label" gtk_widget_remove_mnemonic_label :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Widget -> -- label : TInterface "Gtk" "Widget" - IO () - - -widgetRemoveMnemonicLabel :: - (MonadIO m, WidgetK a, WidgetK b) => - a -- _obj - -> b -- label - -> m () -- result -widgetRemoveMnemonicLabel _obj label = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let label' = unsafeManagedPtrCastPtr label - gtk_widget_remove_mnemonic_label _obj' label' - touchManagedPtr _obj - touchManagedPtr label - return () - -data WidgetRemoveMnemonicLabelMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, WidgetK a, WidgetK b) => MethodInfo WidgetRemoveMnemonicLabelMethodInfo a signature where - overloadedMethod _ = widgetRemoveMnemonicLabel - --- method Widget::remove_tick_callback --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_remove_tick_callback" gtk_widget_remove_tick_callback :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Word32 -> -- id : TBasicType TUInt32 - IO () - - -widgetRemoveTickCallback :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Word32 -- id - -> m () -- result -widgetRemoveTickCallback _obj id = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_remove_tick_callback _obj' id - touchManagedPtr _obj - return () - -data WidgetRemoveTickCallbackMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetRemoveTickCallbackMethodInfo a signature where - overloadedMethod _ = widgetRemoveTickCallback - --- method Widget::render_icon --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TInterface "GdkPixbuf" "Pixbuf" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_render_icon" gtk_widget_render_icon :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CString -> -- stock_id : TBasicType TUTF8 - Int32 -> -- size : TBasicType TInt32 - CString -> -- detail : TBasicType TUTF8 - IO (Ptr GdkPixbuf.Pixbuf) - -{-# DEPRECATED widgetRenderIcon ["(Since version 3.0)","Use gtk_widget_render_icon_pixbuf() instead."]#-} -widgetRenderIcon :: - (MonadIO m, WidgetK a) => - a -- _obj - -> T.Text -- stockId - -> Int32 -- size - -> Maybe (T.Text) -- detail - -> m GdkPixbuf.Pixbuf -- result -widgetRenderIcon _obj stockId size detail = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - stockId' <- textToCString stockId - maybeDetail <- case detail of - Nothing -> return nullPtr - Just jDetail -> do - jDetail' <- textToCString jDetail - return jDetail' - result <- gtk_widget_render_icon _obj' stockId' size maybeDetail - checkUnexpectedReturnNULL "gtk_widget_render_icon" result - result' <- (wrapObject GdkPixbuf.Pixbuf) result - touchManagedPtr _obj - freeMem stockId' - freeMem maybeDetail - return result' - -data WidgetRenderIconMethodInfo -instance (signature ~ (T.Text -> Int32 -> Maybe (T.Text) -> m GdkPixbuf.Pixbuf), MonadIO m, WidgetK a) => MethodInfo WidgetRenderIconMethodInfo a signature where - overloadedMethod _ = widgetRenderIcon - --- method Widget::render_icon_pixbuf --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TInterface "GdkPixbuf" "Pixbuf" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_render_icon_pixbuf" gtk_widget_render_icon_pixbuf :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CString -> -- stock_id : TBasicType TUTF8 - Int32 -> -- size : TBasicType TInt32 - IO (Ptr GdkPixbuf.Pixbuf) - -{-# DEPRECATED widgetRenderIconPixbuf ["(Since version 3.10)","Use gtk_icon_theme_load_icon() instead."]#-} -widgetRenderIconPixbuf :: - (MonadIO m, WidgetK a) => - a -- _obj - -> T.Text -- stockId - -> Int32 -- size - -> m GdkPixbuf.Pixbuf -- result -widgetRenderIconPixbuf _obj stockId size = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - stockId' <- textToCString stockId - result <- gtk_widget_render_icon_pixbuf _obj' stockId' size - checkUnexpectedReturnNULL "gtk_widget_render_icon_pixbuf" result - result' <- (wrapObject GdkPixbuf.Pixbuf) result - touchManagedPtr _obj - freeMem stockId' - return result' - -data WidgetRenderIconPixbufMethodInfo -instance (signature ~ (T.Text -> Int32 -> m GdkPixbuf.Pixbuf), MonadIO m, WidgetK a) => MethodInfo WidgetRenderIconPixbufMethodInfo a signature where - overloadedMethod _ = widgetRenderIconPixbuf - --- method Widget::reparent --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_parent", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_reparent" gtk_widget_reparent :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Widget -> -- new_parent : TInterface "Gtk" "Widget" - IO () - -{-# DEPRECATED widgetReparent ["(Since version 3.14)","Use gtk_container_remove() and gtk_container_add()."]#-} -widgetReparent :: - (MonadIO m, WidgetK a, WidgetK b) => - a -- _obj - -> b -- newParent - -> m () -- result -widgetReparent _obj newParent = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let newParent' = unsafeManagedPtrCastPtr newParent - gtk_widget_reparent _obj' newParent' - touchManagedPtr _obj - touchManagedPtr newParent - return () - -data WidgetReparentMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, WidgetK a, WidgetK b) => MethodInfo WidgetReparentMethodInfo a signature where - overloadedMethod _ = widgetReparent - --- method Widget::reset_rc_styles --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_reset_rc_styles" gtk_widget_reset_rc_styles :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - -{-# DEPRECATED widgetResetRcStyles ["(Since version 3.0)","Use #GtkStyleContext instead, and gtk_widget_reset_style()"]#-} -widgetResetRcStyles :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetResetRcStyles _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_reset_rc_styles _obj' - touchManagedPtr _obj - return () - -data WidgetResetRcStylesMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetResetRcStylesMethodInfo a signature where - overloadedMethod _ = widgetResetRcStyles - --- method Widget::reset_style --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_reset_style" gtk_widget_reset_style :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetResetStyle :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetResetStyle _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_reset_style _obj' - touchManagedPtr _obj - return () - -data WidgetResetStyleMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetResetStyleMethodInfo a signature where - overloadedMethod _ = widgetResetStyle - --- method Widget::send_expose --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_send_expose" gtk_widget_send_expose :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Event -> -- event : TInterface "Gdk" "Event" - IO Int32 - - -widgetSendExpose :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Gdk.Event -- event - -> m Int32 -- result -widgetSendExpose _obj event = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let event' = unsafeManagedPtrGetPtr event - result <- gtk_widget_send_expose _obj' event' - touchManagedPtr _obj - touchManagedPtr event - return result - -data WidgetSendExposeMethodInfo -instance (signature ~ (Gdk.Event -> m Int32), MonadIO m, WidgetK a) => MethodInfo WidgetSendExposeMethodInfo a signature where - overloadedMethod _ = widgetSendExpose - --- method Widget::send_focus_change --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_send_focus_change" gtk_widget_send_focus_change :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Event -> -- event : TInterface "Gdk" "Event" - IO CInt - - -widgetSendFocusChange :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Gdk.Event -- event - -> m Bool -- result -widgetSendFocusChange _obj event = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let event' = unsafeManagedPtrGetPtr event - result <- gtk_widget_send_focus_change _obj' event' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr event - return result' - -data WidgetSendFocusChangeMethodInfo -instance (signature ~ (Gdk.Event -> m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetSendFocusChangeMethodInfo a signature where - overloadedMethod _ = widgetSendFocusChange - --- method Widget::set_accel_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_accel_path" gtk_widget_set_accel_path :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CString -> -- accel_path : TBasicType TUTF8 - Ptr AccelGroup -> -- accel_group : TInterface "Gtk" "AccelGroup" - IO () - - -widgetSetAccelPath :: - (MonadIO m, WidgetK a, AccelGroupK b) => - a -- _obj - -> Maybe (T.Text) -- accelPath - -> Maybe (b) -- accelGroup - -> m () -- result -widgetSetAccelPath _obj accelPath accelGroup = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeAccelPath <- case accelPath of - Nothing -> return nullPtr - Just jAccelPath -> do - jAccelPath' <- textToCString jAccelPath - return jAccelPath' - maybeAccelGroup <- case accelGroup of - Nothing -> return nullPtr - Just jAccelGroup -> do - let jAccelGroup' = unsafeManagedPtrCastPtr jAccelGroup - return jAccelGroup' - gtk_widget_set_accel_path _obj' maybeAccelPath maybeAccelGroup - touchManagedPtr _obj - whenJust accelGroup touchManagedPtr - freeMem maybeAccelPath - return () - -data WidgetSetAccelPathMethodInfo -instance (signature ~ (Maybe (T.Text) -> Maybe (b) -> m ()), MonadIO m, WidgetK a, AccelGroupK b) => MethodInfo WidgetSetAccelPathMethodInfo a signature where - overloadedMethod _ = widgetSetAccelPath - --- method Widget::set_allocation --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allocation", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_allocation" gtk_widget_set_allocation :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Rectangle -> -- allocation : TInterface "Gdk" "Rectangle" - IO () - - -widgetSetAllocation :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Gdk.Rectangle -- allocation - -> m () -- result -widgetSetAllocation _obj allocation = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let allocation' = unsafeManagedPtrGetPtr allocation - gtk_widget_set_allocation _obj' allocation' - touchManagedPtr _obj - touchManagedPtr allocation - return () - -data WidgetSetAllocationMethodInfo -instance (signature ~ (Gdk.Rectangle -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetAllocationMethodInfo a signature where - overloadedMethod _ = widgetSetAllocation - --- method Widget::set_app_paintable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "app_paintable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_app_paintable" gtk_widget_set_app_paintable :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CInt -> -- app_paintable : TBasicType TBoolean - IO () - - -widgetSetAppPaintable :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Bool -- appPaintable - -> m () -- result -widgetSetAppPaintable _obj appPaintable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let appPaintable' = (fromIntegral . fromEnum) appPaintable - gtk_widget_set_app_paintable _obj' appPaintable' - touchManagedPtr _obj - return () - -data WidgetSetAppPaintableMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetAppPaintableMethodInfo a signature where - overloadedMethod _ = widgetSetAppPaintable - --- method Widget::set_can_default --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "can_default", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_can_default" gtk_widget_set_can_default :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CInt -> -- can_default : TBasicType TBoolean - IO () - - -widgetSetCanDefault :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Bool -- canDefault - -> m () -- result -widgetSetCanDefault _obj canDefault = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let canDefault' = (fromIntegral . fromEnum) canDefault - gtk_widget_set_can_default _obj' canDefault' - touchManagedPtr _obj - return () - -data WidgetSetCanDefaultMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetCanDefaultMethodInfo a signature where - overloadedMethod _ = widgetSetCanDefault - --- method Widget::set_can_focus --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "can_focus", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_can_focus" gtk_widget_set_can_focus :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CInt -> -- can_focus : TBasicType TBoolean - IO () - - -widgetSetCanFocus :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Bool -- canFocus - -> m () -- result -widgetSetCanFocus _obj canFocus = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let canFocus' = (fromIntegral . fromEnum) canFocus - gtk_widget_set_can_focus _obj' canFocus' - touchManagedPtr _obj - return () - -data WidgetSetCanFocusMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetCanFocusMethodInfo a signature where - overloadedMethod _ = widgetSetCanFocus - --- method Widget::set_child_visible --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_child_visible" gtk_widget_set_child_visible :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CInt -> -- is_visible : TBasicType TBoolean - IO () - - -widgetSetChildVisible :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Bool -- isVisible - -> m () -- result -widgetSetChildVisible _obj isVisible = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let isVisible' = (fromIntegral . fromEnum) isVisible - gtk_widget_set_child_visible _obj' isVisible' - touchManagedPtr _obj - return () - -data WidgetSetChildVisibleMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetChildVisibleMethodInfo a signature where - overloadedMethod _ = widgetSetChildVisible - --- method Widget::set_clip --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "clip", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_clip" gtk_widget_set_clip :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Rectangle -> -- clip : TInterface "Gdk" "Rectangle" - IO () - - -widgetSetClip :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Gdk.Rectangle -- clip - -> m () -- result -widgetSetClip _obj clip = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let clip' = unsafeManagedPtrGetPtr clip - gtk_widget_set_clip _obj' clip' - touchManagedPtr _obj - touchManagedPtr clip - return () - -data WidgetSetClipMethodInfo -instance (signature ~ (Gdk.Rectangle -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetClipMethodInfo a signature where - overloadedMethod _ = widgetSetClip - --- method Widget::set_composite_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_composite_name" gtk_widget_set_composite_name :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CString -> -- name : TBasicType TUTF8 - IO () - -{-# DEPRECATED widgetSetCompositeName ["(Since version 3.10)","Use gtk_widget_class_set_template(), or don\8217t use this API at all."]#-} -widgetSetCompositeName :: - (MonadIO m, WidgetK a) => - a -- _obj - -> T.Text -- name - -> m () -- result -widgetSetCompositeName _obj name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - gtk_widget_set_composite_name _obj' name' - touchManagedPtr _obj - freeMem name' - return () - -data WidgetSetCompositeNameMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetCompositeNameMethodInfo a signature where - overloadedMethod _ = widgetSetCompositeName - --- method Widget::set_device_enabled --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_device_enabled" gtk_widget_set_device_enabled :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Device -> -- device : TInterface "Gdk" "Device" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -widgetSetDeviceEnabled :: - (MonadIO m, WidgetK a, Gdk.DeviceK b) => - a -- _obj - -> b -- device - -> Bool -- enabled - -> m () -- result -widgetSetDeviceEnabled _obj device enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let device' = unsafeManagedPtrCastPtr device - let enabled' = (fromIntegral . fromEnum) enabled - gtk_widget_set_device_enabled _obj' device' enabled' - touchManagedPtr _obj - touchManagedPtr device - return () - -data WidgetSetDeviceEnabledMethodInfo -instance (signature ~ (b -> Bool -> m ()), MonadIO m, WidgetK a, Gdk.DeviceK b) => MethodInfo WidgetSetDeviceEnabledMethodInfo a signature where - overloadedMethod _ = widgetSetDeviceEnabled - --- method Widget::set_device_events --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 = "events", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_device_events" gtk_widget_set_device_events :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Device -> -- device : TInterface "Gdk" "Device" - CUInt -> -- events : TInterface "Gdk" "EventMask" - IO () - - -widgetSetDeviceEvents :: - (MonadIO m, WidgetK a, Gdk.DeviceK b) => - a -- _obj - -> b -- device - -> [Gdk.EventMask] -- events - -> m () -- result -widgetSetDeviceEvents _obj device events = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let device' = unsafeManagedPtrCastPtr device - let events' = gflagsToWord events - gtk_widget_set_device_events _obj' device' events' - touchManagedPtr _obj - touchManagedPtr device - return () - -data WidgetSetDeviceEventsMethodInfo -instance (signature ~ (b -> [Gdk.EventMask] -> m ()), MonadIO m, WidgetK a, Gdk.DeviceK b) => MethodInfo WidgetSetDeviceEventsMethodInfo a signature where - overloadedMethod _ = widgetSetDeviceEvents - --- method Widget::set_direction --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dir", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_direction" gtk_widget_set_direction :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CUInt -> -- dir : TInterface "Gtk" "TextDirection" - IO () - - -widgetSetDirection :: - (MonadIO m, WidgetK a) => - a -- _obj - -> TextDirection -- dir - -> m () -- result -widgetSetDirection _obj dir = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let dir' = (fromIntegral . fromEnum) dir - gtk_widget_set_direction _obj' dir' - touchManagedPtr _obj - return () - -data WidgetSetDirectionMethodInfo -instance (signature ~ (TextDirection -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetDirectionMethodInfo a signature where - overloadedMethod _ = widgetSetDirection - --- method Widget::set_double_buffered --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "double_buffered", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_double_buffered" gtk_widget_set_double_buffered :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CInt -> -- double_buffered : TBasicType TBoolean - IO () - -{-# DEPRECATED widgetSetDoubleBuffered ["(Since version 3.14)","This function does not work under non-X11 backends or with","non-native windows.","It should not be used in newly written code."]#-} -widgetSetDoubleBuffered :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Bool -- doubleBuffered - -> m () -- result -widgetSetDoubleBuffered _obj doubleBuffered = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let doubleBuffered' = (fromIntegral . fromEnum) doubleBuffered - gtk_widget_set_double_buffered _obj' doubleBuffered' - touchManagedPtr _obj - return () - -data WidgetSetDoubleBufferedMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetDoubleBufferedMethodInfo a signature where - overloadedMethod _ = widgetSetDoubleBuffered - --- method Widget::set_events --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "events", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_events" gtk_widget_set_events :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Int32 -> -- events : TBasicType TInt32 - IO () - - -widgetSetEvents :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Int32 -- events - -> m () -- result -widgetSetEvents _obj events = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_set_events _obj' events - touchManagedPtr _obj - return () - -data WidgetSetEventsMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetEventsMethodInfo a signature where - overloadedMethod _ = widgetSetEvents - --- method Widget::set_font_map --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "font_map", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_font_map" gtk_widget_set_font_map :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Pango.FontMap -> -- font_map : TInterface "Pango" "FontMap" - IO () - - -widgetSetFontMap :: - (MonadIO m, WidgetK a, Pango.FontMapK b) => - a -- _obj - -> Maybe (b) -- fontMap - -> m () -- result -widgetSetFontMap _obj fontMap = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeFontMap <- case fontMap of - Nothing -> return nullPtr - Just jFontMap -> do - let jFontMap' = unsafeManagedPtrCastPtr jFontMap - return jFontMap' - gtk_widget_set_font_map _obj' maybeFontMap - touchManagedPtr _obj - whenJust fontMap touchManagedPtr - return () - -data WidgetSetFontMapMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, WidgetK a, Pango.FontMapK b) => MethodInfo WidgetSetFontMapMethodInfo a signature where - overloadedMethod _ = widgetSetFontMap - --- method Widget::set_font_options --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_font_options" gtk_widget_set_font_options :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Cairo.FontOptions -> -- options : TInterface "cairo" "FontOptions" - IO () - - -widgetSetFontOptions :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Maybe (Cairo.FontOptions) -- options - -> m () -- result -widgetSetFontOptions _obj options = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeOptions <- case options of - Nothing -> return nullPtr - Just jOptions -> do - let jOptions' = unsafeManagedPtrGetPtr jOptions - return jOptions' - gtk_widget_set_font_options _obj' maybeOptions - touchManagedPtr _obj - whenJust options touchManagedPtr - return () - -data WidgetSetFontOptionsMethodInfo -instance (signature ~ (Maybe (Cairo.FontOptions) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetFontOptionsMethodInfo a signature where - overloadedMethod _ = widgetSetFontOptions - --- method Widget::set_halign --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "align", argType = TInterface "Gtk" "Align", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_halign" gtk_widget_set_halign :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CUInt -> -- align : TInterface "Gtk" "Align" - IO () - - -widgetSetHalign :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Align -- align - -> m () -- result -widgetSetHalign _obj align = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let align' = (fromIntegral . fromEnum) align - gtk_widget_set_halign _obj' align' - touchManagedPtr _obj - return () - -data WidgetSetHalignMethodInfo -instance (signature ~ (Align -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetHalignMethodInfo a signature where - overloadedMethod _ = widgetSetHalign - --- method Widget::set_has_tooltip --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "has_tooltip", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_has_tooltip" gtk_widget_set_has_tooltip :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CInt -> -- has_tooltip : TBasicType TBoolean - IO () - - -widgetSetHasTooltip :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Bool -- hasTooltip - -> m () -- result -widgetSetHasTooltip _obj hasTooltip = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let hasTooltip' = (fromIntegral . fromEnum) hasTooltip - gtk_widget_set_has_tooltip _obj' hasTooltip' - touchManagedPtr _obj - return () - -data WidgetSetHasTooltipMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetHasTooltipMethodInfo a signature where - overloadedMethod _ = widgetSetHasTooltip - --- method Widget::set_has_window --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "has_window", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_has_window" gtk_widget_set_has_window :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CInt -> -- has_window : TBasicType TBoolean - IO () - - -widgetSetHasWindow :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Bool -- hasWindow - -> m () -- result -widgetSetHasWindow _obj hasWindow = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let hasWindow' = (fromIntegral . fromEnum) hasWindow - gtk_widget_set_has_window _obj' hasWindow' - touchManagedPtr _obj - return () - -data WidgetSetHasWindowMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetHasWindowMethodInfo a signature where - overloadedMethod _ = widgetSetHasWindow - --- method Widget::set_hexpand --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_hexpand" gtk_widget_set_hexpand :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CInt -> -- expand : TBasicType TBoolean - IO () - - -widgetSetHexpand :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Bool -- expand - -> m () -- result -widgetSetHexpand _obj expand = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let expand' = (fromIntegral . fromEnum) expand - gtk_widget_set_hexpand _obj' expand' - touchManagedPtr _obj - return () - -data WidgetSetHexpandMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetHexpandMethodInfo a signature where - overloadedMethod _ = widgetSetHexpand - --- method Widget::set_hexpand_set --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "set", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_hexpand_set" gtk_widget_set_hexpand_set :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CInt -> -- set : TBasicType TBoolean - IO () - - -widgetSetHexpandSet :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Bool -- set - -> m () -- result -widgetSetHexpandSet _obj set = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let set' = (fromIntegral . fromEnum) set - gtk_widget_set_hexpand_set _obj' set' - touchManagedPtr _obj - return () - -data WidgetSetHexpandSetMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetHexpandSetMethodInfo a signature where - overloadedMethod _ = widgetSetHexpandSet - --- method Widget::set_mapped --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mapped", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_mapped" gtk_widget_set_mapped :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CInt -> -- mapped : TBasicType TBoolean - IO () - - -widgetSetMapped :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Bool -- mapped - -> m () -- result -widgetSetMapped _obj mapped = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let mapped' = (fromIntegral . fromEnum) mapped - gtk_widget_set_mapped _obj' mapped' - touchManagedPtr _obj - return () - -data WidgetSetMappedMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetMappedMethodInfo a signature where - overloadedMethod _ = widgetSetMapped - --- method Widget::set_margin_bottom --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_margin_bottom" gtk_widget_set_margin_bottom :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Int32 -> -- margin : TBasicType TInt32 - IO () - - -widgetSetMarginBottom :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Int32 -- margin - -> m () -- result -widgetSetMarginBottom _obj margin = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_set_margin_bottom _obj' margin - touchManagedPtr _obj - return () - -data WidgetSetMarginBottomMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetMarginBottomMethodInfo a signature where - overloadedMethod _ = widgetSetMarginBottom - --- method Widget::set_margin_end --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_margin_end" gtk_widget_set_margin_end :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Int32 -> -- margin : TBasicType TInt32 - IO () - - -widgetSetMarginEnd :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Int32 -- margin - -> m () -- result -widgetSetMarginEnd _obj margin = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_set_margin_end _obj' margin - touchManagedPtr _obj - return () - -data WidgetSetMarginEndMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetMarginEndMethodInfo a signature where - overloadedMethod _ = widgetSetMarginEnd - --- method Widget::set_margin_left --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_margin_left" gtk_widget_set_margin_left :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Int32 -> -- margin : TBasicType TInt32 - IO () - -{-# DEPRECATED widgetSetMarginLeft ["(Since version 3.12)","Use gtk_widget_set_margin_start() instead."]#-} -widgetSetMarginLeft :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Int32 -- margin - -> m () -- result -widgetSetMarginLeft _obj margin = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_set_margin_left _obj' margin - touchManagedPtr _obj - return () - -data WidgetSetMarginLeftMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetMarginLeftMethodInfo a signature where - overloadedMethod _ = widgetSetMarginLeft - --- method Widget::set_margin_right --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_margin_right" gtk_widget_set_margin_right :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Int32 -> -- margin : TBasicType TInt32 - IO () - -{-# DEPRECATED widgetSetMarginRight ["(Since version 3.12)","Use gtk_widget_set_margin_end() instead."]#-} -widgetSetMarginRight :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Int32 -- margin - -> m () -- result -widgetSetMarginRight _obj margin = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_set_margin_right _obj' margin - touchManagedPtr _obj - return () - -data WidgetSetMarginRightMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetMarginRightMethodInfo a signature where - overloadedMethod _ = widgetSetMarginRight - --- method Widget::set_margin_start --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_margin_start" gtk_widget_set_margin_start :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Int32 -> -- margin : TBasicType TInt32 - IO () - - -widgetSetMarginStart :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Int32 -- margin - -> m () -- result -widgetSetMarginStart _obj margin = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_set_margin_start _obj' margin - touchManagedPtr _obj - return () - -data WidgetSetMarginStartMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetMarginStartMethodInfo a signature where - overloadedMethod _ = widgetSetMarginStart - --- method Widget::set_margin_top --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_margin_top" gtk_widget_set_margin_top :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Int32 -> -- margin : TBasicType TInt32 - IO () - - -widgetSetMarginTop :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Int32 -- margin - -> m () -- result -widgetSetMarginTop _obj margin = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_set_margin_top _obj' margin - touchManagedPtr _obj - return () - -data WidgetSetMarginTopMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetMarginTopMethodInfo a signature where - overloadedMethod _ = widgetSetMarginTop - --- method Widget::set_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_name" gtk_widget_set_name :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CString -> -- name : TBasicType TUTF8 - IO () - - -widgetSetName :: - (MonadIO m, WidgetK a) => - a -- _obj - -> T.Text -- name - -> m () -- result -widgetSetName _obj name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - gtk_widget_set_name _obj' name' - touchManagedPtr _obj - freeMem name' - return () - -data WidgetSetNameMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetNameMethodInfo a signature where - overloadedMethod _ = widgetSetName - --- method Widget::set_no_show_all --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "no_show_all", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_no_show_all" gtk_widget_set_no_show_all :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CInt -> -- no_show_all : TBasicType TBoolean - IO () - - -widgetSetNoShowAll :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Bool -- noShowAll - -> m () -- result -widgetSetNoShowAll _obj noShowAll = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let noShowAll' = (fromIntegral . fromEnum) noShowAll - gtk_widget_set_no_show_all _obj' noShowAll' - touchManagedPtr _obj - return () - -data WidgetSetNoShowAllMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetNoShowAllMethodInfo a signature where - overloadedMethod _ = widgetSetNoShowAll - --- method Widget::set_opacity --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_opacity" gtk_widget_set_opacity :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CDouble -> -- opacity : TBasicType TDouble - IO () - - -widgetSetOpacity :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Double -- opacity - -> m () -- result -widgetSetOpacity _obj opacity = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let opacity' = realToFrac opacity - gtk_widget_set_opacity _obj' opacity' - touchManagedPtr _obj - return () - -data WidgetSetOpacityMethodInfo -instance (signature ~ (Double -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetOpacityMethodInfo a signature where - overloadedMethod _ = widgetSetOpacity - --- method Widget::set_parent --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_parent" gtk_widget_set_parent :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Widget -> -- parent : TInterface "Gtk" "Widget" - IO () - - -widgetSetParent :: - (MonadIO m, WidgetK a, WidgetK b) => - a -- _obj - -> b -- parent - -> m () -- result -widgetSetParent _obj parent = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let parent' = unsafeManagedPtrCastPtr parent - gtk_widget_set_parent _obj' parent' - touchManagedPtr _obj - touchManagedPtr parent - return () - -data WidgetSetParentMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, WidgetK a, WidgetK b) => MethodInfo WidgetSetParentMethodInfo a signature where - overloadedMethod _ = widgetSetParent - --- method Widget::set_parent_window --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_parent_window" gtk_widget_set_parent_window :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Window -> -- parent_window : TInterface "Gdk" "Window" - IO () - - -widgetSetParentWindow :: - (MonadIO m, WidgetK a, Gdk.WindowK b) => - a -- _obj - -> b -- parentWindow - -> m () -- result -widgetSetParentWindow _obj parentWindow = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let parentWindow' = unsafeManagedPtrCastPtr parentWindow - gtk_widget_set_parent_window _obj' parentWindow' - touchManagedPtr _obj - touchManagedPtr parentWindow - return () - -data WidgetSetParentWindowMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, WidgetK a, Gdk.WindowK b) => MethodInfo WidgetSetParentWindowMethodInfo a signature where - overloadedMethod _ = widgetSetParentWindow - --- method Widget::set_realized --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "realized", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_realized" gtk_widget_set_realized :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CInt -> -- realized : TBasicType TBoolean - IO () - - -widgetSetRealized :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Bool -- realized - -> m () -- result -widgetSetRealized _obj realized = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let realized' = (fromIntegral . fromEnum) realized - gtk_widget_set_realized _obj' realized' - touchManagedPtr _obj - return () - -data WidgetSetRealizedMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetRealizedMethodInfo a signature where - overloadedMethod _ = widgetSetRealized - --- method Widget::set_receives_default --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "receives_default", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_receives_default" gtk_widget_set_receives_default :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CInt -> -- receives_default : TBasicType TBoolean - IO () - - -widgetSetReceivesDefault :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Bool -- receivesDefault - -> m () -- result -widgetSetReceivesDefault _obj receivesDefault = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let receivesDefault' = (fromIntegral . fromEnum) receivesDefault - gtk_widget_set_receives_default _obj' receivesDefault' - touchManagedPtr _obj - return () - -data WidgetSetReceivesDefaultMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetReceivesDefaultMethodInfo a signature where - overloadedMethod _ = widgetSetReceivesDefault - --- method Widget::set_redraw_on_allocate --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "redraw_on_allocate", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_redraw_on_allocate" gtk_widget_set_redraw_on_allocate :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CInt -> -- redraw_on_allocate : TBasicType TBoolean - IO () - - -widgetSetRedrawOnAllocate :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Bool -- redrawOnAllocate - -> m () -- result -widgetSetRedrawOnAllocate _obj redrawOnAllocate = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let redrawOnAllocate' = (fromIntegral . fromEnum) redrawOnAllocate - gtk_widget_set_redraw_on_allocate _obj' redrawOnAllocate' - touchManagedPtr _obj - return () - -data WidgetSetRedrawOnAllocateMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetRedrawOnAllocateMethodInfo a signature where - overloadedMethod _ = widgetSetRedrawOnAllocate - --- method Widget::set_sensitive --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_sensitive" gtk_widget_set_sensitive :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CInt -> -- sensitive : TBasicType TBoolean - IO () - - -widgetSetSensitive :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Bool -- sensitive - -> m () -- result -widgetSetSensitive _obj sensitive = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let sensitive' = (fromIntegral . fromEnum) sensitive - gtk_widget_set_sensitive _obj' sensitive' - touchManagedPtr _obj - return () - -data WidgetSetSensitiveMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetSensitiveMethodInfo a signature where - overloadedMethod _ = widgetSetSensitive - --- method Widget::set_size_request --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_size_request" gtk_widget_set_size_request :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 - IO () - - -widgetSetSizeRequest :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Int32 -- width - -> Int32 -- height - -> m () -- result -widgetSetSizeRequest _obj width height = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_set_size_request _obj' width height - touchManagedPtr _obj - return () - -data WidgetSetSizeRequestMethodInfo -instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetSizeRequestMethodInfo a signature where - overloadedMethod _ = widgetSetSizeRequest - --- method Widget::set_state --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_state" gtk_widget_set_state :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CUInt -> -- state : TInterface "Gtk" "StateType" - IO () - -{-# DEPRECATED widgetSetState ["(Since version 3.0)","Use gtk_widget_set_state_flags() instead."]#-} -widgetSetState :: - (MonadIO m, WidgetK a) => - a -- _obj - -> StateType -- state - -> m () -- result -widgetSetState _obj state = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let state' = (fromIntegral . fromEnum) state - gtk_widget_set_state _obj' state' - touchManagedPtr _obj - return () - -data WidgetSetStateMethodInfo -instance (signature ~ (StateType -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetStateMethodInfo a signature where - overloadedMethod _ = widgetSetState - --- method Widget::set_state_flags --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "clear", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_state_flags" gtk_widget_set_state_flags :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CUInt -> -- flags : TInterface "Gtk" "StateFlags" - CInt -> -- clear : TBasicType TBoolean - IO () - - -widgetSetStateFlags :: - (MonadIO m, WidgetK a) => - a -- _obj - -> [StateFlags] -- flags - -> Bool -- clear - -> m () -- result -widgetSetStateFlags _obj flags clear = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let flags' = gflagsToWord flags - let clear' = (fromIntegral . fromEnum) clear - gtk_widget_set_state_flags _obj' flags' clear' - touchManagedPtr _obj - return () - -data WidgetSetStateFlagsMethodInfo -instance (signature ~ ([StateFlags] -> Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetStateFlagsMethodInfo a signature where - overloadedMethod _ = widgetSetStateFlags - --- method Widget::set_style --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_style" gtk_widget_set_style :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Style -> -- style : TInterface "Gtk" "Style" - IO () - -{-# DEPRECATED widgetSetStyle ["(Since version 3.0)","Use #GtkStyleContext instead"]#-} -widgetSetStyle :: - (MonadIO m, WidgetK a, StyleK b) => - a -- _obj - -> Maybe (b) -- style - -> m () -- result -widgetSetStyle _obj style = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeStyle <- case style of - Nothing -> return nullPtr - Just jStyle -> do - let jStyle' = unsafeManagedPtrCastPtr jStyle - return jStyle' - gtk_widget_set_style _obj' maybeStyle - touchManagedPtr _obj - whenJust style touchManagedPtr - return () - -data WidgetSetStyleMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, WidgetK a, StyleK b) => MethodInfo WidgetSetStyleMethodInfo a signature where - overloadedMethod _ = widgetSetStyle - --- method Widget::set_support_multidevice --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_support_multidevice" gtk_widget_set_support_multidevice :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CInt -> -- support_multidevice : TBasicType TBoolean - IO () - - -widgetSetSupportMultidevice :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Bool -- supportMultidevice - -> m () -- result -widgetSetSupportMultidevice _obj supportMultidevice = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let supportMultidevice' = (fromIntegral . fromEnum) supportMultidevice - gtk_widget_set_support_multidevice _obj' supportMultidevice' - touchManagedPtr _obj - return () - -data WidgetSetSupportMultideviceMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetSupportMultideviceMethodInfo a signature where - overloadedMethod _ = widgetSetSupportMultidevice - --- method Widget::set_tooltip_markup --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_tooltip_markup" gtk_widget_set_tooltip_markup :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CString -> -- markup : TBasicType TUTF8 - IO () - - -widgetSetTooltipMarkup :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Maybe (T.Text) -- markup - -> m () -- result -widgetSetTooltipMarkup _obj markup = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeMarkup <- case markup of - Nothing -> return nullPtr - Just jMarkup -> do - jMarkup' <- textToCString jMarkup - return jMarkup' - gtk_widget_set_tooltip_markup _obj' maybeMarkup - touchManagedPtr _obj - freeMem maybeMarkup - return () - -data WidgetSetTooltipMarkupMethodInfo -instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetTooltipMarkupMethodInfo a signature where - overloadedMethod _ = widgetSetTooltipMarkup - --- method Widget::set_tooltip_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_tooltip_text" gtk_widget_set_tooltip_text :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CString -> -- text : TBasicType TUTF8 - IO () - - -widgetSetTooltipText :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Maybe (T.Text) -- text - -> m () -- result -widgetSetTooltipText _obj text = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeText <- case text of - Nothing -> return nullPtr - Just jText -> do - jText' <- textToCString jText - return jText' - gtk_widget_set_tooltip_text _obj' maybeText - touchManagedPtr _obj - freeMem maybeText - return () - -data WidgetSetTooltipTextMethodInfo -instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetTooltipTextMethodInfo a signature where - overloadedMethod _ = widgetSetTooltipText - --- method Widget::set_tooltip_window --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "custom_window", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_tooltip_window" gtk_widget_set_tooltip_window :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Window -> -- custom_window : TInterface "Gtk" "Window" - IO () - - -widgetSetTooltipWindow :: - (MonadIO m, WidgetK a, WindowK b) => - a -- _obj - -> Maybe (b) -- customWindow - -> m () -- result -widgetSetTooltipWindow _obj customWindow = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCustomWindow <- case customWindow of - Nothing -> return nullPtr - Just jCustomWindow -> do - let jCustomWindow' = unsafeManagedPtrCastPtr jCustomWindow - return jCustomWindow' - gtk_widget_set_tooltip_window _obj' maybeCustomWindow - touchManagedPtr _obj - whenJust customWindow touchManagedPtr - return () - -data WidgetSetTooltipWindowMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, WidgetK a, WindowK b) => MethodInfo WidgetSetTooltipWindowMethodInfo a signature where - overloadedMethod _ = widgetSetTooltipWindow - --- method Widget::set_valign --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "align", argType = TInterface "Gtk" "Align", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_valign" gtk_widget_set_valign :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CUInt -> -- align : TInterface "Gtk" "Align" - IO () - - -widgetSetValign :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Align -- align - -> m () -- result -widgetSetValign _obj align = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let align' = (fromIntegral . fromEnum) align - gtk_widget_set_valign _obj' align' - touchManagedPtr _obj - return () - -data WidgetSetValignMethodInfo -instance (signature ~ (Align -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetValignMethodInfo a signature where - overloadedMethod _ = widgetSetValign - --- method Widget::set_vexpand --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_vexpand" gtk_widget_set_vexpand :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CInt -> -- expand : TBasicType TBoolean - IO () - - -widgetSetVexpand :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Bool -- expand - -> m () -- result -widgetSetVexpand _obj expand = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let expand' = (fromIntegral . fromEnum) expand - gtk_widget_set_vexpand _obj' expand' - touchManagedPtr _obj - return () - -data WidgetSetVexpandMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetVexpandMethodInfo a signature where - overloadedMethod _ = widgetSetVexpand - --- method Widget::set_vexpand_set --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "set", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_vexpand_set" gtk_widget_set_vexpand_set :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CInt -> -- set : TBasicType TBoolean - IO () - - -widgetSetVexpandSet :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Bool -- set - -> m () -- result -widgetSetVexpandSet _obj set = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let set' = (fromIntegral . fromEnum) set - gtk_widget_set_vexpand_set _obj' set' - touchManagedPtr _obj - return () - -data WidgetSetVexpandSetMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetVexpandSetMethodInfo a signature where - overloadedMethod _ = widgetSetVexpandSet - --- method Widget::set_visible --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_visible" gtk_widget_set_visible :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CInt -> -- visible : TBasicType TBoolean - IO () - - -widgetSetVisible :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Bool -- visible - -> m () -- result -widgetSetVisible _obj visible = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let visible' = (fromIntegral . fromEnum) visible - gtk_widget_set_visible _obj' visible' - touchManagedPtr _obj - return () - -data WidgetSetVisibleMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetVisibleMethodInfo a signature where - overloadedMethod _ = widgetSetVisible - --- method Widget::set_visual --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visual", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_visual" gtk_widget_set_visual :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Visual -> -- visual : TInterface "Gdk" "Visual" - IO () - - -widgetSetVisual :: - (MonadIO m, WidgetK a, Gdk.VisualK b) => - a -- _obj - -> Maybe (b) -- visual - -> m () -- result -widgetSetVisual _obj visual = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeVisual <- case visual of - Nothing -> return nullPtr - Just jVisual -> do - let jVisual' = unsafeManagedPtrCastPtr jVisual - return jVisual' - gtk_widget_set_visual _obj' maybeVisual - touchManagedPtr _obj - whenJust visual touchManagedPtr - return () - -data WidgetSetVisualMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, WidgetK a, Gdk.VisualK b) => MethodInfo WidgetSetVisualMethodInfo a signature where - overloadedMethod _ = widgetSetVisual - --- method Widget::set_window --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 = TransferEverything}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_window" gtk_widget_set_window :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Window -> -- window : TInterface "Gdk" "Window" - IO () - - -widgetSetWindow :: - (MonadIO m, WidgetK a, Gdk.WindowK b) => - a -- _obj - -> b -- window - -> m () -- result -widgetSetWindow _obj window = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - window' <- refObject window - gtk_widget_set_window _obj' window' - touchManagedPtr _obj - touchManagedPtr window - return () - -data WidgetSetWindowMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, WidgetK a, Gdk.WindowK b) => MethodInfo WidgetSetWindowMethodInfo a signature where - overloadedMethod _ = widgetSetWindow - --- method Widget::shape_combine_region --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_shape_combine_region" gtk_widget_shape_combine_region :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Cairo.Region -> -- region : TInterface "cairo" "Region" - IO () - - -widgetShapeCombineRegion :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Maybe (Cairo.Region) -- region - -> m () -- result -widgetShapeCombineRegion _obj region = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeRegion <- case region of - Nothing -> return nullPtr - Just jRegion -> do - let jRegion' = unsafeManagedPtrGetPtr jRegion - return jRegion' - gtk_widget_shape_combine_region _obj' maybeRegion - touchManagedPtr _obj - whenJust region touchManagedPtr - return () - -data WidgetShapeCombineRegionMethodInfo -instance (signature ~ (Maybe (Cairo.Region) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetShapeCombineRegionMethodInfo a signature where - overloadedMethod _ = widgetShapeCombineRegion - --- method Widget::show --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_show" gtk_widget_show :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetShow :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetShow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_show _obj' - touchManagedPtr _obj - return () - -data WidgetShowMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetShowMethodInfo a signature where - overloadedMethod _ = widgetShow - --- method Widget::show_all --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_show_all" gtk_widget_show_all :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetShowAll :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetShowAll _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_show_all _obj' - touchManagedPtr _obj - return () - -data WidgetShowAllMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetShowAllMethodInfo a signature where - overloadedMethod _ = widgetShowAll - --- method Widget::show_now --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_show_now" gtk_widget_show_now :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetShowNow :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetShowNow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_show_now _obj' - touchManagedPtr _obj - return () - -data WidgetShowNowMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetShowNowMethodInfo a signature where - overloadedMethod _ = widgetShowNow - --- method Widget::size_allocate --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allocation", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_size_allocate" gtk_widget_size_allocate :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Rectangle -> -- allocation : TInterface "Gdk" "Rectangle" - IO () - - -widgetSizeAllocate :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Gdk.Rectangle -- allocation - -> m () -- result -widgetSizeAllocate _obj allocation = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let allocation' = unsafeManagedPtrGetPtr allocation - gtk_widget_size_allocate _obj' allocation' - touchManagedPtr _obj - touchManagedPtr allocation - return () - -data WidgetSizeAllocateMethodInfo -instance (signature ~ (Gdk.Rectangle -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSizeAllocateMethodInfo a signature where - overloadedMethod _ = widgetSizeAllocate - --- method Widget::size_allocate_with_baseline --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allocation", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "baseline", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_size_allocate_with_baseline" gtk_widget_size_allocate_with_baseline :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Rectangle -> -- allocation : TInterface "Gdk" "Rectangle" - Int32 -> -- baseline : TBasicType TInt32 - IO () - - -widgetSizeAllocateWithBaseline :: - (MonadIO m, WidgetK a) => - a -- _obj - -> Gdk.Rectangle -- allocation - -> Int32 -- baseline - -> m () -- result -widgetSizeAllocateWithBaseline _obj allocation baseline = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let allocation' = unsafeManagedPtrGetPtr allocation - gtk_widget_size_allocate_with_baseline _obj' allocation' baseline - touchManagedPtr _obj - touchManagedPtr allocation - return () - -data WidgetSizeAllocateWithBaselineMethodInfo -instance (signature ~ (Gdk.Rectangle -> Int32 -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSizeAllocateWithBaselineMethodInfo a signature where - overloadedMethod _ = widgetSizeAllocateWithBaseline - --- method Widget::size_request --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "requisition", argType = TInterface "Gtk" "Requisition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_size_request" gtk_widget_size_request :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Requisition -> -- requisition : TInterface "Gtk" "Requisition" - IO () - -{-# DEPRECATED widgetSizeRequest ["(Since version 3.0)","Use gtk_widget_get_preferred_size() instead."]#-} -widgetSizeRequest :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m (Requisition) -- result -widgetSizeRequest _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - requisition <- callocBoxedBytes 8 :: IO (Ptr Requisition) - gtk_widget_size_request _obj' requisition - requisition' <- (wrapBoxed Requisition) requisition - touchManagedPtr _obj - return requisition' - -data WidgetSizeRequestMethodInfo -instance (signature ~ (m (Requisition)), MonadIO m, WidgetK a) => MethodInfo WidgetSizeRequestMethodInfo a signature where - overloadedMethod _ = widgetSizeRequest - --- method Widget::style_attach --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_style_attach" gtk_widget_style_attach :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - -{-# DEPRECATED widgetStyleAttach ["(Since version 3.0)","This step is unnecessary with #GtkStyleContext."]#-} -widgetStyleAttach :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetStyleAttach _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_style_attach _obj' - touchManagedPtr _obj - return () - -data WidgetStyleAttachMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetStyleAttachMethodInfo a signature where - overloadedMethod _ = widgetStyleAttach - --- method Widget::style_get_property --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property_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 : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_style_get_property" gtk_widget_style_get_property :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CString -> -- property_name : TBasicType TUTF8 - Ptr GValue -> -- value : TInterface "GObject" "Value" - IO () - - -widgetStyleGetProperty :: - (MonadIO m, WidgetK a) => - a -- _obj - -> T.Text -- propertyName - -> GValue -- value - -> m () -- result -widgetStyleGetProperty _obj propertyName value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - propertyName' <- textToCString propertyName - let value' = unsafeManagedPtrGetPtr value - gtk_widget_style_get_property _obj' propertyName' value' - touchManagedPtr _obj - touchManagedPtr value - freeMem propertyName' - return () - -data WidgetStyleGetPropertyMethodInfo -instance (signature ~ (T.Text -> GValue -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetStyleGetPropertyMethodInfo a signature where - overloadedMethod _ = widgetStyleGetProperty - --- method Widget::thaw_child_notify --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_thaw_child_notify" gtk_widget_thaw_child_notify :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetThawChildNotify :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetThawChildNotify _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_thaw_child_notify _obj' - touchManagedPtr _obj - return () - -data WidgetThawChildNotifyMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetThawChildNotifyMethodInfo a signature where - overloadedMethod _ = widgetThawChildNotify - --- method Widget::translate_coordinates --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "src_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "src_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "dest_y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_translate_coordinates" gtk_widget_translate_coordinates :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Widget -> -- dest_widget : TInterface "Gtk" "Widget" - Int32 -> -- src_x : TBasicType TInt32 - Int32 -> -- src_y : TBasicType TInt32 - Ptr Int32 -> -- dest_x : TBasicType TInt32 - Ptr Int32 -> -- dest_y : TBasicType TInt32 - IO CInt - - -widgetTranslateCoordinates :: - (MonadIO m, WidgetK a, WidgetK b) => - a -- _obj - -> b -- destWidget - -> Int32 -- srcX - -> Int32 -- srcY - -> m (Bool,Int32,Int32) -- result -widgetTranslateCoordinates _obj destWidget srcX srcY = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let destWidget' = unsafeManagedPtrCastPtr destWidget - destX <- allocMem :: IO (Ptr Int32) - destY <- allocMem :: IO (Ptr Int32) - result <- gtk_widget_translate_coordinates _obj' destWidget' srcX srcY destX destY - let result' = (/= 0) result - destX' <- peek destX - destY' <- peek destY - touchManagedPtr _obj - touchManagedPtr destWidget - freeMem destX - freeMem destY - return (result', destX', destY') - -data WidgetTranslateCoordinatesMethodInfo -instance (signature ~ (b -> Int32 -> Int32 -> m (Bool,Int32,Int32)), MonadIO m, WidgetK a, WidgetK b) => MethodInfo WidgetTranslateCoordinatesMethodInfo a signature where - overloadedMethod _ = widgetTranslateCoordinates - --- method Widget::trigger_tooltip_query --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_trigger_tooltip_query" gtk_widget_trigger_tooltip_query :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetTriggerTooltipQuery :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetTriggerTooltipQuery _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_trigger_tooltip_query _obj' - touchManagedPtr _obj - return () - -data WidgetTriggerTooltipQueryMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetTriggerTooltipQueryMethodInfo a signature where - overloadedMethod _ = widgetTriggerTooltipQuery - --- method Widget::unmap --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_unmap" gtk_widget_unmap :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetUnmap :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetUnmap _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_unmap _obj' - touchManagedPtr _obj - return () - -data WidgetUnmapMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetUnmapMethodInfo a signature where - overloadedMethod _ = widgetUnmap - --- method Widget::unparent --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_unparent" gtk_widget_unparent :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetUnparent :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetUnparent _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_unparent _obj' - touchManagedPtr _obj - return () - -data WidgetUnparentMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetUnparentMethodInfo a signature where - overloadedMethod _ = widgetUnparent - --- method Widget::unrealize --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_unrealize" gtk_widget_unrealize :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetUnrealize :: - (MonadIO m, WidgetK a) => - a -- _obj - -> m () -- result -widgetUnrealize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_unrealize _obj' - touchManagedPtr _obj - return () - -data WidgetUnrealizeMethodInfo -instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetUnrealizeMethodInfo a signature where - overloadedMethod _ = widgetUnrealize - --- method Widget::unregister_window --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_unregister_window" gtk_widget_unregister_window :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Gdk.Window -> -- window : TInterface "Gdk" "Window" - IO () - - -widgetUnregisterWindow :: - (MonadIO m, WidgetK a, Gdk.WindowK b) => - a -- _obj - -> b -- window - -> m () -- result -widgetUnregisterWindow _obj window = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let window' = unsafeManagedPtrCastPtr window - gtk_widget_unregister_window _obj' window' - touchManagedPtr _obj - touchManagedPtr window - return () - -data WidgetUnregisterWindowMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, WidgetK a, Gdk.WindowK b) => MethodInfo WidgetUnregisterWindowMethodInfo a signature where - overloadedMethod _ = widgetUnregisterWindow - --- method Widget::unset_state_flags --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_unset_state_flags" gtk_widget_unset_state_flags :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - CUInt -> -- flags : TInterface "Gtk" "StateFlags" - IO () - - -widgetUnsetStateFlags :: - (MonadIO m, WidgetK a) => - a -- _obj - -> [StateFlags] -- flags - -> m () -- result -widgetUnsetStateFlags _obj flags = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let flags' = gflagsToWord flags - gtk_widget_unset_state_flags _obj' flags' - touchManagedPtr _obj - return () - -data WidgetUnsetStateFlagsMethodInfo -instance (signature ~ ([StateFlags] -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetUnsetStateFlagsMethodInfo a signature where - overloadedMethod _ = widgetUnsetStateFlags - --- method Widget::get_default_direction --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : TInterface "Gtk" "TextDirection" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_default_direction" gtk_widget_get_default_direction :: - IO CUInt - - -widgetGetDefaultDirection :: - (MonadIO m) => - m TextDirection -- result -widgetGetDefaultDirection = liftIO $ do - result <- gtk_widget_get_default_direction - let result' = (toEnum . fromIntegral) result - return result' - --- method Widget::get_default_style --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : TInterface "Gtk" "Style" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_default_style" gtk_widget_get_default_style :: - IO (Ptr Style) - -{-# DEPRECATED widgetGetDefaultStyle ["(Since version 3.0)","Use #GtkStyleContext instead, and"," gtk_css_provider_get_default() to obtain a #GtkStyleProvider"," with the default widget style information."]#-} -widgetGetDefaultStyle :: - (MonadIO m) => - m Style -- result -widgetGetDefaultStyle = liftIO $ do - result <- gtk_widget_get_default_style - checkUnexpectedReturnNULL "gtk_widget_get_default_style" result - result' <- (newObject Style) result - return result' - --- method Widget::pop_composite_child --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_pop_composite_child" gtk_widget_pop_composite_child :: - IO () - -{-# DEPRECATED widgetPopCompositeChild ["(Since version 3.10)","Use gtk_widget_class_set_template(), or don\8217t use this API at all."]#-} -widgetPopCompositeChild :: - (MonadIO m) => - m () -- result -widgetPopCompositeChild = liftIO $ do - gtk_widget_pop_composite_child - return () - --- method Widget::push_composite_child --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_push_composite_child" gtk_widget_push_composite_child :: - IO () - -{-# DEPRECATED widgetPushCompositeChild ["(Since version 3.10)","This API never really worked well and was mostly unused, now","we have a more complete mechanism for composite children, see gtk_widget_class_set_template()."]#-} -widgetPushCompositeChild :: - (MonadIO m) => - m () -- result -widgetPushCompositeChild = liftIO $ do - gtk_widget_push_composite_child - return () - --- method Widget::set_default_direction --- method type : MemberFunction --- Args : [Arg {argCName = "dir", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : TBasicType TVoid + widgetAppPaintable , + + +-- ** CanDefault + WidgetCanDefaultPropertyInfo , + constructWidgetCanDefault , + getWidgetCanDefault , + setWidgetCanDefault , + widgetCanDefault , + + +-- ** CanFocus + WidgetCanFocusPropertyInfo , + constructWidgetCanFocus , + getWidgetCanFocus , + setWidgetCanFocus , + widgetCanFocus , + + +-- ** CompositeChild + WidgetCompositeChildPropertyInfo , + getWidgetCompositeChild , + widgetCompositeChild , + + +-- ** DoubleBuffered + WidgetDoubleBufferedPropertyInfo , + constructWidgetDoubleBuffered , + getWidgetDoubleBuffered , + setWidgetDoubleBuffered , + widgetDoubleBuffered , + + +-- ** Events + WidgetEventsPropertyInfo , + constructWidgetEvents , + getWidgetEvents , + setWidgetEvents , + widgetEvents , + + +-- ** Expand + WidgetExpandPropertyInfo , + constructWidgetExpand , + getWidgetExpand , + setWidgetExpand , + widgetExpand , + + +-- ** Halign + WidgetHalignPropertyInfo , + constructWidgetHalign , + getWidgetHalign , + setWidgetHalign , + widgetHalign , + + +-- ** HasDefault + WidgetHasDefaultPropertyInfo , + constructWidgetHasDefault , + getWidgetHasDefault , + setWidgetHasDefault , + + +-- ** HasFocus + WidgetHasFocusPropertyInfo , + constructWidgetHasFocus , + getWidgetHasFocus , + setWidgetHasFocus , + + +-- ** HasTooltip + WidgetHasTooltipPropertyInfo , + constructWidgetHasTooltip , + getWidgetHasTooltip , + setWidgetHasTooltip , + widgetHasTooltip , + + +-- ** HeightRequest + WidgetHeightRequestPropertyInfo , + constructWidgetHeightRequest , + getWidgetHeightRequest , + setWidgetHeightRequest , + widgetHeightRequest , + + +-- ** Hexpand + WidgetHexpandPropertyInfo , + constructWidgetHexpand , + getWidgetHexpand , + setWidgetHexpand , + widgetHexpand , + + +-- ** HexpandSet + WidgetHexpandSetPropertyInfo , + constructWidgetHexpandSet , + getWidgetHexpandSet , + setWidgetHexpandSet , + widgetHexpandSet , + + +-- ** IsFocus + WidgetIsFocusPropertyInfo , + constructWidgetIsFocus , + getWidgetIsFocus , + setWidgetIsFocus , + + +-- ** Margin + WidgetMarginPropertyInfo , + constructWidgetMargin , + getWidgetMargin , + setWidgetMargin , + widgetMargin , + + +-- ** MarginBottom + WidgetMarginBottomPropertyInfo , + constructWidgetMarginBottom , + getWidgetMarginBottom , + setWidgetMarginBottom , + widgetMarginBottom , + + +-- ** MarginEnd + WidgetMarginEndPropertyInfo , + constructWidgetMarginEnd , + getWidgetMarginEnd , + setWidgetMarginEnd , + widgetMarginEnd , + + +-- ** MarginLeft + WidgetMarginLeftPropertyInfo , + constructWidgetMarginLeft , + getWidgetMarginLeft , + setWidgetMarginLeft , + widgetMarginLeft , + + +-- ** MarginRight + WidgetMarginRightPropertyInfo , + constructWidgetMarginRight , + getWidgetMarginRight , + setWidgetMarginRight , + widgetMarginRight , + + +-- ** MarginStart + WidgetMarginStartPropertyInfo , + constructWidgetMarginStart , + getWidgetMarginStart , + setWidgetMarginStart , + widgetMarginStart , + + +-- ** MarginTop + WidgetMarginTopPropertyInfo , + constructWidgetMarginTop , + getWidgetMarginTop , + setWidgetMarginTop , + widgetMarginTop , + + +-- ** Name + WidgetNamePropertyInfo , + constructWidgetName , + getWidgetName , + setWidgetName , + widgetName , + + +-- ** NoShowAll + WidgetNoShowAllPropertyInfo , + constructWidgetNoShowAll , + getWidgetNoShowAll , + setWidgetNoShowAll , + widgetNoShowAll , + + +-- ** Opacity + WidgetOpacityPropertyInfo , + constructWidgetOpacity , + getWidgetOpacity , + setWidgetOpacity , + widgetOpacity , + + +-- ** Parent + WidgetParentPropertyInfo , + clearWidgetParent , + constructWidgetParent , + getWidgetParent , + setWidgetParent , + widgetParent , + + +-- ** ReceivesDefault + WidgetReceivesDefaultPropertyInfo , + constructWidgetReceivesDefault , + getWidgetReceivesDefault , + setWidgetReceivesDefault , + widgetReceivesDefault , + + +-- ** ScaleFactor + WidgetScaleFactorPropertyInfo , + getWidgetScaleFactor , + widgetScaleFactor , + + +-- ** Sensitive + WidgetSensitivePropertyInfo , + constructWidgetSensitive , + getWidgetSensitive , + setWidgetSensitive , + widgetSensitive , + + +-- ** Style + WidgetStylePropertyInfo , + clearWidgetStyle , + constructWidgetStyle , + getWidgetStyle , + setWidgetStyle , + widgetStyle , + + +-- ** TooltipMarkup + WidgetTooltipMarkupPropertyInfo , + clearWidgetTooltipMarkup , + constructWidgetTooltipMarkup , + getWidgetTooltipMarkup , + setWidgetTooltipMarkup , + widgetTooltipMarkup , + + +-- ** TooltipText + WidgetTooltipTextPropertyInfo , + clearWidgetTooltipText , + constructWidgetTooltipText , + getWidgetTooltipText , + setWidgetTooltipText , + widgetTooltipText , + + +-- ** Valign + WidgetValignPropertyInfo , + constructWidgetValign , + getWidgetValign , + setWidgetValign , + widgetValign , + + +-- ** Vexpand + WidgetVexpandPropertyInfo , + constructWidgetVexpand , + getWidgetVexpand , + setWidgetVexpand , + widgetVexpand , + + +-- ** VexpandSet + WidgetVexpandSetPropertyInfo , + constructWidgetVexpandSet , + getWidgetVexpandSet , + setWidgetVexpandSet , + widgetVexpandSet , + + +-- ** Visible + WidgetVisiblePropertyInfo , + constructWidgetVisible , + getWidgetVisible , + setWidgetVisible , + widgetVisible , + + +-- ** WidthRequest + WidgetWidthRequestPropertyInfo , + constructWidgetWidthRequest , + getWidgetWidthRequest , + setWidgetWidthRequest , + widgetWidthRequest , + + +-- ** Window + WidgetWindowPropertyInfo , + getWidgetWindow , + widgetWindow , + + + + + -- * Signals +-- ** AccelClosuresChanged + WidgetAccelClosuresChangedCallback , + WidgetAccelClosuresChangedCallbackC , + WidgetAccelClosuresChangedSignalInfo , + afterWidgetAccelClosuresChanged , + mkWidgetAccelClosuresChangedCallback , + noWidgetAccelClosuresChangedCallback , + onWidgetAccelClosuresChanged , + widgetAccelClosuresChangedCallbackWrapper, + widgetAccelClosuresChangedClosure , + + +-- ** ButtonPressEvent + WidgetButtonPressEventCallback , + WidgetButtonPressEventCallbackC , + WidgetButtonPressEventSignalInfo , + afterWidgetButtonPressEvent , + mkWidgetButtonPressEventCallback , + noWidgetButtonPressEventCallback , + onWidgetButtonPressEvent , + widgetButtonPressEventCallbackWrapper , + widgetButtonPressEventClosure , + + +-- ** ButtonReleaseEvent + WidgetButtonReleaseEventCallback , + WidgetButtonReleaseEventCallbackC , + WidgetButtonReleaseEventSignalInfo , + afterWidgetButtonReleaseEvent , + mkWidgetButtonReleaseEventCallback , + noWidgetButtonReleaseEventCallback , + onWidgetButtonReleaseEvent , + widgetButtonReleaseEventCallbackWrapper , + widgetButtonReleaseEventClosure , + + +-- ** CanActivateAccel + WidgetCanActivateAccelCallback , + WidgetCanActivateAccelCallbackC , + WidgetCanActivateAccelSignalInfo , + afterWidgetCanActivateAccel , + mkWidgetCanActivateAccelCallback , + noWidgetCanActivateAccelCallback , + onWidgetCanActivateAccel , + widgetCanActivateAccelCallbackWrapper , + widgetCanActivateAccelClosure , + + +-- ** ChildNotify + WidgetChildNotifyCallback , + WidgetChildNotifyCallbackC , + WidgetChildNotifySignalInfo , + afterWidgetChildNotify , + mkWidgetChildNotifyCallback , + noWidgetChildNotifyCallback , + onWidgetChildNotify , + widgetChildNotifyCallbackWrapper , + widgetChildNotifyClosure , + + +-- ** CompositedChanged + WidgetCompositedChangedCallback , + WidgetCompositedChangedCallbackC , + WidgetCompositedChangedSignalInfo , + afterWidgetCompositedChanged , + mkWidgetCompositedChangedCallback , + noWidgetCompositedChangedCallback , + onWidgetCompositedChanged , + widgetCompositedChangedCallbackWrapper , + widgetCompositedChangedClosure , + + +-- ** ConfigureEvent + WidgetConfigureEventCallback , + WidgetConfigureEventCallbackC , + WidgetConfigureEventSignalInfo , + afterWidgetConfigureEvent , + mkWidgetConfigureEventCallback , + noWidgetConfigureEventCallback , + onWidgetConfigureEvent , + widgetConfigureEventCallbackWrapper , + widgetConfigureEventClosure , + + +-- ** DamageEvent + WidgetDamageEventCallback , + WidgetDamageEventCallbackC , + WidgetDamageEventSignalInfo , + afterWidgetDamageEvent , + mkWidgetDamageEventCallback , + noWidgetDamageEventCallback , + onWidgetDamageEvent , + widgetDamageEventCallbackWrapper , + widgetDamageEventClosure , + + +-- ** DeleteEvent + WidgetDeleteEventCallback , + WidgetDeleteEventCallbackC , + WidgetDeleteEventSignalInfo , + afterWidgetDeleteEvent , + mkWidgetDeleteEventCallback , + noWidgetDeleteEventCallback , + onWidgetDeleteEvent , + widgetDeleteEventCallbackWrapper , + widgetDeleteEventClosure , + + +-- ** Destroy + WidgetDestroyCallback , + WidgetDestroyCallbackC , + WidgetDestroySignalInfo , + afterWidgetDestroy , + mkWidgetDestroyCallback , + noWidgetDestroyCallback , + onWidgetDestroy , + widgetDestroyCallbackWrapper , + widgetDestroyClosure , + + +-- ** DestroyEvent + WidgetDestroyEventCallback , + WidgetDestroyEventCallbackC , + WidgetDestroyEventSignalInfo , + afterWidgetDestroyEvent , + mkWidgetDestroyEventCallback , + noWidgetDestroyEventCallback , + onWidgetDestroyEvent , + widgetDestroyEventCallbackWrapper , + widgetDestroyEventClosure , + + +-- ** DirectionChanged + WidgetDirectionChangedCallback , + WidgetDirectionChangedCallbackC , + WidgetDirectionChangedSignalInfo , + afterWidgetDirectionChanged , + mkWidgetDirectionChangedCallback , + noWidgetDirectionChangedCallback , + onWidgetDirectionChanged , + widgetDirectionChangedCallbackWrapper , + widgetDirectionChangedClosure , + + +-- ** DragBegin + WidgetDragBeginCallback , + WidgetDragBeginCallbackC , + WidgetDragBeginSignalInfo , + afterWidgetDragBegin , + mkWidgetDragBeginCallback , + noWidgetDragBeginCallback , + onWidgetDragBegin , + widgetDragBeginCallbackWrapper , + widgetDragBeginClosure , + + +-- ** DragDataDelete + WidgetDragDataDeleteCallback , + WidgetDragDataDeleteCallbackC , + WidgetDragDataDeleteSignalInfo , + afterWidgetDragDataDelete , + mkWidgetDragDataDeleteCallback , + noWidgetDragDataDeleteCallback , + onWidgetDragDataDelete , + widgetDragDataDeleteCallbackWrapper , + widgetDragDataDeleteClosure , + + +-- ** DragDataGet + WidgetDragDataGetCallback , + WidgetDragDataGetCallbackC , + WidgetDragDataGetSignalInfo , + afterWidgetDragDataGet , + mkWidgetDragDataGetCallback , + noWidgetDragDataGetCallback , + onWidgetDragDataGet , + widgetDragDataGetCallbackWrapper , + widgetDragDataGetClosure , + + +-- ** DragDataReceived + WidgetDragDataReceivedCallback , + WidgetDragDataReceivedCallbackC , + WidgetDragDataReceivedSignalInfo , + afterWidgetDragDataReceived , + mkWidgetDragDataReceivedCallback , + noWidgetDragDataReceivedCallback , + onWidgetDragDataReceived , + widgetDragDataReceivedCallbackWrapper , + widgetDragDataReceivedClosure , + + +-- ** DragDrop + WidgetDragDropCallback , + WidgetDragDropCallbackC , + WidgetDragDropSignalInfo , + afterWidgetDragDrop , + mkWidgetDragDropCallback , + noWidgetDragDropCallback , + onWidgetDragDrop , + widgetDragDropCallbackWrapper , + widgetDragDropClosure , + + +-- ** DragEnd + WidgetDragEndCallback , + WidgetDragEndCallbackC , + WidgetDragEndSignalInfo , + afterWidgetDragEnd , + mkWidgetDragEndCallback , + noWidgetDragEndCallback , + onWidgetDragEnd , + widgetDragEndCallbackWrapper , + widgetDragEndClosure , + + +-- ** DragFailed + WidgetDragFailedCallback , + WidgetDragFailedCallbackC , + WidgetDragFailedSignalInfo , + afterWidgetDragFailed , + mkWidgetDragFailedCallback , + noWidgetDragFailedCallback , + onWidgetDragFailed , + widgetDragFailedCallbackWrapper , + widgetDragFailedClosure , + + +-- ** DragLeave + WidgetDragLeaveCallback , + WidgetDragLeaveCallbackC , + WidgetDragLeaveSignalInfo , + afterWidgetDragLeave , + mkWidgetDragLeaveCallback , + noWidgetDragLeaveCallback , + onWidgetDragLeave , + widgetDragLeaveCallbackWrapper , + widgetDragLeaveClosure , + + +-- ** DragMotion + WidgetDragMotionCallback , + WidgetDragMotionCallbackC , + WidgetDragMotionSignalInfo , + afterWidgetDragMotion , + mkWidgetDragMotionCallback , + noWidgetDragMotionCallback , + onWidgetDragMotion , + widgetDragMotionCallbackWrapper , + widgetDragMotionClosure , + + +-- ** Draw + WidgetDrawCallback , + WidgetDrawCallbackC , + WidgetDrawSignalInfo , + afterWidgetDraw , + mkWidgetDrawCallback , + noWidgetDrawCallback , + onWidgetDraw , + widgetDrawCallbackWrapper , + widgetDrawClosure , + + +-- ** EnterNotifyEvent + WidgetEnterNotifyEventCallback , + WidgetEnterNotifyEventCallbackC , + WidgetEnterNotifyEventSignalInfo , + afterWidgetEnterNotifyEvent , + mkWidgetEnterNotifyEventCallback , + noWidgetEnterNotifyEventCallback , + onWidgetEnterNotifyEvent , + widgetEnterNotifyEventCallbackWrapper , + widgetEnterNotifyEventClosure , + + +-- ** Event + WidgetEventCallback , + WidgetEventCallbackC , + WidgetEventSignalInfo , + afterWidgetEvent , + mkWidgetEventCallback , + noWidgetEventCallback , + onWidgetEvent , + widgetEventCallbackWrapper , + widgetEventClosure , + + +-- ** EventAfter + WidgetEventAfterCallback , + WidgetEventAfterCallbackC , + WidgetEventAfterSignalInfo , + afterWidgetEventAfter , + mkWidgetEventAfterCallback , + noWidgetEventAfterCallback , + onWidgetEventAfter , + widgetEventAfterCallbackWrapper , + widgetEventAfterClosure , + + +-- ** Focus + WidgetFocusCallback , + WidgetFocusCallbackC , + WidgetFocusSignalInfo , + afterWidgetFocus , + mkWidgetFocusCallback , + noWidgetFocusCallback , + onWidgetFocus , + widgetFocusCallbackWrapper , + widgetFocusClosure , + + +-- ** FocusInEvent + WidgetFocusInEventCallback , + WidgetFocusInEventCallbackC , + WidgetFocusInEventSignalInfo , + afterWidgetFocusInEvent , + mkWidgetFocusInEventCallback , + noWidgetFocusInEventCallback , + onWidgetFocusInEvent , + widgetFocusInEventCallbackWrapper , + widgetFocusInEventClosure , + + +-- ** FocusOutEvent + WidgetFocusOutEventCallback , + WidgetFocusOutEventCallbackC , + WidgetFocusOutEventSignalInfo , + afterWidgetFocusOutEvent , + mkWidgetFocusOutEventCallback , + noWidgetFocusOutEventCallback , + onWidgetFocusOutEvent , + widgetFocusOutEventCallbackWrapper , + widgetFocusOutEventClosure , + + +-- ** GrabBrokenEvent + WidgetGrabBrokenEventCallback , + WidgetGrabBrokenEventCallbackC , + WidgetGrabBrokenEventSignalInfo , + afterWidgetGrabBrokenEvent , + mkWidgetGrabBrokenEventCallback , + noWidgetGrabBrokenEventCallback , + onWidgetGrabBrokenEvent , + widgetGrabBrokenEventCallbackWrapper , + widgetGrabBrokenEventClosure , + + +-- ** GrabFocus + WidgetGrabFocusCallback , + WidgetGrabFocusCallbackC , + WidgetGrabFocusSignalInfo , + afterWidgetGrabFocus , + mkWidgetGrabFocusCallback , + noWidgetGrabFocusCallback , + onWidgetGrabFocus , + widgetGrabFocusCallbackWrapper , + widgetGrabFocusClosure , + + +-- ** GrabNotify + WidgetGrabNotifyCallback , + WidgetGrabNotifyCallbackC , + WidgetGrabNotifySignalInfo , + afterWidgetGrabNotify , + mkWidgetGrabNotifyCallback , + noWidgetGrabNotifyCallback , + onWidgetGrabNotify , + widgetGrabNotifyCallbackWrapper , + widgetGrabNotifyClosure , + + +-- ** Hide + WidgetHideCallback , + WidgetHideCallbackC , + WidgetHideSignalInfo , + afterWidgetHide , + mkWidgetHideCallback , + noWidgetHideCallback , + onWidgetHide , + widgetHideCallbackWrapper , + widgetHideClosure , + + +-- ** HierarchyChanged + WidgetHierarchyChangedCallback , + WidgetHierarchyChangedCallbackC , + WidgetHierarchyChangedSignalInfo , + afterWidgetHierarchyChanged , + mkWidgetHierarchyChangedCallback , + noWidgetHierarchyChangedCallback , + onWidgetHierarchyChanged , + widgetHierarchyChangedCallbackWrapper , + widgetHierarchyChangedClosure , + + +-- ** KeyPressEvent + WidgetKeyPressEventCallback , + WidgetKeyPressEventCallbackC , + WidgetKeyPressEventSignalInfo , + afterWidgetKeyPressEvent , + mkWidgetKeyPressEventCallback , + noWidgetKeyPressEventCallback , + onWidgetKeyPressEvent , + widgetKeyPressEventCallbackWrapper , + widgetKeyPressEventClosure , + + +-- ** KeyReleaseEvent + WidgetKeyReleaseEventCallback , + WidgetKeyReleaseEventCallbackC , + WidgetKeyReleaseEventSignalInfo , + afterWidgetKeyReleaseEvent , + mkWidgetKeyReleaseEventCallback , + noWidgetKeyReleaseEventCallback , + onWidgetKeyReleaseEvent , + widgetKeyReleaseEventCallbackWrapper , + widgetKeyReleaseEventClosure , + + +-- ** KeynavFailed + WidgetKeynavFailedCallback , + WidgetKeynavFailedCallbackC , + WidgetKeynavFailedSignalInfo , + afterWidgetKeynavFailed , + mkWidgetKeynavFailedCallback , + noWidgetKeynavFailedCallback , + onWidgetKeynavFailed , + widgetKeynavFailedCallbackWrapper , + widgetKeynavFailedClosure , + + +-- ** LeaveNotifyEvent + WidgetLeaveNotifyEventCallback , + WidgetLeaveNotifyEventCallbackC , + WidgetLeaveNotifyEventSignalInfo , + afterWidgetLeaveNotifyEvent , + mkWidgetLeaveNotifyEventCallback , + noWidgetLeaveNotifyEventCallback , + onWidgetLeaveNotifyEvent , + widgetLeaveNotifyEventCallbackWrapper , + widgetLeaveNotifyEventClosure , + + +-- ** Map + WidgetMapCallback , + WidgetMapCallbackC , + WidgetMapSignalInfo , + afterWidgetMap , + mkWidgetMapCallback , + noWidgetMapCallback , + onWidgetMap , + widgetMapCallbackWrapper , + widgetMapClosure , + + +-- ** MapEvent + WidgetMapEventCallback , + WidgetMapEventCallbackC , + WidgetMapEventSignalInfo , + afterWidgetMapEvent , + mkWidgetMapEventCallback , + noWidgetMapEventCallback , + onWidgetMapEvent , + widgetMapEventCallbackWrapper , + widgetMapEventClosure , + + +-- ** MnemonicActivate + WidgetMnemonicActivateCallback , + WidgetMnemonicActivateCallbackC , + WidgetMnemonicActivateSignalInfo , + afterWidgetMnemonicActivate , + mkWidgetMnemonicActivateCallback , + noWidgetMnemonicActivateCallback , + onWidgetMnemonicActivate , + widgetMnemonicActivateCallbackWrapper , + widgetMnemonicActivateClosure , + + +-- ** MotionNotifyEvent + WidgetMotionNotifyEventCallback , + WidgetMotionNotifyEventCallbackC , + WidgetMotionNotifyEventSignalInfo , + afterWidgetMotionNotifyEvent , + mkWidgetMotionNotifyEventCallback , + noWidgetMotionNotifyEventCallback , + onWidgetMotionNotifyEvent , + widgetMotionNotifyEventCallbackWrapper , + widgetMotionNotifyEventClosure , + + +-- ** MoveFocus + WidgetMoveFocusCallback , + WidgetMoveFocusCallbackC , + WidgetMoveFocusSignalInfo , + afterWidgetMoveFocus , + mkWidgetMoveFocusCallback , + noWidgetMoveFocusCallback , + onWidgetMoveFocus , + widgetMoveFocusCallbackWrapper , + widgetMoveFocusClosure , + + +-- ** ParentSet + WidgetParentSetCallback , + WidgetParentSetCallbackC , + WidgetParentSetSignalInfo , + afterWidgetParentSet , + mkWidgetParentSetCallback , + noWidgetParentSetCallback , + onWidgetParentSet , + widgetParentSetCallbackWrapper , + widgetParentSetClosure , + + +-- ** PopupMenu + WidgetPopupMenuCallback , + WidgetPopupMenuCallbackC , + WidgetPopupMenuSignalInfo , + afterWidgetPopupMenu , + mkWidgetPopupMenuCallback , + noWidgetPopupMenuCallback , + onWidgetPopupMenu , + widgetPopupMenuCallbackWrapper , + widgetPopupMenuClosure , + + +-- ** PropertyNotifyEvent + WidgetPropertyNotifyEventCallback , + WidgetPropertyNotifyEventCallbackC , + WidgetPropertyNotifyEventSignalInfo , + afterWidgetPropertyNotifyEvent , + mkWidgetPropertyNotifyEventCallback , + noWidgetPropertyNotifyEventCallback , + onWidgetPropertyNotifyEvent , + widgetPropertyNotifyEventCallbackWrapper, + widgetPropertyNotifyEventClosure , + + +-- ** ProximityInEvent + WidgetProximityInEventCallback , + WidgetProximityInEventCallbackC , + WidgetProximityInEventSignalInfo , + afterWidgetProximityInEvent , + mkWidgetProximityInEventCallback , + noWidgetProximityInEventCallback , + onWidgetProximityInEvent , + widgetProximityInEventCallbackWrapper , + widgetProximityInEventClosure , + + +-- ** ProximityOutEvent + WidgetProximityOutEventCallback , + WidgetProximityOutEventCallbackC , + WidgetProximityOutEventSignalInfo , + afterWidgetProximityOutEvent , + mkWidgetProximityOutEventCallback , + noWidgetProximityOutEventCallback , + onWidgetProximityOutEvent , + widgetProximityOutEventCallbackWrapper , + widgetProximityOutEventClosure , + + +-- ** QueryTooltip + WidgetQueryTooltipCallback , + WidgetQueryTooltipCallbackC , + WidgetQueryTooltipSignalInfo , + afterWidgetQueryTooltip , + mkWidgetQueryTooltipCallback , + noWidgetQueryTooltipCallback , + onWidgetQueryTooltip , + widgetQueryTooltipCallbackWrapper , + widgetQueryTooltipClosure , + + +-- ** Realize + WidgetRealizeCallback , + WidgetRealizeCallbackC , + WidgetRealizeSignalInfo , + afterWidgetRealize , + mkWidgetRealizeCallback , + noWidgetRealizeCallback , + onWidgetRealize , + widgetRealizeCallbackWrapper , + widgetRealizeClosure , + + +-- ** ScreenChanged + WidgetScreenChangedCallback , + WidgetScreenChangedCallbackC , + WidgetScreenChangedSignalInfo , + afterWidgetScreenChanged , + mkWidgetScreenChangedCallback , + noWidgetScreenChangedCallback , + onWidgetScreenChanged , + widgetScreenChangedCallbackWrapper , + widgetScreenChangedClosure , + + +-- ** ScrollEvent + WidgetScrollEventCallback , + WidgetScrollEventCallbackC , + WidgetScrollEventSignalInfo , + afterWidgetScrollEvent , + mkWidgetScrollEventCallback , + noWidgetScrollEventCallback , + onWidgetScrollEvent , + widgetScrollEventCallbackWrapper , + widgetScrollEventClosure , + + +-- ** SelectionClearEvent + WidgetSelectionClearEventCallback , + WidgetSelectionClearEventCallbackC , + WidgetSelectionClearEventSignalInfo , + afterWidgetSelectionClearEvent , + mkWidgetSelectionClearEventCallback , + noWidgetSelectionClearEventCallback , + onWidgetSelectionClearEvent , + widgetSelectionClearEventCallbackWrapper, + widgetSelectionClearEventClosure , + + +-- ** SelectionGet + WidgetSelectionGetCallback , + WidgetSelectionGetCallbackC , + WidgetSelectionGetSignalInfo , + afterWidgetSelectionGet , + mkWidgetSelectionGetCallback , + noWidgetSelectionGetCallback , + onWidgetSelectionGet , + widgetSelectionGetCallbackWrapper , + widgetSelectionGetClosure , + + +-- ** SelectionNotifyEvent + WidgetSelectionNotifyEventCallback , + WidgetSelectionNotifyEventCallbackC , + WidgetSelectionNotifyEventSignalInfo , + afterWidgetSelectionNotifyEvent , + mkWidgetSelectionNotifyEventCallback , + noWidgetSelectionNotifyEventCallback , + onWidgetSelectionNotifyEvent , + widgetSelectionNotifyEventCallbackWrapper, + widgetSelectionNotifyEventClosure , + + +-- ** SelectionReceived + WidgetSelectionReceivedCallback , + WidgetSelectionReceivedCallbackC , + WidgetSelectionReceivedSignalInfo , + afterWidgetSelectionReceived , + mkWidgetSelectionReceivedCallback , + noWidgetSelectionReceivedCallback , + onWidgetSelectionReceived , + widgetSelectionReceivedCallbackWrapper , + widgetSelectionReceivedClosure , + + +-- ** SelectionRequestEvent + WidgetSelectionRequestEventCallback , + WidgetSelectionRequestEventCallbackC , + WidgetSelectionRequestEventSignalInfo , + afterWidgetSelectionRequestEvent , + mkWidgetSelectionRequestEventCallback , + noWidgetSelectionRequestEventCallback , + onWidgetSelectionRequestEvent , + widgetSelectionRequestEventCallbackWrapper, + widgetSelectionRequestEventClosure , + + +-- ** Show + WidgetShowCallback , + WidgetShowCallbackC , + WidgetShowSignalInfo , + afterWidgetShow , + mkWidgetShowCallback , + noWidgetShowCallback , + onWidgetShow , + widgetShowCallbackWrapper , + widgetShowClosure , + + +-- ** ShowHelp + WidgetShowHelpCallback , + WidgetShowHelpCallbackC , + WidgetShowHelpSignalInfo , + afterWidgetShowHelp , + mkWidgetShowHelpCallback , + noWidgetShowHelpCallback , + onWidgetShowHelp , + widgetShowHelpCallbackWrapper , + widgetShowHelpClosure , + + +-- ** SizeAllocate + WidgetSizeAllocateCallback , + WidgetSizeAllocateCallbackC , + WidgetSizeAllocateSignalInfo , + afterWidgetSizeAllocate , + mkWidgetSizeAllocateCallback , + noWidgetSizeAllocateCallback , + onWidgetSizeAllocate , + widgetSizeAllocateCallbackWrapper , + widgetSizeAllocateClosure , + + +-- ** StateChanged + WidgetStateChangedCallback , + WidgetStateChangedCallbackC , + WidgetStateChangedSignalInfo , + afterWidgetStateChanged , + mkWidgetStateChangedCallback , + noWidgetStateChangedCallback , + onWidgetStateChanged , + widgetStateChangedCallbackWrapper , + widgetStateChangedClosure , + + +-- ** StateFlagsChanged + WidgetStateFlagsChangedCallback , + WidgetStateFlagsChangedCallbackC , + WidgetStateFlagsChangedSignalInfo , + afterWidgetStateFlagsChanged , + mkWidgetStateFlagsChangedCallback , + noWidgetStateFlagsChangedCallback , + onWidgetStateFlagsChanged , + widgetStateFlagsChangedCallbackWrapper , + widgetStateFlagsChangedClosure , + + +-- ** StyleSet + WidgetStyleSetCallback , + WidgetStyleSetCallbackC , + WidgetStyleSetSignalInfo , + afterWidgetStyleSet , + mkWidgetStyleSetCallback , + noWidgetStyleSetCallback , + onWidgetStyleSet , + widgetStyleSetCallbackWrapper , + widgetStyleSetClosure , + + +-- ** StyleUpdated + WidgetStyleUpdatedCallback , + WidgetStyleUpdatedCallbackC , + WidgetStyleUpdatedSignalInfo , + afterWidgetStyleUpdated , + mkWidgetStyleUpdatedCallback , + noWidgetStyleUpdatedCallback , + onWidgetStyleUpdated , + widgetStyleUpdatedCallbackWrapper , + widgetStyleUpdatedClosure , + + +-- ** TouchEvent + WidgetTouchEventCallback , + WidgetTouchEventCallbackC , + WidgetTouchEventSignalInfo , + afterWidgetTouchEvent , + mkWidgetTouchEventCallback , + noWidgetTouchEventCallback , + onWidgetTouchEvent , + widgetTouchEventCallbackWrapper , + widgetTouchEventClosure , + + +-- ** Unmap + WidgetUnmapCallback , + WidgetUnmapCallbackC , + WidgetUnmapSignalInfo , + afterWidgetUnmap , + mkWidgetUnmapCallback , + noWidgetUnmapCallback , + onWidgetUnmap , + widgetUnmapCallbackWrapper , + widgetUnmapClosure , + + +-- ** UnmapEvent + WidgetUnmapEventCallback , + WidgetUnmapEventCallbackC , + WidgetUnmapEventSignalInfo , + afterWidgetUnmapEvent , + mkWidgetUnmapEventCallback , + noWidgetUnmapEventCallback , + onWidgetUnmapEvent , + widgetUnmapEventCallbackWrapper , + widgetUnmapEventClosure , + + +-- ** Unrealize + WidgetUnrealizeCallback , + WidgetUnrealizeCallbackC , + WidgetUnrealizeSignalInfo , + afterWidgetUnrealize , + mkWidgetUnrealizeCallback , + noWidgetUnrealizeCallback , + onWidgetUnrealize , + widgetUnrealizeCallbackWrapper , + widgetUnrealizeClosure , + + +-- ** VisibilityNotifyEvent + WidgetVisibilityNotifyEventCallback , + WidgetVisibilityNotifyEventCallbackC , + WidgetVisibilityNotifyEventSignalInfo , + afterWidgetVisibilityNotifyEvent , + mkWidgetVisibilityNotifyEventCallback , + noWidgetVisibilityNotifyEventCallback , + onWidgetVisibilityNotifyEvent , + widgetVisibilityNotifyEventCallbackWrapper, + widgetVisibilityNotifyEventClosure , + + +-- ** WindowStateEvent + WidgetWindowStateEventCallback , + WidgetWindowStateEventCallbackC , + WidgetWindowStateEventSignalInfo , + afterWidgetWindowStateEvent , + mkWidgetWindowStateEventCallback , + noWidgetWindowStateEventCallback , + onWidgetWindowStateEvent , + widgetWindowStateEventCallbackWrapper , + widgetWindowStateEventClosure , + + + + + ) 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.Gtk.Types +import GI.Gtk.Callbacks +import qualified GI.Atk as Atk +import qualified GI.GLib as GLib +import qualified GI.GObject as GObject +import qualified GI.Gdk as Gdk +import qualified GI.GdkPixbuf as GdkPixbuf +import qualified GI.Gio as Gio +import qualified GI.Pango as Pango +import qualified GI.Cairo as Cairo + +newtype Widget = Widget (ForeignPtr Widget) +foreign import ccall "gtk_widget_get_type" + c_gtk_widget_get_type :: IO GType + +type instance ParentTypes Widget = WidgetParentTypes +type WidgetParentTypes = '[GObject.Object, Atk.ImplementorIface, Buildable] + +instance GObject Widget where + gobjectIsInitiallyUnowned _ = True + gobjectType _ = c_gtk_widget_get_type + + +class GObject o => WidgetK o +instance (GObject o, IsDescendantOf Widget o) => WidgetK o + +toWidget :: WidgetK o => o -> IO Widget +toWidget = unsafeCastTo Widget + +noWidget :: Maybe Widget +noWidget = Nothing + +type family ResolveWidgetMethod (t :: Symbol) (o :: *) :: * where + ResolveWidgetMethod "activate" o = WidgetActivateMethodInfo + ResolveWidgetMethod "addAccelerator" o = WidgetAddAcceleratorMethodInfo + ResolveWidgetMethod "addChild" o = BuildableAddChildMethodInfo + ResolveWidgetMethod "addDeviceEvents" o = WidgetAddDeviceEventsMethodInfo + ResolveWidgetMethod "addEvents" o = WidgetAddEventsMethodInfo + ResolveWidgetMethod "addMnemonicLabel" o = WidgetAddMnemonicLabelMethodInfo + ResolveWidgetMethod "addTickCallback" o = WidgetAddTickCallbackMethodInfo + ResolveWidgetMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolveWidgetMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolveWidgetMethod "canActivateAccel" o = WidgetCanActivateAccelMethodInfo + ResolveWidgetMethod "childFocus" o = WidgetChildFocusMethodInfo + ResolveWidgetMethod "childNotify" o = WidgetChildNotifyMethodInfo + ResolveWidgetMethod "classPath" o = WidgetClassPathMethodInfo + ResolveWidgetMethod "computeExpand" o = WidgetComputeExpandMethodInfo + ResolveWidgetMethod "constructChild" o = BuildableConstructChildMethodInfo + ResolveWidgetMethod "createPangoContext" o = WidgetCreatePangoContextMethodInfo + ResolveWidgetMethod "createPangoLayout" o = WidgetCreatePangoLayoutMethodInfo + ResolveWidgetMethod "customFinished" o = BuildableCustomFinishedMethodInfo + ResolveWidgetMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo + ResolveWidgetMethod "customTagStart" o = BuildableCustomTagStartMethodInfo + ResolveWidgetMethod "destroy" o = WidgetDestroyMethodInfo + ResolveWidgetMethod "destroyed" o = WidgetDestroyedMethodInfo + ResolveWidgetMethod "deviceIsShadowed" o = WidgetDeviceIsShadowedMethodInfo + ResolveWidgetMethod "dragBegin" o = WidgetDragBeginMethodInfo + ResolveWidgetMethod "dragBeginWithCoordinates" o = WidgetDragBeginWithCoordinatesMethodInfo + ResolveWidgetMethod "dragCheckThreshold" o = WidgetDragCheckThresholdMethodInfo + ResolveWidgetMethod "dragDestAddImageTargets" o = WidgetDragDestAddImageTargetsMethodInfo + ResolveWidgetMethod "dragDestAddTextTargets" o = WidgetDragDestAddTextTargetsMethodInfo + ResolveWidgetMethod "dragDestAddUriTargets" o = WidgetDragDestAddUriTargetsMethodInfo + ResolveWidgetMethod "dragDestFindTarget" o = WidgetDragDestFindTargetMethodInfo + ResolveWidgetMethod "dragDestGetTargetList" o = WidgetDragDestGetTargetListMethodInfo + ResolveWidgetMethod "dragDestGetTrackMotion" o = WidgetDragDestGetTrackMotionMethodInfo + ResolveWidgetMethod "dragDestSet" o = WidgetDragDestSetMethodInfo + ResolveWidgetMethod "dragDestSetProxy" o = WidgetDragDestSetProxyMethodInfo + ResolveWidgetMethod "dragDestSetTargetList" o = WidgetDragDestSetTargetListMethodInfo + ResolveWidgetMethod "dragDestSetTrackMotion" o = WidgetDragDestSetTrackMotionMethodInfo + ResolveWidgetMethod "dragDestUnset" o = WidgetDragDestUnsetMethodInfo + ResolveWidgetMethod "dragGetData" o = WidgetDragGetDataMethodInfo + ResolveWidgetMethod "dragHighlight" o = WidgetDragHighlightMethodInfo + ResolveWidgetMethod "dragSourceAddImageTargets" o = WidgetDragSourceAddImageTargetsMethodInfo + ResolveWidgetMethod "dragSourceAddTextTargets" o = WidgetDragSourceAddTextTargetsMethodInfo + ResolveWidgetMethod "dragSourceAddUriTargets" o = WidgetDragSourceAddUriTargetsMethodInfo + ResolveWidgetMethod "dragSourceGetTargetList" o = WidgetDragSourceGetTargetListMethodInfo + ResolveWidgetMethod "dragSourceSet" o = WidgetDragSourceSetMethodInfo + ResolveWidgetMethod "dragSourceSetIconGicon" o = WidgetDragSourceSetIconGiconMethodInfo + ResolveWidgetMethod "dragSourceSetIconName" o = WidgetDragSourceSetIconNameMethodInfo + ResolveWidgetMethod "dragSourceSetIconPixbuf" o = WidgetDragSourceSetIconPixbufMethodInfo + ResolveWidgetMethod "dragSourceSetIconStock" o = WidgetDragSourceSetIconStockMethodInfo + ResolveWidgetMethod "dragSourceSetTargetList" o = WidgetDragSourceSetTargetListMethodInfo + ResolveWidgetMethod "dragSourceUnset" o = WidgetDragSourceUnsetMethodInfo + ResolveWidgetMethod "dragUnhighlight" o = WidgetDragUnhighlightMethodInfo + ResolveWidgetMethod "draw" o = WidgetDrawMethodInfo + ResolveWidgetMethod "ensureStyle" o = WidgetEnsureStyleMethodInfo + ResolveWidgetMethod "errorBell" o = WidgetErrorBellMethodInfo + ResolveWidgetMethod "event" o = WidgetEventMethodInfo + ResolveWidgetMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolveWidgetMethod "freezeChildNotify" o = WidgetFreezeChildNotifyMethodInfo + ResolveWidgetMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolveWidgetMethod "grabAdd" o = WidgetGrabAddMethodInfo + ResolveWidgetMethod "grabDefault" o = WidgetGrabDefaultMethodInfo + ResolveWidgetMethod "grabFocus" o = WidgetGrabFocusMethodInfo + ResolveWidgetMethod "grabRemove" o = WidgetGrabRemoveMethodInfo + ResolveWidgetMethod "hasDefault" o = WidgetHasDefaultMethodInfo + ResolveWidgetMethod "hasFocus" o = WidgetHasFocusMethodInfo + ResolveWidgetMethod "hasGrab" o = WidgetHasGrabMethodInfo + ResolveWidgetMethod "hasRcStyle" o = WidgetHasRcStyleMethodInfo + ResolveWidgetMethod "hasScreen" o = WidgetHasScreenMethodInfo + ResolveWidgetMethod "hasVisibleFocus" o = WidgetHasVisibleFocusMethodInfo + ResolveWidgetMethod "hide" o = WidgetHideMethodInfo + ResolveWidgetMethod "hideOnDelete" o = WidgetHideOnDeleteMethodInfo + ResolveWidgetMethod "inDestruction" o = WidgetInDestructionMethodInfo + ResolveWidgetMethod "initTemplate" o = WidgetInitTemplateMethodInfo + ResolveWidgetMethod "inputShapeCombineRegion" o = WidgetInputShapeCombineRegionMethodInfo + ResolveWidgetMethod "insertActionGroup" o = WidgetInsertActionGroupMethodInfo + ResolveWidgetMethod "intersect" o = WidgetIntersectMethodInfo + ResolveWidgetMethod "isAncestor" o = WidgetIsAncestorMethodInfo + ResolveWidgetMethod "isComposited" o = WidgetIsCompositedMethodInfo + ResolveWidgetMethod "isDrawable" o = WidgetIsDrawableMethodInfo + ResolveWidgetMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolveWidgetMethod "isFocus" o = WidgetIsFocusMethodInfo + ResolveWidgetMethod "isSensitive" o = WidgetIsSensitiveMethodInfo + ResolveWidgetMethod "isToplevel" o = WidgetIsToplevelMethodInfo + ResolveWidgetMethod "isVisible" o = WidgetIsVisibleMethodInfo + ResolveWidgetMethod "keynavFailed" o = WidgetKeynavFailedMethodInfo + ResolveWidgetMethod "listAccelClosures" o = WidgetListAccelClosuresMethodInfo + ResolveWidgetMethod "listActionPrefixes" o = WidgetListActionPrefixesMethodInfo + ResolveWidgetMethod "listMnemonicLabels" o = WidgetListMnemonicLabelsMethodInfo + ResolveWidgetMethod "map" o = WidgetMapMethodInfo + ResolveWidgetMethod "mnemonicActivate" o = WidgetMnemonicActivateMethodInfo + ResolveWidgetMethod "modifyBase" o = WidgetModifyBaseMethodInfo + ResolveWidgetMethod "modifyBg" o = WidgetModifyBgMethodInfo + ResolveWidgetMethod "modifyCursor" o = WidgetModifyCursorMethodInfo + ResolveWidgetMethod "modifyFg" o = WidgetModifyFgMethodInfo + ResolveWidgetMethod "modifyFont" o = WidgetModifyFontMethodInfo + ResolveWidgetMethod "modifyStyle" o = WidgetModifyStyleMethodInfo + ResolveWidgetMethod "modifyText" o = WidgetModifyTextMethodInfo + ResolveWidgetMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolveWidgetMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolveWidgetMethod "overrideBackgroundColor" o = WidgetOverrideBackgroundColorMethodInfo + ResolveWidgetMethod "overrideColor" o = WidgetOverrideColorMethodInfo + ResolveWidgetMethod "overrideCursor" o = WidgetOverrideCursorMethodInfo + ResolveWidgetMethod "overrideFont" o = WidgetOverrideFontMethodInfo + ResolveWidgetMethod "overrideSymbolicColor" o = WidgetOverrideSymbolicColorMethodInfo + ResolveWidgetMethod "parserFinished" o = BuildableParserFinishedMethodInfo + ResolveWidgetMethod "path" o = WidgetPathMethodInfo + ResolveWidgetMethod "queueComputeExpand" o = WidgetQueueComputeExpandMethodInfo + ResolveWidgetMethod "queueDraw" o = WidgetQueueDrawMethodInfo + ResolveWidgetMethod "queueDrawArea" o = WidgetQueueDrawAreaMethodInfo + ResolveWidgetMethod "queueDrawRegion" o = WidgetQueueDrawRegionMethodInfo + ResolveWidgetMethod "queueResize" o = WidgetQueueResizeMethodInfo + ResolveWidgetMethod "queueResizeNoRedraw" o = WidgetQueueResizeNoRedrawMethodInfo + ResolveWidgetMethod "realize" o = WidgetRealizeMethodInfo + ResolveWidgetMethod "ref" o = GObject.ObjectRefMethodInfo + ResolveWidgetMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolveWidgetMethod "regionIntersect" o = WidgetRegionIntersectMethodInfo + ResolveWidgetMethod "registerWindow" o = WidgetRegisterWindowMethodInfo + ResolveWidgetMethod "removeAccelerator" o = WidgetRemoveAcceleratorMethodInfo + ResolveWidgetMethod "removeMnemonicLabel" o = WidgetRemoveMnemonicLabelMethodInfo + ResolveWidgetMethod "removeTickCallback" o = WidgetRemoveTickCallbackMethodInfo + ResolveWidgetMethod "renderIcon" o = WidgetRenderIconMethodInfo + ResolveWidgetMethod "renderIconPixbuf" o = WidgetRenderIconPixbufMethodInfo + ResolveWidgetMethod "reparent" o = WidgetReparentMethodInfo + ResolveWidgetMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolveWidgetMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolveWidgetMethod "resetRcStyles" o = WidgetResetRcStylesMethodInfo + ResolveWidgetMethod "resetStyle" o = WidgetResetStyleMethodInfo + ResolveWidgetMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolveWidgetMethod "sendExpose" o = WidgetSendExposeMethodInfo + ResolveWidgetMethod "sendFocusChange" o = WidgetSendFocusChangeMethodInfo + ResolveWidgetMethod "shapeCombineRegion" o = WidgetShapeCombineRegionMethodInfo + ResolveWidgetMethod "show" o = WidgetShowMethodInfo + ResolveWidgetMethod "showAll" o = WidgetShowAllMethodInfo + ResolveWidgetMethod "showNow" o = WidgetShowNowMethodInfo + ResolveWidgetMethod "sizeAllocate" o = WidgetSizeAllocateMethodInfo + ResolveWidgetMethod "sizeAllocateWithBaseline" o = WidgetSizeAllocateWithBaselineMethodInfo + ResolveWidgetMethod "sizeRequest" o = WidgetSizeRequestMethodInfo + ResolveWidgetMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolveWidgetMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolveWidgetMethod "styleAttach" o = WidgetStyleAttachMethodInfo + ResolveWidgetMethod "styleGetProperty" o = WidgetStyleGetPropertyMethodInfo + ResolveWidgetMethod "thawChildNotify" o = WidgetThawChildNotifyMethodInfo + ResolveWidgetMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolveWidgetMethod "translateCoordinates" o = WidgetTranslateCoordinatesMethodInfo + ResolveWidgetMethod "triggerTooltipQuery" o = WidgetTriggerTooltipQueryMethodInfo + ResolveWidgetMethod "unmap" o = WidgetUnmapMethodInfo + ResolveWidgetMethod "unparent" o = WidgetUnparentMethodInfo + ResolveWidgetMethod "unrealize" o = WidgetUnrealizeMethodInfo + ResolveWidgetMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolveWidgetMethod "unregisterWindow" o = WidgetUnregisterWindowMethodInfo + ResolveWidgetMethod "unsetStateFlags" o = WidgetUnsetStateFlagsMethodInfo + ResolveWidgetMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolveWidgetMethod "getAccessible" o = WidgetGetAccessibleMethodInfo + ResolveWidgetMethod "getActionGroup" o = WidgetGetActionGroupMethodInfo + ResolveWidgetMethod "getAllocatedBaseline" o = WidgetGetAllocatedBaselineMethodInfo + ResolveWidgetMethod "getAllocatedHeight" o = WidgetGetAllocatedHeightMethodInfo + ResolveWidgetMethod "getAllocatedWidth" o = WidgetGetAllocatedWidthMethodInfo + ResolveWidgetMethod "getAllocation" o = WidgetGetAllocationMethodInfo + ResolveWidgetMethod "getAncestor" o = WidgetGetAncestorMethodInfo + ResolveWidgetMethod "getAppPaintable" o = WidgetGetAppPaintableMethodInfo + ResolveWidgetMethod "getCanDefault" o = WidgetGetCanDefaultMethodInfo + ResolveWidgetMethod "getCanFocus" o = WidgetGetCanFocusMethodInfo + ResolveWidgetMethod "getChildRequisition" o = WidgetGetChildRequisitionMethodInfo + ResolveWidgetMethod "getChildVisible" o = WidgetGetChildVisibleMethodInfo + ResolveWidgetMethod "getClip" o = WidgetGetClipMethodInfo + ResolveWidgetMethod "getClipboard" o = WidgetGetClipboardMethodInfo + ResolveWidgetMethod "getCompositeName" o = WidgetGetCompositeNameMethodInfo + ResolveWidgetMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolveWidgetMethod "getDeviceEnabled" o = WidgetGetDeviceEnabledMethodInfo + ResolveWidgetMethod "getDeviceEvents" o = WidgetGetDeviceEventsMethodInfo + ResolveWidgetMethod "getDirection" o = WidgetGetDirectionMethodInfo + ResolveWidgetMethod "getDisplay" o = WidgetGetDisplayMethodInfo + ResolveWidgetMethod "getDoubleBuffered" o = WidgetGetDoubleBufferedMethodInfo + ResolveWidgetMethod "getEvents" o = WidgetGetEventsMethodInfo + ResolveWidgetMethod "getFontMap" o = WidgetGetFontMapMethodInfo + ResolveWidgetMethod "getFontOptions" o = WidgetGetFontOptionsMethodInfo + ResolveWidgetMethod "getFrameClock" o = WidgetGetFrameClockMethodInfo + ResolveWidgetMethod "getHalign" o = WidgetGetHalignMethodInfo + ResolveWidgetMethod "getHasTooltip" o = WidgetGetHasTooltipMethodInfo + ResolveWidgetMethod "getHasWindow" o = WidgetGetHasWindowMethodInfo + ResolveWidgetMethod "getHexpand" o = WidgetGetHexpandMethodInfo + ResolveWidgetMethod "getHexpandSet" o = WidgetGetHexpandSetMethodInfo + ResolveWidgetMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo + ResolveWidgetMethod "getMapped" o = WidgetGetMappedMethodInfo + ResolveWidgetMethod "getMarginBottom" o = WidgetGetMarginBottomMethodInfo + ResolveWidgetMethod "getMarginEnd" o = WidgetGetMarginEndMethodInfo + ResolveWidgetMethod "getMarginLeft" o = WidgetGetMarginLeftMethodInfo + ResolveWidgetMethod "getMarginRight" o = WidgetGetMarginRightMethodInfo + ResolveWidgetMethod "getMarginStart" o = WidgetGetMarginStartMethodInfo + ResolveWidgetMethod "getMarginTop" o = WidgetGetMarginTopMethodInfo + ResolveWidgetMethod "getModifierMask" o = WidgetGetModifierMaskMethodInfo + ResolveWidgetMethod "getModifierStyle" o = WidgetGetModifierStyleMethodInfo + ResolveWidgetMethod "getNoShowAll" o = WidgetGetNoShowAllMethodInfo + ResolveWidgetMethod "getOpacity" o = WidgetGetOpacityMethodInfo + ResolveWidgetMethod "getPangoContext" o = WidgetGetPangoContextMethodInfo + ResolveWidgetMethod "getParent" o = WidgetGetParentMethodInfo + ResolveWidgetMethod "getParentWindow" o = WidgetGetParentWindowMethodInfo + ResolveWidgetMethod "getPath" o = WidgetGetPathMethodInfo + ResolveWidgetMethod "getPointer" o = WidgetGetPointerMethodInfo + ResolveWidgetMethod "getPreferredHeight" o = WidgetGetPreferredHeightMethodInfo + ResolveWidgetMethod "getPreferredHeightAndBaselineForWidth" o = WidgetGetPreferredHeightAndBaselineForWidthMethodInfo + ResolveWidgetMethod "getPreferredHeightForWidth" o = WidgetGetPreferredHeightForWidthMethodInfo + ResolveWidgetMethod "getPreferredSize" o = WidgetGetPreferredSizeMethodInfo + ResolveWidgetMethod "getPreferredWidth" o = WidgetGetPreferredWidthMethodInfo + ResolveWidgetMethod "getPreferredWidthForHeight" o = WidgetGetPreferredWidthForHeightMethodInfo + ResolveWidgetMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolveWidgetMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolveWidgetMethod "getRealized" o = WidgetGetRealizedMethodInfo + ResolveWidgetMethod "getReceivesDefault" o = WidgetGetReceivesDefaultMethodInfo + ResolveWidgetMethod "getRequestMode" o = WidgetGetRequestModeMethodInfo + ResolveWidgetMethod "getRequisition" o = WidgetGetRequisitionMethodInfo + ResolveWidgetMethod "getRootWindow" o = WidgetGetRootWindowMethodInfo + ResolveWidgetMethod "getScaleFactor" o = WidgetGetScaleFactorMethodInfo + ResolveWidgetMethod "getScreen" o = WidgetGetScreenMethodInfo + ResolveWidgetMethod "getSensitive" o = WidgetGetSensitiveMethodInfo + ResolveWidgetMethod "getSettings" o = WidgetGetSettingsMethodInfo + ResolveWidgetMethod "getSizeRequest" o = WidgetGetSizeRequestMethodInfo + ResolveWidgetMethod "getState" o = WidgetGetStateMethodInfo + ResolveWidgetMethod "getStateFlags" o = WidgetGetStateFlagsMethodInfo + ResolveWidgetMethod "getStyle" o = WidgetGetStyleMethodInfo + ResolveWidgetMethod "getStyleContext" o = WidgetGetStyleContextMethodInfo + ResolveWidgetMethod "getSupportMultidevice" o = WidgetGetSupportMultideviceMethodInfo + ResolveWidgetMethod "getTemplateChild" o = WidgetGetTemplateChildMethodInfo + ResolveWidgetMethod "getTooltipMarkup" o = WidgetGetTooltipMarkupMethodInfo + ResolveWidgetMethod "getTooltipText" o = WidgetGetTooltipTextMethodInfo + ResolveWidgetMethod "getTooltipWindow" o = WidgetGetTooltipWindowMethodInfo + ResolveWidgetMethod "getToplevel" o = WidgetGetToplevelMethodInfo + ResolveWidgetMethod "getValign" o = WidgetGetValignMethodInfo + ResolveWidgetMethod "getValignWithBaseline" o = WidgetGetValignWithBaselineMethodInfo + ResolveWidgetMethod "getVexpand" o = WidgetGetVexpandMethodInfo + ResolveWidgetMethod "getVexpandSet" o = WidgetGetVexpandSetMethodInfo + ResolveWidgetMethod "getVisible" o = WidgetGetVisibleMethodInfo + ResolveWidgetMethod "getVisual" o = WidgetGetVisualMethodInfo + ResolveWidgetMethod "getWindow" o = WidgetGetWindowMethodInfo + ResolveWidgetMethod "setAccelPath" o = WidgetSetAccelPathMethodInfo + ResolveWidgetMethod "setAllocation" o = WidgetSetAllocationMethodInfo + ResolveWidgetMethod "setAppPaintable" o = WidgetSetAppPaintableMethodInfo + ResolveWidgetMethod "setBuildableProperty" o = BuildableSetBuildablePropertyMethodInfo + ResolveWidgetMethod "setCanDefault" o = WidgetSetCanDefaultMethodInfo + ResolveWidgetMethod "setCanFocus" o = WidgetSetCanFocusMethodInfo + ResolveWidgetMethod "setChildVisible" o = WidgetSetChildVisibleMethodInfo + ResolveWidgetMethod "setClip" o = WidgetSetClipMethodInfo + ResolveWidgetMethod "setCompositeName" o = WidgetSetCompositeNameMethodInfo + ResolveWidgetMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolveWidgetMethod "setDeviceEnabled" o = WidgetSetDeviceEnabledMethodInfo + ResolveWidgetMethod "setDeviceEvents" o = WidgetSetDeviceEventsMethodInfo + ResolveWidgetMethod "setDirection" o = WidgetSetDirectionMethodInfo + ResolveWidgetMethod "setDoubleBuffered" o = WidgetSetDoubleBufferedMethodInfo + ResolveWidgetMethod "setEvents" o = WidgetSetEventsMethodInfo + ResolveWidgetMethod "setFontMap" o = WidgetSetFontMapMethodInfo + ResolveWidgetMethod "setFontOptions" o = WidgetSetFontOptionsMethodInfo + ResolveWidgetMethod "setHalign" o = WidgetSetHalignMethodInfo + ResolveWidgetMethod "setHasTooltip" o = WidgetSetHasTooltipMethodInfo + ResolveWidgetMethod "setHasWindow" o = WidgetSetHasWindowMethodInfo + ResolveWidgetMethod "setHexpand" o = WidgetSetHexpandMethodInfo + ResolveWidgetMethod "setHexpandSet" o = WidgetSetHexpandSetMethodInfo + ResolveWidgetMethod "setMapped" o = WidgetSetMappedMethodInfo + ResolveWidgetMethod "setMarginBottom" o = WidgetSetMarginBottomMethodInfo + ResolveWidgetMethod "setMarginEnd" o = WidgetSetMarginEndMethodInfo + ResolveWidgetMethod "setMarginLeft" o = WidgetSetMarginLeftMethodInfo + ResolveWidgetMethod "setMarginRight" o = WidgetSetMarginRightMethodInfo + ResolveWidgetMethod "setMarginStart" o = WidgetSetMarginStartMethodInfo + ResolveWidgetMethod "setMarginTop" o = WidgetSetMarginTopMethodInfo + ResolveWidgetMethod "setNoShowAll" o = WidgetSetNoShowAllMethodInfo + ResolveWidgetMethod "setOpacity" o = WidgetSetOpacityMethodInfo + ResolveWidgetMethod "setParent" o = WidgetSetParentMethodInfo + ResolveWidgetMethod "setParentWindow" o = WidgetSetParentWindowMethodInfo + ResolveWidgetMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolveWidgetMethod "setRealized" o = WidgetSetRealizedMethodInfo + ResolveWidgetMethod "setReceivesDefault" o = WidgetSetReceivesDefaultMethodInfo + ResolveWidgetMethod "setRedrawOnAllocate" o = WidgetSetRedrawOnAllocateMethodInfo + ResolveWidgetMethod "setSensitive" o = WidgetSetSensitiveMethodInfo + ResolveWidgetMethod "setSizeRequest" o = WidgetSetSizeRequestMethodInfo + ResolveWidgetMethod "setState" o = WidgetSetStateMethodInfo + ResolveWidgetMethod "setStateFlags" o = WidgetSetStateFlagsMethodInfo + ResolveWidgetMethod "setStyle" o = WidgetSetStyleMethodInfo + ResolveWidgetMethod "setSupportMultidevice" o = WidgetSetSupportMultideviceMethodInfo + ResolveWidgetMethod "setTooltipMarkup" o = WidgetSetTooltipMarkupMethodInfo + ResolveWidgetMethod "setTooltipText" o = WidgetSetTooltipTextMethodInfo + ResolveWidgetMethod "setTooltipWindow" o = WidgetSetTooltipWindowMethodInfo + ResolveWidgetMethod "setValign" o = WidgetSetValignMethodInfo + ResolveWidgetMethod "setVexpand" o = WidgetSetVexpandMethodInfo + ResolveWidgetMethod "setVexpandSet" o = WidgetSetVexpandSetMethodInfo + ResolveWidgetMethod "setVisible" o = WidgetSetVisibleMethodInfo + ResolveWidgetMethod "setVisual" o = WidgetSetVisualMethodInfo + ResolveWidgetMethod "setWindow" o = WidgetSetWindowMethodInfo + ResolveWidgetMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolveWidgetMethod t Widget, MethodInfo info Widget p) => IsLabelProxy t (Widget -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolveWidgetMethod t Widget, MethodInfo info Widget p) => IsLabel t (Widget -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + +-- signal Widget::accel-closures-changed +type WidgetAccelClosuresChangedCallback = + IO () + +noWidgetAccelClosuresChangedCallback :: Maybe WidgetAccelClosuresChangedCallback +noWidgetAccelClosuresChangedCallback = Nothing + +type WidgetAccelClosuresChangedCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWidgetAccelClosuresChangedCallback :: WidgetAccelClosuresChangedCallbackC -> IO (FunPtr WidgetAccelClosuresChangedCallbackC) + +widgetAccelClosuresChangedClosure :: WidgetAccelClosuresChangedCallback -> IO Closure +widgetAccelClosuresChangedClosure cb = newCClosure =<< mkWidgetAccelClosuresChangedCallback wrapped + where wrapped = widgetAccelClosuresChangedCallbackWrapper cb + +widgetAccelClosuresChangedCallbackWrapper :: + WidgetAccelClosuresChangedCallback -> + Ptr () -> + Ptr () -> + IO () +widgetAccelClosuresChangedCallbackWrapper _cb _ _ = do + _cb + +onWidgetAccelClosuresChanged :: (GObject a, MonadIO m) => a -> WidgetAccelClosuresChangedCallback -> m SignalHandlerId +onWidgetAccelClosuresChanged obj cb = liftIO $ connectWidgetAccelClosuresChanged obj cb SignalConnectBefore +afterWidgetAccelClosuresChanged :: (GObject a, MonadIO m) => a -> WidgetAccelClosuresChangedCallback -> m SignalHandlerId +afterWidgetAccelClosuresChanged obj cb = connectWidgetAccelClosuresChanged obj cb SignalConnectAfter + +connectWidgetAccelClosuresChanged :: (GObject a, MonadIO m) => + a -> WidgetAccelClosuresChangedCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetAccelClosuresChanged obj cb after = liftIO $ do + cb' <- mkWidgetAccelClosuresChangedCallback (widgetAccelClosuresChangedCallbackWrapper cb) + connectSignalFunPtr obj "accel-closures-changed" cb' after + +-- signal Widget::button-press-event +type WidgetButtonPressEventCallback = + Gdk.EventButton -> + IO Bool + +noWidgetButtonPressEventCallback :: Maybe WidgetButtonPressEventCallback +noWidgetButtonPressEventCallback = Nothing + +type WidgetButtonPressEventCallbackC = + Ptr () -> -- object + Ptr Gdk.EventButton -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetButtonPressEventCallback :: WidgetButtonPressEventCallbackC -> IO (FunPtr WidgetButtonPressEventCallbackC) + +widgetButtonPressEventClosure :: WidgetButtonPressEventCallback -> IO Closure +widgetButtonPressEventClosure cb = newCClosure =<< mkWidgetButtonPressEventCallback wrapped + where wrapped = widgetButtonPressEventCallbackWrapper cb + +widgetButtonPressEventCallbackWrapper :: + WidgetButtonPressEventCallback -> + Ptr () -> + Ptr Gdk.EventButton -> + Ptr () -> + IO CInt +widgetButtonPressEventCallbackWrapper _cb _ event _ = do + event' <- (newPtr 80 Gdk.EventButton) event + result <- _cb event' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetButtonPressEvent :: (GObject a, MonadIO m) => a -> WidgetButtonPressEventCallback -> m SignalHandlerId +onWidgetButtonPressEvent obj cb = liftIO $ connectWidgetButtonPressEvent obj cb SignalConnectBefore +afterWidgetButtonPressEvent :: (GObject a, MonadIO m) => a -> WidgetButtonPressEventCallback -> m SignalHandlerId +afterWidgetButtonPressEvent obj cb = connectWidgetButtonPressEvent obj cb SignalConnectAfter + +connectWidgetButtonPressEvent :: (GObject a, MonadIO m) => + a -> WidgetButtonPressEventCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetButtonPressEvent obj cb after = liftIO $ do + cb' <- mkWidgetButtonPressEventCallback (widgetButtonPressEventCallbackWrapper cb) + connectSignalFunPtr obj "button-press-event" cb' after + +-- signal Widget::button-release-event +type WidgetButtonReleaseEventCallback = + Gdk.EventButton -> + IO Bool + +noWidgetButtonReleaseEventCallback :: Maybe WidgetButtonReleaseEventCallback +noWidgetButtonReleaseEventCallback = Nothing + +type WidgetButtonReleaseEventCallbackC = + Ptr () -> -- object + Ptr Gdk.EventButton -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetButtonReleaseEventCallback :: WidgetButtonReleaseEventCallbackC -> IO (FunPtr WidgetButtonReleaseEventCallbackC) + +widgetButtonReleaseEventClosure :: WidgetButtonReleaseEventCallback -> IO Closure +widgetButtonReleaseEventClosure cb = newCClosure =<< mkWidgetButtonReleaseEventCallback wrapped + where wrapped = widgetButtonReleaseEventCallbackWrapper cb + +widgetButtonReleaseEventCallbackWrapper :: + WidgetButtonReleaseEventCallback -> + Ptr () -> + Ptr Gdk.EventButton -> + Ptr () -> + IO CInt +widgetButtonReleaseEventCallbackWrapper _cb _ event _ = do + event' <- (newPtr 80 Gdk.EventButton) event + result <- _cb event' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetButtonReleaseEvent :: (GObject a, MonadIO m) => a -> WidgetButtonReleaseEventCallback -> m SignalHandlerId +onWidgetButtonReleaseEvent obj cb = liftIO $ connectWidgetButtonReleaseEvent obj cb SignalConnectBefore +afterWidgetButtonReleaseEvent :: (GObject a, MonadIO m) => a -> WidgetButtonReleaseEventCallback -> m SignalHandlerId +afterWidgetButtonReleaseEvent obj cb = connectWidgetButtonReleaseEvent obj cb SignalConnectAfter + +connectWidgetButtonReleaseEvent :: (GObject a, MonadIO m) => + a -> WidgetButtonReleaseEventCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetButtonReleaseEvent obj cb after = liftIO $ do + cb' <- mkWidgetButtonReleaseEventCallback (widgetButtonReleaseEventCallbackWrapper cb) + connectSignalFunPtr obj "button-release-event" cb' after + +-- signal Widget::can-activate-accel +type WidgetCanActivateAccelCallback = + Word32 -> + IO Bool + +noWidgetCanActivateAccelCallback :: Maybe WidgetCanActivateAccelCallback +noWidgetCanActivateAccelCallback = Nothing + +type WidgetCanActivateAccelCallbackC = + Ptr () -> -- object + Word32 -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetCanActivateAccelCallback :: WidgetCanActivateAccelCallbackC -> IO (FunPtr WidgetCanActivateAccelCallbackC) + +widgetCanActivateAccelClosure :: WidgetCanActivateAccelCallback -> IO Closure +widgetCanActivateAccelClosure cb = newCClosure =<< mkWidgetCanActivateAccelCallback wrapped + where wrapped = widgetCanActivateAccelCallbackWrapper cb + +widgetCanActivateAccelCallbackWrapper :: + WidgetCanActivateAccelCallback -> + Ptr () -> + Word32 -> + Ptr () -> + IO CInt +widgetCanActivateAccelCallbackWrapper _cb _ signalId _ = do + result <- _cb signalId + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetCanActivateAccel :: (GObject a, MonadIO m) => a -> WidgetCanActivateAccelCallback -> m SignalHandlerId +onWidgetCanActivateAccel obj cb = liftIO $ connectWidgetCanActivateAccel obj cb SignalConnectBefore +afterWidgetCanActivateAccel :: (GObject a, MonadIO m) => a -> WidgetCanActivateAccelCallback -> m SignalHandlerId +afterWidgetCanActivateAccel obj cb = connectWidgetCanActivateAccel obj cb SignalConnectAfter + +connectWidgetCanActivateAccel :: (GObject a, MonadIO m) => + a -> WidgetCanActivateAccelCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetCanActivateAccel obj cb after = liftIO $ do + cb' <- mkWidgetCanActivateAccelCallback (widgetCanActivateAccelCallbackWrapper cb) + connectSignalFunPtr obj "can-activate-accel" cb' after + +-- signal Widget::child-notify +type WidgetChildNotifyCallback = + GParamSpec -> + IO () + +noWidgetChildNotifyCallback :: Maybe WidgetChildNotifyCallback +noWidgetChildNotifyCallback = Nothing + +type WidgetChildNotifyCallbackC = + Ptr () -> -- object + Ptr GParamSpec -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWidgetChildNotifyCallback :: WidgetChildNotifyCallbackC -> IO (FunPtr WidgetChildNotifyCallbackC) + +widgetChildNotifyClosure :: WidgetChildNotifyCallback -> IO Closure +widgetChildNotifyClosure cb = newCClosure =<< mkWidgetChildNotifyCallback wrapped + where wrapped = widgetChildNotifyCallbackWrapper cb + +widgetChildNotifyCallbackWrapper :: + WidgetChildNotifyCallback -> + Ptr () -> + Ptr GParamSpec -> + Ptr () -> + IO () +widgetChildNotifyCallbackWrapper _cb _ childProperty _ = do + childProperty' <- newGParamSpecFromPtr childProperty + _cb childProperty' + +onWidgetChildNotify :: (GObject a, MonadIO m) => a -> WidgetChildNotifyCallback -> m SignalHandlerId +onWidgetChildNotify obj cb = liftIO $ connectWidgetChildNotify obj cb SignalConnectBefore +afterWidgetChildNotify :: (GObject a, MonadIO m) => a -> WidgetChildNotifyCallback -> m SignalHandlerId +afterWidgetChildNotify obj cb = connectWidgetChildNotify obj cb SignalConnectAfter + +connectWidgetChildNotify :: (GObject a, MonadIO m) => + a -> WidgetChildNotifyCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetChildNotify obj cb after = liftIO $ do + cb' <- mkWidgetChildNotifyCallback (widgetChildNotifyCallbackWrapper cb) + connectSignalFunPtr obj "child-notify" cb' after + +-- signal Widget::composited-changed +type WidgetCompositedChangedCallback = + IO () + +noWidgetCompositedChangedCallback :: Maybe WidgetCompositedChangedCallback +noWidgetCompositedChangedCallback = Nothing + +type WidgetCompositedChangedCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWidgetCompositedChangedCallback :: WidgetCompositedChangedCallbackC -> IO (FunPtr WidgetCompositedChangedCallbackC) + +widgetCompositedChangedClosure :: WidgetCompositedChangedCallback -> IO Closure +widgetCompositedChangedClosure cb = newCClosure =<< mkWidgetCompositedChangedCallback wrapped + where wrapped = widgetCompositedChangedCallbackWrapper cb + +widgetCompositedChangedCallbackWrapper :: + WidgetCompositedChangedCallback -> + Ptr () -> + Ptr () -> + IO () +widgetCompositedChangedCallbackWrapper _cb _ _ = do + _cb + +onWidgetCompositedChanged :: (GObject a, MonadIO m) => a -> WidgetCompositedChangedCallback -> m SignalHandlerId +onWidgetCompositedChanged obj cb = liftIO $ connectWidgetCompositedChanged obj cb SignalConnectBefore +afterWidgetCompositedChanged :: (GObject a, MonadIO m) => a -> WidgetCompositedChangedCallback -> m SignalHandlerId +afterWidgetCompositedChanged obj cb = connectWidgetCompositedChanged obj cb SignalConnectAfter + +connectWidgetCompositedChanged :: (GObject a, MonadIO m) => + a -> WidgetCompositedChangedCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetCompositedChanged obj cb after = liftIO $ do + cb' <- mkWidgetCompositedChangedCallback (widgetCompositedChangedCallbackWrapper cb) + connectSignalFunPtr obj "composited-changed" cb' after + +-- signal Widget::configure-event +type WidgetConfigureEventCallback = + Gdk.EventConfigure -> + IO Bool + +noWidgetConfigureEventCallback :: Maybe WidgetConfigureEventCallback +noWidgetConfigureEventCallback = Nothing + +type WidgetConfigureEventCallbackC = + Ptr () -> -- object + Ptr Gdk.EventConfigure -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetConfigureEventCallback :: WidgetConfigureEventCallbackC -> IO (FunPtr WidgetConfigureEventCallbackC) + +widgetConfigureEventClosure :: WidgetConfigureEventCallback -> IO Closure +widgetConfigureEventClosure cb = newCClosure =<< mkWidgetConfigureEventCallback wrapped + where wrapped = widgetConfigureEventCallbackWrapper cb + +widgetConfigureEventCallbackWrapper :: + WidgetConfigureEventCallback -> + Ptr () -> + Ptr Gdk.EventConfigure -> + Ptr () -> + IO CInt +widgetConfigureEventCallbackWrapper _cb _ event _ = do + event' <- (newPtr 40 Gdk.EventConfigure) event + result <- _cb event' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetConfigureEvent :: (GObject a, MonadIO m) => a -> WidgetConfigureEventCallback -> m SignalHandlerId +onWidgetConfigureEvent obj cb = liftIO $ connectWidgetConfigureEvent obj cb SignalConnectBefore +afterWidgetConfigureEvent :: (GObject a, MonadIO m) => a -> WidgetConfigureEventCallback -> m SignalHandlerId +afterWidgetConfigureEvent obj cb = connectWidgetConfigureEvent obj cb SignalConnectAfter + +connectWidgetConfigureEvent :: (GObject a, MonadIO m) => + a -> WidgetConfigureEventCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetConfigureEvent obj cb after = liftIO $ do + cb' <- mkWidgetConfigureEventCallback (widgetConfigureEventCallbackWrapper cb) + connectSignalFunPtr obj "configure-event" cb' after + +-- signal Widget::damage-event +type WidgetDamageEventCallback = + Gdk.EventExpose -> + IO Bool + +noWidgetDamageEventCallback :: Maybe WidgetDamageEventCallback +noWidgetDamageEventCallback = Nothing + +type WidgetDamageEventCallbackC = + Ptr () -> -- object + Ptr Gdk.EventExpose -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetDamageEventCallback :: WidgetDamageEventCallbackC -> IO (FunPtr WidgetDamageEventCallbackC) + +widgetDamageEventClosure :: WidgetDamageEventCallback -> IO Closure +widgetDamageEventClosure cb = newCClosure =<< mkWidgetDamageEventCallback wrapped + where wrapped = widgetDamageEventCallbackWrapper cb + +widgetDamageEventCallbackWrapper :: + WidgetDamageEventCallback -> + Ptr () -> + Ptr Gdk.EventExpose -> + Ptr () -> + IO CInt +widgetDamageEventCallbackWrapper _cb _ event _ = do + event' <- (newPtr 56 Gdk.EventExpose) event + result <- _cb event' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetDamageEvent :: (GObject a, MonadIO m) => a -> WidgetDamageEventCallback -> m SignalHandlerId +onWidgetDamageEvent obj cb = liftIO $ connectWidgetDamageEvent obj cb SignalConnectBefore +afterWidgetDamageEvent :: (GObject a, MonadIO m) => a -> WidgetDamageEventCallback -> m SignalHandlerId +afterWidgetDamageEvent obj cb = connectWidgetDamageEvent obj cb SignalConnectAfter + +connectWidgetDamageEvent :: (GObject a, MonadIO m) => + a -> WidgetDamageEventCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetDamageEvent obj cb after = liftIO $ do + cb' <- mkWidgetDamageEventCallback (widgetDamageEventCallbackWrapper cb) + connectSignalFunPtr obj "damage-event" cb' after + +-- signal Widget::delete-event +type WidgetDeleteEventCallback = + Gdk.Event -> + IO Bool + +noWidgetDeleteEventCallback :: Maybe WidgetDeleteEventCallback +noWidgetDeleteEventCallback = Nothing + +type WidgetDeleteEventCallbackC = + Ptr () -> -- object + Ptr Gdk.Event -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetDeleteEventCallback :: WidgetDeleteEventCallbackC -> IO (FunPtr WidgetDeleteEventCallbackC) + +widgetDeleteEventClosure :: WidgetDeleteEventCallback -> IO Closure +widgetDeleteEventClosure cb = newCClosure =<< mkWidgetDeleteEventCallback wrapped + where wrapped = widgetDeleteEventCallbackWrapper cb + +widgetDeleteEventCallbackWrapper :: + WidgetDeleteEventCallback -> + Ptr () -> + Ptr Gdk.Event -> + Ptr () -> + IO CInt +widgetDeleteEventCallbackWrapper _cb _ event _ = do + event' <- (newBoxed Gdk.Event) event + result <- _cb event' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetDeleteEvent :: (GObject a, MonadIO m) => a -> WidgetDeleteEventCallback -> m SignalHandlerId +onWidgetDeleteEvent obj cb = liftIO $ connectWidgetDeleteEvent obj cb SignalConnectBefore +afterWidgetDeleteEvent :: (GObject a, MonadIO m) => a -> WidgetDeleteEventCallback -> m SignalHandlerId +afterWidgetDeleteEvent obj cb = connectWidgetDeleteEvent obj cb SignalConnectAfter + +connectWidgetDeleteEvent :: (GObject a, MonadIO m) => + a -> WidgetDeleteEventCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetDeleteEvent obj cb after = liftIO $ do + cb' <- mkWidgetDeleteEventCallback (widgetDeleteEventCallbackWrapper cb) + connectSignalFunPtr obj "delete-event" cb' after + +-- signal Widget::destroy +type WidgetDestroyCallback = + IO () + +noWidgetDestroyCallback :: Maybe WidgetDestroyCallback +noWidgetDestroyCallback = Nothing + +type WidgetDestroyCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWidgetDestroyCallback :: WidgetDestroyCallbackC -> IO (FunPtr WidgetDestroyCallbackC) + +widgetDestroyClosure :: WidgetDestroyCallback -> IO Closure +widgetDestroyClosure cb = newCClosure =<< mkWidgetDestroyCallback wrapped + where wrapped = widgetDestroyCallbackWrapper cb + +widgetDestroyCallbackWrapper :: + WidgetDestroyCallback -> + Ptr () -> + Ptr () -> + IO () +widgetDestroyCallbackWrapper _cb _ _ = do + _cb + +onWidgetDestroy :: (GObject a, MonadIO m) => a -> WidgetDestroyCallback -> m SignalHandlerId +onWidgetDestroy obj cb = liftIO $ connectWidgetDestroy obj cb SignalConnectBefore +afterWidgetDestroy :: (GObject a, MonadIO m) => a -> WidgetDestroyCallback -> m SignalHandlerId +afterWidgetDestroy obj cb = connectWidgetDestroy obj cb SignalConnectAfter + +connectWidgetDestroy :: (GObject a, MonadIO m) => + a -> WidgetDestroyCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetDestroy obj cb after = liftIO $ do + cb' <- mkWidgetDestroyCallback (widgetDestroyCallbackWrapper cb) + connectSignalFunPtr obj "destroy" cb' after + +-- signal Widget::destroy-event +type WidgetDestroyEventCallback = + Gdk.Event -> + IO Bool + +noWidgetDestroyEventCallback :: Maybe WidgetDestroyEventCallback +noWidgetDestroyEventCallback = Nothing + +type WidgetDestroyEventCallbackC = + Ptr () -> -- object + Ptr Gdk.Event -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetDestroyEventCallback :: WidgetDestroyEventCallbackC -> IO (FunPtr WidgetDestroyEventCallbackC) + +widgetDestroyEventClosure :: WidgetDestroyEventCallback -> IO Closure +widgetDestroyEventClosure cb = newCClosure =<< mkWidgetDestroyEventCallback wrapped + where wrapped = widgetDestroyEventCallbackWrapper cb + +widgetDestroyEventCallbackWrapper :: + WidgetDestroyEventCallback -> + Ptr () -> + Ptr Gdk.Event -> + Ptr () -> + IO CInt +widgetDestroyEventCallbackWrapper _cb _ event _ = do + event' <- (newBoxed Gdk.Event) event + result <- _cb event' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetDestroyEvent :: (GObject a, MonadIO m) => a -> WidgetDestroyEventCallback -> m SignalHandlerId +onWidgetDestroyEvent obj cb = liftIO $ connectWidgetDestroyEvent obj cb SignalConnectBefore +afterWidgetDestroyEvent :: (GObject a, MonadIO m) => a -> WidgetDestroyEventCallback -> m SignalHandlerId +afterWidgetDestroyEvent obj cb = connectWidgetDestroyEvent obj cb SignalConnectAfter + +connectWidgetDestroyEvent :: (GObject a, MonadIO m) => + a -> WidgetDestroyEventCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetDestroyEvent obj cb after = liftIO $ do + cb' <- mkWidgetDestroyEventCallback (widgetDestroyEventCallbackWrapper cb) + connectSignalFunPtr obj "destroy-event" cb' after + +-- signal Widget::direction-changed +type WidgetDirectionChangedCallback = + TextDirection -> + IO () + +noWidgetDirectionChangedCallback :: Maybe WidgetDirectionChangedCallback +noWidgetDirectionChangedCallback = Nothing + +type WidgetDirectionChangedCallbackC = + Ptr () -> -- object + CUInt -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWidgetDirectionChangedCallback :: WidgetDirectionChangedCallbackC -> IO (FunPtr WidgetDirectionChangedCallbackC) + +widgetDirectionChangedClosure :: WidgetDirectionChangedCallback -> IO Closure +widgetDirectionChangedClosure cb = newCClosure =<< mkWidgetDirectionChangedCallback wrapped + where wrapped = widgetDirectionChangedCallbackWrapper cb + +widgetDirectionChangedCallbackWrapper :: + WidgetDirectionChangedCallback -> + Ptr () -> + CUInt -> + Ptr () -> + IO () +widgetDirectionChangedCallbackWrapper _cb _ previousDirection _ = do + let previousDirection' = (toEnum . fromIntegral) previousDirection + _cb previousDirection' + +onWidgetDirectionChanged :: (GObject a, MonadIO m) => a -> WidgetDirectionChangedCallback -> m SignalHandlerId +onWidgetDirectionChanged obj cb = liftIO $ connectWidgetDirectionChanged obj cb SignalConnectBefore +afterWidgetDirectionChanged :: (GObject a, MonadIO m) => a -> WidgetDirectionChangedCallback -> m SignalHandlerId +afterWidgetDirectionChanged obj cb = connectWidgetDirectionChanged obj cb SignalConnectAfter + +connectWidgetDirectionChanged :: (GObject a, MonadIO m) => + a -> WidgetDirectionChangedCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetDirectionChanged obj cb after = liftIO $ do + cb' <- mkWidgetDirectionChangedCallback (widgetDirectionChangedCallbackWrapper cb) + connectSignalFunPtr obj "direction-changed" cb' after + +-- signal Widget::drag-begin +type WidgetDragBeginCallback = + Gdk.DragContext -> + IO () + +noWidgetDragBeginCallback :: Maybe WidgetDragBeginCallback +noWidgetDragBeginCallback = Nothing + +type WidgetDragBeginCallbackC = + Ptr () -> -- object + Ptr Gdk.DragContext -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWidgetDragBeginCallback :: WidgetDragBeginCallbackC -> IO (FunPtr WidgetDragBeginCallbackC) + +widgetDragBeginClosure :: WidgetDragBeginCallback -> IO Closure +widgetDragBeginClosure cb = newCClosure =<< mkWidgetDragBeginCallback wrapped + where wrapped = widgetDragBeginCallbackWrapper cb + +widgetDragBeginCallbackWrapper :: + WidgetDragBeginCallback -> + Ptr () -> + Ptr Gdk.DragContext -> + Ptr () -> + IO () +widgetDragBeginCallbackWrapper _cb _ context _ = do + context' <- (newObject Gdk.DragContext) context + _cb context' + +onWidgetDragBegin :: (GObject a, MonadIO m) => a -> WidgetDragBeginCallback -> m SignalHandlerId +onWidgetDragBegin obj cb = liftIO $ connectWidgetDragBegin obj cb SignalConnectBefore +afterWidgetDragBegin :: (GObject a, MonadIO m) => a -> WidgetDragBeginCallback -> m SignalHandlerId +afterWidgetDragBegin obj cb = connectWidgetDragBegin obj cb SignalConnectAfter + +connectWidgetDragBegin :: (GObject a, MonadIO m) => + a -> WidgetDragBeginCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetDragBegin obj cb after = liftIO $ do + cb' <- mkWidgetDragBeginCallback (widgetDragBeginCallbackWrapper cb) + connectSignalFunPtr obj "drag-begin" cb' after + +-- signal Widget::drag-data-delete +type WidgetDragDataDeleteCallback = + Gdk.DragContext -> + IO () + +noWidgetDragDataDeleteCallback :: Maybe WidgetDragDataDeleteCallback +noWidgetDragDataDeleteCallback = Nothing + +type WidgetDragDataDeleteCallbackC = + Ptr () -> -- object + Ptr Gdk.DragContext -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWidgetDragDataDeleteCallback :: WidgetDragDataDeleteCallbackC -> IO (FunPtr WidgetDragDataDeleteCallbackC) + +widgetDragDataDeleteClosure :: WidgetDragDataDeleteCallback -> IO Closure +widgetDragDataDeleteClosure cb = newCClosure =<< mkWidgetDragDataDeleteCallback wrapped + where wrapped = widgetDragDataDeleteCallbackWrapper cb + +widgetDragDataDeleteCallbackWrapper :: + WidgetDragDataDeleteCallback -> + Ptr () -> + Ptr Gdk.DragContext -> + Ptr () -> + IO () +widgetDragDataDeleteCallbackWrapper _cb _ context _ = do + context' <- (newObject Gdk.DragContext) context + _cb context' + +onWidgetDragDataDelete :: (GObject a, MonadIO m) => a -> WidgetDragDataDeleteCallback -> m SignalHandlerId +onWidgetDragDataDelete obj cb = liftIO $ connectWidgetDragDataDelete obj cb SignalConnectBefore +afterWidgetDragDataDelete :: (GObject a, MonadIO m) => a -> WidgetDragDataDeleteCallback -> m SignalHandlerId +afterWidgetDragDataDelete obj cb = connectWidgetDragDataDelete obj cb SignalConnectAfter + +connectWidgetDragDataDelete :: (GObject a, MonadIO m) => + a -> WidgetDragDataDeleteCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetDragDataDelete obj cb after = liftIO $ do + cb' <- mkWidgetDragDataDeleteCallback (widgetDragDataDeleteCallbackWrapper cb) + connectSignalFunPtr obj "drag-data-delete" cb' after + +-- signal Widget::drag-data-get +type WidgetDragDataGetCallback = + Gdk.DragContext -> + SelectionData -> + Word32 -> + Word32 -> + IO () + +noWidgetDragDataGetCallback :: Maybe WidgetDragDataGetCallback +noWidgetDragDataGetCallback = Nothing + +type WidgetDragDataGetCallbackC = + Ptr () -> -- object + Ptr Gdk.DragContext -> + Ptr SelectionData -> + Word32 -> + Word32 -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWidgetDragDataGetCallback :: WidgetDragDataGetCallbackC -> IO (FunPtr WidgetDragDataGetCallbackC) + +widgetDragDataGetClosure :: WidgetDragDataGetCallback -> IO Closure +widgetDragDataGetClosure cb = newCClosure =<< mkWidgetDragDataGetCallback wrapped + where wrapped = widgetDragDataGetCallbackWrapper cb + +widgetDragDataGetCallbackWrapper :: + WidgetDragDataGetCallback -> + Ptr () -> + Ptr Gdk.DragContext -> + Ptr SelectionData -> + Word32 -> + Word32 -> + Ptr () -> + IO () +widgetDragDataGetCallbackWrapper _cb _ context data_ info time _ = do + context' <- (newObject Gdk.DragContext) context + data_' <- (newBoxed SelectionData) data_ + _cb context' data_' info time + +onWidgetDragDataGet :: (GObject a, MonadIO m) => a -> WidgetDragDataGetCallback -> m SignalHandlerId +onWidgetDragDataGet obj cb = liftIO $ connectWidgetDragDataGet obj cb SignalConnectBefore +afterWidgetDragDataGet :: (GObject a, MonadIO m) => a -> WidgetDragDataGetCallback -> m SignalHandlerId +afterWidgetDragDataGet obj cb = connectWidgetDragDataGet obj cb SignalConnectAfter + +connectWidgetDragDataGet :: (GObject a, MonadIO m) => + a -> WidgetDragDataGetCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetDragDataGet obj cb after = liftIO $ do + cb' <- mkWidgetDragDataGetCallback (widgetDragDataGetCallbackWrapper cb) + connectSignalFunPtr obj "drag-data-get" cb' after + +-- signal Widget::drag-data-received +type WidgetDragDataReceivedCallback = + Gdk.DragContext -> + Int32 -> + Int32 -> + SelectionData -> + Word32 -> + Word32 -> + IO () + +noWidgetDragDataReceivedCallback :: Maybe WidgetDragDataReceivedCallback +noWidgetDragDataReceivedCallback = Nothing + +type WidgetDragDataReceivedCallbackC = + Ptr () -> -- object + Ptr Gdk.DragContext -> + Int32 -> + Int32 -> + Ptr SelectionData -> + Word32 -> + Word32 -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWidgetDragDataReceivedCallback :: WidgetDragDataReceivedCallbackC -> IO (FunPtr WidgetDragDataReceivedCallbackC) + +widgetDragDataReceivedClosure :: WidgetDragDataReceivedCallback -> IO Closure +widgetDragDataReceivedClosure cb = newCClosure =<< mkWidgetDragDataReceivedCallback wrapped + where wrapped = widgetDragDataReceivedCallbackWrapper cb + +widgetDragDataReceivedCallbackWrapper :: + WidgetDragDataReceivedCallback -> + Ptr () -> + Ptr Gdk.DragContext -> + Int32 -> + Int32 -> + Ptr SelectionData -> + Word32 -> + Word32 -> + Ptr () -> + IO () +widgetDragDataReceivedCallbackWrapper _cb _ context x y data_ info time _ = do + context' <- (newObject Gdk.DragContext) context + data_' <- (newBoxed SelectionData) data_ + _cb context' x y data_' info time + +onWidgetDragDataReceived :: (GObject a, MonadIO m) => a -> WidgetDragDataReceivedCallback -> m SignalHandlerId +onWidgetDragDataReceived obj cb = liftIO $ connectWidgetDragDataReceived obj cb SignalConnectBefore +afterWidgetDragDataReceived :: (GObject a, MonadIO m) => a -> WidgetDragDataReceivedCallback -> m SignalHandlerId +afterWidgetDragDataReceived obj cb = connectWidgetDragDataReceived obj cb SignalConnectAfter + +connectWidgetDragDataReceived :: (GObject a, MonadIO m) => + a -> WidgetDragDataReceivedCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetDragDataReceived obj cb after = liftIO $ do + cb' <- mkWidgetDragDataReceivedCallback (widgetDragDataReceivedCallbackWrapper cb) + connectSignalFunPtr obj "drag-data-received" cb' after + +-- signal Widget::drag-drop +type WidgetDragDropCallback = + Gdk.DragContext -> + Int32 -> + Int32 -> + Word32 -> + IO Bool + +noWidgetDragDropCallback :: Maybe WidgetDragDropCallback +noWidgetDragDropCallback = Nothing + +type WidgetDragDropCallbackC = + Ptr () -> -- object + Ptr Gdk.DragContext -> + Int32 -> + Int32 -> + Word32 -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetDragDropCallback :: WidgetDragDropCallbackC -> IO (FunPtr WidgetDragDropCallbackC) + +widgetDragDropClosure :: WidgetDragDropCallback -> IO Closure +widgetDragDropClosure cb = newCClosure =<< mkWidgetDragDropCallback wrapped + where wrapped = widgetDragDropCallbackWrapper cb + +widgetDragDropCallbackWrapper :: + WidgetDragDropCallback -> + Ptr () -> + Ptr Gdk.DragContext -> + Int32 -> + Int32 -> + Word32 -> + Ptr () -> + IO CInt +widgetDragDropCallbackWrapper _cb _ context x y time _ = do + context' <- (newObject Gdk.DragContext) context + result <- _cb context' x y time + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetDragDrop :: (GObject a, MonadIO m) => a -> WidgetDragDropCallback -> m SignalHandlerId +onWidgetDragDrop obj cb = liftIO $ connectWidgetDragDrop obj cb SignalConnectBefore +afterWidgetDragDrop :: (GObject a, MonadIO m) => a -> WidgetDragDropCallback -> m SignalHandlerId +afterWidgetDragDrop obj cb = connectWidgetDragDrop obj cb SignalConnectAfter + +connectWidgetDragDrop :: (GObject a, MonadIO m) => + a -> WidgetDragDropCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetDragDrop obj cb after = liftIO $ do + cb' <- mkWidgetDragDropCallback (widgetDragDropCallbackWrapper cb) + connectSignalFunPtr obj "drag-drop" cb' after + +-- signal Widget::drag-end +type WidgetDragEndCallback = + Gdk.DragContext -> + IO () + +noWidgetDragEndCallback :: Maybe WidgetDragEndCallback +noWidgetDragEndCallback = Nothing + +type WidgetDragEndCallbackC = + Ptr () -> -- object + Ptr Gdk.DragContext -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWidgetDragEndCallback :: WidgetDragEndCallbackC -> IO (FunPtr WidgetDragEndCallbackC) + +widgetDragEndClosure :: WidgetDragEndCallback -> IO Closure +widgetDragEndClosure cb = newCClosure =<< mkWidgetDragEndCallback wrapped + where wrapped = widgetDragEndCallbackWrapper cb + +widgetDragEndCallbackWrapper :: + WidgetDragEndCallback -> + Ptr () -> + Ptr Gdk.DragContext -> + Ptr () -> + IO () +widgetDragEndCallbackWrapper _cb _ context _ = do + context' <- (newObject Gdk.DragContext) context + _cb context' + +onWidgetDragEnd :: (GObject a, MonadIO m) => a -> WidgetDragEndCallback -> m SignalHandlerId +onWidgetDragEnd obj cb = liftIO $ connectWidgetDragEnd obj cb SignalConnectBefore +afterWidgetDragEnd :: (GObject a, MonadIO m) => a -> WidgetDragEndCallback -> m SignalHandlerId +afterWidgetDragEnd obj cb = connectWidgetDragEnd obj cb SignalConnectAfter + +connectWidgetDragEnd :: (GObject a, MonadIO m) => + a -> WidgetDragEndCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetDragEnd obj cb after = liftIO $ do + cb' <- mkWidgetDragEndCallback (widgetDragEndCallbackWrapper cb) + connectSignalFunPtr obj "drag-end" cb' after + +-- signal Widget::drag-failed +type WidgetDragFailedCallback = + Gdk.DragContext -> + DragResult -> + IO Bool + +noWidgetDragFailedCallback :: Maybe WidgetDragFailedCallback +noWidgetDragFailedCallback = Nothing + +type WidgetDragFailedCallbackC = + Ptr () -> -- object + Ptr Gdk.DragContext -> + CUInt -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetDragFailedCallback :: WidgetDragFailedCallbackC -> IO (FunPtr WidgetDragFailedCallbackC) + +widgetDragFailedClosure :: WidgetDragFailedCallback -> IO Closure +widgetDragFailedClosure cb = newCClosure =<< mkWidgetDragFailedCallback wrapped + where wrapped = widgetDragFailedCallbackWrapper cb + +widgetDragFailedCallbackWrapper :: + WidgetDragFailedCallback -> + Ptr () -> + Ptr Gdk.DragContext -> + CUInt -> + Ptr () -> + IO CInt +widgetDragFailedCallbackWrapper _cb _ context result_ _ = do + context' <- (newObject Gdk.DragContext) context + let result_' = (toEnum . fromIntegral) result_ + result <- _cb context' result_' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetDragFailed :: (GObject a, MonadIO m) => a -> WidgetDragFailedCallback -> m SignalHandlerId +onWidgetDragFailed obj cb = liftIO $ connectWidgetDragFailed obj cb SignalConnectBefore +afterWidgetDragFailed :: (GObject a, MonadIO m) => a -> WidgetDragFailedCallback -> m SignalHandlerId +afterWidgetDragFailed obj cb = connectWidgetDragFailed obj cb SignalConnectAfter + +connectWidgetDragFailed :: (GObject a, MonadIO m) => + a -> WidgetDragFailedCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetDragFailed obj cb after = liftIO $ do + cb' <- mkWidgetDragFailedCallback (widgetDragFailedCallbackWrapper cb) + connectSignalFunPtr obj "drag-failed" cb' after + +-- signal Widget::drag-leave +type WidgetDragLeaveCallback = + Gdk.DragContext -> + Word32 -> + IO () + +noWidgetDragLeaveCallback :: Maybe WidgetDragLeaveCallback +noWidgetDragLeaveCallback = Nothing + +type WidgetDragLeaveCallbackC = + Ptr () -> -- object + Ptr Gdk.DragContext -> + Word32 -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWidgetDragLeaveCallback :: WidgetDragLeaveCallbackC -> IO (FunPtr WidgetDragLeaveCallbackC) + +widgetDragLeaveClosure :: WidgetDragLeaveCallback -> IO Closure +widgetDragLeaveClosure cb = newCClosure =<< mkWidgetDragLeaveCallback wrapped + where wrapped = widgetDragLeaveCallbackWrapper cb + +widgetDragLeaveCallbackWrapper :: + WidgetDragLeaveCallback -> + Ptr () -> + Ptr Gdk.DragContext -> + Word32 -> + Ptr () -> + IO () +widgetDragLeaveCallbackWrapper _cb _ context time _ = do + context' <- (newObject Gdk.DragContext) context + _cb context' time + +onWidgetDragLeave :: (GObject a, MonadIO m) => a -> WidgetDragLeaveCallback -> m SignalHandlerId +onWidgetDragLeave obj cb = liftIO $ connectWidgetDragLeave obj cb SignalConnectBefore +afterWidgetDragLeave :: (GObject a, MonadIO m) => a -> WidgetDragLeaveCallback -> m SignalHandlerId +afterWidgetDragLeave obj cb = connectWidgetDragLeave obj cb SignalConnectAfter + +connectWidgetDragLeave :: (GObject a, MonadIO m) => + a -> WidgetDragLeaveCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetDragLeave obj cb after = liftIO $ do + cb' <- mkWidgetDragLeaveCallback (widgetDragLeaveCallbackWrapper cb) + connectSignalFunPtr obj "drag-leave" cb' after + +-- signal Widget::drag-motion +type WidgetDragMotionCallback = + Gdk.DragContext -> + Int32 -> + Int32 -> + Word32 -> + IO Bool + +noWidgetDragMotionCallback :: Maybe WidgetDragMotionCallback +noWidgetDragMotionCallback = Nothing + +type WidgetDragMotionCallbackC = + Ptr () -> -- object + Ptr Gdk.DragContext -> + Int32 -> + Int32 -> + Word32 -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetDragMotionCallback :: WidgetDragMotionCallbackC -> IO (FunPtr WidgetDragMotionCallbackC) + +widgetDragMotionClosure :: WidgetDragMotionCallback -> IO Closure +widgetDragMotionClosure cb = newCClosure =<< mkWidgetDragMotionCallback wrapped + where wrapped = widgetDragMotionCallbackWrapper cb + +widgetDragMotionCallbackWrapper :: + WidgetDragMotionCallback -> + Ptr () -> + Ptr Gdk.DragContext -> + Int32 -> + Int32 -> + Word32 -> + Ptr () -> + IO CInt +widgetDragMotionCallbackWrapper _cb _ context x y time _ = do + context' <- (newObject Gdk.DragContext) context + result <- _cb context' x y time + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetDragMotion :: (GObject a, MonadIO m) => a -> WidgetDragMotionCallback -> m SignalHandlerId +onWidgetDragMotion obj cb = liftIO $ connectWidgetDragMotion obj cb SignalConnectBefore +afterWidgetDragMotion :: (GObject a, MonadIO m) => a -> WidgetDragMotionCallback -> m SignalHandlerId +afterWidgetDragMotion obj cb = connectWidgetDragMotion obj cb SignalConnectAfter + +connectWidgetDragMotion :: (GObject a, MonadIO m) => + a -> WidgetDragMotionCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetDragMotion obj cb after = liftIO $ do + cb' <- mkWidgetDragMotionCallback (widgetDragMotionCallbackWrapper cb) + connectSignalFunPtr obj "drag-motion" cb' after + +-- signal Widget::draw +type WidgetDrawCallback = + Cairo.Context -> + IO Bool + +noWidgetDrawCallback :: Maybe WidgetDrawCallback +noWidgetDrawCallback = Nothing + +type WidgetDrawCallbackC = + Ptr () -> -- object + Ptr Cairo.Context -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetDrawCallback :: WidgetDrawCallbackC -> IO (FunPtr WidgetDrawCallbackC) + +widgetDrawClosure :: WidgetDrawCallback -> IO Closure +widgetDrawClosure cb = newCClosure =<< mkWidgetDrawCallback wrapped + where wrapped = widgetDrawCallbackWrapper cb + +widgetDrawCallbackWrapper :: + WidgetDrawCallback -> + Ptr () -> + Ptr Cairo.Context -> + Ptr () -> + IO CInt +widgetDrawCallbackWrapper _cb _ cr _ = do + cr' <- (newBoxed Cairo.Context) cr + result <- _cb cr' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetDraw :: (GObject a, MonadIO m) => a -> WidgetDrawCallback -> m SignalHandlerId +onWidgetDraw obj cb = liftIO $ connectWidgetDraw obj cb SignalConnectBefore +afterWidgetDraw :: (GObject a, MonadIO m) => a -> WidgetDrawCallback -> m SignalHandlerId +afterWidgetDraw obj cb = connectWidgetDraw obj cb SignalConnectAfter + +connectWidgetDraw :: (GObject a, MonadIO m) => + a -> WidgetDrawCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetDraw obj cb after = liftIO $ do + cb' <- mkWidgetDrawCallback (widgetDrawCallbackWrapper cb) + connectSignalFunPtr obj "draw" cb' after + +-- signal Widget::enter-notify-event +type WidgetEnterNotifyEventCallback = + Gdk.EventCrossing -> + IO Bool + +noWidgetEnterNotifyEventCallback :: Maybe WidgetEnterNotifyEventCallback +noWidgetEnterNotifyEventCallback = Nothing + +type WidgetEnterNotifyEventCallbackC = + Ptr () -> -- object + Ptr Gdk.EventCrossing -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetEnterNotifyEventCallback :: WidgetEnterNotifyEventCallbackC -> IO (FunPtr WidgetEnterNotifyEventCallbackC) + +widgetEnterNotifyEventClosure :: WidgetEnterNotifyEventCallback -> IO Closure +widgetEnterNotifyEventClosure cb = newCClosure =<< mkWidgetEnterNotifyEventCallback wrapped + where wrapped = widgetEnterNotifyEventCallbackWrapper cb + +widgetEnterNotifyEventCallbackWrapper :: + WidgetEnterNotifyEventCallback -> + Ptr () -> + Ptr Gdk.EventCrossing -> + Ptr () -> + IO CInt +widgetEnterNotifyEventCallbackWrapper _cb _ event _ = do + event' <- (newPtr 88 Gdk.EventCrossing) event + result <- _cb event' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetEnterNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetEnterNotifyEventCallback -> m SignalHandlerId +onWidgetEnterNotifyEvent obj cb = liftIO $ connectWidgetEnterNotifyEvent obj cb SignalConnectBefore +afterWidgetEnterNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetEnterNotifyEventCallback -> m SignalHandlerId +afterWidgetEnterNotifyEvent obj cb = connectWidgetEnterNotifyEvent obj cb SignalConnectAfter + +connectWidgetEnterNotifyEvent :: (GObject a, MonadIO m) => + a -> WidgetEnterNotifyEventCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetEnterNotifyEvent obj cb after = liftIO $ do + cb' <- mkWidgetEnterNotifyEventCallback (widgetEnterNotifyEventCallbackWrapper cb) + connectSignalFunPtr obj "enter-notify-event" cb' after + +-- signal Widget::event +type WidgetEventCallback = + Gdk.Event -> + IO Bool + +noWidgetEventCallback :: Maybe WidgetEventCallback +noWidgetEventCallback = Nothing + +type WidgetEventCallbackC = + Ptr () -> -- object + Ptr Gdk.Event -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetEventCallback :: WidgetEventCallbackC -> IO (FunPtr WidgetEventCallbackC) + +widgetEventClosure :: WidgetEventCallback -> IO Closure +widgetEventClosure cb = newCClosure =<< mkWidgetEventCallback wrapped + where wrapped = widgetEventCallbackWrapper cb + +widgetEventCallbackWrapper :: + WidgetEventCallback -> + Ptr () -> + Ptr Gdk.Event -> + Ptr () -> + IO CInt +widgetEventCallbackWrapper _cb _ event _ = do + event' <- (newBoxed Gdk.Event) event + result <- _cb event' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetEvent :: (GObject a, MonadIO m) => a -> WidgetEventCallback -> m SignalHandlerId +onWidgetEvent obj cb = liftIO $ connectWidgetEvent obj cb SignalConnectBefore +afterWidgetEvent :: (GObject a, MonadIO m) => a -> WidgetEventCallback -> m SignalHandlerId +afterWidgetEvent obj cb = connectWidgetEvent obj cb SignalConnectAfter + +connectWidgetEvent :: (GObject a, MonadIO m) => + a -> WidgetEventCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetEvent obj cb after = liftIO $ do + cb' <- mkWidgetEventCallback (widgetEventCallbackWrapper cb) + connectSignalFunPtr obj "event" cb' after + +-- signal Widget::event-after +type WidgetEventAfterCallback = + Gdk.Event -> + IO () + +noWidgetEventAfterCallback :: Maybe WidgetEventAfterCallback +noWidgetEventAfterCallback = Nothing + +type WidgetEventAfterCallbackC = + Ptr () -> -- object + Ptr Gdk.Event -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWidgetEventAfterCallback :: WidgetEventAfterCallbackC -> IO (FunPtr WidgetEventAfterCallbackC) + +widgetEventAfterClosure :: WidgetEventAfterCallback -> IO Closure +widgetEventAfterClosure cb = newCClosure =<< mkWidgetEventAfterCallback wrapped + where wrapped = widgetEventAfterCallbackWrapper cb + +widgetEventAfterCallbackWrapper :: + WidgetEventAfterCallback -> + Ptr () -> + Ptr Gdk.Event -> + Ptr () -> + IO () +widgetEventAfterCallbackWrapper _cb _ event _ = do + event' <- (newBoxed Gdk.Event) event + _cb event' + +onWidgetEventAfter :: (GObject a, MonadIO m) => a -> WidgetEventAfterCallback -> m SignalHandlerId +onWidgetEventAfter obj cb = liftIO $ connectWidgetEventAfter obj cb SignalConnectBefore +afterWidgetEventAfter :: (GObject a, MonadIO m) => a -> WidgetEventAfterCallback -> m SignalHandlerId +afterWidgetEventAfter obj cb = connectWidgetEventAfter obj cb SignalConnectAfter + +connectWidgetEventAfter :: (GObject a, MonadIO m) => + a -> WidgetEventAfterCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetEventAfter obj cb after = liftIO $ do + cb' <- mkWidgetEventAfterCallback (widgetEventAfterCallbackWrapper cb) + connectSignalFunPtr obj "event-after" cb' after + +-- signal Widget::focus +type WidgetFocusCallback = + DirectionType -> + IO Bool + +noWidgetFocusCallback :: Maybe WidgetFocusCallback +noWidgetFocusCallback = Nothing + +type WidgetFocusCallbackC = + Ptr () -> -- object + CUInt -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetFocusCallback :: WidgetFocusCallbackC -> IO (FunPtr WidgetFocusCallbackC) + +widgetFocusClosure :: WidgetFocusCallback -> IO Closure +widgetFocusClosure cb = newCClosure =<< mkWidgetFocusCallback wrapped + where wrapped = widgetFocusCallbackWrapper cb + +widgetFocusCallbackWrapper :: + WidgetFocusCallback -> + Ptr () -> + CUInt -> + Ptr () -> + IO CInt +widgetFocusCallbackWrapper _cb _ direction _ = do + let direction' = (toEnum . fromIntegral) direction + result <- _cb direction' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetFocus :: (GObject a, MonadIO m) => a -> WidgetFocusCallback -> m SignalHandlerId +onWidgetFocus obj cb = liftIO $ connectWidgetFocus obj cb SignalConnectBefore +afterWidgetFocus :: (GObject a, MonadIO m) => a -> WidgetFocusCallback -> m SignalHandlerId +afterWidgetFocus obj cb = connectWidgetFocus obj cb SignalConnectAfter + +connectWidgetFocus :: (GObject a, MonadIO m) => + a -> WidgetFocusCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetFocus obj cb after = liftIO $ do + cb' <- mkWidgetFocusCallback (widgetFocusCallbackWrapper cb) + connectSignalFunPtr obj "focus" cb' after + +-- signal Widget::focus-in-event +type WidgetFocusInEventCallback = + Gdk.EventFocus -> + IO Bool + +noWidgetFocusInEventCallback :: Maybe WidgetFocusInEventCallback +noWidgetFocusInEventCallback = Nothing + +type WidgetFocusInEventCallbackC = + Ptr () -> -- object + Ptr Gdk.EventFocus -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetFocusInEventCallback :: WidgetFocusInEventCallbackC -> IO (FunPtr WidgetFocusInEventCallbackC) + +widgetFocusInEventClosure :: WidgetFocusInEventCallback -> IO Closure +widgetFocusInEventClosure cb = newCClosure =<< mkWidgetFocusInEventCallback wrapped + where wrapped = widgetFocusInEventCallbackWrapper cb + +widgetFocusInEventCallbackWrapper :: + WidgetFocusInEventCallback -> + Ptr () -> + Ptr Gdk.EventFocus -> + Ptr () -> + IO CInt +widgetFocusInEventCallbackWrapper _cb _ event _ = do + event' <- (newPtr 24 Gdk.EventFocus) event + result <- _cb event' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetFocusInEvent :: (GObject a, MonadIO m) => a -> WidgetFocusInEventCallback -> m SignalHandlerId +onWidgetFocusInEvent obj cb = liftIO $ connectWidgetFocusInEvent obj cb SignalConnectBefore +afterWidgetFocusInEvent :: (GObject a, MonadIO m) => a -> WidgetFocusInEventCallback -> m SignalHandlerId +afterWidgetFocusInEvent obj cb = connectWidgetFocusInEvent obj cb SignalConnectAfter + +connectWidgetFocusInEvent :: (GObject a, MonadIO m) => + a -> WidgetFocusInEventCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetFocusInEvent obj cb after = liftIO $ do + cb' <- mkWidgetFocusInEventCallback (widgetFocusInEventCallbackWrapper cb) + connectSignalFunPtr obj "focus-in-event" cb' after + +-- signal Widget::focus-out-event +type WidgetFocusOutEventCallback = + Gdk.EventFocus -> + IO Bool + +noWidgetFocusOutEventCallback :: Maybe WidgetFocusOutEventCallback +noWidgetFocusOutEventCallback = Nothing + +type WidgetFocusOutEventCallbackC = + Ptr () -> -- object + Ptr Gdk.EventFocus -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetFocusOutEventCallback :: WidgetFocusOutEventCallbackC -> IO (FunPtr WidgetFocusOutEventCallbackC) + +widgetFocusOutEventClosure :: WidgetFocusOutEventCallback -> IO Closure +widgetFocusOutEventClosure cb = newCClosure =<< mkWidgetFocusOutEventCallback wrapped + where wrapped = widgetFocusOutEventCallbackWrapper cb + +widgetFocusOutEventCallbackWrapper :: + WidgetFocusOutEventCallback -> + Ptr () -> + Ptr Gdk.EventFocus -> + Ptr () -> + IO CInt +widgetFocusOutEventCallbackWrapper _cb _ event _ = do + event' <- (newPtr 24 Gdk.EventFocus) event + result <- _cb event' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetFocusOutEvent :: (GObject a, MonadIO m) => a -> WidgetFocusOutEventCallback -> m SignalHandlerId +onWidgetFocusOutEvent obj cb = liftIO $ connectWidgetFocusOutEvent obj cb SignalConnectBefore +afterWidgetFocusOutEvent :: (GObject a, MonadIO m) => a -> WidgetFocusOutEventCallback -> m SignalHandlerId +afterWidgetFocusOutEvent obj cb = connectWidgetFocusOutEvent obj cb SignalConnectAfter + +connectWidgetFocusOutEvent :: (GObject a, MonadIO m) => + a -> WidgetFocusOutEventCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetFocusOutEvent obj cb after = liftIO $ do + cb' <- mkWidgetFocusOutEventCallback (widgetFocusOutEventCallbackWrapper cb) + connectSignalFunPtr obj "focus-out-event" cb' after + +-- signal Widget::grab-broken-event +type WidgetGrabBrokenEventCallback = + Gdk.EventGrabBroken -> + IO Bool + +noWidgetGrabBrokenEventCallback :: Maybe WidgetGrabBrokenEventCallback +noWidgetGrabBrokenEventCallback = Nothing + +type WidgetGrabBrokenEventCallbackC = + Ptr () -> -- object + Ptr Gdk.EventGrabBroken -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetGrabBrokenEventCallback :: WidgetGrabBrokenEventCallbackC -> IO (FunPtr WidgetGrabBrokenEventCallbackC) + +widgetGrabBrokenEventClosure :: WidgetGrabBrokenEventCallback -> IO Closure +widgetGrabBrokenEventClosure cb = newCClosure =<< mkWidgetGrabBrokenEventCallback wrapped + where wrapped = widgetGrabBrokenEventCallbackWrapper cb + +widgetGrabBrokenEventCallbackWrapper :: + WidgetGrabBrokenEventCallback -> + Ptr () -> + Ptr Gdk.EventGrabBroken -> + Ptr () -> + IO CInt +widgetGrabBrokenEventCallbackWrapper _cb _ event _ = do + event' <- (newPtr 40 Gdk.EventGrabBroken) event + result <- _cb event' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetGrabBrokenEvent :: (GObject a, MonadIO m) => a -> WidgetGrabBrokenEventCallback -> m SignalHandlerId +onWidgetGrabBrokenEvent obj cb = liftIO $ connectWidgetGrabBrokenEvent obj cb SignalConnectBefore +afterWidgetGrabBrokenEvent :: (GObject a, MonadIO m) => a -> WidgetGrabBrokenEventCallback -> m SignalHandlerId +afterWidgetGrabBrokenEvent obj cb = connectWidgetGrabBrokenEvent obj cb SignalConnectAfter + +connectWidgetGrabBrokenEvent :: (GObject a, MonadIO m) => + a -> WidgetGrabBrokenEventCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetGrabBrokenEvent obj cb after = liftIO $ do + cb' <- mkWidgetGrabBrokenEventCallback (widgetGrabBrokenEventCallbackWrapper cb) + connectSignalFunPtr obj "grab-broken-event" cb' after + +-- signal Widget::grab-focus +type WidgetGrabFocusCallback = + IO () + +noWidgetGrabFocusCallback :: Maybe WidgetGrabFocusCallback +noWidgetGrabFocusCallback = Nothing + +type WidgetGrabFocusCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWidgetGrabFocusCallback :: WidgetGrabFocusCallbackC -> IO (FunPtr WidgetGrabFocusCallbackC) + +widgetGrabFocusClosure :: WidgetGrabFocusCallback -> IO Closure +widgetGrabFocusClosure cb = newCClosure =<< mkWidgetGrabFocusCallback wrapped + where wrapped = widgetGrabFocusCallbackWrapper cb + +widgetGrabFocusCallbackWrapper :: + WidgetGrabFocusCallback -> + Ptr () -> + Ptr () -> + IO () +widgetGrabFocusCallbackWrapper _cb _ _ = do + _cb + +onWidgetGrabFocus :: (GObject a, MonadIO m) => a -> WidgetGrabFocusCallback -> m SignalHandlerId +onWidgetGrabFocus obj cb = liftIO $ connectWidgetGrabFocus obj cb SignalConnectBefore +afterWidgetGrabFocus :: (GObject a, MonadIO m) => a -> WidgetGrabFocusCallback -> m SignalHandlerId +afterWidgetGrabFocus obj cb = connectWidgetGrabFocus obj cb SignalConnectAfter + +connectWidgetGrabFocus :: (GObject a, MonadIO m) => + a -> WidgetGrabFocusCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetGrabFocus obj cb after = liftIO $ do + cb' <- mkWidgetGrabFocusCallback (widgetGrabFocusCallbackWrapper cb) + connectSignalFunPtr obj "grab-focus" cb' after + +-- signal Widget::grab-notify +type WidgetGrabNotifyCallback = + Bool -> + IO () + +noWidgetGrabNotifyCallback :: Maybe WidgetGrabNotifyCallback +noWidgetGrabNotifyCallback = Nothing + +type WidgetGrabNotifyCallbackC = + Ptr () -> -- object + CInt -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWidgetGrabNotifyCallback :: WidgetGrabNotifyCallbackC -> IO (FunPtr WidgetGrabNotifyCallbackC) + +widgetGrabNotifyClosure :: WidgetGrabNotifyCallback -> IO Closure +widgetGrabNotifyClosure cb = newCClosure =<< mkWidgetGrabNotifyCallback wrapped + where wrapped = widgetGrabNotifyCallbackWrapper cb + +widgetGrabNotifyCallbackWrapper :: + WidgetGrabNotifyCallback -> + Ptr () -> + CInt -> + Ptr () -> + IO () +widgetGrabNotifyCallbackWrapper _cb _ wasGrabbed _ = do + let wasGrabbed' = (/= 0) wasGrabbed + _cb wasGrabbed' + +onWidgetGrabNotify :: (GObject a, MonadIO m) => a -> WidgetGrabNotifyCallback -> m SignalHandlerId +onWidgetGrabNotify obj cb = liftIO $ connectWidgetGrabNotify obj cb SignalConnectBefore +afterWidgetGrabNotify :: (GObject a, MonadIO m) => a -> WidgetGrabNotifyCallback -> m SignalHandlerId +afterWidgetGrabNotify obj cb = connectWidgetGrabNotify obj cb SignalConnectAfter + +connectWidgetGrabNotify :: (GObject a, MonadIO m) => + a -> WidgetGrabNotifyCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetGrabNotify obj cb after = liftIO $ do + cb' <- mkWidgetGrabNotifyCallback (widgetGrabNotifyCallbackWrapper cb) + connectSignalFunPtr obj "grab-notify" cb' after + +-- signal Widget::hide +type WidgetHideCallback = + IO () + +noWidgetHideCallback :: Maybe WidgetHideCallback +noWidgetHideCallback = Nothing + +type WidgetHideCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWidgetHideCallback :: WidgetHideCallbackC -> IO (FunPtr WidgetHideCallbackC) + +widgetHideClosure :: WidgetHideCallback -> IO Closure +widgetHideClosure cb = newCClosure =<< mkWidgetHideCallback wrapped + where wrapped = widgetHideCallbackWrapper cb + +widgetHideCallbackWrapper :: + WidgetHideCallback -> + Ptr () -> + Ptr () -> + IO () +widgetHideCallbackWrapper _cb _ _ = do + _cb + +onWidgetHide :: (GObject a, MonadIO m) => a -> WidgetHideCallback -> m SignalHandlerId +onWidgetHide obj cb = liftIO $ connectWidgetHide obj cb SignalConnectBefore +afterWidgetHide :: (GObject a, MonadIO m) => a -> WidgetHideCallback -> m SignalHandlerId +afterWidgetHide obj cb = connectWidgetHide obj cb SignalConnectAfter + +connectWidgetHide :: (GObject a, MonadIO m) => + a -> WidgetHideCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetHide obj cb after = liftIO $ do + cb' <- mkWidgetHideCallback (widgetHideCallbackWrapper cb) + connectSignalFunPtr obj "hide" cb' after + +-- signal Widget::hierarchy-changed +type WidgetHierarchyChangedCallback = + Maybe Widget -> + IO () + +noWidgetHierarchyChangedCallback :: Maybe WidgetHierarchyChangedCallback +noWidgetHierarchyChangedCallback = Nothing + +type WidgetHierarchyChangedCallbackC = + Ptr () -> -- object + Ptr Widget -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWidgetHierarchyChangedCallback :: WidgetHierarchyChangedCallbackC -> IO (FunPtr WidgetHierarchyChangedCallbackC) + +widgetHierarchyChangedClosure :: WidgetHierarchyChangedCallback -> IO Closure +widgetHierarchyChangedClosure cb = newCClosure =<< mkWidgetHierarchyChangedCallback wrapped + where wrapped = widgetHierarchyChangedCallbackWrapper cb + +widgetHierarchyChangedCallbackWrapper :: + WidgetHierarchyChangedCallback -> + Ptr () -> + Ptr Widget -> + Ptr () -> + IO () +widgetHierarchyChangedCallbackWrapper _cb _ previousToplevel _ = do + maybePreviousToplevel <- + if previousToplevel == nullPtr + then return Nothing + else do + previousToplevel' <- (newObject Widget) previousToplevel + return $ Just previousToplevel' + _cb maybePreviousToplevel + +onWidgetHierarchyChanged :: (GObject a, MonadIO m) => a -> WidgetHierarchyChangedCallback -> m SignalHandlerId +onWidgetHierarchyChanged obj cb = liftIO $ connectWidgetHierarchyChanged obj cb SignalConnectBefore +afterWidgetHierarchyChanged :: (GObject a, MonadIO m) => a -> WidgetHierarchyChangedCallback -> m SignalHandlerId +afterWidgetHierarchyChanged obj cb = connectWidgetHierarchyChanged obj cb SignalConnectAfter + +connectWidgetHierarchyChanged :: (GObject a, MonadIO m) => + a -> WidgetHierarchyChangedCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetHierarchyChanged obj cb after = liftIO $ do + cb' <- mkWidgetHierarchyChangedCallback (widgetHierarchyChangedCallbackWrapper cb) + connectSignalFunPtr obj "hierarchy-changed" cb' after + +-- signal Widget::key-press-event +type WidgetKeyPressEventCallback = + Gdk.EventKey -> + IO Bool + +noWidgetKeyPressEventCallback :: Maybe WidgetKeyPressEventCallback +noWidgetKeyPressEventCallback = Nothing + +type WidgetKeyPressEventCallbackC = + Ptr () -> -- object + Ptr Gdk.EventKey -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetKeyPressEventCallback :: WidgetKeyPressEventCallbackC -> IO (FunPtr WidgetKeyPressEventCallbackC) + +widgetKeyPressEventClosure :: WidgetKeyPressEventCallback -> IO Closure +widgetKeyPressEventClosure cb = newCClosure =<< mkWidgetKeyPressEventCallback wrapped + where wrapped = widgetKeyPressEventCallbackWrapper cb + +widgetKeyPressEventCallbackWrapper :: + WidgetKeyPressEventCallback -> + Ptr () -> + Ptr Gdk.EventKey -> + Ptr () -> + IO CInt +widgetKeyPressEventCallbackWrapper _cb _ event _ = do + event' <- (newPtr 56 Gdk.EventKey) event + result <- _cb event' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetKeyPressEvent :: (GObject a, MonadIO m) => a -> WidgetKeyPressEventCallback -> m SignalHandlerId +onWidgetKeyPressEvent obj cb = liftIO $ connectWidgetKeyPressEvent obj cb SignalConnectBefore +afterWidgetKeyPressEvent :: (GObject a, MonadIO m) => a -> WidgetKeyPressEventCallback -> m SignalHandlerId +afterWidgetKeyPressEvent obj cb = connectWidgetKeyPressEvent obj cb SignalConnectAfter + +connectWidgetKeyPressEvent :: (GObject a, MonadIO m) => + a -> WidgetKeyPressEventCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetKeyPressEvent obj cb after = liftIO $ do + cb' <- mkWidgetKeyPressEventCallback (widgetKeyPressEventCallbackWrapper cb) + connectSignalFunPtr obj "key-press-event" cb' after + +-- signal Widget::key-release-event +type WidgetKeyReleaseEventCallback = + Gdk.EventKey -> + IO Bool + +noWidgetKeyReleaseEventCallback :: Maybe WidgetKeyReleaseEventCallback +noWidgetKeyReleaseEventCallback = Nothing + +type WidgetKeyReleaseEventCallbackC = + Ptr () -> -- object + Ptr Gdk.EventKey -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetKeyReleaseEventCallback :: WidgetKeyReleaseEventCallbackC -> IO (FunPtr WidgetKeyReleaseEventCallbackC) + +widgetKeyReleaseEventClosure :: WidgetKeyReleaseEventCallback -> IO Closure +widgetKeyReleaseEventClosure cb = newCClosure =<< mkWidgetKeyReleaseEventCallback wrapped + where wrapped = widgetKeyReleaseEventCallbackWrapper cb + +widgetKeyReleaseEventCallbackWrapper :: + WidgetKeyReleaseEventCallback -> + Ptr () -> + Ptr Gdk.EventKey -> + Ptr () -> + IO CInt +widgetKeyReleaseEventCallbackWrapper _cb _ event _ = do + event' <- (newPtr 56 Gdk.EventKey) event + result <- _cb event' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetKeyReleaseEvent :: (GObject a, MonadIO m) => a -> WidgetKeyReleaseEventCallback -> m SignalHandlerId +onWidgetKeyReleaseEvent obj cb = liftIO $ connectWidgetKeyReleaseEvent obj cb SignalConnectBefore +afterWidgetKeyReleaseEvent :: (GObject a, MonadIO m) => a -> WidgetKeyReleaseEventCallback -> m SignalHandlerId +afterWidgetKeyReleaseEvent obj cb = connectWidgetKeyReleaseEvent obj cb SignalConnectAfter + +connectWidgetKeyReleaseEvent :: (GObject a, MonadIO m) => + a -> WidgetKeyReleaseEventCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetKeyReleaseEvent obj cb after = liftIO $ do + cb' <- mkWidgetKeyReleaseEventCallback (widgetKeyReleaseEventCallbackWrapper cb) + connectSignalFunPtr obj "key-release-event" cb' after + +-- signal Widget::keynav-failed +type WidgetKeynavFailedCallback = + DirectionType -> + IO Bool + +noWidgetKeynavFailedCallback :: Maybe WidgetKeynavFailedCallback +noWidgetKeynavFailedCallback = Nothing + +type WidgetKeynavFailedCallbackC = + Ptr () -> -- object + CUInt -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetKeynavFailedCallback :: WidgetKeynavFailedCallbackC -> IO (FunPtr WidgetKeynavFailedCallbackC) + +widgetKeynavFailedClosure :: WidgetKeynavFailedCallback -> IO Closure +widgetKeynavFailedClosure cb = newCClosure =<< mkWidgetKeynavFailedCallback wrapped + where wrapped = widgetKeynavFailedCallbackWrapper cb + +widgetKeynavFailedCallbackWrapper :: + WidgetKeynavFailedCallback -> + Ptr () -> + CUInt -> + Ptr () -> + IO CInt +widgetKeynavFailedCallbackWrapper _cb _ direction _ = do + let direction' = (toEnum . fromIntegral) direction + result <- _cb direction' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetKeynavFailed :: (GObject a, MonadIO m) => a -> WidgetKeynavFailedCallback -> m SignalHandlerId +onWidgetKeynavFailed obj cb = liftIO $ connectWidgetKeynavFailed obj cb SignalConnectBefore +afterWidgetKeynavFailed :: (GObject a, MonadIO m) => a -> WidgetKeynavFailedCallback -> m SignalHandlerId +afterWidgetKeynavFailed obj cb = connectWidgetKeynavFailed obj cb SignalConnectAfter + +connectWidgetKeynavFailed :: (GObject a, MonadIO m) => + a -> WidgetKeynavFailedCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetKeynavFailed obj cb after = liftIO $ do + cb' <- mkWidgetKeynavFailedCallback (widgetKeynavFailedCallbackWrapper cb) + connectSignalFunPtr obj "keynav-failed" cb' after + +-- signal Widget::leave-notify-event +type WidgetLeaveNotifyEventCallback = + Gdk.EventCrossing -> + IO Bool + +noWidgetLeaveNotifyEventCallback :: Maybe WidgetLeaveNotifyEventCallback +noWidgetLeaveNotifyEventCallback = Nothing + +type WidgetLeaveNotifyEventCallbackC = + Ptr () -> -- object + Ptr Gdk.EventCrossing -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetLeaveNotifyEventCallback :: WidgetLeaveNotifyEventCallbackC -> IO (FunPtr WidgetLeaveNotifyEventCallbackC) + +widgetLeaveNotifyEventClosure :: WidgetLeaveNotifyEventCallback -> IO Closure +widgetLeaveNotifyEventClosure cb = newCClosure =<< mkWidgetLeaveNotifyEventCallback wrapped + where wrapped = widgetLeaveNotifyEventCallbackWrapper cb + +widgetLeaveNotifyEventCallbackWrapper :: + WidgetLeaveNotifyEventCallback -> + Ptr () -> + Ptr Gdk.EventCrossing -> + Ptr () -> + IO CInt +widgetLeaveNotifyEventCallbackWrapper _cb _ event _ = do + event' <- (newPtr 88 Gdk.EventCrossing) event + result <- _cb event' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetLeaveNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetLeaveNotifyEventCallback -> m SignalHandlerId +onWidgetLeaveNotifyEvent obj cb = liftIO $ connectWidgetLeaveNotifyEvent obj cb SignalConnectBefore +afterWidgetLeaveNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetLeaveNotifyEventCallback -> m SignalHandlerId +afterWidgetLeaveNotifyEvent obj cb = connectWidgetLeaveNotifyEvent obj cb SignalConnectAfter + +connectWidgetLeaveNotifyEvent :: (GObject a, MonadIO m) => + a -> WidgetLeaveNotifyEventCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetLeaveNotifyEvent obj cb after = liftIO $ do + cb' <- mkWidgetLeaveNotifyEventCallback (widgetLeaveNotifyEventCallbackWrapper cb) + connectSignalFunPtr obj "leave-notify-event" cb' after + +-- signal Widget::map +type WidgetMapCallback = + IO () + +noWidgetMapCallback :: Maybe WidgetMapCallback +noWidgetMapCallback = Nothing + +type WidgetMapCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWidgetMapCallback :: WidgetMapCallbackC -> IO (FunPtr WidgetMapCallbackC) + +widgetMapClosure :: WidgetMapCallback -> IO Closure +widgetMapClosure cb = newCClosure =<< mkWidgetMapCallback wrapped + where wrapped = widgetMapCallbackWrapper cb + +widgetMapCallbackWrapper :: + WidgetMapCallback -> + Ptr () -> + Ptr () -> + IO () +widgetMapCallbackWrapper _cb _ _ = do + _cb + +onWidgetMap :: (GObject a, MonadIO m) => a -> WidgetMapCallback -> m SignalHandlerId +onWidgetMap obj cb = liftIO $ connectWidgetMap obj cb SignalConnectBefore +afterWidgetMap :: (GObject a, MonadIO m) => a -> WidgetMapCallback -> m SignalHandlerId +afterWidgetMap obj cb = connectWidgetMap obj cb SignalConnectAfter + +connectWidgetMap :: (GObject a, MonadIO m) => + a -> WidgetMapCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetMap obj cb after = liftIO $ do + cb' <- mkWidgetMapCallback (widgetMapCallbackWrapper cb) + connectSignalFunPtr obj "map" cb' after + +-- signal Widget::map-event +type WidgetMapEventCallback = + Gdk.EventAny -> + IO Bool + +noWidgetMapEventCallback :: Maybe WidgetMapEventCallback +noWidgetMapEventCallback = Nothing + +type WidgetMapEventCallbackC = + Ptr () -> -- object + Ptr Gdk.EventAny -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetMapEventCallback :: WidgetMapEventCallbackC -> IO (FunPtr WidgetMapEventCallbackC) + +widgetMapEventClosure :: WidgetMapEventCallback -> IO Closure +widgetMapEventClosure cb = newCClosure =<< mkWidgetMapEventCallback wrapped + where wrapped = widgetMapEventCallbackWrapper cb + +widgetMapEventCallbackWrapper :: + WidgetMapEventCallback -> + Ptr () -> + Ptr Gdk.EventAny -> + Ptr () -> + IO CInt +widgetMapEventCallbackWrapper _cb _ event _ = do + event' <- (newPtr 24 Gdk.EventAny) event + result <- _cb event' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetMapEvent :: (GObject a, MonadIO m) => a -> WidgetMapEventCallback -> m SignalHandlerId +onWidgetMapEvent obj cb = liftIO $ connectWidgetMapEvent obj cb SignalConnectBefore +afterWidgetMapEvent :: (GObject a, MonadIO m) => a -> WidgetMapEventCallback -> m SignalHandlerId +afterWidgetMapEvent obj cb = connectWidgetMapEvent obj cb SignalConnectAfter + +connectWidgetMapEvent :: (GObject a, MonadIO m) => + a -> WidgetMapEventCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetMapEvent obj cb after = liftIO $ do + cb' <- mkWidgetMapEventCallback (widgetMapEventCallbackWrapper cb) + connectSignalFunPtr obj "map-event" cb' after + +-- signal Widget::mnemonic-activate +type WidgetMnemonicActivateCallback = + Bool -> + IO Bool + +noWidgetMnemonicActivateCallback :: Maybe WidgetMnemonicActivateCallback +noWidgetMnemonicActivateCallback = Nothing + +type WidgetMnemonicActivateCallbackC = + Ptr () -> -- object + CInt -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetMnemonicActivateCallback :: WidgetMnemonicActivateCallbackC -> IO (FunPtr WidgetMnemonicActivateCallbackC) + +widgetMnemonicActivateClosure :: WidgetMnemonicActivateCallback -> IO Closure +widgetMnemonicActivateClosure cb = newCClosure =<< mkWidgetMnemonicActivateCallback wrapped + where wrapped = widgetMnemonicActivateCallbackWrapper cb + +widgetMnemonicActivateCallbackWrapper :: + WidgetMnemonicActivateCallback -> + Ptr () -> + CInt -> + Ptr () -> + IO CInt +widgetMnemonicActivateCallbackWrapper _cb _ arg1 _ = do + let arg1' = (/= 0) arg1 + result <- _cb arg1' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetMnemonicActivate :: (GObject a, MonadIO m) => a -> WidgetMnemonicActivateCallback -> m SignalHandlerId +onWidgetMnemonicActivate obj cb = liftIO $ connectWidgetMnemonicActivate obj cb SignalConnectBefore +afterWidgetMnemonicActivate :: (GObject a, MonadIO m) => a -> WidgetMnemonicActivateCallback -> m SignalHandlerId +afterWidgetMnemonicActivate obj cb = connectWidgetMnemonicActivate obj cb SignalConnectAfter + +connectWidgetMnemonicActivate :: (GObject a, MonadIO m) => + a -> WidgetMnemonicActivateCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetMnemonicActivate obj cb after = liftIO $ do + cb' <- mkWidgetMnemonicActivateCallback (widgetMnemonicActivateCallbackWrapper cb) + connectSignalFunPtr obj "mnemonic-activate" cb' after + +-- signal Widget::motion-notify-event +type WidgetMotionNotifyEventCallback = + Gdk.EventMotion -> + IO Bool + +noWidgetMotionNotifyEventCallback :: Maybe WidgetMotionNotifyEventCallback +noWidgetMotionNotifyEventCallback = Nothing + +type WidgetMotionNotifyEventCallbackC = + Ptr () -> -- object + Ptr Gdk.EventMotion -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetMotionNotifyEventCallback :: WidgetMotionNotifyEventCallbackC -> IO (FunPtr WidgetMotionNotifyEventCallbackC) + +widgetMotionNotifyEventClosure :: WidgetMotionNotifyEventCallback -> IO Closure +widgetMotionNotifyEventClosure cb = newCClosure =<< mkWidgetMotionNotifyEventCallback wrapped + where wrapped = widgetMotionNotifyEventCallbackWrapper cb + +widgetMotionNotifyEventCallbackWrapper :: + WidgetMotionNotifyEventCallback -> + Ptr () -> + Ptr Gdk.EventMotion -> + Ptr () -> + IO CInt +widgetMotionNotifyEventCallbackWrapper _cb _ event _ = do + event' <- (newPtr 80 Gdk.EventMotion) event + result <- _cb event' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetMotionNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetMotionNotifyEventCallback -> m SignalHandlerId +onWidgetMotionNotifyEvent obj cb = liftIO $ connectWidgetMotionNotifyEvent obj cb SignalConnectBefore +afterWidgetMotionNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetMotionNotifyEventCallback -> m SignalHandlerId +afterWidgetMotionNotifyEvent obj cb = connectWidgetMotionNotifyEvent obj cb SignalConnectAfter + +connectWidgetMotionNotifyEvent :: (GObject a, MonadIO m) => + a -> WidgetMotionNotifyEventCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetMotionNotifyEvent obj cb after = liftIO $ do + cb' <- mkWidgetMotionNotifyEventCallback (widgetMotionNotifyEventCallbackWrapper cb) + connectSignalFunPtr obj "motion-notify-event" cb' after + +-- signal Widget::move-focus +type WidgetMoveFocusCallback = + DirectionType -> + IO () + +noWidgetMoveFocusCallback :: Maybe WidgetMoveFocusCallback +noWidgetMoveFocusCallback = Nothing + +type WidgetMoveFocusCallbackC = + Ptr () -> -- object + CUInt -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWidgetMoveFocusCallback :: WidgetMoveFocusCallbackC -> IO (FunPtr WidgetMoveFocusCallbackC) + +widgetMoveFocusClosure :: WidgetMoveFocusCallback -> IO Closure +widgetMoveFocusClosure cb = newCClosure =<< mkWidgetMoveFocusCallback wrapped + where wrapped = widgetMoveFocusCallbackWrapper cb + +widgetMoveFocusCallbackWrapper :: + WidgetMoveFocusCallback -> + Ptr () -> + CUInt -> + Ptr () -> + IO () +widgetMoveFocusCallbackWrapper _cb _ direction _ = do + let direction' = (toEnum . fromIntegral) direction + _cb direction' + +onWidgetMoveFocus :: (GObject a, MonadIO m) => a -> WidgetMoveFocusCallback -> m SignalHandlerId +onWidgetMoveFocus obj cb = liftIO $ connectWidgetMoveFocus obj cb SignalConnectBefore +afterWidgetMoveFocus :: (GObject a, MonadIO m) => a -> WidgetMoveFocusCallback -> m SignalHandlerId +afterWidgetMoveFocus obj cb = connectWidgetMoveFocus obj cb SignalConnectAfter + +connectWidgetMoveFocus :: (GObject a, MonadIO m) => + a -> WidgetMoveFocusCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetMoveFocus obj cb after = liftIO $ do + cb' <- mkWidgetMoveFocusCallback (widgetMoveFocusCallbackWrapper cb) + connectSignalFunPtr obj "move-focus" cb' after + +-- signal Widget::parent-set +type WidgetParentSetCallback = + Maybe Widget -> + IO () + +noWidgetParentSetCallback :: Maybe WidgetParentSetCallback +noWidgetParentSetCallback = Nothing + +type WidgetParentSetCallbackC = + Ptr () -> -- object + Ptr Widget -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWidgetParentSetCallback :: WidgetParentSetCallbackC -> IO (FunPtr WidgetParentSetCallbackC) + +widgetParentSetClosure :: WidgetParentSetCallback -> IO Closure +widgetParentSetClosure cb = newCClosure =<< mkWidgetParentSetCallback wrapped + where wrapped = widgetParentSetCallbackWrapper cb + +widgetParentSetCallbackWrapper :: + WidgetParentSetCallback -> + Ptr () -> + Ptr Widget -> + Ptr () -> + IO () +widgetParentSetCallbackWrapper _cb _ oldParent _ = do + maybeOldParent <- + if oldParent == nullPtr + then return Nothing + else do + oldParent' <- (newObject Widget) oldParent + return $ Just oldParent' + _cb maybeOldParent + +onWidgetParentSet :: (GObject a, MonadIO m) => a -> WidgetParentSetCallback -> m SignalHandlerId +onWidgetParentSet obj cb = liftIO $ connectWidgetParentSet obj cb SignalConnectBefore +afterWidgetParentSet :: (GObject a, MonadIO m) => a -> WidgetParentSetCallback -> m SignalHandlerId +afterWidgetParentSet obj cb = connectWidgetParentSet obj cb SignalConnectAfter + +connectWidgetParentSet :: (GObject a, MonadIO m) => + a -> WidgetParentSetCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetParentSet obj cb after = liftIO $ do + cb' <- mkWidgetParentSetCallback (widgetParentSetCallbackWrapper cb) + connectSignalFunPtr obj "parent-set" cb' after + +-- signal Widget::popup-menu +type WidgetPopupMenuCallback = + IO Bool + +noWidgetPopupMenuCallback :: Maybe WidgetPopupMenuCallback +noWidgetPopupMenuCallback = Nothing + +type WidgetPopupMenuCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetPopupMenuCallback :: WidgetPopupMenuCallbackC -> IO (FunPtr WidgetPopupMenuCallbackC) + +widgetPopupMenuClosure :: WidgetPopupMenuCallback -> IO Closure +widgetPopupMenuClosure cb = newCClosure =<< mkWidgetPopupMenuCallback wrapped + where wrapped = widgetPopupMenuCallbackWrapper cb + +widgetPopupMenuCallbackWrapper :: + WidgetPopupMenuCallback -> + Ptr () -> + Ptr () -> + IO CInt +widgetPopupMenuCallbackWrapper _cb _ _ = do + result <- _cb + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetPopupMenu :: (GObject a, MonadIO m) => a -> WidgetPopupMenuCallback -> m SignalHandlerId +onWidgetPopupMenu obj cb = liftIO $ connectWidgetPopupMenu obj cb SignalConnectBefore +afterWidgetPopupMenu :: (GObject a, MonadIO m) => a -> WidgetPopupMenuCallback -> m SignalHandlerId +afterWidgetPopupMenu obj cb = connectWidgetPopupMenu obj cb SignalConnectAfter + +connectWidgetPopupMenu :: (GObject a, MonadIO m) => + a -> WidgetPopupMenuCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetPopupMenu obj cb after = liftIO $ do + cb' <- mkWidgetPopupMenuCallback (widgetPopupMenuCallbackWrapper cb) + connectSignalFunPtr obj "popup-menu" cb' after + +-- signal Widget::property-notify-event +type WidgetPropertyNotifyEventCallback = + Gdk.EventProperty -> + IO Bool + +noWidgetPropertyNotifyEventCallback :: Maybe WidgetPropertyNotifyEventCallback +noWidgetPropertyNotifyEventCallback = Nothing + +type WidgetPropertyNotifyEventCallbackC = + Ptr () -> -- object + Ptr Gdk.EventProperty -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetPropertyNotifyEventCallback :: WidgetPropertyNotifyEventCallbackC -> IO (FunPtr WidgetPropertyNotifyEventCallbackC) + +widgetPropertyNotifyEventClosure :: WidgetPropertyNotifyEventCallback -> IO Closure +widgetPropertyNotifyEventClosure cb = newCClosure =<< mkWidgetPropertyNotifyEventCallback wrapped + where wrapped = widgetPropertyNotifyEventCallbackWrapper cb + +widgetPropertyNotifyEventCallbackWrapper :: + WidgetPropertyNotifyEventCallback -> + Ptr () -> + Ptr Gdk.EventProperty -> + Ptr () -> + IO CInt +widgetPropertyNotifyEventCallbackWrapper _cb _ event _ = do + event' <- (newPtr 40 Gdk.EventProperty) event + result <- _cb event' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetPropertyNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetPropertyNotifyEventCallback -> m SignalHandlerId +onWidgetPropertyNotifyEvent obj cb = liftIO $ connectWidgetPropertyNotifyEvent obj cb SignalConnectBefore +afterWidgetPropertyNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetPropertyNotifyEventCallback -> m SignalHandlerId +afterWidgetPropertyNotifyEvent obj cb = connectWidgetPropertyNotifyEvent obj cb SignalConnectAfter + +connectWidgetPropertyNotifyEvent :: (GObject a, MonadIO m) => + a -> WidgetPropertyNotifyEventCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetPropertyNotifyEvent obj cb after = liftIO $ do + cb' <- mkWidgetPropertyNotifyEventCallback (widgetPropertyNotifyEventCallbackWrapper cb) + connectSignalFunPtr obj "property-notify-event" cb' after + +-- signal Widget::proximity-in-event +type WidgetProximityInEventCallback = + Gdk.EventProximity -> + IO Bool + +noWidgetProximityInEventCallback :: Maybe WidgetProximityInEventCallback +noWidgetProximityInEventCallback = Nothing + +type WidgetProximityInEventCallbackC = + Ptr () -> -- object + Ptr Gdk.EventProximity -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetProximityInEventCallback :: WidgetProximityInEventCallbackC -> IO (FunPtr WidgetProximityInEventCallbackC) + +widgetProximityInEventClosure :: WidgetProximityInEventCallback -> IO Closure +widgetProximityInEventClosure cb = newCClosure =<< mkWidgetProximityInEventCallback wrapped + where wrapped = widgetProximityInEventCallbackWrapper cb + +widgetProximityInEventCallbackWrapper :: + WidgetProximityInEventCallback -> + Ptr () -> + Ptr Gdk.EventProximity -> + Ptr () -> + IO CInt +widgetProximityInEventCallbackWrapper _cb _ event _ = do + event' <- (newPtr 32 Gdk.EventProximity) event + result <- _cb event' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetProximityInEvent :: (GObject a, MonadIO m) => a -> WidgetProximityInEventCallback -> m SignalHandlerId +onWidgetProximityInEvent obj cb = liftIO $ connectWidgetProximityInEvent obj cb SignalConnectBefore +afterWidgetProximityInEvent :: (GObject a, MonadIO m) => a -> WidgetProximityInEventCallback -> m SignalHandlerId +afterWidgetProximityInEvent obj cb = connectWidgetProximityInEvent obj cb SignalConnectAfter + +connectWidgetProximityInEvent :: (GObject a, MonadIO m) => + a -> WidgetProximityInEventCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetProximityInEvent obj cb after = liftIO $ do + cb' <- mkWidgetProximityInEventCallback (widgetProximityInEventCallbackWrapper cb) + connectSignalFunPtr obj "proximity-in-event" cb' after + +-- signal Widget::proximity-out-event +type WidgetProximityOutEventCallback = + Gdk.EventProximity -> + IO Bool + +noWidgetProximityOutEventCallback :: Maybe WidgetProximityOutEventCallback +noWidgetProximityOutEventCallback = Nothing + +type WidgetProximityOutEventCallbackC = + Ptr () -> -- object + Ptr Gdk.EventProximity -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetProximityOutEventCallback :: WidgetProximityOutEventCallbackC -> IO (FunPtr WidgetProximityOutEventCallbackC) + +widgetProximityOutEventClosure :: WidgetProximityOutEventCallback -> IO Closure +widgetProximityOutEventClosure cb = newCClosure =<< mkWidgetProximityOutEventCallback wrapped + where wrapped = widgetProximityOutEventCallbackWrapper cb + +widgetProximityOutEventCallbackWrapper :: + WidgetProximityOutEventCallback -> + Ptr () -> + Ptr Gdk.EventProximity -> + Ptr () -> + IO CInt +widgetProximityOutEventCallbackWrapper _cb _ event _ = do + event' <- (newPtr 32 Gdk.EventProximity) event + result <- _cb event' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetProximityOutEvent :: (GObject a, MonadIO m) => a -> WidgetProximityOutEventCallback -> m SignalHandlerId +onWidgetProximityOutEvent obj cb = liftIO $ connectWidgetProximityOutEvent obj cb SignalConnectBefore +afterWidgetProximityOutEvent :: (GObject a, MonadIO m) => a -> WidgetProximityOutEventCallback -> m SignalHandlerId +afterWidgetProximityOutEvent obj cb = connectWidgetProximityOutEvent obj cb SignalConnectAfter + +connectWidgetProximityOutEvent :: (GObject a, MonadIO m) => + a -> WidgetProximityOutEventCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetProximityOutEvent obj cb after = liftIO $ do + cb' <- mkWidgetProximityOutEventCallback (widgetProximityOutEventCallbackWrapper cb) + connectSignalFunPtr obj "proximity-out-event" cb' after + +-- signal Widget::query-tooltip +type WidgetQueryTooltipCallback = + Int32 -> + Int32 -> + Bool -> + Tooltip -> + IO Bool + +noWidgetQueryTooltipCallback :: Maybe WidgetQueryTooltipCallback +noWidgetQueryTooltipCallback = Nothing + +type WidgetQueryTooltipCallbackC = + Ptr () -> -- object + Int32 -> + Int32 -> + CInt -> + Ptr Tooltip -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetQueryTooltipCallback :: WidgetQueryTooltipCallbackC -> IO (FunPtr WidgetQueryTooltipCallbackC) + +widgetQueryTooltipClosure :: WidgetQueryTooltipCallback -> IO Closure +widgetQueryTooltipClosure cb = newCClosure =<< mkWidgetQueryTooltipCallback wrapped + where wrapped = widgetQueryTooltipCallbackWrapper cb + +widgetQueryTooltipCallbackWrapper :: + WidgetQueryTooltipCallback -> + Ptr () -> + Int32 -> + Int32 -> + CInt -> + Ptr Tooltip -> + Ptr () -> + IO CInt +widgetQueryTooltipCallbackWrapper _cb _ x y keyboardMode tooltip _ = do + let keyboardMode' = (/= 0) keyboardMode + tooltip' <- (newObject Tooltip) tooltip + result <- _cb x y keyboardMode' tooltip' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetQueryTooltip :: (GObject a, MonadIO m) => a -> WidgetQueryTooltipCallback -> m SignalHandlerId +onWidgetQueryTooltip obj cb = liftIO $ connectWidgetQueryTooltip obj cb SignalConnectBefore +afterWidgetQueryTooltip :: (GObject a, MonadIO m) => a -> WidgetQueryTooltipCallback -> m SignalHandlerId +afterWidgetQueryTooltip obj cb = connectWidgetQueryTooltip obj cb SignalConnectAfter + +connectWidgetQueryTooltip :: (GObject a, MonadIO m) => + a -> WidgetQueryTooltipCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetQueryTooltip obj cb after = liftIO $ do + cb' <- mkWidgetQueryTooltipCallback (widgetQueryTooltipCallbackWrapper cb) + connectSignalFunPtr obj "query-tooltip" cb' after + +-- signal Widget::realize +type WidgetRealizeCallback = + IO () + +noWidgetRealizeCallback :: Maybe WidgetRealizeCallback +noWidgetRealizeCallback = Nothing + +type WidgetRealizeCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWidgetRealizeCallback :: WidgetRealizeCallbackC -> IO (FunPtr WidgetRealizeCallbackC) + +widgetRealizeClosure :: WidgetRealizeCallback -> IO Closure +widgetRealizeClosure cb = newCClosure =<< mkWidgetRealizeCallback wrapped + where wrapped = widgetRealizeCallbackWrapper cb + +widgetRealizeCallbackWrapper :: + WidgetRealizeCallback -> + Ptr () -> + Ptr () -> + IO () +widgetRealizeCallbackWrapper _cb _ _ = do + _cb + +onWidgetRealize :: (GObject a, MonadIO m) => a -> WidgetRealizeCallback -> m SignalHandlerId +onWidgetRealize obj cb = liftIO $ connectWidgetRealize obj cb SignalConnectBefore +afterWidgetRealize :: (GObject a, MonadIO m) => a -> WidgetRealizeCallback -> m SignalHandlerId +afterWidgetRealize obj cb = connectWidgetRealize obj cb SignalConnectAfter + +connectWidgetRealize :: (GObject a, MonadIO m) => + a -> WidgetRealizeCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetRealize obj cb after = liftIO $ do + cb' <- mkWidgetRealizeCallback (widgetRealizeCallbackWrapper cb) + connectSignalFunPtr obj "realize" cb' after + +-- signal Widget::screen-changed +type WidgetScreenChangedCallback = + Maybe Gdk.Screen -> + IO () + +noWidgetScreenChangedCallback :: Maybe WidgetScreenChangedCallback +noWidgetScreenChangedCallback = Nothing + +type WidgetScreenChangedCallbackC = + Ptr () -> -- object + Ptr Gdk.Screen -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWidgetScreenChangedCallback :: WidgetScreenChangedCallbackC -> IO (FunPtr WidgetScreenChangedCallbackC) + +widgetScreenChangedClosure :: WidgetScreenChangedCallback -> IO Closure +widgetScreenChangedClosure cb = newCClosure =<< mkWidgetScreenChangedCallback wrapped + where wrapped = widgetScreenChangedCallbackWrapper cb + +widgetScreenChangedCallbackWrapper :: + WidgetScreenChangedCallback -> + Ptr () -> + Ptr Gdk.Screen -> + Ptr () -> + IO () +widgetScreenChangedCallbackWrapper _cb _ previousScreen _ = do + maybePreviousScreen <- + if previousScreen == nullPtr + then return Nothing + else do + previousScreen' <- (newObject Gdk.Screen) previousScreen + return $ Just previousScreen' + _cb maybePreviousScreen + +onWidgetScreenChanged :: (GObject a, MonadIO m) => a -> WidgetScreenChangedCallback -> m SignalHandlerId +onWidgetScreenChanged obj cb = liftIO $ connectWidgetScreenChanged obj cb SignalConnectBefore +afterWidgetScreenChanged :: (GObject a, MonadIO m) => a -> WidgetScreenChangedCallback -> m SignalHandlerId +afterWidgetScreenChanged obj cb = connectWidgetScreenChanged obj cb SignalConnectAfter + +connectWidgetScreenChanged :: (GObject a, MonadIO m) => + a -> WidgetScreenChangedCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetScreenChanged obj cb after = liftIO $ do + cb' <- mkWidgetScreenChangedCallback (widgetScreenChangedCallbackWrapper cb) + connectSignalFunPtr obj "screen-changed" cb' after + +-- signal Widget::scroll-event +type WidgetScrollEventCallback = + Gdk.EventScroll -> + IO Bool + +noWidgetScrollEventCallback :: Maybe WidgetScrollEventCallback +noWidgetScrollEventCallback = Nothing + +type WidgetScrollEventCallbackC = + Ptr () -> -- object + Ptr Gdk.EventScroll -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetScrollEventCallback :: WidgetScrollEventCallbackC -> IO (FunPtr WidgetScrollEventCallbackC) + +widgetScrollEventClosure :: WidgetScrollEventCallback -> IO Closure +widgetScrollEventClosure cb = newCClosure =<< mkWidgetScrollEventCallback wrapped + where wrapped = widgetScrollEventCallbackWrapper cb + +widgetScrollEventCallbackWrapper :: + WidgetScrollEventCallback -> + Ptr () -> + Ptr Gdk.EventScroll -> + Ptr () -> + IO CInt +widgetScrollEventCallbackWrapper _cb _ event _ = do + event' <- (newPtr 88 Gdk.EventScroll) event + result <- _cb event' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetScrollEvent :: (GObject a, MonadIO m) => a -> WidgetScrollEventCallback -> m SignalHandlerId +onWidgetScrollEvent obj cb = liftIO $ connectWidgetScrollEvent obj cb SignalConnectBefore +afterWidgetScrollEvent :: (GObject a, MonadIO m) => a -> WidgetScrollEventCallback -> m SignalHandlerId +afterWidgetScrollEvent obj cb = connectWidgetScrollEvent obj cb SignalConnectAfter + +connectWidgetScrollEvent :: (GObject a, MonadIO m) => + a -> WidgetScrollEventCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetScrollEvent obj cb after = liftIO $ do + cb' <- mkWidgetScrollEventCallback (widgetScrollEventCallbackWrapper cb) + connectSignalFunPtr obj "scroll-event" cb' after + +-- signal Widget::selection-clear-event +type WidgetSelectionClearEventCallback = + Gdk.EventSelection -> + IO Bool + +noWidgetSelectionClearEventCallback :: Maybe WidgetSelectionClearEventCallback +noWidgetSelectionClearEventCallback = Nothing + +type WidgetSelectionClearEventCallbackC = + Ptr () -> -- object + Ptr Gdk.EventSelection -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetSelectionClearEventCallback :: WidgetSelectionClearEventCallbackC -> IO (FunPtr WidgetSelectionClearEventCallbackC) + +widgetSelectionClearEventClosure :: WidgetSelectionClearEventCallback -> IO Closure +widgetSelectionClearEventClosure cb = newCClosure =<< mkWidgetSelectionClearEventCallback wrapped + where wrapped = widgetSelectionClearEventCallbackWrapper cb + +widgetSelectionClearEventCallbackWrapper :: + WidgetSelectionClearEventCallback -> + Ptr () -> + Ptr Gdk.EventSelection -> + Ptr () -> + IO CInt +widgetSelectionClearEventCallbackWrapper _cb _ event _ = do + event' <- (newPtr 64 Gdk.EventSelection) event + result <- _cb event' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetSelectionClearEvent :: (GObject a, MonadIO m) => a -> WidgetSelectionClearEventCallback -> m SignalHandlerId +onWidgetSelectionClearEvent obj cb = liftIO $ connectWidgetSelectionClearEvent obj cb SignalConnectBefore +afterWidgetSelectionClearEvent :: (GObject a, MonadIO m) => a -> WidgetSelectionClearEventCallback -> m SignalHandlerId +afterWidgetSelectionClearEvent obj cb = connectWidgetSelectionClearEvent obj cb SignalConnectAfter + +connectWidgetSelectionClearEvent :: (GObject a, MonadIO m) => + a -> WidgetSelectionClearEventCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetSelectionClearEvent obj cb after = liftIO $ do + cb' <- mkWidgetSelectionClearEventCallback (widgetSelectionClearEventCallbackWrapper cb) + connectSignalFunPtr obj "selection-clear-event" cb' after + +-- signal Widget::selection-get +type WidgetSelectionGetCallback = + SelectionData -> + Word32 -> + Word32 -> + IO () + +noWidgetSelectionGetCallback :: Maybe WidgetSelectionGetCallback +noWidgetSelectionGetCallback = Nothing + +type WidgetSelectionGetCallbackC = + Ptr () -> -- object + Ptr SelectionData -> + Word32 -> + Word32 -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWidgetSelectionGetCallback :: WidgetSelectionGetCallbackC -> IO (FunPtr WidgetSelectionGetCallbackC) + +widgetSelectionGetClosure :: WidgetSelectionGetCallback -> IO Closure +widgetSelectionGetClosure cb = newCClosure =<< mkWidgetSelectionGetCallback wrapped + where wrapped = widgetSelectionGetCallbackWrapper cb + +widgetSelectionGetCallbackWrapper :: + WidgetSelectionGetCallback -> + Ptr () -> + Ptr SelectionData -> + Word32 -> + Word32 -> + Ptr () -> + IO () +widgetSelectionGetCallbackWrapper _cb _ data_ info time _ = do + data_' <- (newBoxed SelectionData) data_ + _cb data_' info time + +onWidgetSelectionGet :: (GObject a, MonadIO m) => a -> WidgetSelectionGetCallback -> m SignalHandlerId +onWidgetSelectionGet obj cb = liftIO $ connectWidgetSelectionGet obj cb SignalConnectBefore +afterWidgetSelectionGet :: (GObject a, MonadIO m) => a -> WidgetSelectionGetCallback -> m SignalHandlerId +afterWidgetSelectionGet obj cb = connectWidgetSelectionGet obj cb SignalConnectAfter + +connectWidgetSelectionGet :: (GObject a, MonadIO m) => + a -> WidgetSelectionGetCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetSelectionGet obj cb after = liftIO $ do + cb' <- mkWidgetSelectionGetCallback (widgetSelectionGetCallbackWrapper cb) + connectSignalFunPtr obj "selection-get" cb' after + +-- signal Widget::selection-notify-event +type WidgetSelectionNotifyEventCallback = + Gdk.EventSelection -> + IO Bool + +noWidgetSelectionNotifyEventCallback :: Maybe WidgetSelectionNotifyEventCallback +noWidgetSelectionNotifyEventCallback = Nothing + +type WidgetSelectionNotifyEventCallbackC = + Ptr () -> -- object + Ptr Gdk.EventSelection -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetSelectionNotifyEventCallback :: WidgetSelectionNotifyEventCallbackC -> IO (FunPtr WidgetSelectionNotifyEventCallbackC) + +widgetSelectionNotifyEventClosure :: WidgetSelectionNotifyEventCallback -> IO Closure +widgetSelectionNotifyEventClosure cb = newCClosure =<< mkWidgetSelectionNotifyEventCallback wrapped + where wrapped = widgetSelectionNotifyEventCallbackWrapper cb + +widgetSelectionNotifyEventCallbackWrapper :: + WidgetSelectionNotifyEventCallback -> + Ptr () -> + Ptr Gdk.EventSelection -> + Ptr () -> + IO CInt +widgetSelectionNotifyEventCallbackWrapper _cb _ event _ = do + event' <- (newPtr 64 Gdk.EventSelection) event + result <- _cb event' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetSelectionNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetSelectionNotifyEventCallback -> m SignalHandlerId +onWidgetSelectionNotifyEvent obj cb = liftIO $ connectWidgetSelectionNotifyEvent obj cb SignalConnectBefore +afterWidgetSelectionNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetSelectionNotifyEventCallback -> m SignalHandlerId +afterWidgetSelectionNotifyEvent obj cb = connectWidgetSelectionNotifyEvent obj cb SignalConnectAfter + +connectWidgetSelectionNotifyEvent :: (GObject a, MonadIO m) => + a -> WidgetSelectionNotifyEventCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetSelectionNotifyEvent obj cb after = liftIO $ do + cb' <- mkWidgetSelectionNotifyEventCallback (widgetSelectionNotifyEventCallbackWrapper cb) + connectSignalFunPtr obj "selection-notify-event" cb' after + +-- signal Widget::selection-received +type WidgetSelectionReceivedCallback = + SelectionData -> + Word32 -> + IO () + +noWidgetSelectionReceivedCallback :: Maybe WidgetSelectionReceivedCallback +noWidgetSelectionReceivedCallback = Nothing + +type WidgetSelectionReceivedCallbackC = + Ptr () -> -- object + Ptr SelectionData -> + Word32 -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWidgetSelectionReceivedCallback :: WidgetSelectionReceivedCallbackC -> IO (FunPtr WidgetSelectionReceivedCallbackC) + +widgetSelectionReceivedClosure :: WidgetSelectionReceivedCallback -> IO Closure +widgetSelectionReceivedClosure cb = newCClosure =<< mkWidgetSelectionReceivedCallback wrapped + where wrapped = widgetSelectionReceivedCallbackWrapper cb + +widgetSelectionReceivedCallbackWrapper :: + WidgetSelectionReceivedCallback -> + Ptr () -> + Ptr SelectionData -> + Word32 -> + Ptr () -> + IO () +widgetSelectionReceivedCallbackWrapper _cb _ data_ time _ = do + data_' <- (newBoxed SelectionData) data_ + _cb data_' time + +onWidgetSelectionReceived :: (GObject a, MonadIO m) => a -> WidgetSelectionReceivedCallback -> m SignalHandlerId +onWidgetSelectionReceived obj cb = liftIO $ connectWidgetSelectionReceived obj cb SignalConnectBefore +afterWidgetSelectionReceived :: (GObject a, MonadIO m) => a -> WidgetSelectionReceivedCallback -> m SignalHandlerId +afterWidgetSelectionReceived obj cb = connectWidgetSelectionReceived obj cb SignalConnectAfter + +connectWidgetSelectionReceived :: (GObject a, MonadIO m) => + a -> WidgetSelectionReceivedCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetSelectionReceived obj cb after = liftIO $ do + cb' <- mkWidgetSelectionReceivedCallback (widgetSelectionReceivedCallbackWrapper cb) + connectSignalFunPtr obj "selection-received" cb' after + +-- signal Widget::selection-request-event +type WidgetSelectionRequestEventCallback = + Gdk.EventSelection -> + IO Bool + +noWidgetSelectionRequestEventCallback :: Maybe WidgetSelectionRequestEventCallback +noWidgetSelectionRequestEventCallback = Nothing + +type WidgetSelectionRequestEventCallbackC = + Ptr () -> -- object + Ptr Gdk.EventSelection -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetSelectionRequestEventCallback :: WidgetSelectionRequestEventCallbackC -> IO (FunPtr WidgetSelectionRequestEventCallbackC) + +widgetSelectionRequestEventClosure :: WidgetSelectionRequestEventCallback -> IO Closure +widgetSelectionRequestEventClosure cb = newCClosure =<< mkWidgetSelectionRequestEventCallback wrapped + where wrapped = widgetSelectionRequestEventCallbackWrapper cb + +widgetSelectionRequestEventCallbackWrapper :: + WidgetSelectionRequestEventCallback -> + Ptr () -> + Ptr Gdk.EventSelection -> + Ptr () -> + IO CInt +widgetSelectionRequestEventCallbackWrapper _cb _ event _ = do + event' <- (newPtr 64 Gdk.EventSelection) event + result <- _cb event' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetSelectionRequestEvent :: (GObject a, MonadIO m) => a -> WidgetSelectionRequestEventCallback -> m SignalHandlerId +onWidgetSelectionRequestEvent obj cb = liftIO $ connectWidgetSelectionRequestEvent obj cb SignalConnectBefore +afterWidgetSelectionRequestEvent :: (GObject a, MonadIO m) => a -> WidgetSelectionRequestEventCallback -> m SignalHandlerId +afterWidgetSelectionRequestEvent obj cb = connectWidgetSelectionRequestEvent obj cb SignalConnectAfter + +connectWidgetSelectionRequestEvent :: (GObject a, MonadIO m) => + a -> WidgetSelectionRequestEventCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetSelectionRequestEvent obj cb after = liftIO $ do + cb' <- mkWidgetSelectionRequestEventCallback (widgetSelectionRequestEventCallbackWrapper cb) + connectSignalFunPtr obj "selection-request-event" cb' after + +-- signal Widget::show +type WidgetShowCallback = + IO () + +noWidgetShowCallback :: Maybe WidgetShowCallback +noWidgetShowCallback = Nothing + +type WidgetShowCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWidgetShowCallback :: WidgetShowCallbackC -> IO (FunPtr WidgetShowCallbackC) + +widgetShowClosure :: WidgetShowCallback -> IO Closure +widgetShowClosure cb = newCClosure =<< mkWidgetShowCallback wrapped + where wrapped = widgetShowCallbackWrapper cb + +widgetShowCallbackWrapper :: + WidgetShowCallback -> + Ptr () -> + Ptr () -> + IO () +widgetShowCallbackWrapper _cb _ _ = do + _cb + +onWidgetShow :: (GObject a, MonadIO m) => a -> WidgetShowCallback -> m SignalHandlerId +onWidgetShow obj cb = liftIO $ connectWidgetShow obj cb SignalConnectBefore +afterWidgetShow :: (GObject a, MonadIO m) => a -> WidgetShowCallback -> m SignalHandlerId +afterWidgetShow obj cb = connectWidgetShow obj cb SignalConnectAfter + +connectWidgetShow :: (GObject a, MonadIO m) => + a -> WidgetShowCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetShow obj cb after = liftIO $ do + cb' <- mkWidgetShowCallback (widgetShowCallbackWrapper cb) + connectSignalFunPtr obj "show" cb' after + +-- signal Widget::show-help +type WidgetShowHelpCallback = + WidgetHelpType -> + IO Bool + +noWidgetShowHelpCallback :: Maybe WidgetShowHelpCallback +noWidgetShowHelpCallback = Nothing + +type WidgetShowHelpCallbackC = + Ptr () -> -- object + CUInt -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetShowHelpCallback :: WidgetShowHelpCallbackC -> IO (FunPtr WidgetShowHelpCallbackC) + +widgetShowHelpClosure :: WidgetShowHelpCallback -> IO Closure +widgetShowHelpClosure cb = newCClosure =<< mkWidgetShowHelpCallback wrapped + where wrapped = widgetShowHelpCallbackWrapper cb + +widgetShowHelpCallbackWrapper :: + WidgetShowHelpCallback -> + Ptr () -> + CUInt -> + Ptr () -> + IO CInt +widgetShowHelpCallbackWrapper _cb _ helpType _ = do + let helpType' = (toEnum . fromIntegral) helpType + result <- _cb helpType' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetShowHelp :: (GObject a, MonadIO m) => a -> WidgetShowHelpCallback -> m SignalHandlerId +onWidgetShowHelp obj cb = liftIO $ connectWidgetShowHelp obj cb SignalConnectBefore +afterWidgetShowHelp :: (GObject a, MonadIO m) => a -> WidgetShowHelpCallback -> m SignalHandlerId +afterWidgetShowHelp obj cb = connectWidgetShowHelp obj cb SignalConnectAfter + +connectWidgetShowHelp :: (GObject a, MonadIO m) => + a -> WidgetShowHelpCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetShowHelp obj cb after = liftIO $ do + cb' <- mkWidgetShowHelpCallback (widgetShowHelpCallbackWrapper cb) + connectSignalFunPtr obj "show-help" cb' after + +-- signal Widget::size-allocate +type WidgetSizeAllocateCallback = + Gdk.Rectangle -> + IO () + +noWidgetSizeAllocateCallback :: Maybe WidgetSizeAllocateCallback +noWidgetSizeAllocateCallback = Nothing + +type WidgetSizeAllocateCallbackC = + Ptr () -> -- object + Ptr Gdk.Rectangle -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWidgetSizeAllocateCallback :: WidgetSizeAllocateCallbackC -> IO (FunPtr WidgetSizeAllocateCallbackC) + +widgetSizeAllocateClosure :: WidgetSizeAllocateCallback -> IO Closure +widgetSizeAllocateClosure cb = newCClosure =<< mkWidgetSizeAllocateCallback wrapped + where wrapped = widgetSizeAllocateCallbackWrapper cb + +widgetSizeAllocateCallbackWrapper :: + WidgetSizeAllocateCallback -> + Ptr () -> + Ptr Gdk.Rectangle -> + Ptr () -> + IO () +widgetSizeAllocateCallbackWrapper _cb _ allocation _ = do + allocation' <- (newBoxed Gdk.Rectangle) allocation + _cb allocation' + +onWidgetSizeAllocate :: (GObject a, MonadIO m) => a -> WidgetSizeAllocateCallback -> m SignalHandlerId +onWidgetSizeAllocate obj cb = liftIO $ connectWidgetSizeAllocate obj cb SignalConnectBefore +afterWidgetSizeAllocate :: (GObject a, MonadIO m) => a -> WidgetSizeAllocateCallback -> m SignalHandlerId +afterWidgetSizeAllocate obj cb = connectWidgetSizeAllocate obj cb SignalConnectAfter + +connectWidgetSizeAllocate :: (GObject a, MonadIO m) => + a -> WidgetSizeAllocateCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetSizeAllocate obj cb after = liftIO $ do + cb' <- mkWidgetSizeAllocateCallback (widgetSizeAllocateCallbackWrapper cb) + connectSignalFunPtr obj "size-allocate" cb' after + +-- signal Widget::state-changed +type WidgetStateChangedCallback = + StateType -> + IO () + +noWidgetStateChangedCallback :: Maybe WidgetStateChangedCallback +noWidgetStateChangedCallback = Nothing + +type WidgetStateChangedCallbackC = + Ptr () -> -- object + CUInt -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWidgetStateChangedCallback :: WidgetStateChangedCallbackC -> IO (FunPtr WidgetStateChangedCallbackC) + +widgetStateChangedClosure :: WidgetStateChangedCallback -> IO Closure +widgetStateChangedClosure cb = newCClosure =<< mkWidgetStateChangedCallback wrapped + where wrapped = widgetStateChangedCallbackWrapper cb + +widgetStateChangedCallbackWrapper :: + WidgetStateChangedCallback -> + Ptr () -> + CUInt -> + Ptr () -> + IO () +widgetStateChangedCallbackWrapper _cb _ state _ = do + let state' = (toEnum . fromIntegral) state + _cb state' + +onWidgetStateChanged :: (GObject a, MonadIO m) => a -> WidgetStateChangedCallback -> m SignalHandlerId +onWidgetStateChanged obj cb = liftIO $ connectWidgetStateChanged obj cb SignalConnectBefore +afterWidgetStateChanged :: (GObject a, MonadIO m) => a -> WidgetStateChangedCallback -> m SignalHandlerId +afterWidgetStateChanged obj cb = connectWidgetStateChanged obj cb SignalConnectAfter + +connectWidgetStateChanged :: (GObject a, MonadIO m) => + a -> WidgetStateChangedCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetStateChanged obj cb after = liftIO $ do + cb' <- mkWidgetStateChangedCallback (widgetStateChangedCallbackWrapper cb) + connectSignalFunPtr obj "state-changed" cb' after + +-- signal Widget::state-flags-changed +type WidgetStateFlagsChangedCallback = + [StateFlags] -> + IO () + +noWidgetStateFlagsChangedCallback :: Maybe WidgetStateFlagsChangedCallback +noWidgetStateFlagsChangedCallback = Nothing + +type WidgetStateFlagsChangedCallbackC = + Ptr () -> -- object + CUInt -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWidgetStateFlagsChangedCallback :: WidgetStateFlagsChangedCallbackC -> IO (FunPtr WidgetStateFlagsChangedCallbackC) + +widgetStateFlagsChangedClosure :: WidgetStateFlagsChangedCallback -> IO Closure +widgetStateFlagsChangedClosure cb = newCClosure =<< mkWidgetStateFlagsChangedCallback wrapped + where wrapped = widgetStateFlagsChangedCallbackWrapper cb + +widgetStateFlagsChangedCallbackWrapper :: + WidgetStateFlagsChangedCallback -> + Ptr () -> + CUInt -> + Ptr () -> + IO () +widgetStateFlagsChangedCallbackWrapper _cb _ flags _ = do + let flags' = wordToGFlags flags + _cb flags' + +onWidgetStateFlagsChanged :: (GObject a, MonadIO m) => a -> WidgetStateFlagsChangedCallback -> m SignalHandlerId +onWidgetStateFlagsChanged obj cb = liftIO $ connectWidgetStateFlagsChanged obj cb SignalConnectBefore +afterWidgetStateFlagsChanged :: (GObject a, MonadIO m) => a -> WidgetStateFlagsChangedCallback -> m SignalHandlerId +afterWidgetStateFlagsChanged obj cb = connectWidgetStateFlagsChanged obj cb SignalConnectAfter + +connectWidgetStateFlagsChanged :: (GObject a, MonadIO m) => + a -> WidgetStateFlagsChangedCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetStateFlagsChanged obj cb after = liftIO $ do + cb' <- mkWidgetStateFlagsChangedCallback (widgetStateFlagsChangedCallbackWrapper cb) + connectSignalFunPtr obj "state-flags-changed" cb' after + +-- signal Widget::style-set +type WidgetStyleSetCallback = + Maybe Style -> + IO () + +noWidgetStyleSetCallback :: Maybe WidgetStyleSetCallback +noWidgetStyleSetCallback = Nothing + +type WidgetStyleSetCallbackC = + Ptr () -> -- object + Ptr Style -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWidgetStyleSetCallback :: WidgetStyleSetCallbackC -> IO (FunPtr WidgetStyleSetCallbackC) + +widgetStyleSetClosure :: WidgetStyleSetCallback -> IO Closure +widgetStyleSetClosure cb = newCClosure =<< mkWidgetStyleSetCallback wrapped + where wrapped = widgetStyleSetCallbackWrapper cb + +widgetStyleSetCallbackWrapper :: + WidgetStyleSetCallback -> + Ptr () -> + Ptr Style -> + Ptr () -> + IO () +widgetStyleSetCallbackWrapper _cb _ previousStyle _ = do + maybePreviousStyle <- + if previousStyle == nullPtr + then return Nothing + else do + previousStyle' <- (newObject Style) previousStyle + return $ Just previousStyle' + _cb maybePreviousStyle + +onWidgetStyleSet :: (GObject a, MonadIO m) => a -> WidgetStyleSetCallback -> m SignalHandlerId +onWidgetStyleSet obj cb = liftIO $ connectWidgetStyleSet obj cb SignalConnectBefore +afterWidgetStyleSet :: (GObject a, MonadIO m) => a -> WidgetStyleSetCallback -> m SignalHandlerId +afterWidgetStyleSet obj cb = connectWidgetStyleSet obj cb SignalConnectAfter + +connectWidgetStyleSet :: (GObject a, MonadIO m) => + a -> WidgetStyleSetCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetStyleSet obj cb after = liftIO $ do + cb' <- mkWidgetStyleSetCallback (widgetStyleSetCallbackWrapper cb) + connectSignalFunPtr obj "style-set" cb' after + +-- signal Widget::style-updated +type WidgetStyleUpdatedCallback = + IO () + +noWidgetStyleUpdatedCallback :: Maybe WidgetStyleUpdatedCallback +noWidgetStyleUpdatedCallback = Nothing + +type WidgetStyleUpdatedCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWidgetStyleUpdatedCallback :: WidgetStyleUpdatedCallbackC -> IO (FunPtr WidgetStyleUpdatedCallbackC) + +widgetStyleUpdatedClosure :: WidgetStyleUpdatedCallback -> IO Closure +widgetStyleUpdatedClosure cb = newCClosure =<< mkWidgetStyleUpdatedCallback wrapped + where wrapped = widgetStyleUpdatedCallbackWrapper cb + +widgetStyleUpdatedCallbackWrapper :: + WidgetStyleUpdatedCallback -> + Ptr () -> + Ptr () -> + IO () +widgetStyleUpdatedCallbackWrapper _cb _ _ = do + _cb + +onWidgetStyleUpdated :: (GObject a, MonadIO m) => a -> WidgetStyleUpdatedCallback -> m SignalHandlerId +onWidgetStyleUpdated obj cb = liftIO $ connectWidgetStyleUpdated obj cb SignalConnectBefore +afterWidgetStyleUpdated :: (GObject a, MonadIO m) => a -> WidgetStyleUpdatedCallback -> m SignalHandlerId +afterWidgetStyleUpdated obj cb = connectWidgetStyleUpdated obj cb SignalConnectAfter + +connectWidgetStyleUpdated :: (GObject a, MonadIO m) => + a -> WidgetStyleUpdatedCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetStyleUpdated obj cb after = liftIO $ do + cb' <- mkWidgetStyleUpdatedCallback (widgetStyleUpdatedCallbackWrapper cb) + connectSignalFunPtr obj "style-updated" cb' after + +-- signal Widget::touch-event +type WidgetTouchEventCallback = + Gdk.Event -> + IO Bool + +noWidgetTouchEventCallback :: Maybe WidgetTouchEventCallback +noWidgetTouchEventCallback = Nothing + +type WidgetTouchEventCallbackC = + Ptr () -> -- object + Ptr Gdk.Event -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetTouchEventCallback :: WidgetTouchEventCallbackC -> IO (FunPtr WidgetTouchEventCallbackC) + +widgetTouchEventClosure :: WidgetTouchEventCallback -> IO Closure +widgetTouchEventClosure cb = newCClosure =<< mkWidgetTouchEventCallback wrapped + where wrapped = widgetTouchEventCallbackWrapper cb + +widgetTouchEventCallbackWrapper :: + WidgetTouchEventCallback -> + Ptr () -> + Ptr Gdk.Event -> + Ptr () -> + IO CInt +widgetTouchEventCallbackWrapper _cb _ object _ = do + object' <- (newBoxed Gdk.Event) object + result <- _cb object' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetTouchEvent :: (GObject a, MonadIO m) => a -> WidgetTouchEventCallback -> m SignalHandlerId +onWidgetTouchEvent obj cb = liftIO $ connectWidgetTouchEvent obj cb SignalConnectBefore +afterWidgetTouchEvent :: (GObject a, MonadIO m) => a -> WidgetTouchEventCallback -> m SignalHandlerId +afterWidgetTouchEvent obj cb = connectWidgetTouchEvent obj cb SignalConnectAfter + +connectWidgetTouchEvent :: (GObject a, MonadIO m) => + a -> WidgetTouchEventCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetTouchEvent obj cb after = liftIO $ do + cb' <- mkWidgetTouchEventCallback (widgetTouchEventCallbackWrapper cb) + connectSignalFunPtr obj "touch-event" cb' after + +-- signal Widget::unmap +type WidgetUnmapCallback = + IO () + +noWidgetUnmapCallback :: Maybe WidgetUnmapCallback +noWidgetUnmapCallback = Nothing + +type WidgetUnmapCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWidgetUnmapCallback :: WidgetUnmapCallbackC -> IO (FunPtr WidgetUnmapCallbackC) + +widgetUnmapClosure :: WidgetUnmapCallback -> IO Closure +widgetUnmapClosure cb = newCClosure =<< mkWidgetUnmapCallback wrapped + where wrapped = widgetUnmapCallbackWrapper cb + +widgetUnmapCallbackWrapper :: + WidgetUnmapCallback -> + Ptr () -> + Ptr () -> + IO () +widgetUnmapCallbackWrapper _cb _ _ = do + _cb + +onWidgetUnmap :: (GObject a, MonadIO m) => a -> WidgetUnmapCallback -> m SignalHandlerId +onWidgetUnmap obj cb = liftIO $ connectWidgetUnmap obj cb SignalConnectBefore +afterWidgetUnmap :: (GObject a, MonadIO m) => a -> WidgetUnmapCallback -> m SignalHandlerId +afterWidgetUnmap obj cb = connectWidgetUnmap obj cb SignalConnectAfter + +connectWidgetUnmap :: (GObject a, MonadIO m) => + a -> WidgetUnmapCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetUnmap obj cb after = liftIO $ do + cb' <- mkWidgetUnmapCallback (widgetUnmapCallbackWrapper cb) + connectSignalFunPtr obj "unmap" cb' after + +-- signal Widget::unmap-event +type WidgetUnmapEventCallback = + Gdk.EventAny -> + IO Bool + +noWidgetUnmapEventCallback :: Maybe WidgetUnmapEventCallback +noWidgetUnmapEventCallback = Nothing + +type WidgetUnmapEventCallbackC = + Ptr () -> -- object + Ptr Gdk.EventAny -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetUnmapEventCallback :: WidgetUnmapEventCallbackC -> IO (FunPtr WidgetUnmapEventCallbackC) + +widgetUnmapEventClosure :: WidgetUnmapEventCallback -> IO Closure +widgetUnmapEventClosure cb = newCClosure =<< mkWidgetUnmapEventCallback wrapped + where wrapped = widgetUnmapEventCallbackWrapper cb + +widgetUnmapEventCallbackWrapper :: + WidgetUnmapEventCallback -> + Ptr () -> + Ptr Gdk.EventAny -> + Ptr () -> + IO CInt +widgetUnmapEventCallbackWrapper _cb _ event _ = do + event' <- (newPtr 24 Gdk.EventAny) event + result <- _cb event' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetUnmapEvent :: (GObject a, MonadIO m) => a -> WidgetUnmapEventCallback -> m SignalHandlerId +onWidgetUnmapEvent obj cb = liftIO $ connectWidgetUnmapEvent obj cb SignalConnectBefore +afterWidgetUnmapEvent :: (GObject a, MonadIO m) => a -> WidgetUnmapEventCallback -> m SignalHandlerId +afterWidgetUnmapEvent obj cb = connectWidgetUnmapEvent obj cb SignalConnectAfter + +connectWidgetUnmapEvent :: (GObject a, MonadIO m) => + a -> WidgetUnmapEventCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetUnmapEvent obj cb after = liftIO $ do + cb' <- mkWidgetUnmapEventCallback (widgetUnmapEventCallbackWrapper cb) + connectSignalFunPtr obj "unmap-event" cb' after + +-- signal Widget::unrealize +type WidgetUnrealizeCallback = + IO () + +noWidgetUnrealizeCallback :: Maybe WidgetUnrealizeCallback +noWidgetUnrealizeCallback = Nothing + +type WidgetUnrealizeCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWidgetUnrealizeCallback :: WidgetUnrealizeCallbackC -> IO (FunPtr WidgetUnrealizeCallbackC) + +widgetUnrealizeClosure :: WidgetUnrealizeCallback -> IO Closure +widgetUnrealizeClosure cb = newCClosure =<< mkWidgetUnrealizeCallback wrapped + where wrapped = widgetUnrealizeCallbackWrapper cb + +widgetUnrealizeCallbackWrapper :: + WidgetUnrealizeCallback -> + Ptr () -> + Ptr () -> + IO () +widgetUnrealizeCallbackWrapper _cb _ _ = do + _cb + +onWidgetUnrealize :: (GObject a, MonadIO m) => a -> WidgetUnrealizeCallback -> m SignalHandlerId +onWidgetUnrealize obj cb = liftIO $ connectWidgetUnrealize obj cb SignalConnectBefore +afterWidgetUnrealize :: (GObject a, MonadIO m) => a -> WidgetUnrealizeCallback -> m SignalHandlerId +afterWidgetUnrealize obj cb = connectWidgetUnrealize obj cb SignalConnectAfter + +connectWidgetUnrealize :: (GObject a, MonadIO m) => + a -> WidgetUnrealizeCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetUnrealize obj cb after = liftIO $ do + cb' <- mkWidgetUnrealizeCallback (widgetUnrealizeCallbackWrapper cb) + connectSignalFunPtr obj "unrealize" cb' after + +-- signal Widget::visibility-notify-event +type WidgetVisibilityNotifyEventCallback = + Gdk.EventVisibility -> + IO Bool + +noWidgetVisibilityNotifyEventCallback :: Maybe WidgetVisibilityNotifyEventCallback +noWidgetVisibilityNotifyEventCallback = Nothing + +type WidgetVisibilityNotifyEventCallbackC = + Ptr () -> -- object + Ptr Gdk.EventVisibility -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetVisibilityNotifyEventCallback :: WidgetVisibilityNotifyEventCallbackC -> IO (FunPtr WidgetVisibilityNotifyEventCallbackC) + +widgetVisibilityNotifyEventClosure :: WidgetVisibilityNotifyEventCallback -> IO Closure +widgetVisibilityNotifyEventClosure cb = newCClosure =<< mkWidgetVisibilityNotifyEventCallback wrapped + where wrapped = widgetVisibilityNotifyEventCallbackWrapper cb + +widgetVisibilityNotifyEventCallbackWrapper :: + WidgetVisibilityNotifyEventCallback -> + Ptr () -> + Ptr Gdk.EventVisibility -> + Ptr () -> + IO CInt +widgetVisibilityNotifyEventCallbackWrapper _cb _ event _ = do + event' <- (newPtr 24 Gdk.EventVisibility) event + result <- _cb event' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetVisibilityNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetVisibilityNotifyEventCallback -> m SignalHandlerId +onWidgetVisibilityNotifyEvent obj cb = liftIO $ connectWidgetVisibilityNotifyEvent obj cb SignalConnectBefore +afterWidgetVisibilityNotifyEvent :: (GObject a, MonadIO m) => a -> WidgetVisibilityNotifyEventCallback -> m SignalHandlerId +afterWidgetVisibilityNotifyEvent obj cb = connectWidgetVisibilityNotifyEvent obj cb SignalConnectAfter + +connectWidgetVisibilityNotifyEvent :: (GObject a, MonadIO m) => + a -> WidgetVisibilityNotifyEventCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetVisibilityNotifyEvent obj cb after = liftIO $ do + cb' <- mkWidgetVisibilityNotifyEventCallback (widgetVisibilityNotifyEventCallbackWrapper cb) + connectSignalFunPtr obj "visibility-notify-event" cb' after + +-- signal Widget::window-state-event +type WidgetWindowStateEventCallback = + Gdk.EventWindowState -> + IO Bool + +noWidgetWindowStateEventCallback :: Maybe WidgetWindowStateEventCallback +noWidgetWindowStateEventCallback = Nothing + +type WidgetWindowStateEventCallbackC = + Ptr () -> -- object + Ptr Gdk.EventWindowState -> + Ptr () -> -- user_data + IO CInt + +foreign import ccall "wrapper" + mkWidgetWindowStateEventCallback :: WidgetWindowStateEventCallbackC -> IO (FunPtr WidgetWindowStateEventCallbackC) + +widgetWindowStateEventClosure :: WidgetWindowStateEventCallback -> IO Closure +widgetWindowStateEventClosure cb = newCClosure =<< mkWidgetWindowStateEventCallback wrapped + where wrapped = widgetWindowStateEventCallbackWrapper cb + +widgetWindowStateEventCallbackWrapper :: + WidgetWindowStateEventCallback -> + Ptr () -> + Ptr Gdk.EventWindowState -> + Ptr () -> + IO CInt +widgetWindowStateEventCallbackWrapper _cb _ event _ = do + event' <- (newPtr 32 Gdk.EventWindowState) event + result <- _cb event' + let result' = (fromIntegral . fromEnum) result + return result' + +onWidgetWindowStateEvent :: (GObject a, MonadIO m) => a -> WidgetWindowStateEventCallback -> m SignalHandlerId +onWidgetWindowStateEvent obj cb = liftIO $ connectWidgetWindowStateEvent obj cb SignalConnectBefore +afterWidgetWindowStateEvent :: (GObject a, MonadIO m) => a -> WidgetWindowStateEventCallback -> m SignalHandlerId +afterWidgetWindowStateEvent obj cb = connectWidgetWindowStateEvent obj cb SignalConnectAfter + +connectWidgetWindowStateEvent :: (GObject a, MonadIO m) => + a -> WidgetWindowStateEventCallback -> SignalConnectMode -> m SignalHandlerId +connectWidgetWindowStateEvent obj cb after = liftIO $ do + cb' <- mkWidgetWindowStateEventCallback (widgetWindowStateEventCallbackWrapper cb) + connectSignalFunPtr obj "window-state-event" cb' after + +-- VVV Prop "app-paintable" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +getWidgetAppPaintable :: (MonadIO m, WidgetK o) => o -> m Bool +getWidgetAppPaintable obj = liftIO $ getObjectPropertyBool obj "app-paintable" + +setWidgetAppPaintable :: (MonadIO m, WidgetK o) => o -> Bool -> m () +setWidgetAppPaintable obj val = liftIO $ setObjectPropertyBool obj "app-paintable" val + +constructWidgetAppPaintable :: Bool -> IO ([Char], GValue) +constructWidgetAppPaintable val = constructObjectPropertyBool "app-paintable" val + +data WidgetAppPaintablePropertyInfo +instance AttrInfo WidgetAppPaintablePropertyInfo where + type AttrAllowedOps WidgetAppPaintablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetAppPaintablePropertyInfo = (~) Bool + type AttrBaseTypeConstraint WidgetAppPaintablePropertyInfo = WidgetK + type AttrGetType WidgetAppPaintablePropertyInfo = Bool + type AttrLabel WidgetAppPaintablePropertyInfo = "app-paintable" + attrGet _ = getWidgetAppPaintable + attrSet _ = setWidgetAppPaintable + attrConstruct _ = constructWidgetAppPaintable + attrClear _ = undefined + +-- VVV Prop "can-default" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +getWidgetCanDefault :: (MonadIO m, WidgetK o) => o -> m Bool +getWidgetCanDefault obj = liftIO $ getObjectPropertyBool obj "can-default" + +setWidgetCanDefault :: (MonadIO m, WidgetK o) => o -> Bool -> m () +setWidgetCanDefault obj val = liftIO $ setObjectPropertyBool obj "can-default" val + +constructWidgetCanDefault :: Bool -> IO ([Char], GValue) +constructWidgetCanDefault val = constructObjectPropertyBool "can-default" val + +data WidgetCanDefaultPropertyInfo +instance AttrInfo WidgetCanDefaultPropertyInfo where + type AttrAllowedOps WidgetCanDefaultPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetCanDefaultPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WidgetCanDefaultPropertyInfo = WidgetK + type AttrGetType WidgetCanDefaultPropertyInfo = Bool + type AttrLabel WidgetCanDefaultPropertyInfo = "can-default" + attrGet _ = getWidgetCanDefault + attrSet _ = setWidgetCanDefault + attrConstruct _ = constructWidgetCanDefault + attrClear _ = undefined + +-- VVV Prop "can-focus" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +getWidgetCanFocus :: (MonadIO m, WidgetK o) => o -> m Bool +getWidgetCanFocus obj = liftIO $ getObjectPropertyBool obj "can-focus" + +setWidgetCanFocus :: (MonadIO m, WidgetK o) => o -> Bool -> m () +setWidgetCanFocus obj val = liftIO $ setObjectPropertyBool obj "can-focus" val + +constructWidgetCanFocus :: Bool -> IO ([Char], GValue) +constructWidgetCanFocus val = constructObjectPropertyBool "can-focus" val + +data WidgetCanFocusPropertyInfo +instance AttrInfo WidgetCanFocusPropertyInfo where + type AttrAllowedOps WidgetCanFocusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetCanFocusPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WidgetCanFocusPropertyInfo = WidgetK + type AttrGetType WidgetCanFocusPropertyInfo = Bool + type AttrLabel WidgetCanFocusPropertyInfo = "can-focus" + attrGet _ = getWidgetCanFocus + attrSet _ = setWidgetCanFocus + attrConstruct _ = constructWidgetCanFocus + attrClear _ = undefined + +-- VVV Prop "composite-child" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) + +getWidgetCompositeChild :: (MonadIO m, WidgetK o) => o -> m Bool +getWidgetCompositeChild obj = liftIO $ getObjectPropertyBool obj "composite-child" + +data WidgetCompositeChildPropertyInfo +instance AttrInfo WidgetCompositeChildPropertyInfo where + type AttrAllowedOps WidgetCompositeChildPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WidgetCompositeChildPropertyInfo = (~) () + type AttrBaseTypeConstraint WidgetCompositeChildPropertyInfo = WidgetK + type AttrGetType WidgetCompositeChildPropertyInfo = Bool + type AttrLabel WidgetCompositeChildPropertyInfo = "composite-child" + attrGet _ = getWidgetCompositeChild + attrSet _ = undefined + attrConstruct _ = undefined + attrClear _ = undefined + +-- VVV Prop "double-buffered" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +getWidgetDoubleBuffered :: (MonadIO m, WidgetK o) => o -> m Bool +getWidgetDoubleBuffered obj = liftIO $ getObjectPropertyBool obj "double-buffered" + +setWidgetDoubleBuffered :: (MonadIO m, WidgetK o) => o -> Bool -> m () +setWidgetDoubleBuffered obj val = liftIO $ setObjectPropertyBool obj "double-buffered" val + +constructWidgetDoubleBuffered :: Bool -> IO ([Char], GValue) +constructWidgetDoubleBuffered val = constructObjectPropertyBool "double-buffered" val + +data WidgetDoubleBufferedPropertyInfo +instance AttrInfo WidgetDoubleBufferedPropertyInfo where + type AttrAllowedOps WidgetDoubleBufferedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetDoubleBufferedPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WidgetDoubleBufferedPropertyInfo = WidgetK + type AttrGetType WidgetDoubleBufferedPropertyInfo = Bool + type AttrLabel WidgetDoubleBufferedPropertyInfo = "double-buffered" + attrGet _ = getWidgetDoubleBuffered + attrSet _ = setWidgetDoubleBuffered + attrConstruct _ = constructWidgetDoubleBuffered + attrClear _ = undefined + +-- VVV Prop "events" + -- Type: TInterface "Gdk" "EventMask" + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getWidgetEvents :: (MonadIO m, WidgetK o) => o -> m [Gdk.EventMask] +getWidgetEvents obj = liftIO $ getObjectPropertyFlags obj "events" + +setWidgetEvents :: (MonadIO m, WidgetK o) => o -> [Gdk.EventMask] -> m () +setWidgetEvents obj val = liftIO $ setObjectPropertyFlags obj "events" val + +constructWidgetEvents :: [Gdk.EventMask] -> IO ([Char], GValue) +constructWidgetEvents val = constructObjectPropertyFlags "events" val + +data WidgetEventsPropertyInfo +instance AttrInfo WidgetEventsPropertyInfo where + type AttrAllowedOps WidgetEventsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetEventsPropertyInfo = (~) [Gdk.EventMask] + type AttrBaseTypeConstraint WidgetEventsPropertyInfo = WidgetK + type AttrGetType WidgetEventsPropertyInfo = [Gdk.EventMask] + type AttrLabel WidgetEventsPropertyInfo = "events" + attrGet _ = getWidgetEvents + attrSet _ = setWidgetEvents + attrConstruct _ = constructWidgetEvents + attrClear _ = undefined + +-- VVV Prop "expand" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getWidgetExpand :: (MonadIO m, WidgetK o) => o -> m Bool +getWidgetExpand obj = liftIO $ getObjectPropertyBool obj "expand" + +setWidgetExpand :: (MonadIO m, WidgetK o) => o -> Bool -> m () +setWidgetExpand obj val = liftIO $ setObjectPropertyBool obj "expand" val + +constructWidgetExpand :: Bool -> IO ([Char], GValue) +constructWidgetExpand val = constructObjectPropertyBool "expand" val + +data WidgetExpandPropertyInfo +instance AttrInfo WidgetExpandPropertyInfo where + type AttrAllowedOps WidgetExpandPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetExpandPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WidgetExpandPropertyInfo = WidgetK + type AttrGetType WidgetExpandPropertyInfo = Bool + type AttrLabel WidgetExpandPropertyInfo = "expand" + attrGet _ = getWidgetExpand + attrSet _ = setWidgetExpand + attrConstruct _ = constructWidgetExpand + attrClear _ = undefined + +-- VVV Prop "halign" + -- Type: TInterface "Gtk" "Align" + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +getWidgetHalign :: (MonadIO m, WidgetK o) => o -> m Align +getWidgetHalign obj = liftIO $ getObjectPropertyEnum obj "halign" + +setWidgetHalign :: (MonadIO m, WidgetK o) => o -> Align -> m () +setWidgetHalign obj val = liftIO $ setObjectPropertyEnum obj "halign" val + +constructWidgetHalign :: Align -> IO ([Char], GValue) +constructWidgetHalign val = constructObjectPropertyEnum "halign" val + +data WidgetHalignPropertyInfo +instance AttrInfo WidgetHalignPropertyInfo where + type AttrAllowedOps WidgetHalignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetHalignPropertyInfo = (~) Align + type AttrBaseTypeConstraint WidgetHalignPropertyInfo = WidgetK + type AttrGetType WidgetHalignPropertyInfo = Align + type AttrLabel WidgetHalignPropertyInfo = "halign" + attrGet _ = getWidgetHalign + attrSet _ = setWidgetHalign + attrConstruct _ = constructWidgetHalign + attrClear _ = undefined + +-- VVV Prop "has-default" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getWidgetHasDefault :: (MonadIO m, WidgetK o) => o -> m Bool +getWidgetHasDefault obj = liftIO $ getObjectPropertyBool obj "has-default" + +setWidgetHasDefault :: (MonadIO m, WidgetK o) => o -> Bool -> m () +setWidgetHasDefault obj val = liftIO $ setObjectPropertyBool obj "has-default" val + +constructWidgetHasDefault :: Bool -> IO ([Char], GValue) +constructWidgetHasDefault val = constructObjectPropertyBool "has-default" val + +data WidgetHasDefaultPropertyInfo +instance AttrInfo WidgetHasDefaultPropertyInfo where + type AttrAllowedOps WidgetHasDefaultPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetHasDefaultPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WidgetHasDefaultPropertyInfo = WidgetK + type AttrGetType WidgetHasDefaultPropertyInfo = Bool + type AttrLabel WidgetHasDefaultPropertyInfo = "has-default" + attrGet _ = getWidgetHasDefault + attrSet _ = setWidgetHasDefault + attrConstruct _ = constructWidgetHasDefault + attrClear _ = undefined + +-- VVV Prop "has-focus" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getWidgetHasFocus :: (MonadIO m, WidgetK o) => o -> m Bool +getWidgetHasFocus obj = liftIO $ getObjectPropertyBool obj "has-focus" + +setWidgetHasFocus :: (MonadIO m, WidgetK o) => o -> Bool -> m () +setWidgetHasFocus obj val = liftIO $ setObjectPropertyBool obj "has-focus" val + +constructWidgetHasFocus :: Bool -> IO ([Char], GValue) +constructWidgetHasFocus val = constructObjectPropertyBool "has-focus" val + +data WidgetHasFocusPropertyInfo +instance AttrInfo WidgetHasFocusPropertyInfo where + type AttrAllowedOps WidgetHasFocusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetHasFocusPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WidgetHasFocusPropertyInfo = WidgetK + type AttrGetType WidgetHasFocusPropertyInfo = Bool + type AttrLabel WidgetHasFocusPropertyInfo = "has-focus" + attrGet _ = getWidgetHasFocus + attrSet _ = setWidgetHasFocus + attrConstruct _ = constructWidgetHasFocus + attrClear _ = undefined + +-- VVV Prop "has-tooltip" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +getWidgetHasTooltip :: (MonadIO m, WidgetK o) => o -> m Bool +getWidgetHasTooltip obj = liftIO $ getObjectPropertyBool obj "has-tooltip" + +setWidgetHasTooltip :: (MonadIO m, WidgetK o) => o -> Bool -> m () +setWidgetHasTooltip obj val = liftIO $ setObjectPropertyBool obj "has-tooltip" val + +constructWidgetHasTooltip :: Bool -> IO ([Char], GValue) +constructWidgetHasTooltip val = constructObjectPropertyBool "has-tooltip" val + +data WidgetHasTooltipPropertyInfo +instance AttrInfo WidgetHasTooltipPropertyInfo where + type AttrAllowedOps WidgetHasTooltipPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetHasTooltipPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WidgetHasTooltipPropertyInfo = WidgetK + type AttrGetType WidgetHasTooltipPropertyInfo = Bool + type AttrLabel WidgetHasTooltipPropertyInfo = "has-tooltip" + attrGet _ = getWidgetHasTooltip + attrSet _ = setWidgetHasTooltip + attrConstruct _ = constructWidgetHasTooltip + attrClear _ = undefined + +-- VVV Prop "height-request" + -- Type: TBasicType TInt + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getWidgetHeightRequest :: (MonadIO m, WidgetK o) => o -> m Int32 +getWidgetHeightRequest obj = liftIO $ getObjectPropertyInt32 obj "height-request" + +setWidgetHeightRequest :: (MonadIO m, WidgetK o) => o -> Int32 -> m () +setWidgetHeightRequest obj val = liftIO $ setObjectPropertyInt32 obj "height-request" val + +constructWidgetHeightRequest :: Int32 -> IO ([Char], GValue) +constructWidgetHeightRequest val = constructObjectPropertyInt32 "height-request" val + +data WidgetHeightRequestPropertyInfo +instance AttrInfo WidgetHeightRequestPropertyInfo where + type AttrAllowedOps WidgetHeightRequestPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetHeightRequestPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint WidgetHeightRequestPropertyInfo = WidgetK + type AttrGetType WidgetHeightRequestPropertyInfo = Int32 + type AttrLabel WidgetHeightRequestPropertyInfo = "height-request" + attrGet _ = getWidgetHeightRequest + attrSet _ = setWidgetHeightRequest + attrConstruct _ = constructWidgetHeightRequest + attrClear _ = undefined + +-- VVV Prop "hexpand" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +getWidgetHexpand :: (MonadIO m, WidgetK o) => o -> m Bool +getWidgetHexpand obj = liftIO $ getObjectPropertyBool obj "hexpand" + +setWidgetHexpand :: (MonadIO m, WidgetK o) => o -> Bool -> m () +setWidgetHexpand obj val = liftIO $ setObjectPropertyBool obj "hexpand" val + +constructWidgetHexpand :: Bool -> IO ([Char], GValue) +constructWidgetHexpand val = constructObjectPropertyBool "hexpand" val + +data WidgetHexpandPropertyInfo +instance AttrInfo WidgetHexpandPropertyInfo where + type AttrAllowedOps WidgetHexpandPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetHexpandPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WidgetHexpandPropertyInfo = WidgetK + type AttrGetType WidgetHexpandPropertyInfo = Bool + type AttrLabel WidgetHexpandPropertyInfo = "hexpand" + attrGet _ = getWidgetHexpand + attrSet _ = setWidgetHexpand + attrConstruct _ = constructWidgetHexpand + attrClear _ = undefined + +-- VVV Prop "hexpand-set" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +getWidgetHexpandSet :: (MonadIO m, WidgetK o) => o -> m Bool +getWidgetHexpandSet obj = liftIO $ getObjectPropertyBool obj "hexpand-set" + +setWidgetHexpandSet :: (MonadIO m, WidgetK o) => o -> Bool -> m () +setWidgetHexpandSet obj val = liftIO $ setObjectPropertyBool obj "hexpand-set" val + +constructWidgetHexpandSet :: Bool -> IO ([Char], GValue) +constructWidgetHexpandSet val = constructObjectPropertyBool "hexpand-set" val + +data WidgetHexpandSetPropertyInfo +instance AttrInfo WidgetHexpandSetPropertyInfo where + type AttrAllowedOps WidgetHexpandSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetHexpandSetPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WidgetHexpandSetPropertyInfo = WidgetK + type AttrGetType WidgetHexpandSetPropertyInfo = Bool + type AttrLabel WidgetHexpandSetPropertyInfo = "hexpand-set" + attrGet _ = getWidgetHexpandSet + attrSet _ = setWidgetHexpandSet + attrConstruct _ = constructWidgetHexpandSet + attrClear _ = undefined + +-- VVV Prop "is-focus" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getWidgetIsFocus :: (MonadIO m, WidgetK o) => o -> m Bool +getWidgetIsFocus obj = liftIO $ getObjectPropertyBool obj "is-focus" + +setWidgetIsFocus :: (MonadIO m, WidgetK o) => o -> Bool -> m () +setWidgetIsFocus obj val = liftIO $ setObjectPropertyBool obj "is-focus" val + +constructWidgetIsFocus :: Bool -> IO ([Char], GValue) +constructWidgetIsFocus val = constructObjectPropertyBool "is-focus" val + +data WidgetIsFocusPropertyInfo +instance AttrInfo WidgetIsFocusPropertyInfo where + type AttrAllowedOps WidgetIsFocusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetIsFocusPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WidgetIsFocusPropertyInfo = WidgetK + type AttrGetType WidgetIsFocusPropertyInfo = Bool + type AttrLabel WidgetIsFocusPropertyInfo = "is-focus" + attrGet _ = getWidgetIsFocus + attrSet _ = setWidgetIsFocus + attrConstruct _ = constructWidgetIsFocus + attrClear _ = undefined + +-- VVV Prop "margin" + -- Type: TBasicType TInt + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getWidgetMargin :: (MonadIO m, WidgetK o) => o -> m Int32 +getWidgetMargin obj = liftIO $ getObjectPropertyInt32 obj "margin" + +setWidgetMargin :: (MonadIO m, WidgetK o) => o -> Int32 -> m () +setWidgetMargin obj val = liftIO $ setObjectPropertyInt32 obj "margin" val + +constructWidgetMargin :: Int32 -> IO ([Char], GValue) +constructWidgetMargin val = constructObjectPropertyInt32 "margin" val + +data WidgetMarginPropertyInfo +instance AttrInfo WidgetMarginPropertyInfo where + type AttrAllowedOps WidgetMarginPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetMarginPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint WidgetMarginPropertyInfo = WidgetK + type AttrGetType WidgetMarginPropertyInfo = Int32 + type AttrLabel WidgetMarginPropertyInfo = "margin" + attrGet _ = getWidgetMargin + attrSet _ = setWidgetMargin + attrConstruct _ = constructWidgetMargin + attrClear _ = undefined + +-- VVV Prop "margin-bottom" + -- Type: TBasicType TInt + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +getWidgetMarginBottom :: (MonadIO m, WidgetK o) => o -> m Int32 +getWidgetMarginBottom obj = liftIO $ getObjectPropertyInt32 obj "margin-bottom" + +setWidgetMarginBottom :: (MonadIO m, WidgetK o) => o -> Int32 -> m () +setWidgetMarginBottom obj val = liftIO $ setObjectPropertyInt32 obj "margin-bottom" val + +constructWidgetMarginBottom :: Int32 -> IO ([Char], GValue) +constructWidgetMarginBottom val = constructObjectPropertyInt32 "margin-bottom" val + +data WidgetMarginBottomPropertyInfo +instance AttrInfo WidgetMarginBottomPropertyInfo where + type AttrAllowedOps WidgetMarginBottomPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetMarginBottomPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint WidgetMarginBottomPropertyInfo = WidgetK + type AttrGetType WidgetMarginBottomPropertyInfo = Int32 + type AttrLabel WidgetMarginBottomPropertyInfo = "margin-bottom" + attrGet _ = getWidgetMarginBottom + attrSet _ = setWidgetMarginBottom + attrConstruct _ = constructWidgetMarginBottom + attrClear _ = undefined + +-- VVV Prop "margin-end" + -- Type: TBasicType TInt + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +getWidgetMarginEnd :: (MonadIO m, WidgetK o) => o -> m Int32 +getWidgetMarginEnd obj = liftIO $ getObjectPropertyInt32 obj "margin-end" + +setWidgetMarginEnd :: (MonadIO m, WidgetK o) => o -> Int32 -> m () +setWidgetMarginEnd obj val = liftIO $ setObjectPropertyInt32 obj "margin-end" val + +constructWidgetMarginEnd :: Int32 -> IO ([Char], GValue) +constructWidgetMarginEnd val = constructObjectPropertyInt32 "margin-end" val + +data WidgetMarginEndPropertyInfo +instance AttrInfo WidgetMarginEndPropertyInfo where + type AttrAllowedOps WidgetMarginEndPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetMarginEndPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint WidgetMarginEndPropertyInfo = WidgetK + type AttrGetType WidgetMarginEndPropertyInfo = Int32 + type AttrLabel WidgetMarginEndPropertyInfo = "margin-end" + attrGet _ = getWidgetMarginEnd + attrSet _ = setWidgetMarginEnd + attrConstruct _ = constructWidgetMarginEnd + attrClear _ = undefined + +-- VVV Prop "margin-left" + -- Type: TBasicType TInt + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +getWidgetMarginLeft :: (MonadIO m, WidgetK o) => o -> m Int32 +getWidgetMarginLeft obj = liftIO $ getObjectPropertyInt32 obj "margin-left" + +setWidgetMarginLeft :: (MonadIO m, WidgetK o) => o -> Int32 -> m () +setWidgetMarginLeft obj val = liftIO $ setObjectPropertyInt32 obj "margin-left" val + +constructWidgetMarginLeft :: Int32 -> IO ([Char], GValue) +constructWidgetMarginLeft val = constructObjectPropertyInt32 "margin-left" val + +data WidgetMarginLeftPropertyInfo +instance AttrInfo WidgetMarginLeftPropertyInfo where + type AttrAllowedOps WidgetMarginLeftPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetMarginLeftPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint WidgetMarginLeftPropertyInfo = WidgetK + type AttrGetType WidgetMarginLeftPropertyInfo = Int32 + type AttrLabel WidgetMarginLeftPropertyInfo = "margin-left" + attrGet _ = getWidgetMarginLeft + attrSet _ = setWidgetMarginLeft + attrConstruct _ = constructWidgetMarginLeft + attrClear _ = undefined + +-- VVV Prop "margin-right" + -- Type: TBasicType TInt + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +getWidgetMarginRight :: (MonadIO m, WidgetK o) => o -> m Int32 +getWidgetMarginRight obj = liftIO $ getObjectPropertyInt32 obj "margin-right" + +setWidgetMarginRight :: (MonadIO m, WidgetK o) => o -> Int32 -> m () +setWidgetMarginRight obj val = liftIO $ setObjectPropertyInt32 obj "margin-right" val + +constructWidgetMarginRight :: Int32 -> IO ([Char], GValue) +constructWidgetMarginRight val = constructObjectPropertyInt32 "margin-right" val + +data WidgetMarginRightPropertyInfo +instance AttrInfo WidgetMarginRightPropertyInfo where + type AttrAllowedOps WidgetMarginRightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetMarginRightPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint WidgetMarginRightPropertyInfo = WidgetK + type AttrGetType WidgetMarginRightPropertyInfo = Int32 + type AttrLabel WidgetMarginRightPropertyInfo = "margin-right" + attrGet _ = getWidgetMarginRight + attrSet _ = setWidgetMarginRight + attrConstruct _ = constructWidgetMarginRight + attrClear _ = undefined + +-- VVV Prop "margin-start" + -- Type: TBasicType TInt + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +getWidgetMarginStart :: (MonadIO m, WidgetK o) => o -> m Int32 +getWidgetMarginStart obj = liftIO $ getObjectPropertyInt32 obj "margin-start" + +setWidgetMarginStart :: (MonadIO m, WidgetK o) => o -> Int32 -> m () +setWidgetMarginStart obj val = liftIO $ setObjectPropertyInt32 obj "margin-start" val + +constructWidgetMarginStart :: Int32 -> IO ([Char], GValue) +constructWidgetMarginStart val = constructObjectPropertyInt32 "margin-start" val + +data WidgetMarginStartPropertyInfo +instance AttrInfo WidgetMarginStartPropertyInfo where + type AttrAllowedOps WidgetMarginStartPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetMarginStartPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint WidgetMarginStartPropertyInfo = WidgetK + type AttrGetType WidgetMarginStartPropertyInfo = Int32 + type AttrLabel WidgetMarginStartPropertyInfo = "margin-start" + attrGet _ = getWidgetMarginStart + attrSet _ = setWidgetMarginStart + attrConstruct _ = constructWidgetMarginStart + attrClear _ = undefined + +-- VVV Prop "margin-top" + -- Type: TBasicType TInt + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +getWidgetMarginTop :: (MonadIO m, WidgetK o) => o -> m Int32 +getWidgetMarginTop obj = liftIO $ getObjectPropertyInt32 obj "margin-top" + +setWidgetMarginTop :: (MonadIO m, WidgetK o) => o -> Int32 -> m () +setWidgetMarginTop obj val = liftIO $ setObjectPropertyInt32 obj "margin-top" val + +constructWidgetMarginTop :: Int32 -> IO ([Char], GValue) +constructWidgetMarginTop val = constructObjectPropertyInt32 "margin-top" val + +data WidgetMarginTopPropertyInfo +instance AttrInfo WidgetMarginTopPropertyInfo where + type AttrAllowedOps WidgetMarginTopPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetMarginTopPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint WidgetMarginTopPropertyInfo = WidgetK + type AttrGetType WidgetMarginTopPropertyInfo = Int32 + type AttrLabel WidgetMarginTopPropertyInfo = "margin-top" + attrGet _ = getWidgetMarginTop + attrSet _ = setWidgetMarginTop + attrConstruct _ = constructWidgetMarginTop + attrClear _ = undefined + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +getWidgetName :: (MonadIO m, WidgetK o) => o -> m T.Text +getWidgetName obj = liftIO $ checkUnexpectedNothing "getWidgetName" $ getObjectPropertyString obj "name" + +setWidgetName :: (MonadIO m, WidgetK o) => o -> T.Text -> m () +setWidgetName obj val = liftIO $ setObjectPropertyString obj "name" (Just val) + +constructWidgetName :: T.Text -> IO ([Char], GValue) +constructWidgetName val = constructObjectPropertyString "name" (Just val) + +data WidgetNamePropertyInfo +instance AttrInfo WidgetNamePropertyInfo where + type AttrAllowedOps WidgetNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint WidgetNamePropertyInfo = WidgetK + type AttrGetType WidgetNamePropertyInfo = T.Text + type AttrLabel WidgetNamePropertyInfo = "name" + attrGet _ = getWidgetName + attrSet _ = setWidgetName + attrConstruct _ = constructWidgetName + attrClear _ = undefined + +-- VVV Prop "no-show-all" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +getWidgetNoShowAll :: (MonadIO m, WidgetK o) => o -> m Bool +getWidgetNoShowAll obj = liftIO $ getObjectPropertyBool obj "no-show-all" + +setWidgetNoShowAll :: (MonadIO m, WidgetK o) => o -> Bool -> m () +setWidgetNoShowAll obj val = liftIO $ setObjectPropertyBool obj "no-show-all" val + +constructWidgetNoShowAll :: Bool -> IO ([Char], GValue) +constructWidgetNoShowAll val = constructObjectPropertyBool "no-show-all" val + +data WidgetNoShowAllPropertyInfo +instance AttrInfo WidgetNoShowAllPropertyInfo where + type AttrAllowedOps WidgetNoShowAllPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetNoShowAllPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WidgetNoShowAllPropertyInfo = WidgetK + type AttrGetType WidgetNoShowAllPropertyInfo = Bool + type AttrLabel WidgetNoShowAllPropertyInfo = "no-show-all" + attrGet _ = getWidgetNoShowAll + attrSet _ = setWidgetNoShowAll + attrConstruct _ = constructWidgetNoShowAll + attrClear _ = undefined + +-- VVV Prop "opacity" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +getWidgetOpacity :: (MonadIO m, WidgetK o) => o -> m Double +getWidgetOpacity obj = liftIO $ getObjectPropertyDouble obj "opacity" + +setWidgetOpacity :: (MonadIO m, WidgetK o) => o -> Double -> m () +setWidgetOpacity obj val = liftIO $ setObjectPropertyDouble obj "opacity" val + +constructWidgetOpacity :: Double -> IO ([Char], GValue) +constructWidgetOpacity val = constructObjectPropertyDouble "opacity" val + +data WidgetOpacityPropertyInfo +instance AttrInfo WidgetOpacityPropertyInfo where + type AttrAllowedOps WidgetOpacityPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetOpacityPropertyInfo = (~) Double + type AttrBaseTypeConstraint WidgetOpacityPropertyInfo = WidgetK + type AttrGetType WidgetOpacityPropertyInfo = Double + type AttrLabel WidgetOpacityPropertyInfo = "opacity" + attrGet _ = getWidgetOpacity + attrSet _ = setWidgetOpacity + attrConstruct _ = constructWidgetOpacity + attrClear _ = undefined + +-- VVV Prop "parent" + -- Type: TInterface "Gtk" "Container" + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getWidgetParent :: (MonadIO m, WidgetK o) => o -> m (Maybe Container) +getWidgetParent obj = liftIO $ getObjectPropertyObject obj "parent" Container + +setWidgetParent :: (MonadIO m, WidgetK o, ContainerK a) => o -> a -> m () +setWidgetParent obj val = liftIO $ setObjectPropertyObject obj "parent" (Just val) + +constructWidgetParent :: (ContainerK a) => a -> IO ([Char], GValue) +constructWidgetParent val = constructObjectPropertyObject "parent" (Just val) + +clearWidgetParent :: (MonadIO m, WidgetK o) => o -> m () +clearWidgetParent obj = liftIO $ setObjectPropertyObject obj "parent" (Nothing :: Maybe Container) + +data WidgetParentPropertyInfo +instance AttrInfo WidgetParentPropertyInfo where + type AttrAllowedOps WidgetParentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint WidgetParentPropertyInfo = ContainerK + type AttrBaseTypeConstraint WidgetParentPropertyInfo = WidgetK + type AttrGetType WidgetParentPropertyInfo = (Maybe Container) + type AttrLabel WidgetParentPropertyInfo = "parent" + attrGet _ = getWidgetParent + attrSet _ = setWidgetParent + attrConstruct _ = constructWidgetParent + attrClear _ = clearWidgetParent + +-- VVV Prop "receives-default" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +getWidgetReceivesDefault :: (MonadIO m, WidgetK o) => o -> m Bool +getWidgetReceivesDefault obj = liftIO $ getObjectPropertyBool obj "receives-default" + +setWidgetReceivesDefault :: (MonadIO m, WidgetK o) => o -> Bool -> m () +setWidgetReceivesDefault obj val = liftIO $ setObjectPropertyBool obj "receives-default" val + +constructWidgetReceivesDefault :: Bool -> IO ([Char], GValue) +constructWidgetReceivesDefault val = constructObjectPropertyBool "receives-default" val + +data WidgetReceivesDefaultPropertyInfo +instance AttrInfo WidgetReceivesDefaultPropertyInfo where + type AttrAllowedOps WidgetReceivesDefaultPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetReceivesDefaultPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WidgetReceivesDefaultPropertyInfo = WidgetK + type AttrGetType WidgetReceivesDefaultPropertyInfo = Bool + type AttrLabel WidgetReceivesDefaultPropertyInfo = "receives-default" + attrGet _ = getWidgetReceivesDefault + attrSet _ = setWidgetReceivesDefault + attrConstruct _ = constructWidgetReceivesDefault + attrClear _ = undefined + +-- VVV Prop "scale-factor" + -- Type: TBasicType TInt + -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) + +getWidgetScaleFactor :: (MonadIO m, WidgetK o) => o -> m Int32 +getWidgetScaleFactor obj = liftIO $ getObjectPropertyInt32 obj "scale-factor" + +data WidgetScaleFactorPropertyInfo +instance AttrInfo WidgetScaleFactorPropertyInfo where + type AttrAllowedOps WidgetScaleFactorPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WidgetScaleFactorPropertyInfo = (~) () + type AttrBaseTypeConstraint WidgetScaleFactorPropertyInfo = WidgetK + type AttrGetType WidgetScaleFactorPropertyInfo = Int32 + type AttrLabel WidgetScaleFactorPropertyInfo = "scale-factor" + attrGet _ = getWidgetScaleFactor + attrSet _ = undefined + attrConstruct _ = undefined + attrClear _ = undefined + +-- VVV Prop "sensitive" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +getWidgetSensitive :: (MonadIO m, WidgetK o) => o -> m Bool +getWidgetSensitive obj = liftIO $ getObjectPropertyBool obj "sensitive" + +setWidgetSensitive :: (MonadIO m, WidgetK o) => o -> Bool -> m () +setWidgetSensitive obj val = liftIO $ setObjectPropertyBool obj "sensitive" val + +constructWidgetSensitive :: Bool -> IO ([Char], GValue) +constructWidgetSensitive val = constructObjectPropertyBool "sensitive" val + +data WidgetSensitivePropertyInfo +instance AttrInfo WidgetSensitivePropertyInfo where + type AttrAllowedOps WidgetSensitivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetSensitivePropertyInfo = (~) Bool + type AttrBaseTypeConstraint WidgetSensitivePropertyInfo = WidgetK + type AttrGetType WidgetSensitivePropertyInfo = Bool + type AttrLabel WidgetSensitivePropertyInfo = "sensitive" + attrGet _ = getWidgetSensitive + attrSet _ = setWidgetSensitive + attrConstruct _ = constructWidgetSensitive + attrClear _ = undefined + +-- VVV Prop "style" + -- Type: TInterface "Gtk" "Style" + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) + +getWidgetStyle :: (MonadIO m, WidgetK o) => o -> m Style +getWidgetStyle obj = liftIO $ checkUnexpectedNothing "getWidgetStyle" $ getObjectPropertyObject obj "style" Style + +setWidgetStyle :: (MonadIO m, WidgetK o, StyleK a) => o -> a -> m () +setWidgetStyle obj val = liftIO $ setObjectPropertyObject obj "style" (Just val) + +constructWidgetStyle :: (StyleK a) => a -> IO ([Char], GValue) +constructWidgetStyle val = constructObjectPropertyObject "style" (Just val) + +clearWidgetStyle :: (MonadIO m, WidgetK o) => o -> m () +clearWidgetStyle obj = liftIO $ setObjectPropertyObject obj "style" (Nothing :: Maybe Style) + +data WidgetStylePropertyInfo +instance AttrInfo WidgetStylePropertyInfo where + type AttrAllowedOps WidgetStylePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint WidgetStylePropertyInfo = StyleK + type AttrBaseTypeConstraint WidgetStylePropertyInfo = WidgetK + type AttrGetType WidgetStylePropertyInfo = Style + type AttrLabel WidgetStylePropertyInfo = "style" + attrGet _ = getWidgetStyle + attrSet _ = setWidgetStyle + attrConstruct _ = constructWidgetStyle + attrClear _ = clearWidgetStyle + +-- VVV Prop "tooltip-markup" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just True) + +getWidgetTooltipMarkup :: (MonadIO m, WidgetK o) => o -> m (Maybe T.Text) +getWidgetTooltipMarkup obj = liftIO $ getObjectPropertyString obj "tooltip-markup" + +setWidgetTooltipMarkup :: (MonadIO m, WidgetK o) => o -> T.Text -> m () +setWidgetTooltipMarkup obj val = liftIO $ setObjectPropertyString obj "tooltip-markup" (Just val) + +constructWidgetTooltipMarkup :: T.Text -> IO ([Char], GValue) +constructWidgetTooltipMarkup val = constructObjectPropertyString "tooltip-markup" (Just val) + +clearWidgetTooltipMarkup :: (MonadIO m, WidgetK o) => o -> m () +clearWidgetTooltipMarkup obj = liftIO $ setObjectPropertyString obj "tooltip-markup" (Nothing :: Maybe T.Text) + +data WidgetTooltipMarkupPropertyInfo +instance AttrInfo WidgetTooltipMarkupPropertyInfo where + type AttrAllowedOps WidgetTooltipMarkupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint WidgetTooltipMarkupPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint WidgetTooltipMarkupPropertyInfo = WidgetK + type AttrGetType WidgetTooltipMarkupPropertyInfo = (Maybe T.Text) + type AttrLabel WidgetTooltipMarkupPropertyInfo = "tooltip-markup" + attrGet _ = getWidgetTooltipMarkup + attrSet _ = setWidgetTooltipMarkup + attrConstruct _ = constructWidgetTooltipMarkup + attrClear _ = clearWidgetTooltipMarkup + +-- VVV Prop "tooltip-text" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Just True) + +getWidgetTooltipText :: (MonadIO m, WidgetK o) => o -> m (Maybe T.Text) +getWidgetTooltipText obj = liftIO $ getObjectPropertyString obj "tooltip-text" + +setWidgetTooltipText :: (MonadIO m, WidgetK o) => o -> T.Text -> m () +setWidgetTooltipText obj val = liftIO $ setObjectPropertyString obj "tooltip-text" (Just val) + +constructWidgetTooltipText :: T.Text -> IO ([Char], GValue) +constructWidgetTooltipText val = constructObjectPropertyString "tooltip-text" (Just val) + +clearWidgetTooltipText :: (MonadIO m, WidgetK o) => o -> m () +clearWidgetTooltipText obj = liftIO $ setObjectPropertyString obj "tooltip-text" (Nothing :: Maybe T.Text) + +data WidgetTooltipTextPropertyInfo +instance AttrInfo WidgetTooltipTextPropertyInfo where + type AttrAllowedOps WidgetTooltipTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint WidgetTooltipTextPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint WidgetTooltipTextPropertyInfo = WidgetK + type AttrGetType WidgetTooltipTextPropertyInfo = (Maybe T.Text) + type AttrLabel WidgetTooltipTextPropertyInfo = "tooltip-text" + attrGet _ = getWidgetTooltipText + attrSet _ = setWidgetTooltipText + attrConstruct _ = constructWidgetTooltipText + attrClear _ = clearWidgetTooltipText + +-- VVV Prop "valign" + -- Type: TInterface "Gtk" "Align" + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +getWidgetValign :: (MonadIO m, WidgetK o) => o -> m Align +getWidgetValign obj = liftIO $ getObjectPropertyEnum obj "valign" + +setWidgetValign :: (MonadIO m, WidgetK o) => o -> Align -> m () +setWidgetValign obj val = liftIO $ setObjectPropertyEnum obj "valign" val + +constructWidgetValign :: Align -> IO ([Char], GValue) +constructWidgetValign val = constructObjectPropertyEnum "valign" val + +data WidgetValignPropertyInfo +instance AttrInfo WidgetValignPropertyInfo where + type AttrAllowedOps WidgetValignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetValignPropertyInfo = (~) Align + type AttrBaseTypeConstraint WidgetValignPropertyInfo = WidgetK + type AttrGetType WidgetValignPropertyInfo = Align + type AttrLabel WidgetValignPropertyInfo = "valign" + attrGet _ = getWidgetValign + attrSet _ = setWidgetValign + attrConstruct _ = constructWidgetValign + attrClear _ = undefined + +-- VVV Prop "vexpand" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +getWidgetVexpand :: (MonadIO m, WidgetK o) => o -> m Bool +getWidgetVexpand obj = liftIO $ getObjectPropertyBool obj "vexpand" + +setWidgetVexpand :: (MonadIO m, WidgetK o) => o -> Bool -> m () +setWidgetVexpand obj val = liftIO $ setObjectPropertyBool obj "vexpand" val + +constructWidgetVexpand :: Bool -> IO ([Char], GValue) +constructWidgetVexpand val = constructObjectPropertyBool "vexpand" val + +data WidgetVexpandPropertyInfo +instance AttrInfo WidgetVexpandPropertyInfo where + type AttrAllowedOps WidgetVexpandPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetVexpandPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WidgetVexpandPropertyInfo = WidgetK + type AttrGetType WidgetVexpandPropertyInfo = Bool + type AttrLabel WidgetVexpandPropertyInfo = "vexpand" + attrGet _ = getWidgetVexpand + attrSet _ = setWidgetVexpand + attrConstruct _ = constructWidgetVexpand + attrClear _ = undefined + +-- VVV Prop "vexpand-set" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +getWidgetVexpandSet :: (MonadIO m, WidgetK o) => o -> m Bool +getWidgetVexpandSet obj = liftIO $ getObjectPropertyBool obj "vexpand-set" + +setWidgetVexpandSet :: (MonadIO m, WidgetK o) => o -> Bool -> m () +setWidgetVexpandSet obj val = liftIO $ setObjectPropertyBool obj "vexpand-set" val + +constructWidgetVexpandSet :: Bool -> IO ([Char], GValue) +constructWidgetVexpandSet val = constructObjectPropertyBool "vexpand-set" val + +data WidgetVexpandSetPropertyInfo +instance AttrInfo WidgetVexpandSetPropertyInfo where + type AttrAllowedOps WidgetVexpandSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetVexpandSetPropertyInfo = (~) Bool + type AttrBaseTypeConstraint WidgetVexpandSetPropertyInfo = WidgetK + type AttrGetType WidgetVexpandSetPropertyInfo = Bool + type AttrLabel WidgetVexpandSetPropertyInfo = "vexpand-set" + attrGet _ = getWidgetVexpandSet + attrSet _ = setWidgetVexpandSet + attrConstruct _ = constructWidgetVexpandSet + attrClear _ = undefined + +-- VVV Prop "visible" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) + +getWidgetVisible :: (MonadIO m, WidgetK o) => o -> m Bool +getWidgetVisible obj = liftIO $ getObjectPropertyBool obj "visible" + +setWidgetVisible :: (MonadIO m, WidgetK o) => o -> Bool -> m () +setWidgetVisible obj val = liftIO $ setObjectPropertyBool obj "visible" val + +constructWidgetVisible :: Bool -> IO ([Char], GValue) +constructWidgetVisible val = constructObjectPropertyBool "visible" val + +data WidgetVisiblePropertyInfo +instance AttrInfo WidgetVisiblePropertyInfo where + type AttrAllowedOps WidgetVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetVisiblePropertyInfo = (~) Bool + type AttrBaseTypeConstraint WidgetVisiblePropertyInfo = WidgetK + type AttrGetType WidgetVisiblePropertyInfo = Bool + type AttrLabel WidgetVisiblePropertyInfo = "visible" + attrGet _ = getWidgetVisible + attrSet _ = setWidgetVisible + attrConstruct _ = constructWidgetVisible + attrClear _ = undefined + +-- VVV Prop "width-request" + -- Type: TBasicType TInt + -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) + +getWidgetWidthRequest :: (MonadIO m, WidgetK o) => o -> m Int32 +getWidgetWidthRequest obj = liftIO $ getObjectPropertyInt32 obj "width-request" + +setWidgetWidthRequest :: (MonadIO m, WidgetK o) => o -> Int32 -> m () +setWidgetWidthRequest obj val = liftIO $ setObjectPropertyInt32 obj "width-request" val + +constructWidgetWidthRequest :: Int32 -> IO ([Char], GValue) +constructWidgetWidthRequest val = constructObjectPropertyInt32 "width-request" val + +data WidgetWidthRequestPropertyInfo +instance AttrInfo WidgetWidthRequestPropertyInfo where + type AttrAllowedOps WidgetWidthRequestPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetWidthRequestPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint WidgetWidthRequestPropertyInfo = WidgetK + type AttrGetType WidgetWidthRequestPropertyInfo = Int32 + type AttrLabel WidgetWidthRequestPropertyInfo = "width-request" + attrGet _ = getWidgetWidthRequest + attrSet _ = setWidgetWidthRequest + attrConstruct _ = constructWidgetWidthRequest + attrClear _ = undefined + +-- VVV Prop "window" + -- Type: TInterface "Gdk" "Window" + -- Flags: [PropertyReadable] + -- Nullable: (Just False,Nothing) + +getWidgetWindow :: (MonadIO m, WidgetK o) => o -> m Gdk.Window +getWidgetWindow obj = liftIO $ checkUnexpectedNothing "getWidgetWindow" $ getObjectPropertyObject obj "window" Gdk.Window + +data WidgetWindowPropertyInfo +instance AttrInfo WidgetWindowPropertyInfo where + type AttrAllowedOps WidgetWindowPropertyInfo = '[ 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint WidgetWindowPropertyInfo = (~) () + type AttrBaseTypeConstraint WidgetWindowPropertyInfo = WidgetK + type AttrGetType WidgetWindowPropertyInfo = Gdk.Window + type AttrLabel WidgetWindowPropertyInfo = "window" + attrGet _ = getWidgetWindow + attrSet _ = undefined + attrConstruct _ = undefined + attrClear _ = undefined + +type instance AttributeList Widget = WidgetAttributeList +type WidgetAttributeList = ('[ '("appPaintable", WidgetAppPaintablePropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) + +widgetAppPaintable :: AttrLabelProxy "appPaintable" +widgetAppPaintable = AttrLabelProxy + +widgetCanDefault :: AttrLabelProxy "canDefault" +widgetCanDefault = AttrLabelProxy + +widgetCanFocus :: AttrLabelProxy "canFocus" +widgetCanFocus = AttrLabelProxy + +widgetCompositeChild :: AttrLabelProxy "compositeChild" +widgetCompositeChild = AttrLabelProxy + +widgetDoubleBuffered :: AttrLabelProxy "doubleBuffered" +widgetDoubleBuffered = AttrLabelProxy + +widgetEvents :: AttrLabelProxy "events" +widgetEvents = AttrLabelProxy + +widgetExpand :: AttrLabelProxy "expand" +widgetExpand = AttrLabelProxy + +widgetHalign :: AttrLabelProxy "halign" +widgetHalign = AttrLabelProxy + +widgetHasTooltip :: AttrLabelProxy "hasTooltip" +widgetHasTooltip = AttrLabelProxy + +widgetHeightRequest :: AttrLabelProxy "heightRequest" +widgetHeightRequest = AttrLabelProxy + +widgetHexpand :: AttrLabelProxy "hexpand" +widgetHexpand = AttrLabelProxy + +widgetHexpandSet :: AttrLabelProxy "hexpandSet" +widgetHexpandSet = AttrLabelProxy + +widgetMargin :: AttrLabelProxy "margin" +widgetMargin = AttrLabelProxy + +widgetMarginBottom :: AttrLabelProxy "marginBottom" +widgetMarginBottom = AttrLabelProxy + +widgetMarginEnd :: AttrLabelProxy "marginEnd" +widgetMarginEnd = AttrLabelProxy + +widgetMarginLeft :: AttrLabelProxy "marginLeft" +widgetMarginLeft = AttrLabelProxy + +widgetMarginRight :: AttrLabelProxy "marginRight" +widgetMarginRight = AttrLabelProxy + +widgetMarginStart :: AttrLabelProxy "marginStart" +widgetMarginStart = AttrLabelProxy + +widgetMarginTop :: AttrLabelProxy "marginTop" +widgetMarginTop = AttrLabelProxy + +widgetName :: AttrLabelProxy "name" +widgetName = AttrLabelProxy + +widgetNoShowAll :: AttrLabelProxy "noShowAll" +widgetNoShowAll = AttrLabelProxy + +widgetOpacity :: AttrLabelProxy "opacity" +widgetOpacity = AttrLabelProxy + +widgetParent :: AttrLabelProxy "parent" +widgetParent = AttrLabelProxy + +widgetReceivesDefault :: AttrLabelProxy "receivesDefault" +widgetReceivesDefault = AttrLabelProxy + +widgetScaleFactor :: AttrLabelProxy "scaleFactor" +widgetScaleFactor = AttrLabelProxy + +widgetSensitive :: AttrLabelProxy "sensitive" +widgetSensitive = AttrLabelProxy + +widgetStyle :: AttrLabelProxy "style" +widgetStyle = AttrLabelProxy + +widgetTooltipMarkup :: AttrLabelProxy "tooltipMarkup" +widgetTooltipMarkup = AttrLabelProxy + +widgetTooltipText :: AttrLabelProxy "tooltipText" +widgetTooltipText = AttrLabelProxy + +widgetValign :: AttrLabelProxy "valign" +widgetValign = AttrLabelProxy + +widgetVexpand :: AttrLabelProxy "vexpand" +widgetVexpand = AttrLabelProxy + +widgetVexpandSet :: AttrLabelProxy "vexpandSet" +widgetVexpandSet = AttrLabelProxy + +widgetVisible :: AttrLabelProxy "visible" +widgetVisible = AttrLabelProxy + +widgetWidthRequest :: AttrLabelProxy "widthRequest" +widgetWidthRequest = AttrLabelProxy + +widgetWindow :: AttrLabelProxy "window" +widgetWindow = AttrLabelProxy + +data WidgetAccelClosuresChangedSignalInfo +instance SignalInfo WidgetAccelClosuresChangedSignalInfo where + type HaskellCallbackType WidgetAccelClosuresChangedSignalInfo = WidgetAccelClosuresChangedCallback + connectSignal _ = connectWidgetAccelClosuresChanged + +data WidgetButtonPressEventSignalInfo +instance SignalInfo WidgetButtonPressEventSignalInfo where + type HaskellCallbackType WidgetButtonPressEventSignalInfo = WidgetButtonPressEventCallback + connectSignal _ = connectWidgetButtonPressEvent + +data WidgetButtonReleaseEventSignalInfo +instance SignalInfo WidgetButtonReleaseEventSignalInfo where + type HaskellCallbackType WidgetButtonReleaseEventSignalInfo = WidgetButtonReleaseEventCallback + connectSignal _ = connectWidgetButtonReleaseEvent + +data WidgetCanActivateAccelSignalInfo +instance SignalInfo WidgetCanActivateAccelSignalInfo where + type HaskellCallbackType WidgetCanActivateAccelSignalInfo = WidgetCanActivateAccelCallback + connectSignal _ = connectWidgetCanActivateAccel + +data WidgetChildNotifySignalInfo +instance SignalInfo WidgetChildNotifySignalInfo where + type HaskellCallbackType WidgetChildNotifySignalInfo = WidgetChildNotifyCallback + connectSignal _ = connectWidgetChildNotify + +data WidgetCompositedChangedSignalInfo +instance SignalInfo WidgetCompositedChangedSignalInfo where + type HaskellCallbackType WidgetCompositedChangedSignalInfo = WidgetCompositedChangedCallback + connectSignal _ = connectWidgetCompositedChanged + +data WidgetConfigureEventSignalInfo +instance SignalInfo WidgetConfigureEventSignalInfo where + type HaskellCallbackType WidgetConfigureEventSignalInfo = WidgetConfigureEventCallback + connectSignal _ = connectWidgetConfigureEvent + +data WidgetDamageEventSignalInfo +instance SignalInfo WidgetDamageEventSignalInfo where + type HaskellCallbackType WidgetDamageEventSignalInfo = WidgetDamageEventCallback + connectSignal _ = connectWidgetDamageEvent + +data WidgetDeleteEventSignalInfo +instance SignalInfo WidgetDeleteEventSignalInfo where + type HaskellCallbackType WidgetDeleteEventSignalInfo = WidgetDeleteEventCallback + connectSignal _ = connectWidgetDeleteEvent + +data WidgetDestroySignalInfo +instance SignalInfo WidgetDestroySignalInfo where + type HaskellCallbackType WidgetDestroySignalInfo = WidgetDestroyCallback + connectSignal _ = connectWidgetDestroy + +data WidgetDestroyEventSignalInfo +instance SignalInfo WidgetDestroyEventSignalInfo where + type HaskellCallbackType WidgetDestroyEventSignalInfo = WidgetDestroyEventCallback + connectSignal _ = connectWidgetDestroyEvent + +data WidgetDirectionChangedSignalInfo +instance SignalInfo WidgetDirectionChangedSignalInfo where + type HaskellCallbackType WidgetDirectionChangedSignalInfo = WidgetDirectionChangedCallback + connectSignal _ = connectWidgetDirectionChanged + +data WidgetDragBeginSignalInfo +instance SignalInfo WidgetDragBeginSignalInfo where + type HaskellCallbackType WidgetDragBeginSignalInfo = WidgetDragBeginCallback + connectSignal _ = connectWidgetDragBegin + +data WidgetDragDataDeleteSignalInfo +instance SignalInfo WidgetDragDataDeleteSignalInfo where + type HaskellCallbackType WidgetDragDataDeleteSignalInfo = WidgetDragDataDeleteCallback + connectSignal _ = connectWidgetDragDataDelete + +data WidgetDragDataGetSignalInfo +instance SignalInfo WidgetDragDataGetSignalInfo where + type HaskellCallbackType WidgetDragDataGetSignalInfo = WidgetDragDataGetCallback + connectSignal _ = connectWidgetDragDataGet + +data WidgetDragDataReceivedSignalInfo +instance SignalInfo WidgetDragDataReceivedSignalInfo where + type HaskellCallbackType WidgetDragDataReceivedSignalInfo = WidgetDragDataReceivedCallback + connectSignal _ = connectWidgetDragDataReceived + +data WidgetDragDropSignalInfo +instance SignalInfo WidgetDragDropSignalInfo where + type HaskellCallbackType WidgetDragDropSignalInfo = WidgetDragDropCallback + connectSignal _ = connectWidgetDragDrop + +data WidgetDragEndSignalInfo +instance SignalInfo WidgetDragEndSignalInfo where + type HaskellCallbackType WidgetDragEndSignalInfo = WidgetDragEndCallback + connectSignal _ = connectWidgetDragEnd + +data WidgetDragFailedSignalInfo +instance SignalInfo WidgetDragFailedSignalInfo where + type HaskellCallbackType WidgetDragFailedSignalInfo = WidgetDragFailedCallback + connectSignal _ = connectWidgetDragFailed + +data WidgetDragLeaveSignalInfo +instance SignalInfo WidgetDragLeaveSignalInfo where + type HaskellCallbackType WidgetDragLeaveSignalInfo = WidgetDragLeaveCallback + connectSignal _ = connectWidgetDragLeave + +data WidgetDragMotionSignalInfo +instance SignalInfo WidgetDragMotionSignalInfo where + type HaskellCallbackType WidgetDragMotionSignalInfo = WidgetDragMotionCallback + connectSignal _ = connectWidgetDragMotion + +data WidgetDrawSignalInfo +instance SignalInfo WidgetDrawSignalInfo where + type HaskellCallbackType WidgetDrawSignalInfo = WidgetDrawCallback + connectSignal _ = connectWidgetDraw + +data WidgetEnterNotifyEventSignalInfo +instance SignalInfo WidgetEnterNotifyEventSignalInfo where + type HaskellCallbackType WidgetEnterNotifyEventSignalInfo = WidgetEnterNotifyEventCallback + connectSignal _ = connectWidgetEnterNotifyEvent + +data WidgetEventSignalInfo +instance SignalInfo WidgetEventSignalInfo where + type HaskellCallbackType WidgetEventSignalInfo = WidgetEventCallback + connectSignal _ = connectWidgetEvent + +data WidgetEventAfterSignalInfo +instance SignalInfo WidgetEventAfterSignalInfo where + type HaskellCallbackType WidgetEventAfterSignalInfo = WidgetEventAfterCallback + connectSignal _ = connectWidgetEventAfter + +data WidgetFocusSignalInfo +instance SignalInfo WidgetFocusSignalInfo where + type HaskellCallbackType WidgetFocusSignalInfo = WidgetFocusCallback + connectSignal _ = connectWidgetFocus + +data WidgetFocusInEventSignalInfo +instance SignalInfo WidgetFocusInEventSignalInfo where + type HaskellCallbackType WidgetFocusInEventSignalInfo = WidgetFocusInEventCallback + connectSignal _ = connectWidgetFocusInEvent + +data WidgetFocusOutEventSignalInfo +instance SignalInfo WidgetFocusOutEventSignalInfo where + type HaskellCallbackType WidgetFocusOutEventSignalInfo = WidgetFocusOutEventCallback + connectSignal _ = connectWidgetFocusOutEvent + +data WidgetGrabBrokenEventSignalInfo +instance SignalInfo WidgetGrabBrokenEventSignalInfo where + type HaskellCallbackType WidgetGrabBrokenEventSignalInfo = WidgetGrabBrokenEventCallback + connectSignal _ = connectWidgetGrabBrokenEvent + +data WidgetGrabFocusSignalInfo +instance SignalInfo WidgetGrabFocusSignalInfo where + type HaskellCallbackType WidgetGrabFocusSignalInfo = WidgetGrabFocusCallback + connectSignal _ = connectWidgetGrabFocus + +data WidgetGrabNotifySignalInfo +instance SignalInfo WidgetGrabNotifySignalInfo where + type HaskellCallbackType WidgetGrabNotifySignalInfo = WidgetGrabNotifyCallback + connectSignal _ = connectWidgetGrabNotify + +data WidgetHideSignalInfo +instance SignalInfo WidgetHideSignalInfo where + type HaskellCallbackType WidgetHideSignalInfo = WidgetHideCallback + connectSignal _ = connectWidgetHide + +data WidgetHierarchyChangedSignalInfo +instance SignalInfo WidgetHierarchyChangedSignalInfo where + type HaskellCallbackType WidgetHierarchyChangedSignalInfo = WidgetHierarchyChangedCallback + connectSignal _ = connectWidgetHierarchyChanged + +data WidgetKeyPressEventSignalInfo +instance SignalInfo WidgetKeyPressEventSignalInfo where + type HaskellCallbackType WidgetKeyPressEventSignalInfo = WidgetKeyPressEventCallback + connectSignal _ = connectWidgetKeyPressEvent + +data WidgetKeyReleaseEventSignalInfo +instance SignalInfo WidgetKeyReleaseEventSignalInfo where + type HaskellCallbackType WidgetKeyReleaseEventSignalInfo = WidgetKeyReleaseEventCallback + connectSignal _ = connectWidgetKeyReleaseEvent + +data WidgetKeynavFailedSignalInfo +instance SignalInfo WidgetKeynavFailedSignalInfo where + type HaskellCallbackType WidgetKeynavFailedSignalInfo = WidgetKeynavFailedCallback + connectSignal _ = connectWidgetKeynavFailed + +data WidgetLeaveNotifyEventSignalInfo +instance SignalInfo WidgetLeaveNotifyEventSignalInfo where + type HaskellCallbackType WidgetLeaveNotifyEventSignalInfo = WidgetLeaveNotifyEventCallback + connectSignal _ = connectWidgetLeaveNotifyEvent + +data WidgetMapSignalInfo +instance SignalInfo WidgetMapSignalInfo where + type HaskellCallbackType WidgetMapSignalInfo = WidgetMapCallback + connectSignal _ = connectWidgetMap + +data WidgetMapEventSignalInfo +instance SignalInfo WidgetMapEventSignalInfo where + type HaskellCallbackType WidgetMapEventSignalInfo = WidgetMapEventCallback + connectSignal _ = connectWidgetMapEvent + +data WidgetMnemonicActivateSignalInfo +instance SignalInfo WidgetMnemonicActivateSignalInfo where + type HaskellCallbackType WidgetMnemonicActivateSignalInfo = WidgetMnemonicActivateCallback + connectSignal _ = connectWidgetMnemonicActivate + +data WidgetMotionNotifyEventSignalInfo +instance SignalInfo WidgetMotionNotifyEventSignalInfo where + type HaskellCallbackType WidgetMotionNotifyEventSignalInfo = WidgetMotionNotifyEventCallback + connectSignal _ = connectWidgetMotionNotifyEvent + +data WidgetMoveFocusSignalInfo +instance SignalInfo WidgetMoveFocusSignalInfo where + type HaskellCallbackType WidgetMoveFocusSignalInfo = WidgetMoveFocusCallback + connectSignal _ = connectWidgetMoveFocus + +data WidgetParentSetSignalInfo +instance SignalInfo WidgetParentSetSignalInfo where + type HaskellCallbackType WidgetParentSetSignalInfo = WidgetParentSetCallback + connectSignal _ = connectWidgetParentSet + +data WidgetPopupMenuSignalInfo +instance SignalInfo WidgetPopupMenuSignalInfo where + type HaskellCallbackType WidgetPopupMenuSignalInfo = WidgetPopupMenuCallback + connectSignal _ = connectWidgetPopupMenu + +data WidgetPropertyNotifyEventSignalInfo +instance SignalInfo WidgetPropertyNotifyEventSignalInfo where + type HaskellCallbackType WidgetPropertyNotifyEventSignalInfo = WidgetPropertyNotifyEventCallback + connectSignal _ = connectWidgetPropertyNotifyEvent + +data WidgetProximityInEventSignalInfo +instance SignalInfo WidgetProximityInEventSignalInfo where + type HaskellCallbackType WidgetProximityInEventSignalInfo = WidgetProximityInEventCallback + connectSignal _ = connectWidgetProximityInEvent + +data WidgetProximityOutEventSignalInfo +instance SignalInfo WidgetProximityOutEventSignalInfo where + type HaskellCallbackType WidgetProximityOutEventSignalInfo = WidgetProximityOutEventCallback + connectSignal _ = connectWidgetProximityOutEvent + +data WidgetQueryTooltipSignalInfo +instance SignalInfo WidgetQueryTooltipSignalInfo where + type HaskellCallbackType WidgetQueryTooltipSignalInfo = WidgetQueryTooltipCallback + connectSignal _ = connectWidgetQueryTooltip + +data WidgetRealizeSignalInfo +instance SignalInfo WidgetRealizeSignalInfo where + type HaskellCallbackType WidgetRealizeSignalInfo = WidgetRealizeCallback + connectSignal _ = connectWidgetRealize + +data WidgetScreenChangedSignalInfo +instance SignalInfo WidgetScreenChangedSignalInfo where + type HaskellCallbackType WidgetScreenChangedSignalInfo = WidgetScreenChangedCallback + connectSignal _ = connectWidgetScreenChanged + +data WidgetScrollEventSignalInfo +instance SignalInfo WidgetScrollEventSignalInfo where + type HaskellCallbackType WidgetScrollEventSignalInfo = WidgetScrollEventCallback + connectSignal _ = connectWidgetScrollEvent + +data WidgetSelectionClearEventSignalInfo +instance SignalInfo WidgetSelectionClearEventSignalInfo where + type HaskellCallbackType WidgetSelectionClearEventSignalInfo = WidgetSelectionClearEventCallback + connectSignal _ = connectWidgetSelectionClearEvent + +data WidgetSelectionGetSignalInfo +instance SignalInfo WidgetSelectionGetSignalInfo where + type HaskellCallbackType WidgetSelectionGetSignalInfo = WidgetSelectionGetCallback + connectSignal _ = connectWidgetSelectionGet + +data WidgetSelectionNotifyEventSignalInfo +instance SignalInfo WidgetSelectionNotifyEventSignalInfo where + type HaskellCallbackType WidgetSelectionNotifyEventSignalInfo = WidgetSelectionNotifyEventCallback + connectSignal _ = connectWidgetSelectionNotifyEvent + +data WidgetSelectionReceivedSignalInfo +instance SignalInfo WidgetSelectionReceivedSignalInfo where + type HaskellCallbackType WidgetSelectionReceivedSignalInfo = WidgetSelectionReceivedCallback + connectSignal _ = connectWidgetSelectionReceived + +data WidgetSelectionRequestEventSignalInfo +instance SignalInfo WidgetSelectionRequestEventSignalInfo where + type HaskellCallbackType WidgetSelectionRequestEventSignalInfo = WidgetSelectionRequestEventCallback + connectSignal _ = connectWidgetSelectionRequestEvent + +data WidgetShowSignalInfo +instance SignalInfo WidgetShowSignalInfo where + type HaskellCallbackType WidgetShowSignalInfo = WidgetShowCallback + connectSignal _ = connectWidgetShow + +data WidgetShowHelpSignalInfo +instance SignalInfo WidgetShowHelpSignalInfo where + type HaskellCallbackType WidgetShowHelpSignalInfo = WidgetShowHelpCallback + connectSignal _ = connectWidgetShowHelp + +data WidgetSizeAllocateSignalInfo +instance SignalInfo WidgetSizeAllocateSignalInfo where + type HaskellCallbackType WidgetSizeAllocateSignalInfo = WidgetSizeAllocateCallback + connectSignal _ = connectWidgetSizeAllocate + +data WidgetStateChangedSignalInfo +instance SignalInfo WidgetStateChangedSignalInfo where + type HaskellCallbackType WidgetStateChangedSignalInfo = WidgetStateChangedCallback + connectSignal _ = connectWidgetStateChanged + +data WidgetStateFlagsChangedSignalInfo +instance SignalInfo WidgetStateFlagsChangedSignalInfo where + type HaskellCallbackType WidgetStateFlagsChangedSignalInfo = WidgetStateFlagsChangedCallback + connectSignal _ = connectWidgetStateFlagsChanged + +data WidgetStyleSetSignalInfo +instance SignalInfo WidgetStyleSetSignalInfo where + type HaskellCallbackType WidgetStyleSetSignalInfo = WidgetStyleSetCallback + connectSignal _ = connectWidgetStyleSet + +data WidgetStyleUpdatedSignalInfo +instance SignalInfo WidgetStyleUpdatedSignalInfo where + type HaskellCallbackType WidgetStyleUpdatedSignalInfo = WidgetStyleUpdatedCallback + connectSignal _ = connectWidgetStyleUpdated + +data WidgetTouchEventSignalInfo +instance SignalInfo WidgetTouchEventSignalInfo where + type HaskellCallbackType WidgetTouchEventSignalInfo = WidgetTouchEventCallback + connectSignal _ = connectWidgetTouchEvent + +data WidgetUnmapSignalInfo +instance SignalInfo WidgetUnmapSignalInfo where + type HaskellCallbackType WidgetUnmapSignalInfo = WidgetUnmapCallback + connectSignal _ = connectWidgetUnmap + +data WidgetUnmapEventSignalInfo +instance SignalInfo WidgetUnmapEventSignalInfo where + type HaskellCallbackType WidgetUnmapEventSignalInfo = WidgetUnmapEventCallback + connectSignal _ = connectWidgetUnmapEvent + +data WidgetUnrealizeSignalInfo +instance SignalInfo WidgetUnrealizeSignalInfo where + type HaskellCallbackType WidgetUnrealizeSignalInfo = WidgetUnrealizeCallback + connectSignal _ = connectWidgetUnrealize + +data WidgetVisibilityNotifyEventSignalInfo +instance SignalInfo WidgetVisibilityNotifyEventSignalInfo where + type HaskellCallbackType WidgetVisibilityNotifyEventSignalInfo = WidgetVisibilityNotifyEventCallback + connectSignal _ = connectWidgetVisibilityNotifyEvent + +data WidgetWindowStateEventSignalInfo +instance SignalInfo WidgetWindowStateEventSignalInfo where + type HaskellCallbackType WidgetWindowStateEventSignalInfo = WidgetWindowStateEventCallback + connectSignal _ = connectWidgetWindowStateEvent + +type instance SignalList Widget = WidgetSignalList +type WidgetSignalList = ('[ '("accelClosuresChanged", WidgetAccelClosuresChangedSignalInfo), '("buttonPressEvent", WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", WidgetCanActivateAccelSignalInfo), '("childNotify", WidgetChildNotifySignalInfo), '("compositedChanged", WidgetCompositedChangedSignalInfo), '("configureEvent", WidgetConfigureEventSignalInfo), '("damageEvent", WidgetDamageEventSignalInfo), '("deleteEvent", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroyEvent", WidgetDestroyEventSignalInfo), '("directionChanged", WidgetDirectionChangedSignalInfo), '("dragBegin", WidgetDragBeginSignalInfo), '("dragDataDelete", WidgetDragDataDeleteSignalInfo), '("dragDataGet", WidgetDragDataGetSignalInfo), '("dragDataReceived", WidgetDragDataReceivedSignalInfo), '("dragDrop", WidgetDragDropSignalInfo), '("dragEnd", WidgetDragEndSignalInfo), '("dragFailed", WidgetDragFailedSignalInfo), '("dragLeave", WidgetDragLeaveSignalInfo), '("dragMotion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enterNotifyEvent", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("eventAfter", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focusInEvent", WidgetFocusInEventSignalInfo), '("focusOutEvent", WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", WidgetGrabBrokenEventSignalInfo), '("grabFocus", WidgetGrabFocusSignalInfo), '("grabNotify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchyChanged", WidgetHierarchyChangedSignalInfo), '("keyPressEvent", WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", WidgetKeyReleaseEventSignalInfo), '("keynavFailed", WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("mapEvent", WidgetMapEventSignalInfo), '("mnemonicActivate", WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", WidgetMotionNotifyEventSignalInfo), '("moveFocus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parentSet", WidgetParentSetSignalInfo), '("popupMenu", WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", WidgetProximityInEventSignalInfo), '("proximityOutEvent", WidgetProximityOutEventSignalInfo), '("queryTooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screenChanged", WidgetScreenChangedSignalInfo), '("scrollEvent", WidgetScrollEventSignalInfo), '("selectionClearEvent", WidgetSelectionClearEventSignalInfo), '("selectionGet", WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("showHelp", WidgetShowHelpSignalInfo), '("sizeAllocate", WidgetSizeAllocateSignalInfo), '("stateChanged", WidgetStateChangedSignalInfo), '("stateFlagsChanged", WidgetStateFlagsChangedSignalInfo), '("styleSet", WidgetStyleSetSignalInfo), '("styleUpdated", WidgetStyleUpdatedSignalInfo), '("touchEvent", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmapEvent", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)]) + +-- method Widget::activate +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_activate" gtk_widget_activate :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetActivate :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetActivate _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_activate _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetActivateMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetActivateMethodInfo a signature where + overloadedMethod _ = widgetActivate + +-- method Widget::add_accelerator +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_signal", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_key", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_flags", argType = TInterface "Gtk" "AccelFlags", 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 "gtk_widget_add_accelerator" gtk_widget_add_accelerator :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CString -> -- accel_signal : TBasicType TUTF8 + Ptr AccelGroup -> -- accel_group : TInterface "Gtk" "AccelGroup" + Word32 -> -- accel_key : TBasicType TUInt + CUInt -> -- accel_mods : TInterface "Gdk" "ModifierType" + CUInt -> -- accel_flags : TInterface "Gtk" "AccelFlags" + IO () + + +widgetAddAccelerator :: + (MonadIO m, WidgetK a, AccelGroupK b) => + a -- _obj + -> T.Text -- accelSignal + -> b -- accelGroup + -> Word32 -- accelKey + -> [Gdk.ModifierType] -- accelMods + -> [AccelFlags] -- accelFlags + -> m () -- result +widgetAddAccelerator _obj accelSignal accelGroup accelKey accelMods accelFlags = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + accelSignal' <- textToCString accelSignal + let accelGroup' = unsafeManagedPtrCastPtr accelGroup + let accelMods' = gflagsToWord accelMods + let accelFlags' = gflagsToWord accelFlags + gtk_widget_add_accelerator _obj' accelSignal' accelGroup' accelKey accelMods' accelFlags' + touchManagedPtr _obj + touchManagedPtr accelGroup + freeMem accelSignal' + return () + +data WidgetAddAcceleratorMethodInfo +instance (signature ~ (T.Text -> b -> Word32 -> [Gdk.ModifierType] -> [AccelFlags] -> m ()), MonadIO m, WidgetK a, AccelGroupK b) => MethodInfo WidgetAddAcceleratorMethodInfo a signature where + overloadedMethod _ = widgetAddAccelerator + +-- method Widget::add_device_events +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 = "events", 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 "gtk_widget_add_device_events" gtk_widget_add_device_events :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Gdk.Device -> -- device : TInterface "Gdk" "Device" + CUInt -> -- events : TInterface "Gdk" "EventMask" + IO () + + +widgetAddDeviceEvents :: + (MonadIO m, WidgetK a, Gdk.DeviceK b) => + a -- _obj + -> b -- device + -> [Gdk.EventMask] -- events + -> m () -- result +widgetAddDeviceEvents _obj device events = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let device' = unsafeManagedPtrCastPtr device + let events' = gflagsToWord events + gtk_widget_add_device_events _obj' device' events' + touchManagedPtr _obj + touchManagedPtr device + return () + +data WidgetAddDeviceEventsMethodInfo +instance (signature ~ (b -> [Gdk.EventMask] -> m ()), MonadIO m, WidgetK a, Gdk.DeviceK b) => MethodInfo WidgetAddDeviceEventsMethodInfo a signature where + overloadedMethod _ = widgetAddDeviceEvents + +-- method Widget::add_events +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "events", 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 "gtk_widget_add_events" gtk_widget_add_events :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Int32 -> -- events : TBasicType TInt + IO () + + +widgetAddEvents :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Int32 -- events + -> m () -- result +widgetAddEvents _obj events = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_add_events _obj' events + touchManagedPtr _obj + return () + +data WidgetAddEventsMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetAddEventsMethodInfo a signature where + overloadedMethod _ = widgetAddEvents + +-- method Widget::add_mnemonic_label +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_add_mnemonic_label" gtk_widget_add_mnemonic_label :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Widget -> -- label : TInterface "Gtk" "Widget" + IO () + + +widgetAddMnemonicLabel :: + (MonadIO m, WidgetK a, WidgetK b) => + a -- _obj + -> b -- label + -> m () -- result +widgetAddMnemonicLabel _obj label = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let label' = unsafeManagedPtrCastPtr label + gtk_widget_add_mnemonic_label _obj' label' + touchManagedPtr _obj + touchManagedPtr label + return () + +data WidgetAddMnemonicLabelMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, WidgetK a, WidgetK b) => MethodInfo WidgetAddMnemonicLabelMethodInfo a signature where + overloadedMethod _ = widgetAddMnemonicLabel + +-- method Widget::add_tick_callback +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gtk" "TickCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, 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},Arg {argCName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TUInt) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_add_tick_callback" gtk_widget_add_tick_callback :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + FunPtr TickCallbackC -> -- callback : TInterface "Gtk" "TickCallback" + Ptr () -> -- user_data : TBasicType TPtr + FunPtr GLib.DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify" + IO Word32 + + +widgetAddTickCallback :: + (MonadIO m, WidgetK a) => + a -- _obj + -> TickCallback -- callback + -> m Word32 -- result +widgetAddTickCallback _obj callback = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + callback' <- mkTickCallback (tickCallbackWrapper Nothing callback) + let userData = castFunPtrToPtr callback' + let notify = safeFreeFunPtrPtr + result <- gtk_widget_add_tick_callback _obj' callback' userData notify + touchManagedPtr _obj + return result + +data WidgetAddTickCallbackMethodInfo +instance (signature ~ (TickCallback -> m Word32), MonadIO m, WidgetK a) => MethodInfo WidgetAddTickCallbackMethodInfo a signature where + overloadedMethod _ = widgetAddTickCallback + +-- method Widget::can_activate_accel +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "signal_id", 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 "gtk_widget_can_activate_accel" gtk_widget_can_activate_accel :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Word32 -> -- signal_id : TBasicType TUInt + IO CInt + + +widgetCanActivateAccel :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Word32 -- signalId + -> m Bool -- result +widgetCanActivateAccel _obj signalId = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_can_activate_accel _obj' signalId + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetCanActivateAccelMethodInfo +instance (signature ~ (Word32 -> m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetCanActivateAccelMethodInfo a signature where + overloadedMethod _ = widgetCanActivateAccel + +-- method Widget::child_focus +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "direction", argType = TInterface "Gtk" "DirectionType", 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 "gtk_widget_child_focus" gtk_widget_child_focus :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CUInt -> -- direction : TInterface "Gtk" "DirectionType" + IO CInt + + +widgetChildFocus :: + (MonadIO m, WidgetK a) => + a -- _obj + -> DirectionType -- direction + -> m Bool -- result +widgetChildFocus _obj direction = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let direction' = (fromIntegral . fromEnum) direction + result <- gtk_widget_child_focus _obj' direction' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetChildFocusMethodInfo +instance (signature ~ (DirectionType -> m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetChildFocusMethodInfo a signature where + overloadedMethod _ = widgetChildFocus + +-- method Widget::child_notify +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child_property", 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 "gtk_widget_child_notify" gtk_widget_child_notify :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CString -> -- child_property : TBasicType TUTF8 + IO () + + +widgetChildNotify :: + (MonadIO m, WidgetK a) => + a -- _obj + -> T.Text -- childProperty + -> m () -- result +widgetChildNotify _obj childProperty = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + childProperty' <- textToCString childProperty + gtk_widget_child_notify _obj' childProperty' + touchManagedPtr _obj + freeMem childProperty' + return () + +data WidgetChildNotifyMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetChildNotifyMethodInfo a signature where + overloadedMethod _ = widgetChildNotify + +-- method Widget::class_path +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path_length", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "path_reversed", argType = TBasicType TUTF8, 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 "gtk_widget_class_path" gtk_widget_class_path :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Word32 -> -- path_length : TBasicType TUInt + Ptr CString -> -- path : TBasicType TUTF8 + Ptr CString -> -- path_reversed : TBasicType TUTF8 + IO () + +{-# DEPRECATED widgetClassPath ["(Since version 3.0)","Use gtk_widget_get_path() instead"]#-} +widgetClassPath :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m (Word32,T.Text,T.Text) -- result +widgetClassPath _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + pathLength <- allocMem :: IO (Ptr Word32) + path <- allocMem :: IO (Ptr CString) + pathReversed <- allocMem :: IO (Ptr CString) + gtk_widget_class_path _obj' pathLength path pathReversed + pathLength' <- peek pathLength + path' <- peek path + path'' <- cstringToText path' + freeMem path' + pathReversed' <- peek pathReversed + pathReversed'' <- cstringToText pathReversed' + freeMem pathReversed' + touchManagedPtr _obj + freeMem pathLength + freeMem path + freeMem pathReversed + return (pathLength', path'', pathReversed'') + +data WidgetClassPathMethodInfo +instance (signature ~ (m (Word32,T.Text,T.Text)), MonadIO m, WidgetK a) => MethodInfo WidgetClassPathMethodInfo a signature where + overloadedMethod _ = widgetClassPath + +-- method Widget::compute_expand +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "orientation", argType = TInterface "Gtk" "Orientation", 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 "gtk_widget_compute_expand" gtk_widget_compute_expand :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CUInt -> -- orientation : TInterface "Gtk" "Orientation" + IO CInt + + +widgetComputeExpand :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Orientation -- orientation + -> m Bool -- result +widgetComputeExpand _obj orientation = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let orientation' = (fromIntegral . fromEnum) orientation + result <- gtk_widget_compute_expand _obj' orientation' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetComputeExpandMethodInfo +instance (signature ~ (Orientation -> m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetComputeExpandMethodInfo a signature where + overloadedMethod _ = widgetComputeExpand + +-- method Widget::create_pango_context +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_create_pango_context" gtk_widget_create_pango_context :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO (Ptr Pango.Context) + + +widgetCreatePangoContext :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Pango.Context -- result +widgetCreatePangoContext _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_create_pango_context _obj' + checkUnexpectedReturnNULL "gtk_widget_create_pango_context" result + result' <- (wrapObject Pango.Context) result + touchManagedPtr _obj + return result' + +data WidgetCreatePangoContextMethodInfo +instance (signature ~ (m Pango.Context), MonadIO m, WidgetK a) => MethodInfo WidgetCreatePangoContextMethodInfo a signature where + overloadedMethod _ = widgetCreatePangoContext + +-- method Widget::create_pango_layout +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface "Pango" "Layout") +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_create_pango_layout" gtk_widget_create_pango_layout :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CString -> -- text : TBasicType TUTF8 + IO (Ptr Pango.Layout) + + +widgetCreatePangoLayout :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Maybe (T.Text) -- text + -> m Pango.Layout -- result +widgetCreatePangoLayout _obj text = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeText <- case text of + Nothing -> return nullPtr + Just jText -> do + jText' <- textToCString jText + return jText' + result <- gtk_widget_create_pango_layout _obj' maybeText + checkUnexpectedReturnNULL "gtk_widget_create_pango_layout" result + result' <- (wrapObject Pango.Layout) result + touchManagedPtr _obj + freeMem maybeText + return result' + +data WidgetCreatePangoLayoutMethodInfo +instance (signature ~ (Maybe (T.Text) -> m Pango.Layout), MonadIO m, WidgetK a) => MethodInfo WidgetCreatePangoLayoutMethodInfo a signature where + overloadedMethod _ = widgetCreatePangoLayout + +-- method Widget::destroy +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_destroy" gtk_widget_destroy :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetDestroy :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetDestroy _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_destroy _obj' + touchManagedPtr _obj + return () + +data WidgetDestroyMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDestroyMethodInfo a signature where + overloadedMethod _ = widgetDestroy + +-- method Widget::destroyed +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget_pointer", argType = TInterface "Gtk" "Widget", direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_destroyed" gtk_widget_destroyed :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr (Ptr Widget) -> -- widget_pointer : TInterface "Gtk" "Widget" + IO () + + +widgetDestroyed :: + (MonadIO m, WidgetK a, WidgetK b) => + a -- _obj + -> b -- widgetPointer + -> m (Widget) -- result +widgetDestroyed _obj widgetPointer = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let widgetPointer' = unsafeManagedPtrCastPtr widgetPointer + widgetPointer'' <- allocMem :: IO (Ptr (Ptr Widget)) + poke widgetPointer'' widgetPointer' + gtk_widget_destroyed _obj' widgetPointer'' + widgetPointer''' <- peek widgetPointer'' + widgetPointer'''' <- (newObject Widget) widgetPointer''' + touchManagedPtr _obj + touchManagedPtr widgetPointer + freeMem widgetPointer'' + return widgetPointer'''' + +data WidgetDestroyedMethodInfo +instance (signature ~ (b -> m (Widget)), MonadIO m, WidgetK a, WidgetK b) => MethodInfo WidgetDestroyedMethodInfo a signature where + overloadedMethod _ = widgetDestroyed + +-- method Widget::device_is_shadowed +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_device_is_shadowed" gtk_widget_device_is_shadowed :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Gdk.Device -> -- device : TInterface "Gdk" "Device" + IO CInt + + +widgetDeviceIsShadowed :: + (MonadIO m, WidgetK a, Gdk.DeviceK b) => + a -- _obj + -> b -- device + -> m Bool -- result +widgetDeviceIsShadowed _obj device = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let device' = unsafeManagedPtrCastPtr device + result <- gtk_widget_device_is_shadowed _obj' device' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr device + return result' + +data WidgetDeviceIsShadowedMethodInfo +instance (signature ~ (b -> m Bool), MonadIO m, WidgetK a, Gdk.DeviceK b) => MethodInfo WidgetDeviceIsShadowedMethodInfo a signature where + overloadedMethod _ = widgetDeviceIsShadowed + +-- method Widget::drag_begin +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "actions", argType = TInterface "Gdk" "DragAction", 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 = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface "Gdk" "DragContext") +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_drag_begin" gtk_drag_begin :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr TargetList -> -- targets : TInterface "Gtk" "TargetList" + CUInt -> -- actions : TInterface "Gdk" "DragAction" + Int32 -> -- button : TBasicType TInt + Ptr Gdk.Event -> -- event : TInterface "Gdk" "Event" + IO (Ptr Gdk.DragContext) + +{-# DEPRECATED widgetDragBegin ["(Since version 3.10)","Use gtk_drag_begin_with_coordinates() instead"]#-} +widgetDragBegin :: + (MonadIO m, WidgetK a) => + a -- _obj + -> TargetList -- targets + -> [Gdk.DragAction] -- actions + -> Int32 -- button + -> Maybe (Gdk.Event) -- event + -> m Gdk.DragContext -- result +widgetDragBegin _obj targets actions button event = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let targets' = unsafeManagedPtrGetPtr targets + let actions' = gflagsToWord actions + maybeEvent <- case event of + Nothing -> return nullPtr + Just jEvent -> do + let jEvent' = unsafeManagedPtrGetPtr jEvent + return jEvent' + result <- gtk_drag_begin _obj' targets' actions' button maybeEvent + checkUnexpectedReturnNULL "gtk_drag_begin" result + result' <- (newObject Gdk.DragContext) result + touchManagedPtr _obj + touchManagedPtr targets + whenJust event touchManagedPtr + return result' + +data WidgetDragBeginMethodInfo +instance (signature ~ (TargetList -> [Gdk.DragAction] -> Int32 -> Maybe (Gdk.Event) -> m Gdk.DragContext), MonadIO m, WidgetK a) => MethodInfo WidgetDragBeginMethodInfo a signature where + overloadedMethod _ = widgetDragBegin + +-- method Widget::drag_begin_with_coordinates +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "actions", argType = TInterface "Gdk" "DragAction", 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 = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = True, 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" "DragContext") +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_drag_begin_with_coordinates" gtk_drag_begin_with_coordinates :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr TargetList -> -- targets : TInterface "Gtk" "TargetList" + CUInt -> -- actions : TInterface "Gdk" "DragAction" + Int32 -> -- button : TBasicType TInt + Ptr Gdk.Event -> -- event : TInterface "Gdk" "Event" + Int32 -> -- x : TBasicType TInt + Int32 -> -- y : TBasicType TInt + IO (Ptr Gdk.DragContext) + + +widgetDragBeginWithCoordinates :: + (MonadIO m, WidgetK a) => + a -- _obj + -> TargetList -- targets + -> [Gdk.DragAction] -- actions + -> Int32 -- button + -> Maybe (Gdk.Event) -- event + -> Int32 -- x + -> Int32 -- y + -> m Gdk.DragContext -- result +widgetDragBeginWithCoordinates _obj targets actions button event x y = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let targets' = unsafeManagedPtrGetPtr targets + let actions' = gflagsToWord actions + maybeEvent <- case event of + Nothing -> return nullPtr + Just jEvent -> do + let jEvent' = unsafeManagedPtrGetPtr jEvent + return jEvent' + result <- gtk_drag_begin_with_coordinates _obj' targets' actions' button maybeEvent x y + checkUnexpectedReturnNULL "gtk_drag_begin_with_coordinates" result + result' <- (newObject Gdk.DragContext) result + touchManagedPtr _obj + touchManagedPtr targets + whenJust event touchManagedPtr + return result' + +data WidgetDragBeginWithCoordinatesMethodInfo +instance (signature ~ (TargetList -> [Gdk.DragAction] -> Int32 -> Maybe (Gdk.Event) -> Int32 -> Int32 -> m Gdk.DragContext), MonadIO m, WidgetK a) => MethodInfo WidgetDragBeginWithCoordinatesMethodInfo a signature where + overloadedMethod _ = widgetDragBeginWithCoordinates + +-- method Widget::drag_check_threshold +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "current_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "current_y", argType = TBasicType TInt, 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 "gtk_drag_check_threshold" gtk_drag_check_threshold :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Int32 -> -- start_x : TBasicType TInt + Int32 -> -- start_y : TBasicType TInt + Int32 -> -- current_x : TBasicType TInt + Int32 -> -- current_y : TBasicType TInt + IO CInt + + +widgetDragCheckThreshold :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Int32 -- startX + -> Int32 -- startY + -> Int32 -- currentX + -> Int32 -- currentY + -> m Bool -- result +widgetDragCheckThreshold _obj startX startY currentX currentY = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_drag_check_threshold _obj' startX startY currentX currentY + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetDragCheckThresholdMethodInfo +instance (signature ~ (Int32 -> Int32 -> Int32 -> Int32 -> m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetDragCheckThresholdMethodInfo a signature where + overloadedMethod _ = widgetDragCheckThreshold + +-- method Widget::drag_dest_add_image_targets +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_drag_dest_add_image_targets" gtk_drag_dest_add_image_targets :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetDragDestAddImageTargets :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetDragDestAddImageTargets _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_drag_dest_add_image_targets _obj' + touchManagedPtr _obj + return () + +data WidgetDragDestAddImageTargetsMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragDestAddImageTargetsMethodInfo a signature where + overloadedMethod _ = widgetDragDestAddImageTargets + +-- method Widget::drag_dest_add_text_targets +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_drag_dest_add_text_targets" gtk_drag_dest_add_text_targets :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetDragDestAddTextTargets :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetDragDestAddTextTargets _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_drag_dest_add_text_targets _obj' + touchManagedPtr _obj + return () + +data WidgetDragDestAddTextTargetsMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragDestAddTextTargetsMethodInfo a signature where + overloadedMethod _ = widgetDragDestAddTextTargets + +-- method Widget::drag_dest_add_uri_targets +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_drag_dest_add_uri_targets" gtk_drag_dest_add_uri_targets :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetDragDestAddUriTargets :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetDragDestAddUriTargets _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_drag_dest_add_uri_targets _obj' + touchManagedPtr _obj + return () + +data WidgetDragDestAddUriTargetsMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragDestAddUriTargetsMethodInfo a signature where + overloadedMethod _ = widgetDragDestAddUriTargets + +-- method Widget::drag_dest_find_target +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target_list", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface "Gdk" "Atom") +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_drag_dest_find_target" gtk_drag_dest_find_target :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Gdk.DragContext -> -- context : TInterface "Gdk" "DragContext" + Ptr TargetList -> -- target_list : TInterface "Gtk" "TargetList" + IO (Ptr Gdk.Atom) + + +widgetDragDestFindTarget :: + (MonadIO m, WidgetK a, Gdk.DragContextK b) => + a -- _obj + -> b -- context + -> Maybe (TargetList) -- targetList + -> m Gdk.Atom -- result +widgetDragDestFindTarget _obj context targetList = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let context' = unsafeManagedPtrCastPtr context + maybeTargetList <- case targetList of + Nothing -> return nullPtr + Just jTargetList -> do + let jTargetList' = unsafeManagedPtrGetPtr jTargetList + return jTargetList' + result <- gtk_drag_dest_find_target _obj' context' maybeTargetList + checkUnexpectedReturnNULL "gtk_drag_dest_find_target" result + -- XXX Wrapping a foreign struct/union with no known destructor, leak? + result' <- (\x -> Gdk.Atom <$> newForeignPtr_ x) result + touchManagedPtr _obj + touchManagedPtr context + whenJust targetList touchManagedPtr + return result' + +data WidgetDragDestFindTargetMethodInfo +instance (signature ~ (b -> Maybe (TargetList) -> m Gdk.Atom), MonadIO m, WidgetK a, Gdk.DragContextK b) => MethodInfo WidgetDragDestFindTargetMethodInfo a signature where + overloadedMethod _ = widgetDragDestFindTarget + +-- method Widget::drag_dest_get_target_list +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface "Gtk" "TargetList") +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_drag_dest_get_target_list" gtk_drag_dest_get_target_list :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO (Ptr TargetList) + + +widgetDragDestGetTargetList :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m TargetList -- result +widgetDragDestGetTargetList _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_drag_dest_get_target_list _obj' + checkUnexpectedReturnNULL "gtk_drag_dest_get_target_list" result + result' <- (newBoxed TargetList) result + touchManagedPtr _obj + return result' + +data WidgetDragDestGetTargetListMethodInfo +instance (signature ~ (m TargetList), MonadIO m, WidgetK a) => MethodInfo WidgetDragDestGetTargetListMethodInfo a signature where + overloadedMethod _ = widgetDragDestGetTargetList + +-- method Widget::drag_dest_get_track_motion +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_drag_dest_get_track_motion" gtk_drag_dest_get_track_motion :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetDragDestGetTrackMotion :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetDragDestGetTrackMotion _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_drag_dest_get_track_motion _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetDragDestGetTrackMotionMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetDragDestGetTrackMotionMethodInfo a signature where + overloadedMethod _ = widgetDragDestGetTrackMotion + +-- method Widget::drag_dest_set +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "DestDefaults", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = True, 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},Arg {argCName = "actions", argType = TInterface "Gdk" "DragAction", 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 "gtk_drag_dest_set" gtk_drag_dest_set :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CUInt -> -- flags : TInterface "Gtk" "DestDefaults" + Ptr TargetEntry -> -- targets : TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry") + Int32 -> -- n_targets : TBasicType TInt + CUInt -> -- actions : TInterface "Gdk" "DragAction" + IO () + + +widgetDragDestSet :: + (MonadIO m, WidgetK a) => + a -- _obj + -> [DestDefaults] -- flags + -> Maybe ([TargetEntry]) -- targets + -> [Gdk.DragAction] -- actions + -> m () -- result +widgetDragDestSet _obj flags targets actions = liftIO $ do + let nTargets = case targets of + Nothing -> 0 + Just jTargets -> fromIntegral $ length jTargets + let _obj' = unsafeManagedPtrCastPtr _obj + let flags' = gflagsToWord flags + maybeTargets <- case targets of + Nothing -> return nullPtr + Just jTargets -> do + let jTargets' = map unsafeManagedPtrGetPtr jTargets + jTargets'' <- packBlockArray 16 jTargets' + return jTargets'' + let actions' = gflagsToWord actions + gtk_drag_dest_set _obj' flags' maybeTargets nTargets actions' + touchManagedPtr _obj + whenJust targets (mapM_ touchManagedPtr) + freeMem maybeTargets + return () + +data WidgetDragDestSetMethodInfo +instance (signature ~ ([DestDefaults] -> Maybe ([TargetEntry]) -> [Gdk.DragAction] -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragDestSetMethodInfo a signature where + overloadedMethod _ = widgetDragDestSet + +-- method Widget::drag_dest_set_proxy +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "proxy_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 = "use_coordinates", 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 "gtk_drag_dest_set_proxy" gtk_drag_dest_set_proxy :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Gdk.Window -> -- proxy_window : TInterface "Gdk" "Window" + CUInt -> -- protocol : TInterface "Gdk" "DragProtocol" + CInt -> -- use_coordinates : TBasicType TBoolean + IO () + + +widgetDragDestSetProxy :: + (MonadIO m, WidgetK a, Gdk.WindowK b) => + a -- _obj + -> b -- proxyWindow + -> Gdk.DragProtocol -- protocol + -> Bool -- useCoordinates + -> m () -- result +widgetDragDestSetProxy _obj proxyWindow protocol useCoordinates = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let proxyWindow' = unsafeManagedPtrCastPtr proxyWindow + let protocol' = (fromIntegral . fromEnum) protocol + let useCoordinates' = (fromIntegral . fromEnum) useCoordinates + gtk_drag_dest_set_proxy _obj' proxyWindow' protocol' useCoordinates' + touchManagedPtr _obj + touchManagedPtr proxyWindow + return () + +data WidgetDragDestSetProxyMethodInfo +instance (signature ~ (b -> Gdk.DragProtocol -> Bool -> m ()), MonadIO m, WidgetK a, Gdk.WindowK b) => MethodInfo WidgetDragDestSetProxyMethodInfo a signature where + overloadedMethod _ = widgetDragDestSetProxy + +-- method Widget::drag_dest_set_target_list +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target_list", argType = TInterface "Gtk" "TargetList", 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 "gtk_drag_dest_set_target_list" gtk_drag_dest_set_target_list :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr TargetList -> -- target_list : TInterface "Gtk" "TargetList" + IO () + + +widgetDragDestSetTargetList :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Maybe (TargetList) -- targetList + -> m () -- result +widgetDragDestSetTargetList _obj targetList = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeTargetList <- case targetList of + Nothing -> return nullPtr + Just jTargetList -> do + let jTargetList' = unsafeManagedPtrGetPtr jTargetList + return jTargetList' + gtk_drag_dest_set_target_list _obj' maybeTargetList + touchManagedPtr _obj + whenJust targetList touchManagedPtr + return () + +data WidgetDragDestSetTargetListMethodInfo +instance (signature ~ (Maybe (TargetList) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragDestSetTargetListMethodInfo a signature where + overloadedMethod _ = widgetDragDestSetTargetList + +-- method Widget::drag_dest_set_track_motion +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "track_motion", 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 "gtk_drag_dest_set_track_motion" gtk_drag_dest_set_track_motion :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CInt -> -- track_motion : TBasicType TBoolean + IO () + + +widgetDragDestSetTrackMotion :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Bool -- trackMotion + -> m () -- result +widgetDragDestSetTrackMotion _obj trackMotion = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let trackMotion' = (fromIntegral . fromEnum) trackMotion + gtk_drag_dest_set_track_motion _obj' trackMotion' + touchManagedPtr _obj + return () + +data WidgetDragDestSetTrackMotionMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragDestSetTrackMotionMethodInfo a signature where + overloadedMethod _ = widgetDragDestSetTrackMotion + +-- method Widget::drag_dest_unset +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_drag_dest_unset" gtk_drag_dest_unset :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetDragDestUnset :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetDragDestUnset _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_drag_dest_unset _obj' + touchManagedPtr _obj + return () + +data WidgetDragDestUnsetMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragDestUnsetMethodInfo a signature where + overloadedMethod _ = widgetDragDestUnset + +-- method Widget::drag_get_data +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", 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 "gtk_drag_get_data" gtk_drag_get_data :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Gdk.DragContext -> -- context : TInterface "Gdk" "DragContext" + Ptr Gdk.Atom -> -- target : TInterface "Gdk" "Atom" + Word32 -> -- time_ : TBasicType TUInt32 + IO () + + +widgetDragGetData :: + (MonadIO m, WidgetK a, Gdk.DragContextK b) => + a -- _obj + -> b -- context + -> Gdk.Atom -- target + -> Word32 -- time_ + -> m () -- result +widgetDragGetData _obj context target time_ = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let context' = unsafeManagedPtrCastPtr context + let target' = unsafeManagedPtrGetPtr target + gtk_drag_get_data _obj' context' target' time_ + touchManagedPtr _obj + touchManagedPtr context + touchManagedPtr target + return () + +data WidgetDragGetDataMethodInfo +instance (signature ~ (b -> Gdk.Atom -> Word32 -> m ()), MonadIO m, WidgetK a, Gdk.DragContextK b) => MethodInfo WidgetDragGetDataMethodInfo a signature where + overloadedMethod _ = widgetDragGetData + +-- method Widget::drag_highlight +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_drag_highlight" gtk_drag_highlight :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetDragHighlight :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetDragHighlight _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_drag_highlight _obj' + touchManagedPtr _obj + return () + +data WidgetDragHighlightMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragHighlightMethodInfo a signature where + overloadedMethod _ = widgetDragHighlight + +-- method Widget::drag_source_add_image_targets +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_drag_source_add_image_targets" gtk_drag_source_add_image_targets :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetDragSourceAddImageTargets :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetDragSourceAddImageTargets _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_drag_source_add_image_targets _obj' + touchManagedPtr _obj + return () + +data WidgetDragSourceAddImageTargetsMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragSourceAddImageTargetsMethodInfo a signature where + overloadedMethod _ = widgetDragSourceAddImageTargets + +-- method Widget::drag_source_add_text_targets +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_drag_source_add_text_targets" gtk_drag_source_add_text_targets :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetDragSourceAddTextTargets :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetDragSourceAddTextTargets _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_drag_source_add_text_targets _obj' + touchManagedPtr _obj + return () + +data WidgetDragSourceAddTextTargetsMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragSourceAddTextTargetsMethodInfo a signature where + overloadedMethod _ = widgetDragSourceAddTextTargets + +-- method Widget::drag_source_add_uri_targets +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_drag_source_add_uri_targets" gtk_drag_source_add_uri_targets :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetDragSourceAddUriTargets :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetDragSourceAddUriTargets _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_drag_source_add_uri_targets _obj' + touchManagedPtr _obj + return () + +data WidgetDragSourceAddUriTargetsMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragSourceAddUriTargetsMethodInfo a signature where + overloadedMethod _ = widgetDragSourceAddUriTargets + +-- method Widget::drag_source_get_target_list +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface "Gtk" "TargetList") +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_drag_source_get_target_list" gtk_drag_source_get_target_list :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO (Ptr TargetList) + + +widgetDragSourceGetTargetList :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m TargetList -- result +widgetDragSourceGetTargetList _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_drag_source_get_target_list _obj' + checkUnexpectedReturnNULL "gtk_drag_source_get_target_list" result + result' <- (newBoxed TargetList) result + touchManagedPtr _obj + return result' + +data WidgetDragSourceGetTargetListMethodInfo +instance (signature ~ (m TargetList), MonadIO m, WidgetK a) => MethodInfo WidgetDragSourceGetTargetListMethodInfo a signature where + overloadedMethod _ = widgetDragSourceGetTargetList + +-- method Widget::drag_source_set +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_button_mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = True, 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},Arg {argCName = "actions", argType = TInterface "Gdk" "DragAction", 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 "gtk_drag_source_set" gtk_drag_source_set :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CUInt -> -- start_button_mask : TInterface "Gdk" "ModifierType" + Ptr TargetEntry -> -- targets : TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry") + Int32 -> -- n_targets : TBasicType TInt + CUInt -> -- actions : TInterface "Gdk" "DragAction" + IO () + + +widgetDragSourceSet :: + (MonadIO m, WidgetK a) => + a -- _obj + -> [Gdk.ModifierType] -- startButtonMask + -> Maybe ([TargetEntry]) -- targets + -> [Gdk.DragAction] -- actions + -> m () -- result +widgetDragSourceSet _obj startButtonMask targets actions = liftIO $ do + let nTargets = case targets of + Nothing -> 0 + Just jTargets -> fromIntegral $ length jTargets + let _obj' = unsafeManagedPtrCastPtr _obj + let startButtonMask' = gflagsToWord startButtonMask + maybeTargets <- case targets of + Nothing -> return nullPtr + Just jTargets -> do + let jTargets' = map unsafeManagedPtrGetPtr jTargets + jTargets'' <- packBlockArray 16 jTargets' + return jTargets'' + let actions' = gflagsToWord actions + gtk_drag_source_set _obj' startButtonMask' maybeTargets nTargets actions' + touchManagedPtr _obj + whenJust targets (mapM_ touchManagedPtr) + freeMem maybeTargets + return () + +data WidgetDragSourceSetMethodInfo +instance (signature ~ ([Gdk.ModifierType] -> Maybe ([TargetEntry]) -> [Gdk.DragAction] -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragSourceSetMethodInfo a signature where + overloadedMethod _ = widgetDragSourceSet + +-- method Widget::drag_source_set_icon_gicon +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface "Gio" "Icon", 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 "gtk_drag_source_set_icon_gicon" gtk_drag_source_set_icon_gicon :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Gio.Icon -> -- icon : TInterface "Gio" "Icon" + IO () + + +widgetDragSourceSetIconGicon :: + (MonadIO m, WidgetK a, Gio.IconK b) => + a -- _obj + -> b -- icon + -> m () -- result +widgetDragSourceSetIconGicon _obj icon = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let icon' = unsafeManagedPtrCastPtr icon + gtk_drag_source_set_icon_gicon _obj' icon' + touchManagedPtr _obj + touchManagedPtr icon + return () + +data WidgetDragSourceSetIconGiconMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, WidgetK a, Gio.IconK b) => MethodInfo WidgetDragSourceSetIconGiconMethodInfo a signature where + overloadedMethod _ = widgetDragSourceSetIconGicon + +-- method Widget::drag_source_set_icon_name +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", 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 "gtk_drag_source_set_icon_name" gtk_drag_source_set_icon_name :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CString -> -- icon_name : TBasicType TUTF8 + IO () + + +widgetDragSourceSetIconName :: + (MonadIO m, WidgetK a) => + a -- _obj + -> T.Text -- iconName + -> m () -- result +widgetDragSourceSetIconName _obj iconName = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + iconName' <- textToCString iconName + gtk_drag_source_set_icon_name _obj' iconName' + touchManagedPtr _obj + freeMem iconName' + return () + +data WidgetDragSourceSetIconNameMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragSourceSetIconNameMethodInfo a signature where + overloadedMethod _ = widgetDragSourceSetIconName + +-- method Widget::drag_source_set_icon_pixbuf +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_drag_source_set_icon_pixbuf" gtk_drag_source_set_icon_pixbuf :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr GdkPixbuf.Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf" + IO () + + +widgetDragSourceSetIconPixbuf :: + (MonadIO m, WidgetK a, GdkPixbuf.PixbufK b) => + a -- _obj + -> b -- pixbuf + -> m () -- result +widgetDragSourceSetIconPixbuf _obj pixbuf = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let pixbuf' = unsafeManagedPtrCastPtr pixbuf + gtk_drag_source_set_icon_pixbuf _obj' pixbuf' + touchManagedPtr _obj + touchManagedPtr pixbuf + return () + +data WidgetDragSourceSetIconPixbufMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, WidgetK a, GdkPixbuf.PixbufK b) => MethodInfo WidgetDragSourceSetIconPixbufMethodInfo a signature where + overloadedMethod _ = widgetDragSourceSetIconPixbuf + +-- method Widget::drag_source_set_icon_stock +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_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 "gtk_drag_source_set_icon_stock" gtk_drag_source_set_icon_stock :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CString -> -- stock_id : TBasicType TUTF8 + IO () + +{-# DEPRECATED widgetDragSourceSetIconStock ["(Since version 3.10)","Use gtk_drag_source_set_icon_name() instead."]#-} +widgetDragSourceSetIconStock :: + (MonadIO m, WidgetK a) => + a -- _obj + -> T.Text -- stockId + -> m () -- result +widgetDragSourceSetIconStock _obj stockId = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + stockId' <- textToCString stockId + gtk_drag_source_set_icon_stock _obj' stockId' + touchManagedPtr _obj + freeMem stockId' + return () + +data WidgetDragSourceSetIconStockMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragSourceSetIconStockMethodInfo a signature where + overloadedMethod _ = widgetDragSourceSetIconStock + +-- method Widget::drag_source_set_target_list +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target_list", argType = TInterface "Gtk" "TargetList", 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 "gtk_drag_source_set_target_list" gtk_drag_source_set_target_list :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr TargetList -> -- target_list : TInterface "Gtk" "TargetList" + IO () + + +widgetDragSourceSetTargetList :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Maybe (TargetList) -- targetList + -> m () -- result +widgetDragSourceSetTargetList _obj targetList = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeTargetList <- case targetList of + Nothing -> return nullPtr + Just jTargetList -> do + let jTargetList' = unsafeManagedPtrGetPtr jTargetList + return jTargetList' + gtk_drag_source_set_target_list _obj' maybeTargetList + touchManagedPtr _obj + whenJust targetList touchManagedPtr + return () + +data WidgetDragSourceSetTargetListMethodInfo +instance (signature ~ (Maybe (TargetList) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragSourceSetTargetListMethodInfo a signature where + overloadedMethod _ = widgetDragSourceSetTargetList + +-- method Widget::drag_source_unset +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_drag_source_unset" gtk_drag_source_unset :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetDragSourceUnset :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetDragSourceUnset _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_drag_source_unset _obj' + touchManagedPtr _obj + return () + +data WidgetDragSourceUnsetMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragSourceUnsetMethodInfo a signature where + overloadedMethod _ = widgetDragSourceUnset + +-- method Widget::drag_unhighlight +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_drag_unhighlight" gtk_drag_unhighlight :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetDragUnhighlight :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetDragUnhighlight _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_drag_unhighlight _obj' + touchManagedPtr _obj + return () + +data WidgetDragUnhighlightMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDragUnhighlightMethodInfo a signature where + overloadedMethod _ = widgetDragUnhighlight + +-- method Widget::draw +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_draw" gtk_widget_draw :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" + IO () + + +widgetDraw :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Cairo.Context -- cr + -> m () -- result +widgetDraw _obj cr = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let cr' = unsafeManagedPtrGetPtr cr + gtk_widget_draw _obj' cr' + touchManagedPtr _obj + touchManagedPtr cr + return () + +data WidgetDrawMethodInfo +instance (signature ~ (Cairo.Context -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetDrawMethodInfo a signature where + overloadedMethod _ = widgetDraw + +-- method Widget::ensure_style +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_ensure_style" gtk_widget_ensure_style :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + +{-# DEPRECATED widgetEnsureStyle ["(Since version 3.0)","Use #GtkStyleContext instead"]#-} +widgetEnsureStyle :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetEnsureStyle _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_ensure_style _obj' + touchManagedPtr _obj + return () + +data WidgetEnsureStyleMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetEnsureStyleMethodInfo a signature where + overloadedMethod _ = widgetEnsureStyle + +-- method Widget::error_bell +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_error_bell" gtk_widget_error_bell :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetErrorBell :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetErrorBell _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_error_bell _obj' + touchManagedPtr _obj + return () + +data WidgetErrorBellMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetErrorBellMethodInfo a signature where + overloadedMethod _ = widgetErrorBell + +-- method Widget::event +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_event" gtk_widget_event :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Gdk.Event -> -- event : TInterface "Gdk" "Event" + IO CInt + + +widgetEvent :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Gdk.Event -- event + -> m Bool -- result +widgetEvent _obj event = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let event' = unsafeManagedPtrGetPtr event + result <- gtk_widget_event _obj' event' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr event + return result' + +data WidgetEventMethodInfo +instance (signature ~ (Gdk.Event -> m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetEventMethodInfo a signature where + overloadedMethod _ = widgetEvent + +-- method Widget::freeze_child_notify +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_freeze_child_notify" gtk_widget_freeze_child_notify :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetFreezeChildNotify :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetFreezeChildNotify _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_freeze_child_notify _obj' + touchManagedPtr _obj + return () + +data WidgetFreezeChildNotifyMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetFreezeChildNotifyMethodInfo a signature where + overloadedMethod _ = widgetFreezeChildNotify + +-- method Widget::get_accessible +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface "Atk" "Object") +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_accessible" gtk_widget_get_accessible :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO (Ptr Atk.Object) + + +widgetGetAccessible :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Atk.Object -- result +widgetGetAccessible _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_accessible _obj' + checkUnexpectedReturnNULL "gtk_widget_get_accessible" result + result' <- (newObject Atk.Object) result + touchManagedPtr _obj + return result' + +data WidgetGetAccessibleMethodInfo +instance (signature ~ (m Atk.Object), MonadIO m, WidgetK a) => MethodInfo WidgetGetAccessibleMethodInfo a signature where + overloadedMethod _ = widgetGetAccessible + +-- method Widget::get_action_group +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "prefix", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface "Gio" "ActionGroup") +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_action_group" gtk_widget_get_action_group :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CString -> -- prefix : TBasicType TUTF8 + IO (Ptr Gio.ActionGroup) + + +widgetGetActionGroup :: + (MonadIO m, WidgetK a) => + a -- _obj + -> T.Text -- prefix + -> m (Maybe Gio.ActionGroup) -- result +widgetGetActionGroup _obj prefix = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + prefix' <- textToCString prefix + result <- gtk_widget_get_action_group _obj' prefix' + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (newObject Gio.ActionGroup) result' + return result'' + touchManagedPtr _obj + freeMem prefix' + return maybeResult + +data WidgetGetActionGroupMethodInfo +instance (signature ~ (T.Text -> m (Maybe Gio.ActionGroup)), MonadIO m, WidgetK a) => MethodInfo WidgetGetActionGroupMethodInfo a signature where + overloadedMethod _ = widgetGetActionGroup + +-- method Widget::get_allocated_baseline +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_allocated_baseline" gtk_widget_get_allocated_baseline :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO Int32 + + +widgetGetAllocatedBaseline :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Int32 -- result +widgetGetAllocatedBaseline _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_allocated_baseline _obj' + touchManagedPtr _obj + return result + +data WidgetGetAllocatedBaselineMethodInfo +instance (signature ~ (m Int32), MonadIO m, WidgetK a) => MethodInfo WidgetGetAllocatedBaselineMethodInfo a signature where + overloadedMethod _ = widgetGetAllocatedBaseline + +-- method Widget::get_allocated_height +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_allocated_height" gtk_widget_get_allocated_height :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO Int32 + + +widgetGetAllocatedHeight :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Int32 -- result +widgetGetAllocatedHeight _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_allocated_height _obj' + touchManagedPtr _obj + return result + +data WidgetGetAllocatedHeightMethodInfo +instance (signature ~ (m Int32), MonadIO m, WidgetK a) => MethodInfo WidgetGetAllocatedHeightMethodInfo a signature where + overloadedMethod _ = widgetGetAllocatedHeight + +-- method Widget::get_allocated_width +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_allocated_width" gtk_widget_get_allocated_width :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO Int32 + + +widgetGetAllocatedWidth :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Int32 -- result +widgetGetAllocatedWidth _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_allocated_width _obj' + touchManagedPtr _obj + return result + +data WidgetGetAllocatedWidthMethodInfo +instance (signature ~ (m Int32), MonadIO m, WidgetK a) => MethodInfo WidgetGetAllocatedWidthMethodInfo a signature where + overloadedMethod _ = widgetGetAllocatedWidth + +-- method Widget::get_allocation +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allocation", 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 "gtk_widget_get_allocation" gtk_widget_get_allocation :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Gdk.Rectangle -> -- allocation : TInterface "Gdk" "Rectangle" + IO () + + +widgetGetAllocation :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m (Gdk.Rectangle) -- result +widgetGetAllocation _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + allocation <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) + gtk_widget_get_allocation _obj' allocation + allocation' <- (wrapBoxed Gdk.Rectangle) allocation + touchManagedPtr _obj + return allocation' + +data WidgetGetAllocationMethodInfo +instance (signature ~ (m (Gdk.Rectangle)), MonadIO m, WidgetK a) => MethodInfo WidgetGetAllocationMethodInfo a signature where + overloadedMethod _ = widgetGetAllocation + +-- method Widget::get_ancestor +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface "Gtk" "Widget") +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_ancestor" gtk_widget_get_ancestor :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CGType -> -- widget_type : TBasicType TGType + IO (Ptr Widget) + + +widgetGetAncestor :: + (MonadIO m, WidgetK a) => + a -- _obj + -> GType -- widgetType + -> m (Maybe Widget) -- result +widgetGetAncestor _obj widgetType = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let widgetType' = gtypeToCGType widgetType + result <- gtk_widget_get_ancestor _obj' widgetType' + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (newObject Widget) result' + return result'' + touchManagedPtr _obj + return maybeResult + +data WidgetGetAncestorMethodInfo +instance (signature ~ (GType -> m (Maybe Widget)), MonadIO m, WidgetK a) => MethodInfo WidgetGetAncestorMethodInfo a signature where + overloadedMethod _ = widgetGetAncestor + +-- method Widget::get_app_paintable +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_app_paintable" gtk_widget_get_app_paintable :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetGetAppPaintable :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetGetAppPaintable _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_app_paintable _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetGetAppPaintableMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetAppPaintableMethodInfo a signature where + overloadedMethod _ = widgetGetAppPaintable + +-- method Widget::get_can_default +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_can_default" gtk_widget_get_can_default :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetGetCanDefault :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetGetCanDefault _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_can_default _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetGetCanDefaultMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetCanDefaultMethodInfo a signature where + overloadedMethod _ = widgetGetCanDefault + +-- method Widget::get_can_focus +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_can_focus" gtk_widget_get_can_focus :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetGetCanFocus :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetGetCanFocus _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_can_focus _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetGetCanFocusMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetCanFocusMethodInfo a signature where + overloadedMethod _ = widgetGetCanFocus + +-- method Widget::get_child_requisition +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "requisition", argType = TInterface "Gtk" "Requisition", 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 "gtk_widget_get_child_requisition" gtk_widget_get_child_requisition :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Requisition -> -- requisition : TInterface "Gtk" "Requisition" + IO () + +{-# DEPRECATED widgetGetChildRequisition ["(Since version 3.0)","Use gtk_widget_get_preferred_size() instead."]#-} +widgetGetChildRequisition :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m (Requisition) -- result +widgetGetChildRequisition _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + requisition <- callocBoxedBytes 8 :: IO (Ptr Requisition) + gtk_widget_get_child_requisition _obj' requisition + requisition' <- (wrapBoxed Requisition) requisition + touchManagedPtr _obj + return requisition' + +data WidgetGetChildRequisitionMethodInfo +instance (signature ~ (m (Requisition)), MonadIO m, WidgetK a) => MethodInfo WidgetGetChildRequisitionMethodInfo a signature where + overloadedMethod _ = widgetGetChildRequisition + +-- method Widget::get_child_visible +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_child_visible" gtk_widget_get_child_visible :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetGetChildVisible :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetGetChildVisible _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_child_visible _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetGetChildVisibleMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetChildVisibleMethodInfo a signature where + overloadedMethod _ = widgetGetChildVisible + +-- method Widget::get_clip +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "clip", 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 "gtk_widget_get_clip" gtk_widget_get_clip :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Gdk.Rectangle -> -- clip : TInterface "Gdk" "Rectangle" + IO () + + +widgetGetClip :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m (Gdk.Rectangle) -- result +widgetGetClip _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + clip <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle) + gtk_widget_get_clip _obj' clip + clip' <- (wrapBoxed Gdk.Rectangle) clip + touchManagedPtr _obj + return clip' + +data WidgetGetClipMethodInfo +instance (signature ~ (m (Gdk.Rectangle)), MonadIO m, WidgetK a) => MethodInfo WidgetGetClipMethodInfo a signature where + overloadedMethod _ = widgetGetClip + +-- method Widget::get_clipboard +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "Gtk" "Clipboard") +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_clipboard" gtk_widget_get_clipboard :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Gdk.Atom -> -- selection : TInterface "Gdk" "Atom" + IO (Ptr Clipboard) + + +widgetGetClipboard :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Gdk.Atom -- selection + -> m Clipboard -- result +widgetGetClipboard _obj selection = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let selection' = unsafeManagedPtrGetPtr selection + result <- gtk_widget_get_clipboard _obj' selection' + checkUnexpectedReturnNULL "gtk_widget_get_clipboard" result + result' <- (newObject Clipboard) result + touchManagedPtr _obj + touchManagedPtr selection + return result' + +data WidgetGetClipboardMethodInfo +instance (signature ~ (Gdk.Atom -> m Clipboard), MonadIO m, WidgetK a) => MethodInfo WidgetGetClipboardMethodInfo a signature where + overloadedMethod _ = widgetGetClipboard + +-- method Widget::get_composite_name +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_composite_name" gtk_widget_get_composite_name :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CString + +{-# DEPRECATED widgetGetCompositeName ["(Since version 3.10)","Use gtk_widget_class_set_template(), or don\8217t use this API at all."]#-} +widgetGetCompositeName :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m T.Text -- result +widgetGetCompositeName _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_composite_name _obj' + checkUnexpectedReturnNULL "gtk_widget_get_composite_name" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +data WidgetGetCompositeNameMethodInfo +instance (signature ~ (m T.Text), MonadIO m, WidgetK a) => MethodInfo WidgetGetCompositeNameMethodInfo a signature where + overloadedMethod _ = widgetGetCompositeName + +-- method Widget::get_device_enabled +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_device_enabled" gtk_widget_get_device_enabled :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Gdk.Device -> -- device : TInterface "Gdk" "Device" + IO CInt + + +widgetGetDeviceEnabled :: + (MonadIO m, WidgetK a, Gdk.DeviceK b) => + a -- _obj + -> b -- device + -> m Bool -- result +widgetGetDeviceEnabled _obj device = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let device' = unsafeManagedPtrCastPtr device + result <- gtk_widget_get_device_enabled _obj' device' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr device + return result' + +data WidgetGetDeviceEnabledMethodInfo +instance (signature ~ (b -> m Bool), MonadIO m, WidgetK a, Gdk.DeviceK b) => MethodInfo WidgetGetDeviceEnabledMethodInfo a signature where + overloadedMethod _ = widgetGetDeviceEnabled + +-- method Widget::get_device_events +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_device_events" gtk_widget_get_device_events :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Gdk.Device -> -- device : TInterface "Gdk" "Device" + IO CUInt + + +widgetGetDeviceEvents :: + (MonadIO m, WidgetK a, Gdk.DeviceK b) => + a -- _obj + -> b -- device + -> m [Gdk.EventMask] -- result +widgetGetDeviceEvents _obj device = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let device' = unsafeManagedPtrCastPtr device + result <- gtk_widget_get_device_events _obj' device' + let result' = wordToGFlags result + touchManagedPtr _obj + touchManagedPtr device + return result' + +data WidgetGetDeviceEventsMethodInfo +instance (signature ~ (b -> m [Gdk.EventMask]), MonadIO m, WidgetK a, Gdk.DeviceK b) => MethodInfo WidgetGetDeviceEventsMethodInfo a signature where + overloadedMethod _ = widgetGetDeviceEvents + +-- method Widget::get_direction +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface "Gtk" "TextDirection") +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_direction" gtk_widget_get_direction :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CUInt + + +widgetGetDirection :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m TextDirection -- result +widgetGetDirection _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_direction _obj' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + +data WidgetGetDirectionMethodInfo +instance (signature ~ (m TextDirection), MonadIO m, WidgetK a) => MethodInfo WidgetGetDirectionMethodInfo a signature where + overloadedMethod _ = widgetGetDirection + +-- method Widget::get_display +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_display" gtk_widget_get_display :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO (Ptr Gdk.Display) + + +widgetGetDisplay :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Gdk.Display -- result +widgetGetDisplay _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_display _obj' + checkUnexpectedReturnNULL "gtk_widget_get_display" result + result' <- (newObject Gdk.Display) result + touchManagedPtr _obj + return result' + +data WidgetGetDisplayMethodInfo +instance (signature ~ (m Gdk.Display), MonadIO m, WidgetK a) => MethodInfo WidgetGetDisplayMethodInfo a signature where + overloadedMethod _ = widgetGetDisplay + +-- method Widget::get_double_buffered +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_double_buffered" gtk_widget_get_double_buffered :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetGetDoubleBuffered :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetGetDoubleBuffered _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_double_buffered _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetGetDoubleBufferedMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetDoubleBufferedMethodInfo a signature where + overloadedMethod _ = widgetGetDoubleBuffered + +-- method Widget::get_events +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_events" gtk_widget_get_events :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO Int32 + + +widgetGetEvents :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Int32 -- result +widgetGetEvents _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_events _obj' + touchManagedPtr _obj + return result + +data WidgetGetEventsMethodInfo +instance (signature ~ (m Int32), MonadIO m, WidgetK a) => MethodInfo WidgetGetEventsMethodInfo a signature where + overloadedMethod _ = widgetGetEvents + +-- method Widget::get_font_map +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface "Pango" "FontMap") +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_font_map" gtk_widget_get_font_map :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO (Ptr Pango.FontMap) + + +widgetGetFontMap :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m (Maybe Pango.FontMap) -- result +widgetGetFontMap _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_font_map _obj' + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (newObject Pango.FontMap) result' + return result'' + touchManagedPtr _obj + return maybeResult + +data WidgetGetFontMapMethodInfo +instance (signature ~ (m (Maybe Pango.FontMap)), MonadIO m, WidgetK a) => MethodInfo WidgetGetFontMapMethodInfo a signature where + overloadedMethod _ = widgetGetFontMap + +-- method Widget::get_font_options +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_font_options" gtk_widget_get_font_options :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO (Ptr Cairo.FontOptions) + + +widgetGetFontOptions :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m (Maybe Cairo.FontOptions) -- result +widgetGetFontOptions _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_font_options _obj' + maybeResult <- convertIfNonNull result $ \result' -> do + -- XXX Wrapping a foreign struct/union with no known destructor, leak? + result'' <- (\x -> Cairo.FontOptions <$> newForeignPtr_ x) result' + return result'' + touchManagedPtr _obj + return maybeResult + +data WidgetGetFontOptionsMethodInfo +instance (signature ~ (m (Maybe Cairo.FontOptions)), MonadIO m, WidgetK a) => MethodInfo WidgetGetFontOptionsMethodInfo a signature where + overloadedMethod _ = widgetGetFontOptions + +-- method Widget::get_frame_clock +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_frame_clock" gtk_widget_get_frame_clock :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO (Ptr Gdk.FrameClock) + + +widgetGetFrameClock :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Gdk.FrameClock -- result +widgetGetFrameClock _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_frame_clock _obj' + checkUnexpectedReturnNULL "gtk_widget_get_frame_clock" result + result' <- (newObject Gdk.FrameClock) result + touchManagedPtr _obj + return result' + +data WidgetGetFrameClockMethodInfo +instance (signature ~ (m Gdk.FrameClock), MonadIO m, WidgetK a) => MethodInfo WidgetGetFrameClockMethodInfo a signature where + overloadedMethod _ = widgetGetFrameClock + +-- method Widget::get_halign +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface "Gtk" "Align") +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_halign" gtk_widget_get_halign :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CUInt + + +widgetGetHalign :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Align -- result +widgetGetHalign _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_halign _obj' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + +data WidgetGetHalignMethodInfo +instance (signature ~ (m Align), MonadIO m, WidgetK a) => MethodInfo WidgetGetHalignMethodInfo a signature where + overloadedMethod _ = widgetGetHalign + +-- method Widget::get_has_tooltip +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_has_tooltip" gtk_widget_get_has_tooltip :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetGetHasTooltip :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetGetHasTooltip _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_has_tooltip _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetGetHasTooltipMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetHasTooltipMethodInfo a signature where + overloadedMethod _ = widgetGetHasTooltip + +-- method Widget::get_has_window +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_has_window" gtk_widget_get_has_window :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetGetHasWindow :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetGetHasWindow _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_has_window _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetGetHasWindowMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetHasWindowMethodInfo a signature where + overloadedMethod _ = widgetGetHasWindow + +-- method Widget::get_hexpand +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_hexpand" gtk_widget_get_hexpand :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetGetHexpand :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetGetHexpand _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_hexpand _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetGetHexpandMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetHexpandMethodInfo a signature where + overloadedMethod _ = widgetGetHexpand + +-- method Widget::get_hexpand_set +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_hexpand_set" gtk_widget_get_hexpand_set :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetGetHexpandSet :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetGetHexpandSet _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_hexpand_set _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetGetHexpandSetMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetHexpandSetMethodInfo a signature where + overloadedMethod _ = widgetGetHexpandSet + +-- method Widget::get_mapped +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_mapped" gtk_widget_get_mapped :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetGetMapped :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetGetMapped _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_mapped _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetGetMappedMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetMappedMethodInfo a signature where + overloadedMethod _ = widgetGetMapped + +-- method Widget::get_margin_bottom +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_margin_bottom" gtk_widget_get_margin_bottom :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO Int32 + + +widgetGetMarginBottom :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Int32 -- result +widgetGetMarginBottom _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_margin_bottom _obj' + touchManagedPtr _obj + return result + +data WidgetGetMarginBottomMethodInfo +instance (signature ~ (m Int32), MonadIO m, WidgetK a) => MethodInfo WidgetGetMarginBottomMethodInfo a signature where + overloadedMethod _ = widgetGetMarginBottom + +-- method Widget::get_margin_end +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_margin_end" gtk_widget_get_margin_end :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO Int32 + + +widgetGetMarginEnd :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Int32 -- result +widgetGetMarginEnd _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_margin_end _obj' + touchManagedPtr _obj + return result + +data WidgetGetMarginEndMethodInfo +instance (signature ~ (m Int32), MonadIO m, WidgetK a) => MethodInfo WidgetGetMarginEndMethodInfo a signature where + overloadedMethod _ = widgetGetMarginEnd + +-- method Widget::get_margin_left +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_margin_left" gtk_widget_get_margin_left :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO Int32 + +{-# DEPRECATED widgetGetMarginLeft ["(Since version 3.12)","Use gtk_widget_get_margin_start() instead."]#-} +widgetGetMarginLeft :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Int32 -- result +widgetGetMarginLeft _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_margin_left _obj' + touchManagedPtr _obj + return result + +data WidgetGetMarginLeftMethodInfo +instance (signature ~ (m Int32), MonadIO m, WidgetK a) => MethodInfo WidgetGetMarginLeftMethodInfo a signature where + overloadedMethod _ = widgetGetMarginLeft + +-- method Widget::get_margin_right +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_margin_right" gtk_widget_get_margin_right :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO Int32 + +{-# DEPRECATED widgetGetMarginRight ["(Since version 3.12)","Use gtk_widget_get_margin_end() instead."]#-} +widgetGetMarginRight :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Int32 -- result +widgetGetMarginRight _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_margin_right _obj' + touchManagedPtr _obj + return result + +data WidgetGetMarginRightMethodInfo +instance (signature ~ (m Int32), MonadIO m, WidgetK a) => MethodInfo WidgetGetMarginRightMethodInfo a signature where + overloadedMethod _ = widgetGetMarginRight + +-- method Widget::get_margin_start +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_margin_start" gtk_widget_get_margin_start :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO Int32 + + +widgetGetMarginStart :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Int32 -- result +widgetGetMarginStart _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_margin_start _obj' + touchManagedPtr _obj + return result + +data WidgetGetMarginStartMethodInfo +instance (signature ~ (m Int32), MonadIO m, WidgetK a) => MethodInfo WidgetGetMarginStartMethodInfo a signature where + overloadedMethod _ = widgetGetMarginStart + +-- method Widget::get_margin_top +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_margin_top" gtk_widget_get_margin_top :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO Int32 + + +widgetGetMarginTop :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Int32 -- result +widgetGetMarginTop _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_margin_top _obj' + touchManagedPtr _obj + return result + +data WidgetGetMarginTopMethodInfo +instance (signature ~ (m Int32), MonadIO m, WidgetK a) => MethodInfo WidgetGetMarginTopMethodInfo a signature where + overloadedMethod _ = widgetGetMarginTop + +-- method Widget::get_modifier_mask +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_modifier_mask" gtk_widget_get_modifier_mask :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CUInt -> -- intent : TInterface "Gdk" "ModifierIntent" + IO CUInt + + +widgetGetModifierMask :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Gdk.ModifierIntent -- intent + -> m [Gdk.ModifierType] -- result +widgetGetModifierMask _obj intent = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let intent' = (fromIntegral . fromEnum) intent + result <- gtk_widget_get_modifier_mask _obj' intent' + let result' = wordToGFlags result + touchManagedPtr _obj + return result' + +data WidgetGetModifierMaskMethodInfo +instance (signature ~ (Gdk.ModifierIntent -> m [Gdk.ModifierType]), MonadIO m, WidgetK a) => MethodInfo WidgetGetModifierMaskMethodInfo a signature where + overloadedMethod _ = widgetGetModifierMask + +-- method Widget::get_modifier_style +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface "Gtk" "RcStyle") +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_modifier_style" gtk_widget_get_modifier_style :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO (Ptr RcStyle) + +{-# DEPRECATED widgetGetModifierStyle ["(Since version 3.0)","Use #GtkStyleContext with a custom #GtkStyleProvider instead"]#-} +widgetGetModifierStyle :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m RcStyle -- result +widgetGetModifierStyle _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_modifier_style _obj' + checkUnexpectedReturnNULL "gtk_widget_get_modifier_style" result + result' <- (newObject RcStyle) result + touchManagedPtr _obj + return result' + +data WidgetGetModifierStyleMethodInfo +instance (signature ~ (m RcStyle), MonadIO m, WidgetK a) => MethodInfo WidgetGetModifierStyleMethodInfo a signature where + overloadedMethod _ = widgetGetModifierStyle + +-- method Widget::get_name +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_name" gtk_widget_get_name :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CString + + +widgetGetName :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m T.Text -- result +widgetGetName _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_name _obj' + checkUnexpectedReturnNULL "gtk_widget_get_name" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +data WidgetGetNameMethodInfo +instance (signature ~ (m T.Text), MonadIO m, WidgetK a) => MethodInfo WidgetGetNameMethodInfo a signature where + overloadedMethod _ = widgetGetName + +-- method Widget::get_no_show_all +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_no_show_all" gtk_widget_get_no_show_all :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetGetNoShowAll :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetGetNoShowAll _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_no_show_all _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetGetNoShowAllMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetNoShowAllMethodInfo a signature where + overloadedMethod _ = widgetGetNoShowAll + +-- method Widget::get_opacity +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_opacity" gtk_widget_get_opacity :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CDouble + + +widgetGetOpacity :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Double -- result +widgetGetOpacity _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_opacity _obj' + let result' = realToFrac result + touchManagedPtr _obj + return result' + +data WidgetGetOpacityMethodInfo +instance (signature ~ (m Double), MonadIO m, WidgetK a) => MethodInfo WidgetGetOpacityMethodInfo a signature where + overloadedMethod _ = widgetGetOpacity + +-- method Widget::get_pango_context +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_pango_context" gtk_widget_get_pango_context :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO (Ptr Pango.Context) + + +widgetGetPangoContext :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Pango.Context -- result +widgetGetPangoContext _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_pango_context _obj' + checkUnexpectedReturnNULL "gtk_widget_get_pango_context" result + result' <- (newObject Pango.Context) result + touchManagedPtr _obj + return result' + +data WidgetGetPangoContextMethodInfo +instance (signature ~ (m Pango.Context), MonadIO m, WidgetK a) => MethodInfo WidgetGetPangoContextMethodInfo a signature where + overloadedMethod _ = widgetGetPangoContext + +-- method Widget::get_parent +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface "Gtk" "Widget") +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_parent" gtk_widget_get_parent :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO (Ptr Widget) + + +widgetGetParent :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m (Maybe Widget) -- result +widgetGetParent _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_parent _obj' + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (newObject Widget) result' + return result'' + touchManagedPtr _obj + return maybeResult + +data WidgetGetParentMethodInfo +instance (signature ~ (m (Maybe Widget)), MonadIO m, WidgetK a) => MethodInfo WidgetGetParentMethodInfo a signature where + overloadedMethod _ = widgetGetParent + +-- method Widget::get_parent_window +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_parent_window" gtk_widget_get_parent_window :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO (Ptr Gdk.Window) + + +widgetGetParentWindow :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Gdk.Window -- result +widgetGetParentWindow _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_parent_window _obj' + checkUnexpectedReturnNULL "gtk_widget_get_parent_window" result + result' <- (newObject Gdk.Window) result + touchManagedPtr _obj + return result' + +data WidgetGetParentWindowMethodInfo +instance (signature ~ (m Gdk.Window), MonadIO m, WidgetK a) => MethodInfo WidgetGetParentWindowMethodInfo a signature where + overloadedMethod _ = widgetGetParentWindow + +-- method Widget::get_path +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface "Gtk" "WidgetPath") +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_path" gtk_widget_get_path :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO (Ptr WidgetPath) + + +widgetGetPath :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m WidgetPath -- result +widgetGetPath _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_path _obj' + checkUnexpectedReturnNULL "gtk_widget_get_path" result + result' <- (newBoxed WidgetPath) result + touchManagedPtr _obj + return result' + +data WidgetGetPathMethodInfo +instance (signature ~ (m WidgetPath), MonadIO m, WidgetK a) => MethodInfo WidgetGetPathMethodInfo a signature where + overloadedMethod _ = widgetGetPath + +-- method Widget::get_pointer +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_pointer" gtk_widget_get_pointer :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Int32 -> -- x : TBasicType TInt + Ptr Int32 -> -- y : TBasicType TInt + IO () + +{-# DEPRECATED widgetGetPointer ["(Since version 3.4)","Use gdk_window_get_device_position() instead."]#-} +widgetGetPointer :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m (Int32,Int32) -- result +widgetGetPointer _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + x <- allocMem :: IO (Ptr Int32) + y <- allocMem :: IO (Ptr Int32) + gtk_widget_get_pointer _obj' x y + x' <- peek x + y' <- peek y + touchManagedPtr _obj + freeMem x + freeMem y + return (x', y') + +data WidgetGetPointerMethodInfo +instance (signature ~ (m (Int32,Int32)), MonadIO m, WidgetK a) => MethodInfo WidgetGetPointerMethodInfo a signature where + overloadedMethod _ = widgetGetPointer + +-- method Widget::get_preferred_height +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_height", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_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 "gtk_widget_get_preferred_height" gtk_widget_get_preferred_height :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Int32 -> -- minimum_height : TBasicType TInt + Ptr Int32 -> -- natural_height : TBasicType TInt + IO () + + +widgetGetPreferredHeight :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m (Int32,Int32) -- result +widgetGetPreferredHeight _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + minimumHeight <- allocMem :: IO (Ptr Int32) + naturalHeight <- allocMem :: IO (Ptr Int32) + gtk_widget_get_preferred_height _obj' minimumHeight naturalHeight + minimumHeight' <- peek minimumHeight + naturalHeight' <- peek naturalHeight + touchManagedPtr _obj + freeMem minimumHeight + freeMem naturalHeight + return (minimumHeight', naturalHeight') + +data WidgetGetPreferredHeightMethodInfo +instance (signature ~ (m (Int32,Int32)), MonadIO m, WidgetK a) => MethodInfo WidgetGetPreferredHeightMethodInfo a signature where + overloadedMethod _ = widgetGetPreferredHeight + +-- method Widget::get_preferred_height_and_baseline_for_width +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 = "minimum_height", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_height", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "minimum_baseline", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_baseline", 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 "gtk_widget_get_preferred_height_and_baseline_for_width" gtk_widget_get_preferred_height_and_baseline_for_width :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Int32 -> -- width : TBasicType TInt + Ptr Int32 -> -- minimum_height : TBasicType TInt + Ptr Int32 -> -- natural_height : TBasicType TInt + Ptr Int32 -> -- minimum_baseline : TBasicType TInt + Ptr Int32 -> -- natural_baseline : TBasicType TInt + IO () + + +widgetGetPreferredHeightAndBaselineForWidth :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Int32 -- width + -> m (Int32,Int32,Int32,Int32) -- result +widgetGetPreferredHeightAndBaselineForWidth _obj width = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + minimumHeight <- allocMem :: IO (Ptr Int32) + naturalHeight <- allocMem :: IO (Ptr Int32) + minimumBaseline <- allocMem :: IO (Ptr Int32) + naturalBaseline <- allocMem :: IO (Ptr Int32) + gtk_widget_get_preferred_height_and_baseline_for_width _obj' width minimumHeight naturalHeight minimumBaseline naturalBaseline + minimumHeight' <- peek minimumHeight + naturalHeight' <- peek naturalHeight + minimumBaseline' <- peek minimumBaseline + naturalBaseline' <- peek naturalBaseline + touchManagedPtr _obj + freeMem minimumHeight + freeMem naturalHeight + freeMem minimumBaseline + freeMem naturalBaseline + return (minimumHeight', naturalHeight', minimumBaseline', naturalBaseline') + +data WidgetGetPreferredHeightAndBaselineForWidthMethodInfo +instance (signature ~ (Int32 -> m (Int32,Int32,Int32,Int32)), MonadIO m, WidgetK a) => MethodInfo WidgetGetPreferredHeightAndBaselineForWidthMethodInfo a signature where + overloadedMethod _ = widgetGetPreferredHeightAndBaselineForWidth + +-- method Widget::get_preferred_height_for_width +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 = "minimum_height", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_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 "gtk_widget_get_preferred_height_for_width" gtk_widget_get_preferred_height_for_width :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Int32 -> -- width : TBasicType TInt + Ptr Int32 -> -- minimum_height : TBasicType TInt + Ptr Int32 -> -- natural_height : TBasicType TInt + IO () + + +widgetGetPreferredHeightForWidth :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Int32 -- width + -> m (Int32,Int32) -- result +widgetGetPreferredHeightForWidth _obj width = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + minimumHeight <- allocMem :: IO (Ptr Int32) + naturalHeight <- allocMem :: IO (Ptr Int32) + gtk_widget_get_preferred_height_for_width _obj' width minimumHeight naturalHeight + minimumHeight' <- peek minimumHeight + naturalHeight' <- peek naturalHeight + touchManagedPtr _obj + freeMem minimumHeight + freeMem naturalHeight + return (minimumHeight', naturalHeight') + +data WidgetGetPreferredHeightForWidthMethodInfo +instance (signature ~ (Int32 -> m (Int32,Int32)), MonadIO m, WidgetK a) => MethodInfo WidgetGetPreferredHeightForWidthMethodInfo a signature where + overloadedMethod _ = widgetGetPreferredHeightForWidth + +-- method Widget::get_preferred_size +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_size", argType = TInterface "Gtk" "Requisition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "natural_size", argType = TInterface "Gtk" "Requisition", 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 "gtk_widget_get_preferred_size" gtk_widget_get_preferred_size :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Requisition -> -- minimum_size : TInterface "Gtk" "Requisition" + Ptr Requisition -> -- natural_size : TInterface "Gtk" "Requisition" + IO () + + +widgetGetPreferredSize :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m (Requisition,Requisition) -- result +widgetGetPreferredSize _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + minimumSize <- callocBoxedBytes 8 :: IO (Ptr Requisition) + naturalSize <- callocBoxedBytes 8 :: IO (Ptr Requisition) + gtk_widget_get_preferred_size _obj' minimumSize naturalSize + minimumSize' <- (wrapBoxed Requisition) minimumSize + naturalSize' <- (wrapBoxed Requisition) naturalSize + touchManagedPtr _obj + return (minimumSize', naturalSize') + +data WidgetGetPreferredSizeMethodInfo +instance (signature ~ (m (Requisition,Requisition)), MonadIO m, WidgetK a) => MethodInfo WidgetGetPreferredSizeMethodInfo a signature where + overloadedMethod _ = widgetGetPreferredSize + +-- method Widget::get_preferred_width +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minimum_width", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_width", 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 "gtk_widget_get_preferred_width" gtk_widget_get_preferred_width :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Int32 -> -- minimum_width : TBasicType TInt + Ptr Int32 -> -- natural_width : TBasicType TInt + IO () + + +widgetGetPreferredWidth :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m (Int32,Int32) -- result +widgetGetPreferredWidth _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + minimumWidth <- allocMem :: IO (Ptr Int32) + naturalWidth <- allocMem :: IO (Ptr Int32) + gtk_widget_get_preferred_width _obj' minimumWidth naturalWidth + minimumWidth' <- peek minimumWidth + naturalWidth' <- peek naturalWidth + touchManagedPtr _obj + freeMem minimumWidth + freeMem naturalWidth + return (minimumWidth', naturalWidth') + +data WidgetGetPreferredWidthMethodInfo +instance (signature ~ (m (Int32,Int32)), MonadIO m, WidgetK a) => MethodInfo WidgetGetPreferredWidthMethodInfo a signature where + overloadedMethod _ = widgetGetPreferredWidth + +-- method Widget::get_preferred_width_for_height +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 = "minimum_width", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "natural_width", 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 "gtk_widget_get_preferred_width_for_height" gtk_widget_get_preferred_width_for_height :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Int32 -> -- height : TBasicType TInt + Ptr Int32 -> -- minimum_width : TBasicType TInt + Ptr Int32 -> -- natural_width : TBasicType TInt + IO () + + +widgetGetPreferredWidthForHeight :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Int32 -- height + -> m (Int32,Int32) -- result +widgetGetPreferredWidthForHeight _obj height = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + minimumWidth <- allocMem :: IO (Ptr Int32) + naturalWidth <- allocMem :: IO (Ptr Int32) + gtk_widget_get_preferred_width_for_height _obj' height minimumWidth naturalWidth + minimumWidth' <- peek minimumWidth + naturalWidth' <- peek naturalWidth + touchManagedPtr _obj + freeMem minimumWidth + freeMem naturalWidth + return (minimumWidth', naturalWidth') + +data WidgetGetPreferredWidthForHeightMethodInfo +instance (signature ~ (Int32 -> m (Int32,Int32)), MonadIO m, WidgetK a) => MethodInfo WidgetGetPreferredWidthForHeightMethodInfo a signature where + overloadedMethod _ = widgetGetPreferredWidthForHeight + +-- method Widget::get_realized +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_realized" gtk_widget_get_realized :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetGetRealized :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetGetRealized _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_realized _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetGetRealizedMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetRealizedMethodInfo a signature where + overloadedMethod _ = widgetGetRealized + +-- method Widget::get_receives_default +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_receives_default" gtk_widget_get_receives_default :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetGetReceivesDefault :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetGetReceivesDefault _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_receives_default _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetGetReceivesDefaultMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetReceivesDefaultMethodInfo a signature where + overloadedMethod _ = widgetGetReceivesDefault + +-- method Widget::get_request_mode +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface "Gtk" "SizeRequestMode") +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_request_mode" gtk_widget_get_request_mode :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CUInt + + +widgetGetRequestMode :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m SizeRequestMode -- result +widgetGetRequestMode _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_request_mode _obj' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + +data WidgetGetRequestModeMethodInfo +instance (signature ~ (m SizeRequestMode), MonadIO m, WidgetK a) => MethodInfo WidgetGetRequestModeMethodInfo a signature where + overloadedMethod _ = widgetGetRequestMode + +-- method Widget::get_requisition +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "requisition", argType = TInterface "Gtk" "Requisition", 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 "gtk_widget_get_requisition" gtk_widget_get_requisition :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Requisition -> -- requisition : TInterface "Gtk" "Requisition" + IO () + +{-# DEPRECATED widgetGetRequisition ["(Since version 3.0)","The #GtkRequisition cache on the widget was","removed, If you need to cache sizes across requests and allocations,","add an explicit cache to the widget in question instead."]#-} +widgetGetRequisition :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m (Requisition) -- result +widgetGetRequisition _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + requisition <- callocBoxedBytes 8 :: IO (Ptr Requisition) + gtk_widget_get_requisition _obj' requisition + requisition' <- (wrapBoxed Requisition) requisition + touchManagedPtr _obj + return requisition' + +data WidgetGetRequisitionMethodInfo +instance (signature ~ (m (Requisition)), MonadIO m, WidgetK a) => MethodInfo WidgetGetRequisitionMethodInfo a signature where + overloadedMethod _ = widgetGetRequisition + +-- method Widget::get_root_window +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_root_window" gtk_widget_get_root_window :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO (Ptr Gdk.Window) + +{-# DEPRECATED widgetGetRootWindow ["(Since version 3.12)","Use gdk_screen_get_root_window() instead"]#-} +widgetGetRootWindow :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Gdk.Window -- result +widgetGetRootWindow _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_root_window _obj' + checkUnexpectedReturnNULL "gtk_widget_get_root_window" result + result' <- (newObject Gdk.Window) result + touchManagedPtr _obj + return result' + +data WidgetGetRootWindowMethodInfo +instance (signature ~ (m Gdk.Window), MonadIO m, WidgetK a) => MethodInfo WidgetGetRootWindowMethodInfo a signature where + overloadedMethod _ = widgetGetRootWindow + +-- method Widget::get_scale_factor +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_scale_factor" gtk_widget_get_scale_factor :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO Int32 + + +widgetGetScaleFactor :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Int32 -- result +widgetGetScaleFactor _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_scale_factor _obj' + touchManagedPtr _obj + return result + +data WidgetGetScaleFactorMethodInfo +instance (signature ~ (m Int32), MonadIO m, WidgetK a) => MethodInfo WidgetGetScaleFactorMethodInfo a signature where + overloadedMethod _ = widgetGetScaleFactor + +-- method Widget::get_screen +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_screen" gtk_widget_get_screen :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO (Ptr Gdk.Screen) + + +widgetGetScreen :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Gdk.Screen -- result +widgetGetScreen _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_screen _obj' + checkUnexpectedReturnNULL "gtk_widget_get_screen" result + result' <- (newObject Gdk.Screen) result + touchManagedPtr _obj + return result' + +data WidgetGetScreenMethodInfo +instance (signature ~ (m Gdk.Screen), MonadIO m, WidgetK a) => MethodInfo WidgetGetScreenMethodInfo a signature where + overloadedMethod _ = widgetGetScreen + +-- method Widget::get_sensitive +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_sensitive" gtk_widget_get_sensitive :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetGetSensitive :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetGetSensitive _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_sensitive _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetGetSensitiveMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetSensitiveMethodInfo a signature where + overloadedMethod _ = widgetGetSensitive + +-- method Widget::get_settings +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface "Gtk" "Settings") +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_settings" gtk_widget_get_settings :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO (Ptr Settings) + + +widgetGetSettings :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Settings -- result +widgetGetSettings _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_settings _obj' + checkUnexpectedReturnNULL "gtk_widget_get_settings" result + result' <- (newObject Settings) result + touchManagedPtr _obj + return result' + +data WidgetGetSettingsMethodInfo +instance (signature ~ (m Settings), MonadIO m, WidgetK a) => MethodInfo WidgetGetSettingsMethodInfo a signature where + overloadedMethod _ = widgetGetSettings + +-- method Widget::get_size_request +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},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 "gtk_widget_get_size_request" gtk_widget_get_size_request :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Int32 -> -- width : TBasicType TInt + Ptr Int32 -> -- height : TBasicType TInt + IO () + + +widgetGetSizeRequest :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m (Int32,Int32) -- result +widgetGetSizeRequest _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + width <- allocMem :: IO (Ptr Int32) + height <- allocMem :: IO (Ptr Int32) + gtk_widget_get_size_request _obj' width height + width' <- peek width + height' <- peek height + touchManagedPtr _obj + freeMem width + freeMem height + return (width', height') + +data WidgetGetSizeRequestMethodInfo +instance (signature ~ (m (Int32,Int32)), MonadIO m, WidgetK a) => MethodInfo WidgetGetSizeRequestMethodInfo a signature where + overloadedMethod _ = widgetGetSizeRequest + +-- method Widget::get_state +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface "Gtk" "StateType") +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_state" gtk_widget_get_state :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CUInt + +{-# DEPRECATED widgetGetState ["(Since version 3.0)","Use gtk_widget_get_state_flags() instead."]#-} +widgetGetState :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m StateType -- result +widgetGetState _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_state _obj' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + +data WidgetGetStateMethodInfo +instance (signature ~ (m StateType), MonadIO m, WidgetK a) => MethodInfo WidgetGetStateMethodInfo a signature where + overloadedMethod _ = widgetGetState + +-- method Widget::get_state_flags +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface "Gtk" "StateFlags") +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_state_flags" gtk_widget_get_state_flags :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CUInt + + +widgetGetStateFlags :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m [StateFlags] -- result +widgetGetStateFlags _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_state_flags _obj' + let result' = wordToGFlags result + touchManagedPtr _obj + return result' + +data WidgetGetStateFlagsMethodInfo +instance (signature ~ (m [StateFlags]), MonadIO m, WidgetK a) => MethodInfo WidgetGetStateFlagsMethodInfo a signature where + overloadedMethod _ = widgetGetStateFlags + +-- method Widget::get_style +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface "Gtk" "Style") +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_style" gtk_widget_get_style :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO (Ptr Style) + +{-# DEPRECATED widgetGetStyle ["(Since version 3.0)","Use #GtkStyleContext instead"]#-} +widgetGetStyle :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Style -- result +widgetGetStyle _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_style _obj' + checkUnexpectedReturnNULL "gtk_widget_get_style" result + result' <- (newObject Style) result + touchManagedPtr _obj + return result' + +data WidgetGetStyleMethodInfo +instance (signature ~ (m Style), MonadIO m, WidgetK a) => MethodInfo WidgetGetStyleMethodInfo a signature where + overloadedMethod _ = widgetGetStyle + +-- method Widget::get_style_context +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface "Gtk" "StyleContext") +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_style_context" gtk_widget_get_style_context :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO (Ptr StyleContext) + + +widgetGetStyleContext :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m StyleContext -- result +widgetGetStyleContext _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_style_context _obj' + checkUnexpectedReturnNULL "gtk_widget_get_style_context" result + result' <- (newObject StyleContext) result + touchManagedPtr _obj + return result' + +data WidgetGetStyleContextMethodInfo +instance (signature ~ (m StyleContext), MonadIO m, WidgetK a) => MethodInfo WidgetGetStyleContextMethodInfo a signature where + overloadedMethod _ = widgetGetStyleContext + +-- method Widget::get_support_multidevice +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_support_multidevice" gtk_widget_get_support_multidevice :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetGetSupportMultidevice :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetGetSupportMultidevice _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_support_multidevice _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetGetSupportMultideviceMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetSupportMultideviceMethodInfo a signature where + overloadedMethod _ = widgetGetSupportMultidevice + +-- method Widget::get_template_child +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget_type", argType = TBasicType TGType, 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 "GObject" "Object") +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_template_child" gtk_widget_get_template_child :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CGType -> -- widget_type : TBasicType TGType + CString -> -- name : TBasicType TUTF8 + IO (Ptr GObject.Object) + + +widgetGetTemplateChild :: + (MonadIO m, WidgetK a) => + a -- _obj + -> GType -- widgetType + -> T.Text -- name + -> m GObject.Object -- result +widgetGetTemplateChild _obj widgetType name = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let widgetType' = gtypeToCGType widgetType + name' <- textToCString name + result <- gtk_widget_get_template_child _obj' widgetType' name' + checkUnexpectedReturnNULL "gtk_widget_get_template_child" result + result' <- (newObject GObject.Object) result + touchManagedPtr _obj + freeMem name' + return result' + +data WidgetGetTemplateChildMethodInfo +instance (signature ~ (GType -> T.Text -> m GObject.Object), MonadIO m, WidgetK a) => MethodInfo WidgetGetTemplateChildMethodInfo a signature where + overloadedMethod _ = widgetGetTemplateChild + +-- method Widget::get_tooltip_markup +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_tooltip_markup" gtk_widget_get_tooltip_markup :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CString + + +widgetGetTooltipMarkup :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m (Maybe T.Text) -- result +widgetGetTooltipMarkup _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_tooltip_markup _obj' + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- cstringToText result' + freeMem result' + return result'' + touchManagedPtr _obj + return maybeResult + +data WidgetGetTooltipMarkupMethodInfo +instance (signature ~ (m (Maybe T.Text)), MonadIO m, WidgetK a) => MethodInfo WidgetGetTooltipMarkupMethodInfo a signature where + overloadedMethod _ = widgetGetTooltipMarkup + +-- method Widget::get_tooltip_text +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_tooltip_text" gtk_widget_get_tooltip_text :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CString + + +widgetGetTooltipText :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m (Maybe T.Text) -- result +widgetGetTooltipText _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_tooltip_text _obj' + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- cstringToText result' + freeMem result' + return result'' + touchManagedPtr _obj + return maybeResult + +data WidgetGetTooltipTextMethodInfo +instance (signature ~ (m (Maybe T.Text)), MonadIO m, WidgetK a) => MethodInfo WidgetGetTooltipTextMethodInfo a signature where + overloadedMethod _ = widgetGetTooltipText + +-- method Widget::get_tooltip_window +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface "Gtk" "Window") +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_tooltip_window" gtk_widget_get_tooltip_window :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO (Ptr Window) + + +widgetGetTooltipWindow :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Window -- result +widgetGetTooltipWindow _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_tooltip_window _obj' + checkUnexpectedReturnNULL "gtk_widget_get_tooltip_window" result + result' <- (newObject Window) result + touchManagedPtr _obj + return result' + +data WidgetGetTooltipWindowMethodInfo +instance (signature ~ (m Window), MonadIO m, WidgetK a) => MethodInfo WidgetGetTooltipWindowMethodInfo a signature where + overloadedMethod _ = widgetGetTooltipWindow + +-- method Widget::get_toplevel +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface "Gtk" "Widget") +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_toplevel" gtk_widget_get_toplevel :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO (Ptr Widget) + + +widgetGetToplevel :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Widget -- result +widgetGetToplevel _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_toplevel _obj' + checkUnexpectedReturnNULL "gtk_widget_get_toplevel" result + result' <- (newObject Widget) result + touchManagedPtr _obj + return result' + +data WidgetGetToplevelMethodInfo +instance (signature ~ (m Widget), MonadIO m, WidgetK a) => MethodInfo WidgetGetToplevelMethodInfo a signature where + overloadedMethod _ = widgetGetToplevel + +-- method Widget::get_valign +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface "Gtk" "Align") +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_valign" gtk_widget_get_valign :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CUInt + + +widgetGetValign :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Align -- result +widgetGetValign _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_valign _obj' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + +data WidgetGetValignMethodInfo +instance (signature ~ (m Align), MonadIO m, WidgetK a) => MethodInfo WidgetGetValignMethodInfo a signature where + overloadedMethod _ = widgetGetValign + +-- method Widget::get_valign_with_baseline +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface "Gtk" "Align") +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_valign_with_baseline" gtk_widget_get_valign_with_baseline :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CUInt + + +widgetGetValignWithBaseline :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Align -- result +widgetGetValignWithBaseline _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_valign_with_baseline _obj' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + +data WidgetGetValignWithBaselineMethodInfo +instance (signature ~ (m Align), MonadIO m, WidgetK a) => MethodInfo WidgetGetValignWithBaselineMethodInfo a signature where + overloadedMethod _ = widgetGetValignWithBaseline + +-- method Widget::get_vexpand +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_vexpand" gtk_widget_get_vexpand :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetGetVexpand :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetGetVexpand _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_vexpand _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetGetVexpandMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetVexpandMethodInfo a signature where + overloadedMethod _ = widgetGetVexpand + +-- method Widget::get_vexpand_set +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_vexpand_set" gtk_widget_get_vexpand_set :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetGetVexpandSet :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetGetVexpandSet _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_vexpand_set _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetGetVexpandSetMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetVexpandSetMethodInfo a signature where + overloadedMethod _ = widgetGetVexpandSet + +-- method Widget::get_visible +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_visible" gtk_widget_get_visible :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetGetVisible :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetGetVisible _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_visible _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetGetVisibleMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetGetVisibleMethodInfo a signature where + overloadedMethod _ = widgetGetVisible + +-- method Widget::get_visual +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_visual" gtk_widget_get_visual :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO (Ptr Gdk.Visual) + + +widgetGetVisual :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Gdk.Visual -- result +widgetGetVisual _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_visual _obj' + checkUnexpectedReturnNULL "gtk_widget_get_visual" result + result' <- (newObject Gdk.Visual) result + touchManagedPtr _obj + return result' + +data WidgetGetVisualMethodInfo +instance (signature ~ (m Gdk.Visual), MonadIO m, WidgetK a) => MethodInfo WidgetGetVisualMethodInfo a signature where + overloadedMethod _ = widgetGetVisual + +-- method Widget::get_window +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_get_window" gtk_widget_get_window :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO (Ptr Gdk.Window) + + +widgetGetWindow :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Gdk.Window -- result +widgetGetWindow _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_get_window _obj' + checkUnexpectedReturnNULL "gtk_widget_get_window" result + result' <- (newObject Gdk.Window) result + touchManagedPtr _obj + return result' + +data WidgetGetWindowMethodInfo +instance (signature ~ (m Gdk.Window), MonadIO m, WidgetK a) => MethodInfo WidgetGetWindowMethodInfo a signature where + overloadedMethod _ = widgetGetWindow + +-- method Widget::grab_add +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_grab_add" gtk_grab_add :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetGrabAdd :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetGrabAdd _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_grab_add _obj' + touchManagedPtr _obj + return () + +data WidgetGrabAddMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetGrabAddMethodInfo a signature where + overloadedMethod _ = widgetGrabAdd + +-- method Widget::grab_default +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_grab_default" gtk_widget_grab_default :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetGrabDefault :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetGrabDefault _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_grab_default _obj' + touchManagedPtr _obj + return () + +data WidgetGrabDefaultMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetGrabDefaultMethodInfo a signature where + overloadedMethod _ = widgetGrabDefault + +-- method Widget::grab_focus +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_grab_focus" gtk_widget_grab_focus :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetGrabFocus :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetGrabFocus _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_grab_focus _obj' + touchManagedPtr _obj + return () + +data WidgetGrabFocusMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetGrabFocusMethodInfo a signature where + overloadedMethod _ = widgetGrabFocus + +-- method Widget::grab_remove +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_grab_remove" gtk_grab_remove :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetGrabRemove :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetGrabRemove _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_grab_remove _obj' + touchManagedPtr _obj + return () + +data WidgetGrabRemoveMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetGrabRemoveMethodInfo a signature where + overloadedMethod _ = widgetGrabRemove + +-- method Widget::has_default +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_has_default" gtk_widget_has_default :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetHasDefault :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetHasDefault _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_has_default _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetHasDefaultMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetHasDefaultMethodInfo a signature where + overloadedMethod _ = widgetHasDefault + +-- method Widget::has_focus +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_has_focus" gtk_widget_has_focus :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetHasFocus :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetHasFocus _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_has_focus _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetHasFocusMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetHasFocusMethodInfo a signature where + overloadedMethod _ = widgetHasFocus + +-- method Widget::has_grab +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_has_grab" gtk_widget_has_grab :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetHasGrab :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetHasGrab _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_has_grab _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetHasGrabMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetHasGrabMethodInfo a signature where + overloadedMethod _ = widgetHasGrab + +-- method Widget::has_rc_style +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_has_rc_style" gtk_widget_has_rc_style :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + +{-# DEPRECATED widgetHasRcStyle ["(Since version 3.0)","Use #GtkStyleContext instead"]#-} +widgetHasRcStyle :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetHasRcStyle _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_has_rc_style _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetHasRcStyleMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetHasRcStyleMethodInfo a signature where + overloadedMethod _ = widgetHasRcStyle + +-- method Widget::has_screen +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_has_screen" gtk_widget_has_screen :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetHasScreen :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetHasScreen _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_has_screen _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetHasScreenMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetHasScreenMethodInfo a signature where + overloadedMethod _ = widgetHasScreen + +-- method Widget::has_visible_focus +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_has_visible_focus" gtk_widget_has_visible_focus :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetHasVisibleFocus :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetHasVisibleFocus _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_has_visible_focus _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetHasVisibleFocusMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetHasVisibleFocusMethodInfo a signature where + overloadedMethod _ = widgetHasVisibleFocus + +-- method Widget::hide +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_hide" gtk_widget_hide :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetHide :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetHide _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_hide _obj' + touchManagedPtr _obj + return () + +data WidgetHideMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetHideMethodInfo a signature where + overloadedMethod _ = widgetHide + +-- method Widget::hide_on_delete +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_hide_on_delete" gtk_widget_hide_on_delete :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetHideOnDelete :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetHideOnDelete _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_hide_on_delete _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetHideOnDeleteMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetHideOnDeleteMethodInfo a signature where + overloadedMethod _ = widgetHideOnDelete + +-- method Widget::in_destruction +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_in_destruction" gtk_widget_in_destruction :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetInDestruction :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetInDestruction _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_in_destruction _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetInDestructionMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetInDestructionMethodInfo a signature where + overloadedMethod _ = widgetInDestruction + +-- method Widget::init_template +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_init_template" gtk_widget_init_template :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetInitTemplate :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetInitTemplate _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_init_template _obj' + touchManagedPtr _obj + return () + +data WidgetInitTemplateMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetInitTemplateMethodInfo a signature where + overloadedMethod _ = widgetInitTemplate + +-- method Widget::input_shape_combine_region +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_input_shape_combine_region" gtk_widget_input_shape_combine_region :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Cairo.Region -> -- region : TInterface "cairo" "Region" + IO () + + +widgetInputShapeCombineRegion :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Maybe (Cairo.Region) -- region + -> m () -- result +widgetInputShapeCombineRegion _obj region = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeRegion <- case region of + Nothing -> return nullPtr + Just jRegion -> do + let jRegion' = unsafeManagedPtrGetPtr jRegion + return jRegion' + gtk_widget_input_shape_combine_region _obj' maybeRegion + touchManagedPtr _obj + whenJust region touchManagedPtr + return () + +data WidgetInputShapeCombineRegionMethodInfo +instance (signature ~ (Maybe (Cairo.Region) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetInputShapeCombineRegionMethodInfo a signature where + overloadedMethod _ = widgetInputShapeCombineRegion + +-- method Widget::insert_action_group +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 = "group", argType = TInterface "Gio" "ActionGroup", 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 "gtk_widget_insert_action_group" gtk_widget_insert_action_group :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CString -> -- name : TBasicType TUTF8 + Ptr Gio.ActionGroup -> -- group : TInterface "Gio" "ActionGroup" + IO () + + +widgetInsertActionGroup :: + (MonadIO m, WidgetK a, Gio.ActionGroupK b) => + a -- _obj + -> T.Text -- name + -> Maybe (b) -- group + -> m () -- result +widgetInsertActionGroup _obj name group = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + name' <- textToCString name + maybeGroup <- case group of + Nothing -> return nullPtr + Just jGroup -> do + let jGroup' = unsafeManagedPtrCastPtr jGroup + return jGroup' + gtk_widget_insert_action_group _obj' name' maybeGroup + touchManagedPtr _obj + whenJust group touchManagedPtr + freeMem name' + return () + +data WidgetInsertActionGroupMethodInfo +instance (signature ~ (T.Text -> Maybe (b) -> m ()), MonadIO m, WidgetK a, Gio.ActionGroupK b) => MethodInfo WidgetInsertActionGroupMethodInfo a signature where + overloadedMethod _ = widgetInsertActionGroup + +-- method Widget::intersect +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "intersection", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TBasicType TBoolean) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_intersect" gtk_widget_intersect :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Gdk.Rectangle -> -- area : TInterface "Gdk" "Rectangle" + Ptr Gdk.Rectangle -> -- intersection : TInterface "Gdk" "Rectangle" + IO CInt + + +widgetIntersect :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Gdk.Rectangle -- area + -> Maybe (Gdk.Rectangle) -- intersection + -> m Bool -- result +widgetIntersect _obj area intersection = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let area' = unsafeManagedPtrGetPtr area + maybeIntersection <- case intersection of + Nothing -> return nullPtr + Just jIntersection -> do + let jIntersection' = unsafeManagedPtrGetPtr jIntersection + return jIntersection' + result <- gtk_widget_intersect _obj' area' maybeIntersection + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr area + whenJust intersection touchManagedPtr + return result' + +data WidgetIntersectMethodInfo +instance (signature ~ (Gdk.Rectangle -> Maybe (Gdk.Rectangle) -> m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetIntersectMethodInfo a signature where + overloadedMethod _ = widgetIntersect + +-- method Widget::is_ancestor +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ancestor", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_is_ancestor" gtk_widget_is_ancestor :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Widget -> -- ancestor : TInterface "Gtk" "Widget" + IO CInt + + +widgetIsAncestor :: + (MonadIO m, WidgetK a, WidgetK b) => + a -- _obj + -> b -- ancestor + -> m Bool -- result +widgetIsAncestor _obj ancestor = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let ancestor' = unsafeManagedPtrCastPtr ancestor + result <- gtk_widget_is_ancestor _obj' ancestor' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr ancestor + return result' + +data WidgetIsAncestorMethodInfo +instance (signature ~ (b -> m Bool), MonadIO m, WidgetK a, WidgetK b) => MethodInfo WidgetIsAncestorMethodInfo a signature where + overloadedMethod _ = widgetIsAncestor + +-- method Widget::is_composited +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_is_composited" gtk_widget_is_composited :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetIsComposited :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetIsComposited _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_is_composited _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetIsCompositedMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetIsCompositedMethodInfo a signature where + overloadedMethod _ = widgetIsComposited + +-- method Widget::is_drawable +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_is_drawable" gtk_widget_is_drawable :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetIsDrawable :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetIsDrawable _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_is_drawable _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetIsDrawableMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetIsDrawableMethodInfo a signature where + overloadedMethod _ = widgetIsDrawable + +-- method Widget::is_focus +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_is_focus" gtk_widget_is_focus :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetIsFocus :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetIsFocus _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_is_focus _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetIsFocusMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetIsFocusMethodInfo a signature where + overloadedMethod _ = widgetIsFocus + +-- method Widget::is_sensitive +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_is_sensitive" gtk_widget_is_sensitive :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetIsSensitive :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetIsSensitive _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_is_sensitive _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetIsSensitiveMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetIsSensitiveMethodInfo a signature where + overloadedMethod _ = widgetIsSensitive + +-- method Widget::is_toplevel +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_is_toplevel" gtk_widget_is_toplevel :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetIsToplevel :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetIsToplevel _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_is_toplevel _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetIsToplevelMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetIsToplevelMethodInfo a signature where + overloadedMethod _ = widgetIsToplevel + +-- method Widget::is_visible +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_is_visible" gtk_widget_is_visible :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO CInt + + +widgetIsVisible :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m Bool -- result +widgetIsVisible _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_is_visible _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetIsVisibleMethodInfo +instance (signature ~ (m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetIsVisibleMethodInfo a signature where + overloadedMethod _ = widgetIsVisible + +-- method Widget::keynav_failed +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "direction", argType = TInterface "Gtk" "DirectionType", 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 "gtk_widget_keynav_failed" gtk_widget_keynav_failed :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CUInt -> -- direction : TInterface "Gtk" "DirectionType" + IO CInt + + +widgetKeynavFailed :: + (MonadIO m, WidgetK a) => + a -- _obj + -> DirectionType -- direction + -> m Bool -- result +widgetKeynavFailed _obj direction = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let direction' = (fromIntegral . fromEnum) direction + result <- gtk_widget_keynav_failed _obj' direction' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetKeynavFailedMethodInfo +instance (signature ~ (DirectionType -> m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetKeynavFailedMethodInfo a signature where + overloadedMethod _ = widgetKeynavFailed + +-- method Widget::list_accel_closures +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TGList (TInterface "GObject" "Closure")) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_list_accel_closures" gtk_widget_list_accel_closures :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO (Ptr (GList (Ptr Closure))) + + +widgetListAccelClosures :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m [Closure] -- result +widgetListAccelClosures _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_list_accel_closures _obj' + result' <- unpackGList result + result'' <- mapM (newBoxed Closure) result' + g_list_free result + touchManagedPtr _obj + return result'' + +data WidgetListAccelClosuresMethodInfo +instance (signature ~ (m [Closure]), MonadIO m, WidgetK a) => MethodInfo WidgetListAccelClosuresMethodInfo a signature where + overloadedMethod _ = widgetListAccelClosures + +-- method Widget::list_action_prefixes +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_list_action_prefixes" gtk_widget_list_action_prefixes :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO (Ptr CString) + + +widgetListActionPrefixes :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m [T.Text] -- result +widgetListActionPrefixes _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_list_action_prefixes _obj' + checkUnexpectedReturnNULL "gtk_widget_list_action_prefixes" result + result' <- unpackZeroTerminatedUTF8CArray result + freeMem result + touchManagedPtr _obj + return result' + +data WidgetListActionPrefixesMethodInfo +instance (signature ~ (m [T.Text]), MonadIO m, WidgetK a) => MethodInfo WidgetListActionPrefixesMethodInfo a signature where + overloadedMethod _ = widgetListActionPrefixes + +-- method Widget::list_mnemonic_labels +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TGList (TInterface "Gtk" "Widget")) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_list_mnemonic_labels" gtk_widget_list_mnemonic_labels :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO (Ptr (GList (Ptr Widget))) + + +widgetListMnemonicLabels :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m [Widget] -- result +widgetListMnemonicLabels _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gtk_widget_list_mnemonic_labels _obj' + result' <- unpackGList result + result'' <- mapM (newObject Widget) result' + g_list_free result + touchManagedPtr _obj + return result'' + +data WidgetListMnemonicLabelsMethodInfo +instance (signature ~ (m [Widget]), MonadIO m, WidgetK a) => MethodInfo WidgetListMnemonicLabelsMethodInfo a signature where + overloadedMethod _ = widgetListMnemonicLabels + +-- method Widget::map +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_map" gtk_widget_map :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetMap :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetMap _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_map _obj' + touchManagedPtr _obj + return () + +data WidgetMapMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetMapMethodInfo a signature where + overloadedMethod _ = widgetMap + +-- method Widget::mnemonic_activate +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_cycling", 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 "gtk_widget_mnemonic_activate" gtk_widget_mnemonic_activate :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CInt -> -- group_cycling : TBasicType TBoolean + IO CInt + + +widgetMnemonicActivate :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Bool -- groupCycling + -> m Bool -- result +widgetMnemonicActivate _obj groupCycling = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let groupCycling' = (fromIntegral . fromEnum) groupCycling + result <- gtk_widget_mnemonic_activate _obj' groupCycling' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data WidgetMnemonicActivateMethodInfo +instance (signature ~ (Bool -> m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetMnemonicActivateMethodInfo a signature where + overloadedMethod _ = widgetMnemonicActivate + +-- method Widget::modify_base +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "Color", 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 "gtk_widget_modify_base" gtk_widget_modify_base :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CUInt -> -- state : TInterface "Gtk" "StateType" + Ptr Gdk.Color -> -- color : TInterface "Gdk" "Color" + IO () + +{-# DEPRECATED widgetModifyBase ["(Since version 3.0)","Use gtk_widget_override_background_color() instead"]#-} +widgetModifyBase :: + (MonadIO m, WidgetK a) => + a -- _obj + -> StateType -- state + -> Maybe (Gdk.Color) -- color + -> m () -- result +widgetModifyBase _obj state color = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let state' = (fromIntegral . fromEnum) state + maybeColor <- case color of + Nothing -> return nullPtr + Just jColor -> do + let jColor' = unsafeManagedPtrGetPtr jColor + return jColor' + gtk_widget_modify_base _obj' state' maybeColor + touchManagedPtr _obj + whenJust color touchManagedPtr + return () + +data WidgetModifyBaseMethodInfo +instance (signature ~ (StateType -> Maybe (Gdk.Color) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetModifyBaseMethodInfo a signature where + overloadedMethod _ = widgetModifyBase + +-- method Widget::modify_bg +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "Color", 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 "gtk_widget_modify_bg" gtk_widget_modify_bg :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CUInt -> -- state : TInterface "Gtk" "StateType" + Ptr Gdk.Color -> -- color : TInterface "Gdk" "Color" + IO () + +{-# DEPRECATED widgetModifyBg ["(Since version 3.0)","Use gtk_widget_override_background_color() instead"]#-} +widgetModifyBg :: + (MonadIO m, WidgetK a) => + a -- _obj + -> StateType -- state + -> Maybe (Gdk.Color) -- color + -> m () -- result +widgetModifyBg _obj state color = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let state' = (fromIntegral . fromEnum) state + maybeColor <- case color of + Nothing -> return nullPtr + Just jColor -> do + let jColor' = unsafeManagedPtrGetPtr jColor + return jColor' + gtk_widget_modify_bg _obj' state' maybeColor + touchManagedPtr _obj + whenJust color touchManagedPtr + return () + +data WidgetModifyBgMethodInfo +instance (signature ~ (StateType -> Maybe (Gdk.Color) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetModifyBgMethodInfo a signature where + overloadedMethod _ = widgetModifyBg + +-- method Widget::modify_cursor +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "primary", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "secondary", argType = TInterface "Gdk" "Color", 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 "gtk_widget_modify_cursor" gtk_widget_modify_cursor :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Gdk.Color -> -- primary : TInterface "Gdk" "Color" + Ptr Gdk.Color -> -- secondary : TInterface "Gdk" "Color" + IO () + +{-# DEPRECATED widgetModifyCursor ["(Since version 3.0)","Use gtk_widget_override_cursor() instead."]#-} +widgetModifyCursor :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Maybe (Gdk.Color) -- primary + -> Maybe (Gdk.Color) -- secondary + -> m () -- result +widgetModifyCursor _obj primary secondary = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybePrimary <- case primary of + Nothing -> return nullPtr + Just jPrimary -> do + let jPrimary' = unsafeManagedPtrGetPtr jPrimary + return jPrimary' + maybeSecondary <- case secondary of + Nothing -> return nullPtr + Just jSecondary -> do + let jSecondary' = unsafeManagedPtrGetPtr jSecondary + return jSecondary' + gtk_widget_modify_cursor _obj' maybePrimary maybeSecondary + touchManagedPtr _obj + whenJust primary touchManagedPtr + whenJust secondary touchManagedPtr + return () + +data WidgetModifyCursorMethodInfo +instance (signature ~ (Maybe (Gdk.Color) -> Maybe (Gdk.Color) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetModifyCursorMethodInfo a signature where + overloadedMethod _ = widgetModifyCursor + +-- method Widget::modify_fg +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "Color", 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 "gtk_widget_modify_fg" gtk_widget_modify_fg :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CUInt -> -- state : TInterface "Gtk" "StateType" + Ptr Gdk.Color -> -- color : TInterface "Gdk" "Color" + IO () + +{-# DEPRECATED widgetModifyFg ["(Since version 3.0)","Use gtk_widget_override_color() instead"]#-} +widgetModifyFg :: + (MonadIO m, WidgetK a) => + a -- _obj + -> StateType -- state + -> Maybe (Gdk.Color) -- color + -> m () -- result +widgetModifyFg _obj state color = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let state' = (fromIntegral . fromEnum) state + maybeColor <- case color of + Nothing -> return nullPtr + Just jColor -> do + let jColor' = unsafeManagedPtrGetPtr jColor + return jColor' + gtk_widget_modify_fg _obj' state' maybeColor + touchManagedPtr _obj + whenJust color touchManagedPtr + return () + +data WidgetModifyFgMethodInfo +instance (signature ~ (StateType -> Maybe (Gdk.Color) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetModifyFgMethodInfo a signature where + overloadedMethod _ = widgetModifyFg + +-- method Widget::modify_font +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "font_desc", argType = TInterface "Pango" "FontDescription", 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 "gtk_widget_modify_font" gtk_widget_modify_font :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Pango.FontDescription -> -- font_desc : TInterface "Pango" "FontDescription" + IO () + +{-# DEPRECATED widgetModifyFont ["(Since version 3.0)","Use gtk_widget_override_font() instead"]#-} +widgetModifyFont :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Maybe (Pango.FontDescription) -- fontDesc + -> m () -- result +widgetModifyFont _obj fontDesc = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeFontDesc <- case fontDesc of + Nothing -> return nullPtr + Just jFontDesc -> do + let jFontDesc' = unsafeManagedPtrGetPtr jFontDesc + return jFontDesc' + gtk_widget_modify_font _obj' maybeFontDesc + touchManagedPtr _obj + whenJust fontDesc touchManagedPtr + return () + +data WidgetModifyFontMethodInfo +instance (signature ~ (Maybe (Pango.FontDescription) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetModifyFontMethodInfo a signature where + overloadedMethod _ = widgetModifyFont + +-- method Widget::modify_style +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "style", argType = TInterface "Gtk" "RcStyle", 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 "gtk_widget_modify_style" gtk_widget_modify_style :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr RcStyle -> -- style : TInterface "Gtk" "RcStyle" + IO () + +{-# DEPRECATED widgetModifyStyle ["(Since version 3.0)","Use #GtkStyleContext with a custom #GtkStyleProvider instead"]#-} +widgetModifyStyle :: + (MonadIO m, WidgetK a, RcStyleK b) => + a -- _obj + -> b -- style + -> m () -- result +widgetModifyStyle _obj style = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let style' = unsafeManagedPtrCastPtr style + gtk_widget_modify_style _obj' style' + touchManagedPtr _obj + touchManagedPtr style + return () + +data WidgetModifyStyleMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, WidgetK a, RcStyleK b) => MethodInfo WidgetModifyStyleMethodInfo a signature where + overloadedMethod _ = widgetModifyStyle + +-- method Widget::modify_text +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "Color", 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 "gtk_widget_modify_text" gtk_widget_modify_text :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CUInt -> -- state : TInterface "Gtk" "StateType" + Ptr Gdk.Color -> -- color : TInterface "Gdk" "Color" + IO () + +{-# DEPRECATED widgetModifyText ["(Since version 3.0)","Use gtk_widget_override_color() instead"]#-} +widgetModifyText :: + (MonadIO m, WidgetK a) => + a -- _obj + -> StateType -- state + -> Maybe (Gdk.Color) -- color + -> m () -- result +widgetModifyText _obj state color = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let state' = (fromIntegral . fromEnum) state + maybeColor <- case color of + Nothing -> return nullPtr + Just jColor -> do + let jColor' = unsafeManagedPtrGetPtr jColor + return jColor' + gtk_widget_modify_text _obj' state' maybeColor + touchManagedPtr _obj + whenJust color touchManagedPtr + return () + +data WidgetModifyTextMethodInfo +instance (signature ~ (StateType -> Maybe (Gdk.Color) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetModifyTextMethodInfo a signature where + overloadedMethod _ = widgetModifyText + +-- method Widget::override_background_color +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "RGBA", 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 "gtk_widget_override_background_color" gtk_widget_override_background_color :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CUInt -> -- state : TInterface "Gtk" "StateFlags" + Ptr Gdk.RGBA -> -- color : TInterface "Gdk" "RGBA" + IO () + +{-# DEPRECATED widgetOverrideBackgroundColor ["(Since version 3.16)","This function is not useful in the context of CSS-based"," rendering. If you wish to change the way a widget renders its background"," you should use a custom CSS style, through an application-specific"," #GtkStyleProvider and a CSS style class. You can also override the default"," drawing of a widget through the #GtkWidget::draw signal, and use Cairo to"," draw a specific color, regardless of the CSS style."]#-} +widgetOverrideBackgroundColor :: + (MonadIO m, WidgetK a) => + a -- _obj + -> [StateFlags] -- state + -> Maybe (Gdk.RGBA) -- color + -> m () -- result +widgetOverrideBackgroundColor _obj state color = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let state' = gflagsToWord state + maybeColor <- case color of + Nothing -> return nullPtr + Just jColor -> do + let jColor' = unsafeManagedPtrGetPtr jColor + return jColor' + gtk_widget_override_background_color _obj' state' maybeColor + touchManagedPtr _obj + whenJust color touchManagedPtr + return () + +data WidgetOverrideBackgroundColorMethodInfo +instance (signature ~ ([StateFlags] -> Maybe (Gdk.RGBA) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetOverrideBackgroundColorMethodInfo a signature where + overloadedMethod _ = widgetOverrideBackgroundColor + +-- method Widget::override_color +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "RGBA", 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 "gtk_widget_override_color" gtk_widget_override_color :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CUInt -> -- state : TInterface "Gtk" "StateFlags" + Ptr Gdk.RGBA -> -- color : TInterface "Gdk" "RGBA" + IO () + +{-# DEPRECATED widgetOverrideColor ["(Since version 3.16)","Use a custom style provider and style classes instead"]#-} +widgetOverrideColor :: + (MonadIO m, WidgetK a) => + a -- _obj + -> [StateFlags] -- state + -> Maybe (Gdk.RGBA) -- color + -> m () -- result +widgetOverrideColor _obj state color = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let state' = gflagsToWord state + maybeColor <- case color of + Nothing -> return nullPtr + Just jColor -> do + let jColor' = unsafeManagedPtrGetPtr jColor + return jColor' + gtk_widget_override_color _obj' state' maybeColor + touchManagedPtr _obj + whenJust color touchManagedPtr + return () + +data WidgetOverrideColorMethodInfo +instance (signature ~ ([StateFlags] -> Maybe (Gdk.RGBA) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetOverrideColorMethodInfo a signature where + overloadedMethod _ = widgetOverrideColor + +-- method Widget::override_cursor +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cursor", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "secondary_cursor", argType = TInterface "Gdk" "RGBA", 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 "gtk_widget_override_cursor" gtk_widget_override_cursor :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Gdk.RGBA -> -- cursor : TInterface "Gdk" "RGBA" + Ptr Gdk.RGBA -> -- secondary_cursor : TInterface "Gdk" "RGBA" + IO () + +{-# DEPRECATED widgetOverrideCursor ["(Since version 3.16)","This function is not useful in the context of CSS-based"," rendering. If you wish to change the color used to render the primary"," and secondary cursors you should use a custom CSS style, through an"," application-specific #GtkStyleProvider and a CSS style class."]#-} +widgetOverrideCursor :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Maybe (Gdk.RGBA) -- cursor + -> Maybe (Gdk.RGBA) -- secondaryCursor + -> m () -- result +widgetOverrideCursor _obj cursor secondaryCursor = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeCursor <- case cursor of + Nothing -> return nullPtr + Just jCursor -> do + let jCursor' = unsafeManagedPtrGetPtr jCursor + return jCursor' + maybeSecondaryCursor <- case secondaryCursor of + Nothing -> return nullPtr + Just jSecondaryCursor -> do + let jSecondaryCursor' = unsafeManagedPtrGetPtr jSecondaryCursor + return jSecondaryCursor' + gtk_widget_override_cursor _obj' maybeCursor maybeSecondaryCursor + touchManagedPtr _obj + whenJust cursor touchManagedPtr + whenJust secondaryCursor touchManagedPtr + return () + +data WidgetOverrideCursorMethodInfo +instance (signature ~ (Maybe (Gdk.RGBA) -> Maybe (Gdk.RGBA) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetOverrideCursorMethodInfo a signature where + overloadedMethod _ = widgetOverrideCursor + +-- method Widget::override_font +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "font_desc", argType = TInterface "Pango" "FontDescription", 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 "gtk_widget_override_font" gtk_widget_override_font :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Pango.FontDescription -> -- font_desc : TInterface "Pango" "FontDescription" + IO () + +{-# DEPRECATED widgetOverrideFont ["(Since version 3.16)","This function is not useful in the context of CSS-based"," rendering. If you wish to change the font a widget uses to render its text"," you should use a custom CSS style, through an application-specific"," #GtkStyleProvider and a CSS style class."]#-} +widgetOverrideFont :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Maybe (Pango.FontDescription) -- fontDesc + -> m () -- result +widgetOverrideFont _obj fontDesc = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeFontDesc <- case fontDesc of + Nothing -> return nullPtr + Just jFontDesc -> do + let jFontDesc' = unsafeManagedPtrGetPtr jFontDesc + return jFontDesc' + gtk_widget_override_font _obj' maybeFontDesc + touchManagedPtr _obj + whenJust fontDesc touchManagedPtr + return () + +data WidgetOverrideFontMethodInfo +instance (signature ~ (Maybe (Pango.FontDescription) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetOverrideFontMethodInfo a signature where + overloadedMethod _ = widgetOverrideFont + +-- method Widget::override_symbolic_color +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 = "color", argType = TInterface "Gdk" "RGBA", 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 "gtk_widget_override_symbolic_color" gtk_widget_override_symbolic_color :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CString -> -- name : TBasicType TUTF8 + Ptr Gdk.RGBA -> -- color : TInterface "Gdk" "RGBA" + IO () + +{-# DEPRECATED widgetOverrideSymbolicColor ["(Since version 3.16)","This function is not useful in the context of CSS-based"," rendering. If you wish to change the color used to render symbolic icons"," you should use a custom CSS style, through an application-specific"," #GtkStyleProvider and a CSS style class."]#-} +widgetOverrideSymbolicColor :: + (MonadIO m, WidgetK a) => + a -- _obj + -> T.Text -- name + -> Maybe (Gdk.RGBA) -- color + -> m () -- result +widgetOverrideSymbolicColor _obj name color = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + name' <- textToCString name + maybeColor <- case color of + Nothing -> return nullPtr + Just jColor -> do + let jColor' = unsafeManagedPtrGetPtr jColor + return jColor' + gtk_widget_override_symbolic_color _obj' name' maybeColor + touchManagedPtr _obj + whenJust color touchManagedPtr + freeMem name' + return () + +data WidgetOverrideSymbolicColorMethodInfo +instance (signature ~ (T.Text -> Maybe (Gdk.RGBA) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetOverrideSymbolicColorMethodInfo a signature where + overloadedMethod _ = widgetOverrideSymbolicColor + +-- method Widget::path +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path_length", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "path_reversed", argType = TBasicType TUTF8, 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 "gtk_widget_path" gtk_widget_path :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Word32 -> -- path_length : TBasicType TUInt + Ptr CString -> -- path : TBasicType TUTF8 + Ptr CString -> -- path_reversed : TBasicType TUTF8 + IO () + +{-# DEPRECATED widgetPath ["(Since version 3.0)","Use gtk_widget_get_path() instead"]#-} +widgetPath :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m (Word32,T.Text,T.Text) -- result +widgetPath _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + pathLength <- allocMem :: IO (Ptr Word32) + path <- allocMem :: IO (Ptr CString) + pathReversed <- allocMem :: IO (Ptr CString) + gtk_widget_path _obj' pathLength path pathReversed + pathLength' <- peek pathLength + path' <- peek path + path'' <- cstringToText path' + freeMem path' + pathReversed' <- peek pathReversed + pathReversed'' <- cstringToText pathReversed' + freeMem pathReversed' + touchManagedPtr _obj + freeMem pathLength + freeMem path + freeMem pathReversed + return (pathLength', path'', pathReversed'') + +data WidgetPathMethodInfo +instance (signature ~ (m (Word32,T.Text,T.Text)), MonadIO m, WidgetK a) => MethodInfo WidgetPathMethodInfo a signature where + overloadedMethod _ = widgetPath + +-- method Widget::queue_compute_expand +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_queue_compute_expand" gtk_widget_queue_compute_expand :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetQueueComputeExpand :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetQueueComputeExpand _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_queue_compute_expand _obj' + touchManagedPtr _obj + return () + +data WidgetQueueComputeExpandMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetQueueComputeExpandMethodInfo a signature where + overloadedMethod _ = widgetQueueComputeExpand + +-- method Widget::queue_draw +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_queue_draw" gtk_widget_queue_draw :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetQueueDraw :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetQueueDraw _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_queue_draw _obj' + touchManagedPtr _obj + return () + +data WidgetQueueDrawMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetQueueDrawMethodInfo a signature where + overloadedMethod _ = widgetQueueDraw + +-- method Widget::queue_draw_area +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_queue_draw_area" gtk_widget_queue_draw_area :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Int32 -> -- x : TBasicType TInt + Int32 -> -- y : TBasicType TInt + Int32 -> -- width : TBasicType TInt + Int32 -> -- height : TBasicType TInt + IO () + + +widgetQueueDrawArea :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Int32 -- x + -> Int32 -- y + -> Int32 -- width + -> Int32 -- height + -> m () -- result +widgetQueueDrawArea _obj x y width height = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_queue_draw_area _obj' x y width height + touchManagedPtr _obj + return () + +data WidgetQueueDrawAreaMethodInfo +instance (signature ~ (Int32 -> Int32 -> Int32 -> Int32 -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetQueueDrawAreaMethodInfo a signature where + overloadedMethod _ = widgetQueueDrawArea + +-- method Widget::queue_draw_region +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_queue_draw_region" gtk_widget_queue_draw_region :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Cairo.Region -> -- region : TInterface "cairo" "Region" + IO () + + +widgetQueueDrawRegion :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Cairo.Region -- region + -> m () -- result +widgetQueueDrawRegion _obj region = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let region' = unsafeManagedPtrGetPtr region + gtk_widget_queue_draw_region _obj' region' + touchManagedPtr _obj + touchManagedPtr region + return () + +data WidgetQueueDrawRegionMethodInfo +instance (signature ~ (Cairo.Region -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetQueueDrawRegionMethodInfo a signature where + overloadedMethod _ = widgetQueueDrawRegion + +-- method Widget::queue_resize +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_queue_resize" gtk_widget_queue_resize :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetQueueResize :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetQueueResize _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_queue_resize _obj' + touchManagedPtr _obj + return () + +data WidgetQueueResizeMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetQueueResizeMethodInfo a signature where + overloadedMethod _ = widgetQueueResize + +-- method Widget::queue_resize_no_redraw +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_queue_resize_no_redraw" gtk_widget_queue_resize_no_redraw :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetQueueResizeNoRedraw :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetQueueResizeNoRedraw _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_queue_resize_no_redraw _obj' + touchManagedPtr _obj + return () + +data WidgetQueueResizeNoRedrawMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetQueueResizeNoRedrawMethodInfo a signature where + overloadedMethod _ = widgetQueueResizeNoRedraw + +-- method Widget::realize +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_realize" gtk_widget_realize :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetRealize :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetRealize _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_realize _obj' + touchManagedPtr _obj + return () + +data WidgetRealizeMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetRealizeMethodInfo a signature where + overloadedMethod _ = widgetRealize + +-- method Widget::region_intersect +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 : Just (TInterface "cairo" "Region") +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_region_intersect" gtk_widget_region_intersect :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Cairo.Region -> -- region : TInterface "cairo" "Region" + IO (Ptr Cairo.Region) + +{-# DEPRECATED widgetRegionIntersect ["(Since version 3.14)","Use gtk_widget_get_allocation() and"," cairo_region_intersect_rectangle() to get the same behavior."]#-} +widgetRegionIntersect :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Cairo.Region -- region + -> m Cairo.Region -- result +widgetRegionIntersect _obj region = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let region' = unsafeManagedPtrGetPtr region + result <- gtk_widget_region_intersect _obj' region' + checkUnexpectedReturnNULL "gtk_widget_region_intersect" result + result' <- (wrapBoxed Cairo.Region) result + touchManagedPtr _obj + touchManagedPtr region + return result' + +data WidgetRegionIntersectMethodInfo +instance (signature ~ (Cairo.Region -> m Cairo.Region), MonadIO m, WidgetK a) => MethodInfo WidgetRegionIntersectMethodInfo a signature where + overloadedMethod _ = widgetRegionIntersect + +-- method Widget::register_window +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_register_window" gtk_widget_register_window :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Gdk.Window -> -- window : TInterface "Gdk" "Window" + IO () + + +widgetRegisterWindow :: + (MonadIO m, WidgetK a, Gdk.WindowK b) => + a -- _obj + -> b -- window + -> m () -- result +widgetRegisterWindow _obj window = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let window' = unsafeManagedPtrCastPtr window + gtk_widget_register_window _obj' window' + touchManagedPtr _obj + touchManagedPtr window + return () + +data WidgetRegisterWindowMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, WidgetK a, Gdk.WindowK b) => MethodInfo WidgetRegisterWindowMethodInfo a signature where + overloadedMethod _ = widgetRegisterWindow + +-- method Widget::remove_accelerator +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_key", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_mods", argType = TInterface "Gdk" "ModifierType", 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 "gtk_widget_remove_accelerator" gtk_widget_remove_accelerator :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr AccelGroup -> -- accel_group : TInterface "Gtk" "AccelGroup" + Word32 -> -- accel_key : TBasicType TUInt + CUInt -> -- accel_mods : TInterface "Gdk" "ModifierType" + IO CInt + + +widgetRemoveAccelerator :: + (MonadIO m, WidgetK a, AccelGroupK b) => + a -- _obj + -> b -- accelGroup + -> Word32 -- accelKey + -> [Gdk.ModifierType] -- accelMods + -> m Bool -- result +widgetRemoveAccelerator _obj accelGroup accelKey accelMods = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let accelGroup' = unsafeManagedPtrCastPtr accelGroup + let accelMods' = gflagsToWord accelMods + result <- gtk_widget_remove_accelerator _obj' accelGroup' accelKey accelMods' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr accelGroup + return result' + +data WidgetRemoveAcceleratorMethodInfo +instance (signature ~ (b -> Word32 -> [Gdk.ModifierType] -> m Bool), MonadIO m, WidgetK a, AccelGroupK b) => MethodInfo WidgetRemoveAcceleratorMethodInfo a signature where + overloadedMethod _ = widgetRemoveAccelerator + +-- method Widget::remove_mnemonic_label +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_remove_mnemonic_label" gtk_widget_remove_mnemonic_label :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Widget -> -- label : TInterface "Gtk" "Widget" + IO () + + +widgetRemoveMnemonicLabel :: + (MonadIO m, WidgetK a, WidgetK b) => + a -- _obj + -> b -- label + -> m () -- result +widgetRemoveMnemonicLabel _obj label = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let label' = unsafeManagedPtrCastPtr label + gtk_widget_remove_mnemonic_label _obj' label' + touchManagedPtr _obj + touchManagedPtr label + return () + +data WidgetRemoveMnemonicLabelMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, WidgetK a, WidgetK b) => MethodInfo WidgetRemoveMnemonicLabelMethodInfo a signature where + overloadedMethod _ = widgetRemoveMnemonicLabel + +-- method Widget::remove_tick_callback +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "id", 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 "gtk_widget_remove_tick_callback" gtk_widget_remove_tick_callback :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Word32 -> -- id : TBasicType TUInt + IO () + + +widgetRemoveTickCallback :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Word32 -- id + -> m () -- result +widgetRemoveTickCallback _obj id = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_remove_tick_callback _obj' id + touchManagedPtr _obj + return () + +data WidgetRemoveTickCallbackMethodInfo +instance (signature ~ (Word32 -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetRemoveTickCallbackMethodInfo a signature where + overloadedMethod _ = widgetRemoveTickCallback + +-- method Widget::render_icon +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_render_icon" gtk_widget_render_icon :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CString -> -- stock_id : TBasicType TUTF8 + Int32 -> -- size : TBasicType TInt + CString -> -- detail : TBasicType TUTF8 + IO (Ptr GdkPixbuf.Pixbuf) + +{-# DEPRECATED widgetRenderIcon ["(Since version 3.0)","Use gtk_widget_render_icon_pixbuf() instead."]#-} +widgetRenderIcon :: + (MonadIO m, WidgetK a) => + a -- _obj + -> T.Text -- stockId + -> Int32 -- size + -> Maybe (T.Text) -- detail + -> m GdkPixbuf.Pixbuf -- result +widgetRenderIcon _obj stockId size detail = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + stockId' <- textToCString stockId + maybeDetail <- case detail of + Nothing -> return nullPtr + Just jDetail -> do + jDetail' <- textToCString jDetail + return jDetail' + result <- gtk_widget_render_icon _obj' stockId' size maybeDetail + checkUnexpectedReturnNULL "gtk_widget_render_icon" result + result' <- (wrapObject GdkPixbuf.Pixbuf) result + touchManagedPtr _obj + freeMem stockId' + freeMem maybeDetail + return result' + +data WidgetRenderIconMethodInfo +instance (signature ~ (T.Text -> Int32 -> Maybe (T.Text) -> m GdkPixbuf.Pixbuf), MonadIO m, WidgetK a) => MethodInfo WidgetRenderIconMethodInfo a signature where + overloadedMethod _ = widgetRenderIcon + +-- method Widget::render_icon_pixbuf +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", 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 "gtk_widget_render_icon_pixbuf" gtk_widget_render_icon_pixbuf :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CString -> -- stock_id : TBasicType TUTF8 + Int32 -> -- size : TBasicType TInt + IO (Ptr GdkPixbuf.Pixbuf) + +{-# DEPRECATED widgetRenderIconPixbuf ["(Since version 3.10)","Use gtk_icon_theme_load_icon() instead."]#-} +widgetRenderIconPixbuf :: + (MonadIO m, WidgetK a) => + a -- _obj + -> T.Text -- stockId + -> Int32 -- size + -> m (Maybe GdkPixbuf.Pixbuf) -- result +widgetRenderIconPixbuf _obj stockId size = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + stockId' <- textToCString stockId + result <- gtk_widget_render_icon_pixbuf _obj' stockId' size + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (wrapObject GdkPixbuf.Pixbuf) result' + return result'' + touchManagedPtr _obj + freeMem stockId' + return maybeResult + +data WidgetRenderIconPixbufMethodInfo +instance (signature ~ (T.Text -> Int32 -> m (Maybe GdkPixbuf.Pixbuf)), MonadIO m, WidgetK a) => MethodInfo WidgetRenderIconPixbufMethodInfo a signature where + overloadedMethod _ = widgetRenderIconPixbuf + +-- method Widget::reparent +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_parent", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_reparent" gtk_widget_reparent :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Widget -> -- new_parent : TInterface "Gtk" "Widget" + IO () + +{-# DEPRECATED widgetReparent ["(Since version 3.14)","Use gtk_container_remove() and gtk_container_add()."]#-} +widgetReparent :: + (MonadIO m, WidgetK a, WidgetK b) => + a -- _obj + -> b -- newParent + -> m () -- result +widgetReparent _obj newParent = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let newParent' = unsafeManagedPtrCastPtr newParent + gtk_widget_reparent _obj' newParent' + touchManagedPtr _obj + touchManagedPtr newParent + return () + +data WidgetReparentMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, WidgetK a, WidgetK b) => MethodInfo WidgetReparentMethodInfo a signature where + overloadedMethod _ = widgetReparent + +-- method Widget::reset_rc_styles +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_reset_rc_styles" gtk_widget_reset_rc_styles :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + +{-# DEPRECATED widgetResetRcStyles ["(Since version 3.0)","Use #GtkStyleContext instead, and gtk_widget_reset_style()"]#-} +widgetResetRcStyles :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetResetRcStyles _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_reset_rc_styles _obj' + touchManagedPtr _obj + return () + +data WidgetResetRcStylesMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetResetRcStylesMethodInfo a signature where + overloadedMethod _ = widgetResetRcStyles + +-- method Widget::reset_style +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_reset_style" gtk_widget_reset_style :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetResetStyle :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetResetStyle _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_reset_style _obj' + touchManagedPtr _obj + return () + +data WidgetResetStyleMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetResetStyleMethodInfo a signature where + overloadedMethod _ = widgetResetStyle + +-- method Widget::send_expose +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 TInt) +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_send_expose" gtk_widget_send_expose :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Gdk.Event -> -- event : TInterface "Gdk" "Event" + IO Int32 + + +widgetSendExpose :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Gdk.Event -- event + -> m Int32 -- result +widgetSendExpose _obj event = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let event' = unsafeManagedPtrGetPtr event + result <- gtk_widget_send_expose _obj' event' + touchManagedPtr _obj + touchManagedPtr event + return result + +data WidgetSendExposeMethodInfo +instance (signature ~ (Gdk.Event -> m Int32), MonadIO m, WidgetK a) => MethodInfo WidgetSendExposeMethodInfo a signature where + overloadedMethod _ = widgetSendExpose + +-- method Widget::send_focus_change +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_send_focus_change" gtk_widget_send_focus_change :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Gdk.Event -> -- event : TInterface "Gdk" "Event" + IO CInt + + +widgetSendFocusChange :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Gdk.Event -- event + -> m Bool -- result +widgetSendFocusChange _obj event = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let event' = unsafeManagedPtrGetPtr event + result <- gtk_widget_send_focus_change _obj' event' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr event + return result' + +data WidgetSendFocusChangeMethodInfo +instance (signature ~ (Gdk.Event -> m Bool), MonadIO m, WidgetK a) => MethodInfo WidgetSendFocusChangeMethodInfo a signature where + overloadedMethod _ = widgetSendFocusChange + +-- method Widget::set_accel_path +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_group", argType = TInterface "Gtk" "AccelGroup", 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 "gtk_widget_set_accel_path" gtk_widget_set_accel_path :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CString -> -- accel_path : TBasicType TUTF8 + Ptr AccelGroup -> -- accel_group : TInterface "Gtk" "AccelGroup" + IO () + + +widgetSetAccelPath :: + (MonadIO m, WidgetK a, AccelGroupK b) => + a -- _obj + -> Maybe (T.Text) -- accelPath + -> Maybe (b) -- accelGroup + -> m () -- result +widgetSetAccelPath _obj accelPath accelGroup = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeAccelPath <- case accelPath of + Nothing -> return nullPtr + Just jAccelPath -> do + jAccelPath' <- textToCString jAccelPath + return jAccelPath' + maybeAccelGroup <- case accelGroup of + Nothing -> return nullPtr + Just jAccelGroup -> do + let jAccelGroup' = unsafeManagedPtrCastPtr jAccelGroup + return jAccelGroup' + gtk_widget_set_accel_path _obj' maybeAccelPath maybeAccelGroup + touchManagedPtr _obj + whenJust accelGroup touchManagedPtr + freeMem maybeAccelPath + return () + +data WidgetSetAccelPathMethodInfo +instance (signature ~ (Maybe (T.Text) -> Maybe (b) -> m ()), MonadIO m, WidgetK a, AccelGroupK b) => MethodInfo WidgetSetAccelPathMethodInfo a signature where + overloadedMethod _ = widgetSetAccelPath + +-- method Widget::set_allocation +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allocation", 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 "gtk_widget_set_allocation" gtk_widget_set_allocation :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Gdk.Rectangle -> -- allocation : TInterface "Gdk" "Rectangle" + IO () + + +widgetSetAllocation :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Gdk.Rectangle -- allocation + -> m () -- result +widgetSetAllocation _obj allocation = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let allocation' = unsafeManagedPtrGetPtr allocation + gtk_widget_set_allocation _obj' allocation' + touchManagedPtr _obj + touchManagedPtr allocation + return () + +data WidgetSetAllocationMethodInfo +instance (signature ~ (Gdk.Rectangle -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetAllocationMethodInfo a signature where + overloadedMethod _ = widgetSetAllocation + +-- method Widget::set_app_paintable +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "app_paintable", 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 "gtk_widget_set_app_paintable" gtk_widget_set_app_paintable :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CInt -> -- app_paintable : TBasicType TBoolean + IO () + + +widgetSetAppPaintable :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Bool -- appPaintable + -> m () -- result +widgetSetAppPaintable _obj appPaintable = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let appPaintable' = (fromIntegral . fromEnum) appPaintable + gtk_widget_set_app_paintable _obj' appPaintable' + touchManagedPtr _obj + return () + +data WidgetSetAppPaintableMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetAppPaintableMethodInfo a signature where + overloadedMethod _ = widgetSetAppPaintable + +-- method Widget::set_can_default +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "can_default", 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 "gtk_widget_set_can_default" gtk_widget_set_can_default :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CInt -> -- can_default : TBasicType TBoolean + IO () + + +widgetSetCanDefault :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Bool -- canDefault + -> m () -- result +widgetSetCanDefault _obj canDefault = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let canDefault' = (fromIntegral . fromEnum) canDefault + gtk_widget_set_can_default _obj' canDefault' + touchManagedPtr _obj + return () + +data WidgetSetCanDefaultMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetCanDefaultMethodInfo a signature where + overloadedMethod _ = widgetSetCanDefault + +-- method Widget::set_can_focus +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "can_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 "gtk_widget_set_can_focus" gtk_widget_set_can_focus :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CInt -> -- can_focus : TBasicType TBoolean + IO () + + +widgetSetCanFocus :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Bool -- canFocus + -> m () -- result +widgetSetCanFocus _obj canFocus = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let canFocus' = (fromIntegral . fromEnum) canFocus + gtk_widget_set_can_focus _obj' canFocus' + touchManagedPtr _obj + return () + +data WidgetSetCanFocusMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetCanFocusMethodInfo a signature where + overloadedMethod _ = widgetSetCanFocus + +-- method Widget::set_child_visible +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_visible", 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 "gtk_widget_set_child_visible" gtk_widget_set_child_visible :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CInt -> -- is_visible : TBasicType TBoolean + IO () + + +widgetSetChildVisible :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Bool -- isVisible + -> m () -- result +widgetSetChildVisible _obj isVisible = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let isVisible' = (fromIntegral . fromEnum) isVisible + gtk_widget_set_child_visible _obj' isVisible' + touchManagedPtr _obj + return () + +data WidgetSetChildVisibleMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetChildVisibleMethodInfo a signature where + overloadedMethod _ = widgetSetChildVisible + +-- method Widget::set_clip +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "clip", 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 "gtk_widget_set_clip" gtk_widget_set_clip :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Gdk.Rectangle -> -- clip : TInterface "Gdk" "Rectangle" + IO () + + +widgetSetClip :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Gdk.Rectangle -- clip + -> m () -- result +widgetSetClip _obj clip = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let clip' = unsafeManagedPtrGetPtr clip + gtk_widget_set_clip _obj' clip' + touchManagedPtr _obj + touchManagedPtr clip + return () + +data WidgetSetClipMethodInfo +instance (signature ~ (Gdk.Rectangle -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetClipMethodInfo a signature where + overloadedMethod _ = widgetSetClip + +-- method Widget::set_composite_name +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_set_composite_name" gtk_widget_set_composite_name :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CString -> -- name : TBasicType TUTF8 + IO () + +{-# DEPRECATED widgetSetCompositeName ["(Since version 3.10)","Use gtk_widget_class_set_template(), or don\8217t use this API at all."]#-} +widgetSetCompositeName :: + (MonadIO m, WidgetK a) => + a -- _obj + -> T.Text -- name + -> m () -- result +widgetSetCompositeName _obj name = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + name' <- textToCString name + gtk_widget_set_composite_name _obj' name' + touchManagedPtr _obj + freeMem name' + return () + +data WidgetSetCompositeNameMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetCompositeNameMethodInfo a signature where + overloadedMethod _ = widgetSetCompositeName + +-- method Widget::set_device_enabled +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 = "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 "gtk_widget_set_device_enabled" gtk_widget_set_device_enabled :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Gdk.Device -> -- device : TInterface "Gdk" "Device" + CInt -> -- enabled : TBasicType TBoolean + IO () + + +widgetSetDeviceEnabled :: + (MonadIO m, WidgetK a, Gdk.DeviceK b) => + a -- _obj + -> b -- device + -> Bool -- enabled + -> m () -- result +widgetSetDeviceEnabled _obj device enabled = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let device' = unsafeManagedPtrCastPtr device + let enabled' = (fromIntegral . fromEnum) enabled + gtk_widget_set_device_enabled _obj' device' enabled' + touchManagedPtr _obj + touchManagedPtr device + return () + +data WidgetSetDeviceEnabledMethodInfo +instance (signature ~ (b -> Bool -> m ()), MonadIO m, WidgetK a, Gdk.DeviceK b) => MethodInfo WidgetSetDeviceEnabledMethodInfo a signature where + overloadedMethod _ = widgetSetDeviceEnabled + +-- method Widget::set_device_events +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 = "events", 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 "gtk_widget_set_device_events" gtk_widget_set_device_events :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Gdk.Device -> -- device : TInterface "Gdk" "Device" + CUInt -> -- events : TInterface "Gdk" "EventMask" + IO () + + +widgetSetDeviceEvents :: + (MonadIO m, WidgetK a, Gdk.DeviceK b) => + a -- _obj + -> b -- device + -> [Gdk.EventMask] -- events + -> m () -- result +widgetSetDeviceEvents _obj device events = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let device' = unsafeManagedPtrCastPtr device + let events' = gflagsToWord events + gtk_widget_set_device_events _obj' device' events' + touchManagedPtr _obj + touchManagedPtr device + return () + +data WidgetSetDeviceEventsMethodInfo +instance (signature ~ (b -> [Gdk.EventMask] -> m ()), MonadIO m, WidgetK a, Gdk.DeviceK b) => MethodInfo WidgetSetDeviceEventsMethodInfo a signature where + overloadedMethod _ = widgetSetDeviceEvents + +-- method Widget::set_direction +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dir", argType = TInterface "Gtk" "TextDirection", 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 "gtk_widget_set_direction" gtk_widget_set_direction :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CUInt -> -- dir : TInterface "Gtk" "TextDirection" + IO () + + +widgetSetDirection :: + (MonadIO m, WidgetK a) => + a -- _obj + -> TextDirection -- dir + -> m () -- result +widgetSetDirection _obj dir = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let dir' = (fromIntegral . fromEnum) dir + gtk_widget_set_direction _obj' dir' + touchManagedPtr _obj + return () + +data WidgetSetDirectionMethodInfo +instance (signature ~ (TextDirection -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetDirectionMethodInfo a signature where + overloadedMethod _ = widgetSetDirection + +-- method Widget::set_double_buffered +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "double_buffered", 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 "gtk_widget_set_double_buffered" gtk_widget_set_double_buffered :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CInt -> -- double_buffered : TBasicType TBoolean + IO () + +{-# DEPRECATED widgetSetDoubleBuffered ["(Since version 3.14)","This function does not work under non-X11 backends or with","non-native windows.","It should not be used in newly written code."]#-} +widgetSetDoubleBuffered :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Bool -- doubleBuffered + -> m () -- result +widgetSetDoubleBuffered _obj doubleBuffered = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let doubleBuffered' = (fromIntegral . fromEnum) doubleBuffered + gtk_widget_set_double_buffered _obj' doubleBuffered' + touchManagedPtr _obj + return () + +data WidgetSetDoubleBufferedMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetDoubleBufferedMethodInfo a signature where + overloadedMethod _ = widgetSetDoubleBuffered + +-- method Widget::set_events +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "events", 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 "gtk_widget_set_events" gtk_widget_set_events :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Int32 -> -- events : TBasicType TInt + IO () + + +widgetSetEvents :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Int32 -- events + -> m () -- result +widgetSetEvents _obj events = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_set_events _obj' events + touchManagedPtr _obj + return () + +data WidgetSetEventsMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetEventsMethodInfo a signature where + overloadedMethod _ = widgetSetEvents + +-- method Widget::set_font_map +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "font_map", argType = TInterface "Pango" "FontMap", 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 "gtk_widget_set_font_map" gtk_widget_set_font_map :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Pango.FontMap -> -- font_map : TInterface "Pango" "FontMap" + IO () + + +widgetSetFontMap :: + (MonadIO m, WidgetK a, Pango.FontMapK b) => + a -- _obj + -> Maybe (b) -- fontMap + -> m () -- result +widgetSetFontMap _obj fontMap = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeFontMap <- case fontMap of + Nothing -> return nullPtr + Just jFontMap -> do + let jFontMap' = unsafeManagedPtrCastPtr jFontMap + return jFontMap' + gtk_widget_set_font_map _obj' maybeFontMap + touchManagedPtr _obj + whenJust fontMap touchManagedPtr + return () + +data WidgetSetFontMapMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, WidgetK a, Pango.FontMapK b) => MethodInfo WidgetSetFontMapMethodInfo a signature where + overloadedMethod _ = widgetSetFontMap + +-- method Widget::set_font_options +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_set_font_options" gtk_widget_set_font_options :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Cairo.FontOptions -> -- options : TInterface "cairo" "FontOptions" + IO () + + +widgetSetFontOptions :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Maybe (Cairo.FontOptions) -- options + -> m () -- result +widgetSetFontOptions _obj options = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeOptions <- case options of + Nothing -> return nullPtr + Just jOptions -> do + let jOptions' = unsafeManagedPtrGetPtr jOptions + return jOptions' + gtk_widget_set_font_options _obj' maybeOptions + touchManagedPtr _obj + whenJust options touchManagedPtr + return () + +data WidgetSetFontOptionsMethodInfo +instance (signature ~ (Maybe (Cairo.FontOptions) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetFontOptionsMethodInfo a signature where + overloadedMethod _ = widgetSetFontOptions + +-- method Widget::set_halign +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "align", argType = TInterface "Gtk" "Align", 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 "gtk_widget_set_halign" gtk_widget_set_halign :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CUInt -> -- align : TInterface "Gtk" "Align" + IO () + + +widgetSetHalign :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Align -- align + -> m () -- result +widgetSetHalign _obj align = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let align' = (fromIntegral . fromEnum) align + gtk_widget_set_halign _obj' align' + touchManagedPtr _obj + return () + +data WidgetSetHalignMethodInfo +instance (signature ~ (Align -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetHalignMethodInfo a signature where + overloadedMethod _ = widgetSetHalign + +-- method Widget::set_has_tooltip +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "has_tooltip", 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 "gtk_widget_set_has_tooltip" gtk_widget_set_has_tooltip :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CInt -> -- has_tooltip : TBasicType TBoolean + IO () + + +widgetSetHasTooltip :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Bool -- hasTooltip + -> m () -- result +widgetSetHasTooltip _obj hasTooltip = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let hasTooltip' = (fromIntegral . fromEnum) hasTooltip + gtk_widget_set_has_tooltip _obj' hasTooltip' + touchManagedPtr _obj + return () + +data WidgetSetHasTooltipMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetHasTooltipMethodInfo a signature where + overloadedMethod _ = widgetSetHasTooltip + +-- method Widget::set_has_window +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "has_window", 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 "gtk_widget_set_has_window" gtk_widget_set_has_window :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CInt -> -- has_window : TBasicType TBoolean + IO () + + +widgetSetHasWindow :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Bool -- hasWindow + -> m () -- result +widgetSetHasWindow _obj hasWindow = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let hasWindow' = (fromIntegral . fromEnum) hasWindow + gtk_widget_set_has_window _obj' hasWindow' + touchManagedPtr _obj + return () + +data WidgetSetHasWindowMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetHasWindowMethodInfo a signature where + overloadedMethod _ = widgetSetHasWindow + +-- method Widget::set_hexpand +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", 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 "gtk_widget_set_hexpand" gtk_widget_set_hexpand :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CInt -> -- expand : TBasicType TBoolean + IO () + + +widgetSetHexpand :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Bool -- expand + -> m () -- result +widgetSetHexpand _obj expand = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let expand' = (fromIntegral . fromEnum) expand + gtk_widget_set_hexpand _obj' expand' + touchManagedPtr _obj + return () + +data WidgetSetHexpandMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetHexpandMethodInfo a signature where + overloadedMethod _ = widgetSetHexpand + +-- method Widget::set_hexpand_set +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "set", 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 "gtk_widget_set_hexpand_set" gtk_widget_set_hexpand_set :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CInt -> -- set : TBasicType TBoolean + IO () + + +widgetSetHexpandSet :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Bool -- set + -> m () -- result +widgetSetHexpandSet _obj set = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let set' = (fromIntegral . fromEnum) set + gtk_widget_set_hexpand_set _obj' set' + touchManagedPtr _obj + return () + +data WidgetSetHexpandSetMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetHexpandSetMethodInfo a signature where + overloadedMethod _ = widgetSetHexpandSet + +-- method Widget::set_mapped +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mapped", 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 "gtk_widget_set_mapped" gtk_widget_set_mapped :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CInt -> -- mapped : TBasicType TBoolean + IO () + + +widgetSetMapped :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Bool -- mapped + -> m () -- result +widgetSetMapped _obj mapped = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let mapped' = (fromIntegral . fromEnum) mapped + gtk_widget_set_mapped _obj' mapped' + touchManagedPtr _obj + return () + +data WidgetSetMappedMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetMappedMethodInfo a signature where + overloadedMethod _ = widgetSetMapped + +-- method Widget::set_margin_bottom +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "margin", 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 "gtk_widget_set_margin_bottom" gtk_widget_set_margin_bottom :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Int32 -> -- margin : TBasicType TInt + IO () + + +widgetSetMarginBottom :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Int32 -- margin + -> m () -- result +widgetSetMarginBottom _obj margin = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_set_margin_bottom _obj' margin + touchManagedPtr _obj + return () + +data WidgetSetMarginBottomMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetMarginBottomMethodInfo a signature where + overloadedMethod _ = widgetSetMarginBottom + +-- method Widget::set_margin_end +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "margin", 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 "gtk_widget_set_margin_end" gtk_widget_set_margin_end :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Int32 -> -- margin : TBasicType TInt + IO () + + +widgetSetMarginEnd :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Int32 -- margin + -> m () -- result +widgetSetMarginEnd _obj margin = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_set_margin_end _obj' margin + touchManagedPtr _obj + return () + +data WidgetSetMarginEndMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetMarginEndMethodInfo a signature where + overloadedMethod _ = widgetSetMarginEnd + +-- method Widget::set_margin_left +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "margin", 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 "gtk_widget_set_margin_left" gtk_widget_set_margin_left :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Int32 -> -- margin : TBasicType TInt + IO () + +{-# DEPRECATED widgetSetMarginLeft ["(Since version 3.12)","Use gtk_widget_set_margin_start() instead."]#-} +widgetSetMarginLeft :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Int32 -- margin + -> m () -- result +widgetSetMarginLeft _obj margin = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_set_margin_left _obj' margin + touchManagedPtr _obj + return () + +data WidgetSetMarginLeftMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetMarginLeftMethodInfo a signature where + overloadedMethod _ = widgetSetMarginLeft + +-- method Widget::set_margin_right +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "margin", 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 "gtk_widget_set_margin_right" gtk_widget_set_margin_right :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Int32 -> -- margin : TBasicType TInt + IO () + +{-# DEPRECATED widgetSetMarginRight ["(Since version 3.12)","Use gtk_widget_set_margin_end() instead."]#-} +widgetSetMarginRight :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Int32 -- margin + -> m () -- result +widgetSetMarginRight _obj margin = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_set_margin_right _obj' margin + touchManagedPtr _obj + return () + +data WidgetSetMarginRightMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetMarginRightMethodInfo a signature where + overloadedMethod _ = widgetSetMarginRight + +-- method Widget::set_margin_start +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "margin", 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 "gtk_widget_set_margin_start" gtk_widget_set_margin_start :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Int32 -> -- margin : TBasicType TInt + IO () + + +widgetSetMarginStart :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Int32 -- margin + -> m () -- result +widgetSetMarginStart _obj margin = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_set_margin_start _obj' margin + touchManagedPtr _obj + return () + +data WidgetSetMarginStartMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetMarginStartMethodInfo a signature where + overloadedMethod _ = widgetSetMarginStart + +-- method Widget::set_margin_top +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "margin", 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 "gtk_widget_set_margin_top" gtk_widget_set_margin_top :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Int32 -> -- margin : TBasicType TInt + IO () + + +widgetSetMarginTop :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Int32 -- margin + -> m () -- result +widgetSetMarginTop _obj margin = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_set_margin_top _obj' margin + touchManagedPtr _obj + return () + +data WidgetSetMarginTopMethodInfo +instance (signature ~ (Int32 -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetMarginTopMethodInfo a signature where + overloadedMethod _ = widgetSetMarginTop + +-- method Widget::set_name +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_set_name" gtk_widget_set_name :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CString -> -- name : TBasicType TUTF8 + IO () + + +widgetSetName :: + (MonadIO m, WidgetK a) => + a -- _obj + -> T.Text -- name + -> m () -- result +widgetSetName _obj name = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + name' <- textToCString name + gtk_widget_set_name _obj' name' + touchManagedPtr _obj + freeMem name' + return () + +data WidgetSetNameMethodInfo +instance (signature ~ (T.Text -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetNameMethodInfo a signature where + overloadedMethod _ = widgetSetName + +-- method Widget::set_no_show_all +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "no_show_all", 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 "gtk_widget_set_no_show_all" gtk_widget_set_no_show_all :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CInt -> -- no_show_all : TBasicType TBoolean + IO () + + +widgetSetNoShowAll :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Bool -- noShowAll + -> m () -- result +widgetSetNoShowAll _obj noShowAll = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let noShowAll' = (fromIntegral . fromEnum) noShowAll + gtk_widget_set_no_show_all _obj' noShowAll' + touchManagedPtr _obj + return () + +data WidgetSetNoShowAllMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetNoShowAllMethodInfo a signature where + overloadedMethod _ = widgetSetNoShowAll + +-- method Widget::set_opacity +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_set_opacity" gtk_widget_set_opacity :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CDouble -> -- opacity : TBasicType TDouble + IO () + + +widgetSetOpacity :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Double -- opacity + -> m () -- result +widgetSetOpacity _obj opacity = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let opacity' = realToFrac opacity + gtk_widget_set_opacity _obj' opacity' + touchManagedPtr _obj + return () + +data WidgetSetOpacityMethodInfo +instance (signature ~ (Double -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetOpacityMethodInfo a signature where + overloadedMethod _ = widgetSetOpacity + +-- method Widget::set_parent +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_set_parent" gtk_widget_set_parent :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Widget -> -- parent : TInterface "Gtk" "Widget" + IO () + + +widgetSetParent :: + (MonadIO m, WidgetK a, WidgetK b) => + a -- _obj + -> b -- parent + -> m () -- result +widgetSetParent _obj parent = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let parent' = unsafeManagedPtrCastPtr parent + gtk_widget_set_parent _obj' parent' + touchManagedPtr _obj + touchManagedPtr parent + return () + +data WidgetSetParentMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, WidgetK a, WidgetK b) => MethodInfo WidgetSetParentMethodInfo a signature where + overloadedMethod _ = widgetSetParent + +-- method Widget::set_parent_window +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent_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 "gtk_widget_set_parent_window" gtk_widget_set_parent_window :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Gdk.Window -> -- parent_window : TInterface "Gdk" "Window" + IO () + + +widgetSetParentWindow :: + (MonadIO m, WidgetK a, Gdk.WindowK b) => + a -- _obj + -> b -- parentWindow + -> m () -- result +widgetSetParentWindow _obj parentWindow = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let parentWindow' = unsafeManagedPtrCastPtr parentWindow + gtk_widget_set_parent_window _obj' parentWindow' + touchManagedPtr _obj + touchManagedPtr parentWindow + return () + +data WidgetSetParentWindowMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, WidgetK a, Gdk.WindowK b) => MethodInfo WidgetSetParentWindowMethodInfo a signature where + overloadedMethod _ = widgetSetParentWindow + +-- method Widget::set_realized +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "realized", 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 "gtk_widget_set_realized" gtk_widget_set_realized :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CInt -> -- realized : TBasicType TBoolean + IO () + + +widgetSetRealized :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Bool -- realized + -> m () -- result +widgetSetRealized _obj realized = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let realized' = (fromIntegral . fromEnum) realized + gtk_widget_set_realized _obj' realized' + touchManagedPtr _obj + return () + +data WidgetSetRealizedMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetRealizedMethodInfo a signature where + overloadedMethod _ = widgetSetRealized + +-- method Widget::set_receives_default +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "receives_default", 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 "gtk_widget_set_receives_default" gtk_widget_set_receives_default :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CInt -> -- receives_default : TBasicType TBoolean + IO () + + +widgetSetReceivesDefault :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Bool -- receivesDefault + -> m () -- result +widgetSetReceivesDefault _obj receivesDefault = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let receivesDefault' = (fromIntegral . fromEnum) receivesDefault + gtk_widget_set_receives_default _obj' receivesDefault' + touchManagedPtr _obj + return () + +data WidgetSetReceivesDefaultMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetReceivesDefaultMethodInfo a signature where + overloadedMethod _ = widgetSetReceivesDefault + +-- method Widget::set_redraw_on_allocate +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "redraw_on_allocate", 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 "gtk_widget_set_redraw_on_allocate" gtk_widget_set_redraw_on_allocate :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CInt -> -- redraw_on_allocate : TBasicType TBoolean + IO () + + +widgetSetRedrawOnAllocate :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Bool -- redrawOnAllocate + -> m () -- result +widgetSetRedrawOnAllocate _obj redrawOnAllocate = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let redrawOnAllocate' = (fromIntegral . fromEnum) redrawOnAllocate + gtk_widget_set_redraw_on_allocate _obj' redrawOnAllocate' + touchManagedPtr _obj + return () + +data WidgetSetRedrawOnAllocateMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetRedrawOnAllocateMethodInfo a signature where + overloadedMethod _ = widgetSetRedrawOnAllocate + +-- method Widget::set_sensitive +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sensitive", 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 "gtk_widget_set_sensitive" gtk_widget_set_sensitive :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CInt -> -- sensitive : TBasicType TBoolean + IO () + + +widgetSetSensitive :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Bool -- sensitive + -> m () -- result +widgetSetSensitive _obj sensitive = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let sensitive' = (fromIntegral . fromEnum) sensitive + gtk_widget_set_sensitive _obj' sensitive' + touchManagedPtr _obj + return () + +data WidgetSetSensitiveMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetSensitiveMethodInfo a signature where + overloadedMethod _ = widgetSetSensitive + +-- method Widget::set_size_request +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_set_size_request" gtk_widget_set_size_request :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Int32 -> -- width : TBasicType TInt + Int32 -> -- height : TBasicType TInt + IO () + + +widgetSetSizeRequest :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Int32 -- width + -> Int32 -- height + -> m () -- result +widgetSetSizeRequest _obj width height = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_set_size_request _obj' width height + touchManagedPtr _obj + return () + +data WidgetSetSizeRequestMethodInfo +instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetSizeRequestMethodInfo a signature where + overloadedMethod _ = widgetSetSizeRequest + +-- method Widget::set_state +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateType", 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 "gtk_widget_set_state" gtk_widget_set_state :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CUInt -> -- state : TInterface "Gtk" "StateType" + IO () + +{-# DEPRECATED widgetSetState ["(Since version 3.0)","Use gtk_widget_set_state_flags() instead."]#-} +widgetSetState :: + (MonadIO m, WidgetK a) => + a -- _obj + -> StateType -- state + -> m () -- result +widgetSetState _obj state = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let state' = (fromIntegral . fromEnum) state + gtk_widget_set_state _obj' state' + touchManagedPtr _obj + return () + +data WidgetSetStateMethodInfo +instance (signature ~ (StateType -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetStateMethodInfo a signature where + overloadedMethod _ = widgetSetState + +-- method Widget::set_state_flags +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "clear", 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 "gtk_widget_set_state_flags" gtk_widget_set_state_flags :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CUInt -> -- flags : TInterface "Gtk" "StateFlags" + CInt -> -- clear : TBasicType TBoolean + IO () + + +widgetSetStateFlags :: + (MonadIO m, WidgetK a) => + a -- _obj + -> [StateFlags] -- flags + -> Bool -- clear + -> m () -- result +widgetSetStateFlags _obj flags clear = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let flags' = gflagsToWord flags + let clear' = (fromIntegral . fromEnum) clear + gtk_widget_set_state_flags _obj' flags' clear' + touchManagedPtr _obj + return () + +data WidgetSetStateFlagsMethodInfo +instance (signature ~ ([StateFlags] -> Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetStateFlagsMethodInfo a signature where + overloadedMethod _ = widgetSetStateFlags + +-- method Widget::set_style +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "style", argType = TInterface "Gtk" "Style", 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 "gtk_widget_set_style" gtk_widget_set_style :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Style -> -- style : TInterface "Gtk" "Style" + IO () + +{-# DEPRECATED widgetSetStyle ["(Since version 3.0)","Use #GtkStyleContext instead"]#-} +widgetSetStyle :: + (MonadIO m, WidgetK a, StyleK b) => + a -- _obj + -> Maybe (b) -- style + -> m () -- result +widgetSetStyle _obj style = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeStyle <- case style of + Nothing -> return nullPtr + Just jStyle -> do + let jStyle' = unsafeManagedPtrCastPtr jStyle + return jStyle' + gtk_widget_set_style _obj' maybeStyle + touchManagedPtr _obj + whenJust style touchManagedPtr + return () + +data WidgetSetStyleMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, WidgetK a, StyleK b) => MethodInfo WidgetSetStyleMethodInfo a signature where + overloadedMethod _ = widgetSetStyle + +-- method Widget::set_support_multidevice +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_set_support_multidevice" gtk_widget_set_support_multidevice :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CInt -> -- support_multidevice : TBasicType TBoolean + IO () + + +widgetSetSupportMultidevice :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Bool -- supportMultidevice + -> m () -- result +widgetSetSupportMultidevice _obj supportMultidevice = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let supportMultidevice' = (fromIntegral . fromEnum) supportMultidevice + gtk_widget_set_support_multidevice _obj' supportMultidevice' + touchManagedPtr _obj + return () + +data WidgetSetSupportMultideviceMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetSupportMultideviceMethodInfo a signature where + overloadedMethod _ = widgetSetSupportMultidevice + +-- method Widget::set_tooltip_markup +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "markup", 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 "gtk_widget_set_tooltip_markup" gtk_widget_set_tooltip_markup :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CString -> -- markup : TBasicType TUTF8 + IO () + + +widgetSetTooltipMarkup :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Maybe (T.Text) -- markup + -> m () -- result +widgetSetTooltipMarkup _obj markup = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeMarkup <- case markup of + Nothing -> return nullPtr + Just jMarkup -> do + jMarkup' <- textToCString jMarkup + return jMarkup' + gtk_widget_set_tooltip_markup _obj' maybeMarkup + touchManagedPtr _obj + freeMem maybeMarkup + return () + +data WidgetSetTooltipMarkupMethodInfo +instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetTooltipMarkupMethodInfo a signature where + overloadedMethod _ = widgetSetTooltipMarkup + +-- method Widget::set_tooltip_text +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", 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 "gtk_widget_set_tooltip_text" gtk_widget_set_tooltip_text :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CString -> -- text : TBasicType TUTF8 + IO () + + +widgetSetTooltipText :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Maybe (T.Text) -- text + -> m () -- result +widgetSetTooltipText _obj text = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeText <- case text of + Nothing -> return nullPtr + Just jText -> do + jText' <- textToCString jText + return jText' + gtk_widget_set_tooltip_text _obj' maybeText + touchManagedPtr _obj + freeMem maybeText + return () + +data WidgetSetTooltipTextMethodInfo +instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetTooltipTextMethodInfo a signature where + overloadedMethod _ = widgetSetTooltipText + +-- method Widget::set_tooltip_window +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "custom_window", argType = TInterface "Gtk" "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 "gtk_widget_set_tooltip_window" gtk_widget_set_tooltip_window :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Window -> -- custom_window : TInterface "Gtk" "Window" + IO () + + +widgetSetTooltipWindow :: + (MonadIO m, WidgetK a, WindowK b) => + a -- _obj + -> Maybe (b) -- customWindow + -> m () -- result +widgetSetTooltipWindow _obj customWindow = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeCustomWindow <- case customWindow of + Nothing -> return nullPtr + Just jCustomWindow -> do + let jCustomWindow' = unsafeManagedPtrCastPtr jCustomWindow + return jCustomWindow' + gtk_widget_set_tooltip_window _obj' maybeCustomWindow + touchManagedPtr _obj + whenJust customWindow touchManagedPtr + return () + +data WidgetSetTooltipWindowMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, WidgetK a, WindowK b) => MethodInfo WidgetSetTooltipWindowMethodInfo a signature where + overloadedMethod _ = widgetSetTooltipWindow + +-- method Widget::set_valign +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "align", argType = TInterface "Gtk" "Align", 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 "gtk_widget_set_valign" gtk_widget_set_valign :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CUInt -> -- align : TInterface "Gtk" "Align" + IO () + + +widgetSetValign :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Align -- align + -> m () -- result +widgetSetValign _obj align = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let align' = (fromIntegral . fromEnum) align + gtk_widget_set_valign _obj' align' + touchManagedPtr _obj + return () + +data WidgetSetValignMethodInfo +instance (signature ~ (Align -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetValignMethodInfo a signature where + overloadedMethod _ = widgetSetValign + +-- method Widget::set_vexpand +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", 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 "gtk_widget_set_vexpand" gtk_widget_set_vexpand :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CInt -> -- expand : TBasicType TBoolean + IO () + + +widgetSetVexpand :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Bool -- expand + -> m () -- result +widgetSetVexpand _obj expand = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let expand' = (fromIntegral . fromEnum) expand + gtk_widget_set_vexpand _obj' expand' + touchManagedPtr _obj + return () + +data WidgetSetVexpandMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetVexpandMethodInfo a signature where + overloadedMethod _ = widgetSetVexpand + +-- method Widget::set_vexpand_set +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "set", 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 "gtk_widget_set_vexpand_set" gtk_widget_set_vexpand_set :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CInt -> -- set : TBasicType TBoolean + IO () + + +widgetSetVexpandSet :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Bool -- set + -> m () -- result +widgetSetVexpandSet _obj set = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let set' = (fromIntegral . fromEnum) set + gtk_widget_set_vexpand_set _obj' set' + touchManagedPtr _obj + return () + +data WidgetSetVexpandSetMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetVexpandSetMethodInfo a signature where + overloadedMethod _ = widgetSetVexpandSet + +-- method Widget::set_visible +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible", 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 "gtk_widget_set_visible" gtk_widget_set_visible :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CInt -> -- visible : TBasicType TBoolean + IO () + + +widgetSetVisible :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Bool -- visible + -> m () -- result +widgetSetVisible _obj visible = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let visible' = (fromIntegral . fromEnum) visible + gtk_widget_set_visible _obj' visible' + touchManagedPtr _obj + return () + +data WidgetSetVisibleMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSetVisibleMethodInfo a signature where + overloadedMethod _ = widgetSetVisible + +-- method Widget::set_visual +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visual", argType = TInterface "Gdk" "Visual", 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 "gtk_widget_set_visual" gtk_widget_set_visual :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Gdk.Visual -> -- visual : TInterface "Gdk" "Visual" + IO () + + +widgetSetVisual :: + (MonadIO m, WidgetK a, Gdk.VisualK b) => + a -- _obj + -> Maybe (b) -- visual + -> m () -- result +widgetSetVisual _obj visual = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeVisual <- case visual of + Nothing -> return nullPtr + Just jVisual -> do + let jVisual' = unsafeManagedPtrCastPtr jVisual + return jVisual' + gtk_widget_set_visual _obj' maybeVisual + touchManagedPtr _obj + whenJust visual touchManagedPtr + return () + +data WidgetSetVisualMethodInfo +instance (signature ~ (Maybe (b) -> m ()), MonadIO m, WidgetK a, Gdk.VisualK b) => MethodInfo WidgetSetVisualMethodInfo a signature where + overloadedMethod _ = widgetSetVisual + +-- method Widget::set_window +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 = TransferEverything}] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_set_window" gtk_widget_set_window :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Gdk.Window -> -- window : TInterface "Gdk" "Window" + IO () + + +widgetSetWindow :: + (MonadIO m, WidgetK a, Gdk.WindowK b) => + a -- _obj + -> b -- window + -> m () -- result +widgetSetWindow _obj window = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + window' <- refObject window + gtk_widget_set_window _obj' window' + touchManagedPtr _obj + touchManagedPtr window + return () + +data WidgetSetWindowMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, WidgetK a, Gdk.WindowK b) => MethodInfo WidgetSetWindowMethodInfo a signature where + overloadedMethod _ = widgetSetWindow + +-- method Widget::shape_combine_region +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_shape_combine_region" gtk_widget_shape_combine_region :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Cairo.Region -> -- region : TInterface "cairo" "Region" + IO () + + +widgetShapeCombineRegion :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Maybe (Cairo.Region) -- region + -> m () -- result +widgetShapeCombineRegion _obj region = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeRegion <- case region of + Nothing -> return nullPtr + Just jRegion -> do + let jRegion' = unsafeManagedPtrGetPtr jRegion + return jRegion' + gtk_widget_shape_combine_region _obj' maybeRegion + touchManagedPtr _obj + whenJust region touchManagedPtr + return () + +data WidgetShapeCombineRegionMethodInfo +instance (signature ~ (Maybe (Cairo.Region) -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetShapeCombineRegionMethodInfo a signature where + overloadedMethod _ = widgetShapeCombineRegion + +-- method Widget::show +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_show" gtk_widget_show :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetShow :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetShow _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_show _obj' + touchManagedPtr _obj + return () + +data WidgetShowMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetShowMethodInfo a signature where + overloadedMethod _ = widgetShow + +-- method Widget::show_all +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_show_all" gtk_widget_show_all :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetShowAll :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetShowAll _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_show_all _obj' + touchManagedPtr _obj + return () + +data WidgetShowAllMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetShowAllMethodInfo a signature where + overloadedMethod _ = widgetShowAll + +-- method Widget::show_now +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_show_now" gtk_widget_show_now :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetShowNow :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetShowNow _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_show_now _obj' + touchManagedPtr _obj + return () + +data WidgetShowNowMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetShowNowMethodInfo a signature where + overloadedMethod _ = widgetShowNow + +-- method Widget::size_allocate +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allocation", 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 "gtk_widget_size_allocate" gtk_widget_size_allocate :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Gdk.Rectangle -> -- allocation : TInterface "Gdk" "Rectangle" + IO () + + +widgetSizeAllocate :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Gdk.Rectangle -- allocation + -> m () -- result +widgetSizeAllocate _obj allocation = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let allocation' = unsafeManagedPtrGetPtr allocation + gtk_widget_size_allocate _obj' allocation' + touchManagedPtr _obj + touchManagedPtr allocation + return () + +data WidgetSizeAllocateMethodInfo +instance (signature ~ (Gdk.Rectangle -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSizeAllocateMethodInfo a signature where + overloadedMethod _ = widgetSizeAllocate + +-- method Widget::size_allocate_with_baseline +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allocation", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "baseline", 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 "gtk_widget_size_allocate_with_baseline" gtk_widget_size_allocate_with_baseline :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Gdk.Rectangle -> -- allocation : TInterface "Gdk" "Rectangle" + Int32 -> -- baseline : TBasicType TInt + IO () + + +widgetSizeAllocateWithBaseline :: + (MonadIO m, WidgetK a) => + a -- _obj + -> Gdk.Rectangle -- allocation + -> Int32 -- baseline + -> m () -- result +widgetSizeAllocateWithBaseline _obj allocation baseline = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let allocation' = unsafeManagedPtrGetPtr allocation + gtk_widget_size_allocate_with_baseline _obj' allocation' baseline + touchManagedPtr _obj + touchManagedPtr allocation + return () + +data WidgetSizeAllocateWithBaselineMethodInfo +instance (signature ~ (Gdk.Rectangle -> Int32 -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetSizeAllocateWithBaselineMethodInfo a signature where + overloadedMethod _ = widgetSizeAllocateWithBaseline + +-- method Widget::size_request +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "requisition", argType = TInterface "Gtk" "Requisition", 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 "gtk_widget_size_request" gtk_widget_size_request :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Requisition -> -- requisition : TInterface "Gtk" "Requisition" + IO () + +{-# DEPRECATED widgetSizeRequest ["(Since version 3.0)","Use gtk_widget_get_preferred_size() instead."]#-} +widgetSizeRequest :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m (Requisition) -- result +widgetSizeRequest _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + requisition <- callocBoxedBytes 8 :: IO (Ptr Requisition) + gtk_widget_size_request _obj' requisition + requisition' <- (wrapBoxed Requisition) requisition + touchManagedPtr _obj + return requisition' + +data WidgetSizeRequestMethodInfo +instance (signature ~ (m (Requisition)), MonadIO m, WidgetK a) => MethodInfo WidgetSizeRequestMethodInfo a signature where + overloadedMethod _ = widgetSizeRequest + +-- method Widget::style_attach +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_style_attach" gtk_widget_style_attach :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + +{-# DEPRECATED widgetStyleAttach ["(Since version 3.0)","This step is unnecessary with #GtkStyleContext."]#-} +widgetStyleAttach :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetStyleAttach _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_style_attach _obj' + touchManagedPtr _obj + return () + +data WidgetStyleAttachMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetStyleAttachMethodInfo a signature where + overloadedMethod _ = widgetStyleAttach + +-- method Widget::style_get_property +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property_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 : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_style_get_property" gtk_widget_style_get_property :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CString -> -- property_name : TBasicType TUTF8 + Ptr GValue -> -- value : TInterface "GObject" "Value" + IO () + + +widgetStyleGetProperty :: + (MonadIO m, WidgetK a) => + a -- _obj + -> T.Text -- propertyName + -> GValue -- value + -> m () -- result +widgetStyleGetProperty _obj propertyName value = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + propertyName' <- textToCString propertyName + let value' = unsafeManagedPtrGetPtr value + gtk_widget_style_get_property _obj' propertyName' value' + touchManagedPtr _obj + touchManagedPtr value + freeMem propertyName' + return () + +data WidgetStyleGetPropertyMethodInfo +instance (signature ~ (T.Text -> GValue -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetStyleGetPropertyMethodInfo a signature where + overloadedMethod _ = widgetStyleGetProperty + +-- method Widget::thaw_child_notify +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_thaw_child_notify" gtk_widget_thaw_child_notify :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetThawChildNotify :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetThawChildNotify _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_thaw_child_notify _obj' + touchManagedPtr _obj + return () + +data WidgetThawChildNotifyMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetThawChildNotifyMethodInfo a signature where + overloadedMethod _ = widgetThawChildNotify + +-- method Widget::translate_coordinates +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_widget", argType = TInterface "Gtk" "Widget", 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 = "dest_x", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "dest_y", argType = TBasicType TInt, 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 "gtk_widget_translate_coordinates" gtk_widget_translate_coordinates :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Widget -> -- dest_widget : TInterface "Gtk" "Widget" + Int32 -> -- src_x : TBasicType TInt + Int32 -> -- src_y : TBasicType TInt + Ptr Int32 -> -- dest_x : TBasicType TInt + Ptr Int32 -> -- dest_y : TBasicType TInt + IO CInt + + +widgetTranslateCoordinates :: + (MonadIO m, WidgetK a, WidgetK b) => + a -- _obj + -> b -- destWidget + -> Int32 -- srcX + -> Int32 -- srcY + -> m (Bool,Int32,Int32) -- result +widgetTranslateCoordinates _obj destWidget srcX srcY = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let destWidget' = unsafeManagedPtrCastPtr destWidget + destX <- allocMem :: IO (Ptr Int32) + destY <- allocMem :: IO (Ptr Int32) + result <- gtk_widget_translate_coordinates _obj' destWidget' srcX srcY destX destY + let result' = (/= 0) result + destX' <- peek destX + destY' <- peek destY + touchManagedPtr _obj + touchManagedPtr destWidget + freeMem destX + freeMem destY + return (result', destX', destY') + +data WidgetTranslateCoordinatesMethodInfo +instance (signature ~ (b -> Int32 -> Int32 -> m (Bool,Int32,Int32)), MonadIO m, WidgetK a, WidgetK b) => MethodInfo WidgetTranslateCoordinatesMethodInfo a signature where + overloadedMethod _ = widgetTranslateCoordinates + +-- method Widget::trigger_tooltip_query +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_trigger_tooltip_query" gtk_widget_trigger_tooltip_query :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetTriggerTooltipQuery :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetTriggerTooltipQuery _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_trigger_tooltip_query _obj' + touchManagedPtr _obj + return () + +data WidgetTriggerTooltipQueryMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetTriggerTooltipQueryMethodInfo a signature where + overloadedMethod _ = widgetTriggerTooltipQuery + +-- method Widget::unmap +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_unmap" gtk_widget_unmap :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetUnmap :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetUnmap _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_unmap _obj' + touchManagedPtr _obj + return () + +data WidgetUnmapMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetUnmapMethodInfo a signature where + overloadedMethod _ = widgetUnmap + +-- method Widget::unparent +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_unparent" gtk_widget_unparent :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetUnparent :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetUnparent _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_unparent _obj' + touchManagedPtr _obj + return () + +data WidgetUnparentMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetUnparentMethodInfo a signature where + overloadedMethod _ = widgetUnparent + +-- method Widget::unrealize +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 "gtk_widget_unrealize" gtk_widget_unrealize :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + IO () + + +widgetUnrealize :: + (MonadIO m, WidgetK a) => + a -- _obj + -> m () -- result +widgetUnrealize _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gtk_widget_unrealize _obj' + touchManagedPtr _obj + return () + +data WidgetUnrealizeMethodInfo +instance (signature ~ (m ()), MonadIO m, WidgetK a) => MethodInfo WidgetUnrealizeMethodInfo a signature where + overloadedMethod _ = widgetUnrealize + +-- method Widget::unregister_window +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", 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 : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_unregister_window" gtk_widget_unregister_window :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + Ptr Gdk.Window -> -- window : TInterface "Gdk" "Window" + IO () + + +widgetUnregisterWindow :: + (MonadIO m, WidgetK a, Gdk.WindowK b) => + a -- _obj + -> b -- window + -> m () -- result +widgetUnregisterWindow _obj window = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let window' = unsafeManagedPtrCastPtr window + gtk_widget_unregister_window _obj' window' + touchManagedPtr _obj + touchManagedPtr window + return () + +data WidgetUnregisterWindowMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, WidgetK a, Gdk.WindowK b) => MethodInfo WidgetUnregisterWindowMethodInfo a signature where + overloadedMethod _ = widgetUnregisterWindow + +-- method Widget::unset_state_flags +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "StateFlags", 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 "gtk_widget_unset_state_flags" gtk_widget_unset_state_flags :: + Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" + CUInt -> -- flags : TInterface "Gtk" "StateFlags" + IO () + + +widgetUnsetStateFlags :: + (MonadIO m, WidgetK a) => + a -- _obj + -> [StateFlags] -- flags + -> m () -- result +widgetUnsetStateFlags _obj flags = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let flags' = gflagsToWord flags + gtk_widget_unset_state_flags _obj' flags' + touchManagedPtr _obj + return () + +data WidgetUnsetStateFlagsMethodInfo +instance (signature ~ ([StateFlags] -> m ()), MonadIO m, WidgetK a) => MethodInfo WidgetUnsetStateFlagsMethodInfo a signature where + overloadedMethod _ = widgetUnsetStateFlags + +-- method Widget::get_default_direction +-- method type : MemberFunction +-- Args : [] +-- Lengths : [] +-- returnType : Just (TInterface "Gtk" "TextDirection") +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_default_direction" gtk_widget_get_default_direction :: + IO CUInt + + +widgetGetDefaultDirection :: + (MonadIO m) => + m TextDirection -- result +widgetGetDefaultDirection = liftIO $ do + result <- gtk_widget_get_default_direction + let result' = (toEnum . fromIntegral) result + return result' + +-- method Widget::get_default_style +-- method type : MemberFunction +-- Args : [] +-- Lengths : [] +-- returnType : Just (TInterface "Gtk" "Style") +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_get_default_style" gtk_widget_get_default_style :: + IO (Ptr Style) + +{-# DEPRECATED widgetGetDefaultStyle ["(Since version 3.0)","Use #GtkStyleContext instead, and"," gtk_css_provider_get_default() to obtain a #GtkStyleProvider"," with the default widget style information."]#-} +widgetGetDefaultStyle :: + (MonadIO m) => + m Style -- result +widgetGetDefaultStyle = liftIO $ do + result <- gtk_widget_get_default_style + checkUnexpectedReturnNULL "gtk_widget_get_default_style" result + result' <- (newObject Style) result + return result' + +-- method Widget::pop_composite_child +-- method type : MemberFunction +-- Args : [] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_pop_composite_child" gtk_widget_pop_composite_child :: + IO () + +{-# DEPRECATED widgetPopCompositeChild ["(Since version 3.10)","Use gtk_widget_class_set_template(), or don\8217t use this API at all."]#-} +widgetPopCompositeChild :: + (MonadIO m) => + m () -- result +widgetPopCompositeChild = liftIO $ do + gtk_widget_pop_composite_child + return () + +-- method Widget::push_composite_child +-- method type : MemberFunction +-- Args : [] +-- Lengths : [] +-- returnType : Nothing +-- throws : False +-- Skip return : False + +foreign import ccall "gtk_widget_push_composite_child" gtk_widget_push_composite_child :: + IO () + +{-# DEPRECATED widgetPushCompositeChild ["(Since version 3.10)","This API never really worked well and was mostly unused, now","we have a more complete mechanism for composite children, see gtk_widget_class_set_template()."]#-} +widgetPushCompositeChild :: + (MonadIO m) => + m () -- result +widgetPushCompositeChild = liftIO $ do + gtk_widget_push_composite_child + return () + +-- method Widget::set_default_direction +-- method type : MemberFunction +-- Args : [Arg {argCName = "dir", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/Widget.hs-boot b/GI/Gtk/Objects/Widget.hs-boot --- a/GI/Gtk/Objects/Widget.hs-boot +++ b/GI/Gtk/Objects/Widget.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.Widget where -import Prelude () 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 diff --git a/GI/Gtk/Objects/WidgetAccessible.hs b/GI/Gtk/Objects/WidgetAccessible.hs --- a/GI/Gtk/Objects/WidgetAccessible.hs +++ b/GI/Gtk/Objects/WidgetAccessible.hs @@ -18,9 +18,9 @@ ) where -import Prelude () 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 diff --git a/GI/Gtk/Objects/WidgetAccessible.hs-boot b/GI/Gtk/Objects/WidgetAccessible.hs-boot --- a/GI/Gtk/Objects/WidgetAccessible.hs-boot +++ b/GI/Gtk/Objects/WidgetAccessible.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.WidgetAccessible where -import Prelude () 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 diff --git a/GI/Gtk/Objects/Window.hs b/GI/Gtk/Objects/Window.hs --- a/GI/Gtk/Objects/Window.hs +++ b/GI/Gtk/Objects/Window.hs @@ -610,20 +610,25 @@ constructWindowAcceptFocus , getWindowAcceptFocus , setWindowAcceptFocus , + windowAcceptFocus , -- ** Application WindowApplicationPropertyInfo , + clearWindowApplication , constructWindowApplication , getWindowApplication , setWindowApplication , + windowApplication , -- ** AttachedTo WindowAttachedToPropertyInfo , + clearWindowAttachedTo , constructWindowAttachedTo , getWindowAttachedTo , setWindowAttachedTo , + windowAttachedTo , -- ** Decorated @@ -631,6 +636,7 @@ constructWindowDecorated , getWindowDecorated , setWindowDecorated , + windowDecorated , -- ** DefaultHeight @@ -638,6 +644,7 @@ constructWindowDefaultHeight , getWindowDefaultHeight , setWindowDefaultHeight , + windowDefaultHeight , -- ** DefaultWidth @@ -645,6 +652,7 @@ constructWindowDefaultWidth , getWindowDefaultWidth , setWindowDefaultWidth , + windowDefaultWidth , -- ** Deletable @@ -652,6 +660,7 @@ constructWindowDeletable , getWindowDeletable , setWindowDeletable , + windowDeletable , -- ** DestroyWithParent @@ -659,6 +668,7 @@ constructWindowDestroyWithParent , getWindowDestroyWithParent , setWindowDestroyWithParent , + windowDestroyWithParent , -- ** FocusOnMap @@ -666,6 +676,7 @@ constructWindowFocusOnMap , getWindowFocusOnMap , setWindowFocusOnMap , + windowFocusOnMap , -- ** FocusVisible @@ -673,6 +684,7 @@ constructWindowFocusVisible , getWindowFocusVisible , setWindowFocusVisible , + windowFocusVisible , -- ** Gravity @@ -680,6 +692,7 @@ constructWindowGravity , getWindowGravity , setWindowGravity , + windowGravity , -- ** HasResizeGrip @@ -687,6 +700,7 @@ constructWindowHasResizeGrip , getWindowHasResizeGrip , setWindowHasResizeGrip , + windowHasResizeGrip , -- ** HasToplevelFocus @@ -699,20 +713,25 @@ constructWindowHideTitlebarWhenMaximized, getWindowHideTitlebarWhenMaximized , setWindowHideTitlebarWhenMaximized , + windowHideTitlebarWhenMaximized , -- ** Icon WindowIconPropertyInfo , + clearWindowIcon , constructWindowIcon , getWindowIcon , setWindowIcon , + windowIcon , -- ** IconName WindowIconNamePropertyInfo , + clearWindowIconName , constructWindowIconName , getWindowIconName , setWindowIconName , + windowIconName , -- ** IsActive @@ -730,6 +749,7 @@ constructWindowMnemonicsVisible , getWindowMnemonicsVisible , setWindowMnemonicsVisible , + windowMnemonicsVisible , -- ** Modal @@ -737,6 +757,7 @@ constructWindowModal , getWindowModal , setWindowModal , + windowModal , -- ** Resizable @@ -744,11 +765,13 @@ constructWindowResizable , getWindowResizable , setWindowResizable , + windowResizable , -- ** ResizeGripVisible WindowResizeGripVisiblePropertyInfo , getWindowResizeGripVisible , + windowResizeGripVisible , -- ** Role @@ -756,6 +779,7 @@ constructWindowRole , getWindowRole , setWindowRole , + windowRole , -- ** Screen @@ -763,6 +787,7 @@ constructWindowScreen , getWindowScreen , setWindowScreen , + windowScreen , -- ** SkipPagerHint @@ -770,6 +795,7 @@ constructWindowSkipPagerHint , getWindowSkipPagerHint , setWindowSkipPagerHint , + windowSkipPagerHint , -- ** SkipTaskbarHint @@ -777,12 +803,14 @@ constructWindowSkipTaskbarHint , getWindowSkipTaskbarHint , setWindowSkipTaskbarHint , + windowSkipTaskbarHint , -- ** StartupId WindowStartupIdPropertyInfo , constructWindowStartupId , setWindowStartupId , + windowStartupId , -- ** Title @@ -790,19 +818,23 @@ constructWindowTitle , getWindowTitle , setWindowTitle , + windowTitle , -- ** TransientFor WindowTransientForPropertyInfo , + clearWindowTransientFor , constructWindowTransientFor , getWindowTransientFor , setWindowTransientFor , + windowTransientFor , -- ** Type WindowTypePropertyInfo , constructWindowType , getWindowType , + windowType , -- ** TypeHint @@ -810,6 +842,7 @@ constructWindowTypeHint , getWindowTypeHint , setWindowTypeHint , + windowTypeHint , -- ** UrgencyHint @@ -817,6 +850,7 @@ constructWindowUrgencyHint , getWindowUrgencyHint , setWindowUrgencyHint , + windowUrgencyHint , -- ** WindowPosition @@ -824,6 +858,7 @@ constructWindowWindowPosition , getWindowWindowPosition , setWindowWindowPosition , + windowWindowPosition , @@ -893,9 +928,9 @@ ) where -import Prelude () 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 @@ -1555,6 +1590,7 @@ -- VVV Prop "accept-focus" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getWindowAcceptFocus :: (MonadIO m, WindowK o) => o -> m Bool getWindowAcceptFocus obj = liftIO $ getObjectPropertyBool obj "accept-focus" @@ -1575,23 +1611,28 @@ attrGet _ = getWindowAcceptFocus attrSet _ = setWindowAcceptFocus attrConstruct _ = constructWindowAcceptFocus + attrClear _ = undefined -- VVV Prop "application" -- Type: TInterface "Gtk" "Application" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) getWindowApplication :: (MonadIO m, WindowK o) => o -> m Application -getWindowApplication obj = liftIO $ getObjectPropertyObject obj "application" Application +getWindowApplication obj = liftIO $ checkUnexpectedNothing "getWindowApplication" $ getObjectPropertyObject obj "application" Application setWindowApplication :: (MonadIO m, WindowK o, ApplicationK a) => o -> a -> m () -setWindowApplication obj val = liftIO $ setObjectPropertyObject obj "application" val +setWindowApplication obj val = liftIO $ setObjectPropertyObject obj "application" (Just val) constructWindowApplication :: (ApplicationK a) => a -> IO ([Char], GValue) -constructWindowApplication val = constructObjectPropertyObject "application" val +constructWindowApplication val = constructObjectPropertyObject "application" (Just val) +clearWindowApplication :: (MonadIO m, WindowK o) => o -> m () +clearWindowApplication obj = liftIO $ setObjectPropertyObject obj "application" (Nothing :: Maybe Application) + data WindowApplicationPropertyInfo instance AttrInfo WindowApplicationPropertyInfo where - type AttrAllowedOps WindowApplicationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps WindowApplicationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint WindowApplicationPropertyInfo = ApplicationK type AttrBaseTypeConstraint WindowApplicationPropertyInfo = WindowK type AttrGetType WindowApplicationPropertyInfo = Application @@ -1599,23 +1640,28 @@ attrGet _ = getWindowApplication attrSet _ = setWindowApplication attrConstruct _ = constructWindowApplication + attrClear _ = clearWindowApplication -- VVV Prop "attached-to" -- Type: TInterface "Gtk" "Widget" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Just False,Just True) getWindowAttachedTo :: (MonadIO m, WindowK o) => o -> m Widget -getWindowAttachedTo obj = liftIO $ getObjectPropertyObject obj "attached-to" Widget +getWindowAttachedTo obj = liftIO $ checkUnexpectedNothing "getWindowAttachedTo" $ getObjectPropertyObject obj "attached-to" Widget setWindowAttachedTo :: (MonadIO m, WindowK o, WidgetK a) => o -> a -> m () -setWindowAttachedTo obj val = liftIO $ setObjectPropertyObject obj "attached-to" val +setWindowAttachedTo obj val = liftIO $ setObjectPropertyObject obj "attached-to" (Just val) constructWindowAttachedTo :: (WidgetK a) => a -> IO ([Char], GValue) -constructWindowAttachedTo val = constructObjectPropertyObject "attached-to" val +constructWindowAttachedTo val = constructObjectPropertyObject "attached-to" (Just val) +clearWindowAttachedTo :: (MonadIO m, WindowK o) => o -> m () +clearWindowAttachedTo obj = liftIO $ setObjectPropertyObject obj "attached-to" (Nothing :: Maybe Widget) + data WindowAttachedToPropertyInfo instance AttrInfo WindowAttachedToPropertyInfo where - type AttrAllowedOps WindowAttachedToPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps WindowAttachedToPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint WindowAttachedToPropertyInfo = WidgetK type AttrBaseTypeConstraint WindowAttachedToPropertyInfo = WindowK type AttrGetType WindowAttachedToPropertyInfo = Widget @@ -1623,10 +1669,12 @@ attrGet _ = getWindowAttachedTo attrSet _ = setWindowAttachedTo attrConstruct _ = constructWindowAttachedTo + attrClear _ = clearWindowAttachedTo -- VVV Prop "decorated" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getWindowDecorated :: (MonadIO m, WindowK o) => o -> m Bool getWindowDecorated obj = liftIO $ getObjectPropertyBool obj "decorated" @@ -1647,19 +1695,21 @@ attrGet _ = getWindowDecorated attrSet _ = setWindowDecorated attrConstruct _ = constructWindowDecorated + attrClear _ = undefined -- VVV Prop "default-height" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getWindowDefaultHeight :: (MonadIO m, WindowK o) => o -> m Int32 -getWindowDefaultHeight obj = liftIO $ getObjectPropertyCInt obj "default-height" +getWindowDefaultHeight obj = liftIO $ getObjectPropertyInt32 obj "default-height" setWindowDefaultHeight :: (MonadIO m, WindowK o) => o -> Int32 -> m () -setWindowDefaultHeight obj val = liftIO $ setObjectPropertyCInt obj "default-height" val +setWindowDefaultHeight obj val = liftIO $ setObjectPropertyInt32 obj "default-height" val constructWindowDefaultHeight :: Int32 -> IO ([Char], GValue) -constructWindowDefaultHeight val = constructObjectPropertyCInt "default-height" val +constructWindowDefaultHeight val = constructObjectPropertyInt32 "default-height" val data WindowDefaultHeightPropertyInfo instance AttrInfo WindowDefaultHeightPropertyInfo where @@ -1671,19 +1721,21 @@ attrGet _ = getWindowDefaultHeight attrSet _ = setWindowDefaultHeight attrConstruct _ = constructWindowDefaultHeight + attrClear _ = undefined -- VVV Prop "default-width" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getWindowDefaultWidth :: (MonadIO m, WindowK o) => o -> m Int32 -getWindowDefaultWidth obj = liftIO $ getObjectPropertyCInt obj "default-width" +getWindowDefaultWidth obj = liftIO $ getObjectPropertyInt32 obj "default-width" setWindowDefaultWidth :: (MonadIO m, WindowK o) => o -> Int32 -> m () -setWindowDefaultWidth obj val = liftIO $ setObjectPropertyCInt obj "default-width" val +setWindowDefaultWidth obj val = liftIO $ setObjectPropertyInt32 obj "default-width" val constructWindowDefaultWidth :: Int32 -> IO ([Char], GValue) -constructWindowDefaultWidth val = constructObjectPropertyCInt "default-width" val +constructWindowDefaultWidth val = constructObjectPropertyInt32 "default-width" val data WindowDefaultWidthPropertyInfo instance AttrInfo WindowDefaultWidthPropertyInfo where @@ -1695,10 +1747,12 @@ attrGet _ = getWindowDefaultWidth attrSet _ = setWindowDefaultWidth attrConstruct _ = constructWindowDefaultWidth + attrClear _ = undefined -- VVV Prop "deletable" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getWindowDeletable :: (MonadIO m, WindowK o) => o -> m Bool getWindowDeletable obj = liftIO $ getObjectPropertyBool obj "deletable" @@ -1719,10 +1773,12 @@ attrGet _ = getWindowDeletable attrSet _ = setWindowDeletable attrConstruct _ = constructWindowDeletable + attrClear _ = undefined -- VVV Prop "destroy-with-parent" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getWindowDestroyWithParent :: (MonadIO m, WindowK o) => o -> m Bool getWindowDestroyWithParent obj = liftIO $ getObjectPropertyBool obj "destroy-with-parent" @@ -1743,10 +1799,12 @@ attrGet _ = getWindowDestroyWithParent attrSet _ = setWindowDestroyWithParent attrConstruct _ = constructWindowDestroyWithParent + attrClear _ = undefined -- VVV Prop "focus-on-map" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getWindowFocusOnMap :: (MonadIO m, WindowK o) => o -> m Bool getWindowFocusOnMap obj = liftIO $ getObjectPropertyBool obj "focus-on-map" @@ -1767,10 +1825,12 @@ attrGet _ = getWindowFocusOnMap attrSet _ = setWindowFocusOnMap attrConstruct _ = constructWindowFocusOnMap + attrClear _ = undefined -- VVV Prop "focus-visible" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getWindowFocusVisible :: (MonadIO m, WindowK o) => o -> m Bool getWindowFocusVisible obj = liftIO $ getObjectPropertyBool obj "focus-visible" @@ -1791,10 +1851,12 @@ attrGet _ = getWindowFocusVisible attrSet _ = setWindowFocusVisible attrConstruct _ = constructWindowFocusVisible + attrClear _ = undefined -- VVV Prop "gravity" -- Type: TInterface "Gdk" "Gravity" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getWindowGravity :: (MonadIO m, WindowK o) => o -> m Gdk.Gravity getWindowGravity obj = liftIO $ getObjectPropertyEnum obj "gravity" @@ -1815,10 +1877,12 @@ attrGet _ = getWindowGravity attrSet _ = setWindowGravity attrConstruct _ = constructWindowGravity + attrClear _ = undefined -- VVV Prop "has-resize-grip" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getWindowHasResizeGrip :: (MonadIO m, WindowK o) => o -> m Bool getWindowHasResizeGrip obj = liftIO $ getObjectPropertyBool obj "has-resize-grip" @@ -1839,10 +1903,12 @@ attrGet _ = getWindowHasResizeGrip attrSet _ = setWindowHasResizeGrip attrConstruct _ = constructWindowHasResizeGrip + attrClear _ = undefined -- VVV Prop "has-toplevel-focus" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) getWindowHasToplevelFocus :: (MonadIO m, WindowK o) => o -> m Bool getWindowHasToplevelFocus obj = liftIO $ getObjectPropertyBool obj "has-toplevel-focus" @@ -1857,10 +1923,12 @@ attrGet _ = getWindowHasToplevelFocus attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "hide-titlebar-when-maximized" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getWindowHideTitlebarWhenMaximized :: (MonadIO m, WindowK o) => o -> m Bool getWindowHideTitlebarWhenMaximized obj = liftIO $ getObjectPropertyBool obj "hide-titlebar-when-maximized" @@ -1881,23 +1949,28 @@ attrGet _ = getWindowHideTitlebarWhenMaximized attrSet _ = setWindowHideTitlebarWhenMaximized attrConstruct _ = constructWindowHideTitlebarWhenMaximized + attrClear _ = undefined -- VVV Prop "icon" -- Type: TInterface "GdkPixbuf" "Pixbuf" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) getWindowIcon :: (MonadIO m, WindowK o) => o -> m GdkPixbuf.Pixbuf -getWindowIcon obj = liftIO $ getObjectPropertyObject obj "icon" GdkPixbuf.Pixbuf +getWindowIcon obj = liftIO $ checkUnexpectedNothing "getWindowIcon" $ getObjectPropertyObject obj "icon" GdkPixbuf.Pixbuf setWindowIcon :: (MonadIO m, WindowK o, GdkPixbuf.PixbufK a) => o -> a -> m () -setWindowIcon obj val = liftIO $ setObjectPropertyObject obj "icon" val +setWindowIcon obj val = liftIO $ setObjectPropertyObject obj "icon" (Just val) constructWindowIcon :: (GdkPixbuf.PixbufK a) => a -> IO ([Char], GValue) -constructWindowIcon val = constructObjectPropertyObject "icon" val +constructWindowIcon val = constructObjectPropertyObject "icon" (Just val) +clearWindowIcon :: (MonadIO m, WindowK o) => o -> m () +clearWindowIcon obj = liftIO $ setObjectPropertyObject obj "icon" (Nothing :: Maybe GdkPixbuf.Pixbuf) + data WindowIconPropertyInfo instance AttrInfo WindowIconPropertyInfo where - type AttrAllowedOps WindowIconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps WindowIconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint WindowIconPropertyInfo = GdkPixbuf.PixbufK type AttrBaseTypeConstraint WindowIconPropertyInfo = WindowK type AttrGetType WindowIconPropertyInfo = GdkPixbuf.Pixbuf @@ -1905,23 +1978,28 @@ attrGet _ = getWindowIcon attrSet _ = setWindowIcon attrConstruct _ = constructWindowIcon + attrClear _ = clearWindowIcon -- VVV Prop "icon-name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just True) getWindowIconName :: (MonadIO m, WindowK o) => o -> m T.Text -getWindowIconName obj = liftIO $ getObjectPropertyString obj "icon-name" +getWindowIconName obj = liftIO $ checkUnexpectedNothing "getWindowIconName" $ getObjectPropertyString obj "icon-name" setWindowIconName :: (MonadIO m, WindowK o) => o -> T.Text -> m () -setWindowIconName obj val = liftIO $ setObjectPropertyString obj "icon-name" val +setWindowIconName obj val = liftIO $ setObjectPropertyString obj "icon-name" (Just val) constructWindowIconName :: T.Text -> IO ([Char], GValue) -constructWindowIconName val = constructObjectPropertyString "icon-name" val +constructWindowIconName val = constructObjectPropertyString "icon-name" (Just val) +clearWindowIconName :: (MonadIO m, WindowK o) => o -> m () +clearWindowIconName obj = liftIO $ setObjectPropertyString obj "icon-name" (Nothing :: Maybe T.Text) + data WindowIconNamePropertyInfo instance AttrInfo WindowIconNamePropertyInfo where - type AttrAllowedOps WindowIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps WindowIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint WindowIconNamePropertyInfo = (~) T.Text type AttrBaseTypeConstraint WindowIconNamePropertyInfo = WindowK type AttrGetType WindowIconNamePropertyInfo = T.Text @@ -1929,10 +2007,12 @@ attrGet _ = getWindowIconName attrSet _ = setWindowIconName attrConstruct _ = constructWindowIconName + attrClear _ = clearWindowIconName -- VVV Prop "is-active" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) getWindowIsActive :: (MonadIO m, WindowK o) => o -> m Bool getWindowIsActive obj = liftIO $ getObjectPropertyBool obj "is-active" @@ -1947,10 +2027,12 @@ attrGet _ = getWindowIsActive attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "is-maximized" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) getWindowIsMaximized :: (MonadIO m, WindowK o) => o -> m Bool getWindowIsMaximized obj = liftIO $ getObjectPropertyBool obj "is-maximized" @@ -1965,10 +2047,12 @@ attrGet _ = getWindowIsMaximized attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "mnemonics-visible" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getWindowMnemonicsVisible :: (MonadIO m, WindowK o) => o -> m Bool getWindowMnemonicsVisible obj = liftIO $ getObjectPropertyBool obj "mnemonics-visible" @@ -1989,10 +2073,12 @@ attrGet _ = getWindowMnemonicsVisible attrSet _ = setWindowMnemonicsVisible attrConstruct _ = constructWindowMnemonicsVisible + attrClear _ = undefined -- VVV Prop "modal" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getWindowModal :: (MonadIO m, WindowK o) => o -> m Bool getWindowModal obj = liftIO $ getObjectPropertyBool obj "modal" @@ -2013,10 +2099,12 @@ attrGet _ = getWindowModal attrSet _ = setWindowModal attrConstruct _ = constructWindowModal + attrClear _ = undefined -- VVV Prop "resizable" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getWindowResizable :: (MonadIO m, WindowK o) => o -> m Bool getWindowResizable obj = liftIO $ getObjectPropertyBool obj "resizable" @@ -2037,10 +2125,12 @@ attrGet _ = getWindowResizable attrSet _ = setWindowResizable attrConstruct _ = constructWindowResizable + attrClear _ = undefined -- VVV Prop "resize-grip-visible" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] + -- Nullable: (Nothing,Nothing) getWindowResizeGripVisible :: (MonadIO m, WindowK o) => o -> m Bool getWindowResizeGripVisible obj = liftIO $ getObjectPropertyBool obj "resize-grip-visible" @@ -2055,19 +2145,21 @@ attrGet _ = getWindowResizeGripVisible attrSet _ = undefined attrConstruct _ = undefined + attrClear _ = undefined -- VVV Prop "role" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getWindowRole :: (MonadIO m, WindowK o) => o -> m T.Text -getWindowRole obj = liftIO $ getObjectPropertyString obj "role" +getWindowRole obj = liftIO $ checkUnexpectedNothing "getWindowRole" $ getObjectPropertyString obj "role" setWindowRole :: (MonadIO m, WindowK o) => o -> T.Text -> m () -setWindowRole obj val = liftIO $ setObjectPropertyString obj "role" val +setWindowRole obj val = liftIO $ setObjectPropertyString obj "role" (Just val) constructWindowRole :: T.Text -> IO ([Char], GValue) -constructWindowRole val = constructObjectPropertyString "role" val +constructWindowRole val = constructObjectPropertyString "role" (Just val) data WindowRolePropertyInfo instance AttrInfo WindowRolePropertyInfo where @@ -2079,19 +2171,21 @@ attrGet _ = getWindowRole attrSet _ = setWindowRole attrConstruct _ = constructWindowRole + attrClear _ = undefined -- VVV Prop "screen" -- Type: TInterface "Gdk" "Screen" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getWindowScreen :: (MonadIO m, WindowK o) => o -> m Gdk.Screen -getWindowScreen obj = liftIO $ getObjectPropertyObject obj "screen" Gdk.Screen +getWindowScreen obj = liftIO $ checkUnexpectedNothing "getWindowScreen" $ getObjectPropertyObject obj "screen" Gdk.Screen setWindowScreen :: (MonadIO m, WindowK o, Gdk.ScreenK a) => o -> a -> m () -setWindowScreen obj val = liftIO $ setObjectPropertyObject obj "screen" val +setWindowScreen obj val = liftIO $ setObjectPropertyObject obj "screen" (Just val) constructWindowScreen :: (Gdk.ScreenK a) => a -> IO ([Char], GValue) -constructWindowScreen val = constructObjectPropertyObject "screen" val +constructWindowScreen val = constructObjectPropertyObject "screen" (Just val) data WindowScreenPropertyInfo instance AttrInfo WindowScreenPropertyInfo where @@ -2103,10 +2197,12 @@ attrGet _ = getWindowScreen attrSet _ = setWindowScreen attrConstruct _ = constructWindowScreen + attrClear _ = undefined -- VVV Prop "skip-pager-hint" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getWindowSkipPagerHint :: (MonadIO m, WindowK o) => o -> m Bool getWindowSkipPagerHint obj = liftIO $ getObjectPropertyBool obj "skip-pager-hint" @@ -2127,10 +2223,12 @@ attrGet _ = getWindowSkipPagerHint attrSet _ = setWindowSkipPagerHint attrConstruct _ = constructWindowSkipPagerHint + attrClear _ = undefined -- VVV Prop "skip-taskbar-hint" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getWindowSkipTaskbarHint :: (MonadIO m, WindowK o) => o -> m Bool getWindowSkipTaskbarHint obj = liftIO $ getObjectPropertyBool obj "skip-taskbar-hint" @@ -2151,16 +2249,18 @@ attrGet _ = getWindowSkipTaskbarHint attrSet _ = setWindowSkipTaskbarHint attrConstruct _ = constructWindowSkipTaskbarHint + attrClear _ = undefined -- VVV Prop "startup-id" -- Type: TBasicType TUTF8 -- Flags: [PropertyWritable] + -- Nullable: (Nothing,Just False) setWindowStartupId :: (MonadIO m, WindowK o) => o -> T.Text -> m () -setWindowStartupId obj val = liftIO $ setObjectPropertyString obj "startup-id" val +setWindowStartupId obj val = liftIO $ setObjectPropertyString obj "startup-id" (Just val) constructWindowStartupId :: T.Text -> IO ([Char], GValue) -constructWindowStartupId val = constructObjectPropertyString "startup-id" val +constructWindowStartupId val = constructObjectPropertyString "startup-id" (Just val) data WindowStartupIdPropertyInfo instance AttrInfo WindowStartupIdPropertyInfo where @@ -2172,19 +2272,21 @@ attrGet _ = undefined attrSet _ = setWindowStartupId attrConstruct _ = constructWindowStartupId + attrClear _ = undefined -- VVV Prop "title" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getWindowTitle :: (MonadIO m, WindowK o) => o -> m T.Text -getWindowTitle obj = liftIO $ getObjectPropertyString obj "title" +getWindowTitle obj = liftIO $ checkUnexpectedNothing "getWindowTitle" $ getObjectPropertyString obj "title" setWindowTitle :: (MonadIO m, WindowK o) => o -> T.Text -> m () -setWindowTitle obj val = liftIO $ setObjectPropertyString obj "title" val +setWindowTitle obj val = liftIO $ setObjectPropertyString obj "title" (Just val) constructWindowTitle :: T.Text -> IO ([Char], GValue) -constructWindowTitle val = constructObjectPropertyString "title" val +constructWindowTitle val = constructObjectPropertyString "title" (Just val) data WindowTitlePropertyInfo instance AttrInfo WindowTitlePropertyInfo where @@ -2196,23 +2298,28 @@ attrGet _ = getWindowTitle attrSet _ = setWindowTitle attrConstruct _ = constructWindowTitle + attrClear _ = undefined -- VVV Prop "transient-for" -- Type: TInterface "Gtk" "Window" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + -- Nullable: (Just False,Just True) getWindowTransientFor :: (MonadIO m, WindowK o) => o -> m Window -getWindowTransientFor obj = liftIO $ getObjectPropertyObject obj "transient-for" Window +getWindowTransientFor obj = liftIO $ checkUnexpectedNothing "getWindowTransientFor" $ getObjectPropertyObject obj "transient-for" Window setWindowTransientFor :: (MonadIO m, WindowK o, WindowK a) => o -> a -> m () -setWindowTransientFor obj val = liftIO $ setObjectPropertyObject obj "transient-for" val +setWindowTransientFor obj val = liftIO $ setObjectPropertyObject obj "transient-for" (Just val) constructWindowTransientFor :: (WindowK a) => a -> IO ([Char], GValue) -constructWindowTransientFor val = constructObjectPropertyObject "transient-for" val +constructWindowTransientFor val = constructObjectPropertyObject "transient-for" (Just val) +clearWindowTransientFor :: (MonadIO m, WindowK o) => o -> m () +clearWindowTransientFor obj = liftIO $ setObjectPropertyObject obj "transient-for" (Nothing :: Maybe Window) + data WindowTransientForPropertyInfo instance AttrInfo WindowTransientForPropertyInfo where - type AttrAllowedOps WindowTransientForPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrAllowedOps WindowTransientForPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint WindowTransientForPropertyInfo = WindowK type AttrBaseTypeConstraint WindowTransientForPropertyInfo = WindowK type AttrGetType WindowTransientForPropertyInfo = Window @@ -2220,10 +2327,12 @@ attrGet _ = getWindowTransientFor attrSet _ = setWindowTransientFor attrConstruct _ = constructWindowTransientFor + attrClear _ = clearWindowTransientFor -- VVV Prop "type" -- Type: TInterface "Gtk" "WindowType" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + -- Nullable: (Nothing,Nothing) getWindowType :: (MonadIO m, WindowK o) => o -> m WindowType getWindowType obj = liftIO $ getObjectPropertyEnum obj "type" @@ -2241,10 +2350,12 @@ attrGet _ = getWindowType attrSet _ = undefined attrConstruct _ = constructWindowType + attrClear _ = undefined -- VVV Prop "type-hint" -- Type: TInterface "Gdk" "WindowTypeHint" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getWindowTypeHint :: (MonadIO m, WindowK o) => o -> m Gdk.WindowTypeHint getWindowTypeHint obj = liftIO $ getObjectPropertyEnum obj "type-hint" @@ -2265,10 +2376,12 @@ attrGet _ = getWindowTypeHint attrSet _ = setWindowTypeHint attrConstruct _ = constructWindowTypeHint + attrClear _ = undefined -- VVV Prop "urgency-hint" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Just False,Just False) getWindowUrgencyHint :: (MonadIO m, WindowK o) => o -> m Bool getWindowUrgencyHint obj = liftIO $ getObjectPropertyBool obj "urgency-hint" @@ -2289,10 +2402,12 @@ attrGet _ = getWindowUrgencyHint attrSet _ = setWindowUrgencyHint attrConstruct _ = constructWindowUrgencyHint + attrClear _ = undefined -- VVV Prop "window-position" -- Type: TInterface "Gtk" "WindowPosition" -- Flags: [PropertyReadable,PropertyWritable] + -- Nullable: (Nothing,Nothing) getWindowWindowPosition :: (MonadIO m, WindowK o) => o -> m WindowPosition getWindowWindowPosition obj = liftIO $ getObjectPropertyEnum obj "window-position" @@ -2313,10 +2428,101 @@ attrGet _ = getWindowWindowPosition attrSet _ = setWindowWindowPosition attrConstruct _ = constructWindowWindowPosition + attrClear _ = undefined type instance AttributeList Window = WindowAttributeList type WindowAttributeList = ('[ '("acceptFocus", WindowAcceptFocusPropertyInfo), '("appPaintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attachedTo", WindowAttachedToPropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", WidgetCanDefaultPropertyInfo), '("canFocus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("defaultHeight", WindowDefaultHeightPropertyInfo), '("defaultWidth", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroyWithParent", WindowDestroyWithParentPropertyInfo), '("doubleBuffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focusOnMap", WindowFocusOnMapPropertyInfo), '("focusVisible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("hasDefault", WidgetHasDefaultPropertyInfo), '("hasFocus", WidgetHasFocusPropertyInfo), '("hasResizeGrip", WindowHasResizeGripPropertyInfo), '("hasTooltip", WidgetHasTooltipPropertyInfo), '("hasToplevelFocus", WindowHasToplevelFocusPropertyInfo), '("heightRequest", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpandSet", WidgetHexpandSetPropertyInfo), '("hideTitlebarWhenMaximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("iconName", WindowIconNamePropertyInfo), '("isActive", WindowIsActivePropertyInfo), '("isFocus", WidgetIsFocusPropertyInfo), '("isMaximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("marginBottom", WidgetMarginBottomPropertyInfo), '("marginEnd", WidgetMarginEndPropertyInfo), '("marginLeft", WidgetMarginLeftPropertyInfo), '("marginRight", WidgetMarginRightPropertyInfo), '("marginStart", WidgetMarginStartPropertyInfo), '("marginTop", WidgetMarginTopPropertyInfo), '("mnemonicsVisible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("noShowAll", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receivesDefault", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resizeGripVisible", WindowResizeGripVisiblePropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scaleFactor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skipPagerHint", WindowSkipPagerHintPropertyInfo), '("skipTaskbarHint", WindowSkipTaskbarHintPropertyInfo), '("startupId", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltipMarkup", WidgetTooltipMarkupPropertyInfo), '("tooltipText", WidgetTooltipTextPropertyInfo), '("transientFor", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("typeHint", WindowTypeHintPropertyInfo), '("urgencyHint", WindowUrgencyHintPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpandSet", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("widthRequest", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("windowPosition", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) +windowAcceptFocus :: AttrLabelProxy "acceptFocus" +windowAcceptFocus = AttrLabelProxy + +windowApplication :: AttrLabelProxy "application" +windowApplication = AttrLabelProxy + +windowAttachedTo :: AttrLabelProxy "attachedTo" +windowAttachedTo = AttrLabelProxy + +windowDecorated :: AttrLabelProxy "decorated" +windowDecorated = AttrLabelProxy + +windowDefaultHeight :: AttrLabelProxy "defaultHeight" +windowDefaultHeight = AttrLabelProxy + +windowDefaultWidth :: AttrLabelProxy "defaultWidth" +windowDefaultWidth = AttrLabelProxy + +windowDeletable :: AttrLabelProxy "deletable" +windowDeletable = AttrLabelProxy + +windowDestroyWithParent :: AttrLabelProxy "destroyWithParent" +windowDestroyWithParent = AttrLabelProxy + +windowFocusOnMap :: AttrLabelProxy "focusOnMap" +windowFocusOnMap = AttrLabelProxy + +windowFocusVisible :: AttrLabelProxy "focusVisible" +windowFocusVisible = AttrLabelProxy + +windowGravity :: AttrLabelProxy "gravity" +windowGravity = AttrLabelProxy + +windowHasResizeGrip :: AttrLabelProxy "hasResizeGrip" +windowHasResizeGrip = AttrLabelProxy + +windowHideTitlebarWhenMaximized :: AttrLabelProxy "hideTitlebarWhenMaximized" +windowHideTitlebarWhenMaximized = AttrLabelProxy + +windowIcon :: AttrLabelProxy "icon" +windowIcon = AttrLabelProxy + +windowIconName :: AttrLabelProxy "iconName" +windowIconName = AttrLabelProxy + +windowMnemonicsVisible :: AttrLabelProxy "mnemonicsVisible" +windowMnemonicsVisible = AttrLabelProxy + +windowModal :: AttrLabelProxy "modal" +windowModal = AttrLabelProxy + +windowResizable :: AttrLabelProxy "resizable" +windowResizable = AttrLabelProxy + +windowResizeGripVisible :: AttrLabelProxy "resizeGripVisible" +windowResizeGripVisible = AttrLabelProxy + +windowRole :: AttrLabelProxy "role" +windowRole = AttrLabelProxy + +windowScreen :: AttrLabelProxy "screen" +windowScreen = AttrLabelProxy + +windowSkipPagerHint :: AttrLabelProxy "skipPagerHint" +windowSkipPagerHint = AttrLabelProxy + +windowSkipTaskbarHint :: AttrLabelProxy "skipTaskbarHint" +windowSkipTaskbarHint = AttrLabelProxy + +windowStartupId :: AttrLabelProxy "startupId" +windowStartupId = AttrLabelProxy + +windowTitle :: AttrLabelProxy "title" +windowTitle = AttrLabelProxy + +windowTransientFor :: AttrLabelProxy "transientFor" +windowTransientFor = AttrLabelProxy + +windowType :: AttrLabelProxy "type" +windowType = AttrLabelProxy + +windowTypeHint :: AttrLabelProxy "typeHint" +windowTypeHint = AttrLabelProxy + +windowUrgencyHint :: AttrLabelProxy "urgencyHint" +windowUrgencyHint = AttrLabelProxy + +windowWindowPosition :: AttrLabelProxy "windowPosition" +windowWindowPosition = AttrLabelProxy + data WindowActivateDefaultSignalInfo instance SignalInfo WindowActivateDefaultSignalInfo where type HaskellCallbackType WindowActivateDefaultSignalInfo = WindowActivateDefaultCallback @@ -2349,7 +2555,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "type", argType = TInterface "Gtk" "WindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Window" +-- returnType : Just (TInterface "Gtk" "Window") -- throws : False -- Skip return : False @@ -2373,7 +2579,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2401,7 +2607,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2429,7 +2635,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "EventKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2461,7 +2667,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2490,15 +2696,15 @@ -- method Window::add_mnemonic -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", 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 = "target", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_window_add_mnemonic" gtk_window_add_mnemonic :: Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Word32 -> -- keyval : TBasicType TUInt32 + Word32 -> -- keyval : TBasicType TUInt Ptr Widget -> -- target : TInterface "Gtk" "Widget" IO () @@ -2523,17 +2729,17 @@ -- method Window::begin_move_drag -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root_y", argType = TBasicType TInt32, 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}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_window_begin_move_drag" gtk_window_begin_move_drag :: Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Int32 -> -- button : TBasicType TInt32 - Int32 -> -- root_x : TBasicType TInt32 - Int32 -> -- root_y : TBasicType TInt32 + Int32 -> -- button : TBasicType TInt + Int32 -> -- root_x : TBasicType TInt + Int32 -> -- root_y : TBasicType TInt Word32 -> -- timestamp : TBasicType TUInt32 IO () @@ -2558,18 +2764,18 @@ -- method Window::begin_resize_drag -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "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 TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root_y", argType = TBasicType TInt32, 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}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_window_begin_resize_drag" gtk_window_begin_resize_drag :: Ptr Window -> -- _obj : TInterface "Gtk" "Window" CUInt -> -- edge : TInterface "Gdk" "WindowEdge" - Int32 -> -- button : TBasicType TInt32 - Int32 -> -- root_x : TBasicType TInt32 - Int32 -> -- root_y : TBasicType TInt32 + Int32 -> -- button : TBasicType TInt + Int32 -> -- root_x : TBasicType TInt + Int32 -> -- root_y : TBasicType TInt Word32 -> -- timestamp : TBasicType TUInt32 IO () @@ -2598,7 +2804,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2625,7 +2831,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2652,7 +2858,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2677,16 +2883,16 @@ -- method Window::fullscreen_on_monitor -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "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 = "monitor", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "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 = "monitor", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_window_fullscreen_on_monitor" gtk_window_fullscreen_on_monitor :: Ptr Window -> -- _obj : TInterface "Gtk" "Window" Ptr Gdk.Screen -> -- screen : TInterface "Gdk" "Screen" - Int32 -> -- monitor : TBasicType TInt32 + Int32 -> -- monitor : TBasicType TInt IO () @@ -2712,7 +2918,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2740,7 +2946,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Application" +-- returnType : Just (TInterface "Gtk" "Application") -- throws : False -- Skip return : False @@ -2769,7 +2975,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -2798,7 +3004,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2824,16 +3030,16 @@ -- method Window::get_default_size -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_window_get_default_size" gtk_window_get_default_size :: Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Ptr Int32 -> -- width : TBasicType TInt32 - Ptr Int32 -> -- height : TBasicType TInt32 + Ptr Int32 -> -- width : TBasicType TInt + Ptr Int32 -> -- height : TBasicType TInt IO () @@ -2861,7 +3067,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -2890,7 +3096,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2918,7 +3124,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2946,7 +3152,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -2975,7 +3181,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3003,7 +3209,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3031,7 +3237,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gdk" "Gravity" +-- returnType : Just (TInterface "Gdk" "Gravity") -- throws : False -- Skip return : False @@ -3059,7 +3265,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "WindowGroup" +-- returnType : Just (TInterface "Gtk" "WindowGroup") -- throws : False -- Skip return : False @@ -3088,7 +3294,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3116,7 +3322,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3144,7 +3350,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : False -- Skip return : False @@ -3173,7 +3379,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TGList (TInterface "GdkPixbuf" "Pixbuf") +-- returnType : Just (TGList (TInterface "GdkPixbuf" "Pixbuf")) -- throws : False -- Skip return : False @@ -3189,7 +3395,6 @@ windowGetIconList _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_window_get_icon_list _obj' - checkUnexpectedReturnNULL "gtk_window_get_icon_list" result result' <- unpackGList result result'' <- mapM (newObject GdkPixbuf.Pixbuf) result' g_list_free result @@ -3204,7 +3409,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -3233,7 +3438,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gdk" "ModifierType" +-- returnType : Just (TInterface "Gdk" "ModifierType") -- throws : False -- Skip return : False @@ -3261,7 +3466,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3289,7 +3494,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3317,7 +3522,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -3343,16 +3548,16 @@ -- method Window::get_position -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root_x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "root_y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_window_get_position" gtk_window_get_position :: Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Ptr Int32 -> -- root_x : TBasicType TInt32 - Ptr Int32 -> -- root_y : TBasicType TInt32 + Ptr Int32 -> -- root_x : TBasicType TInt + Ptr Int32 -> -- root_y : TBasicType TInt IO () @@ -3380,7 +3585,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3408,7 +3613,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "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 : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3439,7 +3644,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -3468,7 +3673,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gdk" "Screen" +-- returnType : Just (TInterface "Gdk" "Screen") -- throws : False -- Skip return : False @@ -3495,16 +3700,16 @@ -- method Window::get_size -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_window_get_size" gtk_window_get_size :: Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Ptr Int32 -> -- width : TBasicType TInt32 - Ptr Int32 -> -- height : TBasicType TInt32 + Ptr Int32 -> -- width : TBasicType TInt + Ptr Int32 -> -- height : TBasicType TInt IO () @@ -3532,7 +3737,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3560,7 +3765,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3588,7 +3793,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -3617,7 +3822,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -3646,7 +3851,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Window" +-- returnType : Just (TInterface "Gtk" "Window") -- throws : False -- Skip return : False @@ -3675,7 +3880,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gdk" "WindowTypeHint" +-- returnType : Just (TInterface "Gdk" "WindowTypeHint") -- throws : False -- Skip return : False @@ -3703,7 +3908,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3731,7 +3936,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "WindowType" +-- returnType : Just (TInterface "Gtk" "WindowType") -- throws : False -- Skip return : False @@ -3759,7 +3964,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3787,7 +3992,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3815,7 +4020,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3842,7 +4047,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3870,7 +4075,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3898,7 +4103,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -3923,15 +4128,15 @@ -- method Window::mnemonic_activate -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "modifier", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", 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 = "modifier", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_window_mnemonic_activate" gtk_window_mnemonic_activate :: Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Word32 -> -- keyval : TBasicType TUInt32 + Word32 -> -- keyval : TBasicType TUInt CUInt -> -- modifier : TInterface "Gdk" "ModifierType" IO CInt @@ -3956,16 +4161,16 @@ -- method Window::move -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_window_move" gtk_window_move :: Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Int32 -> -- x : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 + Int32 -> -- x : TBasicType TInt + Int32 -> -- y : TBasicType TInt IO () @@ -3989,7 +4194,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "geometry", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -4021,7 +4226,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4048,7 +4253,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4077,7 +4282,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "EventKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -4109,7 +4314,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4138,15 +4343,15 @@ -- method Window::remove_mnemonic -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", 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 = "target", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_window_remove_mnemonic" gtk_window_remove_mnemonic :: Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Word32 -> -- keyval : TBasicType TUInt32 + Word32 -> -- keyval : TBasicType TUInt Ptr Widget -> -- target : TInterface "Gtk" "Widget" IO () @@ -4173,7 +4378,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4198,16 +4403,16 @@ -- method Window::resize -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_window_resize" gtk_window_resize :: Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 + Int32 -> -- width : TBasicType TInt + Int32 -> -- height : TBasicType TInt IO () @@ -4231,7 +4436,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -4257,16 +4462,16 @@ -- method Window::resize_to_geometry -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_window_resize_to_geometry" gtk_window_resize_to_geometry :: Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 + Int32 -> -- width : TBasicType TInt + Int32 -> -- height : TBasicType TInt IO () @@ -4290,7 +4495,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4320,7 +4525,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "application", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4355,7 +4560,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attach_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4390,7 +4595,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4420,7 +4625,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4453,16 +4658,16 @@ -- method Window::set_default_geometry -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_window_set_default_geometry" gtk_window_set_default_geometry :: Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 + Int32 -> -- width : TBasicType TInt + Int32 -> -- height : TBasicType TInt IO () @@ -4484,16 +4689,16 @@ -- method Window::set_default_size -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_window_set_default_size" gtk_window_set_default_size :: Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 + Int32 -> -- width : TBasicType TInt + Int32 -> -- height : TBasicType TInt IO () @@ -4517,7 +4722,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4547,7 +4752,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4577,7 +4782,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "focus", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4612,7 +4817,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4642,7 +4847,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4672,7 +4877,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "geometry_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "geometry", argType = TInterface "Gdk" "Geometry", direction = DirectionIn, mayBeNull = True, 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4718,7 +4923,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gravity", argType = TInterface "Gdk" "Gravity", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4748,7 +4953,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4778,7 +4983,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4808,7 +5013,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4838,7 +5043,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4873,7 +5078,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -4909,7 +5114,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "list", argType = TGList (TInterface "GdkPixbuf" "Pixbuf"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4942,7 +5147,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -4977,7 +5182,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5007,7 +5212,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5037,7 +5242,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "modifier", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5067,7 +5272,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5097,7 +5302,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5127,7 +5332,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5157,7 +5362,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TInterface "Gtk" "WindowPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5187,7 +5392,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resizable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5217,7 +5422,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5248,7 +5453,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "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}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5279,7 +5484,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5309,7 +5514,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5339,7 +5544,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5370,7 +5575,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5401,7 +5606,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "titlebar", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5436,7 +5641,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5471,7 +5676,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5501,7 +5706,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5531,7 +5736,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wmclass_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wmclass_class", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5566,7 +5771,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5593,7 +5798,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5620,7 +5825,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5647,7 +5852,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5674,7 +5879,7 @@ -- method type : MemberFunction -- Args : [] -- Lengths : [] --- returnType : TGList (TInterface "GdkPixbuf" "Pixbuf") +-- returnType : Just (TGList (TInterface "GdkPixbuf" "Pixbuf")) -- throws : False -- Skip return : False @@ -5687,7 +5892,6 @@ m [GdkPixbuf.Pixbuf] -- result windowGetDefaultIconList = liftIO $ do result <- gtk_window_get_default_icon_list - checkUnexpectedReturnNULL "gtk_window_get_default_icon_list" result result' <- unpackGList result result'' <- mapM (newObject GdkPixbuf.Pixbuf) result' g_list_free result @@ -5697,7 +5901,7 @@ -- method type : MemberFunction -- Args : [] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -5718,7 +5922,7 @@ -- method type : MemberFunction -- Args : [] -- Lengths : [] --- returnType : TGList (TInterface "Gtk" "Widget") +-- returnType : Just (TGList (TInterface "Gtk" "Widget")) -- throws : False -- Skip return : False @@ -5731,7 +5935,6 @@ m [Widget] -- result windowListToplevels = liftIO $ do result <- gtk_window_list_toplevels - checkUnexpectedReturnNULL "gtk_window_list_toplevels" result result' <- unpackGList result result'' <- mapM (newObject Widget) result' g_list_free result @@ -5741,7 +5944,7 @@ -- 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5763,7 +5966,7 @@ -- method type : MemberFunction -- Args : [Arg {argCName = "icon", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5786,7 +5989,7 @@ -- method type : MemberFunction -- Args : [Arg {argCName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -5814,7 +6017,7 @@ -- method type : MemberFunction -- Args : [Arg {argCName = "list", argType = TGList (TInterface "GdkPixbuf" "Pixbuf"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferContainer}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5838,7 +6041,7 @@ -- method type : MemberFunction -- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -5861,7 +6064,7 @@ -- method type : MemberFunction -- Args : [Arg {argCName = "enable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/Window.hs-boot b/GI/Gtk/Objects/Window.hs-boot --- a/GI/Gtk/Objects/Window.hs-boot +++ b/GI/Gtk/Objects/Window.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.Window where -import Prelude () 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 diff --git a/GI/Gtk/Objects/WindowAccessible.hs b/GI/Gtk/Objects/WindowAccessible.hs --- a/GI/Gtk/Objects/WindowAccessible.hs +++ b/GI/Gtk/Objects/WindowAccessible.hs @@ -18,9 +18,9 @@ ) where -import Prelude () 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 diff --git a/GI/Gtk/Objects/WindowAccessible.hs-boot b/GI/Gtk/Objects/WindowAccessible.hs-boot --- a/GI/Gtk/Objects/WindowAccessible.hs-boot +++ b/GI/Gtk/Objects/WindowAccessible.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.WindowAccessible where -import Prelude () 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 diff --git a/GI/Gtk/Objects/WindowGroup.hs b/GI/Gtk/Objects/WindowGroup.hs --- a/GI/Gtk/Objects/WindowGroup.hs +++ b/GI/Gtk/Objects/WindowGroup.hs @@ -50,9 +50,9 @@ ) where -import Prelude () 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 @@ -131,7 +131,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "WindowGroup" +-- returnType : Just (TInterface "Gtk" "WindowGroup") -- throws : False -- Skip return : False @@ -152,7 +152,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WindowGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -183,7 +183,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WindowGroup", 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 : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -216,7 +216,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WindowGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Widget" +-- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False @@ -245,7 +245,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WindowGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TGList (TInterface "Gtk" "Window") +-- returnType : Just (TGList (TInterface "Gtk" "Window")) -- throws : False -- Skip return : False @@ -261,7 +261,6 @@ windowGroupListWindows _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_window_group_list_windows _obj' - checkUnexpectedReturnNULL "gtk_window_group_list_windows" result result' <- unpackGList result result'' <- mapM (newObject Window) result' g_list_free result @@ -276,7 +275,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WindowGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Objects/WindowGroup.hs-boot b/GI/Gtk/Objects/WindowGroup.hs-boot --- a/GI/Gtk/Objects/WindowGroup.hs-boot +++ b/GI/Gtk/Objects/WindowGroup.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Objects.WindowGroup where -import Prelude () 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 diff --git a/GI/Gtk/Structs.hs b/GI/Gtk/Structs.hs --- a/GI/Gtk/Structs.hs +++ b/GI/Gtk/Structs.hs @@ -104,9 +104,9 @@ import GI.Gtk.Structs.WidgetPath import GI.Gtk.Structs.WindowGeometryInfo -import Prelude () 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 diff --git a/GI/Gtk/Structs/AccelGroupEntry.hs b/GI/Gtk/Structs/AccelGroupEntry.hs --- a/GI/Gtk/Structs/AccelGroupEntry.hs +++ b/GI/Gtk/Structs/AccelGroupEntry.hs @@ -17,24 +17,32 @@ -- * Properties -- ** AccelPathQuark + accelGroupEntryAccelPathQuark , accelGroupEntryReadAccelPathQuark , + accelGroupEntryWriteAccelPathQuark , -- ** Closure + accelGroupEntryClearClosure , + accelGroupEntryClosure , accelGroupEntryReadClosure , + accelGroupEntryWriteClosure , -- ** Key + accelGroupEntryClearKey , + accelGroupEntryKey , accelGroupEntryReadKey , + accelGroupEntryWriteKey , ) where -import Prelude () 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 @@ -47,25 +55,108 @@ newZeroAccelGroupEntry :: MonadIO m => m AccelGroupEntry newZeroAccelGroupEntry = liftIO $ callocBytes 32 >>= wrapPtr AccelGroupEntry +instance tag ~ 'AttrSet => Constructible AccelGroupEntry tag where + new _ attrs = do + o <- newZeroAccelGroupEntry + GI.Attributes.set o attrs + return o + + noAccelGroupEntry :: Maybe AccelGroupEntry noAccelGroupEntry = Nothing -accelGroupEntryReadKey :: AccelGroupEntry -> IO AccelKey -accelGroupEntryReadKey s = withManagedPtr s $ \ptr -> do +accelGroupEntryReadKey :: MonadIO m => AccelGroupEntry -> m (Maybe AccelKey) +accelGroupEntryReadKey s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO (Ptr AccelKey) - val' <- (newPtr 12 AccelKey) val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- (newPtr 12 AccelKey) val' + return val'' + return result -accelGroupEntryReadClosure :: AccelGroupEntry -> IO Closure -accelGroupEntryReadClosure s = withManagedPtr s $ \ptr -> do +accelGroupEntryWriteKey :: MonadIO m => AccelGroupEntry -> Ptr AccelKey -> m () +accelGroupEntryWriteKey s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 0) (val :: Ptr AccelKey) + +accelGroupEntryClearKey :: MonadIO m => AccelGroupEntry -> m () +accelGroupEntryClearKey s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 0) (nullPtr :: Ptr AccelKey) + +data AccelGroupEntryKeyFieldInfo +instance AttrInfo AccelGroupEntryKeyFieldInfo where + type AttrAllowedOps AccelGroupEntryKeyFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint AccelGroupEntryKeyFieldInfo = (~) (Ptr AccelKey) + type AttrBaseTypeConstraint AccelGroupEntryKeyFieldInfo = (~) AccelGroupEntry + type AttrGetType AccelGroupEntryKeyFieldInfo = Maybe AccelKey + type AttrLabel AccelGroupEntryKeyFieldInfo = "key" + attrGet _ = accelGroupEntryReadKey + attrSet _ = accelGroupEntryWriteKey + attrConstruct = undefined + attrClear _ = accelGroupEntryClearKey + +accelGroupEntryKey :: AttrLabelProxy "key" +accelGroupEntryKey = AttrLabelProxy + + +accelGroupEntryReadClosure :: MonadIO m => AccelGroupEntry -> m (Maybe Closure) +accelGroupEntryReadClosure s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 16) :: IO (Ptr Closure) - val' <- (newBoxed Closure) val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- (newBoxed Closure) val' + return val'' + return result -accelGroupEntryReadAccelPathQuark :: AccelGroupEntry -> IO Word32 -accelGroupEntryReadAccelPathQuark s = withManagedPtr s $ \ptr -> do +accelGroupEntryWriteClosure :: MonadIO m => AccelGroupEntry -> Ptr Closure -> m () +accelGroupEntryWriteClosure s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 16) (val :: Ptr Closure) + +accelGroupEntryClearClosure :: MonadIO m => AccelGroupEntry -> m () +accelGroupEntryClearClosure s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 16) (nullPtr :: Ptr Closure) + +data AccelGroupEntryClosureFieldInfo +instance AttrInfo AccelGroupEntryClosureFieldInfo where + type AttrAllowedOps AccelGroupEntryClosureFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint AccelGroupEntryClosureFieldInfo = (~) (Ptr Closure) + type AttrBaseTypeConstraint AccelGroupEntryClosureFieldInfo = (~) AccelGroupEntry + type AttrGetType AccelGroupEntryClosureFieldInfo = Maybe Closure + type AttrLabel AccelGroupEntryClosureFieldInfo = "closure" + attrGet _ = accelGroupEntryReadClosure + attrSet _ = accelGroupEntryWriteClosure + attrConstruct = undefined + attrClear _ = accelGroupEntryClearClosure + +accelGroupEntryClosure :: AttrLabelProxy "closure" +accelGroupEntryClosure = AttrLabelProxy + + +accelGroupEntryReadAccelPathQuark :: MonadIO m => AccelGroupEntry -> m Word32 +accelGroupEntryReadAccelPathQuark s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 24) :: IO Word32 return val + +accelGroupEntryWriteAccelPathQuark :: MonadIO m => AccelGroupEntry -> Word32 -> m () +accelGroupEntryWriteAccelPathQuark s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 24) (val :: Word32) + +data AccelGroupEntryAccelPathQuarkFieldInfo +instance AttrInfo AccelGroupEntryAccelPathQuarkFieldInfo where + type AttrAllowedOps AccelGroupEntryAccelPathQuarkFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint AccelGroupEntryAccelPathQuarkFieldInfo = (~) Word32 + type AttrBaseTypeConstraint AccelGroupEntryAccelPathQuarkFieldInfo = (~) AccelGroupEntry + type AttrGetType AccelGroupEntryAccelPathQuarkFieldInfo = Word32 + type AttrLabel AccelGroupEntryAccelPathQuarkFieldInfo = "accel_path_quark" + attrGet _ = accelGroupEntryReadAccelPathQuark + attrSet _ = accelGroupEntryWriteAccelPathQuark + attrConstruct = undefined + attrClear _ = undefined + +accelGroupEntryAccelPathQuark :: AttrLabelProxy "accelPathQuark" +accelGroupEntryAccelPathQuark = AttrLabelProxy + + + +type instance AttributeList AccelGroupEntry = AccelGroupEntryAttributeList +type AccelGroupEntryAttributeList = ('[ '("key", AccelGroupEntryKeyFieldInfo), '("closure", AccelGroupEntryClosureFieldInfo), '("accelPathQuark", AccelGroupEntryAccelPathQuarkFieldInfo)] :: [(Symbol, *)]) type family ResolveAccelGroupEntryMethod (t :: Symbol) (o :: *) :: * where ResolveAccelGroupEntryMethod l o = MethodResolutionFailed l o diff --git a/GI/Gtk/Structs/AccelGroupEntry.hs-boot b/GI/Gtk/Structs/AccelGroupEntry.hs-boot --- a/GI/Gtk/Structs/AccelGroupEntry.hs-boot +++ b/GI/Gtk/Structs/AccelGroupEntry.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Structs.AccelGroupEntry where -import Prelude () 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 diff --git a/GI/Gtk/Structs/AccelKey.hs b/GI/Gtk/Structs/AccelKey.hs --- a/GI/Gtk/Structs/AccelKey.hs +++ b/GI/Gtk/Structs/AccelKey.hs @@ -17,24 +17,30 @@ -- * Properties -- ** AccelFlags + accelKeyAccelFlags , accelKeyReadAccelFlags , + accelKeyWriteAccelFlags , -- ** AccelKey + accelKeyAccelKey , accelKeyReadAccelKey , + accelKeyWriteAccelKey , -- ** AccelMods + accelKeyAccelMods , accelKeyReadAccelMods , + accelKeyWriteAccelMods , ) where -import Prelude () 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 @@ -48,24 +54,96 @@ newZeroAccelKey :: MonadIO m => m AccelKey newZeroAccelKey = liftIO $ callocBytes 12 >>= wrapPtr AccelKey +instance tag ~ 'AttrSet => Constructible AccelKey tag where + new _ attrs = do + o <- newZeroAccelKey + GI.Attributes.set o attrs + return o + + noAccelKey :: Maybe AccelKey noAccelKey = Nothing -accelKeyReadAccelKey :: AccelKey -> IO Word32 -accelKeyReadAccelKey s = withManagedPtr s $ \ptr -> do +accelKeyReadAccelKey :: MonadIO m => AccelKey -> m Word32 +accelKeyReadAccelKey s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO Word32 return val -accelKeyReadAccelMods :: AccelKey -> IO [Gdk.ModifierType] -accelKeyReadAccelMods s = withManagedPtr s $ \ptr -> do +accelKeyWriteAccelKey :: MonadIO m => AccelKey -> Word32 -> m () +accelKeyWriteAccelKey s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 0) (val :: Word32) + +data AccelKeyAccelKeyFieldInfo +instance AttrInfo AccelKeyAccelKeyFieldInfo where + type AttrAllowedOps AccelKeyAccelKeyFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint AccelKeyAccelKeyFieldInfo = (~) Word32 + type AttrBaseTypeConstraint AccelKeyAccelKeyFieldInfo = (~) AccelKey + type AttrGetType AccelKeyAccelKeyFieldInfo = Word32 + type AttrLabel AccelKeyAccelKeyFieldInfo = "accel_key" + attrGet _ = accelKeyReadAccelKey + attrSet _ = accelKeyWriteAccelKey + attrConstruct = undefined + attrClear _ = undefined + +accelKeyAccelKey :: AttrLabelProxy "accelKey" +accelKeyAccelKey = AttrLabelProxy + + +accelKeyReadAccelMods :: MonadIO m => AccelKey -> m [Gdk.ModifierType] +accelKeyReadAccelMods s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 4) :: IO CUInt let val' = wordToGFlags val return val' -accelKeyReadAccelFlags :: AccelKey -> IO Word32 -accelKeyReadAccelFlags s = withManagedPtr s $ \ptr -> do +accelKeyWriteAccelMods :: MonadIO m => AccelKey -> [Gdk.ModifierType] -> m () +accelKeyWriteAccelMods s val = liftIO $ withManagedPtr s $ \ptr -> do + let val' = gflagsToWord val + poke (ptr `plusPtr` 4) (val' :: CUInt) + +data AccelKeyAccelModsFieldInfo +instance AttrInfo AccelKeyAccelModsFieldInfo where + type AttrAllowedOps AccelKeyAccelModsFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint AccelKeyAccelModsFieldInfo = (~) [Gdk.ModifierType] + type AttrBaseTypeConstraint AccelKeyAccelModsFieldInfo = (~) AccelKey + type AttrGetType AccelKeyAccelModsFieldInfo = [Gdk.ModifierType] + type AttrLabel AccelKeyAccelModsFieldInfo = "accel_mods" + attrGet _ = accelKeyReadAccelMods + attrSet _ = accelKeyWriteAccelMods + attrConstruct = undefined + attrClear _ = undefined + +accelKeyAccelMods :: AttrLabelProxy "accelMods" +accelKeyAccelMods = AttrLabelProxy + + +accelKeyReadAccelFlags :: MonadIO m => AccelKey -> m Word32 +accelKeyReadAccelFlags s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 8) :: IO Word32 return val + +accelKeyWriteAccelFlags :: MonadIO m => AccelKey -> Word32 -> m () +accelKeyWriteAccelFlags s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 8) (val :: Word32) + +data AccelKeyAccelFlagsFieldInfo +instance AttrInfo AccelKeyAccelFlagsFieldInfo where + type AttrAllowedOps AccelKeyAccelFlagsFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint AccelKeyAccelFlagsFieldInfo = (~) Word32 + type AttrBaseTypeConstraint AccelKeyAccelFlagsFieldInfo = (~) AccelKey + type AttrGetType AccelKeyAccelFlagsFieldInfo = Word32 + type AttrLabel AccelKeyAccelFlagsFieldInfo = "accel_flags" + attrGet _ = accelKeyReadAccelFlags + attrSet _ = accelKeyWriteAccelFlags + attrConstruct = undefined + attrClear _ = undefined + +accelKeyAccelFlags :: AttrLabelProxy "accelFlags" +accelKeyAccelFlags = AttrLabelProxy + + + +type instance AttributeList AccelKey = AccelKeyAttributeList +type AccelKeyAttributeList = ('[ '("accelKey", AccelKeyAccelKeyFieldInfo), '("accelMods", AccelKeyAccelModsFieldInfo), '("accelFlags", AccelKeyAccelFlagsFieldInfo)] :: [(Symbol, *)]) type family ResolveAccelKeyMethod (t :: Symbol) (o :: *) :: * where ResolveAccelKeyMethod l o = MethodResolutionFailed l o diff --git a/GI/Gtk/Structs/AccelKey.hs-boot b/GI/Gtk/Structs/AccelKey.hs-boot --- a/GI/Gtk/Structs/AccelKey.hs-boot +++ b/GI/Gtk/Structs/AccelKey.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Structs.AccelKey where -import Prelude () 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 diff --git a/GI/Gtk/Structs/ActionEntry.hs b/GI/Gtk/Structs/ActionEntry.hs --- a/GI/Gtk/Structs/ActionEntry.hs +++ b/GI/Gtk/Structs/ActionEntry.hs @@ -20,32 +20,47 @@ -- * Properties -- ** Accelerator + actionEntryAccelerator , + actionEntryClearAccelerator , actionEntryReadAccelerator , + actionEntryWriteAccelerator , -- ** Label + actionEntryClearLabel , + actionEntryLabel , actionEntryReadLabel , + actionEntryWriteLabel , -- ** Name + actionEntryClearName , + actionEntryName , actionEntryReadName , + actionEntryWriteName , -- ** StockId + actionEntryClearStockId , actionEntryReadStockId , + actionEntryStockId , + actionEntryWriteStockId , -- ** Tooltip + actionEntryClearTooltip , actionEntryReadTooltip , + actionEntryTooltip , + actionEntryWriteTooltip , ) where -import Prelude () 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 @@ -58,40 +73,180 @@ newZeroActionEntry :: MonadIO m => m ActionEntry newZeroActionEntry = liftIO $ callocBytes 48 >>= wrapPtr ActionEntry +instance tag ~ 'AttrSet => Constructible ActionEntry tag where + new _ attrs = do + o <- newZeroActionEntry + GI.Attributes.set o attrs + return o + + noActionEntry :: Maybe ActionEntry noActionEntry = Nothing -actionEntryReadName :: ActionEntry -> IO T.Text -actionEntryReadName s = withManagedPtr s $ \ptr -> do +actionEntryReadName :: MonadIO m => ActionEntry -> m (Maybe T.Text) +actionEntryReadName s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO CString - val' <- cstringToText val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- cstringToText val' + return val'' + return result -actionEntryReadStockId :: ActionEntry -> IO T.Text -actionEntryReadStockId s = withManagedPtr s $ \ptr -> do +actionEntryWriteName :: MonadIO m => ActionEntry -> CString -> m () +actionEntryWriteName s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 0) (val :: CString) + +actionEntryClearName :: MonadIO m => ActionEntry -> m () +actionEntryClearName s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 0) (nullPtr :: CString) + +data ActionEntryNameFieldInfo +instance AttrInfo ActionEntryNameFieldInfo where + type AttrAllowedOps ActionEntryNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint ActionEntryNameFieldInfo = (~) CString + type AttrBaseTypeConstraint ActionEntryNameFieldInfo = (~) ActionEntry + type AttrGetType ActionEntryNameFieldInfo = Maybe T.Text + type AttrLabel ActionEntryNameFieldInfo = "name" + attrGet _ = actionEntryReadName + attrSet _ = actionEntryWriteName + attrConstruct = undefined + attrClear _ = actionEntryClearName + +actionEntryName :: AttrLabelProxy "name" +actionEntryName = AttrLabelProxy + + +actionEntryReadStockId :: MonadIO m => ActionEntry -> m (Maybe T.Text) +actionEntryReadStockId s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 8) :: IO CString - val' <- cstringToText val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- cstringToText val' + return val'' + return result -actionEntryReadLabel :: ActionEntry -> IO T.Text -actionEntryReadLabel s = withManagedPtr s $ \ptr -> do +actionEntryWriteStockId :: MonadIO m => ActionEntry -> CString -> m () +actionEntryWriteStockId s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 8) (val :: CString) + +actionEntryClearStockId :: MonadIO m => ActionEntry -> m () +actionEntryClearStockId s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 8) (nullPtr :: CString) + +data ActionEntryStockIdFieldInfo +instance AttrInfo ActionEntryStockIdFieldInfo where + type AttrAllowedOps ActionEntryStockIdFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint ActionEntryStockIdFieldInfo = (~) CString + type AttrBaseTypeConstraint ActionEntryStockIdFieldInfo = (~) ActionEntry + type AttrGetType ActionEntryStockIdFieldInfo = Maybe T.Text + type AttrLabel ActionEntryStockIdFieldInfo = "stock_id" + attrGet _ = actionEntryReadStockId + attrSet _ = actionEntryWriteStockId + attrConstruct = undefined + attrClear _ = actionEntryClearStockId + +actionEntryStockId :: AttrLabelProxy "stockId" +actionEntryStockId = AttrLabelProxy + + +actionEntryReadLabel :: MonadIO m => ActionEntry -> m (Maybe T.Text) +actionEntryReadLabel s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 16) :: IO CString - val' <- cstringToText val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- cstringToText val' + return val'' + return result -actionEntryReadAccelerator :: ActionEntry -> IO T.Text -actionEntryReadAccelerator s = withManagedPtr s $ \ptr -> do +actionEntryWriteLabel :: MonadIO m => ActionEntry -> CString -> m () +actionEntryWriteLabel s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 16) (val :: CString) + +actionEntryClearLabel :: MonadIO m => ActionEntry -> m () +actionEntryClearLabel s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 16) (nullPtr :: CString) + +data ActionEntryLabelFieldInfo +instance AttrInfo ActionEntryLabelFieldInfo where + type AttrAllowedOps ActionEntryLabelFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint ActionEntryLabelFieldInfo = (~) CString + type AttrBaseTypeConstraint ActionEntryLabelFieldInfo = (~) ActionEntry + type AttrGetType ActionEntryLabelFieldInfo = Maybe T.Text + type AttrLabel ActionEntryLabelFieldInfo = "label" + attrGet _ = actionEntryReadLabel + attrSet _ = actionEntryWriteLabel + attrConstruct = undefined + attrClear _ = actionEntryClearLabel + +actionEntryLabel :: AttrLabelProxy "label" +actionEntryLabel = AttrLabelProxy + + +actionEntryReadAccelerator :: MonadIO m => ActionEntry -> m (Maybe T.Text) +actionEntryReadAccelerator s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 24) :: IO CString - val' <- cstringToText val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- cstringToText val' + return val'' + return result -actionEntryReadTooltip :: ActionEntry -> IO T.Text -actionEntryReadTooltip s = withManagedPtr s $ \ptr -> do +actionEntryWriteAccelerator :: MonadIO m => ActionEntry -> CString -> m () +actionEntryWriteAccelerator s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 24) (val :: CString) + +actionEntryClearAccelerator :: MonadIO m => ActionEntry -> m () +actionEntryClearAccelerator s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 24) (nullPtr :: CString) + +data ActionEntryAcceleratorFieldInfo +instance AttrInfo ActionEntryAcceleratorFieldInfo where + type AttrAllowedOps ActionEntryAcceleratorFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint ActionEntryAcceleratorFieldInfo = (~) CString + type AttrBaseTypeConstraint ActionEntryAcceleratorFieldInfo = (~) ActionEntry + type AttrGetType ActionEntryAcceleratorFieldInfo = Maybe T.Text + type AttrLabel ActionEntryAcceleratorFieldInfo = "accelerator" + attrGet _ = actionEntryReadAccelerator + attrSet _ = actionEntryWriteAccelerator + attrConstruct = undefined + attrClear _ = actionEntryClearAccelerator + +actionEntryAccelerator :: AttrLabelProxy "accelerator" +actionEntryAccelerator = AttrLabelProxy + + +actionEntryReadTooltip :: MonadIO m => ActionEntry -> m (Maybe T.Text) +actionEntryReadTooltip s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 32) :: IO CString - val' <- cstringToText val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- cstringToText val' + return val'' + return result --- XXX Skipped getter for "ActionEntry:callback" :: Not implemented: "Wrapping foreign callbacks is not supported yet" +actionEntryWriteTooltip :: MonadIO m => ActionEntry -> CString -> m () +actionEntryWriteTooltip s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 32) (val :: CString) + +actionEntryClearTooltip :: MonadIO m => ActionEntry -> m () +actionEntryClearTooltip s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 32) (nullPtr :: CString) + +data ActionEntryTooltipFieldInfo +instance AttrInfo ActionEntryTooltipFieldInfo where + type AttrAllowedOps ActionEntryTooltipFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint ActionEntryTooltipFieldInfo = (~) CString + type AttrBaseTypeConstraint ActionEntryTooltipFieldInfo = (~) ActionEntry + type AttrGetType ActionEntryTooltipFieldInfo = Maybe T.Text + type AttrLabel ActionEntryTooltipFieldInfo = "tooltip" + attrGet _ = actionEntryReadTooltip + attrSet _ = actionEntryWriteTooltip + attrConstruct = undefined + attrClear _ = actionEntryClearTooltip + +actionEntryTooltip :: AttrLabelProxy "tooltip" +actionEntryTooltip = AttrLabelProxy + + +-- XXX Skipped attribute for "ActionEntry:callback" :: Not implemented: "Wrapping foreign callbacks is not supported yet" + +type instance AttributeList ActionEntry = ActionEntryAttributeList +type ActionEntryAttributeList = ('[ '("name", ActionEntryNameFieldInfo), '("stockId", ActionEntryStockIdFieldInfo), '("label", ActionEntryLabelFieldInfo), '("accelerator", ActionEntryAcceleratorFieldInfo), '("tooltip", ActionEntryTooltipFieldInfo)] :: [(Symbol, *)]) type family ResolveActionEntryMethod (t :: Symbol) (o :: *) :: * where ResolveActionEntryMethod l o = MethodResolutionFailed l o diff --git a/GI/Gtk/Structs/ActionEntry.hs-boot b/GI/Gtk/Structs/ActionEntry.hs-boot --- a/GI/Gtk/Structs/ActionEntry.hs-boot +++ b/GI/Gtk/Structs/ActionEntry.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Structs.ActionEntry where -import Prelude () 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 diff --git a/GI/Gtk/Structs/BindingArg.hs b/GI/Gtk/Structs/BindingArg.hs --- a/GI/Gtk/Structs/BindingArg.hs +++ b/GI/Gtk/Structs/BindingArg.hs @@ -21,16 +21,18 @@ -- * Properties -- ** ArgType + bindingArgArgType , bindingArgReadArgType , + bindingArgWriteArgType , ) where -import Prelude () 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 @@ -43,14 +45,46 @@ newZeroBindingArg :: MonadIO m => m BindingArg newZeroBindingArg = liftIO $ callocBytes 8 >>= wrapPtr BindingArg +instance tag ~ 'AttrSet => Constructible BindingArg tag where + new _ attrs = do + o <- newZeroBindingArg + GI.Attributes.set o attrs + return o + + noBindingArg :: Maybe BindingArg noBindingArg = Nothing -bindingArgReadArgType :: BindingArg -> IO GType -bindingArgReadArgType s = withManagedPtr s $ \ptr -> do +bindingArgReadArgType :: MonadIO m => BindingArg -> m GType +bindingArgReadArgType s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO CGType let val' = GType val return val' + +bindingArgWriteArgType :: MonadIO m => BindingArg -> GType -> m () +bindingArgWriteArgType s val = liftIO $ withManagedPtr s $ \ptr -> do + let val' = gtypeToCGType val + poke (ptr `plusPtr` 0) (val' :: CGType) + +data BindingArgArgTypeFieldInfo +instance AttrInfo BindingArgArgTypeFieldInfo where + type AttrAllowedOps BindingArgArgTypeFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint BindingArgArgTypeFieldInfo = (~) GType + type AttrBaseTypeConstraint BindingArgArgTypeFieldInfo = (~) BindingArg + type AttrGetType BindingArgArgTypeFieldInfo = GType + type AttrLabel BindingArgArgTypeFieldInfo = "arg_type" + attrGet _ = bindingArgReadArgType + attrSet _ = bindingArgWriteArgType + attrConstruct = undefined + attrClear _ = undefined + +bindingArgArgType :: AttrLabelProxy "argType" +bindingArgArgType = AttrLabelProxy + + + +type instance AttributeList BindingArg = BindingArgAttributeList +type BindingArgAttributeList = ('[ '("argType", BindingArgArgTypeFieldInfo)] :: [(Symbol, *)]) type family ResolveBindingArgMethod (t :: Symbol) (o :: *) :: * where ResolveBindingArgMethod l o = MethodResolutionFailed l o diff --git a/GI/Gtk/Structs/BindingArg.hs-boot b/GI/Gtk/Structs/BindingArg.hs-boot --- a/GI/Gtk/Structs/BindingArg.hs-boot +++ b/GI/Gtk/Structs/BindingArg.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Structs.BindingArg where -import Prelude () 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 diff --git a/GI/Gtk/Structs/BindingEntry.hs b/GI/Gtk/Structs/BindingEntry.hs --- a/GI/Gtk/Structs/BindingEntry.hs +++ b/GI/Gtk/Structs/BindingEntry.hs @@ -39,48 +39,70 @@ -- * Properties -- ** BindingSet + bindingEntryBindingSet , + bindingEntryClearBindingSet , bindingEntryReadBindingSet , + bindingEntryWriteBindingSet , -- ** Destroyed + bindingEntryDestroyed , bindingEntryReadDestroyed , + bindingEntryWriteDestroyed , -- ** HashNext + bindingEntryClearHashNext , + bindingEntryHashNext , bindingEntryReadHashNext , + bindingEntryWriteHashNext , -- ** InEmission + bindingEntryInEmission , bindingEntryReadInEmission , + bindingEntryWriteInEmission , -- ** Keyval + bindingEntryKeyval , bindingEntryReadKeyval , + bindingEntryWriteKeyval , -- ** MarksUnbound + bindingEntryMarksUnbound , bindingEntryReadMarksUnbound , + bindingEntryWriteMarksUnbound , -- ** Modifiers + bindingEntryModifiers , bindingEntryReadModifiers , + bindingEntryWriteModifiers , -- ** SetNext + bindingEntryClearSetNext , bindingEntryReadSetNext , + bindingEntrySetNext , + bindingEntryWriteSetNext , -- ** Signals + bindingEntryClearSignals , bindingEntryReadSignals , + bindingEntrySignals , + bindingEntryWriteSignals , ) where -import Prelude () 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 @@ -95,64 +117,280 @@ newZeroBindingEntry :: MonadIO m => m BindingEntry newZeroBindingEntry = liftIO $ callocBytes 56 >>= wrapPtr BindingEntry +instance tag ~ 'AttrSet => Constructible BindingEntry tag where + new _ attrs = do + o <- newZeroBindingEntry + GI.Attributes.set o attrs + return o + + noBindingEntry :: Maybe BindingEntry noBindingEntry = Nothing -bindingEntryReadKeyval :: BindingEntry -> IO Word32 -bindingEntryReadKeyval s = withManagedPtr s $ \ptr -> do +bindingEntryReadKeyval :: MonadIO m => BindingEntry -> m Word32 +bindingEntryReadKeyval s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO Word32 return val -bindingEntryReadModifiers :: BindingEntry -> IO [Gdk.ModifierType] -bindingEntryReadModifiers s = withManagedPtr s $ \ptr -> do +bindingEntryWriteKeyval :: MonadIO m => BindingEntry -> Word32 -> m () +bindingEntryWriteKeyval s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 0) (val :: Word32) + +data BindingEntryKeyvalFieldInfo +instance AttrInfo BindingEntryKeyvalFieldInfo where + type AttrAllowedOps BindingEntryKeyvalFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint BindingEntryKeyvalFieldInfo = (~) Word32 + type AttrBaseTypeConstraint BindingEntryKeyvalFieldInfo = (~) BindingEntry + type AttrGetType BindingEntryKeyvalFieldInfo = Word32 + type AttrLabel BindingEntryKeyvalFieldInfo = "keyval" + attrGet _ = bindingEntryReadKeyval + attrSet _ = bindingEntryWriteKeyval + attrConstruct = undefined + attrClear _ = undefined + +bindingEntryKeyval :: AttrLabelProxy "keyval" +bindingEntryKeyval = AttrLabelProxy + + +bindingEntryReadModifiers :: MonadIO m => BindingEntry -> m [Gdk.ModifierType] +bindingEntryReadModifiers s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 4) :: IO CUInt let val' = wordToGFlags val return val' -bindingEntryReadBindingSet :: BindingEntry -> IO BindingSet -bindingEntryReadBindingSet s = withManagedPtr s $ \ptr -> do +bindingEntryWriteModifiers :: MonadIO m => BindingEntry -> [Gdk.ModifierType] -> m () +bindingEntryWriteModifiers s val = liftIO $ withManagedPtr s $ \ptr -> do + let val' = gflagsToWord val + poke (ptr `plusPtr` 4) (val' :: CUInt) + +data BindingEntryModifiersFieldInfo +instance AttrInfo BindingEntryModifiersFieldInfo where + type AttrAllowedOps BindingEntryModifiersFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint BindingEntryModifiersFieldInfo = (~) [Gdk.ModifierType] + type AttrBaseTypeConstraint BindingEntryModifiersFieldInfo = (~) BindingEntry + type AttrGetType BindingEntryModifiersFieldInfo = [Gdk.ModifierType] + type AttrLabel BindingEntryModifiersFieldInfo = "modifiers" + attrGet _ = bindingEntryReadModifiers + attrSet _ = bindingEntryWriteModifiers + attrConstruct = undefined + attrClear _ = undefined + +bindingEntryModifiers :: AttrLabelProxy "modifiers" +bindingEntryModifiers = AttrLabelProxy + + +bindingEntryReadBindingSet :: MonadIO m => BindingEntry -> m (Maybe BindingSet) +bindingEntryReadBindingSet s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 8) :: IO (Ptr BindingSet) - val' <- (newPtr 64 BindingSet) val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- (newPtr 64 BindingSet) val' + return val'' + return result -bindingEntryReadDestroyed :: BindingEntry -> IO Word32 -bindingEntryReadDestroyed s = withManagedPtr s $ \ptr -> do +bindingEntryWriteBindingSet :: MonadIO m => BindingEntry -> Ptr BindingSet -> m () +bindingEntryWriteBindingSet s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 8) (val :: Ptr BindingSet) + +bindingEntryClearBindingSet :: MonadIO m => BindingEntry -> m () +bindingEntryClearBindingSet s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 8) (nullPtr :: Ptr BindingSet) + +data BindingEntryBindingSetFieldInfo +instance AttrInfo BindingEntryBindingSetFieldInfo where + type AttrAllowedOps BindingEntryBindingSetFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint BindingEntryBindingSetFieldInfo = (~) (Ptr BindingSet) + type AttrBaseTypeConstraint BindingEntryBindingSetFieldInfo = (~) BindingEntry + type AttrGetType BindingEntryBindingSetFieldInfo = Maybe BindingSet + type AttrLabel BindingEntryBindingSetFieldInfo = "binding_set" + attrGet _ = bindingEntryReadBindingSet + attrSet _ = bindingEntryWriteBindingSet + attrConstruct = undefined + attrClear _ = bindingEntryClearBindingSet + +bindingEntryBindingSet :: AttrLabelProxy "bindingSet" +bindingEntryBindingSet = AttrLabelProxy + + +bindingEntryReadDestroyed :: MonadIO m => BindingEntry -> m Word32 +bindingEntryReadDestroyed s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 16) :: IO Word32 return val -bindingEntryReadInEmission :: BindingEntry -> IO Word32 -bindingEntryReadInEmission s = withManagedPtr s $ \ptr -> do +bindingEntryWriteDestroyed :: MonadIO m => BindingEntry -> Word32 -> m () +bindingEntryWriteDestroyed s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 16) (val :: Word32) + +data BindingEntryDestroyedFieldInfo +instance AttrInfo BindingEntryDestroyedFieldInfo where + type AttrAllowedOps BindingEntryDestroyedFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint BindingEntryDestroyedFieldInfo = (~) Word32 + type AttrBaseTypeConstraint BindingEntryDestroyedFieldInfo = (~) BindingEntry + type AttrGetType BindingEntryDestroyedFieldInfo = Word32 + type AttrLabel BindingEntryDestroyedFieldInfo = "destroyed" + attrGet _ = bindingEntryReadDestroyed + attrSet _ = bindingEntryWriteDestroyed + attrConstruct = undefined + attrClear _ = undefined + +bindingEntryDestroyed :: AttrLabelProxy "destroyed" +bindingEntryDestroyed = AttrLabelProxy + + +bindingEntryReadInEmission :: MonadIO m => BindingEntry -> m Word32 +bindingEntryReadInEmission s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 20) :: IO Word32 return val -bindingEntryReadMarksUnbound :: BindingEntry -> IO Word32 -bindingEntryReadMarksUnbound s = withManagedPtr s $ \ptr -> do +bindingEntryWriteInEmission :: MonadIO m => BindingEntry -> Word32 -> m () +bindingEntryWriteInEmission s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 20) (val :: Word32) + +data BindingEntryInEmissionFieldInfo +instance AttrInfo BindingEntryInEmissionFieldInfo where + type AttrAllowedOps BindingEntryInEmissionFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint BindingEntryInEmissionFieldInfo = (~) Word32 + type AttrBaseTypeConstraint BindingEntryInEmissionFieldInfo = (~) BindingEntry + type AttrGetType BindingEntryInEmissionFieldInfo = Word32 + type AttrLabel BindingEntryInEmissionFieldInfo = "in_emission" + attrGet _ = bindingEntryReadInEmission + attrSet _ = bindingEntryWriteInEmission + attrConstruct = undefined + attrClear _ = undefined + +bindingEntryInEmission :: AttrLabelProxy "inEmission" +bindingEntryInEmission = AttrLabelProxy + + +bindingEntryReadMarksUnbound :: MonadIO m => BindingEntry -> m Word32 +bindingEntryReadMarksUnbound s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 24) :: IO Word32 return val -bindingEntryReadSetNext :: BindingEntry -> IO BindingEntry -bindingEntryReadSetNext s = withManagedPtr s $ \ptr -> do +bindingEntryWriteMarksUnbound :: MonadIO m => BindingEntry -> Word32 -> m () +bindingEntryWriteMarksUnbound s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 24) (val :: Word32) + +data BindingEntryMarksUnboundFieldInfo +instance AttrInfo BindingEntryMarksUnboundFieldInfo where + type AttrAllowedOps BindingEntryMarksUnboundFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint BindingEntryMarksUnboundFieldInfo = (~) Word32 + type AttrBaseTypeConstraint BindingEntryMarksUnboundFieldInfo = (~) BindingEntry + type AttrGetType BindingEntryMarksUnboundFieldInfo = Word32 + type AttrLabel BindingEntryMarksUnboundFieldInfo = "marks_unbound" + attrGet _ = bindingEntryReadMarksUnbound + attrSet _ = bindingEntryWriteMarksUnbound + attrConstruct = undefined + attrClear _ = undefined + +bindingEntryMarksUnbound :: AttrLabelProxy "marksUnbound" +bindingEntryMarksUnbound = AttrLabelProxy + + +bindingEntryReadSetNext :: MonadIO m => BindingEntry -> m (Maybe BindingEntry) +bindingEntryReadSetNext s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 32) :: IO (Ptr BindingEntry) - val' <- (newPtr 56 BindingEntry) val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- (newPtr 56 BindingEntry) val' + return val'' + return result -bindingEntryReadHashNext :: BindingEntry -> IO BindingEntry -bindingEntryReadHashNext s = withManagedPtr s $ \ptr -> do +bindingEntryWriteSetNext :: MonadIO m => BindingEntry -> Ptr BindingEntry -> m () +bindingEntryWriteSetNext s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 32) (val :: Ptr BindingEntry) + +bindingEntryClearSetNext :: MonadIO m => BindingEntry -> m () +bindingEntryClearSetNext s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 32) (nullPtr :: Ptr BindingEntry) + +data BindingEntrySetNextFieldInfo +instance AttrInfo BindingEntrySetNextFieldInfo where + type AttrAllowedOps BindingEntrySetNextFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint BindingEntrySetNextFieldInfo = (~) (Ptr BindingEntry) + type AttrBaseTypeConstraint BindingEntrySetNextFieldInfo = (~) BindingEntry + type AttrGetType BindingEntrySetNextFieldInfo = Maybe BindingEntry + type AttrLabel BindingEntrySetNextFieldInfo = "set_next" + attrGet _ = bindingEntryReadSetNext + attrSet _ = bindingEntryWriteSetNext + attrConstruct = undefined + attrClear _ = bindingEntryClearSetNext + +bindingEntrySetNext :: AttrLabelProxy "setNext" +bindingEntrySetNext = AttrLabelProxy + + +bindingEntryReadHashNext :: MonadIO m => BindingEntry -> m (Maybe BindingEntry) +bindingEntryReadHashNext s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 40) :: IO (Ptr BindingEntry) - val' <- (newPtr 56 BindingEntry) val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- (newPtr 56 BindingEntry) val' + return val'' + return result -bindingEntryReadSignals :: BindingEntry -> IO BindingSignal -bindingEntryReadSignals s = withManagedPtr s $ \ptr -> do +bindingEntryWriteHashNext :: MonadIO m => BindingEntry -> Ptr BindingEntry -> m () +bindingEntryWriteHashNext s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 40) (val :: Ptr BindingEntry) + +bindingEntryClearHashNext :: MonadIO m => BindingEntry -> m () +bindingEntryClearHashNext s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 40) (nullPtr :: Ptr BindingEntry) + +data BindingEntryHashNextFieldInfo +instance AttrInfo BindingEntryHashNextFieldInfo where + type AttrAllowedOps BindingEntryHashNextFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint BindingEntryHashNextFieldInfo = (~) (Ptr BindingEntry) + type AttrBaseTypeConstraint BindingEntryHashNextFieldInfo = (~) BindingEntry + type AttrGetType BindingEntryHashNextFieldInfo = Maybe BindingEntry + type AttrLabel BindingEntryHashNextFieldInfo = "hash_next" + attrGet _ = bindingEntryReadHashNext + attrSet _ = bindingEntryWriteHashNext + attrConstruct = undefined + attrClear _ = bindingEntryClearHashNext + +bindingEntryHashNext :: AttrLabelProxy "hashNext" +bindingEntryHashNext = AttrLabelProxy + + +bindingEntryReadSignals :: MonadIO m => BindingEntry -> m (Maybe BindingSignal) +bindingEntryReadSignals s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 48) :: IO (Ptr BindingSignal) - val' <- (newPtr 32 BindingSignal) val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- (newPtr 32 BindingSignal) val' + return val'' + return result +bindingEntryWriteSignals :: MonadIO m => BindingEntry -> Ptr BindingSignal -> m () +bindingEntryWriteSignals s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 48) (val :: Ptr BindingSignal) + +bindingEntryClearSignals :: MonadIO m => BindingEntry -> m () +bindingEntryClearSignals s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 48) (nullPtr :: Ptr BindingSignal) + +data BindingEntrySignalsFieldInfo +instance AttrInfo BindingEntrySignalsFieldInfo where + type AttrAllowedOps BindingEntrySignalsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint BindingEntrySignalsFieldInfo = (~) (Ptr BindingSignal) + type AttrBaseTypeConstraint BindingEntrySignalsFieldInfo = (~) BindingEntry + type AttrGetType BindingEntrySignalsFieldInfo = Maybe BindingSignal + type AttrLabel BindingEntrySignalsFieldInfo = "signals" + attrGet _ = bindingEntryReadSignals + attrSet _ = bindingEntryWriteSignals + attrConstruct = undefined + attrClear _ = bindingEntryClearSignals + +bindingEntrySignals :: AttrLabelProxy "signals" +bindingEntrySignals = AttrLabelProxy + + + +type instance AttributeList BindingEntry = BindingEntryAttributeList +type BindingEntryAttributeList = ('[ '("keyval", BindingEntryKeyvalFieldInfo), '("modifiers", BindingEntryModifiersFieldInfo), '("bindingSet", BindingEntryBindingSetFieldInfo), '("destroyed", BindingEntryDestroyedFieldInfo), '("inEmission", BindingEntryInEmissionFieldInfo), '("marksUnbound", BindingEntryMarksUnboundFieldInfo), '("setNext", BindingEntrySetNextFieldInfo), '("hashNext", BindingEntryHashNextFieldInfo), '("signals", BindingEntrySignalsFieldInfo)] :: [(Symbol, *)]) + -- method BindingEntry::add_signal_from_string -- method type : MemberFunction -- Args : [Arg {argCName = "binding_set", argType = TInterface "Gtk" "BindingSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "signal_desc", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "GLib" "TokenType" +-- returnType : Just (TInterface "GLib" "TokenType") -- throws : False -- Skip return : False @@ -178,15 +416,15 @@ -- method BindingEntry::add_signall -- method type : MemberFunction --- Args : [Arg {argCName = "binding_set", argType = TInterface "Gtk" "BindingSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keyval", argType = TBasicType TUInt32, 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 = "signal_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "binding_args", argType = TGSList (TInterface "Gtk" "BindingArg"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "binding_set", argType = TInterface "Gtk" "BindingSet", 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 = "signal_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "binding_args", argType = TGSList (TInterface "Gtk" "BindingArg"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_binding_entry_add_signall" gtk_binding_entry_add_signall :: Ptr BindingSet -> -- binding_set : TInterface "Gtk" "BindingSet" - Word32 -> -- keyval : TBasicType TUInt32 + Word32 -> -- keyval : TBasicType TUInt CUInt -> -- modifiers : TInterface "Gdk" "ModifierType" CString -> -- signal_name : TBasicType TUTF8 Ptr (GSList (Ptr BindingArg)) -> -- binding_args : TGSList (TInterface "Gtk" "BindingArg") @@ -216,15 +454,15 @@ -- method BindingEntry::remove -- method type : MemberFunction --- Args : [Arg {argCName = "binding_set", argType = TInterface "Gtk" "BindingSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keyval", argType = TBasicType TUInt32, 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}] +-- Args : [Arg {argCName = "binding_set", argType = TInterface "Gtk" "BindingSet", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_binding_entry_remove" gtk_binding_entry_remove :: Ptr BindingSet -> -- binding_set : TInterface "Gtk" "BindingSet" - Word32 -> -- keyval : TBasicType TUInt32 + Word32 -> -- keyval : TBasicType TUInt CUInt -> -- modifiers : TInterface "Gdk" "ModifierType" IO () @@ -244,15 +482,15 @@ -- method BindingEntry::skip -- method type : MemberFunction --- Args : [Arg {argCName = "binding_set", argType = TInterface "Gtk" "BindingSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keyval", argType = TBasicType TUInt32, 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}] +-- Args : [Arg {argCName = "binding_set", argType = TInterface "Gtk" "BindingSet", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_binding_entry_skip" gtk_binding_entry_skip :: Ptr BindingSet -> -- binding_set : TInterface "Gtk" "BindingSet" - Word32 -> -- keyval : TBasicType TUInt32 + Word32 -> -- keyval : TBasicType TUInt CUInt -> -- modifiers : TInterface "Gdk" "ModifierType" IO () diff --git a/GI/Gtk/Structs/BindingEntry.hs-boot b/GI/Gtk/Structs/BindingEntry.hs-boot --- a/GI/Gtk/Structs/BindingEntry.hs-boot +++ b/GI/Gtk/Structs/BindingEntry.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Structs.BindingEntry where -import Prelude () 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 diff --git a/GI/Gtk/Structs/BindingSet.hs b/GI/Gtk/Structs/BindingSet.hs --- a/GI/Gtk/Structs/BindingSet.hs +++ b/GI/Gtk/Structs/BindingSet.hs @@ -41,44 +41,66 @@ -- * Properties -- ** ClassBranchPspecs + bindingSetClassBranchPspecs , + bindingSetClearClassBranchPspecs , bindingSetReadClassBranchPspecs , + bindingSetWriteClassBranchPspecs , -- ** Current + bindingSetClearCurrent , + bindingSetCurrent , bindingSetReadCurrent , + bindingSetWriteCurrent , -- ** Entries + bindingSetClearEntries , + bindingSetEntries , bindingSetReadEntries , + bindingSetWriteEntries , -- ** Parsed + bindingSetParsed , bindingSetReadParsed , + bindingSetWriteParsed , -- ** Priority + bindingSetPriority , bindingSetReadPriority , + bindingSetWritePriority , -- ** SetName + bindingSetClearSetName , bindingSetReadSetName , + bindingSetSetName , + bindingSetWriteSetName , -- ** WidgetClassPspecs + bindingSetClearWidgetClassPspecs , bindingSetReadWidgetClassPspecs , + bindingSetWidgetClassPspecs , + bindingSetWriteWidgetClassPspecs , -- ** WidgetPathPspecs + bindingSetClearWidgetPathPspecs , bindingSetReadWidgetPathPspecs , + bindingSetWidgetPathPspecs , + bindingSetWriteWidgetPathPspecs , ) where -import Prelude () 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 @@ -93,66 +115,267 @@ newZeroBindingSet :: MonadIO m => m BindingSet newZeroBindingSet = liftIO $ callocBytes 64 >>= wrapPtr BindingSet +instance tag ~ 'AttrSet => Constructible BindingSet tag where + new _ attrs = do + o <- newZeroBindingSet + GI.Attributes.set o attrs + return o + + noBindingSet :: Maybe BindingSet noBindingSet = Nothing -bindingSetReadSetName :: BindingSet -> IO T.Text -bindingSetReadSetName s = withManagedPtr s $ \ptr -> do +bindingSetReadSetName :: MonadIO m => BindingSet -> m (Maybe T.Text) +bindingSetReadSetName s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO CString - val' <- cstringToText val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- cstringToText val' + return val'' + return result -bindingSetReadPriority :: BindingSet -> IO Int32 -bindingSetReadPriority s = withManagedPtr s $ \ptr -> do +bindingSetWriteSetName :: MonadIO m => BindingSet -> CString -> m () +bindingSetWriteSetName s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 0) (val :: CString) + +bindingSetClearSetName :: MonadIO m => BindingSet -> m () +bindingSetClearSetName s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 0) (nullPtr :: CString) + +data BindingSetSetNameFieldInfo +instance AttrInfo BindingSetSetNameFieldInfo where + type AttrAllowedOps BindingSetSetNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint BindingSetSetNameFieldInfo = (~) CString + type AttrBaseTypeConstraint BindingSetSetNameFieldInfo = (~) BindingSet + type AttrGetType BindingSetSetNameFieldInfo = Maybe T.Text + type AttrLabel BindingSetSetNameFieldInfo = "set_name" + attrGet _ = bindingSetReadSetName + attrSet _ = bindingSetWriteSetName + attrConstruct = undefined + attrClear _ = bindingSetClearSetName + +bindingSetSetName :: AttrLabelProxy "setName" +bindingSetSetName = AttrLabelProxy + + +bindingSetReadPriority :: MonadIO m => BindingSet -> m Int32 +bindingSetReadPriority s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 8) :: IO Int32 return val -bindingSetReadWidgetPathPspecs :: BindingSet -> IO ([Ptr ()]) -bindingSetReadWidgetPathPspecs s = withManagedPtr s $ \ptr -> do +bindingSetWritePriority :: MonadIO m => BindingSet -> Int32 -> m () +bindingSetWritePriority s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 8) (val :: Int32) + +data BindingSetPriorityFieldInfo +instance AttrInfo BindingSetPriorityFieldInfo where + type AttrAllowedOps BindingSetPriorityFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint BindingSetPriorityFieldInfo = (~) Int32 + type AttrBaseTypeConstraint BindingSetPriorityFieldInfo = (~) BindingSet + type AttrGetType BindingSetPriorityFieldInfo = Int32 + type AttrLabel BindingSetPriorityFieldInfo = "priority" + attrGet _ = bindingSetReadPriority + attrSet _ = bindingSetWritePriority + attrConstruct = undefined + attrClear _ = undefined + +bindingSetPriority :: AttrLabelProxy "priority" +bindingSetPriority = AttrLabelProxy + + +bindingSetReadWidgetPathPspecs :: MonadIO m => BindingSet -> m ([Ptr ()]) +bindingSetReadWidgetPathPspecs s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 16) :: IO (Ptr (GSList (Ptr ()))) val' <- unpackGSList val return val' -bindingSetReadWidgetClassPspecs :: BindingSet -> IO ([Ptr ()]) -bindingSetReadWidgetClassPspecs s = withManagedPtr s $ \ptr -> do +bindingSetWriteWidgetPathPspecs :: MonadIO m => BindingSet -> Ptr (GSList (Ptr ())) -> m () +bindingSetWriteWidgetPathPspecs s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 16) (val :: Ptr (GSList (Ptr ()))) + +bindingSetClearWidgetPathPspecs :: MonadIO m => BindingSet -> m () +bindingSetClearWidgetPathPspecs s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 16) (nullPtr :: Ptr (GSList (Ptr ()))) + +data BindingSetWidgetPathPspecsFieldInfo +instance AttrInfo BindingSetWidgetPathPspecsFieldInfo where + type AttrAllowedOps BindingSetWidgetPathPspecsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint BindingSetWidgetPathPspecsFieldInfo = (~) (Ptr (GSList (Ptr ()))) + type AttrBaseTypeConstraint BindingSetWidgetPathPspecsFieldInfo = (~) BindingSet + type AttrGetType BindingSetWidgetPathPspecsFieldInfo = [Ptr ()] + type AttrLabel BindingSetWidgetPathPspecsFieldInfo = "widget_path_pspecs" + attrGet _ = bindingSetReadWidgetPathPspecs + attrSet _ = bindingSetWriteWidgetPathPspecs + attrConstruct = undefined + attrClear _ = bindingSetClearWidgetPathPspecs + +bindingSetWidgetPathPspecs :: AttrLabelProxy "widgetPathPspecs" +bindingSetWidgetPathPspecs = AttrLabelProxy + + +bindingSetReadWidgetClassPspecs :: MonadIO m => BindingSet -> m ([Ptr ()]) +bindingSetReadWidgetClassPspecs s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 24) :: IO (Ptr (GSList (Ptr ()))) val' <- unpackGSList val return val' -bindingSetReadClassBranchPspecs :: BindingSet -> IO ([Ptr ()]) -bindingSetReadClassBranchPspecs s = withManagedPtr s $ \ptr -> do +bindingSetWriteWidgetClassPspecs :: MonadIO m => BindingSet -> Ptr (GSList (Ptr ())) -> m () +bindingSetWriteWidgetClassPspecs s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 24) (val :: Ptr (GSList (Ptr ()))) + +bindingSetClearWidgetClassPspecs :: MonadIO m => BindingSet -> m () +bindingSetClearWidgetClassPspecs s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 24) (nullPtr :: Ptr (GSList (Ptr ()))) + +data BindingSetWidgetClassPspecsFieldInfo +instance AttrInfo BindingSetWidgetClassPspecsFieldInfo where + type AttrAllowedOps BindingSetWidgetClassPspecsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint BindingSetWidgetClassPspecsFieldInfo = (~) (Ptr (GSList (Ptr ()))) + type AttrBaseTypeConstraint BindingSetWidgetClassPspecsFieldInfo = (~) BindingSet + type AttrGetType BindingSetWidgetClassPspecsFieldInfo = [Ptr ()] + type AttrLabel BindingSetWidgetClassPspecsFieldInfo = "widget_class_pspecs" + attrGet _ = bindingSetReadWidgetClassPspecs + attrSet _ = bindingSetWriteWidgetClassPspecs + attrConstruct = undefined + attrClear _ = bindingSetClearWidgetClassPspecs + +bindingSetWidgetClassPspecs :: AttrLabelProxy "widgetClassPspecs" +bindingSetWidgetClassPspecs = AttrLabelProxy + + +bindingSetReadClassBranchPspecs :: MonadIO m => BindingSet -> m ([Ptr ()]) +bindingSetReadClassBranchPspecs s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 32) :: IO (Ptr (GSList (Ptr ()))) val' <- unpackGSList val return val' -bindingSetReadEntries :: BindingSet -> IO BindingEntry -bindingSetReadEntries s = withManagedPtr s $ \ptr -> do +bindingSetWriteClassBranchPspecs :: MonadIO m => BindingSet -> Ptr (GSList (Ptr ())) -> m () +bindingSetWriteClassBranchPspecs s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 32) (val :: Ptr (GSList (Ptr ()))) + +bindingSetClearClassBranchPspecs :: MonadIO m => BindingSet -> m () +bindingSetClearClassBranchPspecs s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 32) (nullPtr :: Ptr (GSList (Ptr ()))) + +data BindingSetClassBranchPspecsFieldInfo +instance AttrInfo BindingSetClassBranchPspecsFieldInfo where + type AttrAllowedOps BindingSetClassBranchPspecsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint BindingSetClassBranchPspecsFieldInfo = (~) (Ptr (GSList (Ptr ()))) + type AttrBaseTypeConstraint BindingSetClassBranchPspecsFieldInfo = (~) BindingSet + type AttrGetType BindingSetClassBranchPspecsFieldInfo = [Ptr ()] + type AttrLabel BindingSetClassBranchPspecsFieldInfo = "class_branch_pspecs" + attrGet _ = bindingSetReadClassBranchPspecs + attrSet _ = bindingSetWriteClassBranchPspecs + attrConstruct = undefined + attrClear _ = bindingSetClearClassBranchPspecs + +bindingSetClassBranchPspecs :: AttrLabelProxy "classBranchPspecs" +bindingSetClassBranchPspecs = AttrLabelProxy + + +bindingSetReadEntries :: MonadIO m => BindingSet -> m (Maybe BindingEntry) +bindingSetReadEntries s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 40) :: IO (Ptr BindingEntry) - val' <- (newPtr 56 BindingEntry) val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- (newPtr 56 BindingEntry) val' + return val'' + return result -bindingSetReadCurrent :: BindingSet -> IO BindingEntry -bindingSetReadCurrent s = withManagedPtr s $ \ptr -> do +bindingSetWriteEntries :: MonadIO m => BindingSet -> Ptr BindingEntry -> m () +bindingSetWriteEntries s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 40) (val :: Ptr BindingEntry) + +bindingSetClearEntries :: MonadIO m => BindingSet -> m () +bindingSetClearEntries s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 40) (nullPtr :: Ptr BindingEntry) + +data BindingSetEntriesFieldInfo +instance AttrInfo BindingSetEntriesFieldInfo where + type AttrAllowedOps BindingSetEntriesFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint BindingSetEntriesFieldInfo = (~) (Ptr BindingEntry) + type AttrBaseTypeConstraint BindingSetEntriesFieldInfo = (~) BindingSet + type AttrGetType BindingSetEntriesFieldInfo = Maybe BindingEntry + type AttrLabel BindingSetEntriesFieldInfo = "entries" + attrGet _ = bindingSetReadEntries + attrSet _ = bindingSetWriteEntries + attrConstruct = undefined + attrClear _ = bindingSetClearEntries + +bindingSetEntries :: AttrLabelProxy "entries" +bindingSetEntries = AttrLabelProxy + + +bindingSetReadCurrent :: MonadIO m => BindingSet -> m (Maybe BindingEntry) +bindingSetReadCurrent s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 48) :: IO (Ptr BindingEntry) - val' <- (newPtr 56 BindingEntry) val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- (newPtr 56 BindingEntry) val' + return val'' + return result -bindingSetReadParsed :: BindingSet -> IO Word32 -bindingSetReadParsed s = withManagedPtr s $ \ptr -> do +bindingSetWriteCurrent :: MonadIO m => BindingSet -> Ptr BindingEntry -> m () +bindingSetWriteCurrent s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 48) (val :: Ptr BindingEntry) + +bindingSetClearCurrent :: MonadIO m => BindingSet -> m () +bindingSetClearCurrent s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 48) (nullPtr :: Ptr BindingEntry) + +data BindingSetCurrentFieldInfo +instance AttrInfo BindingSetCurrentFieldInfo where + type AttrAllowedOps BindingSetCurrentFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint BindingSetCurrentFieldInfo = (~) (Ptr BindingEntry) + type AttrBaseTypeConstraint BindingSetCurrentFieldInfo = (~) BindingSet + type AttrGetType BindingSetCurrentFieldInfo = Maybe BindingEntry + type AttrLabel BindingSetCurrentFieldInfo = "current" + attrGet _ = bindingSetReadCurrent + attrSet _ = bindingSetWriteCurrent + attrConstruct = undefined + attrClear _ = bindingSetClearCurrent + +bindingSetCurrent :: AttrLabelProxy "current" +bindingSetCurrent = AttrLabelProxy + + +bindingSetReadParsed :: MonadIO m => BindingSet -> m Word32 +bindingSetReadParsed s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 56) :: IO Word32 return val +bindingSetWriteParsed :: MonadIO m => BindingSet -> Word32 -> m () +bindingSetWriteParsed s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 56) (val :: Word32) + +data BindingSetParsedFieldInfo +instance AttrInfo BindingSetParsedFieldInfo where + type AttrAllowedOps BindingSetParsedFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint BindingSetParsedFieldInfo = (~) Word32 + type AttrBaseTypeConstraint BindingSetParsedFieldInfo = (~) BindingSet + type AttrGetType BindingSetParsedFieldInfo = Word32 + type AttrLabel BindingSetParsedFieldInfo = "parsed" + attrGet _ = bindingSetReadParsed + attrSet _ = bindingSetWriteParsed + attrConstruct = undefined + attrClear _ = undefined + +bindingSetParsed :: AttrLabelProxy "parsed" +bindingSetParsed = AttrLabelProxy + + + +type instance AttributeList BindingSet = BindingSetAttributeList +type BindingSetAttributeList = ('[ '("setName", BindingSetSetNameFieldInfo), '("priority", BindingSetPriorityFieldInfo), '("widgetPathPspecs", BindingSetWidgetPathPspecsFieldInfo), '("widgetClassPspecs", BindingSetWidgetClassPspecsFieldInfo), '("classBranchPspecs", BindingSetClassBranchPspecsFieldInfo), '("entries", BindingSetEntriesFieldInfo), '("current", BindingSetCurrentFieldInfo), '("parsed", BindingSetParsedFieldInfo)] :: [(Symbol, *)]) + -- method BindingSet::activate -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "BindingSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keyval", argType = TBasicType TUInt32, 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 = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "BindingSet", 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 = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_binding_set_activate" gtk_binding_set_activate :: Ptr BindingSet -> -- _obj : TInterface "Gtk" "BindingSet" - Word32 -> -- keyval : TBasicType TUInt32 + Word32 -> -- keyval : TBasicType TUInt CUInt -> -- modifiers : TInterface "Gdk" "ModifierType" Ptr GObject.Object -> -- object : TInterface "GObject" "Object" IO CInt @@ -183,7 +406,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "BindingSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path_type", argType = TInterface "Gtk" "PathType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path_pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "priority", argType = TInterface "Gtk" "PathPriorityType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -220,7 +443,7 @@ -- method type : MemberFunction -- Args : [Arg {argCName = "set_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "BindingSet" +-- returnType : Just (TInterface "Gtk" "BindingSet") -- throws : False -- Skip return : False diff --git a/GI/Gtk/Structs/BindingSet.hs-boot b/GI/Gtk/Structs/BindingSet.hs-boot --- a/GI/Gtk/Structs/BindingSet.hs-boot +++ b/GI/Gtk/Structs/BindingSet.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Structs.BindingSet where -import Prelude () 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 diff --git a/GI/Gtk/Structs/BindingSignal.hs b/GI/Gtk/Structs/BindingSignal.hs --- a/GI/Gtk/Structs/BindingSignal.hs +++ b/GI/Gtk/Structs/BindingSignal.hs @@ -21,24 +21,32 @@ -- * Properties -- ** NArgs + bindingSignalNArgs , bindingSignalReadNArgs , + bindingSignalWriteNArgs , -- ** Next + bindingSignalClearNext , + bindingSignalNext , bindingSignalReadNext , + bindingSignalWriteNext , -- ** SignalName + bindingSignalClearSignalName , bindingSignalReadSignalName , + bindingSignalSignalName , + bindingSignalWriteSignalName , ) where -import Prelude () 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 @@ -51,27 +59,109 @@ newZeroBindingSignal :: MonadIO m => m BindingSignal newZeroBindingSignal = liftIO $ callocBytes 32 >>= wrapPtr BindingSignal +instance tag ~ 'AttrSet => Constructible BindingSignal tag where + new _ attrs = do + o <- newZeroBindingSignal + GI.Attributes.set o attrs + return o + + noBindingSignal :: Maybe BindingSignal noBindingSignal = Nothing -bindingSignalReadNext :: BindingSignal -> IO BindingSignal -bindingSignalReadNext s = withManagedPtr s $ \ptr -> do +bindingSignalReadNext :: MonadIO m => BindingSignal -> m (Maybe BindingSignal) +bindingSignalReadNext s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO (Ptr BindingSignal) - val' <- (newPtr 32 BindingSignal) val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- (newPtr 32 BindingSignal) val' + return val'' + return result -bindingSignalReadSignalName :: BindingSignal -> IO T.Text -bindingSignalReadSignalName s = withManagedPtr s $ \ptr -> do +bindingSignalWriteNext :: MonadIO m => BindingSignal -> Ptr BindingSignal -> m () +bindingSignalWriteNext s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 0) (val :: Ptr BindingSignal) + +bindingSignalClearNext :: MonadIO m => BindingSignal -> m () +bindingSignalClearNext s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 0) (nullPtr :: Ptr BindingSignal) + +data BindingSignalNextFieldInfo +instance AttrInfo BindingSignalNextFieldInfo where + type AttrAllowedOps BindingSignalNextFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint BindingSignalNextFieldInfo = (~) (Ptr BindingSignal) + type AttrBaseTypeConstraint BindingSignalNextFieldInfo = (~) BindingSignal + type AttrGetType BindingSignalNextFieldInfo = Maybe BindingSignal + type AttrLabel BindingSignalNextFieldInfo = "next" + attrGet _ = bindingSignalReadNext + attrSet _ = bindingSignalWriteNext + attrConstruct = undefined + attrClear _ = bindingSignalClearNext + +bindingSignalNext :: AttrLabelProxy "next" +bindingSignalNext = AttrLabelProxy + + +bindingSignalReadSignalName :: MonadIO m => BindingSignal -> m (Maybe T.Text) +bindingSignalReadSignalName s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 8) :: IO CString - val' <- cstringToText val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- cstringToText val' + return val'' + return result -bindingSignalReadNArgs :: BindingSignal -> IO Word32 -bindingSignalReadNArgs s = withManagedPtr s $ \ptr -> do +bindingSignalWriteSignalName :: MonadIO m => BindingSignal -> CString -> m () +bindingSignalWriteSignalName s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 8) (val :: CString) + +bindingSignalClearSignalName :: MonadIO m => BindingSignal -> m () +bindingSignalClearSignalName s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 8) (nullPtr :: CString) + +data BindingSignalSignalNameFieldInfo +instance AttrInfo BindingSignalSignalNameFieldInfo where + type AttrAllowedOps BindingSignalSignalNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint BindingSignalSignalNameFieldInfo = (~) CString + type AttrBaseTypeConstraint BindingSignalSignalNameFieldInfo = (~) BindingSignal + type AttrGetType BindingSignalSignalNameFieldInfo = Maybe T.Text + type AttrLabel BindingSignalSignalNameFieldInfo = "signal_name" + attrGet _ = bindingSignalReadSignalName + attrSet _ = bindingSignalWriteSignalName + attrConstruct = undefined + attrClear _ = bindingSignalClearSignalName + +bindingSignalSignalName :: AttrLabelProxy "signalName" +bindingSignalSignalName = AttrLabelProxy + + +bindingSignalReadNArgs :: MonadIO m => BindingSignal -> m Word32 +bindingSignalReadNArgs s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 16) :: IO Word32 return val --- XXX Skipped getter for "BindingSignal:args" :: Not implemented: "Don't know how to unpack C array of type TCArray False (-1) 2 (TInterface \"Gtk\" \"BindingArg\")" +bindingSignalWriteNArgs :: MonadIO m => BindingSignal -> Word32 -> m () +bindingSignalWriteNArgs s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 16) (val :: Word32) + +data BindingSignalNArgsFieldInfo +instance AttrInfo BindingSignalNArgsFieldInfo where + type AttrAllowedOps BindingSignalNArgsFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint BindingSignalNArgsFieldInfo = (~) Word32 + type AttrBaseTypeConstraint BindingSignalNArgsFieldInfo = (~) BindingSignal + type AttrGetType BindingSignalNArgsFieldInfo = Word32 + type AttrLabel BindingSignalNArgsFieldInfo = "n_args" + attrGet _ = bindingSignalReadNArgs + attrSet _ = bindingSignalWriteNArgs + attrConstruct = undefined + attrClear _ = undefined + +bindingSignalNArgs :: AttrLabelProxy "nArgs" +bindingSignalNArgs = AttrLabelProxy + + +-- XXX Skipped attribute for "BindingSignal:args" :: Not implemented: "Don't know how to unpack C array of type TCArray False (-1) 2 (TInterface \"Gtk\" \"BindingArg\")" + +type instance AttributeList BindingSignal = BindingSignalAttributeList +type BindingSignalAttributeList = ('[ '("next", BindingSignalNextFieldInfo), '("signalName", BindingSignalSignalNameFieldInfo), '("nArgs", BindingSignalNArgsFieldInfo)] :: [(Symbol, *)]) type family ResolveBindingSignalMethod (t :: Symbol) (o :: *) :: * where ResolveBindingSignalMethod l o = MethodResolutionFailed l o diff --git a/GI/Gtk/Structs/BindingSignal.hs-boot b/GI/Gtk/Structs/BindingSignal.hs-boot --- a/GI/Gtk/Structs/BindingSignal.hs-boot +++ b/GI/Gtk/Structs/BindingSignal.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Structs.BindingSignal where -import Prelude () 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 diff --git a/GI/Gtk/Structs/Border.hs b/GI/Gtk/Structs/Border.hs --- a/GI/Gtk/Structs/Border.hs +++ b/GI/Gtk/Structs/Border.hs @@ -37,28 +37,36 @@ -- * Properties -- ** Bottom + borderBottom , borderReadBottom , + borderWriteBottom , -- ** Left + borderLeft , borderReadLeft , + borderWriteLeft , -- ** Right borderReadRight , + borderRight , + borderWriteRight , -- ** Top borderReadTop , + borderTop , + borderWriteTop , ) where -import Prelude () 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 @@ -77,34 +85,125 @@ newZeroBorder :: MonadIO m => m Border newZeroBorder = liftIO $ callocBoxedBytes 8 >>= wrapBoxed Border +instance tag ~ 'AttrSet => Constructible Border tag where + new _ attrs = do + o <- newZeroBorder + GI.Attributes.set o attrs + return o + + noBorder :: Maybe Border noBorder = Nothing -borderReadLeft :: Border -> IO Int16 -borderReadLeft s = withManagedPtr s $ \ptr -> do +borderReadLeft :: MonadIO m => Border -> m Int16 +borderReadLeft s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO Int16 return val -borderReadRight :: Border -> IO Int16 -borderReadRight s = withManagedPtr s $ \ptr -> do +borderWriteLeft :: MonadIO m => Border -> Int16 -> m () +borderWriteLeft s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 0) (val :: Int16) + +data BorderLeftFieldInfo +instance AttrInfo BorderLeftFieldInfo where + type AttrAllowedOps BorderLeftFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint BorderLeftFieldInfo = (~) Int16 + type AttrBaseTypeConstraint BorderLeftFieldInfo = (~) Border + type AttrGetType BorderLeftFieldInfo = Int16 + type AttrLabel BorderLeftFieldInfo = "left" + attrGet _ = borderReadLeft + attrSet _ = borderWriteLeft + attrConstruct = undefined + attrClear _ = undefined + +borderLeft :: AttrLabelProxy "left" +borderLeft = AttrLabelProxy + + +borderReadRight :: MonadIO m => Border -> m Int16 +borderReadRight s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 2) :: IO Int16 return val -borderReadTop :: Border -> IO Int16 -borderReadTop s = withManagedPtr s $ \ptr -> do +borderWriteRight :: MonadIO m => Border -> Int16 -> m () +borderWriteRight s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 2) (val :: Int16) + +data BorderRightFieldInfo +instance AttrInfo BorderRightFieldInfo where + type AttrAllowedOps BorderRightFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint BorderRightFieldInfo = (~) Int16 + type AttrBaseTypeConstraint BorderRightFieldInfo = (~) Border + type AttrGetType BorderRightFieldInfo = Int16 + type AttrLabel BorderRightFieldInfo = "right" + attrGet _ = borderReadRight + attrSet _ = borderWriteRight + attrConstruct = undefined + attrClear _ = undefined + +borderRight :: AttrLabelProxy "right" +borderRight = AttrLabelProxy + + +borderReadTop :: MonadIO m => Border -> m Int16 +borderReadTop s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 4) :: IO Int16 return val -borderReadBottom :: Border -> IO Int16 -borderReadBottom s = withManagedPtr s $ \ptr -> do +borderWriteTop :: MonadIO m => Border -> Int16 -> m () +borderWriteTop s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 4) (val :: Int16) + +data BorderTopFieldInfo +instance AttrInfo BorderTopFieldInfo where + type AttrAllowedOps BorderTopFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint BorderTopFieldInfo = (~) Int16 + type AttrBaseTypeConstraint BorderTopFieldInfo = (~) Border + type AttrGetType BorderTopFieldInfo = Int16 + type AttrLabel BorderTopFieldInfo = "top" + attrGet _ = borderReadTop + attrSet _ = borderWriteTop + attrConstruct = undefined + attrClear _ = undefined + +borderTop :: AttrLabelProxy "top" +borderTop = AttrLabelProxy + + +borderReadBottom :: MonadIO m => Border -> m Int16 +borderReadBottom s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 6) :: IO Int16 return val +borderWriteBottom :: MonadIO m => Border -> Int16 -> m () +borderWriteBottom s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 6) (val :: Int16) + +data BorderBottomFieldInfo +instance AttrInfo BorderBottomFieldInfo where + type AttrAllowedOps BorderBottomFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint BorderBottomFieldInfo = (~) Int16 + type AttrBaseTypeConstraint BorderBottomFieldInfo = (~) Border + type AttrGetType BorderBottomFieldInfo = Int16 + type AttrLabel BorderBottomFieldInfo = "bottom" + attrGet _ = borderReadBottom + attrSet _ = borderWriteBottom + attrConstruct = undefined + attrClear _ = undefined + +borderBottom :: AttrLabelProxy "bottom" +borderBottom = AttrLabelProxy + + + +type instance AttributeList Border = BorderAttributeList +type BorderAttributeList = ('[ '("left", BorderLeftFieldInfo), '("right", BorderRightFieldInfo), '("top", BorderTopFieldInfo), '("bottom", BorderBottomFieldInfo)] :: [(Symbol, *)]) + -- method Border::new -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "Border" +-- returnType : Just (TInterface "Gtk" "Border") -- throws : False -- Skip return : False @@ -125,7 +224,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Border", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Border" +-- returnType : Just (TInterface "Gtk" "Border") -- throws : False -- Skip return : False @@ -154,7 +253,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Border", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Structs/Border.hs-boot b/GI/Gtk/Structs/Border.hs-boot --- a/GI/Gtk/Structs/Border.hs-boot +++ b/GI/Gtk/Structs/Border.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Structs.Border where -import Prelude () 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 diff --git a/GI/Gtk/Structs/CssSection.hs b/GI/Gtk/Structs/CssSection.hs --- a/GI/Gtk/Structs/CssSection.hs +++ b/GI/Gtk/Structs/CssSection.hs @@ -68,9 +68,9 @@ ) where -import Prelude () 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 @@ -89,11 +89,15 @@ noCssSection :: Maybe CssSection noCssSection = Nothing + +type instance AttributeList CssSection = CssSectionAttributeList +type CssSectionAttributeList = ('[ ] :: [(Symbol, *)]) + -- method CssSection::get_end_line -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt32 +-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -120,7 +124,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt32 +-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -147,7 +151,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gio" "File" +-- returnType : Just (TInterface "Gio" "File") -- throws : False -- Skip return : False @@ -176,7 +180,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "CssSection" +-- returnType : Just (TInterface "Gtk" "CssSection") -- throws : False -- Skip return : False @@ -188,24 +192,25 @@ cssSectionGetParent :: (MonadIO m) => CssSection -- _obj - -> m CssSection -- result + -> m (Maybe CssSection) -- result cssSectionGetParent _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_css_section_get_parent _obj' - checkUnexpectedReturnNULL "gtk_css_section_get_parent" result - result' <- (newBoxed CssSection) result + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (newBoxed CssSection) result' + return result'' touchManagedPtr _obj - return result' + return maybeResult data CssSectionGetParentMethodInfo -instance (signature ~ (m CssSection), MonadIO m) => MethodInfo CssSectionGetParentMethodInfo CssSection signature where +instance (signature ~ (m (Maybe CssSection)), MonadIO m) => MethodInfo CssSectionGetParentMethodInfo CssSection signature where overloadedMethod _ = cssSectionGetParent -- method CssSection::get_section_type -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "CssSectionType" +-- returnType : Just (TInterface "Gtk" "CssSectionType") -- throws : False -- Skip return : False @@ -233,7 +238,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt32 +-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -260,7 +265,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt32 +-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -287,7 +292,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "CssSection" +-- returnType : Just (TInterface "Gtk" "CssSection") -- throws : False -- Skip return : False @@ -316,7 +321,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Structs/CssSection.hs-boot b/GI/Gtk/Structs/CssSection.hs-boot --- a/GI/Gtk/Structs/CssSection.hs-boot +++ b/GI/Gtk/Structs/CssSection.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Structs.CssSection where -import Prelude () 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 diff --git a/GI/Gtk/Structs/FileFilterInfo.hs b/GI/Gtk/Structs/FileFilterInfo.hs --- a/GI/Gtk/Structs/FileFilterInfo.hs +++ b/GI/Gtk/Structs/FileFilterInfo.hs @@ -20,32 +20,46 @@ -- * Properties -- ** Contains + fileFilterInfoContains , fileFilterInfoReadContains , + fileFilterInfoWriteContains , -- ** DisplayName + fileFilterInfoClearDisplayName , + fileFilterInfoDisplayName , fileFilterInfoReadDisplayName , + fileFilterInfoWriteDisplayName , -- ** Filename + fileFilterInfoClearFilename , + fileFilterInfoFilename , fileFilterInfoReadFilename , + fileFilterInfoWriteFilename , -- ** MimeType + fileFilterInfoClearMimeType , + fileFilterInfoMimeType , fileFilterInfoReadMimeType , + fileFilterInfoWriteMimeType , -- ** Uri + fileFilterInfoClearUri , fileFilterInfoReadUri , + fileFilterInfoUri , + fileFilterInfoWriteUri , ) where -import Prelude () 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 @@ -58,38 +72,174 @@ newZeroFileFilterInfo :: MonadIO m => m FileFilterInfo newZeroFileFilterInfo = liftIO $ callocBytes 40 >>= wrapPtr FileFilterInfo +instance tag ~ 'AttrSet => Constructible FileFilterInfo tag where + new _ attrs = do + o <- newZeroFileFilterInfo + GI.Attributes.set o attrs + return o + + noFileFilterInfo :: Maybe FileFilterInfo noFileFilterInfo = Nothing -fileFilterInfoReadContains :: FileFilterInfo -> IO [FileFilterFlags] -fileFilterInfoReadContains s = withManagedPtr s $ \ptr -> do +fileFilterInfoReadContains :: MonadIO m => FileFilterInfo -> m [FileFilterFlags] +fileFilterInfoReadContains s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO CUInt let val' = wordToGFlags val return val' -fileFilterInfoReadFilename :: FileFilterInfo -> IO T.Text -fileFilterInfoReadFilename s = withManagedPtr s $ \ptr -> do +fileFilterInfoWriteContains :: MonadIO m => FileFilterInfo -> [FileFilterFlags] -> m () +fileFilterInfoWriteContains s val = liftIO $ withManagedPtr s $ \ptr -> do + let val' = gflagsToWord val + poke (ptr `plusPtr` 0) (val' :: CUInt) + +data FileFilterInfoContainsFieldInfo +instance AttrInfo FileFilterInfoContainsFieldInfo where + type AttrAllowedOps FileFilterInfoContainsFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint FileFilterInfoContainsFieldInfo = (~) [FileFilterFlags] + type AttrBaseTypeConstraint FileFilterInfoContainsFieldInfo = (~) FileFilterInfo + type AttrGetType FileFilterInfoContainsFieldInfo = [FileFilterFlags] + type AttrLabel FileFilterInfoContainsFieldInfo = "contains" + attrGet _ = fileFilterInfoReadContains + attrSet _ = fileFilterInfoWriteContains + attrConstruct = undefined + attrClear _ = undefined + +fileFilterInfoContains :: AttrLabelProxy "contains" +fileFilterInfoContains = AttrLabelProxy + + +fileFilterInfoReadFilename :: MonadIO m => FileFilterInfo -> m (Maybe T.Text) +fileFilterInfoReadFilename s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 8) :: IO CString - val' <- cstringToText val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- cstringToText val' + return val'' + return result -fileFilterInfoReadUri :: FileFilterInfo -> IO T.Text -fileFilterInfoReadUri s = withManagedPtr s $ \ptr -> do +fileFilterInfoWriteFilename :: MonadIO m => FileFilterInfo -> CString -> m () +fileFilterInfoWriteFilename s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 8) (val :: CString) + +fileFilterInfoClearFilename :: MonadIO m => FileFilterInfo -> m () +fileFilterInfoClearFilename s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 8) (nullPtr :: CString) + +data FileFilterInfoFilenameFieldInfo +instance AttrInfo FileFilterInfoFilenameFieldInfo where + type AttrAllowedOps FileFilterInfoFilenameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint FileFilterInfoFilenameFieldInfo = (~) CString + type AttrBaseTypeConstraint FileFilterInfoFilenameFieldInfo = (~) FileFilterInfo + type AttrGetType FileFilterInfoFilenameFieldInfo = Maybe T.Text + type AttrLabel FileFilterInfoFilenameFieldInfo = "filename" + attrGet _ = fileFilterInfoReadFilename + attrSet _ = fileFilterInfoWriteFilename + attrConstruct = undefined + attrClear _ = fileFilterInfoClearFilename + +fileFilterInfoFilename :: AttrLabelProxy "filename" +fileFilterInfoFilename = AttrLabelProxy + + +fileFilterInfoReadUri :: MonadIO m => FileFilterInfo -> m (Maybe T.Text) +fileFilterInfoReadUri s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 16) :: IO CString - val' <- cstringToText val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- cstringToText val' + return val'' + return result -fileFilterInfoReadDisplayName :: FileFilterInfo -> IO T.Text -fileFilterInfoReadDisplayName s = withManagedPtr s $ \ptr -> do +fileFilterInfoWriteUri :: MonadIO m => FileFilterInfo -> CString -> m () +fileFilterInfoWriteUri s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 16) (val :: CString) + +fileFilterInfoClearUri :: MonadIO m => FileFilterInfo -> m () +fileFilterInfoClearUri s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 16) (nullPtr :: CString) + +data FileFilterInfoUriFieldInfo +instance AttrInfo FileFilterInfoUriFieldInfo where + type AttrAllowedOps FileFilterInfoUriFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint FileFilterInfoUriFieldInfo = (~) CString + type AttrBaseTypeConstraint FileFilterInfoUriFieldInfo = (~) FileFilterInfo + type AttrGetType FileFilterInfoUriFieldInfo = Maybe T.Text + type AttrLabel FileFilterInfoUriFieldInfo = "uri" + attrGet _ = fileFilterInfoReadUri + attrSet _ = fileFilterInfoWriteUri + attrConstruct = undefined + attrClear _ = fileFilterInfoClearUri + +fileFilterInfoUri :: AttrLabelProxy "uri" +fileFilterInfoUri = AttrLabelProxy + + +fileFilterInfoReadDisplayName :: MonadIO m => FileFilterInfo -> m (Maybe T.Text) +fileFilterInfoReadDisplayName s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 24) :: IO CString - val' <- cstringToText val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- cstringToText val' + return val'' + return result -fileFilterInfoReadMimeType :: FileFilterInfo -> IO T.Text -fileFilterInfoReadMimeType s = withManagedPtr s $ \ptr -> do +fileFilterInfoWriteDisplayName :: MonadIO m => FileFilterInfo -> CString -> m () +fileFilterInfoWriteDisplayName s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 24) (val :: CString) + +fileFilterInfoClearDisplayName :: MonadIO m => FileFilterInfo -> m () +fileFilterInfoClearDisplayName s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 24) (nullPtr :: CString) + +data FileFilterInfoDisplayNameFieldInfo +instance AttrInfo FileFilterInfoDisplayNameFieldInfo where + type AttrAllowedOps FileFilterInfoDisplayNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint FileFilterInfoDisplayNameFieldInfo = (~) CString + type AttrBaseTypeConstraint FileFilterInfoDisplayNameFieldInfo = (~) FileFilterInfo + type AttrGetType FileFilterInfoDisplayNameFieldInfo = Maybe T.Text + type AttrLabel FileFilterInfoDisplayNameFieldInfo = "display_name" + attrGet _ = fileFilterInfoReadDisplayName + attrSet _ = fileFilterInfoWriteDisplayName + attrConstruct = undefined + attrClear _ = fileFilterInfoClearDisplayName + +fileFilterInfoDisplayName :: AttrLabelProxy "displayName" +fileFilterInfoDisplayName = AttrLabelProxy + + +fileFilterInfoReadMimeType :: MonadIO m => FileFilterInfo -> m (Maybe T.Text) +fileFilterInfoReadMimeType s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 32) :: IO CString - val' <- cstringToText val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- cstringToText val' + return val'' + return result + +fileFilterInfoWriteMimeType :: MonadIO m => FileFilterInfo -> CString -> m () +fileFilterInfoWriteMimeType s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 32) (val :: CString) + +fileFilterInfoClearMimeType :: MonadIO m => FileFilterInfo -> m () +fileFilterInfoClearMimeType s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 32) (nullPtr :: CString) + +data FileFilterInfoMimeTypeFieldInfo +instance AttrInfo FileFilterInfoMimeTypeFieldInfo where + type AttrAllowedOps FileFilterInfoMimeTypeFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint FileFilterInfoMimeTypeFieldInfo = (~) CString + type AttrBaseTypeConstraint FileFilterInfoMimeTypeFieldInfo = (~) FileFilterInfo + type AttrGetType FileFilterInfoMimeTypeFieldInfo = Maybe T.Text + type AttrLabel FileFilterInfoMimeTypeFieldInfo = "mime_type" + attrGet _ = fileFilterInfoReadMimeType + attrSet _ = fileFilterInfoWriteMimeType + attrConstruct = undefined + attrClear _ = fileFilterInfoClearMimeType + +fileFilterInfoMimeType :: AttrLabelProxy "mimeType" +fileFilterInfoMimeType = AttrLabelProxy + + + +type instance AttributeList FileFilterInfo = FileFilterInfoAttributeList +type FileFilterInfoAttributeList = ('[ '("contains", FileFilterInfoContainsFieldInfo), '("filename", FileFilterInfoFilenameFieldInfo), '("uri", FileFilterInfoUriFieldInfo), '("displayName", FileFilterInfoDisplayNameFieldInfo), '("mimeType", FileFilterInfoMimeTypeFieldInfo)] :: [(Symbol, *)]) type family ResolveFileFilterInfoMethod (t :: Symbol) (o :: *) :: * where ResolveFileFilterInfoMethod l o = MethodResolutionFailed l o diff --git a/GI/Gtk/Structs/FileFilterInfo.hs-boot b/GI/Gtk/Structs/FileFilterInfo.hs-boot --- a/GI/Gtk/Structs/FileFilterInfo.hs-boot +++ b/GI/Gtk/Structs/FileFilterInfo.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Structs.FileFilterInfo where -import Prelude () 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 diff --git a/GI/Gtk/Structs/FixedChild.hs b/GI/Gtk/Structs/FixedChild.hs --- a/GI/Gtk/Structs/FixedChild.hs +++ b/GI/Gtk/Structs/FixedChild.hs @@ -17,24 +17,31 @@ -- * Properties -- ** Widget + fixedChildClearWidget , fixedChildReadWidget , + fixedChildWidget , + fixedChildWriteWidget , -- ** X fixedChildReadX , + fixedChildWriteX , + fixedChildX , -- ** Y fixedChildReadY , + fixedChildWriteY , + fixedChildY , ) where -import Prelude () 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 @@ -47,24 +54,101 @@ newZeroFixedChild :: MonadIO m => m FixedChild newZeroFixedChild = liftIO $ callocBytes 16 >>= wrapPtr FixedChild +instance tag ~ 'AttrSet => Constructible FixedChild tag where + new _ attrs = do + o <- newZeroFixedChild + GI.Attributes.set o attrs + return o + + noFixedChild :: Maybe FixedChild noFixedChild = Nothing -fixedChildReadWidget :: FixedChild -> IO Widget -fixedChildReadWidget s = withManagedPtr s $ \ptr -> do +fixedChildReadWidget :: MonadIO m => FixedChild -> m (Maybe Widget) +fixedChildReadWidget s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO (Ptr Widget) - val' <- (newObject Widget) val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- (newObject Widget) val' + return val'' + return result -fixedChildReadX :: FixedChild -> IO Int32 -fixedChildReadX s = withManagedPtr s $ \ptr -> do +fixedChildWriteWidget :: MonadIO m => FixedChild -> Ptr Widget -> m () +fixedChildWriteWidget s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 0) (val :: Ptr Widget) + +fixedChildClearWidget :: MonadIO m => FixedChild -> m () +fixedChildClearWidget s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 0) (nullPtr :: Ptr Widget) + +data FixedChildWidgetFieldInfo +instance AttrInfo FixedChildWidgetFieldInfo where + type AttrAllowedOps FixedChildWidgetFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint FixedChildWidgetFieldInfo = (~) (Ptr Widget) + type AttrBaseTypeConstraint FixedChildWidgetFieldInfo = (~) FixedChild + type AttrGetType FixedChildWidgetFieldInfo = Maybe Widget + type AttrLabel FixedChildWidgetFieldInfo = "widget" + attrGet _ = fixedChildReadWidget + attrSet _ = fixedChildWriteWidget + attrConstruct = undefined + attrClear _ = fixedChildClearWidget + +fixedChildWidget :: AttrLabelProxy "widget" +fixedChildWidget = AttrLabelProxy + + +fixedChildReadX :: MonadIO m => FixedChild -> m Int32 +fixedChildReadX s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 8) :: IO Int32 return val -fixedChildReadY :: FixedChild -> IO Int32 -fixedChildReadY s = withManagedPtr s $ \ptr -> do +fixedChildWriteX :: MonadIO m => FixedChild -> Int32 -> m () +fixedChildWriteX s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 8) (val :: Int32) + +data FixedChildXFieldInfo +instance AttrInfo FixedChildXFieldInfo where + type AttrAllowedOps FixedChildXFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint FixedChildXFieldInfo = (~) Int32 + type AttrBaseTypeConstraint FixedChildXFieldInfo = (~) FixedChild + type AttrGetType FixedChildXFieldInfo = Int32 + type AttrLabel FixedChildXFieldInfo = "x" + attrGet _ = fixedChildReadX + attrSet _ = fixedChildWriteX + attrConstruct = undefined + attrClear _ = undefined + +fixedChildX :: AttrLabelProxy "x" +fixedChildX = AttrLabelProxy + + +fixedChildReadY :: MonadIO m => FixedChild -> m Int32 +fixedChildReadY s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 12) :: IO Int32 return val + +fixedChildWriteY :: MonadIO m => FixedChild -> Int32 -> m () +fixedChildWriteY s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 12) (val :: Int32) + +data FixedChildYFieldInfo +instance AttrInfo FixedChildYFieldInfo where + type AttrAllowedOps FixedChildYFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint FixedChildYFieldInfo = (~) Int32 + type AttrBaseTypeConstraint FixedChildYFieldInfo = (~) FixedChild + type AttrGetType FixedChildYFieldInfo = Int32 + type AttrLabel FixedChildYFieldInfo = "y" + attrGet _ = fixedChildReadY + attrSet _ = fixedChildWriteY + attrConstruct = undefined + attrClear _ = undefined + +fixedChildY :: AttrLabelProxy "y" +fixedChildY = AttrLabelProxy + + + +type instance AttributeList FixedChild = FixedChildAttributeList +type FixedChildAttributeList = ('[ '("widget", FixedChildWidgetFieldInfo), '("x", FixedChildXFieldInfo), '("y", FixedChildYFieldInfo)] :: [(Symbol, *)]) type family ResolveFixedChildMethod (t :: Symbol) (o :: *) :: * where ResolveFixedChildMethod l o = MethodResolutionFailed l o diff --git a/GI/Gtk/Structs/FixedChild.hs-boot b/GI/Gtk/Structs/FixedChild.hs-boot --- a/GI/Gtk/Structs/FixedChild.hs-boot +++ b/GI/Gtk/Structs/FixedChild.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Structs.FixedChild where -import Prelude () 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 diff --git a/GI/Gtk/Structs/Gradient.hs b/GI/Gtk/Structs/Gradient.hs --- a/GI/Gtk/Structs/Gradient.hs +++ b/GI/Gtk/Structs/Gradient.hs @@ -74,9 +74,9 @@ ) where -import Prelude () 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 @@ -95,11 +95,15 @@ noGradient :: Maybe Gradient noGradient = Nothing + +type instance AttributeList Gradient = GradientAttributeList +type GradientAttributeList = ('[ ] :: [(Symbol, *)]) + -- method Gradient::new_linear -- method type : Constructor -- Args : [Arg {argCName = "x0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Gradient" +-- returnType : Just (TInterface "Gtk" "Gradient") -- throws : False -- Skip return : False @@ -132,7 +136,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "x0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "radius0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "radius1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Gradient" +-- returnType : Just (TInterface "Gtk" "Gradient") -- throws : False -- Skip return : False @@ -171,7 +175,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gradient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -205,7 +209,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gradient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Gradient" +-- returnType : Just (TInterface "Gtk" "Gradient") -- throws : False -- Skip return : False @@ -234,7 +238,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gradient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "props", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resolved_gradient", argType = TInterface "cairo" "Pattern", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -271,7 +275,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gradient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "cairo" "Pattern" +-- returnType : Just (TInterface "cairo" "Pattern") -- throws : False -- Skip return : False @@ -304,7 +308,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gradient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -334,7 +338,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Gradient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Structs/Gradient.hs-boot b/GI/Gtk/Structs/Gradient.hs-boot --- a/GI/Gtk/Structs/Gradient.hs-boot +++ b/GI/Gtk/Structs/Gradient.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Structs.Gradient where -import Prelude () 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 diff --git a/GI/Gtk/Structs/IMContextInfo.hs b/GI/Gtk/Structs/IMContextInfo.hs --- a/GI/Gtk/Structs/IMContextInfo.hs +++ b/GI/Gtk/Structs/IMContextInfo.hs @@ -19,32 +19,47 @@ -- * Properties -- ** ContextId + iMContextInfoClearContextId , + iMContextInfoContextId , iMContextInfoReadContextId , + iMContextInfoWriteContextId , -- ** ContextName + iMContextInfoClearContextName , + iMContextInfoContextName , iMContextInfoReadContextName , + iMContextInfoWriteContextName , -- ** DefaultLocales + iMContextInfoClearDefaultLocales , + iMContextInfoDefaultLocales , iMContextInfoReadDefaultLocales , + iMContextInfoWriteDefaultLocales , -- ** Domain + iMContextInfoClearDomain , + iMContextInfoDomain , iMContextInfoReadDomain , + iMContextInfoWriteDomain , -- ** DomainDirname + iMContextInfoClearDomainDirname , + iMContextInfoDomainDirname , iMContextInfoReadDomainDirname , + iMContextInfoWriteDomainDirname , ) where -import Prelude () 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 @@ -57,38 +72,179 @@ newZeroIMContextInfo :: MonadIO m => m IMContextInfo newZeroIMContextInfo = liftIO $ callocBytes 40 >>= wrapPtr IMContextInfo +instance tag ~ 'AttrSet => Constructible IMContextInfo tag where + new _ attrs = do + o <- newZeroIMContextInfo + GI.Attributes.set o attrs + return o + + noIMContextInfo :: Maybe IMContextInfo noIMContextInfo = Nothing -iMContextInfoReadContextId :: IMContextInfo -> IO T.Text -iMContextInfoReadContextId s = withManagedPtr s $ \ptr -> do +iMContextInfoReadContextId :: MonadIO m => IMContextInfo -> m (Maybe T.Text) +iMContextInfoReadContextId s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO CString - val' <- cstringToText val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- cstringToText val' + return val'' + return result -iMContextInfoReadContextName :: IMContextInfo -> IO T.Text -iMContextInfoReadContextName s = withManagedPtr s $ \ptr -> do +iMContextInfoWriteContextId :: MonadIO m => IMContextInfo -> CString -> m () +iMContextInfoWriteContextId s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 0) (val :: CString) + +iMContextInfoClearContextId :: MonadIO m => IMContextInfo -> m () +iMContextInfoClearContextId s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 0) (nullPtr :: CString) + +data IMContextInfoContextIdFieldInfo +instance AttrInfo IMContextInfoContextIdFieldInfo where + type AttrAllowedOps IMContextInfoContextIdFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint IMContextInfoContextIdFieldInfo = (~) CString + type AttrBaseTypeConstraint IMContextInfoContextIdFieldInfo = (~) IMContextInfo + type AttrGetType IMContextInfoContextIdFieldInfo = Maybe T.Text + type AttrLabel IMContextInfoContextIdFieldInfo = "context_id" + attrGet _ = iMContextInfoReadContextId + attrSet _ = iMContextInfoWriteContextId + attrConstruct = undefined + attrClear _ = iMContextInfoClearContextId + +iMContextInfoContextId :: AttrLabelProxy "contextId" +iMContextInfoContextId = AttrLabelProxy + + +iMContextInfoReadContextName :: MonadIO m => IMContextInfo -> m (Maybe T.Text) +iMContextInfoReadContextName s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 8) :: IO CString - val' <- cstringToText val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- cstringToText val' + return val'' + return result -iMContextInfoReadDomain :: IMContextInfo -> IO T.Text -iMContextInfoReadDomain s = withManagedPtr s $ \ptr -> do +iMContextInfoWriteContextName :: MonadIO m => IMContextInfo -> CString -> m () +iMContextInfoWriteContextName s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 8) (val :: CString) + +iMContextInfoClearContextName :: MonadIO m => IMContextInfo -> m () +iMContextInfoClearContextName s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 8) (nullPtr :: CString) + +data IMContextInfoContextNameFieldInfo +instance AttrInfo IMContextInfoContextNameFieldInfo where + type AttrAllowedOps IMContextInfoContextNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint IMContextInfoContextNameFieldInfo = (~) CString + type AttrBaseTypeConstraint IMContextInfoContextNameFieldInfo = (~) IMContextInfo + type AttrGetType IMContextInfoContextNameFieldInfo = Maybe T.Text + type AttrLabel IMContextInfoContextNameFieldInfo = "context_name" + attrGet _ = iMContextInfoReadContextName + attrSet _ = iMContextInfoWriteContextName + attrConstruct = undefined + attrClear _ = iMContextInfoClearContextName + +iMContextInfoContextName :: AttrLabelProxy "contextName" +iMContextInfoContextName = AttrLabelProxy + + +iMContextInfoReadDomain :: MonadIO m => IMContextInfo -> m (Maybe T.Text) +iMContextInfoReadDomain s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 16) :: IO CString - val' <- cstringToText val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- cstringToText val' + return val'' + return result -iMContextInfoReadDomainDirname :: IMContextInfo -> IO T.Text -iMContextInfoReadDomainDirname s = withManagedPtr s $ \ptr -> do +iMContextInfoWriteDomain :: MonadIO m => IMContextInfo -> CString -> m () +iMContextInfoWriteDomain s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 16) (val :: CString) + +iMContextInfoClearDomain :: MonadIO m => IMContextInfo -> m () +iMContextInfoClearDomain s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 16) (nullPtr :: CString) + +data IMContextInfoDomainFieldInfo +instance AttrInfo IMContextInfoDomainFieldInfo where + type AttrAllowedOps IMContextInfoDomainFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint IMContextInfoDomainFieldInfo = (~) CString + type AttrBaseTypeConstraint IMContextInfoDomainFieldInfo = (~) IMContextInfo + type AttrGetType IMContextInfoDomainFieldInfo = Maybe T.Text + type AttrLabel IMContextInfoDomainFieldInfo = "domain" + attrGet _ = iMContextInfoReadDomain + attrSet _ = iMContextInfoWriteDomain + attrConstruct = undefined + attrClear _ = iMContextInfoClearDomain + +iMContextInfoDomain :: AttrLabelProxy "domain" +iMContextInfoDomain = AttrLabelProxy + + +iMContextInfoReadDomainDirname :: MonadIO m => IMContextInfo -> m (Maybe T.Text) +iMContextInfoReadDomainDirname s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 24) :: IO CString - val' <- cstringToText val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- cstringToText val' + return val'' + return result -iMContextInfoReadDefaultLocales :: IMContextInfo -> IO T.Text -iMContextInfoReadDefaultLocales s = withManagedPtr s $ \ptr -> do +iMContextInfoWriteDomainDirname :: MonadIO m => IMContextInfo -> CString -> m () +iMContextInfoWriteDomainDirname s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 24) (val :: CString) + +iMContextInfoClearDomainDirname :: MonadIO m => IMContextInfo -> m () +iMContextInfoClearDomainDirname s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 24) (nullPtr :: CString) + +data IMContextInfoDomainDirnameFieldInfo +instance AttrInfo IMContextInfoDomainDirnameFieldInfo where + type AttrAllowedOps IMContextInfoDomainDirnameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint IMContextInfoDomainDirnameFieldInfo = (~) CString + type AttrBaseTypeConstraint IMContextInfoDomainDirnameFieldInfo = (~) IMContextInfo + type AttrGetType IMContextInfoDomainDirnameFieldInfo = Maybe T.Text + type AttrLabel IMContextInfoDomainDirnameFieldInfo = "domain_dirname" + attrGet _ = iMContextInfoReadDomainDirname + attrSet _ = iMContextInfoWriteDomainDirname + attrConstruct = undefined + attrClear _ = iMContextInfoClearDomainDirname + +iMContextInfoDomainDirname :: AttrLabelProxy "domainDirname" +iMContextInfoDomainDirname = AttrLabelProxy + + +iMContextInfoReadDefaultLocales :: MonadIO m => IMContextInfo -> m (Maybe T.Text) +iMContextInfoReadDefaultLocales s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 32) :: IO CString - val' <- cstringToText val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- cstringToText val' + return val'' + return result + +iMContextInfoWriteDefaultLocales :: MonadIO m => IMContextInfo -> CString -> m () +iMContextInfoWriteDefaultLocales s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 32) (val :: CString) + +iMContextInfoClearDefaultLocales :: MonadIO m => IMContextInfo -> m () +iMContextInfoClearDefaultLocales s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 32) (nullPtr :: CString) + +data IMContextInfoDefaultLocalesFieldInfo +instance AttrInfo IMContextInfoDefaultLocalesFieldInfo where + type AttrAllowedOps IMContextInfoDefaultLocalesFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint IMContextInfoDefaultLocalesFieldInfo = (~) CString + type AttrBaseTypeConstraint IMContextInfoDefaultLocalesFieldInfo = (~) IMContextInfo + type AttrGetType IMContextInfoDefaultLocalesFieldInfo = Maybe T.Text + type AttrLabel IMContextInfoDefaultLocalesFieldInfo = "default_locales" + attrGet _ = iMContextInfoReadDefaultLocales + attrSet _ = iMContextInfoWriteDefaultLocales + attrConstruct = undefined + attrClear _ = iMContextInfoClearDefaultLocales + +iMContextInfoDefaultLocales :: AttrLabelProxy "defaultLocales" +iMContextInfoDefaultLocales = AttrLabelProxy + + + +type instance AttributeList IMContextInfo = IMContextInfoAttributeList +type IMContextInfoAttributeList = ('[ '("contextId", IMContextInfoContextIdFieldInfo), '("contextName", IMContextInfoContextNameFieldInfo), '("domain", IMContextInfoDomainFieldInfo), '("domainDirname", IMContextInfoDomainDirnameFieldInfo), '("defaultLocales", IMContextInfoDefaultLocalesFieldInfo)] :: [(Symbol, *)]) type family ResolveIMContextInfoMethod (t :: Symbol) (o :: *) :: * where ResolveIMContextInfoMethod l o = MethodResolutionFailed l o diff --git a/GI/Gtk/Structs/IMContextInfo.hs-boot b/GI/Gtk/Structs/IMContextInfo.hs-boot --- a/GI/Gtk/Structs/IMContextInfo.hs-boot +++ b/GI/Gtk/Structs/IMContextInfo.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Structs.IMContextInfo where -import Prelude () 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 diff --git a/GI/Gtk/Structs/IconSet.hs b/GI/Gtk/Structs/IconSet.hs --- a/GI/Gtk/Structs/IconSet.hs +++ b/GI/Gtk/Structs/IconSet.hs @@ -67,9 +67,9 @@ ) where -import Prelude () 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 @@ -90,11 +90,15 @@ noIconSet :: Maybe IconSet noIconSet = Nothing + +type instance AttributeList IconSet = IconSetAttributeList +type IconSetAttributeList = ('[ ] :: [(Symbol, *)]) + -- method IconSet::new -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "IconSet" +-- returnType : Just (TInterface "Gtk" "IconSet") -- throws : False -- Skip return : False @@ -115,7 +119,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "IconSet" +-- returnType : Just (TInterface "Gtk" "IconSet") -- throws : False -- Skip return : False @@ -140,7 +144,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -171,7 +175,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "IconSet" +-- returnType : Just (TInterface "Gtk" "IconSet") -- throws : False -- Skip return : False @@ -198,16 +202,16 @@ -- method IconSet::get_sizes -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sizes", argType = TCArray False (-1) 2 (TBasicType TInt32), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "n_sizes", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "n_sizes", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : TBasicType TVoid +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sizes", argType = TCArray False (-1) 2 (TBasicType TInt), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "n_sizes", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [Arg {argCName = "n_sizes", 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 "gtk_icon_set_get_sizes" gtk_icon_set_get_sizes :: Ptr IconSet -> -- _obj : TInterface "Gtk" "IconSet" - Ptr (Ptr Int32) -> -- sizes : TCArray False (-1) 2 (TBasicType TInt32) - Ptr Int32 -> -- n_sizes : TBasicType TInt32 + Ptr (Ptr Int32) -> -- sizes : TCArray False (-1) 2 (TBasicType TInt) + Ptr Int32 -> -- n_sizes : TBasicType TInt IO () {-# DEPRECATED iconSetGetSizes ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} @@ -237,7 +241,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "IconSet" +-- returnType : Just (TInterface "Gtk" "IconSet") -- throws : False -- Skip return : False @@ -264,9 +268,9 @@ -- method IconSet::render_icon -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "direction", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "direction", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : False -- Skip return : False @@ -275,7 +279,7 @@ Ptr Style -> -- style : TInterface "Gtk" "Style" CUInt -> -- direction : TInterface "Gtk" "TextDirection" CUInt -> -- state : TInterface "Gtk" "StateType" - Int32 -> -- size : TBasicType TInt32 + Int32 -> -- size : TBasicType TInt Ptr Widget -> -- widget : TInterface "Gtk" "Widget" CString -> -- detail : TBasicType TUTF8 IO (Ptr GdkPixbuf.Pixbuf) @@ -325,16 +329,16 @@ -- method IconSet::render_icon_pixbuf -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : False -- Skip return : False foreign import ccall "gtk_icon_set_render_icon_pixbuf" gtk_icon_set_render_icon_pixbuf :: Ptr IconSet -> -- _obj : TInterface "Gtk" "IconSet" Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext" - Int32 -> -- size : TBasicType TInt32 + Int32 -> -- size : TBasicType TInt IO (Ptr GdkPixbuf.Pixbuf) {-# DEPRECATED iconSetRenderIconPixbuf ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} @@ -360,17 +364,17 @@ -- method IconSet::render_icon_surface -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale", argType = TBasicType TInt32, 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}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", 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},Arg {argCName = "for_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "cairo" "Surface" +-- returnType : Just (TInterface "cairo" "Surface") -- throws : False -- Skip return : False foreign import ccall "gtk_icon_set_render_icon_surface" gtk_icon_set_render_icon_surface :: Ptr IconSet -> -- _obj : TInterface "Gtk" "IconSet" Ptr StyleContext -> -- context : TInterface "Gtk" "StyleContext" - Int32 -> -- size : TBasicType TInt32 - Int32 -> -- scale : TBasicType TInt32 + Int32 -> -- size : TBasicType TInt + Int32 -> -- scale : TBasicType TInt Ptr Gdk.Window -> -- for_window : TInterface "Gdk" "Window" IO (Ptr Cairo.Surface) @@ -407,7 +411,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Structs/IconSet.hs-boot b/GI/Gtk/Structs/IconSet.hs-boot --- a/GI/Gtk/Structs/IconSet.hs-boot +++ b/GI/Gtk/Structs/IconSet.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Structs.IconSet where -import Prelude () 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 diff --git a/GI/Gtk/Structs/IconSource.hs b/GI/Gtk/Structs/IconSource.hs --- a/GI/Gtk/Structs/IconSource.hs +++ b/GI/Gtk/Structs/IconSource.hs @@ -123,9 +123,9 @@ ) where -import Prelude () 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 @@ -144,11 +144,15 @@ noIconSource :: Maybe IconSource noIconSource = Nothing + +type instance AttributeList IconSource = IconSourceAttributeList +type IconSourceAttributeList = ('[ ] :: [(Symbol, *)]) + -- method IconSource::new -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "IconSource" +-- returnType : Just (TInterface "Gtk" "IconSource") -- throws : False -- Skip return : False @@ -169,7 +173,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "IconSource" +-- returnType : Just (TInterface "Gtk" "IconSource") -- throws : False -- Skip return : False @@ -198,7 +202,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -225,7 +229,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "TextDirection" +-- returnType : Just (TInterface "Gtk" "TextDirection") -- throws : False -- Skip return : False @@ -253,7 +257,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -281,7 +285,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TFileName +-- returnType : Just (TBasicType TFileName) -- throws : False -- Skip return : False @@ -310,7 +314,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -339,7 +343,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : False -- Skip return : False @@ -368,7 +372,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -395,7 +399,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -423,7 +427,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "StateType" +-- returnType : Just (TInterface "Gtk" "StateType") -- throws : False -- Skip return : False @@ -451,7 +455,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -479,7 +483,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "direction", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -509,7 +513,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSource", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -539,7 +543,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -570,7 +574,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSource", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -605,7 +609,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSource", 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}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -634,15 +638,15 @@ -- method IconSource::set_size -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_icon_source_set_size" gtk_icon_source_set_size :: Ptr IconSource -> -- _obj : TInterface "Gtk" "IconSource" - Int32 -> -- size : TBasicType TInt32 + Int32 -> -- size : TBasicType TInt IO () {-# DEPRECATED iconSourceSetSize ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} @@ -665,7 +669,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSource", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -695,7 +699,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -725,7 +729,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "IconSource", 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Structs/IconSource.hs-boot b/GI/Gtk/Structs/IconSource.hs-boot --- a/GI/Gtk/Structs/IconSource.hs-boot +++ b/GI/Gtk/Structs/IconSource.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Structs.IconSource where -import Prelude () 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 diff --git a/GI/Gtk/Structs/LabelSelectionInfo.hs b/GI/Gtk/Structs/LabelSelectionInfo.hs --- a/GI/Gtk/Structs/LabelSelectionInfo.hs +++ b/GI/Gtk/Structs/LabelSelectionInfo.hs @@ -16,9 +16,9 @@ ) where -import Prelude () 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 @@ -29,6 +29,10 @@ newtype LabelSelectionInfo = LabelSelectionInfo (ForeignPtr LabelSelectionInfo) noLabelSelectionInfo :: Maybe LabelSelectionInfo noLabelSelectionInfo = Nothing + + +type instance AttributeList LabelSelectionInfo = LabelSelectionInfoAttributeList +type LabelSelectionInfoAttributeList = ('[ ] :: [(Symbol, *)]) type family ResolveLabelSelectionInfoMethod (t :: Symbol) (o :: *) :: * where ResolveLabelSelectionInfoMethod l o = MethodResolutionFailed l o diff --git a/GI/Gtk/Structs/LabelSelectionInfo.hs-boot b/GI/Gtk/Structs/LabelSelectionInfo.hs-boot --- a/GI/Gtk/Structs/LabelSelectionInfo.hs-boot +++ b/GI/Gtk/Structs/LabelSelectionInfo.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Structs.LabelSelectionInfo where -import Prelude () 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 diff --git a/GI/Gtk/Structs/PageRange.hs b/GI/Gtk/Structs/PageRange.hs --- a/GI/Gtk/Structs/PageRange.hs +++ b/GI/Gtk/Structs/PageRange.hs @@ -19,20 +19,24 @@ -- * Properties -- ** End + pageRangeEnd , pageRangeReadEnd , + pageRangeWriteEnd , -- ** Start pageRangeReadStart , + pageRangeStart , + pageRangeWriteStart , ) where -import Prelude () 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 @@ -45,18 +49,69 @@ newZeroPageRange :: MonadIO m => m PageRange newZeroPageRange = liftIO $ callocBytes 8 >>= wrapPtr PageRange +instance tag ~ 'AttrSet => Constructible PageRange tag where + new _ attrs = do + o <- newZeroPageRange + GI.Attributes.set o attrs + return o + + noPageRange :: Maybe PageRange noPageRange = Nothing -pageRangeReadStart :: PageRange -> IO Int32 -pageRangeReadStart s = withManagedPtr s $ \ptr -> do +pageRangeReadStart :: MonadIO m => PageRange -> m Int32 +pageRangeReadStart s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO Int32 return val -pageRangeReadEnd :: PageRange -> IO Int32 -pageRangeReadEnd s = withManagedPtr s $ \ptr -> do +pageRangeWriteStart :: MonadIO m => PageRange -> Int32 -> m () +pageRangeWriteStart s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 0) (val :: Int32) + +data PageRangeStartFieldInfo +instance AttrInfo PageRangeStartFieldInfo where + type AttrAllowedOps PageRangeStartFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint PageRangeStartFieldInfo = (~) Int32 + type AttrBaseTypeConstraint PageRangeStartFieldInfo = (~) PageRange + type AttrGetType PageRangeStartFieldInfo = Int32 + type AttrLabel PageRangeStartFieldInfo = "start" + attrGet _ = pageRangeReadStart + attrSet _ = pageRangeWriteStart + attrConstruct = undefined + attrClear _ = undefined + +pageRangeStart :: AttrLabelProxy "start" +pageRangeStart = AttrLabelProxy + + +pageRangeReadEnd :: MonadIO m => PageRange -> m Int32 +pageRangeReadEnd s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 4) :: IO Int32 return val + +pageRangeWriteEnd :: MonadIO m => PageRange -> Int32 -> m () +pageRangeWriteEnd s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 4) (val :: Int32) + +data PageRangeEndFieldInfo +instance AttrInfo PageRangeEndFieldInfo where + type AttrAllowedOps PageRangeEndFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint PageRangeEndFieldInfo = (~) Int32 + type AttrBaseTypeConstraint PageRangeEndFieldInfo = (~) PageRange + type AttrGetType PageRangeEndFieldInfo = Int32 + type AttrLabel PageRangeEndFieldInfo = "end" + attrGet _ = pageRangeReadEnd + attrSet _ = pageRangeWriteEnd + attrConstruct = undefined + attrClear _ = undefined + +pageRangeEnd :: AttrLabelProxy "end" +pageRangeEnd = AttrLabelProxy + + + +type instance AttributeList PageRange = PageRangeAttributeList +type PageRangeAttributeList = ('[ '("start", PageRangeStartFieldInfo), '("end", PageRangeEndFieldInfo)] :: [(Symbol, *)]) type family ResolvePageRangeMethod (t :: Symbol) (o :: *) :: * where ResolvePageRangeMethod l o = MethodResolutionFailed l o diff --git a/GI/Gtk/Structs/PageRange.hs-boot b/GI/Gtk/Structs/PageRange.hs-boot --- a/GI/Gtk/Structs/PageRange.hs-boot +++ b/GI/Gtk/Structs/PageRange.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Structs.PageRange where -import Prelude () 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 diff --git a/GI/Gtk/Structs/PaperSize.hs b/GI/Gtk/Structs/PaperSize.hs --- a/GI/Gtk/Structs/PaperSize.hs +++ b/GI/Gtk/Structs/PaperSize.hs @@ -139,9 +139,9 @@ ) where -import Prelude () 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 @@ -160,11 +160,15 @@ noPaperSize :: Maybe PaperSize noPaperSize = Nothing + +type instance AttributeList PaperSize = PaperSizeAttributeList +type PaperSizeAttributeList = ('[ ] :: [(Symbol, *)]) + -- method PaperSize::new -- method type : Constructor -- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "PaperSize" +-- returnType : Just (TInterface "Gtk" "PaperSize") -- throws : False -- Skip return : False @@ -193,7 +197,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "display_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "PaperSize" +-- returnType : Just (TInterface "Gtk" "PaperSize") -- throws : False -- Skip return : False @@ -231,7 +235,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "ipp_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "PaperSize" +-- returnType : Just (TInterface "Gtk" "PaperSize") -- throws : False -- Skip return : False @@ -262,7 +266,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "PaperSize" +-- returnType : Just (TInterface "Gtk" "PaperSize") -- throws : True -- Skip return : False @@ -296,7 +300,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "ppd_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ppd_display_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "PaperSize" +-- returnType : Just (TInterface "Gtk" "PaperSize") -- throws : False -- Skip return : False @@ -331,7 +335,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "PaperSize" +-- returnType : Just (TInterface "Gtk" "PaperSize") -- throws : False -- Skip return : False @@ -360,7 +364,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -387,7 +391,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -418,7 +422,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -449,7 +453,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -480,7 +484,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -511,7 +515,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -540,7 +544,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -571,7 +575,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -600,7 +604,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -629,7 +633,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TDouble +-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False @@ -660,7 +664,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -688,7 +692,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size2", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -720,7 +724,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -748,7 +752,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -784,7 +788,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -819,7 +823,7 @@ -- method type : MemberFunction -- Args : [] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -840,7 +844,7 @@ -- method type : MemberFunction -- Args : [Arg {argCName = "include_custom", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TGList (TInterface "Gtk" "PaperSize") +-- returnType : Just (TGList (TInterface "Gtk" "PaperSize")) -- throws : False -- Skip return : False @@ -856,7 +860,6 @@ paperSizeGetPaperSizes includeCustom = liftIO $ do let includeCustom' = (fromIntegral . fromEnum) includeCustom result <- gtk_paper_size_get_paper_sizes includeCustom' - checkUnexpectedReturnNULL "gtk_paper_size_get_paper_sizes" result result' <- unpackGList result result'' <- mapM (wrapBoxed PaperSize) result' g_list_free result diff --git a/GI/Gtk/Structs/PaperSize.hs-boot b/GI/Gtk/Structs/PaperSize.hs-boot --- a/GI/Gtk/Structs/PaperSize.hs-boot +++ b/GI/Gtk/Structs/PaperSize.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Structs.PaperSize where -import Prelude () 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 diff --git a/GI/Gtk/Structs/RadioActionEntry.hs b/GI/Gtk/Structs/RadioActionEntry.hs --- a/GI/Gtk/Structs/RadioActionEntry.hs +++ b/GI/Gtk/Structs/RadioActionEntry.hs @@ -20,36 +20,53 @@ -- * Properties -- ** Accelerator + radioActionEntryAccelerator , + radioActionEntryClearAccelerator , radioActionEntryReadAccelerator , + radioActionEntryWriteAccelerator , -- ** Label + radioActionEntryClearLabel , + radioActionEntryLabel , radioActionEntryReadLabel , + radioActionEntryWriteLabel , -- ** Name + radioActionEntryClearName , + radioActionEntryName , radioActionEntryReadName , + radioActionEntryWriteName , -- ** StockId + radioActionEntryClearStockId , radioActionEntryReadStockId , + radioActionEntryStockId , + radioActionEntryWriteStockId , -- ** Tooltip + radioActionEntryClearTooltip , radioActionEntryReadTooltip , + radioActionEntryTooltip , + radioActionEntryWriteTooltip , -- ** Value radioActionEntryReadValue , + radioActionEntryValue , + radioActionEntryWriteValue , ) where -import Prelude () 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 @@ -62,43 +79,204 @@ newZeroRadioActionEntry :: MonadIO m => m RadioActionEntry newZeroRadioActionEntry = liftIO $ callocBytes 48 >>= wrapPtr RadioActionEntry +instance tag ~ 'AttrSet => Constructible RadioActionEntry tag where + new _ attrs = do + o <- newZeroRadioActionEntry + GI.Attributes.set o attrs + return o + + noRadioActionEntry :: Maybe RadioActionEntry noRadioActionEntry = Nothing -radioActionEntryReadName :: RadioActionEntry -> IO T.Text -radioActionEntryReadName s = withManagedPtr s $ \ptr -> do +radioActionEntryReadName :: MonadIO m => RadioActionEntry -> m (Maybe T.Text) +radioActionEntryReadName s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO CString - val' <- cstringToText val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- cstringToText val' + return val'' + return result -radioActionEntryReadStockId :: RadioActionEntry -> IO T.Text -radioActionEntryReadStockId s = withManagedPtr s $ \ptr -> do +radioActionEntryWriteName :: MonadIO m => RadioActionEntry -> CString -> m () +radioActionEntryWriteName s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 0) (val :: CString) + +radioActionEntryClearName :: MonadIO m => RadioActionEntry -> m () +radioActionEntryClearName s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 0) (nullPtr :: CString) + +data RadioActionEntryNameFieldInfo +instance AttrInfo RadioActionEntryNameFieldInfo where + type AttrAllowedOps RadioActionEntryNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint RadioActionEntryNameFieldInfo = (~) CString + type AttrBaseTypeConstraint RadioActionEntryNameFieldInfo = (~) RadioActionEntry + type AttrGetType RadioActionEntryNameFieldInfo = Maybe T.Text + type AttrLabel RadioActionEntryNameFieldInfo = "name" + attrGet _ = radioActionEntryReadName + attrSet _ = radioActionEntryWriteName + attrConstruct = undefined + attrClear _ = radioActionEntryClearName + +radioActionEntryName :: AttrLabelProxy "name" +radioActionEntryName = AttrLabelProxy + + +radioActionEntryReadStockId :: MonadIO m => RadioActionEntry -> m (Maybe T.Text) +radioActionEntryReadStockId s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 8) :: IO CString - val' <- cstringToText val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- cstringToText val' + return val'' + return result -radioActionEntryReadLabel :: RadioActionEntry -> IO T.Text -radioActionEntryReadLabel s = withManagedPtr s $ \ptr -> do +radioActionEntryWriteStockId :: MonadIO m => RadioActionEntry -> CString -> m () +radioActionEntryWriteStockId s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 8) (val :: CString) + +radioActionEntryClearStockId :: MonadIO m => RadioActionEntry -> m () +radioActionEntryClearStockId s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 8) (nullPtr :: CString) + +data RadioActionEntryStockIdFieldInfo +instance AttrInfo RadioActionEntryStockIdFieldInfo where + type AttrAllowedOps RadioActionEntryStockIdFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint RadioActionEntryStockIdFieldInfo = (~) CString + type AttrBaseTypeConstraint RadioActionEntryStockIdFieldInfo = (~) RadioActionEntry + type AttrGetType RadioActionEntryStockIdFieldInfo = Maybe T.Text + type AttrLabel RadioActionEntryStockIdFieldInfo = "stock_id" + attrGet _ = radioActionEntryReadStockId + attrSet _ = radioActionEntryWriteStockId + attrConstruct = undefined + attrClear _ = radioActionEntryClearStockId + +radioActionEntryStockId :: AttrLabelProxy "stockId" +radioActionEntryStockId = AttrLabelProxy + + +radioActionEntryReadLabel :: MonadIO m => RadioActionEntry -> m (Maybe T.Text) +radioActionEntryReadLabel s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 16) :: IO CString - val' <- cstringToText val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- cstringToText val' + return val'' + return result -radioActionEntryReadAccelerator :: RadioActionEntry -> IO T.Text -radioActionEntryReadAccelerator s = withManagedPtr s $ \ptr -> do +radioActionEntryWriteLabel :: MonadIO m => RadioActionEntry -> CString -> m () +radioActionEntryWriteLabel s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 16) (val :: CString) + +radioActionEntryClearLabel :: MonadIO m => RadioActionEntry -> m () +radioActionEntryClearLabel s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 16) (nullPtr :: CString) + +data RadioActionEntryLabelFieldInfo +instance AttrInfo RadioActionEntryLabelFieldInfo where + type AttrAllowedOps RadioActionEntryLabelFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint RadioActionEntryLabelFieldInfo = (~) CString + type AttrBaseTypeConstraint RadioActionEntryLabelFieldInfo = (~) RadioActionEntry + type AttrGetType RadioActionEntryLabelFieldInfo = Maybe T.Text + type AttrLabel RadioActionEntryLabelFieldInfo = "label" + attrGet _ = radioActionEntryReadLabel + attrSet _ = radioActionEntryWriteLabel + attrConstruct = undefined + attrClear _ = radioActionEntryClearLabel + +radioActionEntryLabel :: AttrLabelProxy "label" +radioActionEntryLabel = AttrLabelProxy + + +radioActionEntryReadAccelerator :: MonadIO m => RadioActionEntry -> m (Maybe T.Text) +radioActionEntryReadAccelerator s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 24) :: IO CString - val' <- cstringToText val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- cstringToText val' + return val'' + return result -radioActionEntryReadTooltip :: RadioActionEntry -> IO T.Text -radioActionEntryReadTooltip s = withManagedPtr s $ \ptr -> do +radioActionEntryWriteAccelerator :: MonadIO m => RadioActionEntry -> CString -> m () +radioActionEntryWriteAccelerator s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 24) (val :: CString) + +radioActionEntryClearAccelerator :: MonadIO m => RadioActionEntry -> m () +radioActionEntryClearAccelerator s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 24) (nullPtr :: CString) + +data RadioActionEntryAcceleratorFieldInfo +instance AttrInfo RadioActionEntryAcceleratorFieldInfo where + type AttrAllowedOps RadioActionEntryAcceleratorFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint RadioActionEntryAcceleratorFieldInfo = (~) CString + type AttrBaseTypeConstraint RadioActionEntryAcceleratorFieldInfo = (~) RadioActionEntry + type AttrGetType RadioActionEntryAcceleratorFieldInfo = Maybe T.Text + type AttrLabel RadioActionEntryAcceleratorFieldInfo = "accelerator" + attrGet _ = radioActionEntryReadAccelerator + attrSet _ = radioActionEntryWriteAccelerator + attrConstruct = undefined + attrClear _ = radioActionEntryClearAccelerator + +radioActionEntryAccelerator :: AttrLabelProxy "accelerator" +radioActionEntryAccelerator = AttrLabelProxy + + +radioActionEntryReadTooltip :: MonadIO m => RadioActionEntry -> m (Maybe T.Text) +radioActionEntryReadTooltip s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 32) :: IO CString - val' <- cstringToText val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- cstringToText val' + return val'' + return result -radioActionEntryReadValue :: RadioActionEntry -> IO Int32 -radioActionEntryReadValue s = withManagedPtr s $ \ptr -> do +radioActionEntryWriteTooltip :: MonadIO m => RadioActionEntry -> CString -> m () +radioActionEntryWriteTooltip s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 32) (val :: CString) + +radioActionEntryClearTooltip :: MonadIO m => RadioActionEntry -> m () +radioActionEntryClearTooltip s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 32) (nullPtr :: CString) + +data RadioActionEntryTooltipFieldInfo +instance AttrInfo RadioActionEntryTooltipFieldInfo where + type AttrAllowedOps RadioActionEntryTooltipFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint RadioActionEntryTooltipFieldInfo = (~) CString + type AttrBaseTypeConstraint RadioActionEntryTooltipFieldInfo = (~) RadioActionEntry + type AttrGetType RadioActionEntryTooltipFieldInfo = Maybe T.Text + type AttrLabel RadioActionEntryTooltipFieldInfo = "tooltip" + attrGet _ = radioActionEntryReadTooltip + attrSet _ = radioActionEntryWriteTooltip + attrConstruct = undefined + attrClear _ = radioActionEntryClearTooltip + +radioActionEntryTooltip :: AttrLabelProxy "tooltip" +radioActionEntryTooltip = AttrLabelProxy + + +radioActionEntryReadValue :: MonadIO m => RadioActionEntry -> m Int32 +radioActionEntryReadValue s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 40) :: IO Int32 return val + +radioActionEntryWriteValue :: MonadIO m => RadioActionEntry -> Int32 -> m () +radioActionEntryWriteValue s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 40) (val :: Int32) + +data RadioActionEntryValueFieldInfo +instance AttrInfo RadioActionEntryValueFieldInfo where + type AttrAllowedOps RadioActionEntryValueFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint RadioActionEntryValueFieldInfo = (~) Int32 + type AttrBaseTypeConstraint RadioActionEntryValueFieldInfo = (~) RadioActionEntry + type AttrGetType RadioActionEntryValueFieldInfo = Int32 + type AttrLabel RadioActionEntryValueFieldInfo = "value" + attrGet _ = radioActionEntryReadValue + attrSet _ = radioActionEntryWriteValue + attrConstruct = undefined + attrClear _ = undefined + +radioActionEntryValue :: AttrLabelProxy "value" +radioActionEntryValue = AttrLabelProxy + + + +type instance AttributeList RadioActionEntry = RadioActionEntryAttributeList +type RadioActionEntryAttributeList = ('[ '("name", RadioActionEntryNameFieldInfo), '("stockId", RadioActionEntryStockIdFieldInfo), '("label", RadioActionEntryLabelFieldInfo), '("accelerator", RadioActionEntryAcceleratorFieldInfo), '("tooltip", RadioActionEntryTooltipFieldInfo), '("value", RadioActionEntryValueFieldInfo)] :: [(Symbol, *)]) type family ResolveRadioActionEntryMethod (t :: Symbol) (o :: *) :: * where ResolveRadioActionEntryMethod l o = MethodResolutionFailed l o diff --git a/GI/Gtk/Structs/RadioActionEntry.hs-boot b/GI/Gtk/Structs/RadioActionEntry.hs-boot --- a/GI/Gtk/Structs/RadioActionEntry.hs-boot +++ b/GI/Gtk/Structs/RadioActionEntry.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Structs.RadioActionEntry where -import Prelude () 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 diff --git a/GI/Gtk/Structs/RcContext.hs b/GI/Gtk/Structs/RcContext.hs --- a/GI/Gtk/Structs/RcContext.hs +++ b/GI/Gtk/Structs/RcContext.hs @@ -16,9 +16,9 @@ ) where -import Prelude () 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 @@ -29,6 +29,10 @@ newtype RcContext = RcContext (ForeignPtr RcContext) noRcContext :: Maybe RcContext noRcContext = Nothing + + +type instance AttributeList RcContext = RcContextAttributeList +type RcContextAttributeList = ('[ ] :: [(Symbol, *)]) type family ResolveRcContextMethod (t :: Symbol) (o :: *) :: * where ResolveRcContextMethod l o = MethodResolutionFailed l o diff --git a/GI/Gtk/Structs/RcContext.hs-boot b/GI/Gtk/Structs/RcContext.hs-boot --- a/GI/Gtk/Structs/RcContext.hs-boot +++ b/GI/Gtk/Structs/RcContext.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Structs.RcContext where -import Prelude () 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 diff --git a/GI/Gtk/Structs/RcProperty.hs b/GI/Gtk/Structs/RcProperty.hs --- a/GI/Gtk/Structs/RcProperty.hs +++ b/GI/Gtk/Structs/RcProperty.hs @@ -42,28 +42,38 @@ -- * Properties -- ** Origin + rcPropertyClearOrigin , + rcPropertyOrigin , rcPropertyReadOrigin , + rcPropertyWriteOrigin , -- ** PropertyName + rcPropertyPropertyName , rcPropertyReadPropertyName , + rcPropertyWritePropertyName , -- ** TypeName rcPropertyReadTypeName , + rcPropertyTypeName , + rcPropertyWriteTypeName , -- ** Value + rcPropertyClearValue , rcPropertyReadValue , + rcPropertyValue , + rcPropertyWriteValue , ) where -import Prelude () 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 @@ -77,36 +87,139 @@ newZeroRcProperty :: MonadIO m => m RcProperty newZeroRcProperty = liftIO $ callocBytes 40 >>= wrapPtr RcProperty +instance tag ~ 'AttrSet => Constructible RcProperty tag where + new _ attrs = do + o <- newZeroRcProperty + GI.Attributes.set o attrs + return o + + noRcProperty :: Maybe RcProperty noRcProperty = Nothing -rcPropertyReadTypeName :: RcProperty -> IO Word32 -rcPropertyReadTypeName s = withManagedPtr s $ \ptr -> do +rcPropertyReadTypeName :: MonadIO m => RcProperty -> m Word32 +rcPropertyReadTypeName s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO Word32 return val -rcPropertyReadPropertyName :: RcProperty -> IO Word32 -rcPropertyReadPropertyName s = withManagedPtr s $ \ptr -> do +rcPropertyWriteTypeName :: MonadIO m => RcProperty -> Word32 -> m () +rcPropertyWriteTypeName s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 0) (val :: Word32) + +data RcPropertyTypeNameFieldInfo +instance AttrInfo RcPropertyTypeNameFieldInfo where + type AttrAllowedOps RcPropertyTypeNameFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint RcPropertyTypeNameFieldInfo = (~) Word32 + type AttrBaseTypeConstraint RcPropertyTypeNameFieldInfo = (~) RcProperty + type AttrGetType RcPropertyTypeNameFieldInfo = Word32 + type AttrLabel RcPropertyTypeNameFieldInfo = "type_name" + attrGet _ = rcPropertyReadTypeName + attrSet _ = rcPropertyWriteTypeName + attrConstruct = undefined + attrClear _ = undefined + +rcPropertyTypeName :: AttrLabelProxy "typeName" +rcPropertyTypeName = AttrLabelProxy + + +rcPropertyReadPropertyName :: MonadIO m => RcProperty -> m Word32 +rcPropertyReadPropertyName s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 4) :: IO Word32 return val -rcPropertyReadOrigin :: RcProperty -> IO T.Text -rcPropertyReadOrigin s = withManagedPtr s $ \ptr -> do +rcPropertyWritePropertyName :: MonadIO m => RcProperty -> Word32 -> m () +rcPropertyWritePropertyName s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 4) (val :: Word32) + +data RcPropertyPropertyNameFieldInfo +instance AttrInfo RcPropertyPropertyNameFieldInfo where + type AttrAllowedOps RcPropertyPropertyNameFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint RcPropertyPropertyNameFieldInfo = (~) Word32 + type AttrBaseTypeConstraint RcPropertyPropertyNameFieldInfo = (~) RcProperty + type AttrGetType RcPropertyPropertyNameFieldInfo = Word32 + type AttrLabel RcPropertyPropertyNameFieldInfo = "property_name" + attrGet _ = rcPropertyReadPropertyName + attrSet _ = rcPropertyWritePropertyName + attrConstruct = undefined + attrClear _ = undefined + +rcPropertyPropertyName :: AttrLabelProxy "propertyName" +rcPropertyPropertyName = AttrLabelProxy + + +rcPropertyReadOrigin :: MonadIO m => RcProperty -> m (Maybe T.Text) +rcPropertyReadOrigin s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 8) :: IO CString - val' <- cstringToText val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- cstringToText val' + return val'' + return result -rcPropertyReadValue :: RcProperty -> IO GValue -rcPropertyReadValue s = withManagedPtr s $ \ptr -> do +rcPropertyWriteOrigin :: MonadIO m => RcProperty -> CString -> m () +rcPropertyWriteOrigin s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 8) (val :: CString) + +rcPropertyClearOrigin :: MonadIO m => RcProperty -> m () +rcPropertyClearOrigin s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 8) (nullPtr :: CString) + +data RcPropertyOriginFieldInfo +instance AttrInfo RcPropertyOriginFieldInfo where + type AttrAllowedOps RcPropertyOriginFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint RcPropertyOriginFieldInfo = (~) CString + type AttrBaseTypeConstraint RcPropertyOriginFieldInfo = (~) RcProperty + type AttrGetType RcPropertyOriginFieldInfo = Maybe T.Text + type AttrLabel RcPropertyOriginFieldInfo = "origin" + attrGet _ = rcPropertyReadOrigin + attrSet _ = rcPropertyWriteOrigin + attrConstruct = undefined + attrClear _ = rcPropertyClearOrigin + +rcPropertyOrigin :: AttrLabelProxy "origin" +rcPropertyOrigin = AttrLabelProxy + + +rcPropertyReadValue :: MonadIO m => RcProperty -> m (Maybe GValue) +rcPropertyReadValue s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 16) :: IO (Ptr GValue) - val' <- (newBoxed GValue) val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- (newBoxed GValue) val' + return val'' + return result +rcPropertyWriteValue :: MonadIO m => RcProperty -> Ptr GValue -> m () +rcPropertyWriteValue s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 16) (val :: Ptr GValue) + +rcPropertyClearValue :: MonadIO m => RcProperty -> m () +rcPropertyClearValue s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 16) (nullPtr :: Ptr GValue) + +data RcPropertyValueFieldInfo +instance AttrInfo RcPropertyValueFieldInfo where + type AttrAllowedOps RcPropertyValueFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint RcPropertyValueFieldInfo = (~) (Ptr GValue) + type AttrBaseTypeConstraint RcPropertyValueFieldInfo = (~) RcProperty + type AttrGetType RcPropertyValueFieldInfo = Maybe GValue + type AttrLabel RcPropertyValueFieldInfo = "value" + attrGet _ = rcPropertyReadValue + attrSet _ = rcPropertyWriteValue + attrConstruct = undefined + attrClear _ = rcPropertyClearValue + +rcPropertyValue :: AttrLabelProxy "value" +rcPropertyValue = AttrLabelProxy + + + +type instance AttributeList RcProperty = RcPropertyAttributeList +type RcPropertyAttributeList = ('[ '("typeName", RcPropertyTypeNameFieldInfo), '("propertyName", RcPropertyPropertyNameFieldInfo), '("origin", RcPropertyOriginFieldInfo), '("value", RcPropertyValueFieldInfo)] :: [(Symbol, *)]) + -- method RcProperty::parse_border -- method type : MemberFunction -- Args : [Arg {argCName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gstring", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -137,7 +250,7 @@ -- method type : MemberFunction -- Args : [Arg {argCName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gstring", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -168,7 +281,7 @@ -- method type : MemberFunction -- Args : [Arg {argCName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gstring", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -199,7 +312,7 @@ -- method type : MemberFunction -- Args : [Arg {argCName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gstring", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -230,7 +343,7 @@ -- method type : MemberFunction -- Args : [Arg {argCName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gstring", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False diff --git a/GI/Gtk/Structs/RcProperty.hs-boot b/GI/Gtk/Structs/RcProperty.hs-boot --- a/GI/Gtk/Structs/RcProperty.hs-boot +++ b/GI/Gtk/Structs/RcProperty.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Structs.RcProperty where -import Prelude () 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 diff --git a/GI/Gtk/Structs/RecentData.hs b/GI/Gtk/Structs/RecentData.hs --- a/GI/Gtk/Structs/RecentData.hs +++ b/GI/Gtk/Structs/RecentData.hs @@ -20,40 +20,60 @@ -- * Properties -- ** AppExec + recentDataAppExec , + recentDataClearAppExec , recentDataReadAppExec , + recentDataWriteAppExec , -- ** AppName + recentDataAppName , + recentDataClearAppName , recentDataReadAppName , + recentDataWriteAppName , -- ** Description + recentDataClearDescription , + recentDataDescription , recentDataReadDescription , + recentDataWriteDescription , -- ** DisplayName + recentDataClearDisplayName , + recentDataDisplayName , recentDataReadDisplayName , + recentDataWriteDisplayName , -- ** Groups + recentDataClearGroups , + recentDataGroups , recentDataReadGroups , + recentDataWriteGroups , -- ** IsPrivate + recentDataIsPrivate , recentDataReadIsPrivate , + recentDataWriteIsPrivate , -- ** MimeType + recentDataClearMimeType , + recentDataMimeType , recentDataReadMimeType , + recentDataWriteMimeType , ) where -import Prelude () 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 @@ -66,50 +86,238 @@ newZeroRecentData :: MonadIO m => m RecentData newZeroRecentData = liftIO $ callocBytes 56 >>= wrapPtr RecentData +instance tag ~ 'AttrSet => Constructible RecentData tag where + new _ attrs = do + o <- newZeroRecentData + GI.Attributes.set o attrs + return o + + noRecentData :: Maybe RecentData noRecentData = Nothing -recentDataReadDisplayName :: RecentData -> IO T.Text -recentDataReadDisplayName s = withManagedPtr s $ \ptr -> do +recentDataReadDisplayName :: MonadIO m => RecentData -> m (Maybe T.Text) +recentDataReadDisplayName s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO CString - val' <- cstringToText val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- cstringToText val' + return val'' + return result -recentDataReadDescription :: RecentData -> IO T.Text -recentDataReadDescription s = withManagedPtr s $ \ptr -> do +recentDataWriteDisplayName :: MonadIO m => RecentData -> CString -> m () +recentDataWriteDisplayName s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 0) (val :: CString) + +recentDataClearDisplayName :: MonadIO m => RecentData -> m () +recentDataClearDisplayName s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 0) (nullPtr :: CString) + +data RecentDataDisplayNameFieldInfo +instance AttrInfo RecentDataDisplayNameFieldInfo where + type AttrAllowedOps RecentDataDisplayNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint RecentDataDisplayNameFieldInfo = (~) CString + type AttrBaseTypeConstraint RecentDataDisplayNameFieldInfo = (~) RecentData + type AttrGetType RecentDataDisplayNameFieldInfo = Maybe T.Text + type AttrLabel RecentDataDisplayNameFieldInfo = "display_name" + attrGet _ = recentDataReadDisplayName + attrSet _ = recentDataWriteDisplayName + attrConstruct = undefined + attrClear _ = recentDataClearDisplayName + +recentDataDisplayName :: AttrLabelProxy "displayName" +recentDataDisplayName = AttrLabelProxy + + +recentDataReadDescription :: MonadIO m => RecentData -> m (Maybe T.Text) +recentDataReadDescription s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 8) :: IO CString - val' <- cstringToText val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- cstringToText val' + return val'' + return result -recentDataReadMimeType :: RecentData -> IO T.Text -recentDataReadMimeType s = withManagedPtr s $ \ptr -> do +recentDataWriteDescription :: MonadIO m => RecentData -> CString -> m () +recentDataWriteDescription s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 8) (val :: CString) + +recentDataClearDescription :: MonadIO m => RecentData -> m () +recentDataClearDescription s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 8) (nullPtr :: CString) + +data RecentDataDescriptionFieldInfo +instance AttrInfo RecentDataDescriptionFieldInfo where + type AttrAllowedOps RecentDataDescriptionFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint RecentDataDescriptionFieldInfo = (~) CString + type AttrBaseTypeConstraint RecentDataDescriptionFieldInfo = (~) RecentData + type AttrGetType RecentDataDescriptionFieldInfo = Maybe T.Text + type AttrLabel RecentDataDescriptionFieldInfo = "description" + attrGet _ = recentDataReadDescription + attrSet _ = recentDataWriteDescription + attrConstruct = undefined + attrClear _ = recentDataClearDescription + +recentDataDescription :: AttrLabelProxy "description" +recentDataDescription = AttrLabelProxy + + +recentDataReadMimeType :: MonadIO m => RecentData -> m (Maybe T.Text) +recentDataReadMimeType s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 16) :: IO CString - val' <- cstringToText val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- cstringToText val' + return val'' + return result -recentDataReadAppName :: RecentData -> IO T.Text -recentDataReadAppName s = withManagedPtr s $ \ptr -> do +recentDataWriteMimeType :: MonadIO m => RecentData -> CString -> m () +recentDataWriteMimeType s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 16) (val :: CString) + +recentDataClearMimeType :: MonadIO m => RecentData -> m () +recentDataClearMimeType s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 16) (nullPtr :: CString) + +data RecentDataMimeTypeFieldInfo +instance AttrInfo RecentDataMimeTypeFieldInfo where + type AttrAllowedOps RecentDataMimeTypeFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint RecentDataMimeTypeFieldInfo = (~) CString + type AttrBaseTypeConstraint RecentDataMimeTypeFieldInfo = (~) RecentData + type AttrGetType RecentDataMimeTypeFieldInfo = Maybe T.Text + type AttrLabel RecentDataMimeTypeFieldInfo = "mime_type" + attrGet _ = recentDataReadMimeType + attrSet _ = recentDataWriteMimeType + attrConstruct = undefined + attrClear _ = recentDataClearMimeType + +recentDataMimeType :: AttrLabelProxy "mimeType" +recentDataMimeType = AttrLabelProxy + + +recentDataReadAppName :: MonadIO m => RecentData -> m (Maybe T.Text) +recentDataReadAppName s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 24) :: IO CString - val' <- cstringToText val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- cstringToText val' + return val'' + return result -recentDataReadAppExec :: RecentData -> IO T.Text -recentDataReadAppExec s = withManagedPtr s $ \ptr -> do +recentDataWriteAppName :: MonadIO m => RecentData -> CString -> m () +recentDataWriteAppName s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 24) (val :: CString) + +recentDataClearAppName :: MonadIO m => RecentData -> m () +recentDataClearAppName s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 24) (nullPtr :: CString) + +data RecentDataAppNameFieldInfo +instance AttrInfo RecentDataAppNameFieldInfo where + type AttrAllowedOps RecentDataAppNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint RecentDataAppNameFieldInfo = (~) CString + type AttrBaseTypeConstraint RecentDataAppNameFieldInfo = (~) RecentData + type AttrGetType RecentDataAppNameFieldInfo = Maybe T.Text + type AttrLabel RecentDataAppNameFieldInfo = "app_name" + attrGet _ = recentDataReadAppName + attrSet _ = recentDataWriteAppName + attrConstruct = undefined + attrClear _ = recentDataClearAppName + +recentDataAppName :: AttrLabelProxy "appName" +recentDataAppName = AttrLabelProxy + + +recentDataReadAppExec :: MonadIO m => RecentData -> m (Maybe T.Text) +recentDataReadAppExec s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 32) :: IO CString - val' <- cstringToText val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- cstringToText val' + return val'' + return result -recentDataReadGroups :: RecentData -> IO [T.Text] -recentDataReadGroups s = withManagedPtr s $ \ptr -> do +recentDataWriteAppExec :: MonadIO m => RecentData -> CString -> m () +recentDataWriteAppExec s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 32) (val :: CString) + +recentDataClearAppExec :: MonadIO m => RecentData -> m () +recentDataClearAppExec s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 32) (nullPtr :: CString) + +data RecentDataAppExecFieldInfo +instance AttrInfo RecentDataAppExecFieldInfo where + type AttrAllowedOps RecentDataAppExecFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint RecentDataAppExecFieldInfo = (~) CString + type AttrBaseTypeConstraint RecentDataAppExecFieldInfo = (~) RecentData + type AttrGetType RecentDataAppExecFieldInfo = Maybe T.Text + type AttrLabel RecentDataAppExecFieldInfo = "app_exec" + attrGet _ = recentDataReadAppExec + attrSet _ = recentDataWriteAppExec + attrConstruct = undefined + attrClear _ = recentDataClearAppExec + +recentDataAppExec :: AttrLabelProxy "appExec" +recentDataAppExec = AttrLabelProxy + + +recentDataReadGroups :: MonadIO m => RecentData -> m (Maybe [T.Text]) +recentDataReadGroups s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 40) :: IO (Ptr CString) - val' <- unpackZeroTerminatedUTF8CArray val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- unpackZeroTerminatedUTF8CArray val' + return val'' + return result -recentDataReadIsPrivate :: RecentData -> IO Bool -recentDataReadIsPrivate s = withManagedPtr s $ \ptr -> do +recentDataWriteGroups :: MonadIO m => RecentData -> Ptr CString -> m () +recentDataWriteGroups s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 40) (val :: Ptr CString) + +recentDataClearGroups :: MonadIO m => RecentData -> m () +recentDataClearGroups s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 40) (nullPtr :: Ptr CString) + +data RecentDataGroupsFieldInfo +instance AttrInfo RecentDataGroupsFieldInfo where + type AttrAllowedOps RecentDataGroupsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint RecentDataGroupsFieldInfo = (~) (Ptr CString) + type AttrBaseTypeConstraint RecentDataGroupsFieldInfo = (~) RecentData + type AttrGetType RecentDataGroupsFieldInfo = Maybe [T.Text] + type AttrLabel RecentDataGroupsFieldInfo = "groups" + attrGet _ = recentDataReadGroups + attrSet _ = recentDataWriteGroups + attrConstruct = undefined + attrClear _ = recentDataClearGroups + +recentDataGroups :: AttrLabelProxy "groups" +recentDataGroups = AttrLabelProxy + + +recentDataReadIsPrivate :: MonadIO m => RecentData -> m Bool +recentDataReadIsPrivate s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 48) :: IO CInt let val' = (/= 0) val return val' + +recentDataWriteIsPrivate :: MonadIO m => RecentData -> Bool -> m () +recentDataWriteIsPrivate s val = liftIO $ withManagedPtr s $ \ptr -> do + let val' = (fromIntegral . fromEnum) val + poke (ptr `plusPtr` 48) (val' :: CInt) + +data RecentDataIsPrivateFieldInfo +instance AttrInfo RecentDataIsPrivateFieldInfo where + type AttrAllowedOps RecentDataIsPrivateFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint RecentDataIsPrivateFieldInfo = (~) Bool + type AttrBaseTypeConstraint RecentDataIsPrivateFieldInfo = (~) RecentData + type AttrGetType RecentDataIsPrivateFieldInfo = Bool + type AttrLabel RecentDataIsPrivateFieldInfo = "is_private" + attrGet _ = recentDataReadIsPrivate + attrSet _ = recentDataWriteIsPrivate + attrConstruct = undefined + attrClear _ = undefined + +recentDataIsPrivate :: AttrLabelProxy "isPrivate" +recentDataIsPrivate = AttrLabelProxy + + + +type instance AttributeList RecentData = RecentDataAttributeList +type RecentDataAttributeList = ('[ '("displayName", RecentDataDisplayNameFieldInfo), '("description", RecentDataDescriptionFieldInfo), '("mimeType", RecentDataMimeTypeFieldInfo), '("appName", RecentDataAppNameFieldInfo), '("appExec", RecentDataAppExecFieldInfo), '("groups", RecentDataGroupsFieldInfo), '("isPrivate", RecentDataIsPrivateFieldInfo)] :: [(Symbol, *)]) type family ResolveRecentDataMethod (t :: Symbol) (o :: *) :: * where ResolveRecentDataMethod l o = MethodResolutionFailed l o diff --git a/GI/Gtk/Structs/RecentData.hs-boot b/GI/Gtk/Structs/RecentData.hs-boot --- a/GI/Gtk/Structs/RecentData.hs-boot +++ b/GI/Gtk/Structs/RecentData.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Structs.RecentData where -import Prelude () 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 diff --git a/GI/Gtk/Structs/RecentFilterInfo.hs b/GI/Gtk/Structs/RecentFilterInfo.hs --- a/GI/Gtk/Structs/RecentFilterInfo.hs +++ b/GI/Gtk/Structs/RecentFilterInfo.hs @@ -20,40 +20,59 @@ -- * Properties -- ** Age + recentFilterInfoAge , recentFilterInfoReadAge , + recentFilterInfoWriteAge , -- ** Applications + recentFilterInfoApplications , + recentFilterInfoClearApplications , recentFilterInfoReadApplications , + recentFilterInfoWriteApplications , -- ** Contains + recentFilterInfoContains , recentFilterInfoReadContains , + recentFilterInfoWriteContains , -- ** DisplayName + recentFilterInfoClearDisplayName , + recentFilterInfoDisplayName , recentFilterInfoReadDisplayName , + recentFilterInfoWriteDisplayName , -- ** Groups + recentFilterInfoClearGroups , + recentFilterInfoGroups , recentFilterInfoReadGroups , + recentFilterInfoWriteGroups , -- ** MimeType + recentFilterInfoClearMimeType , + recentFilterInfoMimeType , recentFilterInfoReadMimeType , + recentFilterInfoWriteMimeType , -- ** Uri + recentFilterInfoClearUri , recentFilterInfoReadUri , + recentFilterInfoUri , + recentFilterInfoWriteUri , ) where -import Prelude () 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 @@ -66,49 +85,231 @@ newZeroRecentFilterInfo :: MonadIO m => m RecentFilterInfo newZeroRecentFilterInfo = liftIO $ callocBytes 56 >>= wrapPtr RecentFilterInfo +instance tag ~ 'AttrSet => Constructible RecentFilterInfo tag where + new _ attrs = do + o <- newZeroRecentFilterInfo + GI.Attributes.set o attrs + return o + + noRecentFilterInfo :: Maybe RecentFilterInfo noRecentFilterInfo = Nothing -recentFilterInfoReadContains :: RecentFilterInfo -> IO [RecentFilterFlags] -recentFilterInfoReadContains s = withManagedPtr s $ \ptr -> do +recentFilterInfoReadContains :: MonadIO m => RecentFilterInfo -> m [RecentFilterFlags] +recentFilterInfoReadContains s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO CUInt let val' = wordToGFlags val return val' -recentFilterInfoReadUri :: RecentFilterInfo -> IO T.Text -recentFilterInfoReadUri s = withManagedPtr s $ \ptr -> do +recentFilterInfoWriteContains :: MonadIO m => RecentFilterInfo -> [RecentFilterFlags] -> m () +recentFilterInfoWriteContains s val = liftIO $ withManagedPtr s $ \ptr -> do + let val' = gflagsToWord val + poke (ptr `plusPtr` 0) (val' :: CUInt) + +data RecentFilterInfoContainsFieldInfo +instance AttrInfo RecentFilterInfoContainsFieldInfo where + type AttrAllowedOps RecentFilterInfoContainsFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint RecentFilterInfoContainsFieldInfo = (~) [RecentFilterFlags] + type AttrBaseTypeConstraint RecentFilterInfoContainsFieldInfo = (~) RecentFilterInfo + type AttrGetType RecentFilterInfoContainsFieldInfo = [RecentFilterFlags] + type AttrLabel RecentFilterInfoContainsFieldInfo = "contains" + attrGet _ = recentFilterInfoReadContains + attrSet _ = recentFilterInfoWriteContains + attrConstruct = undefined + attrClear _ = undefined + +recentFilterInfoContains :: AttrLabelProxy "contains" +recentFilterInfoContains = AttrLabelProxy + + +recentFilterInfoReadUri :: MonadIO m => RecentFilterInfo -> m (Maybe T.Text) +recentFilterInfoReadUri s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 8) :: IO CString - val' <- cstringToText val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- cstringToText val' + return val'' + return result -recentFilterInfoReadDisplayName :: RecentFilterInfo -> IO T.Text -recentFilterInfoReadDisplayName s = withManagedPtr s $ \ptr -> do +recentFilterInfoWriteUri :: MonadIO m => RecentFilterInfo -> CString -> m () +recentFilterInfoWriteUri s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 8) (val :: CString) + +recentFilterInfoClearUri :: MonadIO m => RecentFilterInfo -> m () +recentFilterInfoClearUri s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 8) (nullPtr :: CString) + +data RecentFilterInfoUriFieldInfo +instance AttrInfo RecentFilterInfoUriFieldInfo where + type AttrAllowedOps RecentFilterInfoUriFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint RecentFilterInfoUriFieldInfo = (~) CString + type AttrBaseTypeConstraint RecentFilterInfoUriFieldInfo = (~) RecentFilterInfo + type AttrGetType RecentFilterInfoUriFieldInfo = Maybe T.Text + type AttrLabel RecentFilterInfoUriFieldInfo = "uri" + attrGet _ = recentFilterInfoReadUri + attrSet _ = recentFilterInfoWriteUri + attrConstruct = undefined + attrClear _ = recentFilterInfoClearUri + +recentFilterInfoUri :: AttrLabelProxy "uri" +recentFilterInfoUri = AttrLabelProxy + + +recentFilterInfoReadDisplayName :: MonadIO m => RecentFilterInfo -> m (Maybe T.Text) +recentFilterInfoReadDisplayName s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 16) :: IO CString - val' <- cstringToText val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- cstringToText val' + return val'' + return result -recentFilterInfoReadMimeType :: RecentFilterInfo -> IO T.Text -recentFilterInfoReadMimeType s = withManagedPtr s $ \ptr -> do +recentFilterInfoWriteDisplayName :: MonadIO m => RecentFilterInfo -> CString -> m () +recentFilterInfoWriteDisplayName s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 16) (val :: CString) + +recentFilterInfoClearDisplayName :: MonadIO m => RecentFilterInfo -> m () +recentFilterInfoClearDisplayName s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 16) (nullPtr :: CString) + +data RecentFilterInfoDisplayNameFieldInfo +instance AttrInfo RecentFilterInfoDisplayNameFieldInfo where + type AttrAllowedOps RecentFilterInfoDisplayNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint RecentFilterInfoDisplayNameFieldInfo = (~) CString + type AttrBaseTypeConstraint RecentFilterInfoDisplayNameFieldInfo = (~) RecentFilterInfo + type AttrGetType RecentFilterInfoDisplayNameFieldInfo = Maybe T.Text + type AttrLabel RecentFilterInfoDisplayNameFieldInfo = "display_name" + attrGet _ = recentFilterInfoReadDisplayName + attrSet _ = recentFilterInfoWriteDisplayName + attrConstruct = undefined + attrClear _ = recentFilterInfoClearDisplayName + +recentFilterInfoDisplayName :: AttrLabelProxy "displayName" +recentFilterInfoDisplayName = AttrLabelProxy + + +recentFilterInfoReadMimeType :: MonadIO m => RecentFilterInfo -> m (Maybe T.Text) +recentFilterInfoReadMimeType s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 24) :: IO CString - val' <- cstringToText val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- cstringToText val' + return val'' + return result -recentFilterInfoReadApplications :: RecentFilterInfo -> IO [T.Text] -recentFilterInfoReadApplications s = withManagedPtr s $ \ptr -> do +recentFilterInfoWriteMimeType :: MonadIO m => RecentFilterInfo -> CString -> m () +recentFilterInfoWriteMimeType s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 24) (val :: CString) + +recentFilterInfoClearMimeType :: MonadIO m => RecentFilterInfo -> m () +recentFilterInfoClearMimeType s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 24) (nullPtr :: CString) + +data RecentFilterInfoMimeTypeFieldInfo +instance AttrInfo RecentFilterInfoMimeTypeFieldInfo where + type AttrAllowedOps RecentFilterInfoMimeTypeFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint RecentFilterInfoMimeTypeFieldInfo = (~) CString + type AttrBaseTypeConstraint RecentFilterInfoMimeTypeFieldInfo = (~) RecentFilterInfo + type AttrGetType RecentFilterInfoMimeTypeFieldInfo = Maybe T.Text + type AttrLabel RecentFilterInfoMimeTypeFieldInfo = "mime_type" + attrGet _ = recentFilterInfoReadMimeType + attrSet _ = recentFilterInfoWriteMimeType + attrConstruct = undefined + attrClear _ = recentFilterInfoClearMimeType + +recentFilterInfoMimeType :: AttrLabelProxy "mimeType" +recentFilterInfoMimeType = AttrLabelProxy + + +recentFilterInfoReadApplications :: MonadIO m => RecentFilterInfo -> m (Maybe [T.Text]) +recentFilterInfoReadApplications s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 32) :: IO (Ptr CString) - val' <- unpackZeroTerminatedUTF8CArray val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- unpackZeroTerminatedUTF8CArray val' + return val'' + return result -recentFilterInfoReadGroups :: RecentFilterInfo -> IO [T.Text] -recentFilterInfoReadGroups s = withManagedPtr s $ \ptr -> do +recentFilterInfoWriteApplications :: MonadIO m => RecentFilterInfo -> Ptr CString -> m () +recentFilterInfoWriteApplications s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 32) (val :: Ptr CString) + +recentFilterInfoClearApplications :: MonadIO m => RecentFilterInfo -> m () +recentFilterInfoClearApplications s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 32) (nullPtr :: Ptr CString) + +data RecentFilterInfoApplicationsFieldInfo +instance AttrInfo RecentFilterInfoApplicationsFieldInfo where + type AttrAllowedOps RecentFilterInfoApplicationsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint RecentFilterInfoApplicationsFieldInfo = (~) (Ptr CString) + type AttrBaseTypeConstraint RecentFilterInfoApplicationsFieldInfo = (~) RecentFilterInfo + type AttrGetType RecentFilterInfoApplicationsFieldInfo = Maybe [T.Text] + type AttrLabel RecentFilterInfoApplicationsFieldInfo = "applications" + attrGet _ = recentFilterInfoReadApplications + attrSet _ = recentFilterInfoWriteApplications + attrConstruct = undefined + attrClear _ = recentFilterInfoClearApplications + +recentFilterInfoApplications :: AttrLabelProxy "applications" +recentFilterInfoApplications = AttrLabelProxy + + +recentFilterInfoReadGroups :: MonadIO m => RecentFilterInfo -> m (Maybe [T.Text]) +recentFilterInfoReadGroups s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 40) :: IO (Ptr CString) - val' <- unpackZeroTerminatedUTF8CArray val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- unpackZeroTerminatedUTF8CArray val' + return val'' + return result -recentFilterInfoReadAge :: RecentFilterInfo -> IO Int32 -recentFilterInfoReadAge s = withManagedPtr s $ \ptr -> do +recentFilterInfoWriteGroups :: MonadIO m => RecentFilterInfo -> Ptr CString -> m () +recentFilterInfoWriteGroups s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 40) (val :: Ptr CString) + +recentFilterInfoClearGroups :: MonadIO m => RecentFilterInfo -> m () +recentFilterInfoClearGroups s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 40) (nullPtr :: Ptr CString) + +data RecentFilterInfoGroupsFieldInfo +instance AttrInfo RecentFilterInfoGroupsFieldInfo where + type AttrAllowedOps RecentFilterInfoGroupsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint RecentFilterInfoGroupsFieldInfo = (~) (Ptr CString) + type AttrBaseTypeConstraint RecentFilterInfoGroupsFieldInfo = (~) RecentFilterInfo + type AttrGetType RecentFilterInfoGroupsFieldInfo = Maybe [T.Text] + type AttrLabel RecentFilterInfoGroupsFieldInfo = "groups" + attrGet _ = recentFilterInfoReadGroups + attrSet _ = recentFilterInfoWriteGroups + attrConstruct = undefined + attrClear _ = recentFilterInfoClearGroups + +recentFilterInfoGroups :: AttrLabelProxy "groups" +recentFilterInfoGroups = AttrLabelProxy + + +recentFilterInfoReadAge :: MonadIO m => RecentFilterInfo -> m Int32 +recentFilterInfoReadAge s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 48) :: IO Int32 return val + +recentFilterInfoWriteAge :: MonadIO m => RecentFilterInfo -> Int32 -> m () +recentFilterInfoWriteAge s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 48) (val :: Int32) + +data RecentFilterInfoAgeFieldInfo +instance AttrInfo RecentFilterInfoAgeFieldInfo where + type AttrAllowedOps RecentFilterInfoAgeFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint RecentFilterInfoAgeFieldInfo = (~) Int32 + type AttrBaseTypeConstraint RecentFilterInfoAgeFieldInfo = (~) RecentFilterInfo + type AttrGetType RecentFilterInfoAgeFieldInfo = Int32 + type AttrLabel RecentFilterInfoAgeFieldInfo = "age" + attrGet _ = recentFilterInfoReadAge + attrSet _ = recentFilterInfoWriteAge + attrConstruct = undefined + attrClear _ = undefined + +recentFilterInfoAge :: AttrLabelProxy "age" +recentFilterInfoAge = AttrLabelProxy + + + +type instance AttributeList RecentFilterInfo = RecentFilterInfoAttributeList +type RecentFilterInfoAttributeList = ('[ '("contains", RecentFilterInfoContainsFieldInfo), '("uri", RecentFilterInfoUriFieldInfo), '("displayName", RecentFilterInfoDisplayNameFieldInfo), '("mimeType", RecentFilterInfoMimeTypeFieldInfo), '("applications", RecentFilterInfoApplicationsFieldInfo), '("groups", RecentFilterInfoGroupsFieldInfo), '("age", RecentFilterInfoAgeFieldInfo)] :: [(Symbol, *)]) type family ResolveRecentFilterInfoMethod (t :: Symbol) (o :: *) :: * where ResolveRecentFilterInfoMethod l o = MethodResolutionFailed l o diff --git a/GI/Gtk/Structs/RecentFilterInfo.hs-boot b/GI/Gtk/Structs/RecentFilterInfo.hs-boot --- a/GI/Gtk/Structs/RecentFilterInfo.hs-boot +++ b/GI/Gtk/Structs/RecentFilterInfo.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Structs.RecentFilterInfo where -import Prelude () 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 diff --git a/GI/Gtk/Structs/RecentInfo.hs b/GI/Gtk/Structs/RecentInfo.hs --- a/GI/Gtk/Structs/RecentInfo.hs +++ b/GI/Gtk/Structs/RecentInfo.hs @@ -150,9 +150,9 @@ ) where -import Prelude () 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 @@ -172,11 +172,15 @@ noRecentInfo :: Maybe RecentInfo noRecentInfo = Nothing + +type instance AttributeList RecentInfo = RecentInfoAttributeList +type RecentInfoAttributeList = ('[ ] :: [(Symbol, *)]) + -- method RecentInfo::create_app_info -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "app_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gio" "AppInfo" +-- returnType : Just (TInterface "Gio" "AppInfo") -- throws : True -- Skip return : False @@ -218,7 +222,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -246,19 +250,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "gtk_recent_info_get_added" gtk_recent_info_get_added :: Ptr RecentInfo -> -- _obj : TInterface "Gtk" "RecentInfo" - IO Int64 + IO CLong recentInfoGetAdded :: (MonadIO m) => RecentInfo -- _obj - -> m Int64 -- result + -> m CLong -- result recentInfoGetAdded _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_recent_info_get_added _obj' @@ -266,14 +270,14 @@ return result data RecentInfoGetAddedMethodInfo -instance (signature ~ (m Int64), MonadIO m) => MethodInfo RecentInfoGetAddedMethodInfo RecentInfo signature where +instance (signature ~ (m CLong), MonadIO m) => MethodInfo RecentInfoGetAddedMethodInfo RecentInfo signature where overloadedMethod _ = recentInfoGetAdded -- method RecentInfo::get_age -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -298,9 +302,9 @@ -- method RecentInfo::get_application_info -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "app_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "app_exec", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "time_", argType = TBasicType TInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "app_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "app_exec", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "time_", argType = TBasicType TLong, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -308,8 +312,8 @@ Ptr RecentInfo -> -- _obj : TInterface "Gtk" "RecentInfo" CString -> -- app_name : TBasicType TUTF8 Ptr CString -> -- app_exec : TBasicType TUTF8 - Ptr Word32 -> -- count : TBasicType TUInt32 - Ptr Int64 -> -- time_ : TBasicType TInt64 + Ptr Word32 -> -- count : TBasicType TUInt + Ptr CLong -> -- time_ : TBasicType TLong IO CInt @@ -317,35 +321,35 @@ (MonadIO m) => RecentInfo -- _obj -> T.Text -- appName - -> m (Bool,T.Text,Word32,Int64) -- result + -> m (Bool,T.Text,Word32,CLong) -- result recentInfoGetApplicationInfo _obj appName = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj appName' <- textToCString appName appExec <- allocMem :: IO (Ptr CString) count <- allocMem :: IO (Ptr Word32) - time <- allocMem :: IO (Ptr Int64) - result <- gtk_recent_info_get_application_info _obj' appName' appExec count time + time_ <- allocMem :: IO (Ptr CLong) + result <- gtk_recent_info_get_application_info _obj' appName' appExec count time_ let result' = (/= 0) result appExec' <- peek appExec appExec'' <- cstringToText appExec' count' <- peek count - time' <- peek time + time_' <- peek time_ touchManagedPtr _obj freeMem appName' freeMem appExec freeMem count - freeMem time - return (result', appExec'', count', time') + freeMem time_ + return (result', appExec'', count', time_') data RecentInfoGetApplicationInfoMethodInfo -instance (signature ~ (T.Text -> m (Bool,T.Text,Word32,Int64)), MonadIO m) => MethodInfo RecentInfoGetApplicationInfoMethodInfo RecentInfo signature where +instance (signature ~ (T.Text -> m (Bool,T.Text,Word32,CLong)), MonadIO m) => MethodInfo RecentInfoGetApplicationInfoMethodInfo RecentInfo signature where overloadedMethod _ = recentInfoGetApplicationInfo -- method RecentInfo::get_applications -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TCArray True (-1) 1 (TBasicType TUTF8) +-- returnType : Just (TCArray True (-1) 1 (TBasicType TUTF8)) -- throws : False -- Skip return : False @@ -380,7 +384,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -409,7 +413,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -438,7 +442,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gio" "Icon" +-- returnType : Just (TInterface "Gio" "Icon") -- throws : False -- Skip return : False @@ -467,7 +471,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TCArray True (-1) 1 (TBasicType TUTF8) +-- returnType : Just (TCArray True (-1) 1 (TBasicType TUTF8)) -- throws : False -- Skip return : False @@ -500,15 +504,15 @@ -- method RecentInfo::get_icon -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : False -- Skip return : False foreign import ccall "gtk_recent_info_get_icon" gtk_recent_info_get_icon :: Ptr RecentInfo -> -- _obj : TInterface "Gtk" "RecentInfo" - Int32 -> -- size : TBasicType TInt32 + Int32 -> -- size : TBasicType TInt IO (Ptr GdkPixbuf.Pixbuf) @@ -533,7 +537,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -562,19 +566,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "gtk_recent_info_get_modified" gtk_recent_info_get_modified :: Ptr RecentInfo -> -- _obj : TInterface "Gtk" "RecentInfo" - IO Int64 + IO CLong recentInfoGetModified :: (MonadIO m) => RecentInfo -- _obj - -> m Int64 -- result + -> m CLong -- result recentInfoGetModified _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_recent_info_get_modified _obj' @@ -582,14 +586,14 @@ return result data RecentInfoGetModifiedMethodInfo -instance (signature ~ (m Int64), MonadIO m) => MethodInfo RecentInfoGetModifiedMethodInfo RecentInfo signature where +instance (signature ~ (m CLong), MonadIO m) => MethodInfo RecentInfoGetModifiedMethodInfo RecentInfo signature where overloadedMethod _ = recentInfoGetModified -- method RecentInfo::get_private_hint -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -617,7 +621,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -647,7 +651,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -676,7 +680,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -706,19 +710,19 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt64 +-- returnType : Just (TBasicType TLong) -- throws : False -- Skip return : False foreign import ccall "gtk_recent_info_get_visited" gtk_recent_info_get_visited :: Ptr RecentInfo -> -- _obj : TInterface "Gtk" "RecentInfo" - IO Int64 + IO CLong recentInfoGetVisited :: (MonadIO m) => RecentInfo -- _obj - -> m Int64 -- result + -> m CLong -- result recentInfoGetVisited _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_recent_info_get_visited _obj' @@ -726,14 +730,14 @@ return result data RecentInfoGetVisitedMethodInfo -instance (signature ~ (m Int64), MonadIO m) => MethodInfo RecentInfoGetVisitedMethodInfo RecentInfo signature where +instance (signature ~ (m CLong), MonadIO m) => MethodInfo RecentInfoGetVisitedMethodInfo RecentInfo signature where overloadedMethod _ = recentInfoGetVisited -- method RecentInfo::has_application -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "app_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -765,7 +769,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -797,7 +801,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -825,7 +829,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -855,7 +859,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info_b", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -887,7 +891,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "RecentInfo" +-- returnType : Just (TInterface "Gtk" "RecentInfo") -- throws : False -- Skip return : False @@ -916,7 +920,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Structs/RecentInfo.hs-boot b/GI/Gtk/Structs/RecentInfo.hs-boot --- a/GI/Gtk/Structs/RecentInfo.hs-boot +++ b/GI/Gtk/Structs/RecentInfo.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Structs.RecentInfo where -import Prelude () 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 diff --git a/GI/Gtk/Structs/RequestedSize.hs b/GI/Gtk/Structs/RequestedSize.hs --- a/GI/Gtk/Structs/RequestedSize.hs +++ b/GI/Gtk/Structs/RequestedSize.hs @@ -21,24 +21,31 @@ -- * Properties -- ** Data + requestedSizeClearData , + requestedSizeData , requestedSizeReadData , + requestedSizeWriteData , -- ** MinimumSize + requestedSizeMinimumSize , requestedSizeReadMinimumSize , + requestedSizeWriteMinimumSize , -- ** NaturalSize + requestedSizeNaturalSize , requestedSizeReadNaturalSize , + requestedSizeWriteNaturalSize , ) where -import Prelude () 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 @@ -51,23 +58,98 @@ newZeroRequestedSize :: MonadIO m => m RequestedSize newZeroRequestedSize = liftIO $ callocBytes 16 >>= wrapPtr RequestedSize +instance tag ~ 'AttrSet => Constructible RequestedSize tag where + new _ attrs = do + o <- newZeroRequestedSize + GI.Attributes.set o attrs + return o + + noRequestedSize :: Maybe RequestedSize noRequestedSize = Nothing -requestedSizeReadData :: RequestedSize -> IO (Ptr ()) -requestedSizeReadData s = withManagedPtr s $ \ptr -> do +requestedSizeReadData :: MonadIO m => RequestedSize -> m (Ptr ()) +requestedSizeReadData s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO (Ptr ()) return val -requestedSizeReadMinimumSize :: RequestedSize -> IO Int32 -requestedSizeReadMinimumSize s = withManagedPtr s $ \ptr -> do +requestedSizeWriteData :: MonadIO m => RequestedSize -> Ptr () -> m () +requestedSizeWriteData s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 0) (val :: Ptr ()) + +requestedSizeClearData :: MonadIO m => RequestedSize -> m () +requestedSizeClearData s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 0) (nullPtr :: Ptr ()) + +data RequestedSizeDataFieldInfo +instance AttrInfo RequestedSizeDataFieldInfo where + type AttrAllowedOps RequestedSizeDataFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint RequestedSizeDataFieldInfo = (~) (Ptr ()) + type AttrBaseTypeConstraint RequestedSizeDataFieldInfo = (~) RequestedSize + type AttrGetType RequestedSizeDataFieldInfo = Ptr () + type AttrLabel RequestedSizeDataFieldInfo = "data" + attrGet _ = requestedSizeReadData + attrSet _ = requestedSizeWriteData + attrConstruct = undefined + attrClear _ = requestedSizeClearData + +requestedSizeData :: AttrLabelProxy "data" +requestedSizeData = AttrLabelProxy + + +requestedSizeReadMinimumSize :: MonadIO m => RequestedSize -> m Int32 +requestedSizeReadMinimumSize s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 8) :: IO Int32 return val -requestedSizeReadNaturalSize :: RequestedSize -> IO Int32 -requestedSizeReadNaturalSize s = withManagedPtr s $ \ptr -> do +requestedSizeWriteMinimumSize :: MonadIO m => RequestedSize -> Int32 -> m () +requestedSizeWriteMinimumSize s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 8) (val :: Int32) + +data RequestedSizeMinimumSizeFieldInfo +instance AttrInfo RequestedSizeMinimumSizeFieldInfo where + type AttrAllowedOps RequestedSizeMinimumSizeFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint RequestedSizeMinimumSizeFieldInfo = (~) Int32 + type AttrBaseTypeConstraint RequestedSizeMinimumSizeFieldInfo = (~) RequestedSize + type AttrGetType RequestedSizeMinimumSizeFieldInfo = Int32 + type AttrLabel RequestedSizeMinimumSizeFieldInfo = "minimum_size" + attrGet _ = requestedSizeReadMinimumSize + attrSet _ = requestedSizeWriteMinimumSize + attrConstruct = undefined + attrClear _ = undefined + +requestedSizeMinimumSize :: AttrLabelProxy "minimumSize" +requestedSizeMinimumSize = AttrLabelProxy + + +requestedSizeReadNaturalSize :: MonadIO m => RequestedSize -> m Int32 +requestedSizeReadNaturalSize s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 12) :: IO Int32 return val + +requestedSizeWriteNaturalSize :: MonadIO m => RequestedSize -> Int32 -> m () +requestedSizeWriteNaturalSize s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 12) (val :: Int32) + +data RequestedSizeNaturalSizeFieldInfo +instance AttrInfo RequestedSizeNaturalSizeFieldInfo where + type AttrAllowedOps RequestedSizeNaturalSizeFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint RequestedSizeNaturalSizeFieldInfo = (~) Int32 + type AttrBaseTypeConstraint RequestedSizeNaturalSizeFieldInfo = (~) RequestedSize + type AttrGetType RequestedSizeNaturalSizeFieldInfo = Int32 + type AttrLabel RequestedSizeNaturalSizeFieldInfo = "natural_size" + attrGet _ = requestedSizeReadNaturalSize + attrSet _ = requestedSizeWriteNaturalSize + attrConstruct = undefined + attrClear _ = undefined + +requestedSizeNaturalSize :: AttrLabelProxy "naturalSize" +requestedSizeNaturalSize = AttrLabelProxy + + + +type instance AttributeList RequestedSize = RequestedSizeAttributeList +type RequestedSizeAttributeList = ('[ '("data", RequestedSizeDataFieldInfo), '("minimumSize", RequestedSizeMinimumSizeFieldInfo), '("naturalSize", RequestedSizeNaturalSizeFieldInfo)] :: [(Symbol, *)]) type family ResolveRequestedSizeMethod (t :: Symbol) (o :: *) :: * where ResolveRequestedSizeMethod l o = MethodResolutionFailed l o diff --git a/GI/Gtk/Structs/RequestedSize.hs-boot b/GI/Gtk/Structs/RequestedSize.hs-boot --- a/GI/Gtk/Structs/RequestedSize.hs-boot +++ b/GI/Gtk/Structs/RequestedSize.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Structs.RequestedSize where -import Prelude () 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 diff --git a/GI/Gtk/Structs/Requisition.hs b/GI/Gtk/Structs/Requisition.hs --- a/GI/Gtk/Structs/Requisition.hs +++ b/GI/Gtk/Structs/Requisition.hs @@ -38,20 +38,24 @@ -- * Properties -- ** Height + requisitionHeight , requisitionReadHeight , + requisitionWriteHeight , -- ** Width requisitionReadWidth , + requisitionWidth , + requisitionWriteWidth , ) where -import Prelude () 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 @@ -70,24 +74,75 @@ newZeroRequisition :: MonadIO m => m Requisition newZeroRequisition = liftIO $ callocBoxedBytes 8 >>= wrapBoxed Requisition +instance tag ~ 'AttrSet => Constructible Requisition tag where + new _ attrs = do + o <- newZeroRequisition + GI.Attributes.set o attrs + return o + + noRequisition :: Maybe Requisition noRequisition = Nothing -requisitionReadWidth :: Requisition -> IO Int32 -requisitionReadWidth s = withManagedPtr s $ \ptr -> do +requisitionReadWidth :: MonadIO m => Requisition -> m Int32 +requisitionReadWidth s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO Int32 return val -requisitionReadHeight :: Requisition -> IO Int32 -requisitionReadHeight s = withManagedPtr s $ \ptr -> do +requisitionWriteWidth :: MonadIO m => Requisition -> Int32 -> m () +requisitionWriteWidth s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 0) (val :: Int32) + +data RequisitionWidthFieldInfo +instance AttrInfo RequisitionWidthFieldInfo where + type AttrAllowedOps RequisitionWidthFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint RequisitionWidthFieldInfo = (~) Int32 + type AttrBaseTypeConstraint RequisitionWidthFieldInfo = (~) Requisition + type AttrGetType RequisitionWidthFieldInfo = Int32 + type AttrLabel RequisitionWidthFieldInfo = "width" + attrGet _ = requisitionReadWidth + attrSet _ = requisitionWriteWidth + attrConstruct = undefined + attrClear _ = undefined + +requisitionWidth :: AttrLabelProxy "width" +requisitionWidth = AttrLabelProxy + + +requisitionReadHeight :: MonadIO m => Requisition -> m Int32 +requisitionReadHeight s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 4) :: IO Int32 return val +requisitionWriteHeight :: MonadIO m => Requisition -> Int32 -> m () +requisitionWriteHeight s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 4) (val :: Int32) + +data RequisitionHeightFieldInfo +instance AttrInfo RequisitionHeightFieldInfo where + type AttrAllowedOps RequisitionHeightFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint RequisitionHeightFieldInfo = (~) Int32 + type AttrBaseTypeConstraint RequisitionHeightFieldInfo = (~) Requisition + type AttrGetType RequisitionHeightFieldInfo = Int32 + type AttrLabel RequisitionHeightFieldInfo = "height" + attrGet _ = requisitionReadHeight + attrSet _ = requisitionWriteHeight + attrConstruct = undefined + attrClear _ = undefined + +requisitionHeight :: AttrLabelProxy "height" +requisitionHeight = AttrLabelProxy + + + +type instance AttributeList Requisition = RequisitionAttributeList +type RequisitionAttributeList = ('[ '("width", RequisitionWidthFieldInfo), '("height", RequisitionHeightFieldInfo)] :: [(Symbol, *)]) + -- method Requisition::new -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "Requisition" +-- returnType : Just (TInterface "Gtk" "Requisition") -- throws : False -- Skip return : False @@ -108,7 +163,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Requisition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "Requisition" +-- returnType : Just (TInterface "Gtk" "Requisition") -- throws : False -- Skip return : False @@ -137,7 +192,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "Requisition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Structs/Requisition.hs-boot b/GI/Gtk/Structs/Requisition.hs-boot --- a/GI/Gtk/Structs/Requisition.hs-boot +++ b/GI/Gtk/Structs/Requisition.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Structs.Requisition where -import Prelude () 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 diff --git a/GI/Gtk/Structs/SelectionData.hs b/GI/Gtk/Structs/SelectionData.hs --- a/GI/Gtk/Structs/SelectionData.hs +++ b/GI/Gtk/Structs/SelectionData.hs @@ -124,9 +124,9 @@ ) where -import Prelude () 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 @@ -146,11 +146,15 @@ noSelectionData :: Maybe SelectionData noSelectionData = Nothing + +type instance AttributeList SelectionData = SelectionDataAttributeList +type SelectionDataAttributeList = ('[ ] :: [(Symbol, *)]) + -- method SelectionData::copy -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "SelectionData" +-- returnType : Just (TInterface "Gtk" "SelectionData") -- throws : False -- Skip return : False @@ -179,7 +183,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -206,7 +210,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gdk" "Atom" +-- returnType : Just (TInterface "Gdk" "Atom") -- throws : False -- Skip return : False @@ -234,15 +238,15 @@ -- method SelectionData::get_data -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "length", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : TCArray False (-1) 1 (TBasicType TUInt8) +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- returnType : Just (TCArray False (-1) 1 (TBasicType TUInt8)) -- throws : False -- Skip return : False foreign import ccall "gtk_selection_data_get_data_with_length" gtk_selection_data_get_data_with_length :: Ptr SelectionData -> -- _obj : TInterface "Gtk" "SelectionData" - Ptr Int32 -> -- length : TBasicType TInt32 + Ptr Int32 -> -- length : TBasicType TInt IO (Ptr Word8) @@ -269,7 +273,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gdk" "Display" +-- returnType : Just (TInterface "Gdk" "Display") -- throws : False -- Skip return : False @@ -298,7 +302,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -325,7 +329,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -352,7 +356,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : False -- Skip return : False @@ -364,24 +368,25 @@ selectionDataGetPixbuf :: (MonadIO m) => SelectionData -- _obj - -> m GdkPixbuf.Pixbuf -- result + -> m (Maybe GdkPixbuf.Pixbuf) -- result selectionDataGetPixbuf _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_selection_data_get_pixbuf _obj' - checkUnexpectedReturnNULL "gtk_selection_data_get_pixbuf" result - result' <- (wrapObject GdkPixbuf.Pixbuf) result + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (wrapObject GdkPixbuf.Pixbuf) result' + return result'' touchManagedPtr _obj - return result' + return maybeResult data SelectionDataGetPixbufMethodInfo -instance (signature ~ (m GdkPixbuf.Pixbuf), MonadIO m) => MethodInfo SelectionDataGetPixbufMethodInfo SelectionData signature where +instance (signature ~ (m (Maybe GdkPixbuf.Pixbuf)), MonadIO m) => MethodInfo SelectionDataGetPixbufMethodInfo SelectionData signature where overloadedMethod _ = selectionDataGetPixbuf -- method SelectionData::get_selection -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gdk" "Atom" +-- returnType : Just (TInterface "Gdk" "Atom") -- throws : False -- Skip return : False @@ -411,7 +416,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gdk" "Atom" +-- returnType : Just (TInterface "Gdk" "Atom") -- throws : False -- Skip return : False @@ -439,16 +444,16 @@ -- method SelectionData::get_targets -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TCArray False (-1) 2 (TInterface "Gdk" "Atom"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferContainer},Arg {argCName = "n_atoms", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "n_atoms", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : TBasicType TBoolean +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TCArray False (-1) 2 (TInterface "Gdk" "Atom"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferContainer},Arg {argCName = "n_atoms", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [Arg {argCName = "n_atoms", 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 "gtk_selection_data_get_targets" gtk_selection_data_get_targets :: Ptr SelectionData -> -- _obj : TInterface "Gtk" "SelectionData" Ptr (Ptr (Ptr Gdk.Atom)) -> -- targets : TCArray False (-1) 2 (TInterface "Gdk" "Atom") - Ptr Int32 -> -- n_atoms : TBasicType TInt32 + Ptr Int32 -> -- n_atoms : TBasicType TInt IO CInt @@ -481,7 +486,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -493,25 +498,26 @@ selectionDataGetText :: (MonadIO m) => SelectionData -- _obj - -> m T.Text -- result + -> m (Maybe T.Text) -- result selectionDataGetText _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_selection_data_get_text _obj' - checkUnexpectedReturnNULL "gtk_selection_data_get_text" result - result' <- cstringToText result - freeMem result + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- cstringToText result' + freeMem result' + return result'' touchManagedPtr _obj - return result' + return maybeResult data SelectionDataGetTextMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo SelectionDataGetTextMethodInfo SelectionData signature where +instance (signature ~ (m (Maybe T.Text)), MonadIO m) => MethodInfo SelectionDataGetTextMethodInfo SelectionData signature where overloadedMethod _ = selectionDataGetText -- method SelectionData::get_uris -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) +-- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) -- throws : False -- Skip return : False @@ -540,18 +546,18 @@ -- method SelectionData::set -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", 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 = "format", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", 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 TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : TBasicType TVoid +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", 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 = "format", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", 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}] +-- Lengths : [Arg {argCName = "length", 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 "gtk_selection_data_set" gtk_selection_data_set :: Ptr SelectionData -> -- _obj : TInterface "Gtk" "SelectionData" Ptr Gdk.Atom -> -- type : TInterface "Gdk" "Atom" - Int32 -> -- format : TBasicType TInt32 + Int32 -> -- format : TBasicType TInt Ptr Word8 -> -- data : TCArray False (-1) 4 (TBasicType TUInt8) - Int32 -> -- length : TBasicType TInt32 + Int32 -> -- length : TBasicType TInt IO () @@ -581,7 +587,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", 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}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -611,16 +617,16 @@ -- method SelectionData::set_text -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_selection_data_set_text" gtk_selection_data_set_text :: Ptr SelectionData -> -- _obj : TInterface "Gtk" "SelectionData" CString -> -- str : TBasicType TUTF8 - Int32 -> -- len : TBasicType TInt32 + Int32 -> -- len : TBasicType TInt IO CInt @@ -647,7 +653,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uris", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -680,7 +686,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "writable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -711,7 +717,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -743,7 +749,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -771,7 +777,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False diff --git a/GI/Gtk/Structs/SelectionData.hs-boot b/GI/Gtk/Structs/SelectionData.hs-boot --- a/GI/Gtk/Structs/SelectionData.hs-boot +++ b/GI/Gtk/Structs/SelectionData.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Structs.SelectionData where -import Prelude () 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 diff --git a/GI/Gtk/Structs/SettingsValue.hs b/GI/Gtk/Structs/SettingsValue.hs --- a/GI/Gtk/Structs/SettingsValue.hs +++ b/GI/Gtk/Structs/SettingsValue.hs @@ -17,20 +17,26 @@ -- * Properties -- ** Origin + settingsValueClearOrigin , + settingsValueOrigin , settingsValueReadOrigin , + settingsValueWriteOrigin , -- ** Value + settingsValueClearValue , settingsValueReadValue , + settingsValueValue , + settingsValueWriteValue , ) where -import Prelude () 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 @@ -43,20 +49,83 @@ newZeroSettingsValue :: MonadIO m => m SettingsValue newZeroSettingsValue = liftIO $ callocBytes 32 >>= wrapPtr SettingsValue +instance tag ~ 'AttrSet => Constructible SettingsValue tag where + new _ attrs = do + o <- newZeroSettingsValue + GI.Attributes.set o attrs + return o + + noSettingsValue :: Maybe SettingsValue noSettingsValue = Nothing -settingsValueReadOrigin :: SettingsValue -> IO T.Text -settingsValueReadOrigin s = withManagedPtr s $ \ptr -> do +settingsValueReadOrigin :: MonadIO m => SettingsValue -> m (Maybe T.Text) +settingsValueReadOrigin s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO CString - val' <- cstringToText val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- cstringToText val' + return val'' + return result -settingsValueReadValue :: SettingsValue -> IO GValue -settingsValueReadValue s = withManagedPtr s $ \ptr -> do +settingsValueWriteOrigin :: MonadIO m => SettingsValue -> CString -> m () +settingsValueWriteOrigin s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 0) (val :: CString) + +settingsValueClearOrigin :: MonadIO m => SettingsValue -> m () +settingsValueClearOrigin s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 0) (nullPtr :: CString) + +data SettingsValueOriginFieldInfo +instance AttrInfo SettingsValueOriginFieldInfo where + type AttrAllowedOps SettingsValueOriginFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint SettingsValueOriginFieldInfo = (~) CString + type AttrBaseTypeConstraint SettingsValueOriginFieldInfo = (~) SettingsValue + type AttrGetType SettingsValueOriginFieldInfo = Maybe T.Text + type AttrLabel SettingsValueOriginFieldInfo = "origin" + attrGet _ = settingsValueReadOrigin + attrSet _ = settingsValueWriteOrigin + attrConstruct = undefined + attrClear _ = settingsValueClearOrigin + +settingsValueOrigin :: AttrLabelProxy "origin" +settingsValueOrigin = AttrLabelProxy + + +settingsValueReadValue :: MonadIO m => SettingsValue -> m (Maybe GValue) +settingsValueReadValue s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 8) :: IO (Ptr GValue) - val' <- (newBoxed GValue) val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- (newBoxed GValue) val' + return val'' + return result + +settingsValueWriteValue :: MonadIO m => SettingsValue -> Ptr GValue -> m () +settingsValueWriteValue s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 8) (val :: Ptr GValue) + +settingsValueClearValue :: MonadIO m => SettingsValue -> m () +settingsValueClearValue s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 8) (nullPtr :: Ptr GValue) + +data SettingsValueValueFieldInfo +instance AttrInfo SettingsValueValueFieldInfo where + type AttrAllowedOps SettingsValueValueFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint SettingsValueValueFieldInfo = (~) (Ptr GValue) + type AttrBaseTypeConstraint SettingsValueValueFieldInfo = (~) SettingsValue + type AttrGetType SettingsValueValueFieldInfo = Maybe GValue + type AttrLabel SettingsValueValueFieldInfo = "value" + attrGet _ = settingsValueReadValue + attrSet _ = settingsValueWriteValue + attrConstruct = undefined + attrClear _ = settingsValueClearValue + +settingsValueValue :: AttrLabelProxy "value" +settingsValueValue = AttrLabelProxy + + + +type instance AttributeList SettingsValue = SettingsValueAttributeList +type SettingsValueAttributeList = ('[ '("origin", SettingsValueOriginFieldInfo), '("value", SettingsValueValueFieldInfo)] :: [(Symbol, *)]) type family ResolveSettingsValueMethod (t :: Symbol) (o :: *) :: * where ResolveSettingsValueMethod l o = MethodResolutionFailed l o diff --git a/GI/Gtk/Structs/SettingsValue.hs-boot b/GI/Gtk/Structs/SettingsValue.hs-boot --- a/GI/Gtk/Structs/SettingsValue.hs-boot +++ b/GI/Gtk/Structs/SettingsValue.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Structs.SettingsValue where -import Prelude () 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 diff --git a/GI/Gtk/Structs/StockItem.hs b/GI/Gtk/Structs/StockItem.hs --- a/GI/Gtk/Structs/StockItem.hs +++ b/GI/Gtk/Structs/StockItem.hs @@ -25,32 +25,45 @@ -- * Properties -- ** Keyval + stockItemKeyval , stockItemReadKeyval , + stockItemWriteKeyval , -- ** Label + stockItemClearLabel , + stockItemLabel , stockItemReadLabel , + stockItemWriteLabel , -- ** Modifier + stockItemModifier , stockItemReadModifier , + stockItemWriteModifier , -- ** StockId + stockItemClearStockId , stockItemReadStockId , + stockItemStockId , + stockItemWriteStockId , -- ** TranslationDomain + stockItemClearTranslationDomain , stockItemReadTranslationDomain , + stockItemTranslationDomain , + stockItemWriteTranslationDomain , ) where -import Prelude () 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 @@ -64,43 +77,173 @@ newZeroStockItem :: MonadIO m => m StockItem newZeroStockItem = liftIO $ callocBytes 32 >>= wrapPtr StockItem +instance tag ~ 'AttrSet => Constructible StockItem tag where + new _ attrs = do + o <- newZeroStockItem + GI.Attributes.set o attrs + return o + + noStockItem :: Maybe StockItem noStockItem = Nothing -stockItemReadStockId :: StockItem -> IO T.Text -stockItemReadStockId s = withManagedPtr s $ \ptr -> do +stockItemReadStockId :: MonadIO m => StockItem -> m (Maybe T.Text) +stockItemReadStockId s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO CString - val' <- cstringToText val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- cstringToText val' + return val'' + return result -stockItemReadLabel :: StockItem -> IO T.Text -stockItemReadLabel s = withManagedPtr s $ \ptr -> do +stockItemWriteStockId :: MonadIO m => StockItem -> CString -> m () +stockItemWriteStockId s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 0) (val :: CString) + +stockItemClearStockId :: MonadIO m => StockItem -> m () +stockItemClearStockId s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 0) (nullPtr :: CString) + +data StockItemStockIdFieldInfo +instance AttrInfo StockItemStockIdFieldInfo where + type AttrAllowedOps StockItemStockIdFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint StockItemStockIdFieldInfo = (~) CString + type AttrBaseTypeConstraint StockItemStockIdFieldInfo = (~) StockItem + type AttrGetType StockItemStockIdFieldInfo = Maybe T.Text + type AttrLabel StockItemStockIdFieldInfo = "stock_id" + attrGet _ = stockItemReadStockId + attrSet _ = stockItemWriteStockId + attrConstruct = undefined + attrClear _ = stockItemClearStockId + +stockItemStockId :: AttrLabelProxy "stockId" +stockItemStockId = AttrLabelProxy + + +stockItemReadLabel :: MonadIO m => StockItem -> m (Maybe T.Text) +stockItemReadLabel s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 8) :: IO CString - val' <- cstringToText val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- cstringToText val' + return val'' + return result -stockItemReadModifier :: StockItem -> IO [Gdk.ModifierType] -stockItemReadModifier s = withManagedPtr s $ \ptr -> do +stockItemWriteLabel :: MonadIO m => StockItem -> CString -> m () +stockItemWriteLabel s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 8) (val :: CString) + +stockItemClearLabel :: MonadIO m => StockItem -> m () +stockItemClearLabel s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 8) (nullPtr :: CString) + +data StockItemLabelFieldInfo +instance AttrInfo StockItemLabelFieldInfo where + type AttrAllowedOps StockItemLabelFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint StockItemLabelFieldInfo = (~) CString + type AttrBaseTypeConstraint StockItemLabelFieldInfo = (~) StockItem + type AttrGetType StockItemLabelFieldInfo = Maybe T.Text + type AttrLabel StockItemLabelFieldInfo = "label" + attrGet _ = stockItemReadLabel + attrSet _ = stockItemWriteLabel + attrConstruct = undefined + attrClear _ = stockItemClearLabel + +stockItemLabel :: AttrLabelProxy "label" +stockItemLabel = AttrLabelProxy + + +stockItemReadModifier :: MonadIO m => StockItem -> m [Gdk.ModifierType] +stockItemReadModifier s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 16) :: IO CUInt let val' = wordToGFlags val return val' -stockItemReadKeyval :: StockItem -> IO Word32 -stockItemReadKeyval s = withManagedPtr s $ \ptr -> do +stockItemWriteModifier :: MonadIO m => StockItem -> [Gdk.ModifierType] -> m () +stockItemWriteModifier s val = liftIO $ withManagedPtr s $ \ptr -> do + let val' = gflagsToWord val + poke (ptr `plusPtr` 16) (val' :: CUInt) + +data StockItemModifierFieldInfo +instance AttrInfo StockItemModifierFieldInfo where + type AttrAllowedOps StockItemModifierFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint StockItemModifierFieldInfo = (~) [Gdk.ModifierType] + type AttrBaseTypeConstraint StockItemModifierFieldInfo = (~) StockItem + type AttrGetType StockItemModifierFieldInfo = [Gdk.ModifierType] + type AttrLabel StockItemModifierFieldInfo = "modifier" + attrGet _ = stockItemReadModifier + attrSet _ = stockItemWriteModifier + attrConstruct = undefined + attrClear _ = undefined + +stockItemModifier :: AttrLabelProxy "modifier" +stockItemModifier = AttrLabelProxy + + +stockItemReadKeyval :: MonadIO m => StockItem -> m Word32 +stockItemReadKeyval s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 20) :: IO Word32 return val -stockItemReadTranslationDomain :: StockItem -> IO T.Text -stockItemReadTranslationDomain s = withManagedPtr s $ \ptr -> do +stockItemWriteKeyval :: MonadIO m => StockItem -> Word32 -> m () +stockItemWriteKeyval s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 20) (val :: Word32) + +data StockItemKeyvalFieldInfo +instance AttrInfo StockItemKeyvalFieldInfo where + type AttrAllowedOps StockItemKeyvalFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint StockItemKeyvalFieldInfo = (~) Word32 + type AttrBaseTypeConstraint StockItemKeyvalFieldInfo = (~) StockItem + type AttrGetType StockItemKeyvalFieldInfo = Word32 + type AttrLabel StockItemKeyvalFieldInfo = "keyval" + attrGet _ = stockItemReadKeyval + attrSet _ = stockItemWriteKeyval + attrConstruct = undefined + attrClear _ = undefined + +stockItemKeyval :: AttrLabelProxy "keyval" +stockItemKeyval = AttrLabelProxy + + +stockItemReadTranslationDomain :: MonadIO m => StockItem -> m (Maybe T.Text) +stockItemReadTranslationDomain s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 24) :: IO CString - val' <- cstringToText val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- cstringToText val' + return val'' + return result +stockItemWriteTranslationDomain :: MonadIO m => StockItem -> CString -> m () +stockItemWriteTranslationDomain s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 24) (val :: CString) + +stockItemClearTranslationDomain :: MonadIO m => StockItem -> m () +stockItemClearTranslationDomain s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 24) (nullPtr :: CString) + +data StockItemTranslationDomainFieldInfo +instance AttrInfo StockItemTranslationDomainFieldInfo where + type AttrAllowedOps StockItemTranslationDomainFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint StockItemTranslationDomainFieldInfo = (~) CString + type AttrBaseTypeConstraint StockItemTranslationDomainFieldInfo = (~) StockItem + type AttrGetType StockItemTranslationDomainFieldInfo = Maybe T.Text + type AttrLabel StockItemTranslationDomainFieldInfo = "translation_domain" + attrGet _ = stockItemReadTranslationDomain + attrSet _ = stockItemWriteTranslationDomain + attrConstruct = undefined + attrClear _ = stockItemClearTranslationDomain + +stockItemTranslationDomain :: AttrLabelProxy "translationDomain" +stockItemTranslationDomain = AttrLabelProxy + + + +type instance AttributeList StockItem = StockItemAttributeList +type StockItemAttributeList = ('[ '("stockId", StockItemStockIdFieldInfo), '("label", StockItemLabelFieldInfo), '("modifier", StockItemModifierFieldInfo), '("keyval", StockItemKeyvalFieldInfo), '("translationDomain", StockItemTranslationDomainFieldInfo)] :: [(Symbol, *)]) + -- method StockItem::free -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "StockItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Structs/StockItem.hs-boot b/GI/Gtk/Structs/StockItem.hs-boot --- a/GI/Gtk/Structs/StockItem.hs-boot +++ b/GI/Gtk/Structs/StockItem.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Structs.StockItem where -import Prelude () 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 diff --git a/GI/Gtk/Structs/SymbolicColor.hs b/GI/Gtk/Structs/SymbolicColor.hs --- a/GI/Gtk/Structs/SymbolicColor.hs +++ b/GI/Gtk/Structs/SymbolicColor.hs @@ -79,9 +79,9 @@ ) where -import Prelude () 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 @@ -100,11 +100,15 @@ noSymbolicColor :: Maybe SymbolicColor noSymbolicColor = Nothing + +type instance AttributeList SymbolicColor = SymbolicColorAttributeList +type SymbolicColorAttributeList = ('[ ] :: [(Symbol, *)]) + -- method SymbolicColor::new_alpha -- method type : Constructor -- Args : [Arg {argCName = "color", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "factor", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "SymbolicColor" +-- returnType : Just (TInterface "Gtk" "SymbolicColor") -- throws : False -- Skip return : False @@ -132,7 +136,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "SymbolicColor" +-- returnType : Just (TInterface "Gtk" "SymbolicColor") -- throws : False -- Skip return : False @@ -157,7 +161,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "color1", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color2", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "factor", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "SymbolicColor" +-- returnType : Just (TInterface "Gtk" "SymbolicColor") -- throws : False -- Skip return : False @@ -189,7 +193,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "SymbolicColor" +-- returnType : Just (TInterface "Gtk" "SymbolicColor") -- throws : False -- Skip return : False @@ -214,7 +218,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "color", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "factor", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "SymbolicColor" +-- returnType : Just (TInterface "Gtk" "SymbolicColor") -- throws : False -- Skip return : False @@ -240,15 +244,15 @@ -- method SymbolicColor::new_win32 -- method type : Constructor --- Args : [Arg {argCName = "theme_class", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "theme_class", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "id", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "SymbolicColor" +-- returnType : Just (TInterface "Gtk" "SymbolicColor") -- throws : False -- Skip return : False foreign import ccall "gtk_symbolic_color_new_win32" gtk_symbolic_color_new_win32 :: CString -> -- theme_class : TBasicType TUTF8 - Int32 -> -- id : TBasicType TInt32 + Int32 -> -- id : TBasicType TInt IO (Ptr SymbolicColor) {-# DEPRECATED symbolicColorNewWin32 ["(Since version 3.8)","#GtkSymbolicColor is deprecated."]#-} @@ -269,7 +273,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "SymbolicColor" +-- returnType : Just (TInterface "Gtk" "SymbolicColor") -- throws : False -- Skip return : False @@ -298,7 +302,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "props", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resolved_color", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -337,7 +341,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -367,7 +371,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Structs/SymbolicColor.hs-boot b/GI/Gtk/Structs/SymbolicColor.hs-boot --- a/GI/Gtk/Structs/SymbolicColor.hs-boot +++ b/GI/Gtk/Structs/SymbolicColor.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Structs.SymbolicColor where -import Prelude () 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 diff --git a/GI/Gtk/Structs/TableChild.hs b/GI/Gtk/Structs/TableChild.hs --- a/GI/Gtk/Structs/TableChild.hs +++ b/GI/Gtk/Structs/TableChild.hs @@ -17,64 +17,91 @@ -- * Properties -- ** BottomAttach + tableChildBottomAttach , tableChildReadBottomAttach , + tableChildWriteBottomAttach , -- ** LeftAttach + tableChildLeftAttach , tableChildReadLeftAttach , + tableChildWriteLeftAttach , -- ** RightAttach tableChildReadRightAttach , + tableChildRightAttach , + tableChildWriteRightAttach , -- ** TopAttach tableChildReadTopAttach , + tableChildTopAttach , + tableChildWriteTopAttach , -- ** Widget + tableChildClearWidget , tableChildReadWidget , + tableChildWidget , + tableChildWriteWidget , -- ** Xexpand tableChildReadXexpand , + tableChildWriteXexpand , + tableChildXexpand , -- ** Xfill tableChildReadXfill , + tableChildWriteXfill , + tableChildXfill , -- ** Xpadding tableChildReadXpadding , + tableChildWriteXpadding , + tableChildXpadding , -- ** Xshrink tableChildReadXshrink , + tableChildWriteXshrink , + tableChildXshrink , -- ** Yexpand tableChildReadYexpand , + tableChildWriteYexpand , + tableChildYexpand , -- ** Yfill tableChildReadYfill , + tableChildWriteYfill , + tableChildYfill , -- ** Ypadding tableChildReadYpadding , + tableChildWriteYpadding , + tableChildYpadding , -- ** Yshrink tableChildReadYshrink , + tableChildWriteYshrink , + tableChildYshrink , ) where -import Prelude () 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 @@ -87,74 +114,351 @@ newZeroTableChild :: MonadIO m => m TableChild newZeroTableChild = liftIO $ callocBytes 48 >>= wrapPtr TableChild +instance tag ~ 'AttrSet => Constructible TableChild tag where + new _ attrs = do + o <- newZeroTableChild + GI.Attributes.set o attrs + return o + + noTableChild :: Maybe TableChild noTableChild = Nothing -tableChildReadWidget :: TableChild -> IO Widget -tableChildReadWidget s = withManagedPtr s $ \ptr -> do +tableChildReadWidget :: MonadIO m => TableChild -> m (Maybe Widget) +tableChildReadWidget s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO (Ptr Widget) - val' <- (newObject Widget) val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- (newObject Widget) val' + return val'' + return result -tableChildReadLeftAttach :: TableChild -> IO Word16 -tableChildReadLeftAttach s = withManagedPtr s $ \ptr -> do +tableChildWriteWidget :: MonadIO m => TableChild -> Ptr Widget -> m () +tableChildWriteWidget s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 0) (val :: Ptr Widget) + +tableChildClearWidget :: MonadIO m => TableChild -> m () +tableChildClearWidget s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 0) (nullPtr :: Ptr Widget) + +data TableChildWidgetFieldInfo +instance AttrInfo TableChildWidgetFieldInfo where + type AttrAllowedOps TableChildWidgetFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint TableChildWidgetFieldInfo = (~) (Ptr Widget) + type AttrBaseTypeConstraint TableChildWidgetFieldInfo = (~) TableChild + type AttrGetType TableChildWidgetFieldInfo = Maybe Widget + type AttrLabel TableChildWidgetFieldInfo = "widget" + attrGet _ = tableChildReadWidget + attrSet _ = tableChildWriteWidget + attrConstruct = undefined + attrClear _ = tableChildClearWidget + +tableChildWidget :: AttrLabelProxy "widget" +tableChildWidget = AttrLabelProxy + + +tableChildReadLeftAttach :: MonadIO m => TableChild -> m Word16 +tableChildReadLeftAttach s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 8) :: IO Word16 return val -tableChildReadRightAttach :: TableChild -> IO Word16 -tableChildReadRightAttach s = withManagedPtr s $ \ptr -> do +tableChildWriteLeftAttach :: MonadIO m => TableChild -> Word16 -> m () +tableChildWriteLeftAttach s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 8) (val :: Word16) + +data TableChildLeftAttachFieldInfo +instance AttrInfo TableChildLeftAttachFieldInfo where + type AttrAllowedOps TableChildLeftAttachFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint TableChildLeftAttachFieldInfo = (~) Word16 + type AttrBaseTypeConstraint TableChildLeftAttachFieldInfo = (~) TableChild + type AttrGetType TableChildLeftAttachFieldInfo = Word16 + type AttrLabel TableChildLeftAttachFieldInfo = "left_attach" + attrGet _ = tableChildReadLeftAttach + attrSet _ = tableChildWriteLeftAttach + attrConstruct = undefined + attrClear _ = undefined + +tableChildLeftAttach :: AttrLabelProxy "leftAttach" +tableChildLeftAttach = AttrLabelProxy + + +tableChildReadRightAttach :: MonadIO m => TableChild -> m Word16 +tableChildReadRightAttach s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 10) :: IO Word16 return val -tableChildReadTopAttach :: TableChild -> IO Word16 -tableChildReadTopAttach s = withManagedPtr s $ \ptr -> do +tableChildWriteRightAttach :: MonadIO m => TableChild -> Word16 -> m () +tableChildWriteRightAttach s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 10) (val :: Word16) + +data TableChildRightAttachFieldInfo +instance AttrInfo TableChildRightAttachFieldInfo where + type AttrAllowedOps TableChildRightAttachFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint TableChildRightAttachFieldInfo = (~) Word16 + type AttrBaseTypeConstraint TableChildRightAttachFieldInfo = (~) TableChild + type AttrGetType TableChildRightAttachFieldInfo = Word16 + type AttrLabel TableChildRightAttachFieldInfo = "right_attach" + attrGet _ = tableChildReadRightAttach + attrSet _ = tableChildWriteRightAttach + attrConstruct = undefined + attrClear _ = undefined + +tableChildRightAttach :: AttrLabelProxy "rightAttach" +tableChildRightAttach = AttrLabelProxy + + +tableChildReadTopAttach :: MonadIO m => TableChild -> m Word16 +tableChildReadTopAttach s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 12) :: IO Word16 return val -tableChildReadBottomAttach :: TableChild -> IO Word16 -tableChildReadBottomAttach s = withManagedPtr s $ \ptr -> do +tableChildWriteTopAttach :: MonadIO m => TableChild -> Word16 -> m () +tableChildWriteTopAttach s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 12) (val :: Word16) + +data TableChildTopAttachFieldInfo +instance AttrInfo TableChildTopAttachFieldInfo where + type AttrAllowedOps TableChildTopAttachFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint TableChildTopAttachFieldInfo = (~) Word16 + type AttrBaseTypeConstraint TableChildTopAttachFieldInfo = (~) TableChild + type AttrGetType TableChildTopAttachFieldInfo = Word16 + type AttrLabel TableChildTopAttachFieldInfo = "top_attach" + attrGet _ = tableChildReadTopAttach + attrSet _ = tableChildWriteTopAttach + attrConstruct = undefined + attrClear _ = undefined + +tableChildTopAttach :: AttrLabelProxy "topAttach" +tableChildTopAttach = AttrLabelProxy + + +tableChildReadBottomAttach :: MonadIO m => TableChild -> m Word16 +tableChildReadBottomAttach s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 14) :: IO Word16 return val -tableChildReadXpadding :: TableChild -> IO Word16 -tableChildReadXpadding s = withManagedPtr s $ \ptr -> do +tableChildWriteBottomAttach :: MonadIO m => TableChild -> Word16 -> m () +tableChildWriteBottomAttach s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 14) (val :: Word16) + +data TableChildBottomAttachFieldInfo +instance AttrInfo TableChildBottomAttachFieldInfo where + type AttrAllowedOps TableChildBottomAttachFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint TableChildBottomAttachFieldInfo = (~) Word16 + type AttrBaseTypeConstraint TableChildBottomAttachFieldInfo = (~) TableChild + type AttrGetType TableChildBottomAttachFieldInfo = Word16 + type AttrLabel TableChildBottomAttachFieldInfo = "bottom_attach" + attrGet _ = tableChildReadBottomAttach + attrSet _ = tableChildWriteBottomAttach + attrConstruct = undefined + attrClear _ = undefined + +tableChildBottomAttach :: AttrLabelProxy "bottomAttach" +tableChildBottomAttach = AttrLabelProxy + + +tableChildReadXpadding :: MonadIO m => TableChild -> m Word16 +tableChildReadXpadding s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 16) :: IO Word16 return val -tableChildReadYpadding :: TableChild -> IO Word16 -tableChildReadYpadding s = withManagedPtr s $ \ptr -> do +tableChildWriteXpadding :: MonadIO m => TableChild -> Word16 -> m () +tableChildWriteXpadding s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 16) (val :: Word16) + +data TableChildXpaddingFieldInfo +instance AttrInfo TableChildXpaddingFieldInfo where + type AttrAllowedOps TableChildXpaddingFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint TableChildXpaddingFieldInfo = (~) Word16 + type AttrBaseTypeConstraint TableChildXpaddingFieldInfo = (~) TableChild + type AttrGetType TableChildXpaddingFieldInfo = Word16 + type AttrLabel TableChildXpaddingFieldInfo = "xpadding" + attrGet _ = tableChildReadXpadding + attrSet _ = tableChildWriteXpadding + attrConstruct = undefined + attrClear _ = undefined + +tableChildXpadding :: AttrLabelProxy "xpadding" +tableChildXpadding = AttrLabelProxy + + +tableChildReadYpadding :: MonadIO m => TableChild -> m Word16 +tableChildReadYpadding s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 18) :: IO Word16 return val -tableChildReadXexpand :: TableChild -> IO Word32 -tableChildReadXexpand s = withManagedPtr s $ \ptr -> do +tableChildWriteYpadding :: MonadIO m => TableChild -> Word16 -> m () +tableChildWriteYpadding s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 18) (val :: Word16) + +data TableChildYpaddingFieldInfo +instance AttrInfo TableChildYpaddingFieldInfo where + type AttrAllowedOps TableChildYpaddingFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint TableChildYpaddingFieldInfo = (~) Word16 + type AttrBaseTypeConstraint TableChildYpaddingFieldInfo = (~) TableChild + type AttrGetType TableChildYpaddingFieldInfo = Word16 + type AttrLabel TableChildYpaddingFieldInfo = "ypadding" + attrGet _ = tableChildReadYpadding + attrSet _ = tableChildWriteYpadding + attrConstruct = undefined + attrClear _ = undefined + +tableChildYpadding :: AttrLabelProxy "ypadding" +tableChildYpadding = AttrLabelProxy + + +tableChildReadXexpand :: MonadIO m => TableChild -> m Word32 +tableChildReadXexpand s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 20) :: IO Word32 return val -tableChildReadYexpand :: TableChild -> IO Word32 -tableChildReadYexpand s = withManagedPtr s $ \ptr -> do +tableChildWriteXexpand :: MonadIO m => TableChild -> Word32 -> m () +tableChildWriteXexpand s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 20) (val :: Word32) + +data TableChildXexpandFieldInfo +instance AttrInfo TableChildXexpandFieldInfo where + type AttrAllowedOps TableChildXexpandFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint TableChildXexpandFieldInfo = (~) Word32 + type AttrBaseTypeConstraint TableChildXexpandFieldInfo = (~) TableChild + type AttrGetType TableChildXexpandFieldInfo = Word32 + type AttrLabel TableChildXexpandFieldInfo = "xexpand" + attrGet _ = tableChildReadXexpand + attrSet _ = tableChildWriteXexpand + attrConstruct = undefined + attrClear _ = undefined + +tableChildXexpand :: AttrLabelProxy "xexpand" +tableChildXexpand = AttrLabelProxy + + +tableChildReadYexpand :: MonadIO m => TableChild -> m Word32 +tableChildReadYexpand s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 24) :: IO Word32 return val -tableChildReadXshrink :: TableChild -> IO Word32 -tableChildReadXshrink s = withManagedPtr s $ \ptr -> do +tableChildWriteYexpand :: MonadIO m => TableChild -> Word32 -> m () +tableChildWriteYexpand s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 24) (val :: Word32) + +data TableChildYexpandFieldInfo +instance AttrInfo TableChildYexpandFieldInfo where + type AttrAllowedOps TableChildYexpandFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint TableChildYexpandFieldInfo = (~) Word32 + type AttrBaseTypeConstraint TableChildYexpandFieldInfo = (~) TableChild + type AttrGetType TableChildYexpandFieldInfo = Word32 + type AttrLabel TableChildYexpandFieldInfo = "yexpand" + attrGet _ = tableChildReadYexpand + attrSet _ = tableChildWriteYexpand + attrConstruct = undefined + attrClear _ = undefined + +tableChildYexpand :: AttrLabelProxy "yexpand" +tableChildYexpand = AttrLabelProxy + + +tableChildReadXshrink :: MonadIO m => TableChild -> m Word32 +tableChildReadXshrink s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 28) :: IO Word32 return val -tableChildReadYshrink :: TableChild -> IO Word32 -tableChildReadYshrink s = withManagedPtr s $ \ptr -> do +tableChildWriteXshrink :: MonadIO m => TableChild -> Word32 -> m () +tableChildWriteXshrink s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 28) (val :: Word32) + +data TableChildXshrinkFieldInfo +instance AttrInfo TableChildXshrinkFieldInfo where + type AttrAllowedOps TableChildXshrinkFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint TableChildXshrinkFieldInfo = (~) Word32 + type AttrBaseTypeConstraint TableChildXshrinkFieldInfo = (~) TableChild + type AttrGetType TableChildXshrinkFieldInfo = Word32 + type AttrLabel TableChildXshrinkFieldInfo = "xshrink" + attrGet _ = tableChildReadXshrink + attrSet _ = tableChildWriteXshrink + attrConstruct = undefined + attrClear _ = undefined + +tableChildXshrink :: AttrLabelProxy "xshrink" +tableChildXshrink = AttrLabelProxy + + +tableChildReadYshrink :: MonadIO m => TableChild -> m Word32 +tableChildReadYshrink s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 32) :: IO Word32 return val -tableChildReadXfill :: TableChild -> IO Word32 -tableChildReadXfill s = withManagedPtr s $ \ptr -> do +tableChildWriteYshrink :: MonadIO m => TableChild -> Word32 -> m () +tableChildWriteYshrink s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 32) (val :: Word32) + +data TableChildYshrinkFieldInfo +instance AttrInfo TableChildYshrinkFieldInfo where + type AttrAllowedOps TableChildYshrinkFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint TableChildYshrinkFieldInfo = (~) Word32 + type AttrBaseTypeConstraint TableChildYshrinkFieldInfo = (~) TableChild + type AttrGetType TableChildYshrinkFieldInfo = Word32 + type AttrLabel TableChildYshrinkFieldInfo = "yshrink" + attrGet _ = tableChildReadYshrink + attrSet _ = tableChildWriteYshrink + attrConstruct = undefined + attrClear _ = undefined + +tableChildYshrink :: AttrLabelProxy "yshrink" +tableChildYshrink = AttrLabelProxy + + +tableChildReadXfill :: MonadIO m => TableChild -> m Word32 +tableChildReadXfill s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 36) :: IO Word32 return val -tableChildReadYfill :: TableChild -> IO Word32 -tableChildReadYfill s = withManagedPtr s $ \ptr -> do +tableChildWriteXfill :: MonadIO m => TableChild -> Word32 -> m () +tableChildWriteXfill s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 36) (val :: Word32) + +data TableChildXfillFieldInfo +instance AttrInfo TableChildXfillFieldInfo where + type AttrAllowedOps TableChildXfillFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint TableChildXfillFieldInfo = (~) Word32 + type AttrBaseTypeConstraint TableChildXfillFieldInfo = (~) TableChild + type AttrGetType TableChildXfillFieldInfo = Word32 + type AttrLabel TableChildXfillFieldInfo = "xfill" + attrGet _ = tableChildReadXfill + attrSet _ = tableChildWriteXfill + attrConstruct = undefined + attrClear _ = undefined + +tableChildXfill :: AttrLabelProxy "xfill" +tableChildXfill = AttrLabelProxy + + +tableChildReadYfill :: MonadIO m => TableChild -> m Word32 +tableChildReadYfill s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 40) :: IO Word32 return val + +tableChildWriteYfill :: MonadIO m => TableChild -> Word32 -> m () +tableChildWriteYfill s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 40) (val :: Word32) + +data TableChildYfillFieldInfo +instance AttrInfo TableChildYfillFieldInfo where + type AttrAllowedOps TableChildYfillFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint TableChildYfillFieldInfo = (~) Word32 + type AttrBaseTypeConstraint TableChildYfillFieldInfo = (~) TableChild + type AttrGetType TableChildYfillFieldInfo = Word32 + type AttrLabel TableChildYfillFieldInfo = "yfill" + attrGet _ = tableChildReadYfill + attrSet _ = tableChildWriteYfill + attrConstruct = undefined + attrClear _ = undefined + +tableChildYfill :: AttrLabelProxy "yfill" +tableChildYfill = AttrLabelProxy + + + +type instance AttributeList TableChild = TableChildAttributeList +type TableChildAttributeList = ('[ '("widget", TableChildWidgetFieldInfo), '("leftAttach", TableChildLeftAttachFieldInfo), '("rightAttach", TableChildRightAttachFieldInfo), '("topAttach", TableChildTopAttachFieldInfo), '("bottomAttach", TableChildBottomAttachFieldInfo), '("xpadding", TableChildXpaddingFieldInfo), '("ypadding", TableChildYpaddingFieldInfo), '("xexpand", TableChildXexpandFieldInfo), '("yexpand", TableChildYexpandFieldInfo), '("xshrink", TableChildXshrinkFieldInfo), '("yshrink", TableChildYshrinkFieldInfo), '("xfill", TableChildXfillFieldInfo), '("yfill", TableChildYfillFieldInfo)] :: [(Symbol, *)]) type family ResolveTableChildMethod (t :: Symbol) (o :: *) :: * where ResolveTableChildMethod l o = MethodResolutionFailed l o diff --git a/GI/Gtk/Structs/TableChild.hs-boot b/GI/Gtk/Structs/TableChild.hs-boot --- a/GI/Gtk/Structs/TableChild.hs-boot +++ b/GI/Gtk/Structs/TableChild.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Structs.TableChild where -import Prelude () 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 diff --git a/GI/Gtk/Structs/TableRowCol.hs b/GI/Gtk/Structs/TableRowCol.hs --- a/GI/Gtk/Structs/TableRowCol.hs +++ b/GI/Gtk/Structs/TableRowCol.hs @@ -17,44 +17,60 @@ -- * Properties -- ** Allocation + tableRowColAllocation , tableRowColReadAllocation , + tableRowColWriteAllocation , -- ** Empty + tableRowColEmpty , tableRowColReadEmpty , + tableRowColWriteEmpty , -- ** Expand + tableRowColExpand , tableRowColReadExpand , + tableRowColWriteExpand , -- ** NeedExpand + tableRowColNeedExpand , tableRowColReadNeedExpand , + tableRowColWriteNeedExpand , -- ** NeedShrink + tableRowColNeedShrink , tableRowColReadNeedShrink , + tableRowColWriteNeedShrink , -- ** Requisition tableRowColReadRequisition , + tableRowColRequisition , + tableRowColWriteRequisition , -- ** Shrink tableRowColReadShrink , + tableRowColShrink , + tableRowColWriteShrink , -- ** Spacing tableRowColReadSpacing , + tableRowColSpacing , + tableRowColWriteSpacing , ) where -import Prelude () 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 @@ -67,48 +83,219 @@ newZeroTableRowCol :: MonadIO m => m TableRowCol newZeroTableRowCol = liftIO $ callocBytes 28 >>= wrapPtr TableRowCol +instance tag ~ 'AttrSet => Constructible TableRowCol tag where + new _ attrs = do + o <- newZeroTableRowCol + GI.Attributes.set o attrs + return o + + noTableRowCol :: Maybe TableRowCol noTableRowCol = Nothing -tableRowColReadRequisition :: TableRowCol -> IO Word16 -tableRowColReadRequisition s = withManagedPtr s $ \ptr -> do +tableRowColReadRequisition :: MonadIO m => TableRowCol -> m Word16 +tableRowColReadRequisition s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO Word16 return val -tableRowColReadAllocation :: TableRowCol -> IO Word16 -tableRowColReadAllocation s = withManagedPtr s $ \ptr -> do +tableRowColWriteRequisition :: MonadIO m => TableRowCol -> Word16 -> m () +tableRowColWriteRequisition s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 0) (val :: Word16) + +data TableRowColRequisitionFieldInfo +instance AttrInfo TableRowColRequisitionFieldInfo where + type AttrAllowedOps TableRowColRequisitionFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint TableRowColRequisitionFieldInfo = (~) Word16 + type AttrBaseTypeConstraint TableRowColRequisitionFieldInfo = (~) TableRowCol + type AttrGetType TableRowColRequisitionFieldInfo = Word16 + type AttrLabel TableRowColRequisitionFieldInfo = "requisition" + attrGet _ = tableRowColReadRequisition + attrSet _ = tableRowColWriteRequisition + attrConstruct = undefined + attrClear _ = undefined + +tableRowColRequisition :: AttrLabelProxy "requisition" +tableRowColRequisition = AttrLabelProxy + + +tableRowColReadAllocation :: MonadIO m => TableRowCol -> m Word16 +tableRowColReadAllocation s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 2) :: IO Word16 return val -tableRowColReadSpacing :: TableRowCol -> IO Word16 -tableRowColReadSpacing s = withManagedPtr s $ \ptr -> do +tableRowColWriteAllocation :: MonadIO m => TableRowCol -> Word16 -> m () +tableRowColWriteAllocation s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 2) (val :: Word16) + +data TableRowColAllocationFieldInfo +instance AttrInfo TableRowColAllocationFieldInfo where + type AttrAllowedOps TableRowColAllocationFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint TableRowColAllocationFieldInfo = (~) Word16 + type AttrBaseTypeConstraint TableRowColAllocationFieldInfo = (~) TableRowCol + type AttrGetType TableRowColAllocationFieldInfo = Word16 + type AttrLabel TableRowColAllocationFieldInfo = "allocation" + attrGet _ = tableRowColReadAllocation + attrSet _ = tableRowColWriteAllocation + attrConstruct = undefined + attrClear _ = undefined + +tableRowColAllocation :: AttrLabelProxy "allocation" +tableRowColAllocation = AttrLabelProxy + + +tableRowColReadSpacing :: MonadIO m => TableRowCol -> m Word16 +tableRowColReadSpacing s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 4) :: IO Word16 return val -tableRowColReadNeedExpand :: TableRowCol -> IO Word32 -tableRowColReadNeedExpand s = withManagedPtr s $ \ptr -> do +tableRowColWriteSpacing :: MonadIO m => TableRowCol -> Word16 -> m () +tableRowColWriteSpacing s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 4) (val :: Word16) + +data TableRowColSpacingFieldInfo +instance AttrInfo TableRowColSpacingFieldInfo where + type AttrAllowedOps TableRowColSpacingFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint TableRowColSpacingFieldInfo = (~) Word16 + type AttrBaseTypeConstraint TableRowColSpacingFieldInfo = (~) TableRowCol + type AttrGetType TableRowColSpacingFieldInfo = Word16 + type AttrLabel TableRowColSpacingFieldInfo = "spacing" + attrGet _ = tableRowColReadSpacing + attrSet _ = tableRowColWriteSpacing + attrConstruct = undefined + attrClear _ = undefined + +tableRowColSpacing :: AttrLabelProxy "spacing" +tableRowColSpacing = AttrLabelProxy + + +tableRowColReadNeedExpand :: MonadIO m => TableRowCol -> m Word32 +tableRowColReadNeedExpand s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 8) :: IO Word32 return val -tableRowColReadNeedShrink :: TableRowCol -> IO Word32 -tableRowColReadNeedShrink s = withManagedPtr s $ \ptr -> do +tableRowColWriteNeedExpand :: MonadIO m => TableRowCol -> Word32 -> m () +tableRowColWriteNeedExpand s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 8) (val :: Word32) + +data TableRowColNeedExpandFieldInfo +instance AttrInfo TableRowColNeedExpandFieldInfo where + type AttrAllowedOps TableRowColNeedExpandFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint TableRowColNeedExpandFieldInfo = (~) Word32 + type AttrBaseTypeConstraint TableRowColNeedExpandFieldInfo = (~) TableRowCol + type AttrGetType TableRowColNeedExpandFieldInfo = Word32 + type AttrLabel TableRowColNeedExpandFieldInfo = "need_expand" + attrGet _ = tableRowColReadNeedExpand + attrSet _ = tableRowColWriteNeedExpand + attrConstruct = undefined + attrClear _ = undefined + +tableRowColNeedExpand :: AttrLabelProxy "needExpand" +tableRowColNeedExpand = AttrLabelProxy + + +tableRowColReadNeedShrink :: MonadIO m => TableRowCol -> m Word32 +tableRowColReadNeedShrink s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 12) :: IO Word32 return val -tableRowColReadExpand :: TableRowCol -> IO Word32 -tableRowColReadExpand s = withManagedPtr s $ \ptr -> do +tableRowColWriteNeedShrink :: MonadIO m => TableRowCol -> Word32 -> m () +tableRowColWriteNeedShrink s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 12) (val :: Word32) + +data TableRowColNeedShrinkFieldInfo +instance AttrInfo TableRowColNeedShrinkFieldInfo where + type AttrAllowedOps TableRowColNeedShrinkFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint TableRowColNeedShrinkFieldInfo = (~) Word32 + type AttrBaseTypeConstraint TableRowColNeedShrinkFieldInfo = (~) TableRowCol + type AttrGetType TableRowColNeedShrinkFieldInfo = Word32 + type AttrLabel TableRowColNeedShrinkFieldInfo = "need_shrink" + attrGet _ = tableRowColReadNeedShrink + attrSet _ = tableRowColWriteNeedShrink + attrConstruct = undefined + attrClear _ = undefined + +tableRowColNeedShrink :: AttrLabelProxy "needShrink" +tableRowColNeedShrink = AttrLabelProxy + + +tableRowColReadExpand :: MonadIO m => TableRowCol -> m Word32 +tableRowColReadExpand s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 16) :: IO Word32 return val -tableRowColReadShrink :: TableRowCol -> IO Word32 -tableRowColReadShrink s = withManagedPtr s $ \ptr -> do +tableRowColWriteExpand :: MonadIO m => TableRowCol -> Word32 -> m () +tableRowColWriteExpand s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 16) (val :: Word32) + +data TableRowColExpandFieldInfo +instance AttrInfo TableRowColExpandFieldInfo where + type AttrAllowedOps TableRowColExpandFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint TableRowColExpandFieldInfo = (~) Word32 + type AttrBaseTypeConstraint TableRowColExpandFieldInfo = (~) TableRowCol + type AttrGetType TableRowColExpandFieldInfo = Word32 + type AttrLabel TableRowColExpandFieldInfo = "expand" + attrGet _ = tableRowColReadExpand + attrSet _ = tableRowColWriteExpand + attrConstruct = undefined + attrClear _ = undefined + +tableRowColExpand :: AttrLabelProxy "expand" +tableRowColExpand = AttrLabelProxy + + +tableRowColReadShrink :: MonadIO m => TableRowCol -> m Word32 +tableRowColReadShrink s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 20) :: IO Word32 return val -tableRowColReadEmpty :: TableRowCol -> IO Word32 -tableRowColReadEmpty s = withManagedPtr s $ \ptr -> do +tableRowColWriteShrink :: MonadIO m => TableRowCol -> Word32 -> m () +tableRowColWriteShrink s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 20) (val :: Word32) + +data TableRowColShrinkFieldInfo +instance AttrInfo TableRowColShrinkFieldInfo where + type AttrAllowedOps TableRowColShrinkFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint TableRowColShrinkFieldInfo = (~) Word32 + type AttrBaseTypeConstraint TableRowColShrinkFieldInfo = (~) TableRowCol + type AttrGetType TableRowColShrinkFieldInfo = Word32 + type AttrLabel TableRowColShrinkFieldInfo = "shrink" + attrGet _ = tableRowColReadShrink + attrSet _ = tableRowColWriteShrink + attrConstruct = undefined + attrClear _ = undefined + +tableRowColShrink :: AttrLabelProxy "shrink" +tableRowColShrink = AttrLabelProxy + + +tableRowColReadEmpty :: MonadIO m => TableRowCol -> m Word32 +tableRowColReadEmpty s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 24) :: IO Word32 return val + +tableRowColWriteEmpty :: MonadIO m => TableRowCol -> Word32 -> m () +tableRowColWriteEmpty s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 24) (val :: Word32) + +data TableRowColEmptyFieldInfo +instance AttrInfo TableRowColEmptyFieldInfo where + type AttrAllowedOps TableRowColEmptyFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint TableRowColEmptyFieldInfo = (~) Word32 + type AttrBaseTypeConstraint TableRowColEmptyFieldInfo = (~) TableRowCol + type AttrGetType TableRowColEmptyFieldInfo = Word32 + type AttrLabel TableRowColEmptyFieldInfo = "empty" + attrGet _ = tableRowColReadEmpty + attrSet _ = tableRowColWriteEmpty + attrConstruct = undefined + attrClear _ = undefined + +tableRowColEmpty :: AttrLabelProxy "empty" +tableRowColEmpty = AttrLabelProxy + + + +type instance AttributeList TableRowCol = TableRowColAttributeList +type TableRowColAttributeList = ('[ '("requisition", TableRowColRequisitionFieldInfo), '("allocation", TableRowColAllocationFieldInfo), '("spacing", TableRowColSpacingFieldInfo), '("needExpand", TableRowColNeedExpandFieldInfo), '("needShrink", TableRowColNeedShrinkFieldInfo), '("expand", TableRowColExpandFieldInfo), '("shrink", TableRowColShrinkFieldInfo), '("empty", TableRowColEmptyFieldInfo)] :: [(Symbol, *)]) type family ResolveTableRowColMethod (t :: Symbol) (o :: *) :: * where ResolveTableRowColMethod l o = MethodResolutionFailed l o diff --git a/GI/Gtk/Structs/TableRowCol.hs-boot b/GI/Gtk/Structs/TableRowCol.hs-boot --- a/GI/Gtk/Structs/TableRowCol.hs-boot +++ b/GI/Gtk/Structs/TableRowCol.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Structs.TableRowCol where -import Prelude () 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 diff --git a/GI/Gtk/Structs/TargetEntry.hs b/GI/Gtk/Structs/TargetEntry.hs --- a/GI/Gtk/Structs/TargetEntry.hs +++ b/GI/Gtk/Structs/TargetEntry.hs @@ -38,24 +38,31 @@ -- * Properties -- ** Flags + targetEntryFlags , targetEntryReadFlags , + targetEntryWriteFlags , -- ** Info + targetEntryInfo , targetEntryReadInfo , + targetEntryWriteInfo , -- ** Target + targetEntryClearTarget , targetEntryReadTarget , + targetEntryTarget , + targetEntryWriteTarget , ) where -import Prelude () 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 @@ -74,37 +81,114 @@ newZeroTargetEntry :: MonadIO m => m TargetEntry newZeroTargetEntry = liftIO $ callocBoxedBytes 16 >>= wrapBoxed TargetEntry +instance tag ~ 'AttrSet => Constructible TargetEntry tag where + new _ attrs = do + o <- newZeroTargetEntry + GI.Attributes.set o attrs + return o + + noTargetEntry :: Maybe TargetEntry noTargetEntry = Nothing -targetEntryReadTarget :: TargetEntry -> IO T.Text -targetEntryReadTarget s = withManagedPtr s $ \ptr -> do +targetEntryReadTarget :: MonadIO m => TargetEntry -> m (Maybe T.Text) +targetEntryReadTarget s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO CString - val' <- cstringToText val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- cstringToText val' + return val'' + return result -targetEntryReadFlags :: TargetEntry -> IO Word32 -targetEntryReadFlags s = withManagedPtr s $ \ptr -> do +targetEntryWriteTarget :: MonadIO m => TargetEntry -> CString -> m () +targetEntryWriteTarget s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 0) (val :: CString) + +targetEntryClearTarget :: MonadIO m => TargetEntry -> m () +targetEntryClearTarget s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 0) (nullPtr :: CString) + +data TargetEntryTargetFieldInfo +instance AttrInfo TargetEntryTargetFieldInfo where + type AttrAllowedOps TargetEntryTargetFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint TargetEntryTargetFieldInfo = (~) CString + type AttrBaseTypeConstraint TargetEntryTargetFieldInfo = (~) TargetEntry + type AttrGetType TargetEntryTargetFieldInfo = Maybe T.Text + type AttrLabel TargetEntryTargetFieldInfo = "target" + attrGet _ = targetEntryReadTarget + attrSet _ = targetEntryWriteTarget + attrConstruct = undefined + attrClear _ = targetEntryClearTarget + +targetEntryTarget :: AttrLabelProxy "target" +targetEntryTarget = AttrLabelProxy + + +targetEntryReadFlags :: MonadIO m => TargetEntry -> m Word32 +targetEntryReadFlags s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 8) :: IO Word32 return val -targetEntryReadInfo :: TargetEntry -> IO Word32 -targetEntryReadInfo s = withManagedPtr s $ \ptr -> do +targetEntryWriteFlags :: MonadIO m => TargetEntry -> Word32 -> m () +targetEntryWriteFlags s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 8) (val :: Word32) + +data TargetEntryFlagsFieldInfo +instance AttrInfo TargetEntryFlagsFieldInfo where + type AttrAllowedOps TargetEntryFlagsFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint TargetEntryFlagsFieldInfo = (~) Word32 + type AttrBaseTypeConstraint TargetEntryFlagsFieldInfo = (~) TargetEntry + type AttrGetType TargetEntryFlagsFieldInfo = Word32 + type AttrLabel TargetEntryFlagsFieldInfo = "flags" + attrGet _ = targetEntryReadFlags + attrSet _ = targetEntryWriteFlags + attrConstruct = undefined + attrClear _ = undefined + +targetEntryFlags :: AttrLabelProxy "flags" +targetEntryFlags = AttrLabelProxy + + +targetEntryReadInfo :: MonadIO m => TargetEntry -> m Word32 +targetEntryReadInfo s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 12) :: IO Word32 return val +targetEntryWriteInfo :: MonadIO m => TargetEntry -> Word32 -> m () +targetEntryWriteInfo s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 12) (val :: Word32) + +data TargetEntryInfoFieldInfo +instance AttrInfo TargetEntryInfoFieldInfo where + type AttrAllowedOps TargetEntryInfoFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint TargetEntryInfoFieldInfo = (~) Word32 + type AttrBaseTypeConstraint TargetEntryInfoFieldInfo = (~) TargetEntry + type AttrGetType TargetEntryInfoFieldInfo = Word32 + type AttrLabel TargetEntryInfoFieldInfo = "info" + attrGet _ = targetEntryReadInfo + attrSet _ = targetEntryWriteInfo + attrConstruct = undefined + attrClear _ = undefined + +targetEntryInfo :: AttrLabelProxy "info" +targetEntryInfo = AttrLabelProxy + + + +type instance AttributeList TargetEntry = TargetEntryAttributeList +type TargetEntryAttributeList = ('[ '("target", TargetEntryTargetFieldInfo), '("flags", TargetEntryFlagsFieldInfo), '("info", TargetEntryInfoFieldInfo)] :: [(Symbol, *)]) + -- method TargetEntry::new -- method type : Constructor --- Args : [Arg {argCName = "target", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "target", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "TargetEntry" +-- returnType : Just (TInterface "Gtk" "TargetEntry") -- throws : False -- Skip return : False foreign import ccall "gtk_target_entry_new" gtk_target_entry_new :: CString -> -- target : TBasicType TUTF8 - Word32 -> -- flags : TBasicType TUInt32 - Word32 -> -- info : TBasicType TUInt32 + Word32 -> -- flags : TBasicType TUInt + Word32 -> -- info : TBasicType TUInt IO (Ptr TargetEntry) @@ -126,7 +210,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TargetEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "TargetEntry" +-- returnType : Just (TInterface "Gtk" "TargetEntry") -- throws : False -- Skip return : False @@ -155,7 +239,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TargetEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Structs/TargetEntry.hs-boot b/GI/Gtk/Structs/TargetEntry.hs-boot --- a/GI/Gtk/Structs/TargetEntry.hs-boot +++ b/GI/Gtk/Structs/TargetEntry.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Structs.TargetEntry where -import Prelude () 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 diff --git a/GI/Gtk/Structs/TargetList.hs b/GI/Gtk/Structs/TargetList.hs --- a/GI/Gtk/Structs/TargetList.hs +++ b/GI/Gtk/Structs/TargetList.hs @@ -77,9 +77,9 @@ ) where -import Prelude () 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 @@ -98,17 +98,21 @@ noTargetList :: Maybe TargetList noTargetList = Nothing + +type instance AttributeList TargetList = TargetListAttributeList +type TargetListAttributeList = ('[ ] :: [(Symbol, *)]) + -- method TargetList::new -- method type : Constructor --- Args : [Arg {argCName = "targets", argType = TCArray False (-1) 1 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ntargets", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "ntargets", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "TargetList" +-- Args : [Arg {argCName = "targets", argType = TCArray False (-1) 1 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ntargets", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "ntargets", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- returnType : Just (TInterface "Gtk" "TargetList") -- throws : False -- Skip return : False foreign import ccall "gtk_target_list_new" gtk_target_list_new :: Ptr TargetEntry -> -- targets : TCArray False (-1) 1 (TInterface "Gtk" "TargetEntry") - Word32 -> -- ntargets : TBasicType TUInt32 + Word32 -> -- ntargets : TBasicType TUInt IO (Ptr TargetList) @@ -135,17 +139,17 @@ -- method TargetList::add -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TargetList", 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 = "flags", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TargetList", 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 = "flags", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_target_list_add" gtk_target_list_add :: Ptr TargetList -> -- _obj : TInterface "Gtk" "TargetList" Ptr Gdk.Atom -> -- target : TInterface "Gdk" "Atom" - Word32 -> -- flags : TBasicType TUInt32 - Word32 -> -- info : TBasicType TUInt32 + Word32 -> -- flags : TBasicType TUInt + Word32 -> -- info : TBasicType TUInt IO () @@ -170,15 +174,15 @@ -- method TargetList::add_image_targets -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "writable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "writable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_target_list_add_image_targets" gtk_target_list_add_image_targets :: Ptr TargetList -> -- _obj : TInterface "Gtk" "TargetList" - Word32 -> -- info : TBasicType TUInt32 + Word32 -> -- info : TBasicType TUInt CInt -> -- writable : TBasicType TBoolean IO () @@ -202,15 +206,15 @@ -- method TargetList::add_rich_text_targets -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "deserializable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "deserializable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_target_list_add_rich_text_targets" gtk_target_list_add_rich_text_targets :: Ptr TargetList -> -- _obj : TInterface "Gtk" "TargetList" - Word32 -> -- info : TBasicType TUInt32 + Word32 -> -- info : TBasicType TUInt CInt -> -- deserializable : TBasicType TBoolean Ptr TextBuffer -> -- buffer : TInterface "Gtk" "TextBuffer" IO () @@ -238,16 +242,16 @@ -- method TargetList::add_table -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TCArray False (-1) 2 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ntargets", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "ntargets", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : TBasicType TVoid +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TCArray False (-1) 2 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ntargets", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "ntargets", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_target_list_add_table" gtk_target_list_add_table :: Ptr TargetList -> -- _obj : TInterface "Gtk" "TargetList" Ptr TargetEntry -> -- targets : TCArray False (-1) 2 (TInterface "Gtk" "TargetEntry") - Word32 -> -- ntargets : TBasicType TUInt32 + Word32 -> -- ntargets : TBasicType TUInt IO () @@ -273,15 +277,15 @@ -- method TargetList::add_text_targets -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_target_list_add_text_targets" gtk_target_list_add_text_targets :: Ptr TargetList -> -- _obj : TInterface "Gtk" "TargetList" - Word32 -> -- info : TBasicType TUInt32 + Word32 -> -- info : TBasicType TUInt IO () @@ -302,15 +306,15 @@ -- method TargetList::add_uri_targets -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_target_list_add_uri_targets" gtk_target_list_add_uri_targets :: Ptr TargetList -> -- _obj : TInterface "Gtk" "TargetList" - Word32 -> -- info : TBasicType TUInt32 + Word32 -> -- info : TBasicType TUInt IO () @@ -331,16 +335,16 @@ -- method TargetList::find -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TargetList", 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 = "info", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TargetList", 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 = "info", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_target_list_find" gtk_target_list_find :: Ptr TargetList -> -- _obj : TInterface "Gtk" "TargetList" Ptr Gdk.Atom -> -- target : TInterface "Gdk" "Atom" - Ptr Word32 -> -- info : TBasicType TUInt32 + Ptr Word32 -> -- info : TBasicType TUInt IO CInt @@ -369,7 +373,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "TargetList" +-- returnType : Just (TInterface "Gtk" "TargetList") -- throws : False -- Skip return : False @@ -398,7 +402,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TargetList", 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}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -429,7 +433,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Structs/TargetList.hs-boot b/GI/Gtk/Structs/TargetList.hs-boot --- a/GI/Gtk/Structs/TargetList.hs-boot +++ b/GI/Gtk/Structs/TargetList.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Structs.TargetList where -import Prelude () 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 diff --git a/GI/Gtk/Structs/TargetPair.hs b/GI/Gtk/Structs/TargetPair.hs --- a/GI/Gtk/Structs/TargetPair.hs +++ b/GI/Gtk/Structs/TargetPair.hs @@ -21,24 +21,31 @@ -- * Properties -- ** Flags + targetPairFlags , targetPairReadFlags , + targetPairWriteFlags , -- ** Info + targetPairInfo , targetPairReadInfo , + targetPairWriteInfo , -- ** Target + targetPairClearTarget , targetPairReadTarget , + targetPairTarget , + targetPairWriteTarget , ) where -import Prelude () 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 @@ -52,25 +59,102 @@ newZeroTargetPair :: MonadIO m => m TargetPair newZeroTargetPair = liftIO $ callocBytes 16 >>= wrapPtr TargetPair +instance tag ~ 'AttrSet => Constructible TargetPair tag where + new _ attrs = do + o <- newZeroTargetPair + GI.Attributes.set o attrs + return o + + noTargetPair :: Maybe TargetPair noTargetPair = Nothing -targetPairReadTarget :: TargetPair -> IO Gdk.Atom -targetPairReadTarget s = withManagedPtr s $ \ptr -> do +targetPairReadTarget :: MonadIO m => TargetPair -> m (Maybe Gdk.Atom) +targetPairReadTarget s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO (Ptr Gdk.Atom) - -- XXX Wrapping a foreign struct/union with no known destructor, leak? - val' <- (\x -> Gdk.Atom <$> newForeignPtr_ x) val - return val' + result <- convertIfNonNull val $ \val' -> do + -- XXX Wrapping a foreign struct/union with no known destructor, leak? + val'' <- (\x -> Gdk.Atom <$> newForeignPtr_ x) val' + return val'' + return result -targetPairReadFlags :: TargetPair -> IO Word32 -targetPairReadFlags s = withManagedPtr s $ \ptr -> do +targetPairWriteTarget :: MonadIO m => TargetPair -> Ptr Gdk.Atom -> m () +targetPairWriteTarget s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 0) (val :: Ptr Gdk.Atom) + +targetPairClearTarget :: MonadIO m => TargetPair -> m () +targetPairClearTarget s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 0) (nullPtr :: Ptr Gdk.Atom) + +data TargetPairTargetFieldInfo +instance AttrInfo TargetPairTargetFieldInfo where + type AttrAllowedOps TargetPairTargetFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint TargetPairTargetFieldInfo = (~) (Ptr Gdk.Atom) + type AttrBaseTypeConstraint TargetPairTargetFieldInfo = (~) TargetPair + type AttrGetType TargetPairTargetFieldInfo = Maybe Gdk.Atom + type AttrLabel TargetPairTargetFieldInfo = "target" + attrGet _ = targetPairReadTarget + attrSet _ = targetPairWriteTarget + attrConstruct = undefined + attrClear _ = targetPairClearTarget + +targetPairTarget :: AttrLabelProxy "target" +targetPairTarget = AttrLabelProxy + + +targetPairReadFlags :: MonadIO m => TargetPair -> m Word32 +targetPairReadFlags s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 8) :: IO Word32 return val -targetPairReadInfo :: TargetPair -> IO Word32 -targetPairReadInfo s = withManagedPtr s $ \ptr -> do +targetPairWriteFlags :: MonadIO m => TargetPair -> Word32 -> m () +targetPairWriteFlags s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 8) (val :: Word32) + +data TargetPairFlagsFieldInfo +instance AttrInfo TargetPairFlagsFieldInfo where + type AttrAllowedOps TargetPairFlagsFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint TargetPairFlagsFieldInfo = (~) Word32 + type AttrBaseTypeConstraint TargetPairFlagsFieldInfo = (~) TargetPair + type AttrGetType TargetPairFlagsFieldInfo = Word32 + type AttrLabel TargetPairFlagsFieldInfo = "flags" + attrGet _ = targetPairReadFlags + attrSet _ = targetPairWriteFlags + attrConstruct = undefined + attrClear _ = undefined + +targetPairFlags :: AttrLabelProxy "flags" +targetPairFlags = AttrLabelProxy + + +targetPairReadInfo :: MonadIO m => TargetPair -> m Word32 +targetPairReadInfo s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 12) :: IO Word32 return val + +targetPairWriteInfo :: MonadIO m => TargetPair -> Word32 -> m () +targetPairWriteInfo s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 12) (val :: Word32) + +data TargetPairInfoFieldInfo +instance AttrInfo TargetPairInfoFieldInfo where + type AttrAllowedOps TargetPairInfoFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint TargetPairInfoFieldInfo = (~) Word32 + type AttrBaseTypeConstraint TargetPairInfoFieldInfo = (~) TargetPair + type AttrGetType TargetPairInfoFieldInfo = Word32 + type AttrLabel TargetPairInfoFieldInfo = "info" + attrGet _ = targetPairReadInfo + attrSet _ = targetPairWriteInfo + attrConstruct = undefined + attrClear _ = undefined + +targetPairInfo :: AttrLabelProxy "info" +targetPairInfo = AttrLabelProxy + + + +type instance AttributeList TargetPair = TargetPairAttributeList +type TargetPairAttributeList = ('[ '("target", TargetPairTargetFieldInfo), '("flags", TargetPairFlagsFieldInfo), '("info", TargetPairInfoFieldInfo)] :: [(Symbol, *)]) type family ResolveTargetPairMethod (t :: Symbol) (o :: *) :: * where ResolveTargetPairMethod l o = MethodResolutionFailed l o diff --git a/GI/Gtk/Structs/TargetPair.hs-boot b/GI/Gtk/Structs/TargetPair.hs-boot --- a/GI/Gtk/Structs/TargetPair.hs-boot +++ b/GI/Gtk/Structs/TargetPair.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Structs.TargetPair where -import Prelude () 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 diff --git a/GI/Gtk/Structs/TextAppearance.hs b/GI/Gtk/Structs/TextAppearance.hs --- a/GI/Gtk/Structs/TextAppearance.hs +++ b/GI/Gtk/Structs/TextAppearance.hs @@ -17,44 +17,62 @@ -- * Properties -- ** BgColor + textAppearanceBgColor , + textAppearanceClearBgColor , textAppearanceReadBgColor , + textAppearanceWriteBgColor , -- ** DrawBg + textAppearanceDrawBg , textAppearanceReadDrawBg , + textAppearanceWriteDrawBg , -- ** FgColor + textAppearanceClearFgColor , + textAppearanceFgColor , textAppearanceReadFgColor , + textAppearanceWriteFgColor , -- ** InsideSelection + textAppearanceInsideSelection , textAppearanceReadInsideSelection , + textAppearanceWriteInsideSelection , -- ** IsText + textAppearanceIsText , textAppearanceReadIsText , + textAppearanceWriteIsText , -- ** Rise textAppearanceReadRise , + textAppearanceRise , + textAppearanceWriteRise , -- ** Strikethrough textAppearanceReadStrikethrough , + textAppearanceStrikethrough , + textAppearanceWriteStrikethrough , -- ** Underline textAppearanceReadUnderline , + textAppearanceUnderline , + textAppearanceWriteUnderline , ) where -import Prelude () 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 @@ -68,50 +86,233 @@ newZeroTextAppearance :: MonadIO m => m TextAppearance newZeroTextAppearance = liftIO $ callocBytes 48 >>= wrapPtr TextAppearance +instance tag ~ 'AttrSet => Constructible TextAppearance tag where + new _ attrs = do + o <- newZeroTextAppearance + GI.Attributes.set o attrs + return o + + noTextAppearance :: Maybe TextAppearance noTextAppearance = Nothing -textAppearanceReadBgColor :: TextAppearance -> IO Gdk.Color -textAppearanceReadBgColor s = withManagedPtr s $ \ptr -> do +textAppearanceReadBgColor :: MonadIO m => TextAppearance -> m (Maybe Gdk.Color) +textAppearanceReadBgColor s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO (Ptr Gdk.Color) - val' <- (newBoxed Gdk.Color) val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- (newBoxed Gdk.Color) val' + return val'' + return result -textAppearanceReadFgColor :: TextAppearance -> IO Gdk.Color -textAppearanceReadFgColor s = withManagedPtr s $ \ptr -> do +textAppearanceWriteBgColor :: MonadIO m => TextAppearance -> Ptr Gdk.Color -> m () +textAppearanceWriteBgColor s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 0) (val :: Ptr Gdk.Color) + +textAppearanceClearBgColor :: MonadIO m => TextAppearance -> m () +textAppearanceClearBgColor s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 0) (nullPtr :: Ptr Gdk.Color) + +data TextAppearanceBgColorFieldInfo +instance AttrInfo TextAppearanceBgColorFieldInfo where + type AttrAllowedOps TextAppearanceBgColorFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint TextAppearanceBgColorFieldInfo = (~) (Ptr Gdk.Color) + type AttrBaseTypeConstraint TextAppearanceBgColorFieldInfo = (~) TextAppearance + type AttrGetType TextAppearanceBgColorFieldInfo = Maybe Gdk.Color + type AttrLabel TextAppearanceBgColorFieldInfo = "bg_color" + attrGet _ = textAppearanceReadBgColor + attrSet _ = textAppearanceWriteBgColor + attrConstruct = undefined + attrClear _ = textAppearanceClearBgColor + +textAppearanceBgColor :: AttrLabelProxy "bgColor" +textAppearanceBgColor = AttrLabelProxy + + +textAppearanceReadFgColor :: MonadIO m => TextAppearance -> m (Maybe Gdk.Color) +textAppearanceReadFgColor s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 12) :: IO (Ptr Gdk.Color) - val' <- (newBoxed Gdk.Color) val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- (newBoxed Gdk.Color) val' + return val'' + return result -textAppearanceReadRise :: TextAppearance -> IO Int32 -textAppearanceReadRise s = withManagedPtr s $ \ptr -> do +textAppearanceWriteFgColor :: MonadIO m => TextAppearance -> Ptr Gdk.Color -> m () +textAppearanceWriteFgColor s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 12) (val :: Ptr Gdk.Color) + +textAppearanceClearFgColor :: MonadIO m => TextAppearance -> m () +textAppearanceClearFgColor s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 12) (nullPtr :: Ptr Gdk.Color) + +data TextAppearanceFgColorFieldInfo +instance AttrInfo TextAppearanceFgColorFieldInfo where + type AttrAllowedOps TextAppearanceFgColorFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint TextAppearanceFgColorFieldInfo = (~) (Ptr Gdk.Color) + type AttrBaseTypeConstraint TextAppearanceFgColorFieldInfo = (~) TextAppearance + type AttrGetType TextAppearanceFgColorFieldInfo = Maybe Gdk.Color + type AttrLabel TextAppearanceFgColorFieldInfo = "fg_color" + attrGet _ = textAppearanceReadFgColor + attrSet _ = textAppearanceWriteFgColor + attrConstruct = undefined + attrClear _ = textAppearanceClearFgColor + +textAppearanceFgColor :: AttrLabelProxy "fgColor" +textAppearanceFgColor = AttrLabelProxy + + +textAppearanceReadRise :: MonadIO m => TextAppearance -> m Int32 +textAppearanceReadRise s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 24) :: IO Int32 return val -textAppearanceReadUnderline :: TextAppearance -> IO Word32 -textAppearanceReadUnderline s = withManagedPtr s $ \ptr -> do +textAppearanceWriteRise :: MonadIO m => TextAppearance -> Int32 -> m () +textAppearanceWriteRise s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 24) (val :: Int32) + +data TextAppearanceRiseFieldInfo +instance AttrInfo TextAppearanceRiseFieldInfo where + type AttrAllowedOps TextAppearanceRiseFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint TextAppearanceRiseFieldInfo = (~) Int32 + type AttrBaseTypeConstraint TextAppearanceRiseFieldInfo = (~) TextAppearance + type AttrGetType TextAppearanceRiseFieldInfo = Int32 + type AttrLabel TextAppearanceRiseFieldInfo = "rise" + attrGet _ = textAppearanceReadRise + attrSet _ = textAppearanceWriteRise + attrConstruct = undefined + attrClear _ = undefined + +textAppearanceRise :: AttrLabelProxy "rise" +textAppearanceRise = AttrLabelProxy + + +textAppearanceReadUnderline :: MonadIO m => TextAppearance -> m Word32 +textAppearanceReadUnderline s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 28) :: IO Word32 return val -textAppearanceReadStrikethrough :: TextAppearance -> IO Word32 -textAppearanceReadStrikethrough s = withManagedPtr s $ \ptr -> do +textAppearanceWriteUnderline :: MonadIO m => TextAppearance -> Word32 -> m () +textAppearanceWriteUnderline s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 28) (val :: Word32) + +data TextAppearanceUnderlineFieldInfo +instance AttrInfo TextAppearanceUnderlineFieldInfo where + type AttrAllowedOps TextAppearanceUnderlineFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint TextAppearanceUnderlineFieldInfo = (~) Word32 + type AttrBaseTypeConstraint TextAppearanceUnderlineFieldInfo = (~) TextAppearance + type AttrGetType TextAppearanceUnderlineFieldInfo = Word32 + type AttrLabel TextAppearanceUnderlineFieldInfo = "underline" + attrGet _ = textAppearanceReadUnderline + attrSet _ = textAppearanceWriteUnderline + attrConstruct = undefined + attrClear _ = undefined + +textAppearanceUnderline :: AttrLabelProxy "underline" +textAppearanceUnderline = AttrLabelProxy + + +textAppearanceReadStrikethrough :: MonadIO m => TextAppearance -> m Word32 +textAppearanceReadStrikethrough s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 32) :: IO Word32 return val -textAppearanceReadDrawBg :: TextAppearance -> IO Word32 -textAppearanceReadDrawBg s = withManagedPtr s $ \ptr -> do +textAppearanceWriteStrikethrough :: MonadIO m => TextAppearance -> Word32 -> m () +textAppearanceWriteStrikethrough s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 32) (val :: Word32) + +data TextAppearanceStrikethroughFieldInfo +instance AttrInfo TextAppearanceStrikethroughFieldInfo where + type AttrAllowedOps TextAppearanceStrikethroughFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint TextAppearanceStrikethroughFieldInfo = (~) Word32 + type AttrBaseTypeConstraint TextAppearanceStrikethroughFieldInfo = (~) TextAppearance + type AttrGetType TextAppearanceStrikethroughFieldInfo = Word32 + type AttrLabel TextAppearanceStrikethroughFieldInfo = "strikethrough" + attrGet _ = textAppearanceReadStrikethrough + attrSet _ = textAppearanceWriteStrikethrough + attrConstruct = undefined + attrClear _ = undefined + +textAppearanceStrikethrough :: AttrLabelProxy "strikethrough" +textAppearanceStrikethrough = AttrLabelProxy + + +textAppearanceReadDrawBg :: MonadIO m => TextAppearance -> m Word32 +textAppearanceReadDrawBg s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 36) :: IO Word32 return val -textAppearanceReadInsideSelection :: TextAppearance -> IO Word32 -textAppearanceReadInsideSelection s = withManagedPtr s $ \ptr -> do +textAppearanceWriteDrawBg :: MonadIO m => TextAppearance -> Word32 -> m () +textAppearanceWriteDrawBg s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 36) (val :: Word32) + +data TextAppearanceDrawBgFieldInfo +instance AttrInfo TextAppearanceDrawBgFieldInfo where + type AttrAllowedOps TextAppearanceDrawBgFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint TextAppearanceDrawBgFieldInfo = (~) Word32 + type AttrBaseTypeConstraint TextAppearanceDrawBgFieldInfo = (~) TextAppearance + type AttrGetType TextAppearanceDrawBgFieldInfo = Word32 + type AttrLabel TextAppearanceDrawBgFieldInfo = "draw_bg" + attrGet _ = textAppearanceReadDrawBg + attrSet _ = textAppearanceWriteDrawBg + attrConstruct = undefined + attrClear _ = undefined + +textAppearanceDrawBg :: AttrLabelProxy "drawBg" +textAppearanceDrawBg = AttrLabelProxy + + +textAppearanceReadInsideSelection :: MonadIO m => TextAppearance -> m Word32 +textAppearanceReadInsideSelection s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 40) :: IO Word32 return val -textAppearanceReadIsText :: TextAppearance -> IO Word32 -textAppearanceReadIsText s = withManagedPtr s $ \ptr -> do +textAppearanceWriteInsideSelection :: MonadIO m => TextAppearance -> Word32 -> m () +textAppearanceWriteInsideSelection s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 40) (val :: Word32) + +data TextAppearanceInsideSelectionFieldInfo +instance AttrInfo TextAppearanceInsideSelectionFieldInfo where + type AttrAllowedOps TextAppearanceInsideSelectionFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint TextAppearanceInsideSelectionFieldInfo = (~) Word32 + type AttrBaseTypeConstraint TextAppearanceInsideSelectionFieldInfo = (~) TextAppearance + type AttrGetType TextAppearanceInsideSelectionFieldInfo = Word32 + type AttrLabel TextAppearanceInsideSelectionFieldInfo = "inside_selection" + attrGet _ = textAppearanceReadInsideSelection + attrSet _ = textAppearanceWriteInsideSelection + attrConstruct = undefined + attrClear _ = undefined + +textAppearanceInsideSelection :: AttrLabelProxy "insideSelection" +textAppearanceInsideSelection = AttrLabelProxy + + +textAppearanceReadIsText :: MonadIO m => TextAppearance -> m Word32 +textAppearanceReadIsText s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 44) :: IO Word32 return val + +textAppearanceWriteIsText :: MonadIO m => TextAppearance -> Word32 -> m () +textAppearanceWriteIsText s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 44) (val :: Word32) + +data TextAppearanceIsTextFieldInfo +instance AttrInfo TextAppearanceIsTextFieldInfo where + type AttrAllowedOps TextAppearanceIsTextFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint TextAppearanceIsTextFieldInfo = (~) Word32 + type AttrBaseTypeConstraint TextAppearanceIsTextFieldInfo = (~) TextAppearance + type AttrGetType TextAppearanceIsTextFieldInfo = Word32 + type AttrLabel TextAppearanceIsTextFieldInfo = "is_text" + attrGet _ = textAppearanceReadIsText + attrSet _ = textAppearanceWriteIsText + attrConstruct = undefined + attrClear _ = undefined + +textAppearanceIsText :: AttrLabelProxy "isText" +textAppearanceIsText = AttrLabelProxy + + + +type instance AttributeList TextAppearance = TextAppearanceAttributeList +type TextAppearanceAttributeList = ('[ '("bgColor", TextAppearanceBgColorFieldInfo), '("fgColor", TextAppearanceFgColorFieldInfo), '("rise", TextAppearanceRiseFieldInfo), '("underline", TextAppearanceUnderlineFieldInfo), '("strikethrough", TextAppearanceStrikethroughFieldInfo), '("drawBg", TextAppearanceDrawBgFieldInfo), '("insideSelection", TextAppearanceInsideSelectionFieldInfo), '("isText", TextAppearanceIsTextFieldInfo)] :: [(Symbol, *)]) type family ResolveTextAppearanceMethod (t :: Symbol) (o :: *) :: * where ResolveTextAppearanceMethod l o = MethodResolutionFailed l o diff --git a/GI/Gtk/Structs/TextAppearance.hs-boot b/GI/Gtk/Structs/TextAppearance.hs-boot --- a/GI/Gtk/Structs/TextAppearance.hs-boot +++ b/GI/Gtk/Structs/TextAppearance.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Structs.TextAppearance where -import Prelude () 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 diff --git a/GI/Gtk/Structs/TextAttributes.hs b/GI/Gtk/Structs/TextAttributes.hs --- a/GI/Gtk/Structs/TextAttributes.hs +++ b/GI/Gtk/Structs/TextAttributes.hs @@ -49,88 +49,130 @@ -- * Properties -- ** Appearance + textAttributesAppearance , + textAttributesClearAppearance , textAttributesReadAppearance , + textAttributesWriteAppearance , -- ** BgFullHeight + textAttributesBgFullHeight , textAttributesReadBgFullHeight , + textAttributesWriteBgFullHeight , -- ** Direction + textAttributesDirection , textAttributesReadDirection , + textAttributesWriteDirection , -- ** Editable + textAttributesEditable , textAttributesReadEditable , + textAttributesWriteEditable , -- ** Font + textAttributesClearFont , + textAttributesFont , textAttributesReadFont , + textAttributesWriteFont , -- ** FontScale + textAttributesFontScale , textAttributesReadFontScale , + textAttributesWriteFontScale , -- ** Indent + textAttributesIndent , textAttributesReadIndent , + textAttributesWriteIndent , -- ** Invisible + textAttributesInvisible , textAttributesReadInvisible , + textAttributesWriteInvisible , -- ** Justification + textAttributesJustification , textAttributesReadJustification , + textAttributesWriteJustification , -- ** Language + textAttributesClearLanguage , + textAttributesLanguage , textAttributesReadLanguage , + textAttributesWriteLanguage , -- ** LeftMargin + textAttributesLeftMargin , textAttributesReadLeftMargin , + textAttributesWriteLeftMargin , -- ** LetterSpacing + textAttributesLetterSpacing , textAttributesReadLetterSpacing , + textAttributesWriteLetterSpacing , -- ** NoFallback + textAttributesNoFallback , textAttributesReadNoFallback , + textAttributesWriteNoFallback , -- ** PixelsAboveLines + textAttributesPixelsAboveLines , textAttributesReadPixelsAboveLines , + textAttributesWritePixelsAboveLines , -- ** PixelsBelowLines + textAttributesPixelsBelowLines , textAttributesReadPixelsBelowLines , + textAttributesWritePixelsBelowLines , -- ** PixelsInsideWrap + textAttributesPixelsInsideWrap , textAttributesReadPixelsInsideWrap , + textAttributesWritePixelsInsideWrap , -- ** RightMargin textAttributesReadRightMargin , + textAttributesRightMargin , + textAttributesWriteRightMargin , -- ** Tabs + textAttributesClearTabs , textAttributesReadTabs , + textAttributesTabs , + textAttributesWriteTabs , -- ** WrapMode textAttributesReadWrapMode , + textAttributesWrapMode , + textAttributesWriteWrapMode , ) where -import Prelude () 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 @@ -150,117 +192,536 @@ newZeroTextAttributes :: MonadIO m => m TextAttributes newZeroTextAttributes = liftIO $ callocBoxedBytes 168 >>= wrapBoxed TextAttributes +instance tag ~ 'AttrSet => Constructible TextAttributes tag where + new _ attrs = do + o <- newZeroTextAttributes + GI.Attributes.set o attrs + return o + + noTextAttributes :: Maybe TextAttributes noTextAttributes = Nothing -textAttributesReadAppearance :: TextAttributes -> IO TextAppearance -textAttributesReadAppearance s = withManagedPtr s $ \ptr -> do +textAttributesReadAppearance :: MonadIO m => TextAttributes -> m (Maybe TextAppearance) +textAttributesReadAppearance s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 4) :: IO (Ptr TextAppearance) - val' <- (newPtr 48 TextAppearance) val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- (newPtr 48 TextAppearance) val' + return val'' + return result -textAttributesReadJustification :: TextAttributes -> IO Justification -textAttributesReadJustification s = withManagedPtr s $ \ptr -> do +textAttributesWriteAppearance :: MonadIO m => TextAttributes -> Ptr TextAppearance -> m () +textAttributesWriteAppearance s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 4) (val :: Ptr TextAppearance) + +textAttributesClearAppearance :: MonadIO m => TextAttributes -> m () +textAttributesClearAppearance s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 4) (nullPtr :: Ptr TextAppearance) + +data TextAttributesAppearanceFieldInfo +instance AttrInfo TextAttributesAppearanceFieldInfo where + type AttrAllowedOps TextAttributesAppearanceFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint TextAttributesAppearanceFieldInfo = (~) (Ptr TextAppearance) + type AttrBaseTypeConstraint TextAttributesAppearanceFieldInfo = (~) TextAttributes + type AttrGetType TextAttributesAppearanceFieldInfo = Maybe TextAppearance + type AttrLabel TextAttributesAppearanceFieldInfo = "appearance" + attrGet _ = textAttributesReadAppearance + attrSet _ = textAttributesWriteAppearance + attrConstruct = undefined + attrClear _ = textAttributesClearAppearance + +textAttributesAppearance :: AttrLabelProxy "appearance" +textAttributesAppearance = AttrLabelProxy + + +textAttributesReadJustification :: MonadIO m => TextAttributes -> m Justification +textAttributesReadJustification s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 52) :: IO CUInt let val' = (toEnum . fromIntegral) val return val' -textAttributesReadDirection :: TextAttributes -> IO TextDirection -textAttributesReadDirection s = withManagedPtr s $ \ptr -> do +textAttributesWriteJustification :: MonadIO m => TextAttributes -> Justification -> m () +textAttributesWriteJustification s val = liftIO $ withManagedPtr s $ \ptr -> do + let val' = (fromIntegral . fromEnum) val + poke (ptr `plusPtr` 52) (val' :: CUInt) + +data TextAttributesJustificationFieldInfo +instance AttrInfo TextAttributesJustificationFieldInfo where + type AttrAllowedOps TextAttributesJustificationFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint TextAttributesJustificationFieldInfo = (~) Justification + type AttrBaseTypeConstraint TextAttributesJustificationFieldInfo = (~) TextAttributes + type AttrGetType TextAttributesJustificationFieldInfo = Justification + type AttrLabel TextAttributesJustificationFieldInfo = "justification" + attrGet _ = textAttributesReadJustification + attrSet _ = textAttributesWriteJustification + attrConstruct = undefined + attrClear _ = undefined + +textAttributesJustification :: AttrLabelProxy "justification" +textAttributesJustification = AttrLabelProxy + + +textAttributesReadDirection :: MonadIO m => TextAttributes -> m TextDirection +textAttributesReadDirection s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 56) :: IO CUInt let val' = (toEnum . fromIntegral) val return val' -textAttributesReadFont :: TextAttributes -> IO Pango.FontDescription -textAttributesReadFont s = withManagedPtr s $ \ptr -> do +textAttributesWriteDirection :: MonadIO m => TextAttributes -> TextDirection -> m () +textAttributesWriteDirection s val = liftIO $ withManagedPtr s $ \ptr -> do + let val' = (fromIntegral . fromEnum) val + poke (ptr `plusPtr` 56) (val' :: CUInt) + +data TextAttributesDirectionFieldInfo +instance AttrInfo TextAttributesDirectionFieldInfo where + type AttrAllowedOps TextAttributesDirectionFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint TextAttributesDirectionFieldInfo = (~) TextDirection + type AttrBaseTypeConstraint TextAttributesDirectionFieldInfo = (~) TextAttributes + type AttrGetType TextAttributesDirectionFieldInfo = TextDirection + type AttrLabel TextAttributesDirectionFieldInfo = "direction" + attrGet _ = textAttributesReadDirection + attrSet _ = textAttributesWriteDirection + attrConstruct = undefined + attrClear _ = undefined + +textAttributesDirection :: AttrLabelProxy "direction" +textAttributesDirection = AttrLabelProxy + + +textAttributesReadFont :: MonadIO m => TextAttributes -> m (Maybe Pango.FontDescription) +textAttributesReadFont s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 64) :: IO (Ptr Pango.FontDescription) - val' <- (newBoxed Pango.FontDescription) val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- (newBoxed Pango.FontDescription) val' + return val'' + return result -textAttributesReadFontScale :: TextAttributes -> IO Double -textAttributesReadFontScale s = withManagedPtr s $ \ptr -> do +textAttributesWriteFont :: MonadIO m => TextAttributes -> Ptr Pango.FontDescription -> m () +textAttributesWriteFont s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 64) (val :: Ptr Pango.FontDescription) + +textAttributesClearFont :: MonadIO m => TextAttributes -> m () +textAttributesClearFont s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 64) (nullPtr :: Ptr Pango.FontDescription) + +data TextAttributesFontFieldInfo +instance AttrInfo TextAttributesFontFieldInfo where + type AttrAllowedOps TextAttributesFontFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint TextAttributesFontFieldInfo = (~) (Ptr Pango.FontDescription) + type AttrBaseTypeConstraint TextAttributesFontFieldInfo = (~) TextAttributes + type AttrGetType TextAttributesFontFieldInfo = Maybe Pango.FontDescription + type AttrLabel TextAttributesFontFieldInfo = "font" + attrGet _ = textAttributesReadFont + attrSet _ = textAttributesWriteFont + attrConstruct = undefined + attrClear _ = textAttributesClearFont + +textAttributesFont :: AttrLabelProxy "font" +textAttributesFont = AttrLabelProxy + + +textAttributesReadFontScale :: MonadIO m => TextAttributes -> m Double +textAttributesReadFontScale s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 72) :: IO CDouble let val' = realToFrac val return val' -textAttributesReadLeftMargin :: TextAttributes -> IO Int32 -textAttributesReadLeftMargin s = withManagedPtr s $ \ptr -> do +textAttributesWriteFontScale :: MonadIO m => TextAttributes -> Double -> m () +textAttributesWriteFontScale s val = liftIO $ withManagedPtr s $ \ptr -> do + let val' = realToFrac val + poke (ptr `plusPtr` 72) (val' :: CDouble) + +data TextAttributesFontScaleFieldInfo +instance AttrInfo TextAttributesFontScaleFieldInfo where + type AttrAllowedOps TextAttributesFontScaleFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint TextAttributesFontScaleFieldInfo = (~) Double + type AttrBaseTypeConstraint TextAttributesFontScaleFieldInfo = (~) TextAttributes + type AttrGetType TextAttributesFontScaleFieldInfo = Double + type AttrLabel TextAttributesFontScaleFieldInfo = "font_scale" + attrGet _ = textAttributesReadFontScale + attrSet _ = textAttributesWriteFontScale + attrConstruct = undefined + attrClear _ = undefined + +textAttributesFontScale :: AttrLabelProxy "fontScale" +textAttributesFontScale = AttrLabelProxy + + +textAttributesReadLeftMargin :: MonadIO m => TextAttributes -> m Int32 +textAttributesReadLeftMargin s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 80) :: IO Int32 return val -textAttributesReadRightMargin :: TextAttributes -> IO Int32 -textAttributesReadRightMargin s = withManagedPtr s $ \ptr -> do +textAttributesWriteLeftMargin :: MonadIO m => TextAttributes -> Int32 -> m () +textAttributesWriteLeftMargin s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 80) (val :: Int32) + +data TextAttributesLeftMarginFieldInfo +instance AttrInfo TextAttributesLeftMarginFieldInfo where + type AttrAllowedOps TextAttributesLeftMarginFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint TextAttributesLeftMarginFieldInfo = (~) Int32 + type AttrBaseTypeConstraint TextAttributesLeftMarginFieldInfo = (~) TextAttributes + type AttrGetType TextAttributesLeftMarginFieldInfo = Int32 + type AttrLabel TextAttributesLeftMarginFieldInfo = "left_margin" + attrGet _ = textAttributesReadLeftMargin + attrSet _ = textAttributesWriteLeftMargin + attrConstruct = undefined + attrClear _ = undefined + +textAttributesLeftMargin :: AttrLabelProxy "leftMargin" +textAttributesLeftMargin = AttrLabelProxy + + +textAttributesReadRightMargin :: MonadIO m => TextAttributes -> m Int32 +textAttributesReadRightMargin s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 84) :: IO Int32 return val -textAttributesReadIndent :: TextAttributes -> IO Int32 -textAttributesReadIndent s = withManagedPtr s $ \ptr -> do +textAttributesWriteRightMargin :: MonadIO m => TextAttributes -> Int32 -> m () +textAttributesWriteRightMargin s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 84) (val :: Int32) + +data TextAttributesRightMarginFieldInfo +instance AttrInfo TextAttributesRightMarginFieldInfo where + type AttrAllowedOps TextAttributesRightMarginFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint TextAttributesRightMarginFieldInfo = (~) Int32 + type AttrBaseTypeConstraint TextAttributesRightMarginFieldInfo = (~) TextAttributes + type AttrGetType TextAttributesRightMarginFieldInfo = Int32 + type AttrLabel TextAttributesRightMarginFieldInfo = "right_margin" + attrGet _ = textAttributesReadRightMargin + attrSet _ = textAttributesWriteRightMargin + attrConstruct = undefined + attrClear _ = undefined + +textAttributesRightMargin :: AttrLabelProxy "rightMargin" +textAttributesRightMargin = AttrLabelProxy + + +textAttributesReadIndent :: MonadIO m => TextAttributes -> m Int32 +textAttributesReadIndent s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 88) :: IO Int32 return val -textAttributesReadPixelsAboveLines :: TextAttributes -> IO Int32 -textAttributesReadPixelsAboveLines s = withManagedPtr s $ \ptr -> do +textAttributesWriteIndent :: MonadIO m => TextAttributes -> Int32 -> m () +textAttributesWriteIndent s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 88) (val :: Int32) + +data TextAttributesIndentFieldInfo +instance AttrInfo TextAttributesIndentFieldInfo where + type AttrAllowedOps TextAttributesIndentFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint TextAttributesIndentFieldInfo = (~) Int32 + type AttrBaseTypeConstraint TextAttributesIndentFieldInfo = (~) TextAttributes + type AttrGetType TextAttributesIndentFieldInfo = Int32 + type AttrLabel TextAttributesIndentFieldInfo = "indent" + attrGet _ = textAttributesReadIndent + attrSet _ = textAttributesWriteIndent + attrConstruct = undefined + attrClear _ = undefined + +textAttributesIndent :: AttrLabelProxy "indent" +textAttributesIndent = AttrLabelProxy + + +textAttributesReadPixelsAboveLines :: MonadIO m => TextAttributes -> m Int32 +textAttributesReadPixelsAboveLines s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 92) :: IO Int32 return val -textAttributesReadPixelsBelowLines :: TextAttributes -> IO Int32 -textAttributesReadPixelsBelowLines s = withManagedPtr s $ \ptr -> do +textAttributesWritePixelsAboveLines :: MonadIO m => TextAttributes -> Int32 -> m () +textAttributesWritePixelsAboveLines s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 92) (val :: Int32) + +data TextAttributesPixelsAboveLinesFieldInfo +instance AttrInfo TextAttributesPixelsAboveLinesFieldInfo where + type AttrAllowedOps TextAttributesPixelsAboveLinesFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint TextAttributesPixelsAboveLinesFieldInfo = (~) Int32 + type AttrBaseTypeConstraint TextAttributesPixelsAboveLinesFieldInfo = (~) TextAttributes + type AttrGetType TextAttributesPixelsAboveLinesFieldInfo = Int32 + type AttrLabel TextAttributesPixelsAboveLinesFieldInfo = "pixels_above_lines" + attrGet _ = textAttributesReadPixelsAboveLines + attrSet _ = textAttributesWritePixelsAboveLines + attrConstruct = undefined + attrClear _ = undefined + +textAttributesPixelsAboveLines :: AttrLabelProxy "pixelsAboveLines" +textAttributesPixelsAboveLines = AttrLabelProxy + + +textAttributesReadPixelsBelowLines :: MonadIO m => TextAttributes -> m Int32 +textAttributesReadPixelsBelowLines s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 96) :: IO Int32 return val -textAttributesReadPixelsInsideWrap :: TextAttributes -> IO Int32 -textAttributesReadPixelsInsideWrap s = withManagedPtr s $ \ptr -> do +textAttributesWritePixelsBelowLines :: MonadIO m => TextAttributes -> Int32 -> m () +textAttributesWritePixelsBelowLines s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 96) (val :: Int32) + +data TextAttributesPixelsBelowLinesFieldInfo +instance AttrInfo TextAttributesPixelsBelowLinesFieldInfo where + type AttrAllowedOps TextAttributesPixelsBelowLinesFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint TextAttributesPixelsBelowLinesFieldInfo = (~) Int32 + type AttrBaseTypeConstraint TextAttributesPixelsBelowLinesFieldInfo = (~) TextAttributes + type AttrGetType TextAttributesPixelsBelowLinesFieldInfo = Int32 + type AttrLabel TextAttributesPixelsBelowLinesFieldInfo = "pixels_below_lines" + attrGet _ = textAttributesReadPixelsBelowLines + attrSet _ = textAttributesWritePixelsBelowLines + attrConstruct = undefined + attrClear _ = undefined + +textAttributesPixelsBelowLines :: AttrLabelProxy "pixelsBelowLines" +textAttributesPixelsBelowLines = AttrLabelProxy + + +textAttributesReadPixelsInsideWrap :: MonadIO m => TextAttributes -> m Int32 +textAttributesReadPixelsInsideWrap s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 100) :: IO Int32 return val -textAttributesReadTabs :: TextAttributes -> IO Pango.TabArray -textAttributesReadTabs s = withManagedPtr s $ \ptr -> do +textAttributesWritePixelsInsideWrap :: MonadIO m => TextAttributes -> Int32 -> m () +textAttributesWritePixelsInsideWrap s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 100) (val :: Int32) + +data TextAttributesPixelsInsideWrapFieldInfo +instance AttrInfo TextAttributesPixelsInsideWrapFieldInfo where + type AttrAllowedOps TextAttributesPixelsInsideWrapFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint TextAttributesPixelsInsideWrapFieldInfo = (~) Int32 + type AttrBaseTypeConstraint TextAttributesPixelsInsideWrapFieldInfo = (~) TextAttributes + type AttrGetType TextAttributesPixelsInsideWrapFieldInfo = Int32 + type AttrLabel TextAttributesPixelsInsideWrapFieldInfo = "pixels_inside_wrap" + attrGet _ = textAttributesReadPixelsInsideWrap + attrSet _ = textAttributesWritePixelsInsideWrap + attrConstruct = undefined + attrClear _ = undefined + +textAttributesPixelsInsideWrap :: AttrLabelProxy "pixelsInsideWrap" +textAttributesPixelsInsideWrap = AttrLabelProxy + + +textAttributesReadTabs :: MonadIO m => TextAttributes -> m (Maybe Pango.TabArray) +textAttributesReadTabs s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 104) :: IO (Ptr Pango.TabArray) - val' <- (newBoxed Pango.TabArray) val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- (newBoxed Pango.TabArray) val' + return val'' + return result -textAttributesReadWrapMode :: TextAttributes -> IO WrapMode -textAttributesReadWrapMode s = withManagedPtr s $ \ptr -> do +textAttributesWriteTabs :: MonadIO m => TextAttributes -> Ptr Pango.TabArray -> m () +textAttributesWriteTabs s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 104) (val :: Ptr Pango.TabArray) + +textAttributesClearTabs :: MonadIO m => TextAttributes -> m () +textAttributesClearTabs s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 104) (nullPtr :: Ptr Pango.TabArray) + +data TextAttributesTabsFieldInfo +instance AttrInfo TextAttributesTabsFieldInfo where + type AttrAllowedOps TextAttributesTabsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint TextAttributesTabsFieldInfo = (~) (Ptr Pango.TabArray) + type AttrBaseTypeConstraint TextAttributesTabsFieldInfo = (~) TextAttributes + type AttrGetType TextAttributesTabsFieldInfo = Maybe Pango.TabArray + type AttrLabel TextAttributesTabsFieldInfo = "tabs" + attrGet _ = textAttributesReadTabs + attrSet _ = textAttributesWriteTabs + attrConstruct = undefined + attrClear _ = textAttributesClearTabs + +textAttributesTabs :: AttrLabelProxy "tabs" +textAttributesTabs = AttrLabelProxy + + +textAttributesReadWrapMode :: MonadIO m => TextAttributes -> m WrapMode +textAttributesReadWrapMode s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 112) :: IO CUInt let val' = (toEnum . fromIntegral) val return val' -textAttributesReadLanguage :: TextAttributes -> IO Pango.Language -textAttributesReadLanguage s = withManagedPtr s $ \ptr -> do +textAttributesWriteWrapMode :: MonadIO m => TextAttributes -> WrapMode -> m () +textAttributesWriteWrapMode s val = liftIO $ withManagedPtr s $ \ptr -> do + let val' = (fromIntegral . fromEnum) val + poke (ptr `plusPtr` 112) (val' :: CUInt) + +data TextAttributesWrapModeFieldInfo +instance AttrInfo TextAttributesWrapModeFieldInfo where + type AttrAllowedOps TextAttributesWrapModeFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint TextAttributesWrapModeFieldInfo = (~) WrapMode + type AttrBaseTypeConstraint TextAttributesWrapModeFieldInfo = (~) TextAttributes + type AttrGetType TextAttributesWrapModeFieldInfo = WrapMode + type AttrLabel TextAttributesWrapModeFieldInfo = "wrap_mode" + attrGet _ = textAttributesReadWrapMode + attrSet _ = textAttributesWriteWrapMode + attrConstruct = undefined + attrClear _ = undefined + +textAttributesWrapMode :: AttrLabelProxy "wrapMode" +textAttributesWrapMode = AttrLabelProxy + + +textAttributesReadLanguage :: MonadIO m => TextAttributes -> m (Maybe Pango.Language) +textAttributesReadLanguage s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 120) :: IO (Ptr Pango.Language) - val' <- (newBoxed Pango.Language) val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- (newBoxed Pango.Language) val' + return val'' + return result -textAttributesReadInvisible :: TextAttributes -> IO Word32 -textAttributesReadInvisible s = withManagedPtr s $ \ptr -> do +textAttributesWriteLanguage :: MonadIO m => TextAttributes -> Ptr Pango.Language -> m () +textAttributesWriteLanguage s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 120) (val :: Ptr Pango.Language) + +textAttributesClearLanguage :: MonadIO m => TextAttributes -> m () +textAttributesClearLanguage s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 120) (nullPtr :: Ptr Pango.Language) + +data TextAttributesLanguageFieldInfo +instance AttrInfo TextAttributesLanguageFieldInfo where + type AttrAllowedOps TextAttributesLanguageFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint TextAttributesLanguageFieldInfo = (~) (Ptr Pango.Language) + type AttrBaseTypeConstraint TextAttributesLanguageFieldInfo = (~) TextAttributes + type AttrGetType TextAttributesLanguageFieldInfo = Maybe Pango.Language + type AttrLabel TextAttributesLanguageFieldInfo = "language" + attrGet _ = textAttributesReadLanguage + attrSet _ = textAttributesWriteLanguage + attrConstruct = undefined + attrClear _ = textAttributesClearLanguage + +textAttributesLanguage :: AttrLabelProxy "language" +textAttributesLanguage = AttrLabelProxy + + +textAttributesReadInvisible :: MonadIO m => TextAttributes -> m Word32 +textAttributesReadInvisible s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 136) :: IO Word32 return val -textAttributesReadBgFullHeight :: TextAttributes -> IO Word32 -textAttributesReadBgFullHeight s = withManagedPtr s $ \ptr -> do +textAttributesWriteInvisible :: MonadIO m => TextAttributes -> Word32 -> m () +textAttributesWriteInvisible s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 136) (val :: Word32) + +data TextAttributesInvisibleFieldInfo +instance AttrInfo TextAttributesInvisibleFieldInfo where + type AttrAllowedOps TextAttributesInvisibleFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint TextAttributesInvisibleFieldInfo = (~) Word32 + type AttrBaseTypeConstraint TextAttributesInvisibleFieldInfo = (~) TextAttributes + type AttrGetType TextAttributesInvisibleFieldInfo = Word32 + type AttrLabel TextAttributesInvisibleFieldInfo = "invisible" + attrGet _ = textAttributesReadInvisible + attrSet _ = textAttributesWriteInvisible + attrConstruct = undefined + attrClear _ = undefined + +textAttributesInvisible :: AttrLabelProxy "invisible" +textAttributesInvisible = AttrLabelProxy + + +textAttributesReadBgFullHeight :: MonadIO m => TextAttributes -> m Word32 +textAttributesReadBgFullHeight s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 140) :: IO Word32 return val -textAttributesReadEditable :: TextAttributes -> IO Word32 -textAttributesReadEditable s = withManagedPtr s $ \ptr -> do +textAttributesWriteBgFullHeight :: MonadIO m => TextAttributes -> Word32 -> m () +textAttributesWriteBgFullHeight s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 140) (val :: Word32) + +data TextAttributesBgFullHeightFieldInfo +instance AttrInfo TextAttributesBgFullHeightFieldInfo where + type AttrAllowedOps TextAttributesBgFullHeightFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint TextAttributesBgFullHeightFieldInfo = (~) Word32 + type AttrBaseTypeConstraint TextAttributesBgFullHeightFieldInfo = (~) TextAttributes + type AttrGetType TextAttributesBgFullHeightFieldInfo = Word32 + type AttrLabel TextAttributesBgFullHeightFieldInfo = "bg_full_height" + attrGet _ = textAttributesReadBgFullHeight + attrSet _ = textAttributesWriteBgFullHeight + attrConstruct = undefined + attrClear _ = undefined + +textAttributesBgFullHeight :: AttrLabelProxy "bgFullHeight" +textAttributesBgFullHeight = AttrLabelProxy + + +textAttributesReadEditable :: MonadIO m => TextAttributes -> m Word32 +textAttributesReadEditable s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 144) :: IO Word32 return val -textAttributesReadNoFallback :: TextAttributes -> IO Word32 -textAttributesReadNoFallback s = withManagedPtr s $ \ptr -> do +textAttributesWriteEditable :: MonadIO m => TextAttributes -> Word32 -> m () +textAttributesWriteEditable s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 144) (val :: Word32) + +data TextAttributesEditableFieldInfo +instance AttrInfo TextAttributesEditableFieldInfo where + type AttrAllowedOps TextAttributesEditableFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint TextAttributesEditableFieldInfo = (~) Word32 + type AttrBaseTypeConstraint TextAttributesEditableFieldInfo = (~) TextAttributes + type AttrGetType TextAttributesEditableFieldInfo = Word32 + type AttrLabel TextAttributesEditableFieldInfo = "editable" + attrGet _ = textAttributesReadEditable + attrSet _ = textAttributesWriteEditable + attrConstruct = undefined + attrClear _ = undefined + +textAttributesEditable :: AttrLabelProxy "editable" +textAttributesEditable = AttrLabelProxy + + +textAttributesReadNoFallback :: MonadIO m => TextAttributes -> m Word32 +textAttributesReadNoFallback s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 148) :: IO Word32 return val -textAttributesReadLetterSpacing :: TextAttributes -> IO Int32 -textAttributesReadLetterSpacing s = withManagedPtr s $ \ptr -> do +textAttributesWriteNoFallback :: MonadIO m => TextAttributes -> Word32 -> m () +textAttributesWriteNoFallback s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 148) (val :: Word32) + +data TextAttributesNoFallbackFieldInfo +instance AttrInfo TextAttributesNoFallbackFieldInfo where + type AttrAllowedOps TextAttributesNoFallbackFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint TextAttributesNoFallbackFieldInfo = (~) Word32 + type AttrBaseTypeConstraint TextAttributesNoFallbackFieldInfo = (~) TextAttributes + type AttrGetType TextAttributesNoFallbackFieldInfo = Word32 + type AttrLabel TextAttributesNoFallbackFieldInfo = "no_fallback" + attrGet _ = textAttributesReadNoFallback + attrSet _ = textAttributesWriteNoFallback + attrConstruct = undefined + attrClear _ = undefined + +textAttributesNoFallback :: AttrLabelProxy "noFallback" +textAttributesNoFallback = AttrLabelProxy + + +textAttributesReadLetterSpacing :: MonadIO m => TextAttributes -> m Int32 +textAttributesReadLetterSpacing s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 160) :: IO Int32 return val +textAttributesWriteLetterSpacing :: MonadIO m => TextAttributes -> Int32 -> m () +textAttributesWriteLetterSpacing s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 160) (val :: Int32) + +data TextAttributesLetterSpacingFieldInfo +instance AttrInfo TextAttributesLetterSpacingFieldInfo where + type AttrAllowedOps TextAttributesLetterSpacingFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint TextAttributesLetterSpacingFieldInfo = (~) Int32 + type AttrBaseTypeConstraint TextAttributesLetterSpacingFieldInfo = (~) TextAttributes + type AttrGetType TextAttributesLetterSpacingFieldInfo = Int32 + type AttrLabel TextAttributesLetterSpacingFieldInfo = "letter_spacing" + attrGet _ = textAttributesReadLetterSpacing + attrSet _ = textAttributesWriteLetterSpacing + attrConstruct = undefined + attrClear _ = undefined + +textAttributesLetterSpacing :: AttrLabelProxy "letterSpacing" +textAttributesLetterSpacing = AttrLabelProxy + + + +type instance AttributeList TextAttributes = TextAttributesAttributeList +type TextAttributesAttributeList = ('[ '("appearance", TextAttributesAppearanceFieldInfo), '("justification", TextAttributesJustificationFieldInfo), '("direction", TextAttributesDirectionFieldInfo), '("font", TextAttributesFontFieldInfo), '("fontScale", TextAttributesFontScaleFieldInfo), '("leftMargin", TextAttributesLeftMarginFieldInfo), '("rightMargin", TextAttributesRightMarginFieldInfo), '("indent", TextAttributesIndentFieldInfo), '("pixelsAboveLines", TextAttributesPixelsAboveLinesFieldInfo), '("pixelsBelowLines", TextAttributesPixelsBelowLinesFieldInfo), '("pixelsInsideWrap", TextAttributesPixelsInsideWrapFieldInfo), '("tabs", TextAttributesTabsFieldInfo), '("wrapMode", TextAttributesWrapModeFieldInfo), '("language", TextAttributesLanguageFieldInfo), '("invisible", TextAttributesInvisibleFieldInfo), '("bgFullHeight", TextAttributesBgFullHeightFieldInfo), '("editable", TextAttributesEditableFieldInfo), '("noFallback", TextAttributesNoFallbackFieldInfo), '("letterSpacing", TextAttributesLetterSpacingFieldInfo)] :: [(Symbol, *)]) + -- method TextAttributes::new -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "TextAttributes" +-- returnType : Just (TInterface "Gtk" "TextAttributes") -- throws : False -- Skip return : False @@ -281,7 +742,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "TextAttributes" +-- returnType : Just (TInterface "Gtk" "TextAttributes") -- throws : False -- Skip return : False @@ -310,7 +771,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest", argType = TInterface "Gtk" "TextAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -341,7 +802,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "TextAttributes" +-- returnType : Just (TInterface "Gtk" "TextAttributes") -- throws : False -- Skip return : False @@ -370,7 +831,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Structs/TextAttributes.hs-boot b/GI/Gtk/Structs/TextAttributes.hs-boot --- a/GI/Gtk/Structs/TextAttributes.hs-boot +++ b/GI/Gtk/Structs/TextAttributes.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Structs.TextAttributes where -import Prelude () 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 diff --git a/GI/Gtk/Structs/TextBTree.hs b/GI/Gtk/Structs/TextBTree.hs --- a/GI/Gtk/Structs/TextBTree.hs +++ b/GI/Gtk/Structs/TextBTree.hs @@ -16,9 +16,9 @@ ) where -import Prelude () 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 @@ -29,6 +29,10 @@ newtype TextBTree = TextBTree (ForeignPtr TextBTree) noTextBTree :: Maybe TextBTree noTextBTree = Nothing + + +type instance AttributeList TextBTree = TextBTreeAttributeList +type TextBTreeAttributeList = ('[ ] :: [(Symbol, *)]) type family ResolveTextBTreeMethod (t :: Symbol) (o :: *) :: * where ResolveTextBTreeMethod l o = MethodResolutionFailed l o diff --git a/GI/Gtk/Structs/TextBTree.hs-boot b/GI/Gtk/Structs/TextBTree.hs-boot --- a/GI/Gtk/Structs/TextBTree.hs-boot +++ b/GI/Gtk/Structs/TextBTree.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Structs.TextBTree where -import Prelude () 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 diff --git a/GI/Gtk/Structs/TextIter.hs b/GI/Gtk/Structs/TextIter.hs --- a/GI/Gtk/Structs/TextIter.hs +++ b/GI/Gtk/Structs/TextIter.hs @@ -480,9 +480,9 @@ ) where -import Prelude () 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 @@ -503,14 +503,25 @@ newZeroTextIter :: MonadIO m => m TextIter newZeroTextIter = liftIO $ callocBoxedBytes 80 >>= wrapBoxed TextIter +instance tag ~ 'AttrSet => Constructible TextIter tag where + new _ attrs = do + o <- newZeroTextIter + GI.Attributes.set o attrs + return o + + noTextIter :: Maybe TextIter noTextIter = Nothing + +type instance AttributeList TextIter = TextIterAttributeList +type TextIterAttributeList = ('[ ] :: [(Symbol, *)]) + -- method TextIter::assign -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "other", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -541,7 +552,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -567,15 +578,15 @@ -- method TextIter::backward_chars -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_text_iter_backward_chars" gtk_text_iter_backward_chars :: Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- count : TBasicType TInt32 + Int32 -> -- count : TBasicType TInt IO CInt @@ -599,7 +610,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -625,15 +636,15 @@ -- method TextIter::backward_cursor_positions -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_text_iter_backward_cursor_positions" gtk_text_iter_backward_cursor_positions :: Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- count : TBasicType TInt32 + Int32 -> -- count : TBasicType TInt IO CInt @@ -655,16 +666,16 @@ -- method TextIter::backward_find_char -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pred", argType = TInterface "Gtk" "TextCharPredicate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "limit", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pred", argType = TInterface "Gtk" "TextCharPredicate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, 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},Arg {argCName = "limit", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_text_iter_backward_find_char" gtk_text_iter_backward_find_char :: Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" FunPtr TextCharPredicateC -> -- pred : TInterface "Gtk" "TextCharPredicate" - Ptr () -> -- user_data : TBasicType TVoid + Ptr () -> -- user_data : TBasicType TPtr Ptr TextIter -> -- limit : TInterface "Gtk" "TextIter" IO CInt @@ -699,7 +710,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -725,15 +736,15 @@ -- method TextIter::backward_lines -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_text_iter_backward_lines" gtk_text_iter_backward_lines :: Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- count : TBasicType TInt32 + Int32 -> -- count : TBasicType TInt IO CInt @@ -757,7 +768,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "TextSearchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "match_start", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "match_end", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "limit", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -806,7 +817,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -832,15 +843,15 @@ -- method TextIter::backward_sentence_starts -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_text_iter_backward_sentence_starts" gtk_text_iter_backward_sentence_starts :: Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- count : TBasicType TInt32 + Int32 -> -- count : TBasicType TInt IO CInt @@ -864,7 +875,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -900,7 +911,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -926,15 +937,15 @@ -- method TextIter::backward_visible_cursor_positions -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_text_iter_backward_visible_cursor_positions" gtk_text_iter_backward_visible_cursor_positions :: Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- count : TBasicType TInt32 + Int32 -> -- count : TBasicType TInt IO CInt @@ -958,7 +969,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -984,15 +995,15 @@ -- method TextIter::backward_visible_lines -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_text_iter_backward_visible_lines" gtk_text_iter_backward_visible_lines :: Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- count : TBasicType TInt32 + Int32 -> -- count : TBasicType TInt IO CInt @@ -1016,7 +1027,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1042,15 +1053,15 @@ -- method TextIter::backward_visible_word_starts -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_text_iter_backward_visible_word_starts" gtk_text_iter_backward_visible_word_starts :: Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- count : TBasicType TInt32 + Int32 -> -- count : TBasicType TInt IO CInt @@ -1074,7 +1085,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1100,15 +1111,15 @@ -- method TextIter::backward_word_starts -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_text_iter_backward_word_starts" gtk_text_iter_backward_word_starts :: Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- count : TBasicType TInt32 + Int32 -> -- count : TBasicType TInt IO CInt @@ -1132,7 +1143,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1168,7 +1179,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_editability", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1199,7 +1210,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rhs", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1230,7 +1241,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "TextIter" +-- returnType : Just (TInterface "Gtk" "TextIter") -- throws : False -- Skip return : False @@ -1259,7 +1270,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1290,7 +1301,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1318,7 +1329,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1346,7 +1357,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1382,7 +1393,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1410,7 +1421,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rhs", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1442,7 +1453,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1468,15 +1479,15 @@ -- method TextIter::forward_chars -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_text_iter_forward_chars" gtk_text_iter_forward_chars :: Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- count : TBasicType TInt32 + Int32 -> -- count : TBasicType TInt IO CInt @@ -1500,7 +1511,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1526,15 +1537,15 @@ -- method TextIter::forward_cursor_positions -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_text_iter_forward_cursor_positions" gtk_text_iter_forward_cursor_positions :: Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- count : TBasicType TInt32 + Int32 -> -- count : TBasicType TInt IO CInt @@ -1556,16 +1567,16 @@ -- method TextIter::forward_find_char -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pred", argType = TInterface "Gtk" "TextCharPredicate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "limit", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pred", argType = TInterface "Gtk" "TextCharPredicate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, 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},Arg {argCName = "limit", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_text_iter_forward_find_char" gtk_text_iter_forward_find_char :: Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" FunPtr TextCharPredicateC -> -- pred : TInterface "Gtk" "TextCharPredicate" - Ptr () -> -- user_data : TBasicType TVoid + Ptr () -> -- user_data : TBasicType TPtr Ptr TextIter -> -- limit : TInterface "Gtk" "TextIter" IO CInt @@ -1600,7 +1611,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1626,15 +1637,15 @@ -- method TextIter::forward_lines -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_text_iter_forward_lines" gtk_text_iter_forward_lines :: Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- count : TBasicType TInt32 + Int32 -> -- count : TBasicType TInt IO CInt @@ -1658,7 +1669,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "TextSearchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "match_start", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "match_end", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "limit", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1707,7 +1718,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1733,15 +1744,15 @@ -- method TextIter::forward_sentence_ends -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_text_iter_forward_sentence_ends" gtk_text_iter_forward_sentence_ends :: Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- count : TBasicType TInt32 + Int32 -> -- count : TBasicType TInt IO CInt @@ -1765,7 +1776,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1792,7 +1803,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1820,7 +1831,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1856,7 +1867,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1882,15 +1893,15 @@ -- method TextIter::forward_visible_cursor_positions -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_text_iter_forward_visible_cursor_positions" gtk_text_iter_forward_visible_cursor_positions :: Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- count : TBasicType TInt32 + Int32 -> -- count : TBasicType TInt IO CInt @@ -1914,7 +1925,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1940,15 +1951,15 @@ -- method TextIter::forward_visible_lines -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_text_iter_forward_visible_lines" gtk_text_iter_forward_visible_lines :: Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- count : TBasicType TInt32 + Int32 -> -- count : TBasicType TInt IO CInt @@ -1972,7 +1983,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1998,15 +2009,15 @@ -- method TextIter::forward_visible_word_ends -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_text_iter_forward_visible_word_ends" gtk_text_iter_forward_visible_word_ends :: Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- count : TBasicType TInt32 + Int32 -> -- count : TBasicType TInt IO CInt @@ -2030,7 +2041,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2056,15 +2067,15 @@ -- method TextIter::forward_word_ends -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_text_iter_forward_word_ends" gtk_text_iter_forward_word_ends :: Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- count : TBasicType TInt32 + Int32 -> -- count : TBasicType TInt IO CInt @@ -2088,7 +2099,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2115,7 +2126,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "values", argType = TInterface "Gtk" "TextAttributes", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2146,7 +2157,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "TextBuffer" +-- returnType : Just (TInterface "Gtk" "TextBuffer") -- throws : False -- Skip return : False @@ -2175,7 +2186,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -2202,7 +2213,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUniChar +-- returnType : Just (TBasicType TUniChar) -- throws : False -- Skip return : False @@ -2230,7 +2241,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -2257,7 +2268,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "TextChildAnchor" +-- returnType : Just (TInterface "Gtk" "TextChildAnchor") -- throws : False -- Skip return : False @@ -2286,7 +2297,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Pango" "Language" +-- returnType : Just (TInterface "Pango" "Language") -- throws : False -- Skip return : False @@ -2315,7 +2326,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -2342,7 +2353,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -2369,7 +2380,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -2396,7 +2407,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TGSList (TInterface "Gtk" "TextMark") +-- returnType : Just (TGSList (TInterface "Gtk" "TextMark")) -- throws : False -- Skip return : False @@ -2412,7 +2423,6 @@ textIterGetMarks _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_text_iter_get_marks _obj' - checkUnexpectedReturnNULL "gtk_text_iter_get_marks" result result' <- unpackGSList result result'' <- mapM (newObject TextMark) result' g_slist_free result @@ -2427,7 +2437,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -2454,7 +2464,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : False -- Skip return : False @@ -2483,7 +2493,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -2517,7 +2527,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TGSList (TInterface "Gtk" "TextTag") +-- returnType : Just (TGSList (TInterface "Gtk" "TextTag")) -- throws : False -- Skip return : False @@ -2533,7 +2543,6 @@ textIterGetTags _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_text_iter_get_tags _obj' - checkUnexpectedReturnNULL "gtk_text_iter_get_tags" result result' <- unpackGSList result result'' <- mapM (newObject TextTag) result' g_slist_free result @@ -2548,7 +2557,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -2582,7 +2591,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "toggled_on", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TGSList (TInterface "Gtk" "TextTag") +-- returnType : Just (TGSList (TInterface "Gtk" "TextTag")) -- throws : False -- Skip return : False @@ -2601,7 +2610,6 @@ let _obj' = unsafeManagedPtrGetPtr _obj let toggledOn' = (fromIntegral . fromEnum) toggledOn result <- gtk_text_iter_get_toggled_tags _obj' toggledOn' - checkUnexpectedReturnNULL "gtk_text_iter_get_toggled_tags" result result' <- unpackGSList result result'' <- mapM (newObject TextTag) result' g_slist_free result @@ -2616,7 +2624,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -2643,7 +2651,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -2670,7 +2678,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -2704,7 +2712,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -2738,7 +2746,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2770,7 +2778,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2806,7 +2814,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2834,7 +2842,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2862,7 +2870,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2890,7 +2898,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2918,7 +2926,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2946,7 +2954,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "second", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2975,15 +2983,15 @@ -- method TextIter::set_line -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "line_number", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "line_number", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_text_iter_set_line" gtk_text_iter_set_line :: Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- line_number : TBasicType TInt32 + Int32 -> -- line_number : TBasicType TInt IO () @@ -3004,15 +3012,15 @@ -- method TextIter::set_line_index -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "byte_on_line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "byte_on_line", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_text_iter_set_line_index" gtk_text_iter_set_line_index :: Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- byte_on_line : TBasicType TInt32 + Int32 -> -- byte_on_line : TBasicType TInt IO () @@ -3033,15 +3041,15 @@ -- method TextIter::set_line_offset -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "char_on_line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "char_on_line", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_text_iter_set_line_offset" gtk_text_iter_set_line_offset :: Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- char_on_line : TBasicType TInt32 + Int32 -> -- char_on_line : TBasicType TInt IO () @@ -3062,15 +3070,15 @@ -- method TextIter::set_offset -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "char_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "char_offset", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_text_iter_set_offset" gtk_text_iter_set_offset :: Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- char_offset : TBasicType TInt32 + Int32 -> -- char_offset : TBasicType TInt IO () @@ -3091,15 +3099,15 @@ -- method TextIter::set_visible_line_index -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "byte_on_line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "byte_on_line", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_text_iter_set_visible_line_index" gtk_text_iter_set_visible_line_index :: Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- byte_on_line : TBasicType TInt32 + Int32 -> -- byte_on_line : TBasicType TInt IO () @@ -3120,15 +3128,15 @@ -- method TextIter::set_visible_line_offset -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "char_on_line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "char_on_line", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_text_iter_set_visible_line_offset" gtk_text_iter_set_visible_line_offset :: Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- char_on_line : TBasicType TInt32 + Int32 -> -- char_on_line : TBasicType TInt IO () @@ -3151,7 +3159,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3179,7 +3187,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3207,7 +3215,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -3235,7 +3243,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False diff --git a/GI/Gtk/Structs/TextIter.hs-boot b/GI/Gtk/Structs/TextIter.hs-boot --- a/GI/Gtk/Structs/TextIter.hs-boot +++ b/GI/Gtk/Structs/TextIter.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Structs.TextIter where -import Prelude () 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 diff --git a/GI/Gtk/Structs/ThemeEngine.hs b/GI/Gtk/Structs/ThemeEngine.hs --- a/GI/Gtk/Structs/ThemeEngine.hs +++ b/GI/Gtk/Structs/ThemeEngine.hs @@ -16,9 +16,9 @@ ) where -import Prelude () 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 @@ -29,6 +29,10 @@ newtype ThemeEngine = ThemeEngine (ForeignPtr ThemeEngine) noThemeEngine :: Maybe ThemeEngine noThemeEngine = Nothing + + +type instance AttributeList ThemeEngine = ThemeEngineAttributeList +type ThemeEngineAttributeList = ('[ ] :: [(Symbol, *)]) type family ResolveThemeEngineMethod (t :: Symbol) (o :: *) :: * where ResolveThemeEngineMethod l o = MethodResolutionFailed l o diff --git a/GI/Gtk/Structs/ThemeEngine.hs-boot b/GI/Gtk/Structs/ThemeEngine.hs-boot --- a/GI/Gtk/Structs/ThemeEngine.hs-boot +++ b/GI/Gtk/Structs/ThemeEngine.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Structs.ThemeEngine where -import Prelude () 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 diff --git a/GI/Gtk/Structs/ToggleActionEntry.hs b/GI/Gtk/Structs/ToggleActionEntry.hs --- a/GI/Gtk/Structs/ToggleActionEntry.hs +++ b/GI/Gtk/Structs/ToggleActionEntry.hs @@ -20,36 +20,53 @@ -- * Properties -- ** Accelerator + toggleActionEntryAccelerator , + toggleActionEntryClearAccelerator , toggleActionEntryReadAccelerator , + toggleActionEntryWriteAccelerator , -- ** IsActive + toggleActionEntryIsActive , toggleActionEntryReadIsActive , + toggleActionEntryWriteIsActive , -- ** Label + toggleActionEntryClearLabel , + toggleActionEntryLabel , toggleActionEntryReadLabel , + toggleActionEntryWriteLabel , -- ** Name + toggleActionEntryClearName , + toggleActionEntryName , toggleActionEntryReadName , + toggleActionEntryWriteName , -- ** StockId + toggleActionEntryClearStockId , toggleActionEntryReadStockId , + toggleActionEntryStockId , + toggleActionEntryWriteStockId , -- ** Tooltip + toggleActionEntryClearTooltip , toggleActionEntryReadTooltip , + toggleActionEntryTooltip , + toggleActionEntryWriteTooltip , ) where -import Prelude () 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 @@ -62,46 +79,207 @@ newZeroToggleActionEntry :: MonadIO m => m ToggleActionEntry newZeroToggleActionEntry = liftIO $ callocBytes 56 >>= wrapPtr ToggleActionEntry +instance tag ~ 'AttrSet => Constructible ToggleActionEntry tag where + new _ attrs = do + o <- newZeroToggleActionEntry + GI.Attributes.set o attrs + return o + + noToggleActionEntry :: Maybe ToggleActionEntry noToggleActionEntry = Nothing -toggleActionEntryReadName :: ToggleActionEntry -> IO T.Text -toggleActionEntryReadName s = withManagedPtr s $ \ptr -> do +toggleActionEntryReadName :: MonadIO m => ToggleActionEntry -> m (Maybe T.Text) +toggleActionEntryReadName s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO CString - val' <- cstringToText val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- cstringToText val' + return val'' + return result -toggleActionEntryReadStockId :: ToggleActionEntry -> IO T.Text -toggleActionEntryReadStockId s = withManagedPtr s $ \ptr -> do +toggleActionEntryWriteName :: MonadIO m => ToggleActionEntry -> CString -> m () +toggleActionEntryWriteName s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 0) (val :: CString) + +toggleActionEntryClearName :: MonadIO m => ToggleActionEntry -> m () +toggleActionEntryClearName s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 0) (nullPtr :: CString) + +data ToggleActionEntryNameFieldInfo +instance AttrInfo ToggleActionEntryNameFieldInfo where + type AttrAllowedOps ToggleActionEntryNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint ToggleActionEntryNameFieldInfo = (~) CString + type AttrBaseTypeConstraint ToggleActionEntryNameFieldInfo = (~) ToggleActionEntry + type AttrGetType ToggleActionEntryNameFieldInfo = Maybe T.Text + type AttrLabel ToggleActionEntryNameFieldInfo = "name" + attrGet _ = toggleActionEntryReadName + attrSet _ = toggleActionEntryWriteName + attrConstruct = undefined + attrClear _ = toggleActionEntryClearName + +toggleActionEntryName :: AttrLabelProxy "name" +toggleActionEntryName = AttrLabelProxy + + +toggleActionEntryReadStockId :: MonadIO m => ToggleActionEntry -> m (Maybe T.Text) +toggleActionEntryReadStockId s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 8) :: IO CString - val' <- cstringToText val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- cstringToText val' + return val'' + return result -toggleActionEntryReadLabel :: ToggleActionEntry -> IO T.Text -toggleActionEntryReadLabel s = withManagedPtr s $ \ptr -> do +toggleActionEntryWriteStockId :: MonadIO m => ToggleActionEntry -> CString -> m () +toggleActionEntryWriteStockId s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 8) (val :: CString) + +toggleActionEntryClearStockId :: MonadIO m => ToggleActionEntry -> m () +toggleActionEntryClearStockId s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 8) (nullPtr :: CString) + +data ToggleActionEntryStockIdFieldInfo +instance AttrInfo ToggleActionEntryStockIdFieldInfo where + type AttrAllowedOps ToggleActionEntryStockIdFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint ToggleActionEntryStockIdFieldInfo = (~) CString + type AttrBaseTypeConstraint ToggleActionEntryStockIdFieldInfo = (~) ToggleActionEntry + type AttrGetType ToggleActionEntryStockIdFieldInfo = Maybe T.Text + type AttrLabel ToggleActionEntryStockIdFieldInfo = "stock_id" + attrGet _ = toggleActionEntryReadStockId + attrSet _ = toggleActionEntryWriteStockId + attrConstruct = undefined + attrClear _ = toggleActionEntryClearStockId + +toggleActionEntryStockId :: AttrLabelProxy "stockId" +toggleActionEntryStockId = AttrLabelProxy + + +toggleActionEntryReadLabel :: MonadIO m => ToggleActionEntry -> m (Maybe T.Text) +toggleActionEntryReadLabel s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 16) :: IO CString - val' <- cstringToText val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- cstringToText val' + return val'' + return result -toggleActionEntryReadAccelerator :: ToggleActionEntry -> IO T.Text -toggleActionEntryReadAccelerator s = withManagedPtr s $ \ptr -> do +toggleActionEntryWriteLabel :: MonadIO m => ToggleActionEntry -> CString -> m () +toggleActionEntryWriteLabel s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 16) (val :: CString) + +toggleActionEntryClearLabel :: MonadIO m => ToggleActionEntry -> m () +toggleActionEntryClearLabel s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 16) (nullPtr :: CString) + +data ToggleActionEntryLabelFieldInfo +instance AttrInfo ToggleActionEntryLabelFieldInfo where + type AttrAllowedOps ToggleActionEntryLabelFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint ToggleActionEntryLabelFieldInfo = (~) CString + type AttrBaseTypeConstraint ToggleActionEntryLabelFieldInfo = (~) ToggleActionEntry + type AttrGetType ToggleActionEntryLabelFieldInfo = Maybe T.Text + type AttrLabel ToggleActionEntryLabelFieldInfo = "label" + attrGet _ = toggleActionEntryReadLabel + attrSet _ = toggleActionEntryWriteLabel + attrConstruct = undefined + attrClear _ = toggleActionEntryClearLabel + +toggleActionEntryLabel :: AttrLabelProxy "label" +toggleActionEntryLabel = AttrLabelProxy + + +toggleActionEntryReadAccelerator :: MonadIO m => ToggleActionEntry -> m (Maybe T.Text) +toggleActionEntryReadAccelerator s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 24) :: IO CString - val' <- cstringToText val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- cstringToText val' + return val'' + return result -toggleActionEntryReadTooltip :: ToggleActionEntry -> IO T.Text -toggleActionEntryReadTooltip s = withManagedPtr s $ \ptr -> do +toggleActionEntryWriteAccelerator :: MonadIO m => ToggleActionEntry -> CString -> m () +toggleActionEntryWriteAccelerator s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 24) (val :: CString) + +toggleActionEntryClearAccelerator :: MonadIO m => ToggleActionEntry -> m () +toggleActionEntryClearAccelerator s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 24) (nullPtr :: CString) + +data ToggleActionEntryAcceleratorFieldInfo +instance AttrInfo ToggleActionEntryAcceleratorFieldInfo where + type AttrAllowedOps ToggleActionEntryAcceleratorFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint ToggleActionEntryAcceleratorFieldInfo = (~) CString + type AttrBaseTypeConstraint ToggleActionEntryAcceleratorFieldInfo = (~) ToggleActionEntry + type AttrGetType ToggleActionEntryAcceleratorFieldInfo = Maybe T.Text + type AttrLabel ToggleActionEntryAcceleratorFieldInfo = "accelerator" + attrGet _ = toggleActionEntryReadAccelerator + attrSet _ = toggleActionEntryWriteAccelerator + attrConstruct = undefined + attrClear _ = toggleActionEntryClearAccelerator + +toggleActionEntryAccelerator :: AttrLabelProxy "accelerator" +toggleActionEntryAccelerator = AttrLabelProxy + + +toggleActionEntryReadTooltip :: MonadIO m => ToggleActionEntry -> m (Maybe T.Text) +toggleActionEntryReadTooltip s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 32) :: IO CString - val' <- cstringToText val - return val' + result <- convertIfNonNull val $ \val' -> do + val'' <- cstringToText val' + return val'' + return result --- XXX Skipped getter for "ToggleActionEntry:callback" :: Not implemented: "Wrapping foreign callbacks is not supported yet" +toggleActionEntryWriteTooltip :: MonadIO m => ToggleActionEntry -> CString -> m () +toggleActionEntryWriteTooltip s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 32) (val :: CString) -toggleActionEntryReadIsActive :: ToggleActionEntry -> IO Bool -toggleActionEntryReadIsActive s = withManagedPtr s $ \ptr -> do +toggleActionEntryClearTooltip :: MonadIO m => ToggleActionEntry -> m () +toggleActionEntryClearTooltip s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 32) (nullPtr :: CString) + +data ToggleActionEntryTooltipFieldInfo +instance AttrInfo ToggleActionEntryTooltipFieldInfo where + type AttrAllowedOps ToggleActionEntryTooltipFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint ToggleActionEntryTooltipFieldInfo = (~) CString + type AttrBaseTypeConstraint ToggleActionEntryTooltipFieldInfo = (~) ToggleActionEntry + type AttrGetType ToggleActionEntryTooltipFieldInfo = Maybe T.Text + type AttrLabel ToggleActionEntryTooltipFieldInfo = "tooltip" + attrGet _ = toggleActionEntryReadTooltip + attrSet _ = toggleActionEntryWriteTooltip + attrConstruct = undefined + attrClear _ = toggleActionEntryClearTooltip + +toggleActionEntryTooltip :: AttrLabelProxy "tooltip" +toggleActionEntryTooltip = AttrLabelProxy + + +-- XXX Skipped attribute for "ToggleActionEntry:callback" :: Not implemented: "Wrapping foreign callbacks is not supported yet" +toggleActionEntryReadIsActive :: MonadIO m => ToggleActionEntry -> m Bool +toggleActionEntryReadIsActive s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 48) :: IO CInt let val' = (/= 0) val return val' + +toggleActionEntryWriteIsActive :: MonadIO m => ToggleActionEntry -> Bool -> m () +toggleActionEntryWriteIsActive s val = liftIO $ withManagedPtr s $ \ptr -> do + let val' = (fromIntegral . fromEnum) val + poke (ptr `plusPtr` 48) (val' :: CInt) + +data ToggleActionEntryIsActiveFieldInfo +instance AttrInfo ToggleActionEntryIsActiveFieldInfo where + type AttrAllowedOps ToggleActionEntryIsActiveFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint ToggleActionEntryIsActiveFieldInfo = (~) Bool + type AttrBaseTypeConstraint ToggleActionEntryIsActiveFieldInfo = (~) ToggleActionEntry + type AttrGetType ToggleActionEntryIsActiveFieldInfo = Bool + type AttrLabel ToggleActionEntryIsActiveFieldInfo = "is_active" + attrGet _ = toggleActionEntryReadIsActive + attrSet _ = toggleActionEntryWriteIsActive + attrConstruct = undefined + attrClear _ = undefined + +toggleActionEntryIsActive :: AttrLabelProxy "isActive" +toggleActionEntryIsActive = AttrLabelProxy + + + +type instance AttributeList ToggleActionEntry = ToggleActionEntryAttributeList +type ToggleActionEntryAttributeList = ('[ '("name", ToggleActionEntryNameFieldInfo), '("stockId", ToggleActionEntryStockIdFieldInfo), '("label", ToggleActionEntryLabelFieldInfo), '("accelerator", ToggleActionEntryAcceleratorFieldInfo), '("tooltip", ToggleActionEntryTooltipFieldInfo), '("isActive", ToggleActionEntryIsActiveFieldInfo)] :: [(Symbol, *)]) type family ResolveToggleActionEntryMethod (t :: Symbol) (o :: *) :: * where ResolveToggleActionEntryMethod l o = MethodResolutionFailed l o diff --git a/GI/Gtk/Structs/ToggleActionEntry.hs-boot b/GI/Gtk/Structs/ToggleActionEntry.hs-boot --- a/GI/Gtk/Structs/ToggleActionEntry.hs-boot +++ b/GI/Gtk/Structs/ToggleActionEntry.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Structs.ToggleActionEntry where -import Prelude () 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 diff --git a/GI/Gtk/Structs/TreeIter.hs b/GI/Gtk/Structs/TreeIter.hs --- a/GI/Gtk/Structs/TreeIter.hs +++ b/GI/Gtk/Structs/TreeIter.hs @@ -37,27 +37,38 @@ -- * Properties -- ** Stamp treeIterReadStamp , + treeIterStamp , + treeIterWriteStamp , -- ** UserData + treeIterClearUserData , treeIterReadUserData , + treeIterUserData , + treeIterWriteUserData , -- ** UserData2 + treeIterClearUserData2 , treeIterReadUserData2 , + treeIterUserData2 , + treeIterWriteUserData2 , -- ** UserData3 + treeIterClearUserData3 , treeIterReadUserData3 , + treeIterUserData3 , + treeIterWriteUserData3 , ) where -import Prelude () 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 @@ -76,34 +87,137 @@ newZeroTreeIter :: MonadIO m => m TreeIter newZeroTreeIter = liftIO $ callocBoxedBytes 32 >>= wrapBoxed TreeIter +instance tag ~ 'AttrSet => Constructible TreeIter tag where + new _ attrs = do + o <- newZeroTreeIter + GI.Attributes.set o attrs + return o + + noTreeIter :: Maybe TreeIter noTreeIter = Nothing -treeIterReadStamp :: TreeIter -> IO Int32 -treeIterReadStamp s = withManagedPtr s $ \ptr -> do +treeIterReadStamp :: MonadIO m => TreeIter -> m Int32 +treeIterReadStamp s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO Int32 return val -treeIterReadUserData :: TreeIter -> IO (Ptr ()) -treeIterReadUserData s = withManagedPtr s $ \ptr -> do +treeIterWriteStamp :: MonadIO m => TreeIter -> Int32 -> m () +treeIterWriteStamp s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 0) (val :: Int32) + +data TreeIterStampFieldInfo +instance AttrInfo TreeIterStampFieldInfo where + type AttrAllowedOps TreeIterStampFieldInfo = '[ 'AttrSet, 'AttrGet] + type AttrSetTypeConstraint TreeIterStampFieldInfo = (~) Int32 + type AttrBaseTypeConstraint TreeIterStampFieldInfo = (~) TreeIter + type AttrGetType TreeIterStampFieldInfo = Int32 + type AttrLabel TreeIterStampFieldInfo = "stamp" + attrGet _ = treeIterReadStamp + attrSet _ = treeIterWriteStamp + attrConstruct = undefined + attrClear _ = undefined + +treeIterStamp :: AttrLabelProxy "stamp" +treeIterStamp = AttrLabelProxy + + +treeIterReadUserData :: MonadIO m => TreeIter -> m (Ptr ()) +treeIterReadUserData s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 8) :: IO (Ptr ()) return val -treeIterReadUserData2 :: TreeIter -> IO (Ptr ()) -treeIterReadUserData2 s = withManagedPtr s $ \ptr -> do +treeIterWriteUserData :: MonadIO m => TreeIter -> Ptr () -> m () +treeIterWriteUserData s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 8) (val :: Ptr ()) + +treeIterClearUserData :: MonadIO m => TreeIter -> m () +treeIterClearUserData s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 8) (nullPtr :: Ptr ()) + +data TreeIterUserDataFieldInfo +instance AttrInfo TreeIterUserDataFieldInfo where + type AttrAllowedOps TreeIterUserDataFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint TreeIterUserDataFieldInfo = (~) (Ptr ()) + type AttrBaseTypeConstraint TreeIterUserDataFieldInfo = (~) TreeIter + type AttrGetType TreeIterUserDataFieldInfo = Ptr () + type AttrLabel TreeIterUserDataFieldInfo = "user_data" + attrGet _ = treeIterReadUserData + attrSet _ = treeIterWriteUserData + attrConstruct = undefined + attrClear _ = treeIterClearUserData + +treeIterUserData :: AttrLabelProxy "userData" +treeIterUserData = AttrLabelProxy + + +treeIterReadUserData2 :: MonadIO m => TreeIter -> m (Ptr ()) +treeIterReadUserData2 s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 16) :: IO (Ptr ()) return val -treeIterReadUserData3 :: TreeIter -> IO (Ptr ()) -treeIterReadUserData3 s = withManagedPtr s $ \ptr -> do +treeIterWriteUserData2 :: MonadIO m => TreeIter -> Ptr () -> m () +treeIterWriteUserData2 s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 16) (val :: Ptr ()) + +treeIterClearUserData2 :: MonadIO m => TreeIter -> m () +treeIterClearUserData2 s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 16) (nullPtr :: Ptr ()) + +data TreeIterUserData2FieldInfo +instance AttrInfo TreeIterUserData2FieldInfo where + type AttrAllowedOps TreeIterUserData2FieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint TreeIterUserData2FieldInfo = (~) (Ptr ()) + type AttrBaseTypeConstraint TreeIterUserData2FieldInfo = (~) TreeIter + type AttrGetType TreeIterUserData2FieldInfo = Ptr () + type AttrLabel TreeIterUserData2FieldInfo = "user_data2" + attrGet _ = treeIterReadUserData2 + attrSet _ = treeIterWriteUserData2 + attrConstruct = undefined + attrClear _ = treeIterClearUserData2 + +treeIterUserData2 :: AttrLabelProxy "userData2" +treeIterUserData2 = AttrLabelProxy + + +treeIterReadUserData3 :: MonadIO m => TreeIter -> m (Ptr ()) +treeIterReadUserData3 s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 24) :: IO (Ptr ()) return val +treeIterWriteUserData3 :: MonadIO m => TreeIter -> Ptr () -> m () +treeIterWriteUserData3 s val = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 24) (val :: Ptr ()) + +treeIterClearUserData3 :: MonadIO m => TreeIter -> m () +treeIterClearUserData3 s = liftIO $ withManagedPtr s $ \ptr -> do + poke (ptr `plusPtr` 24) (nullPtr :: Ptr ()) + +data TreeIterUserData3FieldInfo +instance AttrInfo TreeIterUserData3FieldInfo where + type AttrAllowedOps TreeIterUserData3FieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] + type AttrSetTypeConstraint TreeIterUserData3FieldInfo = (~) (Ptr ()) + type AttrBaseTypeConstraint TreeIterUserData3FieldInfo = (~) TreeIter + type AttrGetType TreeIterUserData3FieldInfo = Ptr () + type AttrLabel TreeIterUserData3FieldInfo = "user_data3" + attrGet _ = treeIterReadUserData3 + attrSet _ = treeIterWriteUserData3 + attrConstruct = undefined + attrClear _ = treeIterClearUserData3 + +treeIterUserData3 :: AttrLabelProxy "userData3" +treeIterUserData3 = AttrLabelProxy + + + +type instance AttributeList TreeIter = TreeIterAttributeList +type TreeIterAttributeList = ('[ '("stamp", TreeIterStampFieldInfo), '("userData", TreeIterUserDataFieldInfo), '("userData2", TreeIterUserData2FieldInfo), '("userData3", TreeIterUserData3FieldInfo)] :: [(Symbol, *)]) + -- method TreeIter::copy -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "TreeIter" +-- returnType : Just (TInterface "Gtk" "TreeIter") -- throws : False -- Skip return : False @@ -132,7 +246,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Structs/TreeIter.hs-boot b/GI/Gtk/Structs/TreeIter.hs-boot --- a/GI/Gtk/Structs/TreeIter.hs-boot +++ b/GI/Gtk/Structs/TreeIter.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Structs.TreeIter where -import Prelude () 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 diff --git a/GI/Gtk/Structs/TreePath.hs b/GI/Gtk/Structs/TreePath.hs --- a/GI/Gtk/Structs/TreePath.hs +++ b/GI/Gtk/Structs/TreePath.hs @@ -105,9 +105,9 @@ ) where -import Prelude () 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 @@ -125,11 +125,15 @@ noTreePath :: Maybe TreePath noTreePath = Nothing + +type instance AttributeList TreePath = TreePathAttributeList +type TreePathAttributeList = ('[ ] :: [(Symbol, *)]) + -- method TreePath::new -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "TreePath" +-- returnType : Just (TInterface "Gtk" "TreePath") -- throws : False -- Skip return : False @@ -150,7 +154,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "TreePath" +-- returnType : Just (TInterface "Gtk" "TreePath") -- throws : False -- Skip return : False @@ -169,14 +173,14 @@ -- method TreePath::new_from_indices -- method type : Constructor --- Args : [Arg {argCName = "indices", argType = TCArray False (-1) 1 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "indices", argType = TCArray False (-1) 1 (TBasicType TInt), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "TreePath" +-- returnType : Just (TInterface "Gtk" "TreePath") -- throws : False -- Skip return : False foreign import ccall "gtk_tree_path_new_from_indicesv" gtk_tree_path_new_from_indicesv :: - Ptr Int32 -> -- indices : TCArray False (-1) 1 (TBasicType TInt32) + Ptr Int32 -> -- indices : TCArray False (-1) 1 (TBasicType TInt) Word64 -> -- length : TBasicType TUInt64 IO (Ptr TreePath) @@ -198,7 +202,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "TreePath" +-- returnType : Just (TInterface "Gtk" "TreePath") -- throws : False -- Skip return : False @@ -221,26 +225,26 @@ -- method TreePath::append_index -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_path_append_index" gtk_tree_path_append_index :: Ptr TreePath -> -- _obj : TInterface "Gtk" "TreePath" - Int32 -> -- index_ : TBasicType TInt32 + Int32 -> -- index_ : TBasicType TInt IO () treePathAppendIndex :: (MonadIO m) => TreePath -- _obj - -> Int32 -- index + -> Int32 -- index_ -> m () -- result -treePathAppendIndex _obj index = liftIO $ do +treePathAppendIndex _obj index_ = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj - gtk_tree_path_append_index _obj' index + gtk_tree_path_append_index _obj' index_ touchManagedPtr _obj return () @@ -252,7 +256,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "b", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -283,7 +287,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "TreePath" +-- returnType : Just (TInterface "Gtk" "TreePath") -- throws : False -- Skip return : False @@ -312,7 +316,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -339,7 +343,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -366,7 +370,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -391,15 +395,15 @@ -- method TreePath::get_indices -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "depth", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "depth", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : TCArray False (-1) 1 (TBasicType TInt32) +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "depth", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [Arg {argCName = "depth", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- returnType : Just (TCArray False (-1) 1 (TBasicType TInt)) -- throws : False -- Skip return : False foreign import ccall "gtk_tree_path_get_indices_with_depth" gtk_tree_path_get_indices_with_depth :: Ptr TreePath -> -- _obj : TInterface "Gtk" "TreePath" - Ptr Int32 -> -- depth : TBasicType TInt32 + Ptr Int32 -> -- depth : TBasicType TInt IO (Ptr Int32) @@ -426,7 +430,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "descendant", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -458,7 +462,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ancestor", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -490,7 +494,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -515,26 +519,26 @@ -- method TreePath::prepend_index -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_path_prepend_index" gtk_tree_path_prepend_index :: Ptr TreePath -> -- _obj : TInterface "Gtk" "TreePath" - Int32 -> -- index_ : TBasicType TInt32 + Int32 -> -- index_ : TBasicType TInt IO () treePathPrependIndex :: (MonadIO m) => TreePath -- _obj - -> Int32 -- index + -> Int32 -- index_ -> m () -- result -treePathPrependIndex _obj index = liftIO $ do +treePathPrependIndex _obj index_ = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj - gtk_tree_path_prepend_index _obj' index + gtk_tree_path_prepend_index _obj' index_ touchManagedPtr _obj return () @@ -546,7 +550,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -574,7 +578,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -604,7 +608,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False diff --git a/GI/Gtk/Structs/TreePath.hs-boot b/GI/Gtk/Structs/TreePath.hs-boot --- a/GI/Gtk/Structs/TreePath.hs-boot +++ b/GI/Gtk/Structs/TreePath.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Structs.TreePath where -import Prelude () 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 diff --git a/GI/Gtk/Structs/TreeRowReference.hs b/GI/Gtk/Structs/TreeRowReference.hs --- a/GI/Gtk/Structs/TreeRowReference.hs +++ b/GI/Gtk/Structs/TreeRowReference.hs @@ -64,9 +64,9 @@ ) where -import Prelude () 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 @@ -85,11 +85,15 @@ noTreeRowReference :: Maybe TreeRowReference noTreeRowReference = Nothing + +type instance AttributeList TreeRowReference = TreeRowReferenceAttributeList +type TreeRowReferenceAttributeList = ('[ ] :: [(Symbol, *)]) + -- method TreeRowReference::new -- method type : Constructor -- Args : [Arg {argCName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "TreeRowReference" +-- returnType : Just (TInterface "Gtk" "TreeRowReference") -- throws : False -- Skip return : False @@ -118,7 +122,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "proxy", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "TreeRowReference" +-- returnType : Just (TInterface "Gtk" "TreeRowReference") -- throws : False -- Skip return : False @@ -151,7 +155,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeRowReference", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "TreeRowReference" +-- returnType : Just (TInterface "Gtk" "TreeRowReference") -- throws : False -- Skip return : False @@ -180,7 +184,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeRowReference", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -207,7 +211,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeRowReference", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "TreeModel" +-- returnType : Just (TInterface "Gtk" "TreeModel") -- throws : False -- Skip return : False @@ -236,7 +240,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeRowReference", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "TreePath" +-- returnType : Just (TInterface "Gtk" "TreePath") -- throws : False -- Skip return : False @@ -248,24 +252,25 @@ treeRowReferenceGetPath :: (MonadIO m) => TreeRowReference -- _obj - -> m TreePath -- result + -> m (Maybe TreePath) -- result treeRowReferenceGetPath _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_tree_row_reference_get_path _obj' - checkUnexpectedReturnNULL "gtk_tree_row_reference_get_path" result - result' <- (wrapBoxed TreePath) result + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (wrapBoxed TreePath) result' + return result'' touchManagedPtr _obj - return result' + return maybeResult data TreeRowReferenceGetPathMethodInfo -instance (signature ~ (m TreePath), MonadIO m) => MethodInfo TreeRowReferenceGetPathMethodInfo TreeRowReference signature where +instance (signature ~ (m (Maybe TreePath)), MonadIO m) => MethodInfo TreeRowReferenceGetPathMethodInfo TreeRowReference signature where overloadedMethod _ = treeRowReferenceGetPath -- method TreeRowReference::valid -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeRowReference", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -293,7 +298,7 @@ -- method type : MemberFunction -- Args : [Arg {argCName = "proxy", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -320,7 +325,7 @@ -- method type : MemberFunction -- Args : [Arg {argCName = "proxy", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Structs/TreeRowReference.hs-boot b/GI/Gtk/Structs/TreeRowReference.hs-boot --- a/GI/Gtk/Structs/TreeRowReference.hs-boot +++ b/GI/Gtk/Structs/TreeRowReference.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Structs.TreeRowReference where -import Prelude () 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 diff --git a/GI/Gtk/Structs/WidgetPath.hs b/GI/Gtk/Structs/WidgetPath.hs --- a/GI/Gtk/Structs/WidgetPath.hs +++ b/GI/Gtk/Structs/WidgetPath.hs @@ -246,9 +246,9 @@ ) where -import Prelude () 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 @@ -266,11 +266,15 @@ noWidgetPath :: Maybe WidgetPath noWidgetPath = Nothing + +type instance AttributeList WidgetPath = WidgetPathAttributeList +type WidgetPathAttributeList = ('[ ] :: [(Symbol, *)]) + -- method WidgetPath::new -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "Gtk" "WidgetPath" +-- returnType : Just (TInterface "Gtk" "WidgetPath") -- throws : False -- Skip return : False @@ -291,7 +295,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -322,7 +326,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -350,16 +354,16 @@ -- method WidgetPath::append_with_siblings -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "siblings", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sibling_index", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "siblings", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sibling_index", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False foreign import ccall "gtk_widget_path_append_with_siblings" gtk_widget_path_append_with_siblings :: Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" Ptr WidgetPath -> -- siblings : TInterface "Gtk" "WidgetPath" - Word32 -> -- sibling_index : TBasicType TUInt32 + Word32 -> -- sibling_index : TBasicType TUInt IO Int32 @@ -385,7 +389,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "WidgetPath" +-- returnType : Just (TInterface "Gtk" "WidgetPath") -- throws : False -- Skip return : False @@ -414,7 +418,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -441,7 +445,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TGType +-- returnType : Just (TBasicType TGType) -- throws : False -- Skip return : False @@ -469,7 +473,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -500,7 +504,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -529,15 +533,15 @@ -- method WidgetPath::iter_add_class -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt32, 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}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt, 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_widget_path_iter_add_class" gtk_widget_path_iter_add_class :: Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt32 + Int32 -> -- pos : TBasicType TInt CString -> -- name : TBasicType TUTF8 IO () @@ -562,15 +566,15 @@ -- method WidgetPath::iter_add_region -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt32, 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 = "flags", argType = TInterface "Gtk" "RegionFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt, 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 = "flags", argType = TInterface "Gtk" "RegionFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_widget_path_iter_add_region" gtk_widget_path_iter_add_region :: Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt32 + Int32 -> -- pos : TBasicType TInt CString -> -- name : TBasicType TUTF8 CUInt -> -- flags : TInterface "Gtk" "RegionFlags" IO () @@ -598,15 +602,15 @@ -- method WidgetPath::iter_clear_classes -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_widget_path_iter_clear_classes" gtk_widget_path_iter_clear_classes :: Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt32 + Int32 -> -- pos : TBasicType TInt IO () @@ -627,15 +631,15 @@ -- method WidgetPath::iter_clear_regions -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_widget_path_iter_clear_regions" gtk_widget_path_iter_clear_regions :: Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt32 + Int32 -> -- pos : TBasicType TInt IO () {-# DEPRECATED widgetPathIterClearRegions ["(Since version 3.14)","The use of regions is deprecated."]#-} @@ -656,15 +660,15 @@ -- method WidgetPath::iter_get_name -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False foreign import ccall "gtk_widget_path_iter_get_name" gtk_widget_path_iter_get_name :: Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt32 + Int32 -> -- pos : TBasicType TInt IO CString @@ -687,15 +691,15 @@ -- method WidgetPath::iter_get_object_type -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TGType +-- returnType : Just (TBasicType TGType) -- throws : False -- Skip return : False foreign import ccall "gtk_widget_path_iter_get_object_type" gtk_widget_path_iter_get_object_type :: Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt32 + Int32 -> -- pos : TBasicType TInt IO CGType @@ -717,15 +721,15 @@ -- method WidgetPath::iter_get_sibling_index -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt32 +-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False foreign import ccall "gtk_widget_path_iter_get_sibling_index" gtk_widget_path_iter_get_sibling_index :: Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt32 + Int32 -> -- pos : TBasicType TInt IO Word32 @@ -746,15 +750,15 @@ -- method WidgetPath::iter_get_siblings -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "WidgetPath" +-- returnType : Just (TInterface "Gtk" "WidgetPath") -- throws : False -- Skip return : False foreign import ccall "gtk_widget_path_iter_get_siblings" gtk_widget_path_iter_get_siblings :: Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt32 + Int32 -> -- pos : TBasicType TInt IO (Ptr WidgetPath) @@ -777,15 +781,15 @@ -- method WidgetPath::iter_get_state -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "StateFlags" +-- returnType : Just (TInterface "Gtk" "StateFlags") -- throws : False -- Skip return : False foreign import ccall "gtk_widget_path_iter_get_state" gtk_widget_path_iter_get_state :: Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt32 + Int32 -> -- pos : TBasicType TInt IO CUInt @@ -807,15 +811,15 @@ -- method WidgetPath::iter_has_class -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt32, 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}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt, 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 : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_widget_path_iter_has_class" gtk_widget_path_iter_has_class :: Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt32 + Int32 -> -- pos : TBasicType TInt CString -> -- name : TBasicType TUTF8 IO CInt @@ -841,15 +845,15 @@ -- method WidgetPath::iter_has_name -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt32, 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}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt, 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 : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_widget_path_iter_has_name" gtk_widget_path_iter_has_name :: Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt32 + Int32 -> -- pos : TBasicType TInt CString -> -- name : TBasicType TUTF8 IO CInt @@ -875,15 +879,15 @@ -- method WidgetPath::iter_has_qclass -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "qname", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "qname", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_widget_path_iter_has_qclass" gtk_widget_path_iter_has_qclass :: Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt32 + Int32 -> -- pos : TBasicType TInt Word32 -> -- qname : TBasicType TUInt32 IO CInt @@ -907,15 +911,15 @@ -- method WidgetPath::iter_has_qname -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "qname", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "qname", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_widget_path_iter_has_qname" gtk_widget_path_iter_has_qname :: Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt32 + Int32 -> -- pos : TBasicType TInt Word32 -> -- qname : TBasicType TUInt32 IO CInt @@ -939,15 +943,15 @@ -- method WidgetPath::iter_has_qregion -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "qname", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "RegionFlags", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "qname", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gtk" "RegionFlags", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_widget_path_iter_has_qregion" gtk_widget_path_iter_has_qregion :: Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt32 + Int32 -> -- pos : TBasicType TInt Word32 -> -- qname : TBasicType TUInt32 Ptr CUInt -> -- flags : TInterface "Gtk" "RegionFlags" IO CInt @@ -976,15 +980,15 @@ -- method WidgetPath::iter_has_region -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt32, 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 = "flags", argType = TInterface "Gtk" "RegionFlags", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt, 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 = "flags", argType = TInterface "Gtk" "RegionFlags", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_widget_path_iter_has_region" gtk_widget_path_iter_has_region :: Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt32 + Int32 -> -- pos : TBasicType TInt CString -> -- name : TBasicType TUTF8 Ptr CUInt -> -- flags : TInterface "Gtk" "RegionFlags" IO CInt @@ -1015,15 +1019,15 @@ -- method WidgetPath::iter_list_classes -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TGSList (TBasicType TUTF8) +-- returnType : Just (TGSList (TBasicType TUTF8)) -- throws : False -- Skip return : False foreign import ccall "gtk_widget_path_iter_list_classes" gtk_widget_path_iter_list_classes :: Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt32 + Int32 -> -- pos : TBasicType TInt IO (Ptr (GSList CString)) @@ -1035,7 +1039,6 @@ widgetPathIterListClasses _obj pos = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_widget_path_iter_list_classes _obj' pos - checkUnexpectedReturnNULL "gtk_widget_path_iter_list_classes" result result' <- unpackGSList result result'' <- mapM cstringToText result' g_slist_free result @@ -1048,15 +1051,15 @@ -- method WidgetPath::iter_list_regions -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TGSList (TBasicType TUTF8) +-- returnType : Just (TGSList (TBasicType TUTF8)) -- throws : False -- Skip return : False foreign import ccall "gtk_widget_path_iter_list_regions" gtk_widget_path_iter_list_regions :: Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt32 + Int32 -> -- pos : TBasicType TInt IO (Ptr (GSList CString)) {-# DEPRECATED widgetPathIterListRegions ["(Since version 3.14)","The use of regions is deprecated."]#-} @@ -1068,7 +1071,6 @@ widgetPathIterListRegions _obj pos = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gtk_widget_path_iter_list_regions _obj' pos - checkUnexpectedReturnNULL "gtk_widget_path_iter_list_regions" result result' <- unpackGSList result result'' <- mapM cstringToText result' g_slist_free result @@ -1081,15 +1083,15 @@ -- method WidgetPath::iter_remove_class -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt32, 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}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt, 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_widget_path_iter_remove_class" gtk_widget_path_iter_remove_class :: Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt32 + Int32 -> -- pos : TBasicType TInt CString -> -- name : TBasicType TUTF8 IO () @@ -1114,15 +1116,15 @@ -- method WidgetPath::iter_remove_region -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt32, 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}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt, 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_widget_path_iter_remove_region" gtk_widget_path_iter_remove_region :: Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt32 + Int32 -> -- pos : TBasicType TInt CString -> -- name : TBasicType TUTF8 IO () @@ -1147,15 +1149,15 @@ -- method WidgetPath::iter_set_name -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt32, 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}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt, 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_widget_path_iter_set_name" gtk_widget_path_iter_set_name :: Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt32 + Int32 -> -- pos : TBasicType TInt CString -> -- name : TBasicType TUTF8 IO () @@ -1180,15 +1182,15 @@ -- method WidgetPath::iter_set_object_type -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_widget_path_iter_set_object_type" gtk_widget_path_iter_set_object_type :: Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt32 + Int32 -> -- pos : TBasicType TInt CGType -> -- type : TBasicType TGType IO () @@ -1212,15 +1214,15 @@ -- method WidgetPath::iter_set_state -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_widget_path_iter_set_state" gtk_widget_path_iter_set_state :: Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt32 + Int32 -> -- pos : TBasicType TInt CUInt -> -- state : TInterface "Gtk" "StateFlags" IO () @@ -1246,7 +1248,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1273,7 +1275,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1303,7 +1305,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "Gtk" "WidgetPath" +-- returnType : Just (TInterface "Gtk" "WidgetPath") -- throws : False -- Skip return : False @@ -1332,7 +1334,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1362,7 +1364,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/Gtk/Structs/WidgetPath.hs-boot b/GI/Gtk/Structs/WidgetPath.hs-boot --- a/GI/Gtk/Structs/WidgetPath.hs-boot +++ b/GI/Gtk/Structs/WidgetPath.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Structs.WidgetPath where -import Prelude () 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 diff --git a/GI/Gtk/Structs/WindowGeometryInfo.hs b/GI/Gtk/Structs/WindowGeometryInfo.hs --- a/GI/Gtk/Structs/WindowGeometryInfo.hs +++ b/GI/Gtk/Structs/WindowGeometryInfo.hs @@ -16,9 +16,9 @@ ) where -import Prelude () 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 @@ -29,6 +29,10 @@ newtype WindowGeometryInfo = WindowGeometryInfo (ForeignPtr WindowGeometryInfo) noWindowGeometryInfo :: Maybe WindowGeometryInfo noWindowGeometryInfo = Nothing + + +type instance AttributeList WindowGeometryInfo = WindowGeometryInfoAttributeList +type WindowGeometryInfoAttributeList = ('[ ] :: [(Symbol, *)]) type family ResolveWindowGeometryInfoMethod (t :: Symbol) (o :: *) :: * where ResolveWindowGeometryInfoMethod l o = MethodResolutionFailed l o diff --git a/GI/Gtk/Structs/WindowGeometryInfo.hs-boot b/GI/Gtk/Structs/WindowGeometryInfo.hs-boot --- a/GI/Gtk/Structs/WindowGeometryInfo.hs-boot +++ b/GI/Gtk/Structs/WindowGeometryInfo.hs-boot @@ -1,8 +1,8 @@ module GI.Gtk.Structs.WindowGeometryInfo where -import Prelude () 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 diff --git a/gi-gtk.cabal b/gi-gtk.cabal --- a/gi-gtk.cabal +++ b/gi-gtk.cabal @@ -1,6 +1,6 @@ -- Autogenerated, do not edit. name: gi-gtk -version: 0.3.18.13 +version: 0.3.18.14 synopsis: Gtk bindings description: Bindings for Gtk, autogenerated by haskell-gi. homepage: https://github.com/haskell-gi/haskell-gi @@ -14,7 +14,7 @@ library default-language: Haskell2010 - default-extensions: ScopedTypeVariables, CPP, OverloadedStrings, NegativeLiterals, ConstraintKinds, TypeFamilies, MultiParamTypeClasses, KindSignatures, FlexibleInstances, UndecidableInstances, DataKinds, FlexibleContexts + 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.Gtk.Types @@ -351,15 +351,15 @@ GI.Gtk.Structs.WindowGeometryInfo pkgconfig-depends: gtk+-3.0 >= 3.18 build-depends: base >= 4.7 && <5, - haskell-gi-base >= 0.13 && < 1, - gi-atk >= 0.2.18.13 && < 0.2.19, - gi-glib >= 0.2.46.13 && < 0.2.47, - gi-gobject >= 0.2.46.13 && < 0.2.47, - gi-gdk >= 0.3.18.13 && < 0.3.19, - gi-gdkpixbuf >= 0.2.32.13 && < 0.2.33, - gi-gio >= 0.2.46.13 && < 0.2.47, - gi-pango >= 0.1.38.13 && < 0.1.39, - gi-cairo >= 0.1.14.13 && < 0.1.15, + haskell-gi-base >= 0.14 && < 1, + gi-atk >= 0.2.18.14 && < 0.2.19, + gi-glib >= 0.2.46.14 && < 0.2.47, + gi-gobject >= 0.2.46.14 && < 0.2.47, + gi-gdk >= 0.3.18.14 && < 0.3.19, + gi-gdkpixbuf >= 0.2.32.14 && < 0.2.33, + gi-gio >= 0.2.46.14 && < 0.2.47, + gi-pango >= 0.1.38.14 && < 0.1.39, + gi-cairo >= 0.1.14.14 && < 0.1.15, bytestring >= 0.10, containers >= 0.5, text >= 1.0,