
Author: junrue Date: Sat Mar 17 17:53:16 2007 New Revision: 438 Modified: branches/graphic-forms-newtypes/NEWS.txt branches/graphic-forms-newtypes/src/uitoolkit/widgets/panel.lisp Log: set WS_CLIPCHILDREN and WS_CLIPSIBLINGS style bits for panels Modified: branches/graphic-forms-newtypes/NEWS.txt ============================================================================== --- branches/graphic-forms-newtypes/NEWS.txt (original) +++ branches/graphic-forms-newtypes/NEWS.txt Sat Mar 17 17:53:16 2007 @@ -6,7 +6,10 @@ . Greatly expanded the symbols for accessing predefined colors, and now provide access to system color settings in a similar manner. -. Graphic-Forms has been ported to Allegro CL 8.0. +. Ported the library to Allegro CL 8.0. + +. Implemented a new graphics context function GFG:CLEAR that is a convenient + way to fill a window or image with a background color. . GFS:OBTAIN-SYSTEM-METRICS now includes version information for comctl32.dll and shell32.dll. Modified: branches/graphic-forms-newtypes/src/uitoolkit/widgets/panel.lisp ============================================================================== --- branches/graphic-forms-newtypes/src/uitoolkit/widgets/panel.lisp (original) +++ branches/graphic-forms-newtypes/src/uitoolkit/widgets/panel.lisp Sat Mar 17 17:53:16 2007 @@ -55,7 +55,7 @@ (defmethod compute-style-flags ((self panel) &rest extra-data) (declare (ignore extra-data)) - (let ((std-flags (logior gfs::+ws-child+ gfs::+ws-visible+))) + (let ((std-flags (logior gfs::+ws-clipchildren+ gfs::+ws-clipsiblings+ gfs::+ws-child+ gfs::+ws-visible+))) (loop for sym in (style-of self) do (ecase sym ;; styles that can be combined