iup/srclua3/spin.lua


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

IUPSPIN = {parent = WIDGET}

function IUPSPIN:CreateIUPelement (obj)
  return iupCreateSpin ()
end

function iupspin (o)
  return IUPSPIN:Constructor (o)
end
iup.spin = iupspin

IUPSPINBOX = {parent = WIDGET}

function IUPSPINBOX:CreateIUPelement (obj)
  return iupCreateSpinbox (obj[1])
end

function iupspinbox (o)
  return IUPSPINBOX:Constructor (o)
end
iup.spinbox = iupspinbox

iup_callbacks.spincb = {"SPIN_CB", iup_spin_cb}
iup_callbacks.spin_cb = iup_callbacks.spincb