@@ -66,7 +66,7 @@ (make-instance 'gridedit :name 'users-grid :data-class 'user - :view 'user-grid-view + :view 'user-table-view :widget-prefix-fn (lambda (&rest args) (declare (ignore args)) (with-html (:h1 "Users"))) @@ -80,7 +80,7 @@ :widget-prefix-fn (lambda (&rest args) (declare (ignore args)) (with-html (:h1 "Posts"))) - :view 'post-grid-view + :view 'post-table-view :item-data-view 'post-data-view :item-form-view 'post-form-view)) @@ -122,11 +122,11 @@ ;;; src/views.lisp (in-package :blog) -(defview user-grid-view (:type grid :inherit-from '(:scaffold user))) +(defview user-table-view (:type table :inherit-from '(:scaffold user))) (defview user-data-view (:type data :inherit-from '(:scaffold user))) (defview user-form-view (:type form :inherit-from '(:scaffold user))) -(defview post-grid-view (:type grid :inherit-from '(:scaffold post))) +(defview post-table-view (:type table :inherit-from '(:scaffold post))) (defview post-data-view (:type data :inherit-from '(:scaffold post))) (defview post-form-view (:type form :inherit-from '(:scaffold post))) @@ -175,7 +175,7 @@ ;;;; of each widget disappears. ;;;; ;;;; - The scaffold defines fields from all slots for which there is a -;;;; slot reader when in data/grid view, and all fields for which +;;;; slot reader when in data/table view, and all fields for which ;;;; there is a slot writer when in form view. So the ID slots are ;;;; not shown but all other slots are shown. ;;;; @@ -188,8 +188,8 @@ ;;;; ChangeLog blog-v1: - * src/views.lisp (user-grid-view, user-data-view, user-form-view) - (post-grid-view, post-data-view, post-form-view): scaffolded views + * src/views.lisp (user-table-view, user-data-view, user-form-view) + (post-table-view, post-data-view, post-form-view): scaffolded views for the gridedit interface * src/init-session.lisp (init-user-session): call MAKE-ADMIN-PAGE blog-record-v1.lisp @@ -88,8 +88,8 @@ blog-v2 blog-v1: - * src/views.lisp (user-grid-view, user-data-view, user-form-view) - (post-grid-view, post-data-view, post-form-view): scaffolded views + * src/views.lisp (user-table-view, user-data-view, user-form-view) + (post-table-view, post-data-view, post-form-view): scaffolded views for the gridedit interface * src/init-session.lisp (init-user-session): call MAKE-ADMIN-PAGE blog-record-v2.lisp @@ -58,7 +58,7 @@ (make-instance 'gridedit :name 'users-grid :data-class 'user - :view 'user-grid-view + :view 'user-table-view :widget-prefix-fn (lambda (&rest args) (declare (ignore args)) (with-html (:h1 "Users"))) @@ -72,7 +72,7 @@ :widget-prefix-fn (lambda (&rest args) (declare (ignore args)) (with-html (:h1 "Posts"))) - :view 'post-grid-view + :view 'post-table-view :item-data-view 'post-data-view :item-form-view 'post-form-view)) @@ -154,8 +154,8 @@ blog-v2 blog-v1: - * src/views.lisp (user-grid-view, user-data-view, user-form-view) - (post-grid-view, post-data-view, post-form-view): scaffolded views + * src/views.lisp (user-table-view, user-data-view, user-form-view) + (post-table-view, post-data-view, post-form-view): scaffolded views for the gridedit interface * src/init-session.lisp (init-user-session): call MAKE-ADMIN-PAGE blog-record-v3.lisp @@ -271,8 +271,8 @@ blog-v2 blog-v1: - * src/views.lisp (user-grid-view, user-data-view, user-form-view) - (post-grid-view, post-data-view, post-form-view): scaffolded views + * src/views.lisp (user-table-view, user-data-view, user-form-view) + (post-table-view, post-data-view, post-form-view): scaffolded views for the gridedit interface * src/init-session.lisp (init-user-session): call MAKE-ADMIN-PAGE blog-record-v4.lisp @@ -4,7 +4,7 @@ (make-instance 'gridedit :name 'users-grid :data-class 'user - :view 'user-grid-view + :view 'user-table-view :widget-prefix-fn (lambda (&rest args) (declare (ignore args)) (with-html (:h1 "Users"))) @@ -18,7 +18,7 @@ :widget-prefix-fn (lambda (&rest args) (declare (ignore args)) (with-html (:h1 "Posts"))) - :view 'post-grid-view + :view 'post-table-view :item-data-view 'post-data-view :item-form-view 'post-form-view)) blog-v1/src/layout.lisp @@ -1,9 +1,9 @@ (in-package :blog) -(defview user-grid-view (:type grid :inherit-from '(:scaffold user))) +(defview user-table-view (:type table :inherit-from '(:scaffold user))) (defview user-data-view (:type data :inherit-from '(:scaffold user))) (defview user-form-view (:type form :inherit-from '(:scaffold user))) -(defview post-grid-view (:type grid :inherit-from '(:scaffold post))) +(defview post-table-view (:type table :inherit-from '(:scaffold post))) (defview post-data-view (:type data :inherit-from '(:scaffold post))) (defview post-form-view (:type form :inherit-from '(:scaffold post))) blog-v1/src/views.lisp @@ -4,7 +4,7 @@ (make-instance 'gridedit :name 'users-grid :data-class 'user - :view 'user-grid-view + :view 'user-table-view :widget-prefix-fn (lambda (&rest args) (declare (ignore args)) (with-html (:h1 "Users"))) @@ -18,7 +18,7 @@ :widget-prefix-fn (lambda (&rest args) (declare (ignore args)) (with-html (:h1 "Posts"))) - :view 'post-grid-view + :view 'post-table-view :item-data-view 'post-data-view :item-form-view 'post-form-view)) blog-v2/src/layout.lisp @@ -1,10 +1,10 @@ (in-package :blog) -(defview user-grid-view (:type grid :inherit-from '(:scaffold user))) +(defview user-table-view (:type table :inherit-from '(:scaffold user))) (defview user-data-view (:type data :inherit-from '(:scaffold user))) (defview user-form-view (:type form :inherit-from '(:scaffold user))) -(defview post-grid-view (:type grid :inherit-from '(:scaffold post))) +(defview post-table-view (:type table :inherit-from '(:scaffold post))) (defview post-data-view (:type data :inherit-from '(:scaffold post))) (defview post-form-view (:type form :inherit-from '(:scaffold post)) blog-v2/src/views.lisp @@ -4,7 +4,7 @@ (make-instance 'gridedit :name 'users-grid :data-class 'user - :view 'user-grid-view + :view 'user-table-view :widget-prefix-fn (lambda (&rest args) (declare (ignore args)) (with-html (:h1 "Users"))) @@ -18,7 +18,7 @@ :widget-prefix-fn (lambda (&rest args) (declare (ignore args)) (with-html (:h1 "Posts"))) - :view 'post-grid-view + :view 'post-table-view :item-data-view 'post-data-view :item-form-view 'post-form-view)) blog-v3/src/layout.lisp @@ -1,10 +1,10 @@ (in-package :blog) -(defview user-grid-view (:type grid :inherit-from '(:scaffold user))) +(defview user-table-view (:type table :inherit-from '(:scaffold user))) (defview user-data-view (:type data :inherit-from '(:scaffold user))) (defview user-form-view (:type form :inherit-from '(:scaffold user))) -(defview post-grid-view (:type grid :inherit-from '(:scaffold post))) +(defview post-table-view (:type table :inherit-from '(:scaffold post))) (defview post-data-view (:type data :inherit-from '(:scaffold post))) (defview post-form-view (:type form :inherit-from '(:scaffold post)) blog-v3/src/views.lisp @@ -4,7 +4,7 @@ (make-instance 'gridedit :name 'users-grid :data-class 'user - :view 'user-grid-view + :view 'user-table-view :widget-prefix-fn (lambda (&rest args) (declare (ignore args)) (with-html (:h1 "Users"))) @@ -18,7 +18,7 @@ :widget-prefix-fn (lambda (&rest args) (declare (ignore args)) (with-html (:h1 "Posts"))) - :view 'post-grid-view + :view 'post-table-view :item-data-view 'post-data-view :item-form-view 'post-form-view)) blog-v4/src/layout.lisp @@ -1,10 +1,10 @@ (in-package :blog) -(defview user-grid-view (:type grid :inherit-from '(:scaffold user))) +(defview user-table-view (:type table :inherit-from '(:scaffold user))) (defview user-data-view (:type data :inherit-from '(:scaffold user))) (defview user-form-view (:type form :inherit-from '(:scaffold user))) -(defview post-grid-view (:type grid :inherit-from '(:scaffold post))) +(defview post-table-view (:type table :inherit-from '(:scaffold post))) (defview post-data-view (:type data :inherit-from '(:scaffold post)) (author :reader #'post-author-name) blog-v4/src/views.lisp 3ce1feb4cf22c748811abe381800950726633078 Evan Monroig evan.monroig@gmail.com http://github.com/evanmonroig/cl-blogapp/commit/723968c3e5cf0d92bca9d452922b144d90bf3495 723968c3e5cf0d92bca9d452922b144d90bf3495 2008-06-07T21:17:51-07:00 2008-06-07T21:17:51-07:00 adapted to new weblocks (last darcs from 2008-07-08 13:17 JST) - changed GRID-VIEW to TABLE-VIEW 1066bffc503d205380c170e376b0beb138909d14 Evan Monroig evan.monroig@gmail.com