mouse handlers

[Richard Lamson <rsl%max-fleischer.ila-sf.dialnet.symbolics.com@RELAY.CS.NET>]

    Date: Tue, 20 Jun 89 19:29 EDT
    From: pc@ctt.ctt.bellcore.com (Peter Clitherow)

    What's the best way to accomplish the following?

    i have a presentation-to-command-translator which has a :tester whose
    purpose is to make this translate only when over a certain pane of a
    dw:define-program-framework.  I therefore wish to compare the window
    entering the translator with something like

     :tester ((&key window) (eq window (dw:get-program-pane 'my-pane))).

    The only problem is, when the system invokes this :tester in
    any other screen than my program-framework, it breaks because the pane
    is unknown.

You can say
  :tester ((&key window)
	   (and (boundp 'dw:*program-frame*)  ;; Make sure GET-PROGRAM-PANE will work.
		(eq window (dw:get-program-pane 'my-pane :if-does-not-exist nil)))