[squeak-dev] The Trunk: ST80-fbs.146.mcz
commits at source.squeak.org
commits at source.squeak.org
Tue Jul 9 21:10:29 UTC 2013
Frank Shearar uploaded a new version of ST80 to project The Trunk:
http://source.squeak.org/trunk/ST80-fbs.146.mcz
==================== Summary ====================
Name: ST80-fbs.146
Author: fbs
Time: 9 July 2013, 10:09:58.467 pm
UUID: 199f853b-126a-8546-a700-470d7e81a4c2
Ancestors: ST80-fbs.145
Make things use Cursor currentCursor (because InputSensor >> #currentCursor delegates to it anyway).
=============== Diff against ST80-fbs.145 ===============
Item was changed:
SystemOrganization addCategory: #'ST80-Controllers'!
SystemOrganization addCategory: #'ST80-Editors'!
SystemOrganization addCategory: #'ST80-Framework'!
SystemOrganization addCategory: #'ST80-Menus'!
SystemOrganization addCategory: #'ST80-Menus-Tests'!
SystemOrganization addCategory: #'ST80-Paths'!
SystemOrganization addCategory: #'ST80-Pluggable Views'!
SystemOrganization addCategory: #'ST80-Support'!
SystemOrganization addCategory: #'ST80-Support-Tests'!
SystemOrganization addCategory: #'ST80-Symbols'!
- SystemOrganization addCategory: #'ST80-Views'!
SystemOrganization addCategory: #'ST80-ToolBuilder'!
+ SystemOrganization addCategory: #'ST80-Views'!
Item was changed:
----- Method: ScrollController>>changeCursor: (in category 'cursor') -----
changeCursor: aCursor
"The current cursor should be set to be aCursor."
+ Cursor currentCursor ~~ aCursor ifTrue: [aCursor show]!
- sensor currentCursor ~~ aCursor ifTrue: [aCursor show]!
Item was changed:
----- Method: ScrollController>>scroll (in category 'scrolling') -----
scroll
"Check to see whether the user wishes to jump, scroll up, or scroll down."
| savedCursor |
+ savedCursor := Cursor currentCursor.
- savedCursor := sensor currentCursor.
[self scrollBarContainsCursor]
whileTrue:
[self interActivityPause.
sensor cursorPoint x <= self downLine
ifTrue: [self scrollDown]
ifFalse: [sensor cursorPoint x <= self upLine
ifTrue: [self scrollAbsolute]
ifFalse: [sensor cursorPoint x <= self yellowLine
ifTrue: [self scrollUp]
ifFalse: [sensor cursorPoint x <= scrollBar right
ifTrue: "Might not be, with touch pen"
[self changeCursor: Cursor menu.
sensor anyButtonPressed
ifTrue: [self changeCursor: savedCursor.
self anyButtonActivity]]]]]].
savedCursor show!
More information about the Squeak-dev
mailing list
|