' 'Class description: ' !short:UpDBrowse class structure: Class UpDBrowse: ~~~~~~~~~~~~~~~~ Its the same as the class Browse, but can exist as only one active task. The atempt to background switching causes finishing of the task. Common use: ~~~~~~~~~~~ LOCAL OBJECT Db OF UpDBrowse //object creation NET USE Personal //database is opened Db:Init() //object is initialised Db:AddBlock(,"Meno",,FieldBlock("Name")) //ads field for editation Db:AddBlock(,"Plat",,FieldBlock("Salary")) //ads field for editation Db:Process() //editation Db:Done() //task finishing Source code is in C_UpDBro.prg !seealso: c_dbrows.ngo:DBrowse c_abrows.ngo:ABrowse c_browse.ngo:Browse c_task.ngo:Task c_box.ngo:Box c_color.ngo:Color ob_class.ngo:"Class hierarchy" !short:~~~~~~~~~~~~~~~~~~~~~~~~~~ !short:create class UpDBrowse from DBrowse !short: export: !short: method New=UpDBrowseNew //o:New() --> self ^BUpDBrowse:New()^N: public: return self Object is filled with default values, predcessor variable modified: ^UUpDBrowse:UpFlag^N: override: public: logical Default value of herited instvar variable is redefined on new value true. !short: endclass