Object: TextBox with numeric ControlSource and a Inputmask

Observed: if the sign position is where a separator can appear,
to remove the minus sign is very hard
or it require of annoying indirect operations.

Repro: run and try to remove the minus sign without
- remove/add a digit ( not lose the numeric value )
- select/cancel the minus sign ( show mistaken separator )

PUBLIC oform1

SET POINT TO 
SET SEPARATOR TO 

oform1=NEWOBJECT("form1")
oform1.Show
RETURN

DEFINE CLASS form1 AS form


	DoCreate = .T.
	Caption = "Form1"
	Name = "Form1"


	ADD OBJECT text1 AS textbox WITH ;
		Alignment = 3, ;
		Value = 0.00, ;
		ControlSource = "m.gCurrency", ;
		Format = "R", ;
		Height = 23, ;
		InputMask = "999,999.99", ;
		Left = 156, ;
		Top = 60, ;
		Width = 100, ;
		Name = "Text1"


	PROCEDURE Load
		PUBLIC gCurrency
		gCurrency=-721.45
	ENDPROC

ENDDEFINE

Comment: Depressing.

Fabio