equal
deleted
inserted
replaced
409 |
409 |
410 device := Display. |
410 device := Display. |
411 Screen isNil ifTrue:[ |
411 Screen isNil ifTrue:[ |
412 isWindows := OperatingSystem isMSWINDOWSlike. |
412 isWindows := OperatingSystem isMSWINDOWSlike. |
413 ] ifFalse:[ |
413 ] ifFalse:[ |
414 isWindows := Screen platformName = 'WIN32'. |
414 isWindows := Screen isWindowsPlatform. |
415 ]. |
415 ]. |
416 |
416 |
417 HandCursor := |
417 HandCursor := |
418 (Cursor |
418 (Cursor |
419 extent: 16@16 |
419 extent: 16@16 |
3530 ! ! |
3530 ! ! |
3531 |
3531 |
3532 !Cursor class methodsFor:'documentation'! |
3532 !Cursor class methodsFor:'documentation'! |
3533 |
3533 |
3534 version |
3534 version |
3535 ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.113 2014-06-14 09:04:01 cg Exp $' |
3535 ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.114 2014-09-25 19:45:05 stefan Exp $' |
3536 ! |
3536 ! |
3537 |
3537 |
3538 version_CVS |
3538 version_CVS |
3539 ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.113 2014-06-14 09:04:01 cg Exp $' |
3539 ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.114 2014-09-25 19:45:05 stefan Exp $' |
3540 ! ! |
3540 ! ! |
3541 |
3541 |
3542 |
3542 |
3543 Cursor initialize! |
3543 Cursor initialize! |