disableThumbsCursors
authorfm
Wed, 12 Nov 2008 10:26:51 +0100
changeset 5085 7b63e9809c64
parent 5084 585a5d2624ed
child 5086 0a18f82d02ec
disableThumbsCursors
Cursor.st
--- a/Cursor.st	Tue Nov 11 21:45:29 2008 +0100
+++ b/Cursor.st	Wed Nov 12 10:26:51 2008 +0100
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libview' }"
 
 Object subclass:#Cursor
@@ -2969,6 +2968,19 @@
     "Modified: 23.10.1997 / 00:16:44 / cg"
 ! !
 
+!Cursor class methodsFor:'styles'!
+
+disableThumbsCursors
+
+    ThumbsUpCursor := NormalCursor.
+    ThumbsDownCursor := NormalCursor.
+
+    "
+        self initializeNewCursors.
+        self disableThumbsCursors.
+    "
+! !
+
 !Cursor methodsFor:'ST-80 displaying'!
 
 displayOn:aGC at:origin clippingBox:aRectangle rule:aRule mask:aMask
@@ -3350,7 +3362,7 @@
 !Cursor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.105 2006-03-29 08:44:13 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.106 2008-11-12 09:26:51 fm Exp $'
 ! !
 
 Cursor initialize!