Event handling

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

I just wrote a simple program for event handling as follows:

(defclass my-window (window)() )

(defmethod view-click-event-handler
     ((window my-window) where)
     (print (point-string where)))

(defun foo()
     (make-instance 'my-window))

(defun toy()
     (foo)
    ;system should wait for events from the user
     (print "ok"))

(toy)

After running the function toy, the system creates not only a window,
but also shows the "ok" in the Listener.  My purpose of the program
is to first create a window, then wait for events from the user, and
finally print the "ok" in the Listener.  Can anyone fix my problem?
Thanks in advance.

jipan@gmuvax2.gmu.edu