* provide SelectOnEntry even if focus is coming to this control via mouse click

if ( this.SelectOnEntry )
   TextBox::GotFocus()
   nodefault

   this.SelStart = 0
   do case
      case ( this.MaxLength > 0 )
         this.SelLength = this.MaxLength
      case ( len( this.InputMask ) > 0 )
         this.SelLength = len( this.InputMask )
   endcase
endif