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.


=====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.
		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
				on: #mouseEnterDragging
				send: #mouseEnterDragging:onItem:
				to: self.
				on: #mouseLeaveDragging
				send: #mouseLeaveDragging:onItem:
				to: self].

	morphList do: [:m | m eventHandler: handler].
! !

More information about the Squeak-dev mailing list