Commit 2ed59d11 authored by Dave Griffiths's avatar Dave Griffiths
Browse files

group comp fixes

parent 8c25d7e6
......@@ -669,7 +669,7 @@
(define wrap (layout 'wrap-content 'wrap-content 1 'left 0))
(define fillwrap (layout 'fill-parent 'wrap-content 1 'left 0))
(define wrapfill (layout 'wrap-content 'fill-parent 1 'left 0))
(define fill (layout 'fill-parent 'fill-parent 1 'left 0))
(define fill (layout 'fill-parent 'fill-parent 1 'left 10))
(define (spacer size) (space (layout 'fill-parent size 1 'left 0)))
......
This diff is collapsed.
This diff is collapsed.
......@@ -110,6 +110,7 @@ public class starwisp extends StarwispActivity
m_Scheme.Load("eavdb/entity-csv.ss");
m_Scheme.Load("eavdb/eavdb.ss");
m_Scheme.Load("dbsync.scm");
m_Scheme.Load("mongoose.scm");
m_Builder = new StarwispBuilder(m_Scheme);
......
......@@ -95,10 +95,10 @@
(define (filter-entities db table type filter)
(let ((s (apply
db-select
(dbg (append
(append
(list db (build-query table filter (not (equal? type "*"))))
(build-args filter)
(if (equal? type "*") '() (list type)))))))
(if (equal? type "*") '() (list type))))))
(msg (db-status db))
(if (null? s)
'()
......
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