>>>define class myOtherContainer as Container >>> add object myLabel as label with Caption = '*', left = 1, top = 1, border=0 >>> procedure Refresh() as VOID >>> this.myLabel.Caption = IIF(this.myLabel.Caption = '*', 'I', 'R') >>> Container::Refresh >>> endproc >>>enddefine >>>>
>Parent Container -> REFRESH() > Child 1 -> REFRESH() && Does whatever it needs except calling ZOrder(0) > Child 2 -> REFRESH() && Does whatever it needs except calling ZOrder(0) > Child 3 -> REFRESH() && Does whatever it needs except calling ZOrder(0) > ... > Child n -> REFRESH() && Does whatever it needs except calling ZOrder(0) > >* All childs are refreshed, Hugo is very happy >>
>Parent Container -> REFRESH() > Child 1 -> REFRESH() && There is a ZOrder(0) in the Refresh of Child 1 > >* Refresh finishes, Hugo is ashamed in front of the vice-president of the company! >