' test.bas : qspintext component test program
' Mesut Akcan

$apptype gui
$typecheck on
$option level 3

$include "qspintext.inc"

declare sub frm_click

create form as qform
    create label1 as qlabel
        caption = "Number (-10 to 125):" 
        top = 10
    end create
    create stx as Qspintext
        left = 100
        top  = 8
        max  = 125
        min  = - 10
        value= - 3
        initial
    end create
    onclick = frm_click
end create

form.showmodal

sub frm_click
    showmessage "Qspintext.value=" + str$(stx.value)
end sub