Module Dfspnfrm.pkg

     1// PACKAGE: DFSpnFrm.pkg
     2// 07/23/96 JJT - New Class names
     3//  8/11/97 JJT - Set prompt_button_mode to off. Since form is now
     4//                prompt button enabled we must shut off the auto create
     5//                prompt ability (it removes spinner button).
     6
     7// Make a DFForm into a Component by including the capabilities
     8// of a DFSpinButton. This is achieved by providing a "wrapper" to the
     9// public interface of the DFSpinButton.
    10
    11Use Windows.pkg
    12USE SpnFrmMx.pkg // Mixin-Class to provide wrapper Methods
    13
    14{ DesignerClass=cDTSpinForm }
    15{ HelpTopic=SpinForm }
    16Class SpinForm is a Form
    17    IMPORT_CLASS_PROTOCOL SpinForm_Mixin
    18
    19    Procedure Construct_Object
    20        Forward Send Construct_Object
    21        Set Prompt_Button_Mode to PB_PromptOff // should be off. Just in case
    22        Send define_SpinForm_Mixin
    23    End_procedure
    24
    25End_Class
    26