'From Squeak3.8alpha of ''17 July 2004'' [latest update: #5976] on 9 August 2004 at 9:35:08 am'! "Change Set: searchFixM17n-sw Date: 9 August 2004 Author: Scott Wallace Fixes the bug that dropped you into a debugger when you requested a search (in a viewer's Search pane) for 'color'. Caution: this update is for 3.8a/m17n; the corresponding update for Squeakland/3.2 is incompatible"! !MethodInterface methodsFor: 'initialization' stamp: 'sw 8/9/2004 09:33'! initializeFromEToySlotSpec: tuple "tuple holds an old etoy slot-item spec, of the form found in #additionsToViewerCategories methods. Initialize the receiver to hold the same information" | setter | selector _ tuple seventh. self wording: (ScriptingSystem wordingForOperator: tuple second); helpMessage: tuple third. receiverType _ #Player. resultSpecification _ ResultSpecification new. resultSpecification resultType: tuple fourth. (#(getNewClone "seesColor: isOverColor:") includes: selector) ifTrue: [self setNotToRefresh] "actually should already be nil" ifFalse: [self setToRefetch]. ((tuple fifth == #readWrite) and: [((tuple size >= 9) and: [(setter _ tuple at: 9) ~~ #unused])]) ifTrue: [resultSpecification companionSetterSelector: setter]. "An example of an old slot-item spec: (slot numericValue 'A number representing the current position of the knob.' number readWrite Player getNumericValue Player setNumericValue:) 1 #slot 2 wording 3 balloon help 4 type 5 #readOnly or #readWrite 6 #Player (not used -- ignore) 7 getter selector 8 #Player (not used -- ignore) 9 setter selector " ! ! "Postscript:" Vocabulary initialize.!