| b |
b := RTUMLClassBuilder new.
b
instanceVariables: #instVarNames;
methodselector: #selector;
methodsNames: #();
attributeselector: #yourself.
b attributeShape color: Color black.
b methodShape color: Color black.
b classNameShape color: Color black.
b lineShape color: Color black.
b boxShape borderColor: Color black.
b
addObjects: { Compiler . CompilationContext };
treeLayout;
build.
line := (RTArrowedLine new
color: Color black;
withHorizontalAttachPoint;
yourself)
edgeFrom: (b view elementFromModel: #compilationContext)
to: (b view elementFromModel: CompilationContext).
b view add: line.
b view