' 'Class description: ' !short:Loc class structure: Class Loc: ~~~~~~~~~~~ Cursor screen position is here defined. Common Use: ~~~~~~~~~~~ LOCAL OBJECT Loc OF Loc Loc:Get() ... Loc:Set() Source code is in C_Loc.prg !seealso: c_cursor.ngo:Cursor c_box.ngo:Box c_frame.ngo:Frame c_color.ngo:Color ob_class.ngo:"Class Hierarchy" !short:~~~~~~~~~~~~~~~~~~~~~ !short:create class Loc !short: export: !short: var Row //3 ^BLoc:Row^N: public: numeric Screen cursor position. !short: var Col //4 ^BLoc:Col^N: public: numeric Screen row position. !short: method New=LocNew //o:New() --> self ^BLoc:New()^N: public: return self Object is filled with default values. !short: method Init=LocInit //o:Init(Row,Col) --> true ^BLoc:Init(Row,Col)^N: public: return true Row and Col screen positions are saved to instvar variables of the object. !short: method Get=LocGet //o:Get() --> true ^BLoc:Get()^N: public: return true Cursor coordinates are read into instvar variables of the object. !short: method Set=LocSet //o:Set() --> true ^BLoc:Set()^N: public: return true Cursor is set to Loc:Row,Loc:Col positions. !short: endclass