Inserting the lineFrom:to: message into the callDrawMeter: method, you have the following:
lineFrom:to:
callDrawMeter:
CalorieViewManager method definition instance callDrawMeter: thePane | thePen | thePen := thePane pen. thePen lineFrom: 0 @ 50 to: 100 @ 50.