' 'Class description: ' !short:UpWindow class structure: Class UpWindow: ~~~~~~~~~~~~~~~ The same as the class Window, but due to redefining of instvar variable UpWindow:UpfFlag to the default value true it is not possible to deactivate this window and to switch to other. It will remain on the top of the stack of windows. Common use: ~~~~~~~~~~~ When we need the window not to switch to background. Source code is in C_UpWind.prg !seealso: c_window.ngo:Window c_win.ngo:Win c_box.ngo:Box c_browse.ngo:Browse c_color.ngo:Color ob_class.ngo:"Class hierarchy" !short:~~~~~~~~~~~~~~~~~~~~~~~~~ !short:create class UpWindow from Window !short: export: !short: method New=UpWindowNew //o:New() --> self ^BUpWindow:New()^N: public: return self The object is filled with default values, redefines predcessor variable: ^UUpWindow:UpFlag^N: public: logical If true can't be switched to backround, if false the normal Window class behaviour. !short: endclass