set obj [editTable .book SQLITE3_support sqlite3 -dbArgs test4.db]
set db [$obj config db]

$db eval {
 CREATE TABLE book (
   id integer unique primary key,
   title text, --- {Title} {Title} {} {-width 40} {1 1} {-columnspan 2}
   authorid integer references author --- {Author} {Author} {author.first author.last} {} {2 1}
 );
 CREATE TABLE author (
   id integer unique primary key,
   first text, --- {First Name} {First} {} 
   last text  --- {Last Name} {Last} {} 
 );
}

$db eval "INSERT INTO author VALUES (1, 'Clif', 'Flynt')"
$db eval "INSERT INTO author VALUES (2, 'Mark', 'Twain')"
$db eval "INSERT INTO book VALUES (1,'Tcl/Tk: A Developer''s Guide', 1)"
$db eval "INSERT INTO book VALUES (2,'Tom Sawyer', 2)"
$db eval "INSERT INTO book VALUES (3,'Huckleberry Finn', 2)"

$obj makeGUI [$obj getSchema book]
$obj config -table book
$obj populateBySearch "title like '%Tcl%'"
bgrid .book