Font cursors

Font cursors are easy to use. They are specified by a constant from the CgConstants pool dictionary. The previous example used a font cursor called watch:. In the following example, a coffee mug cursor appears on the screen for 5 seconds:

| window mug |

window := self shell window.

mug := window display createFontCursor: XCCoffeeMug.

window defineCursor: mug.

(Delay forSeconds: 5) wait.

window undefineCursor.

mug freeCursor

The following table lists the available font cursors specified in the CgConstants pool dictionary:

Table 20. Font cursors

XCArrow	XCBasedArrowDown	XCBasedArrowUp	XCBoat
XCBogosity	XCBottomLeftCorner	XCBottomRightCorner	XCBottomSide
XCBottomTee	XCBoxSpiral	XCCenterPtr	XCCircle
XCClock	XCCoffeeMug	XCCross	XCCrosshair
XCCrossReverse	XCDiamondCross	XCDot	XCDotbox
XCDoubleArrow	XCDraftLarge	XCDraftSmall	XCDrapedBox
XCExchange	XCFleur	XCGobbler	XCGumby
XCHand1	XCHand2	XCHeart	XCIcon
XCIronCross	XCLeftbutton	XCLeftPtr	XCLeftSide
XCLeftTee	XCLlAngle	XCLrAngle	XCMan
XCMiddlebutton	XCMouse	XCNumGlyphs	XCPencil
XCPirate	XCPlus	XCQuestionArrow	XCRightbutton
XCRightPtr	XCRightSide	XCRightTee	XCRtlLogo
XCSailboat	XCSbDownArrow	XCSbHDoubleArrow	XCSbLeftArrow
XCSbRightArrow	XCSbUpArrow	XCSbVDoubleArrow	XCShuttle
XCSizing	XCSpider	XCSpraycan	XCStar
XCTarget	XCTcross	XCTopLeftArrow	XCTopLeftCorner
XCTopRightCorner	XCTopSide	XCTopTee	XCTrek
XCUlAngle	XCUmbrella	XCUrAngle	XCWatch
XCXCursor	XCXterm