From 5054e4babc52d0dd2e8093bdaca2526b04f74265 Mon Sep 17 00:00:00 2001 From: Linas Vepstas Date: Sat, 12 Sep 1998 06:02:51 +0000 Subject: [PATCH] tabbing fixes git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@1146 57a11ea4-9604-0410-9ed3-97b8803252fd --- src/register/splitreg.c | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) diff --git a/src/register/splitreg.c b/src/register/splitreg.c index 4c9806024c..6113c1e202 100644 --- a/src/register/splitreg.c +++ b/src/register/splitreg.c @@ -414,7 +414,7 @@ configLayout (SplitRegister *reg) (reg->recnCell != reg->split_cursor->cells[i][j]) && \ (XACC_CELL_ALLOW_INPUT & reg->split_cursor->cells[i][j]->input_output)) \ { \ - NEXT_RIGHT (i, j); \ + NEXT_RIGHT (i+1, j); \ break; \ } \ } \ @@ -442,7 +442,7 @@ configTraverse (SplitRegister *reg) first_r = prev_r; first_c = prev_c; TRAVERSE_NON_NULL_CELLS (); /* for double-line, hop back one row */ - NEXT_RIGHT (-1-first_r + curs->numRows, -1-first_c); + NEXT_RIGHT (-1-first_r, -1-first_c); curs = reg->trans_cursor; FIRST_NON_NULL (0,0); @@ -616,10 +616,6 @@ xaccInitSplitRegister (SplitRegister *reg, int type) /* config the layout of the cells in the cursors */ configLayout (reg); - /* -------------------------------- */ - /* define how traversal works */ - configTraverse (reg); - /* --------------------------- */ /* do some misc cell config */ configCursors (reg); @@ -667,6 +663,13 @@ xaccInitSplitRegister (SplitRegister *reg, int type) xaccSetPriceCellFormat (reg->shrsCell, "%.3f"); xaccSetPriceCellFormat (reg->priceCell, "%.3f"); + /* -------------------------------- */ + /* define how traversal works. This must be done *after* the balance, etc. + * cells have been marked read-only, since otherwise config will try + * to pick them up. + */ + configTraverse (reg); + /* -------------------------------- */ /* add menu items for the action cell */