-=--=-=-=-=--=-=-=-=-=-=-=-=-=-=-=-=-=-=--= v := RTView new. pal := ColorPalette qualitative colors: 20 scheme:'FlatUI1'. elems := (RTBox new size: 60) elementsOn: pal. elems do: [ :e | e color: e model.�� ]. v addAll: elems. RTFlowLayout new on: elems. v -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=