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