Add QCursorShape and QWidget.setCursor

parent 8ae800f8
......@@ -30,6 +30,7 @@ module Graphics.UI.Qtah.Generator.Interface.Core.Types (
e_ContextMenuPolicy,
e_Corner,
e_CursorMoveStyle,
e_CursorShape,
e_DropAction,
bs_DropActions,
e_EventPriority,
......@@ -120,6 +121,7 @@ exports =
, just $ ExportEnum e_ContextMenuPolicy
, just $ ExportEnum e_Corner
, just $ ExportEnum e_CursorMoveStyle
, just $ ExportEnum e_CursorShape
, just $ ExportEnum e_DropAction
, just $ ExportBitspace bs_DropActions
, just $ ExportEnum e_EventPriority
......@@ -269,6 +271,33 @@ e_CursorMoveStyle =
, (1, ["visual", "move", "style"])
]
e_CursorShape =
makeQtEnum (ident1 "Qt" "CursorShape") qtInclude
[ (0, ["arrow", "cursor"])
, (1, ["up", "arrow", "cursor"])
, (2, ["cross", "cursor"])
, (3, ["wait", "cursor"])
, (4, ["i", "beam", "cursor"])
, (5, ["size", "ver", "cursor"])
, (6, ["size", "hor", "cursor"])
, (7, ["size", "b", "diag", "cursor"])
, (8, ["size", "f", "diag", "cursor"])
, (9, ["size", "all", "cursor"])
, (10, ["blank", "cursor"])
, (11, ["split", "v", "cursor"])
, (12, ["split", "h", "cursor"])
, (13, ["pointing", "hand", "cursor"])
, (14, ["forbidden", "cursor"])
, (15, ["whats", "this", "cursor"])
, (16, ["busy", "cursor"])
, (17, ["open", "hand", "cursor"])
, (18, ["closed", "hand", "cursor"])
, (19, ["drag", "copy", "cursor"])
, (20, ["drag", "move", "cursor"])
, (21, ["drag", "link", "cursor"])
, (24, ["bitmap", "cursor"])
]
(e_DropAction, bs_DropActions) =
makeQtEnumBitspace (ident1 "Qt" "DropAction") "DropActions" qtInclude
[ (0x0, ["ignore", "action"])
......
......@@ -49,6 +49,7 @@ import Graphics.UI.Qtah.Generator.Interface.Core.Types (
bs_WindowFlags,
bs_WindowStates,
e_ContextMenuPolicy,
e_CursorShape,
e_LayoutDirection,
e_WindowModality,
e_WindowType,
......@@ -109,7 +110,8 @@ c_QWidget =
, just $ mkConstMethod "contentsMargins" [] $ objT c_QMargins
, just $ mkConstMethod "contentsRect" [] $ objT c_QRect
, just $ mkProp "contextMenuPolicy" $ enumT e_ContextMenuPolicy
-- TODO cursor
-- TODO cursor property made proper
, just $ mkMethod "setCursor" [enumT e_CursorShape] voidT
-- TODO effectiveWinId
, just $ mkConstMethod "ensurePolished" [] voidT
-- TODO find
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment