Click above to get retro games delivered to your door ever month!

  WCARGODEL()                                                Window Function
 Purpose..: Delete the cargo of a window
-------------------------------------------------------------------------------
 Syntax...: wCargoDel( [<uWin>], <cCargoID> ) --> lSuccess

 Arguments: [<uWin>] = the string identifier of the window
                       OR the reference to the window structure
                       returned as an array by wNew() or wArray().
                       If not passed, the function will operate on
                       the window in focus.

            <cCargoID>  = cargo identification. There is no default.

 Returns..: lSuccess is true, if successful.

 Remark...: The function works whether the window is open or not.

 Source...: WCARGO.PRG
-------------------------------------------------------------------------------
 Example..: . The example adds the data used by the window
              procedure Edit( ) to the windows cargo slot. Then
              it sends the data to Edit( ) by using wCargoGet().
              When the procedure terminates the baggage is
              deleted.

                 FILE: DataDefs.Prg
                 ------------------
                 local aEditData[ MAX_EDIT ]

                 aEditData[ EDIT_KEY    ] := PERSON->SSN
                 aEditData[ EDIT_COLORS ] := "W+/B, N/W"
                 aEditData[ EDIT_VALID  ] := bValid

                 FILE: WindDefs.Prg
                 ------------------
                 wNew     ( "Edit" )
                 wProc    ( "Edit", { |a| Edit( a ) } )
                 wCargoPut( "Edit", "EDIT_DATA", aEditData )

                 FILE Main.Prg
                 -------------
                 local aEdit := wCargoGet( "Edit", "EDIT_DATA" )

                 wOpen( "Edit" )
                 lChanged := eval( wProc( ), aEdit )
                 wCargoDel( "Edit", "EDIT_DATA" )