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
citizen-science
symbai
Commits
3b6fd96a
Commit
3b6fd96a
authored
Mar 05, 2014
by
Dave Griffiths
Browse files
callbacks in scroll fixed
parent
90e8000b
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
9 additions
and
21 deletions
+9
-21
android/assets/lib.scm
android/assets/lib.scm
+1
-0
android/assets/starwisp.scm
android/assets/starwisp.scm
+8
-21
No files found.
android/assets/lib.scm
View file @
3b6fd96a
...
...
@@ -689,6 +689,7 @@
((
equal?
(
widget-type
w
)
"relative-layout"
)
(
relative-layout-children
w
))
((
equal?
(
widget-type
w
)
"frame-layout"
)
(
frame-layout-children
w
))
((
equal?
(
widget-type
w
)
"scroll-view"
)
(
scroll-view-children
w
))
((
equal?
(
widget-type
w
)
"scroll-view-vert"
)
(
scroll-view-children
w
))
((
equal?
(
widget-type
w
)
"draggable"
)
(
draggable-children
w
))
;; ((equal? (widget-type w) "grid-layout") (grid-layout-children w))
(
else
'
())))
...
...
android/assets/starwisp.scm
View file @
3b6fd96a
...
...
@@ -57,6 +57,7 @@
(
list
'user-id
(
list
"User ID"
"User ID"
"User ID"
))
(
list
'ok
(
list
"Ok"
"Ok"
"Ok"
))
(
list
'cancel
(
list
"Cancel"
"Cancel"
"Cancel"
))
(
list
'+
(
list
"+"
"+"
"+"
))
))
(
define
(
mtext-lookup
id
)
...
...
@@ -337,17 +338,17 @@
0
(
layout
'fill-parent
'fill-parent
1
'left
0
)
(
list
(
vert-fill
(
mtitle
""
'title
)
(
horiz
(
medit-text
"user-id"
'user-id
"normal"
(
lambda
()
(
list
)))
(
mbutton-scale
"sync"
'sync
(
lambda
()
(
list
))))
(
mbutton-scale
"sync
-button
"
'sync
(
lambda
()
(
list
))))
(
mspinner
"languages"
'languages
(
list
'english
'khasi
'hindi
)
(
lambda
(
c
)
(
list
)))
(
mbutton
"new-village"
'new-village
(
lambda
()
(
list
(
start-activity
"village"
0
""
))))
)))
(
horiz
(
mtext
""
'villages
)
(
mbutton
"new-village"
'+
(
lambda
()
(
list
(
start-activity
"village"
0
""
))))))))
(
relative
'
((
"parent-bottom"
))
...
...
@@ -360,9 +361,7 @@
(
lambda
(
activity
arg
)
(
activity-layout
activity
))
(
lambda
(
activity
arg
)
(
let
((
user-id
(
ktv-get
(
get-entity
db
"local"
1
)
"user-id"
)))
(
set-current!
'user-id
user-id
)
(
list
)))
(
list
))
(
lambda
(
activity
)
'
())
(
lambda
(
activity
)
'
())
(
lambda
(
activity
)
'
())
...
...
@@ -388,18 +387,6 @@
(
mtext
""
'database
)
(
mbutton
"main-sync"
'sync
(
lambda
()
(
list
(
start-activity
"sync"
0
""
))))
(
mspinner-other
"test"
'test
(
list
'one
'two
'three
)
(
lambda
(
c
)
(
list
)))
(
mbutton
"main-sync"
'sync
(
lambda
()
(
list
(
start-activity
"sync"
0
""
))))
(
mspinner-other
"test"
'test
(
list
'one
'two
'three
)
(
lambda
(
c
)
(
list
)))
(
mbutton
"main-sync"
'sync
(
lambda
()
(
list
(
start-activity
"sync"
0
""
))))
(
mspinner-other
"test"
'test
(
list
'one
'two
'three
)
(
lambda
(
c
)
(
list
)))
(
mbutton
"main-sync"
'sync
(
lambda
()
(
list
(
start-activity
"sync"
0
""
))))
(
mspinner-other
"test"
'test
(
list
'one
'two
'three
)
(
lambda
(
c
)
(
list
)))
(
mbutton
"main-sync"
'sync
(
lambda
()
(
list
(
start-activity
"sync"
0
""
))))
(
mspinner-other
"test"
'test
(
list
'one
'two
'three
)
(
lambda
(
c
)
(
list
)))
(
mbutton
"main-sync"
'sync
(
lambda
()
(
list
(
start-activity
"sync"
0
""
))))
(
mspinner-other
"test"
'test
(
list
'one
'two
'three
)
(
lambda
(
c
)
(
list
)))
(
mbutton
"main-sync"
'sync
(
lambda
()
(
list
(
start-activity
"sync"
0
""
))))
(
mspinner-other
"test"
'test
(
list
'one
'two
'three
)
(
lambda
(
c
)
(
list
)))
)))
(
relative
...
...
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