'Smalltalk file prepared for testing On To Smalltalk'!


!MeterGraphPane methods!
drawMeter
  | thePen meterWidth xLft yBot |
  meterWidth := self width * 3 // 4.
  xLft := self width - meterWidth // 2.
  yBot := self height // 2.
  thePen := self pen.
  thePen lineFrom: xLft @ yBot to: (xLft + meterWidth) @ yBot.
  thePen lineFrom: (xLft + (meterWidth // 2)) @ yBot
               to: (xLft + (meterWidth // 2)) @ (yBot - 10).
! !
CalorieViewManager new open
!