Shadowing WINDOW-SHOW with dialog boxes in 1.3.2

[rodney@huntsai.boeing.com (Rodney Daughtrey)]

I'm converting some code from MACL 1.2.2 to 1.3.2, and I'm having problems
shadowing the WINDOW-SHOW method for dialog boxes to set up initial text
strings, etc, such as:

     (defobfun (window-show *my-dialog*) ()
       (usual-window-show)
       (ask-named-item 'foo
          (set-dialog-item-text "bar")))

When the dialog appears, the FOO field is blank (""), instead of "BAR".
What am I doing wrong?  Is there philosophically a different way I
should be setting up text strings before dialogs appear (with views)?
I tried shadowing VIEW-DRAW-CONTENTS, which printed "BAR", but it was
called constantly, not just when the dialog appeared, resulting in a
flickering effect (Didn't seem like the right thing to do anyway).

Any ideas?


Rodney Daughtrey            E-mail: rodney@huntsai.boeing.com
Huntsville AI Center                {major site}!uw-beaver!bcsaic!huntsai!rodney
Boeing Computer Services    Voice:  (205)-461-2352  Fax: (205)-461-2933