Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Dave Griffiths
mongoose-2000
Commits
1c18df16
Commit
1c18df16
authored
Jun 19, 2014
by
Dave Griffiths
Browse files
added babysitters
parent
d9621bd7
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
27 additions
and
3 deletions
+27
-3
android/assets/starwisp.scm
android/assets/starwisp.scm
+27
-3
No files found.
android/assets/starwisp.scm
View file @
1c18df16
...
...
@@ -1357,7 +1357,7 @@
(
linear-layout
(
make-id
""
)
'vertical
fill
gc-col
(
list
(
mt
ext
"title"
"Pup Associations"
)
(
mt
itle
"title"
"Pup Associations"
)
(
build-grid-selector
"gc-pup-choose"
"single"
"Choose pup"
)
(
horiz
(
vert
...
...
@@ -1436,7 +1436,7 @@
(
linear-layout
(
make-id
""
)
'vertical
fill
gc-col
(
list
(
mt
ext
""
"Oestrus"
)
(
mt
itle
""
"Oestrus"
)
(
build-grid-selector
"gc-oestrus-female"
"single"
"Choose female"
)
(
horiz
(
vert
...
...
@@ -1505,12 +1505,36 @@
(
make-id
""
)
'vertical
fill
gc-col
(
list
(
mtitle
""
"Babysitters"
)
(
mtitle
"title"
"Seen"
)
(
build-grid-selector
"gc-baby-seen"
"toggle"
"Choose"
)
(
mtitle
"title"
"By elimination"
)
(
build-grid-selector
"gc-baby-byelim"
"toggle"
"Choose"
)
(
next-button
"gc-pup-baby-"
"Ending, have you finished here?"
"gc-oestrus"
"gc-end"
(
lambda
()
'
()))))
(
lambda
(
fragment
arg
)
(
activity-layout
fragment
))
(
lambda
(
fragment
arg
)
(
list
))
(
append
(
list
(
populate-grid-selector
"gc-baby-seen"
"toggle"
(
db-mongooses-by-pack-adults
)
#f
(
lambda
(
individuals
)
(
entity-update-single-value!
(
ktv
"baby-seen"
"varchar"
(
assemble-array
individuals
)))
(
list
)))
)
(
update-grid-selector-enabled
"gc-baby-seen"
(
get-current
'gc-present
'
()))
(
update-grid-selector-checked
"gc-baby-seen"
"baby-seen"
)
(
list
(
populate-grid-selector
"gc-baby-byelim"
"toggle"
(
db-mongooses-by-pack-adults
)
#f
(
lambda
(
individuals
)
(
entity-update-single-value!
(
ktv
"baby-byelim"
"varchar"
(
assemble-array
individuals
)))
(
list
)))
)
(
update-grid-selector-enabled
"gc-baby-byelim"
(
get-current
'gc-present
'
()))
(
update-grid-selector-checked
"gc-baby-byelim"
"baby-byelim"
)))
(
lambda
(
fragment
)
'
())
(
lambda
(
fragment
)
'
())
(
lambda
(
fragment
)
'
())
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment