'From etoys2.3 of 28 November 2007 [latest update: #1867] on 1 January 2008 at 10:03:26 pm'!
"Change Set:		avoidUnCamel-yo
Date:			1 January 2008
Author:			Yoshiki Ohshima

KedamaPatchMorph had a simple pop up help phrases that happen to be the same as the cameled selectors for them.  Uncameling these selectors for displaying caused a trouble because the translation for a selector is searched by the uncameled phrase and there may be already one for the help.  To avoid this, the help strings for some selectors are changed. "!


!KedamaPatchMorph class methodsFor: 'scripting' stamp: 'yo 1/1/2008 21:55'!
additionsToViewerCategories
	"Answer a list of (<categoryName> <list of category specs>) pairs that characterize the phrases this kind of morph wishes to add to various Viewer categories."

	^ #(

	(kedama (
		(slot evaporationRate 'The rate for the decay function.' Number readWrite Patch getEvaporationRate Patch setEvaporationRate:)
		(slot diffusionRate 'The rate for the diffusion function.' Number readWrite Patch getDiffusionRate Patch setDiffusionRate:)
		(slot sniffRange 'The distance to sample the values for calculating highest gradient.' Number readWrite Patch getSniffRange Patch setSniffRange:)
		(slot shiftAmount 'shift amount when log-based color conversion is not used' Number readWrite Player getDisplayShiftAmount Player setDisplayShiftAmount:)
		(slot scaleMax 'scale when log-based color conversion is used' Number readWrite Player getDisplayScaleMax Player setDisplayScaleMax:)
		"(slot useLogDisplay 'log-based color conversion' Boolean readWrite Player getUseLogDisplay Player setUseLogDisplay:)"
		(slot displayType 'how to map the value in cells to color' PatchDisplayMode readWrite Player getDisplayType Player setDisplayType:)
		(slot color 'The color of the object' Color readWrite Player getColor  Player  setColor:)

		"(slot autoUpdate 'Updating screen always' Boolean readWrite Player getAutoUpdate  Player setAutoUpdate:)"
		(command clear 'clear all patch')
		(command diffusePatchVariable 'diffuse')
		(command decayPatchVariable 'decay')

		(command redComponentInto: 'split red component into another patch' Patch)
		(command greenComponentInto: 'split green component into another patch' Patch)
		(command blueComponentInto: 'split blue component into another patch' Patch)

		(command redComponentFrom: 'merge red component from another patch' Patch)
		(command greenComponentFrom: 'merge green component from another patch' Patch)
		(command blueComponentFrom: 'merge blue component from another patch' Patch)

)))
! !