Use Windows.pkg

Object FillValue_dg is a ModalPanel
    Set Label to "Fill value for current column"
    Set Location to 2 2
    Set Size to 89 210
    Set piMinSize to 82 206

    Property Boolean pbOk False
    Property String psFillValue ""

    Object oForm1 is a Form
        Set Label to "Fill value:"
        Set Size to 13 137
        Set Location to 26 53
        Set Label_Col_Offset to 2
        Set Label_Justification_Mode to jMode_Right
        
        Procedure Activating
            String sValue
            Forward Send Activating
            Get psFillValue to sValue
            Set Value to sValue
        End_Procedure
        
    End_Object 

    Object oOK_btn is a Button
        Set Label to "&OK"
        Set Location to 71 98
        Set peAnchors to anBottomRight

        Procedure OnClick
            String sValue
            Get value Of oForm1 To sValue
            Set psFillValue to (Rtrim(sValue))
            Set pbOK to True
            Send Close_Panel
        End_Procedure 

    End_Object

    Object oCancel_btn is a Button
        Set Label to "&Cancel"
        Set Location to 71 157
        Set peAnchors to anBottomRight

        Procedure OnClick
           Send Close_Panel
        End_Procedure 

    End_Object

    On_Key kCancel Send close_panel
    On_Key kEnter Send keyaction Of oOK_btn

    
    Function FillValue String sFieldname String ByRef sFillValue Returns Boolean
        Boolean bOk
        Set pbOK to False
        Set psFillValue to sFillValue
        Set Label to (SFormat("Fill value for %1", sFieldname))
        Send Popup
        Get pbOK to bOk
        If bOk Begin
            Get psFillValue to sFillValue
        End
        Function_Return bOk
    End_Function

End_Object