The Trunk: Graphics-mt.390.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: Graphics-mt.390.mcz

commits-2
Marcel Taeumel uploaded a new version of Graphics to project The Trunk:
http://source.squeak.org/trunk/Graphics-mt.390.mcz

==================== Summary ====================

Name: Graphics-mt.390
Author: mt
Time: 20 December 2017, 3:40:16.782079 pm
UUID: c66476ae-c191-8f40-a0d4-ef72c7022d77
Ancestors: Graphics-eem.389

Adds a text cursor.

=============== Diff against Graphics-eem.389 ===============

Item was changed:
  Form subclass: #Cursor
  instanceVariableNames: ''
+ classVariableNames: 'BlankCursor BottomLeftCursor BottomRightCursor CornerCursor CrossHairCursor CurrentCursor DownCursor MarkerCursor MenuCursor MoveCursor NormalCursor OriginCursor ReadCursor ResizeLeftCursor ResizeTopCursor ResizeTopLeftCursor ResizeTopRightCursor RightArrowCursor SquareCursor TargetCursor TextCursor TopLeftCursor TopRightCursor UpCursor UseBiggerCursors WaitCursor WebLinkCursor WriteCursor XeqCursor'
- classVariableNames: 'BlankCursor BottomLeftCursor BottomRightCursor CornerCursor CrossHairCursor CurrentCursor DownCursor MarkerCursor MenuCursor MoveCursor NormalCursor OriginCursor ReadCursor ResizeLeftCursor ResizeTopCursor ResizeTopLeftCursor ResizeTopRightCursor RightArrowCursor SquareCursor TargetCursor TopLeftCursor TopRightCursor UpCursor UseBiggerCursors WaitCursor WebLinkCursor WriteCursor XeqCursor'
  poolDictionaries: ''
  category: 'Graphics-Display Objects'!
 
  !Cursor commentStamp: '<historical>' prior: 0!
  I am a Form that is a possible appearance for a mouse cursor.  My size is always 16x16, ever since the original implementation on the Alto.
 
  There are many examples available in the "current cursor" category of class methods.  For example, "Cursor normal" and "Cursor wait".  For example:
 
  Cursor wait show
 
  !

Item was added:
+ ----- Method: Cursor class>>initText (in category 'class initialization') -----
+ initText
+
+ TextCursor :=  
+ (Cursor
+ extent: 16 @ 16
+ fromArray: #(
+ 2r0000000000000000
+ 2r0000111011100000
+ 2r0000000100000000
+ 2r0000000100000000
+ 2r0000000100000000
+ 2r0000000100000000
+ 2r0000000100000000
+ 2r0000000100000000
+ 2r0000000100000000
+ 2r0000000100000000
+ 2r0000000100000000
+ 2r0000000100000000
+ 2r0000000100000000
+ 2r0000111011100000
+ 2r0000000000000000
+ 2r0)
+ offset: -7 @ -7).
+
+ !

Item was changed:
  ----- Method: Cursor class>>initialize (in category 'class initialization') -----
  initialize
  "Create all the standard cursors..."
  self initOrigin.
  self initRightArrow.
  self initMenu.
  self initCorner.
  self initRead.
  self initWrite.
  self initWait.
  BlankCursor := Cursor new.
  self initXeq.
  self initSquare.
  self initNormalWithMask.
  self initCrossHair.
  self initMarker.
  self initUp.
  self initDown.
  self initMove.
  self initBottomLeft.
  self initBottomRight.
  self initResizeLeft.
  self initResizeTop.
  self initResizeTopLeft.
  self initResizeTopRight.
+ self initText.
  self initTopLeft.
  self initTopRight.
  self makeCursorsWithMask.
 
  "Cursor initialize"
  !

Item was added:
+ ----- Method: Cursor class>>text (in category 'constants') -----
+ text
+ ^ TextCursor!