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 |