//AB/ Project Index data entry
//AB/ Object prj is a Dialog_Project
//AB/     Set ProjectName to "Index data entry"
//AB/     Set ProjectFileName to "GlbIndexData.DG"
//AB/     Set GenerateFileName to "NONAME4"

// Project Object Structure
//   oIndexEntry is a ModalPanel
//     Index# is a Form
//     oReturnText is a Textbox
//     JumpIn_Data is a Form
//     JumpOut_Data is a Form
//     Ok_Button is a Button
//     Cancel_Button is a Button

// Register all objects
Register_Object Cancel_Button
Register_Object Index#
Register_Object JumpIn_Data
Register_Object JumpOut_Data
Register_Object Ok_Button
Register_Object oIndexEntry
Register_Object oReturnText


//AB-IgnoreStart



//AB-IgnoreEnd

CD_Popup_Object oIndexEntry is a ModalPanel
    //AB-StoreTopStart
    On_Key KCancel Send Close_Panel
    //AB-StoreTopEnd
    Set Label to "Index Selection"
    Set Size to 130 300
    Set Location to 6 6

    //AB-DDOStart


    //AB-DDOEnd

    Object Index# is a Form
        Set Label to "Index #:"
        Set Size to 13 28
        Set Location to 11 67
        Set Label_Col_Offset to 33

        //AB-StoreStart
        Set Prompt_Button_Mode to pb_PromptOn

        Procedure Prompt
            Integer iIndex#
            Set piIndex# Of (oReplace_View(Current_Object)) To ""
            Send Popup To (oIndexLookUp(Current_Object))
            Get piIndex# Of (oReplace_View(Current_Object)) To iIndex#
            Set Value Item 0 To iIndex#
        End_Procedure

        Procedure Exiting integer lToObj
            Integer iIndex#
            Get Value Item 0 To iIndex#
            Set piIndex# Of (oReplace_View(Current_Object)) To iIndex#
            Forward Send Exiting lToObj
        End_Procedure
        //AB-StoreEnd

    End_Object    // Index#

    Object oReturnText is a Textbox
        Set Label to "Do not enclose data in quotes."
        Set Location to 30 100
        Set Size to 10 155
        Set TypeFace to "MS Sans Serif"
    End_Object    // oReturnText

    Object JumpIn_Data is a Form
        Set Label to "'Jump In' Data:"
        Set Size to 13 207
        Set Location to 44 67

        //AB-StoreStart
        Procedure Exiting Integer iToObj
            String sIndex_Data
            Get Value Item 0 To sIndex_Data
            Set psJumpin_Data Of (oReplace_View(Current_Object)) To sIndex_Data
            Forward Send Exiting iToObj
        End_Procedure
        //AB-StoreEnd

    End_Object    // JumpIn_Data

    Object JumpOut_Data is a Form
        Set Label to "'Jump Out' Data:"
        Set Size to 13 207
        Set Location to 72 67

        //AB-StoreStart
        Procedure Exiting integer iToObj
            String sIndex_Data
            Get Value Item 0 To sIndex_Data
            Set psJumpOut_Data Of (oReplace_View(Current_Object)) To sIndex_Data
            Forward Send Exiting iToObj
        End_Procedure
        //AB-StoreEnd

    End_Object    // JumpOut_Data

    Object Ok_Button is a Button
        Set Label to "OK"
        Set Location to 94 175

        //AB-StoreStart
        Procedure OnClick
            Send Close_Panel
        End_Procedure
        //AB-StoreEnd

    End_Object    // Ok_Button

    Object Cancel_Button is a Button
        Set Label to "Cancel"
        Set Location to 94 233

        //AB-StoreStart
        Procedure OnClick
            Set piIndex# Of (oReplace_View(Current_Object)) To ""
            Set psJumpin_Data Of (oReplace_View(Current_Object)) To ""
            Set psJumpOut_Data Of (oReplace_View(Current_Object)) To ""
            Send Close_Panel
        End_Procedure
        //AB-StoreEnd

    End_Object    // Cancel_Button

CD_End_Object    // oIndexEntry

//AB/ End_Object    // prj