FIX: SelText in Edit Box Limited to 255 Characters

MORE INFORMATION

Steps to Reproduce Behavior

1. Create a program with the following code:

         PUBLIC x
         x=CREATEOBJECT('form1')
         x.Show
   
         DEFINE CLASS form1 AS form
   
            Top = 0
            Left = 0
            Height = 250
            Width = 425
            DoCreate = .T.
            Caption = "Form1"
            Name = "Form1"
   
            ADD OBJECT edit1 AS editbox WITH ;
              Height = 229, ;
              Left = 11, ;
              Top = 10, ;
              Width = 276, ;
              Name = "Edit1"
   
            ADD OBJECT command1 AS commandbutton WITH ;
              Top = 25, ;
              Left = 300, ;
              Height = 27, ;
              Width = 84, ;
              Caption = "Click Me", ;
              Name = "Command1"
   
            PROCEDURE edit1.Init
              This.HideSelection = .F.
              This.Value = REPLICATE( "abcedfghijklmnopqrstuvwxyz", 15 )
              This.SelStart = 0
              This.SelLength = LEN( This.Value )
            ENDPROC
   
            PROCEDURE command1.Click
              =MESSAGEBOX("SelLegth "+STR(Thisform.edit1.SelLength))
              =MESSAGEBOX("SelText "+STR(LEN(Thisform.edit1.SelText)))
              =MESSAGEBOX(Thisform.edit1.SelText)
            ENDPROC
   
         ENDDEFINE

2. Run the .prg file and click the CLICK ME button.