been trying the new gui stuff and as i was trying to make a simple serial program i noticed that ( ToInt ToLong ToFloat ) String Modyfiers Are Broke Or Have Been Removed But Not Documented So Any One Else Get This.
[Code]
Strict
Local Window:TGadget
Local Button:TGadget[2]
Global TextIn:TGadget[2]
Global Name_string$
Global Name_Length
Global Name_Int
Window = CreateWindow( "CrackMEH",40,40,200,200 )
Button[0] = CreateButton( "Ok",5,80,80,30,Window,BUTTON_OK )
Button[1] = CreateButton( "Exit",105,80,80,30,Window,BUTTON_CANCEL )
TextIn[0] = CreateTextField(20,30,150,20,Window)
TextIn[1] = CreateTextField(20,50,150,20,Window)
SetGadgetText( TextIn[0],"Enter Name" )
SetGadgetText( TextIn[1],"Enter Serial" )
ActivateGadget TextIn[0]
ActivateGadget TextIn[1]
While WaitEvent()
Select EventID()
Case EVENT_GADGETACTION
Select EventSource()
Case TextIn[0]
Get_Text_And_Calc()
Case TextIn[1]
Case Button[0]
SetGadgetText( TextIn[0],Name_Int )
Case Button[1]
End
End Select
Case EVENT_WINDOWCLOSE
End
End Select
Wend
Function Get_Text_And_Calc()
Name_string$ = TextFieldText$( TextIn[0] )
Trim$( Name_string$ )
Name_Length = Len( Name_string$ )
Name_Int = ToInt( Name_string$ )
EndFunction
[/Code]
[Code]
Strict
Local Window:TGadget
Local Button:TGadget[2]
Global TextIn:TGadget[2]
Global Name_string$
Global Name_Length
Global Name_Int
Window = CreateWindow( "CrackMEH",40,40,200,200 )
Button[0] = CreateButton( "Ok",5,80,80,30,Window,BUTTON_OK )
Button[1] = CreateButton( "Exit",105,80,80,30,Window,BUTTON_CANCEL )
TextIn[0] = CreateTextField(20,30,150,20,Window)
TextIn[1] = CreateTextField(20,50,150,20,Window)
SetGadgetText( TextIn[0],"Enter Name" )
SetGadgetText( TextIn[1],"Enter Serial" )
ActivateGadget TextIn[0]
ActivateGadget TextIn[1]
While WaitEvent()
Select EventID()
Case EVENT_GADGETACTION
Select EventSource()
Case TextIn[0]
Get_Text_And_Calc()
Case TextIn[1]
Case Button[0]
SetGadgetText( TextIn[0],Name_Int )
Case Button[1]
End
End Select
Case EVENT_WINDOWCLOSE
End
End Select
Wend
Function Get_Text_And_Calc()
Name_string$ = TextFieldText$( TextIn[0] )
Trim$( Name_string$ )
Name_Length = Len( Name_string$ )
Name_Int = ToInt( Name_string$ )
EndFunction
[/Code]