[Newbies] OBMultipleSelectionBrowser dragging methods

Ch Lamprecht ch.l.ngre at online.de
Fri Jan 4 12:53:33 UTC 2008


playing with 3.10 beta #7159 I found that OBMultipleSelectionBrowser does not 
allow methods to be dragged.
I might be missing something, but to me it seems, that in


mouseDown: evt
	| selectors row oldIndex oldVal |
	evt yellowButtonPressed  "First check for option (menu) click"
		ifTrue: [^ self yellowButtonActivity: evt shiftPressed].
	row _ self rowAtLocation: evt position.
	row = 0  ifTrue: [^super mouseDown: evt].
	"self dragEnabled ifTrue: [aMorph highlightForMouseDown]."

	model okToChange ifFalse: [^ self].  "No change if model is locked"

	self mouseDownRow: row.
[rest snipped]
adding the last line here fixes the problem. I have no experience at all so I 
might well be overlooking some undesirable side effects...


More information about the Beginners mailing list