'Smalltalk file prepared for testing On To Smalltalk'!


!CalorieViewManager methods!
initializeListBox: theListBox
  foodList := (Food collectFrom: 'c:\\test\\vtbls.dta').
  theListBox contents: (foodList collect: [:p | p name]).
!