Commit b962245c authored by Dave Griffiths's avatar Dave Griffiths

added separate literacy toggle

parent d8e5c120
......@@ -64,7 +64,7 @@
(define tribes-list '(khasi other))
(define subtribe-list '(khynriam pnar bhoi war other))
(define education-list '(illiterate literate primary middle high secondary university))
(define education-list '(primary middle high secondary university))
(define married-list '(ever-married currently-married currently-single seperated))
(define residence-list '(birthplace spouse-village))
(define gender-list '(male female))
......@@ -103,6 +103,7 @@
(ktv "child" "int" 0)
(ktv "age" "int" 0)
(ktv "gender" "varchar" "")
(ktv "literate" "int" 0)
(ktv "education" "varchar" "")
(ktv "head-of-house" "varchar" "")
(ktv "marital-status" "varchar" "")
......@@ -931,7 +932,9 @@
(mspinner-other 'sub-tribe subtribe-list (lambda (v) (entity-set-value! "subtribe" "varchar" (spinner-choice subtribe-list v)) '()))
(horiz
(medit-text 'age "numeric" (lambda (v) (entity-set-value! "age" "int" v) '()))
(mspinner 'gender gender-list (lambda (v) (entity-set-value! "gender" "varchar" (spinner-choice gender-list v)) '()))
(mspinner 'gender gender-list (lambda (v) (entity-set-value! "gender" "varchar" (spinner-choice gender-list v)) '())))
(horiz
(mtoggle-button-scale 'literate (lambda (v) (entity-set-value! "literate" "int" v) '()))
(mspinner 'education education-list (lambda (v) (entity-set-value! "education" "varchar" v) '())))
)
(lambda (activity arg)
......@@ -949,6 +952,7 @@
(mupdate 'image-view 'photo "photo")
(mupdate 'edit-text 'age "age")
(mupdate-spinner 'gender "gender" gender-list)
(mupdate 'toggle-button 'literate "literate")
(mupdate-spinner 'education "education" education-list)
)))
(lambda (activity) '())
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment