Last updated at 7:40 pm UTC on 26 September 2019
Etoys: A structure that allows you to view state and behavior of an object; it consists of a header and then any number of CategoryViewers.
Note: The width is initialized to a hard coded value.
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;
self color: self standardViewerColor.
self borderColor: ScriptingSystem borderColor.
self addHeaderMorphWithBarHeight: anInteger includeDismissButton: aBoolean.