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:
| 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 |