[clfswm-cvs] r368 - clfswm/contrib/server

[Philippe Brochard]

Author: pbrochard
Date: Wed Oct 27 16:16:23 2010
New Revision: 368

Log:
contrib/server: add a test file

Added:
   clfswm/contrib/server/test.lisp   (contents, props changed)

Added: clfswm/contrib/server/test.lisp
==============================================================================
--- (empty file)
+++ clfswm/contrib/server/test.lisp	Wed Oct 27 16:16:23 2010
@@ -0,0 +1,15 @@
+(in-package :clfswm)
+
+(leave-frame)
+(select-previous-level)
+
+(let ((frame (create-frame \:name \"Test root\" \:x 0.05 \:y 0.05)))
+  (add-frame frame *current-child*)
+  (add-frame (create-frame \:name \"Test 1\" \:x 0.3 \:y 0 \:w 0.7 \:h 1) frame)
+  (add-frame (create-frame \:name \"Test 2\" \:x 0 \:y 0 \:w 0.3 \:h 1) frame)
+  (setf *current-child* (first (frame-child frame))))
+
+(show-all-children *current-root*)
+
+
+