+type db
+
+class type g_status =
+ object
+ method content_pres_db: db
+ end
+
+class virtual status :
+ object ('self)
+ inherit NCic.status
+ method content_pres_db: db
+ method set_content_pres_db: db -> 'self
+ method set_content_pres_status: #g_status -> 'self
+ end