just test the snippet below :
Code: Select all
;- A sort of bug with StringGadget & #PB_String_Numeric
If OpenWindow(0,0,0,300,230,#PB_Window_ScreenCentered|#PB_Window_SystemMenu,"StringGadget Test")
CreateGadgetList(WindowID())
StringGadget(0,5, 5,290,20,"123.45",#PB_String_Numeric)
StringGadget(1,5,35,290,20,"#ALPHA*/\",#PB_String_Numeric)
Msg$ = "Let's test one thing or two... with PB3.94 Update 1" + Chr(10) + Chr(10)
Msg$ + "1/ do you think it's normal that a numeric stringgadget accept alpha cars at initialisation ?" + Chr(10) + Chr(10)
Msg$ + "2/ copy an alpha car from the stringgadget above and 'paste' it to the other : it works but it shoudn't works !" + Chr(10) + Chr(10)
Msg$ + "A friend makes one of my prog violently crash because of this 'available feature'."
TextGadget(2,5,65,290,160,Msg$,#PB_Text_Border)
Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf