[graphic-forms-cvs] r438 - in branches/graphic-forms-newtypes: . src/uitoolkit/widgets

[junrue at common-lisp.net]

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