/[mcclim]/mcclim/frames.lisp
ViewVC logotype

Diff of /mcclim/frames.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.44 by adejneka, Mon Jul 15 13:22:54 2002 UTC revision 1.45 by adejneka, Tue Jul 30 16:40:39 2002 UTC
# Line 401  FRAME-EXIT condition.")) Line 401  FRAME-EXIT condition."))
401  (defmacro with-look-and-feel-realization ((frame-manager frame) &body body)  (defmacro with-look-and-feel-realization ((frame-manager frame) &body body)
402    `(let ((*pane-realizer* ,frame-manager)    `(let ((*pane-realizer* ,frame-manager)
403           (*application-frame* ,frame))           (*application-frame* ,frame))
404       (progn       (locally
405         ,@body)))           ,@body)))
406    
407  ; The menu-bar code in the following two functions is incorrect.  ; The menu-bar code in the following two functions is incorrect.
408  ; it needs to be moved to somewhere after the backend, since  ; it needs to be moved to somewhere after the backend, since

Legend:
Removed from v.1.44  
changed lines
  Added in v.1.45

  ViewVC Help
Powered by ViewVC 1.1.5