[graphic-forms-cvs] r146 - in trunk: docs/manual src/uitoolkit/widgets

[junrue at common-lisp.net]

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
 
+ at anchor{group}
+ at 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:
+ at itemize @bullet
+ at item @emph{layout management}@*
+Each @code{group} participates in the layout management protocol
+on behalf of an aggregate of a real window's children.@*@*
+ at item @emph{limited event handling}@*
+As part of their participation in the layout management protocol,
+ at code{group}s process move and size events, but otherwise do not
+have any event handling responsibilities.@*@*
+ at item @emph{nesting}@*
+Multiple @code{group}s may be nested.@*@*
+ at 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}.@*@*
+ at item @emph{windowless}@*
+A @code{group} has no underlying native window handle.
+ at 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.
+ at 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