[claw-cvs] r69 - trunk/main/dojo/tests

[achiumenti at common-lisp.net]

Author: achiumenti
Date: Fri Jul 25 11:21:01 2008
New Revision: 69

Modified:
   trunk/main/dojo/tests/ajax-test.lisp
   trunk/main/dojo/tests/djbutton-test.lisp
   trunk/main/dojo/tests/djcalendar-test.lisp
   trunk/main/dojo/tests/djcolorpalette-test.lisp
   trunk/main/dojo/tests/djdialog-test.lisp
   trunk/main/dojo/tests/djeditor-test.lisp
   trunk/main/dojo/tests/djmenu-test.lisp
   trunk/main/dojo/tests/header-info-page.lisp
   trunk/main/dojo/tests/index.lisp
   trunk/main/dojo/tests/realm.lisp
   trunk/main/dojo/tests/slider-test.lisp
Log:
nomsg

Modified: trunk/main/dojo/tests/ajax-test.lisp
==============================================================================
--- trunk/main/dojo/tests/ajax-test.lisp	(original)
+++ trunk/main/dojo/tests/ajax-test.lisp	Fri Jul 25 11:21:01 2008
@@ -283,4 +283,4 @@
                                                               (build-lisplet-location *claw-current-lisplet*)))))))))
 
 
-(lisplet-register-page-location *dojo-test-lisplet* 'ajax-page "ajax.html")
\ No newline at end of file
+(lisplet-register-function-location *dojo-test-lisplet* (make-page-renderer 'ajax-page) "ajax.html")
\ No newline at end of file

Modified: trunk/main/dojo/tests/djbutton-test.lisp
==============================================================================
--- trunk/main/dojo/tests/djbutton-test.lisp	(original)
+++ trunk/main/dojo/tests/djbutton-test.lisp	Fri Jul 25 11:21:01 2008
@@ -72,4 +72,4 @@
 				     "Toggle me"))))
 
 
-(lisplet-register-page-location *dojo-test-lisplet* 'djbutton-page "djbutton.html")
\ No newline at end of file
+(lisplet-register-function-location *dojo-test-lisplet* (make-page-renderer 'djbutton-page) "djbutton.html")
\ No newline at end of file

Modified: trunk/main/dojo/tests/djcalendar-test.lisp
==============================================================================
--- trunk/main/dojo/tests/djcalendar-test.lisp	(original)
+++ trunk/main/dojo/tests/djcalendar-test.lisp	Fri Jul 25 11:21:01 2008
@@ -84,4 +84,4 @@
                              (p>
                               (djsubmit-button> :id "submitDates" :value "Submit dates"))))))
 
-(lisplet-register-page-location *dojo-test-lisplet* 'djcalendar-page "djcalendar.html")
\ No newline at end of file
+(lisplet-register-function-location *dojo-test-lisplet* (make-page-renderer 'djcalendar-page) "djcalendar.html")
\ No newline at end of file

Modified: trunk/main/dojo/tests/djcolorpalette-test.lisp
==============================================================================
--- trunk/main/dojo/tests/djcolorpalette-test.lisp	(original)
+++ trunk/main/dojo/tests/djcolorpalette-test.lisp	Fri Jul 25 11:21:01 2008
@@ -48,4 +48,4 @@
 			       (djcolor-palette>)))
 		   dialog))))
 
-(lisplet-register-page-location *dojo-test-lisplet* 'djcolorpalette-page "djcolorpalette.html")
\ No newline at end of file
+(lisplet-register-function-location *dojo-test-lisplet* (make-page-renderer 'djcolorpalette-page) "djcolorpalette.html")
\ No newline at end of file

Modified: trunk/main/dojo/tests/djdialog-test.lisp
==============================================================================
--- trunk/main/dojo/tests/djdialog-test.lisp	(original)
+++ trunk/main/dojo/tests/djdialog-test.lisp	Fri Jul 25 11:21:01 2008
@@ -64,4 +64,4 @@
                                           :style "background: transparent;"
                                           (div> :style (format nil "height:60px;width:60px;background: url('~a/docroot/img/spinner.gif') 50% 50% no-repeat;" lisplet-path)))))))
 
-(lisplet-register-page-location *dojo-test-lisplet* 'djdialog-page "djdialog.html")
\ No newline at end of file
+(lisplet-register-function-location *dojo-test-lisplet* (make-page-renderer 'djdialog-page) "djdialog.html")
\ No newline at end of file

Modified: trunk/main/dojo/tests/djeditor-test.lisp
==============================================================================
--- trunk/main/dojo/tests/djeditor-test.lisp	(original)
+++ trunk/main/dojo/tests/djeditor-test.lisp	Fri Jul 25 11:21:01 2008
@@ -130,4 +130,4 @@
                                            :dialog-content text4
                                            (djsubmit-button> :id "submitData" :value "Submit"))))))
 
-(lisplet-register-page-location *dojo-test-lisplet* 'djeditor-page "djeditor.html")
\ No newline at end of file
+(lisplet-register-function-location *dojo-test-lisplet* (make-page-renderer 'djeditor-page) "djeditor.html")
\ No newline at end of file

Modified: trunk/main/dojo/tests/djmenu-test.lisp
==============================================================================
--- trunk/main/dojo/tests/djmenu-test.lisp	(original)
+++ trunk/main/dojo/tests/djmenu-test.lisp	Fri Jul 25 11:21:01 2008
@@ -269,4 +269,4 @@
 
 
 
-(lisplet-register-page-location *dojo-test-lisplet* 'djmenu-page "djmenu.html")
\ No newline at end of file
+(lisplet-register-function-location *dojo-test-lisplet* (make-page-renderer 'djmenu-page) "djmenu.html")
\ No newline at end of file

Modified: trunk/main/dojo/tests/header-info-page.lisp
==============================================================================
--- trunk/main/dojo/tests/header-info-page.lisp	(original)
+++ trunk/main/dojo/tests/header-info-page.lisp	Fri Jul 25 11:21:01 2008
@@ -43,5 +43,5 @@
                                      (td> (format nil "~a" (car key-val))
                                           (td> (format nil "~a" (cdr key-val)))))))))))
 
-(lisplet-register-page-location *dojo-test-lisplet* 'header-info-page "info.html")
+(lisplet-register-function-location *dojo-test-lisplet* (make-page-renderer 'header-info-page) "info.html")
 		   

Modified: trunk/main/dojo/tests/index.lisp
==============================================================================
--- trunk/main/dojo/tests/index.lisp	(original)
+++ trunk/main/dojo/tests/index.lisp	Fri Jul 25 11:21:01 2008
@@ -48,4 +48,4 @@
                        (li> (a> :href "slider.html" "dojo slider test"))
                        (li> (a> :href "djmenu.html" "dojo menu test"))))))
 
-(lisplet-register-page-location *dojo-test-lisplet* 'index-page "index.html" :welcome-page-p t)
\ No newline at end of file
+(lisplet-register-function-location *dojo-test-lisplet* (make-page-renderer 'index-page) "index.html" :welcome-page-p t)
\ No newline at end of file

Modified: trunk/main/dojo/tests/realm.lisp
==============================================================================
--- trunk/main/dojo/tests/realm.lisp	(original)
+++ trunk/main/dojo/tests/realm.lisp	Fri Jul 25 11:21:01 2008
@@ -63,5 +63,5 @@
                     (li> "Rnd number value: " #'(lambda () (format nil "~d" (realm-page-rnd-numuber o))))))))
 
 
-(lisplet-register-page-location *dojo-test-lisplet* 'realm-page "realm.html")
-(lisplet-register-page-location *dojo-test-lisplet2* 'realm-page "realm.html")
+(lisplet-register-function-location *dojo-test-lisplet* (make-page-renderer 'realm-page) "realm.html")
+(lisplet-register-function-location *dojo-test-lisplet2* (make-page-renderer 'realm-page) "realm.html")

Modified: trunk/main/dojo/tests/slider-test.lisp
==============================================================================
--- trunk/main/dojo/tests/slider-test.lisp	(original)
+++ trunk/main/dojo/tests/slider-test.lisp	Fri Jul 25 11:21:01 2008
@@ -139,4 +139,4 @@
                           (slider-page-message-content pobj)))))
 
 
-(lisplet-register-page-location *dojo-test-lisplet* 'slider-page "slider.html")
\ No newline at end of file
+(lisplet-register-function-location *dojo-test-lisplet* (make-page-renderer 'slider-page) "slider.html")
\ No newline at end of file