Fake Spinner en float ?

Hi :)

Is there any chances to use float inc value ?

Thanks in advance :)

Global win:TGadget=CreateWindow("test",50,50,286,154,0,9)
Global tb:TGadget=CreateSlider(142,60,10,20,win,SLIDER_STEPPER)
SetSliderRange tb,0,100
SetSliderValue tb,0



Global text:tgadget = CreateTextField(40 , 60 , 100 , 20 , win)


Repeat
	Select WaitEvent()
		Case EVENT_GADGETACTION
			Select EventSource()
				Case tb
				SetStatusText win , Float(EventData())-1000
				SetGadgetText text, Float(EventData())-1000


				Case text
				SetStatusText win, "Slider: "+((Float(EventData() ))-1000)+" New: "+(GadgetText(text).tofloat()-1000)
				SetSliderValue tb , GadgetText(text).tofloat()+1000
			End Select
		Case EVENT_WINDOWCLOSE
			Exit
	End Select
Forever
End

I find , but i get a problem to set slider value from
inputbox ?

Global win:TGadget=CreateWindow("test",50,50,286,154,0,9)
Global tb:TGadget=CreateSlider(142,60,10,20,win,SLIDER_STEPPER)
SetSliderRange tb,0,100
SetSliderValue tb,0



Global text:tgadget = CreateTextField(40 , 60 , 100 , 20 , win)


Repeat
	Select WaitEvent()
		Case EVENT_GADGETACTION
			Select EventSource()
				Case tb
				SetStatusText win , Float(EventData())/1000-100
				SetGadgetText text, Float(EventData())/1000-100


				Case text
				SetStatusText win, "Slider: "+((Float(EventData() ))-1000)+" New: "+(GadgetText(text).tofloat()-1000)
				SetSliderValue tb , GadgetText(text).tofloat()+1000
			End Select
		Case EVENT_WINDOWCLOSE
			Exit
	End Select
Forever
End

I don't understand why we can't have a native spinner? Don't all the GUI kits have them anyway??
(ok... I know GTK, Qt and Cocoa do... not Windows??)

I don't know too...

I was working on one, some while ago, still need to bugfix a minor thing, but basically it was highly flexible. Could do anything, from spinning values to being the backbone for animating graphics (like rotating knobs). Of course it would be canvas-based, so not really native-windows 'n stuff.