Object o =current Object
string temp = o."Object Text"
DB pizzaDB = create "编辑信息"
DBE textDBE = text (pizzaDB,
"请输入正文", temp,
200, 50, false)
void makePizza(DB winDB) {
string text = get(textDBE)
o."Object Text"=text
}
apply(pizzaDB, "Go", makePizza)
show (pizzaDB)