StandardViewer
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.
September 2019:
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;
hResizing: #spaceFill;
width: 550;
vResizing: #shrinkWrap;
layoutInset: 3;
cellInset: 3;
borderWidth: 1.
self color: self standardViewerColor.
self borderColor: ScriptingSystem borderColor.
self addHeaderMorphWithBarHeight: anInteger includeDismissButton: aBoolean.