We extended Mondrian with patterns
| view |
view := Mondrian.ViewRenderer new.
view rectangleShape.
view shape fillColor: CodeFoo.Color red.
view shape patternColor: CodeFoo.Color black.
view shape patternName: [ :each ].
view shape width: 120.
view shape height: 80.
view nodes: #(gray diagonal inverseDiagonal fancy) .
view open.
cheers,
AA & Hani