+ (** {2 state handling} *)
+
+type db
+
+class type g_status =
+ object
+ method content_pres_db: db
+ end
+
+class status :
+ object ('self)
+ method content_pres_db: db
+ method set_content_pres_db: db -> 'self
+ method set_content_pres_status: #g_status -> 'self
+ end