Here is one of the previous messages on this subject:

On Tue, 12 Jun 2001 02:49:36 +0200 (CEST) Edmund Ronald <eronald at rome.polytechnique.fr> wrote:
>Hmmm, now it works but it ain't pretty sez the newbie. So he changes the
>bar width, and adds a little bit of data, and ventures to suggest these
>changes be written back into the excellent tutorial .
>
>Edmund.
>
>historyMorph
>	"displays barchart, width 30 per bar"
>	| bars m |
>	bars _ history collect: [:v | Morph new extent: 30 at v].
>    	m _ AlignmentMorph newRow  
>                      hResizing: #shrinkWrap;
>                      vResizing: #shrinkWrap;
>                      cellPositioning: #bottomRight.
>	m addAllMorphs: bars.
>	^ m
>
>"in the workspace, add some example data"
>b  initialize; deposit:100; withdraw:20; deposit:30; withdraw:20; deposit:30;
>   withdraw:20; deposit:30. 
>
>"show it"
>b historyMorph openInWorld.