Commit 3002c8f9 authored by Dave Griffiths's avatar Dave Griffiths
Browse files

group movement text

parent 69970caf
......@@ -808,11 +808,11 @@
(make-id "") 'horizontal (layout 'fill-parent 90 '1 'left 0) trans-col
(medit-text "gp-mov-w" "Width" "numeric"
(medit-text "gp-mov-w" "Pack width" "numeric"
(lambda (v) (entity-add-value! "pack-width" "int" (string->number v)) '()))
(medit-text "gp-mov-l" "Length" "numeric"
(lambda (v) (entity-add-value! "pack-height" "int" (string->number v)) '()))
(medit-text "gp-mov-l" "How many" "numeric"
(medit-text "gp-mov-l" "Pack depth" "numeric"
(lambda (v) (entity-add-value! "pack-depth" "int" (string->number v)) '()))
(medit-text "gp-mov-c" "How many mongooses?" "numeric"
(lambda (v) (entity-add-value! "pack-count" "int" (string->number v)) '()))))
(make-id "") 'horizontal (layout 'fill-parent 90 '1 'left 0) trans-col
......@@ -1045,8 +1045,7 @@
db "local" 1 (list (ktv "user-id" "varchar" v)))))
(mtext "foo" "Database")
(mbutton2 "main-sync" "Sync" (lambda () (list (start-activity "sync" 0 ""))))))
(mbutton2 "main-sync" "Sync" (lambda () (list (start-activity "sync" 0 "")))))
(lambda (activity arg)
(activity-layout activity))
(lambda (activity arg)
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