anchor.diff:        'select nid, val as page from node natural join kinds where kind=:k',
   		     ['Page']);
       pageMenu.key := 'nid';
  -
  +    vsplit := kvm.ymax - 1;
       tg := TDbTreeGrid.Create(dbc);
  -    with tg do begin x := 1; y := 2; h := 32; w := 18;datacursor := cur end;
  -
  +    with tg do begin x := 1; y := 2; h := vsplit-y; w := 18;datacursor := cur end;
       ed := TEditor.Create(self);
  -    ed.x := 20; ed.y := 2; ed.h := kvm.height-4; ed.w := kvm.width - 21;
  +    ed.x := 20; ed.y := 2; ed.w := kvm.width - 21;
  +    ed.h := vsplit-ed.y-1;  //  why is this different than tg?
       b4 := TB4VM.Create(self);
  -
  +    mb := ZInput.default(1, kvm.ymax - 1, kvm.xmax-2, kvm.xmax-2 );
       if ParamCount = 1 then
         if not ed.Load( ParamStr( 1 )) then
   	fail( utf8encode('unable to load file: ' +
  
positive.code:     dbc.RunSQL(sql, [olid, nid]);
      rsOutln.Open; tg.redraw; // refresh the data and display
    end;
  
  begin
  
negative.code:     if focus = ed then
        begin
  	focus := tg; keymap := km_tg; kvm.HideCursor;
        end
      else if focus = tg then
        begin
  	focus := mb; keymap := km_mb; kvm.ShowCursor;
        end
      else
        begin
  