The :: operator is used to execute a parent class method from within a subclass method. When you create a subclass, the subclass methods are automatically inherited from the parent class. The :: operator makes it possible for you to execute the parent class method in the subclass method and then perform additional processing for the subclass method. The subclass definitions in the example demonstrate how the :: operator is used to execute the parent class method within a subclass method.

For additional information about the :: scope resolution operator, see Object-Oriented Programming.

The following example creates a form and adds two command buttons to the form. By clicking either button, you can exit the form – the second button, cmdAnotherButton, calls the Click procedure from cmdQuit. This action is possible because of subclassing. The scope resolution operator calls the parent class code for the subclassed object.

	Copy Code
frmMyForm = CREATEOBJECT("Form") frmMyForm.Width = 450 frmMyForm.Height = 100 frmMyForm.Caption = "Scope Resolution Example" frmMyForm.AutoCenter =.T. frmMyForm.AddObject("cmdQuit","cmdQuitButton") frmMyForm.AddObject("cmdAnother","cmdAnotherButton") frmMyForm.SHOW && Display the form READ EVENTS && Start event processing

The following example defines two command buttons. The first button will be used to subclass the second button. The subclassing can be seen by the FontBold and ForeColor properties which are defined for cmdQuit, but never explicitly set for the cmdAnotherButton. We are defining cmdAnotherButton to be a subclass of the cmdQuitButton. As a result, this button will pick up all the attributes defined above for cmdQuitButton.

Copy Code

DEFINE CLASS cmdQuitButton AS CommandButton Caption = "\<Quit" && Caption on command button Left = 175 && Left edge of button Top = 60 && Position for top of button Height = 25 && Button height Visible = .T. && Show button on form FontItalic = .T. && Turn on italic text ForeColor = RGB(0,0,255) && Change button text color PROCEDURE Click WAIT WINDOW "Executing the CLICK procedure for cmdQuit." TIMEOUT 1 CLEAR EVENTS && Stop event processing ENDDEFINE DEFINE CLASS cmdAnotherButton AS cmdQuitButton Caption = "Click to quit" Left = 175 Top = 30 Height = 25 PROCEDURE Click WAIT WINDOW "Click event for button: cmdAnotherButton" TIMEOUT 1 cmdQuitButton::Click ENDDEFINE

Reference

Other Resources