Andreas Raab uploaded a new version of EToys to project The Trunk:
http://source.squeak.org/trunk/EToys-ar.68.mcz

==================== Summary ====================

Name: EToys-ar.68
Author: ar
Time: 23 April 2010, 4:54:57.518 pm
UUID: 80e9cd7a-5e3d-f141-9217-1585b6b4b495
Ancestors: EToys-nice.67

Fixes http://bugs.squeak.org/view.php?id=7512

=============== Diff against EToys-nice.67 ===============

Item was changed:
  ----- Method: StandardViewer>>initializeFor:barHeight:includeDismissButton:showCategories: (in category 'initialization') -----
  initializeFor: aPlayer barHeight: anInteger includeDismissButton: aBoolean showCategories: categoryInfo
  	"Initialize the receiver to be a look inside the given Player.  The categoryInfo, if present, describes which categories should be present in it, in which order"
  
  	scriptedPlayer := aPlayer.
  	self listDirection: #topToBottom;
  		hResizing: #shrinkWrap;
  		vResizing: #shrinkWrap;
  		borderWidth: 1.
  	self color: self standardViewerColor.
  	self addHeaderMorphWithBarHeight: anInteger includeDismissButton: aBoolean.
  
  	categoryInfo isEmptyOrNil
  		ifFalse:  "Reincarnating an pre-existing list"
  			[categoryInfo do:
  				[:aCat | self addCategoryViewerFor: aCat]]
  		ifTrue:  "starting fresh"
  			[self addSearchPane. 
  			self addCategoryViewer.
  			self addCategoryViewer.
+ 			(scriptedPlayer isPlayerLike and: [scriptedPlayer costume isMemberOf: KedamaMorph]) ifTrue: [self addCategoryViewer].
- 			(scriptedPlayer costume isMemberOf: KedamaMorph) ifTrue: [self addCategoryViewer].
  		].!