Cursor.st
changeset 3213 78add46c0f4b
parent 3201 ec73f31280be
child 3218 dd321bee52a3
equal deleted inserted replaced
3212:bdefd01df684 3213:78add46c0f4b
   401             Cursor stop
   401             Cursor stop
   402             Cursor eye
   402             Cursor eye
   403             Cursor eyeClosed"
   403             Cursor eyeClosed"
   404 
   404 
   405     |device builtIn bits isWindows|
   405     |device builtIn bits isWindows|
       
   406 
       
   407     HandCursor notNil ifTrue:[^ self].
   406 
   408 
   407     device := Display.
   409     device := Display.
   408     device isNil ifTrue:[
   410     device isNil ifTrue:[
   409         isWindows := OperatingSystem isMSWINDOWSlike.
   411         isWindows := OperatingSystem isMSWINDOWSlike.
   410     ] ifFalse:[
   412     ] ifFalse:[
  3304 ! !
  3306 ! !
  3305 
  3307 
  3306 !Cursor class methodsFor:'documentation'!
  3308 !Cursor class methodsFor:'documentation'!
  3307 
  3309 
  3308 version
  3310 version
  3309     ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.88 2000-05-23 07:48:58 cg Exp $'
  3311     ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.89 2000-07-02 12:54:02 cg Exp $'
  3310 ! !
  3312 ! !
  3311 Cursor initialize!
  3313 Cursor initialize!