Author: junrue Date: Sat Jun 3 02:42:56 2006 New Revision: 146

Modified: trunk/docs/manual/api.texinfo trunk/src/uitoolkit/widgets/widget-classes.lisp Log: added documentation and initial defclass for group class

Modified: trunk/docs/manual/api.texinfo ============================================================================== --- trunk/docs/manual/api.texinfo (original) +++ trunk/docs/manual/api.texinfo Sat Jun 3 02:42:56 2006 @@ -375,6 +375,34 @@ @end deffn @end deftp

+@anchor{group} +@deftp Class group layout children location size style +A @code{group} represents a logical rectangular aggregation +of @ref{window} children which has the following properties +and behaviors: +@itemize @bullet +@item @emph{layout management}@* +Each @code{group} participates in the layout management protocol +on behalf of an aggregate of a real window's children.@*@* +@item @emph{limited event handling}@* +As part of their participation in the layout management protocol, +@code{group}s process move and size events, but otherwise do not +have any event handling responsibilities.@*@* +@item @emph{nesting}@* +Multiple @code{group}s may be nested.@*@* +@item @emph{no visual representation}@* +A @code{group} has no visual representation in and of itself. +Also, drawing operations are not clipped by or with respect +to a @code{group}.@*@* +@item @emph{windowless}@* +A @code{group} has no underlying native window handle. +@end itemize +Thus while @code{group} objects have functionality somewhat +like windows, they are intended to be lightweight, virtual +containers appropriate in circumstances where scalability is +paramount; they are not intended to be a full replacement. +@end deftp + @anchor{item} @deftp Class item item-id The @code{item} class is the base class for all non-windowed user

Modified: trunk/src/uitoolkit/widgets/widget-classes.lisp ============================================================================== --- trunk/src/uitoolkit/widgets/widget-classes.lisp (original) +++ trunk/src/uitoolkit/widgets/widget-classes.lisp Sat Jun 3 02:42:56 2006 @@ -39,6 +39,29 @@ (defclass event-dispatcher () () (:documentation "Instances of this class receive events on behalf of user interface objects."))

+(defclass group () + ((layout + :accessor layout-of + :initarg :layout + :initform nil) + (children + :accessor children-of + :initarg :children + :initform nil) + (location + :accessor location-of + :initarg :location + :initform nil) + (size + :accessor size-of + :initarg :size + :initform nil) + (style + :accessor style-of + :initarg :style + :initform nil)) + (:documentation "Instances of this class act as lightweight containers for other objects.")) + (defclass event-source (gfs:native-object) ((dispatcher :accessor dispatcher