PROCEDURE text2.GotFocus
		Textbox::Gotfocus
		This.SelStart = 0
		This.SelLength = 255
		NODEFAULT
	ENDPROC

Public oForm
oForm = CreateObject("form1")
oForm.Show()
*


DEFINE CLASS form1 AS form
	DoCreate = .T.
	Caption = "Form1"
	Name = "Form1"


	ADD OBJECT text1 AS textbox WITH ;
		Height = 25, ;
		Left = 60, ;
		Top = 60, ;
		Width = 97, ;
		Name = "Text1"


	ADD OBJECT text2 AS textbox WITH ;
		Alignment = 3, ;
		Value = 123.45, ;
		Height = 25, ;
		Left = 60, ;
		Top = 108, ;
		Width = 97, ;
		Name = "Text2",;
		selectOnentry = .t.


	PROCEDURE text2.GotFocus
		Textbox::Gotfocus
*			This.SelStart = 0
*			This.SelLength = 255
		NODEFAULT
	ENDPROC


EndDefine