'Smalltalk file prepared for testing On To Smalltalk'!


!MeterGraphPane methods!
drawMeter
  | thePen meterWidth xLft yBot oldFont |
  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).
  "Remember old values"                                         
  oldFont := thePen font.                                       
  "Set new values"                                              
  thePen font: (Font new faceName: 'Algerian'; bold: true).     
  thePen centerText: 'Untitled'
                 at: ((self width) // 2) 
                      @ ((self height // 2)
                         + (2 * thePen font height)).
  "Reset to old values"                                         
  thePen font: oldFont.                                         
! !
CalorieViewManager new open
!