Commit 7bd24289 authored by Dave Griffiths's avatar Dave Griffiths
Browse files

all pup focal events

parent 3c98048a
......@@ -375,11 +375,12 @@
(linear-layout
(make-id "") 'vertical fillwrap
(list
(mtitle "title" "Pup is fed")
(build-grid-selector "pf-pupfeed-who" "single" "Who fed the pup?")
(mtext "text" "Food size")
(horiz
(spinner (make-id "pf-pupfeed-size") (list "Small" "Medium" "Large") fillwrap (lambda (v) '()))
(mbutton "pf-scan-done" "Done" (lambda () (list (replace-fragment (get-id "pf-bot") "pf-events")))))))
(mbutton "pf-pupfeed-done" "Done" (lambda () (list (replace-fragment (get-id "pf-bot") "pf-events")))))))
(lambda (fragment arg)
(activity-layout fragment))
......@@ -397,6 +398,93 @@
(lambda (fragment) '())
(lambda (fragment) '()))
(fragment
"ev-pupfind"
(linear-layout
(make-id "") 'vertical fillwrap
(list
(mtitle "title" "Pup found food")
(mtext "text" "Food size")
(horiz
(spinner (make-id "pf-pupfind-size") (list "Small" "Medium" "Large") fillwrap (lambda (v) '()))
(mbutton "pf-pupfind-done" "Done" (lambda () (list (replace-fragment (get-id "pf-bot") "pf-events")))))))
(lambda (fragment arg)
(activity-layout fragment))
(lambda (fragment arg)
(list
))
(lambda (fragment) '())
(lambda (fragment) '())
(lambda (fragment) '())
(lambda (fragment) '()))
(fragment
"ev-pupcare"
(linear-layout
(make-id "") 'vertical fillwrap
(list
(mtitle "title" "Pup is cared for")
(build-grid-selector "pf-pupcare-who" "single" "Who cared for the pup?")
(mtext "text" "Type of care")
(horiz
(spinner (make-id "pf-pupcare-type") (list "Carry" "Lead" "Sniff" "Play" "Ano-genital sniff") fillwrap (lambda (v) '()))
(mbutton "pf-scan-done" "Done" (lambda () (list (replace-fragment (get-id "pf-bot") "pf-events")))))))
(lambda (fragment arg)
(activity-layout fragment))
(lambda (fragment arg)
(list
(populate-grid-selector
"pf-pupcare-who" "single"
(db-all-where db "sync" "mongoose"
(list "pack-id" (ktv-get (get-current 'pack '()) "unique_id")))
(lambda (individual)
(list)))
))
(lambda (fragment) '())
(lambda (fragment) '())
(lambda (fragment) '())
(lambda (fragment) '()))
(fragment
"ev-pupaggr"
(linear-layout
(make-id "") 'vertical fillwrap
(list
(mtitle "title" "Pup aggression")
(build-grid-selector "pf-pupaggr-partner" "single" "Aggressive mongoose")
(linear-layout
(make-id "") 'horizontal (layout 'fill-parent 100 '1 'left)
(list
(vert
(mtext "" "Fighting over")
(spinner (make-id "pf-pupaggr-over") (list "Food" "Escort" "Nothing" "Other") fillwrap (lambda (v) '())))
(vert
(mtext "" "Level")
(spinner (make-id "pf-pupaggr-level") (list "Block" "Snap" "Chase" "Push" "Fight") fillwrap (lambda (v) '())))
(mtoggle-button "pf-pupaggr-in" "Initiate?" (lambda (v) '()))
(mtoggle-button "pf-pupaggr-win" "Win?" (lambda (v) '()))))
(mbutton "pf-scan-done" "Done" (lambda () (list (replace-fragment (get-id "pf-bot") "pf-events"))))))
(lambda (fragment arg)
(activity-layout fragment))
(lambda (fragment arg)
(list
(populate-grid-selector
"pf-pupaggr-partner" "single"
(db-all-where db "sync" "mongoose"
(list "pack-id" (ktv-get (get-current 'pack '()) "unique_id")))
(lambda (individual)
(list)))
))
(lambda (fragment) '())
(lambda (fragment) '())
(lambda (fragment) '())
(lambda (fragment) '()))
......
......@@ -6,8 +6,8 @@
<gradient android:endColor="#77ffffff"
android:startColor="#77ffffff" android:angle="270" />
<stroke android:width="2dp" android:color="#000000" />
<padding android:left="10dp" android:top="8dp"
android:right="10dp" android:bottom="8dp" />
<padding android:left="5dp" android:top="5dp"
android:right="5dp" android:bottom="5dp" />
</shape>
</item>
......
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