Corretto errore MI6009

git-svn-id: svn://10.65.10.50/trunk@3158 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1996-07-08 10:03:29 +00:00
parent eda4776655
commit 8937f8473a

View File

@ -610,7 +610,7 @@ bool TSheet_control::event_handler(XI_OBJ* itf, XI_EVENT *xiev)
break;
case XIE_BUTTON:
if (xiev->v.xi_obj->type == XIT_LIST)
_sheet->on_key(K_INS);
_sheet->on_key(K_CTRL+'N');
break;
case XIE_XVT_EVENT:
if (xiev->v.xvte.type == E_CHAR)
@ -705,7 +705,7 @@ TSheet::TSheet(short x, short y, short dx, short dy,
}
if (buttons & 0x1) add_button(DLG_LINK, "~Collega", K_CTRL+'C', BMP_LINK);
if (buttons & 0x2) add_button(DLG_NEWREC, "Nuovo", K_INS, BMP_NEWREC, BMP_NEWRECDN);
if (buttons & 0x2) add_button(DLG_NEWREC, "~Nuovo", K_INS, BMP_NEWREC, BMP_NEWRECDN);
if (buttons & 0x4) add_button(DLG_DELREC, "Elimina", K_DEL, BMP_DELREC, BMP_DELRECDN);
if (buttons & 0x8) add_button(DLG_QUIT, "Fine", K_ESC);
else add_button(DLG_CANCEL, "Annulla", K_ESC);
@ -791,7 +791,7 @@ void TSheet::start_run()
_parked = -1;
repos_buttons();
_sheet->update();
}
@ -833,9 +833,9 @@ bool TSheet::on_key(KEY key)
if (items() && id2pos(DLG_DELREC) >= 0)
stop_run(key);
break;
case K_INS:
case K_CTRL+'N':
if (id2pos(DLG_NEWREC) >= 0)
stop_run(key);
stop_run(K_INS);
break;
case K_CTRL+'C':
if (id2pos(DLG_LINK) >= 0)
@ -1155,10 +1155,6 @@ TBrowse_sheet::TBrowse_sheet(TCursor* cursor, const char* fields,
{
e->set_handler(browse_field_handler);
e->set(c.get());
/*
if (e->dlg() == f->dlg())
first_focus(f->dlg());
*/
}
}
}