dlg

Add component to dialog.

(dlg,str, typ=, param=, def=, store, min=, max=, dec=, setunits, x=, y=, w=, h=, color=)

(dlgname,'My new dialog', bok=1, bcancel=1)
(dlg,'^/PlanetCNC.png', typ=image)
(dlg,'My Label', typ=label, color=0xff0000)
(dlg,'"Animal"|"Bear~"|"Birds, Bees~"|"Aligator~"|"Ox~"|"Hummingbird~"|"Rattlesnake~"', typ=checkbox, param=myanimal, 0, store)
(dlg,'My Value 1', typ=input, param=first,  def=11, store, min=-100, max=+100, dec=1, setunits)
(dlg,'My Value 2', typ=input, param=second, def=22, store, min=-100, max=+100, dec=2, setunits)
(dlg,'My Value 3', typ=input, param=third,  def=33, store, min=-100, max=+100, dec=3, setunits)
(dlgshow)
 
(print,myanimal=#<myanimal>)
(print,first=#<first>)
(print,second=#<second>)
(print,third=#<third>)

(dlgname,"My dialog", w=500, h=300)
(dlg,"My value", x=100, y=100, w=200, h=50, color=0xFF0000)
(dlgshow)

(dlgname,"My dialog")
(dlg,"My value 1", store)
(dlg,"My value 2", store)
(dlg,"My value 3", store)
(dlg,"My value 4", store)
(dlgshow)
 
(print,Value 1 is #<my_value_1>)
(print,Value 2 is #<my_value_2>)
(print,Value 3 is #<my_value_3>)
(print,Value 4 is #<my_value_4>)

(dlgname,"My dialog")
(dlg,"My value 1", param=first)
(dlg,"My value 2", param=second)
(dlg,"My value 3", param=third)
(dlgshow)
 
(print,Value 1 is #<first>)
(print,Value 2 is #<second>)
(print,Value 3 is #<third>)

(dlgname,"My dialog")
(dlg,"My Label", typ=label)
(dlg,"data::PlanetCNC", typ=image)
(dlg,"My checkbox|Yes|No", typ=checkbox)
(dlg,"My value", typ=value)
(dlgshow)

(dlgname,Select origin)
(dlg,Origin|None~|\ | |\~ |\ | , typ=checkbox, w=1, def=1, param=myorig)
(dlgshow)
 
(print,Origin is #<myorig>)

(dlgname,Select animal)
(dlg,"Animal"|"Bear~"|"Birds, Bees~"|"Aligator~"|"Ox~"|"Hummingbird~"|"Rattlesnake~", typ=checkbox, w=1)
(dlgshow)
 
(print,Animal is #<animal>)

dlgname, dlgshow