Print out a created window

[jipan@gmuvax2.gmu.edu (Jiqian Pan)]

Hi,

I am trying to print out a window I created using the following code:

(make-instance 'menu
       :menu-title "File"
       :menu-items
        (list (make-instance 'menu-item
                             :menu-item-title "New Window"
                             :menu-item-action
                              (nfunction
                               menu-item-action
                               (lambda nil (setq foo (make-instance 'window))))
                             :command-key #\N)
               (make-instance 'menu-item
                              :menu-item-title "Print..."
                              :menu-item-action
                              (nfunction
                               menu-item-action
                              (lambda nil 'window-hardcopy foo)))
                                :command-key #\P)))
         
However, nothing shows me after I click the item Print....   Can anyone can
fix my problem?  Thanks.

jipan@gmuvax2.gmu.edu