Less delay - Re: World menu delay -- Re: 2.9 speed
Bob Arning
arning at charm.net
Tue Dec 19 00:56:21 UTC 2000
On Mon, 18 Dec 2000 16:01:32 -0800 Duane Maxwell <dmaxwell at exobox.com> wrote:
>Personally, I find the current behavior annoying, but I'm too polite to say so.
>
>(Oh, was that out loud?)
Duane & all,
Loud enough ;-) Here is another candidate for making life a little smoother. Open a new browser (whatever) after filing in to get the full effect. If anyone has strong feeling on this, let's hear about it.
Cheers,
Bob
=====code follows=====
'From Squeak2.9alpha of 17 July 2000 [latest update: #3187] on 18 December 2000 at 7:53:30 pm'!
"Change Set: lessDelay
Date: 18 December 2000
Author: Bob Arning
make pluggable lists a little more responsive:
- do not highlight the mouseDown state unless dragging is enabled.
- do not gratuitously enable the double-click handler"!
!PluggableListMorph methodsFor: 'events' stamp: 'RAA 12/18/2000 19:51'!
mouseDown: event onItem: aMorph
event yellowButtonPressed ifTrue: [^ self yellowButtonActivity: event shiftPressed].
aMorph ifNotNil: [
self dragEnabled ifTrue: [aMorph highlightForMouseDown]
]! !
!PluggableListMorph methodsFor: 'drag and drop' stamp: 'RAA 12/18/2000 19:51'!
installEventHandlerOn: morphList
| handler |
handler _ EventHandler new.
handler
on: #mouseDown send: #mouseDown:onItem: to: self;
on: #mouseUp send: #mouseUp:onItem: to: self.
doubleClickSelector ifNotNil: [
handler on: #doubleClick send: #doubleClick:onItem: to: self.
].
self dragEnabled
ifTrue: [handler
on: #startDrag
send: #startDrag:onItem:
to: self].
self dropEnabled
ifTrue:
[handler
on: #mouseEnterDragging
send: #mouseEnterDragging:onItem:
to: self.
handler
on: #mouseLeaveDragging
send: #mouseLeaveDragging:onItem:
to: self].
morphList do: [:m | m eventHandler: handler].
! !
More information about the Squeak-dev
mailing list
|