Index: openacs-4/packages/xotcl-core/tcl/cr-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/cr-procs.tcl,v diff -u -r1.41 -r1.42 --- openacs-4/packages/xotcl-core/tcl/cr-procs.tcl 8 Jul 2010 12:05:12 -0000 1.41 +++ openacs-4/packages/xotcl-core/tcl/cr-procs.tcl 6 Nov 2010 09:03:38 -0000 1.42 @@ -1209,6 +1209,15 @@ return $allowed } + ::xo::db::CrClass create ::xo::db::image -superclass ::xo::db::CrItem \ + -pretty_name "Image" \ + -table_name "images" -id_column "image_id" \ + -object_type image \ + -slots { + ::xo::db::CrAttribute create width -datatype integer + ::xo::db::CrAttribute create height -datatype integer + } + # # CrFolder #