BUG: Text Box Value Does Not Change If ControlSource Is .NULL.

MORE INFORMATION

Steps to Reproduce Behavior

1. Create a program using the code below that creates a form with a custom property and two text boxes. The ControlSource of the first text box is set to the form's custom property.

         frmMain = CREATEOBJECT("frmBase")
         frmMain.Show
         READ EVENTS
   
         DEFINE CLASS frmBase AS Form
   
              *-- Set the property to a character type.
              custom_prop = ""
   
              PROCEDURE Init
                  ThisForm.custom_prop = .NULL.
              ENDPROC
   
              PROCEDURE Unload
            CLEAR EVENTS
         ENDPROC
   
             *-- Create the text box that gives the problem.
             ADD OBJECT text AS NewTextBox WITH ;
                Left = 100, ;
                Top = 0, ;
                Width = 250, ;
                Name = "txtText",;
                NullDisplay = ".NULL.",;
                ControlSource = "thisform.custom_prop"
   
            *-- Create another text box to give you something to tab into.
            ADD OBJECT text2 AS TextBox WITH ;
               Left = 100, ;
               Top = 50, ;
               Width = 250, ;
               Name = "txtText2"
         ENDDEFINE
   
         DEFINE CLASS NewTextBox AS textbox
         ENDDEFINE

2. Run the program and enter text into the first text box.
3. Tab to the next text box.
   
   The text in the control changes to .NULL.