Scrolling a fred-window from another function

[hohmann@zug.csmil.umich.edu]

How can I scroll a fred window from another function?  In other
words, let's say I have the following:

   (setf foo (make-instance 'fred-window))

How can I:

(defun some-function (args)
   ...
   ...

   scroll foo by some amount 

   ...
   ...
)

THANKS!