[pal-cvs] CVS pal-gui/examples

[tneste]

Update of /project/pal/cvsroot/pal-gui/examples
In directory clnet:/tmp/cvs-serv31543/examples

Modified Files:
	test.lisp 
Log Message:


--- /project/pal/cvsroot/pal-gui/examples/test.lisp	2007/10/16 21:46:09	1.5
+++ /project/pal/cvsroot/pal-gui/examples/test.lisp	2007/10/17 17:02:52	1.6
@@ -1,3 +1,10 @@
+;; TODO:
+;;
+;; Exports, gob picking, packing, destroy gob, window sizing, box labels, dialogs, menus, tooltips, keyboard control, scrollwheel
+;; label, radio box, check box, joystick, scroll box, fix listbox, fix gauge, paragraph, text box, simple editor, drop box.
+;; File open/save, directory, yes/no dialogs
+
+
 (in-package :pal-gui)
 
 (define-tags plane (load-image "lego-plane.png")
@@ -9,24 +16,24 @@
            (window-2 (make-instance 'window :width 200 :height 300))
 
            (box (make-instance 'h-box :parent window))
-           (right-box (make-instance 'v-box :parent box))
-           (left-box (make-instance 'v-box :parent box))
-           (bottom-box (make-instance 'v-box :parent window))
+           (left-box (make-instance 'v-box :parent box :label "RGBA"))
+           (right-box (make-instance 'v-box :parent box :label "Current FPS"))
+           (bottom-box (make-instance 'v-box :parent window :label "Bar"))
 
-           (meter (make-instance 'h-meter :parent right-box :max-value 80 :display-fn (lambda (v) (format nil "FPS: ~a" v))))
+           (meter (make-instance 'h-meter :parent right-box :max-value 100))
            (rg (make-instance 'h-gauge :parent left-box
-                                       :min-value 0 :max-value 255 :value 0 :display-fn (lambda (v) (format nil "R: ~a" v))))
+                                       :min-value 0 :max-value 255 :value 0))
            (gg (make-instance 'h-gauge :parent left-box
-                                       :min-value 0 :max-value 255 :value 0 :display-fn (lambda (v) (format nil "G: ~a" v))))
+                                       :min-value 0 :max-value 255 :value 0))
            (bg (make-instance 'h-gauge :parent left-box
-                                       :min-value 0 :max-value 255 :value 0 :display-fn (lambda (v) (format nil "B: ~a" v))))
+                                       :min-value 0 :max-value 255 :value 0))
            (ag (make-instance 'h-gauge :parent left-box
-                                       :min-value 0 :max-value 255 :value 0 :display-fn (lambda (v) (format nil "A: ~a" v))))
+                                       :min-value 0 :max-value 255 :value 0))
            (list (make-instance 'list-box :parent window-2 :items (loop for i from 0 to 100 collect (format nil "FooBar ~a" i))))
            (button (make-instance 'button :value "FooBar!"  :parent window-2 :on-select (lambda (g pos) (message 'foo) t)))
            )
 
-      (make-instance 'button :value "Button" :parent bottom-box)
+      ;; (make-instance 'button :value "Button" :parent bottom-box)
 
       (gui-loop ()
         (setf (value-of meter) (get-fps))
@@ -34,6 +41,7 @@
         (with-blend (:color '(0 0 0 64))
           (draw-image (tag 'plane) (v 320 220)))
         (with-blend (:color (list (value-of rg) (value-of gg) (value-of bg) (value-of ag)))
-          (draw-image (tag 'plane) (v 300 200)))))))
+          (draw-image (tag 'plane) (v 300 200)))
+        ))))
 
 ;; (test)
\ No newline at end of file