tab group foolishness

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@445 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Linas Vepstas 1998-01-26 10:11:00 +00:00
parent a98324f751
commit 48efe19639

View File

@ -448,8 +448,14 @@ regWindowLedger( Widget parent, Account **acclist, int ledger_type )
xmFormWidgetClass, pane,
XmNfractionBase, 6,
XmNresizable, False,
XmNtraversalOn, True,
XmNnavigationType, XmSTICKY_TAB_GROUP,
NULL );
/* traverse to the buttons, when leaving the table */
xaccNextTabGroup (regData->ledger->table, buttonform);
position = 0; /* puts the buttons in the right place */
/* The "Record" button */
@ -462,11 +468,14 @@ regWindowLedger( Widget parent, Account **acclist, int ledger_type )
XmNrightAttachment, XmATTACH_POSITION,
XmNrightPosition, position+1,
XmNshowAsDefault, True,
XmNnavigationType, XmTAB_GROUP,
NULL );
XtAddCallback( widget, XmNactivateCallback,
recordCB, (XtPointer)regData );
regData->record = widget;
/* The "Cancel" button */
position++;
@ -479,6 +488,7 @@ regWindowLedger( Widget parent, Account **acclist, int ledger_type )
XmNrightAttachment, XmATTACH_POSITION,
XmNrightPosition, position+1,
XmNshowAsDefault, True,
XmNnavigationType, XmTAB_GROUP,
NULL );
XtAddCallback( widget, XmNactivateCallback,
@ -495,7 +505,7 @@ regWindowLedger( Widget parent, Account **acclist, int ledger_type )
XmNrightAttachment, XmATTACH_POSITION,
XmNrightPosition, position+1,
XmNshowAsDefault, True,
XmNnavigationType, XmNONE, /* stop tabbing ! */
XmNnavigationType, XmTAB_GROUP,
NULL );
XtAddCallback( widget, XmNactivateCallback,