[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Useful RfCon

   From: blakem@world.std.com (Blake Meike)

   (defobfun (do-scroll *scroll-bar*) ()
    (....))

   (defpascal scroll-proc ((my-control :ptr) (partCode :word))
    (do-scroll))

   Why does this work?  Why doesn't scroll-proc have
   to (ask <somebody> (do-scroll))?

The scroll-proc is only called after a DIALOG-ITEM-CLICK-EVENT-HANDLER
passes things to the ROM.  The click-event-handler is a *scroll-bar*
obfun.  So, at the time the call-back happens, the scroll-bar is
still the current object.

    -andrew