// Class: cWsProgressBar
// Author: ake
// Created: 08-06-2007 14:50:08

// DFO: cWsProgressBar.Dfo
// DFC: cWsProgressBar.Dfc

Use cProgressBar.pkg
Use ProcessMessages/ProcessMessages.pkg

Class cWsProgressBar is a cProgressBar

    Procedure Construct_Object

        Forward Send Construct_Object // Important, must be forwarded

        // Define new Properties:
        // Property {Type} {pxName} {initial_value}

        // Create child objects:
        // Object {name} Is A {class}
        // End_Object // {name}

        // Set property values:
        // Set {property} To {value}
    End_Procedure // Construct_Object

    Procedure End_Construct_Object

        Forward Send End_Construct_Object

        // Add your code that needs to be executed at the end of the object construction here:
    End_Procedure // End_Construct_Object

    // Create and augment procedures and functions

    Procedure DoAdvance
        Forward Send DoAdvance
        Send ProcessMessages
    End_Procedure

    Procedure DoAdvanceBy Integer iAdvanceBy
        Forward Send DoAdvanceBy iAdvanceBy
        Send ProcessMessages
    End_Procedure

    Procedure Set piPosition Integer iPos
        Forward Set piPosition to iPos
        Send ProcessMessages
    End_Procedure

End_Class // cWsProgressBar