// ---------------------------------------------------------------------------- Control events 
  
        WITH OBJECT oWnd:GetObj( This.FRM_4.Handle ) 
          :Event( 1, {|ow,ky| This_Msg('Control message ' + "nKey="+cValToChar(ky), ow:Name) } )  
          :Event( 2, {|ow,ky| This_Msg('Control message ' + "nKey="+cValToChar(ky), ow:Name) } )  
          // ... 
        END WITH  
  
        nY   += This.FRM_4.Height + nHgt 
        cNam := 'ID' 
      @ nY, nX LABEL &cNam VALUE '' WIDTH nLen HEIGHT oBrw1:nHeightCell CENTERALIGN 
  
        WITH OBJECT oWnd:GetObj(cNam) 
          :Cargo := 0 
 //       :Event( 1, {|ky,oc,kd,id| ky := ky, ;                                       // Get  
          :Event( 1, {|oc,kd,id   | kd := Eval( oBrw1:GetColumn('KODS'):bData ), ;    // Get 
                                    id := Eval( oBrw1:GetColumn('ID'):bData ),  ; 
                                    oc:Value := alltrim(cValToChar(id))+"-<"+ ; 
                                                alltrim(cValToChar(kd))+">" } )  
 //       :Event( 2, {|ky,oc   | ky := ky, ;                                          // Put  
          :Event( 2, {|oc      | oc:Window:oCargo:Set(oc:Name, oc:Value) } )          // Put 
          :Window:oCargo:Set(cNam, :Value )                                           // init value to oCargo 
        END WITH  
  
        nY   += This.&(cNam).Height  
        cNam := 'KOLV' 
      @ nY, nX LABEL &cNam VALUE '' WIDTH nLen HEIGHT oBrw1:nHeightCell CENTERALIGN 
  
        WITH OBJECT oWnd:GetObj(cNam) 
 //       :Event( 1, {|ky,oc,kl| ky := ky, ;                                           // Get 
          :Event( 1, {|oc,kl   | kl := Eval( oBrw1:GetColumn('KOLV'):bData ), ;        // Get 
                                 oc:Value := alltrim(cValToChar(kl)) } ) 
 //       :Event( 2, {|ky,oc   | ky := ky, ;                                           // Put 
          :Event( 2, {|oc      | oc:Window:oCargo:Set(oc:Name, oc:Value) } )           // Put 
          :Window:oCargo:Set(cNam, :Value )                                            // init value to oCargo 
        END WITH  
  
        nY   += This.&(cNam).Height  
        cNam := 'CENA' 
      @ nY, nX LABEL &cNam VALUE '' WIDTH nLen HEIGHT oBrw1:nHeightCell CENTERALIGN 
  
        WITH OBJECT oWnd:GetObj(cNam) 
 //       :Event( 1, {|ky,oc,cn| ky := ky, ;                                           // Get 
          :Event( 1, {|oc,cn   | cn := Eval( oBrw1:GetColumn('CENA'):bData ), ;        // Get 
                                 oc:Value := alltrim(cValToChar(cn)) } ) 
 //       :Event( 2, {|ky,oc   | ky := ky, ;                                           // Put 
          :Event( 2, {|oc      | oc:Window:oCargo:Set(oc:Name, oc:Value) } )           // Put 
          :Window:oCargo:Set(cNam, :Value )                                            // init value to oCargo 
        END WITH  
  
        nY   += This.&(cNam).Height + 10 
        cNam := 'NAME' 
        cPic := oBrw1:GetColumn('NAME'):cPicture 
        cNam := 'NAME' 
      @ nY, nX  GETBOX &cNam  WIDTH nLen HEIGHT oBrw1:nHeightCell VALUE space(len(cPic)) ; 
                     PICTURE  cPic ; 
                     BACKCOLOR {{255,255,255},{255,255,200},{200,255,255}} ; 
                     FONTCOLOR {{0,0,0},{255,255,200},{0,0,255}} 
  
        WITH OBJECT oWnd:GetObj(cNam) 
 //       :Event( 1, {|ky,oc   | ky := ky, ;                                           // Get 
          :Event( 1, {|oc      | oc:Value := Eval( oBrw1:GetColumn('NAME'):bData ) } ) // Get 
 //       :Event( 2, {|ky,oc   | ky := ky, ;                                           // Put 
          :Event( 2, {|oc      | oc:Window:oCargo:Set(oc:Name, oc:Value) } )           // Put 
          :Window:oCargo:Set(cNam, :Value )                                            // init value to oCargo 
        END WITH  
      // ---------------------------------------------------------------------------- Control events 
  
      DEFINE TIMER REFR INTERVAL 500 ACTION MyEvent( 'ID' ) 
  
      This.REFR.Cargo := oWnd:GetObj4Type('LABEL,GETBOX') 
  
      WITH OBJECT oWnd                                                        // ---- Window events 
        :Event( 1, {|ow,ky| This_Msg('Window message ' + "nKey="+cValToChar(ky), ow:Name) } ) 
        :Event( 2, {|ow,ky| This_Msg('Window message ' + "nKey="+cValToChar(ky), ow:Name) } ) 
        :Event( 3, {|    | AEval( This.REFR.Cargo , {|oc| oc:SendMsg(2) }) } )              // Put 
        // ... 
      END WITH                                                                // ---- Window events 
 

 
 CLASS TWndData 
 ... 
  METHOD Destroy()        INLINE ( ::oCargo:Destroy(), ::oCargo := Nil, ::cChr := Nil,      ; 
                                   ::oUserKeys:Destroy(), ::oUserKeys := Nil,               ; 
                                   ::oEvent:Destroy(), ::oEvent := Nil, ::cVar := Nil,      ; 
                                   ::oHand:Destroy(), ::oHand := Nil, ::uTmp := Nil,        ; 
                                   ::oName:Eval({|ky,oc,nn| ky := nn, oc:Destroy() }),      ; 
                                   ::oName := Nil, ::cName := Nil, ::cType := Nil,          ; 
                                   ::nIndex := Nil, ::nHandle := Nil, ::nParent := Nil,     ; 
                                   ::oStatusBar := Nil, oToolBar := Nil, ::oMenu := Nil ) 
 ENDCLASS          
 ... 
 CLASS TCntData   INHERIT TWndData 
 ... 
  METHOD Destroy()        INLINE ( ::oCargo:Destroy(), ::oUserKeys:Destroy(), ; 
                                   ::oEvent:Destroy(), ::cChr := Nil, ::uTmp := Nil, ; 
                                   ::cVar := Nil, ::cName := Nil, ::cType := Nil,    ; 
                                   ::nIndex := Nil, ::nHandle := Nil, ::nParent := Nil ) 
 ENDCLASS          
 ... 
  METHOD Sum( Key, nSum ) 
  METHOD Destroy()    INLINE ( ::oObj := Nil, ::bBlk := Nil, ::Cargo := Nil, ::aKey := Nil ) 
 ENDCLASS          
 ... 
 METHOD Sum( Key, xSum ) CLASS TKeyData 
  LOCAL sum := ::Get( Key, 0 )    
  
  If     HB_ISNUMERIC( xSum ) 
     If HB_ISNUMERIC( sum ); sum += xSum 
     Else                  ; sum := xSum 
     EndIf 
     ::Put( Key, sum ) 
  ElseIf HB_ISARRAY( xSum ) 
     If HB_ISARRAY(sum) .and. Len(sum) == Len(xSum) 
        AEval(xSum, {|s,i| sum[ i ]:= iif( HB_ISNUMERIC( s ), sum[ i ] + s, s ) } ) 
     Else 
        sum := xSum 
     EndIf 
     ::Put( Key, sum ) 
  EndIf 
  
 RETURN Nil 
  
 h_windows.prg 
 ... 
 *-----------------------------------------------------------------------------* 
 Function _ReleaseWindow ( FormName ) 
 *-----------------------------------------------------------------------------* 
 ... line 2278 
    i := GetFormIndex ( Formname ) 
    FormHandle := _HMG_aFormHandles [ i ] 
  
    * Release Window 
  
    If HB_ISOBJECT( _HMG_aFormMiscData1 [ i ][1] ) 
       _HMG_aFormMiscData1 [ i ][1]:Destroy() 
    EndIf 
  
    IF _HMG_aFormType [ i ] == 'M' .AND. _HMG_ActiveModalHandle <> FormHandle 
 ...