palette:= ColorPalette sequential colors: 9 scheme:'GnBu'. v := RTView new. shape := RTBox new size: 20; color: [ :index | palette at: index ]. v addAll: (shape elementsOn: (1 to: 9)). RTHorizontalLineLayout on: v elements. v