callbacks in scroll fixed

android/assets/lib.scm

@@ -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

@@ -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