expr.cpp Aggiunto metodo per avere l'ultimo token parsato

expr.h       Idem
maskfld.h    Corretta has_query_button()
msksheet.cpp Corretta gestione del taso K_ENTER
realtion.cpp Corretti commenti con errori di battitura


git-svn-id: svn://10.65.10.50/trunk@3424 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1996-08-21 15:29:02 +00:00
parent 620564b396
commit 9a5fc69736
6 changed files with 19 additions and 10 deletions

View File

@ -913,3 +913,8 @@ bool TExpression::compile(const char* expression, TTypeexp type)
if ((currsym = __gettoken()) == _invalid) return FALSE;
return __expression(currsym) == _endsym;
}
const char* TExpression::last_compiled_token() const
{
return _tok;
}

View File

@ -431,6 +431,7 @@ public:
{ _type = type; }
// @cmember Setta l'espressione e la compila (ritorna il risultato della compilazione)
bool set(const char* expression, TTypeexp type = _numexpr);
const char* last_compiled_token() const;
// @cmember Costruttore (assegna l'estressione e il suo tipo)
TExpression(const char* expression, TTypeexp type = _numexpr);

View File

@ -359,7 +359,7 @@ public:
{ _sheet = s; }
// @cmember Ritorna lo sheet che gestisce la maschera
TSheet_field* get_sheet()
TSheet_field* get_sheet() const
{ return _sheet; }
// @cmember Ritorna se la maschera e' contenuta in uno sheet (TRUE se contenuta)

View File

@ -946,7 +946,7 @@ public:
virtual bool has_check() const;
// @cmember Controlla se il campo ha una ricerca
virtual bool has_query_button() const
{ return _browse != NULL;}
{ return _browse != NULL || _flags.button; }
// @cmember Ritorna TRUE se il campo e' di tipo edit
virtual bool is_edit() const { return TRUE; }

View File

@ -1213,9 +1213,12 @@ bool TSpreadsheet::event_handler(XI_OBJ* itf, XI_EVENT *xiev)
break;
case K_ENTER:
case K_SHIFT+K_ENTER:
// if (xi_move_focus(get_interface()))
dispatch_e_char(parent(), k == K_ENTER ? K_F3 : K_F4);
refused = TRUE;
if (xi_move_focus(get_interface())) // Test di uscita dalla cella corrente
{
xi_set_focus(_obj); // Riporta il focus sullo sheet
dispatch_e_char(parent(), k == K_ENTER ? K_F3 : K_F4);
refused = TRUE;
}
break;
case K_ESC:
if (xi_move_focus(get_interface()))

View File

@ -2333,12 +2333,12 @@ bool TRelation_description::choose_file(
// @flag TRUE | E' stato selzionato il campo
// @flag FALSE | Non e' riuscito a selezionare il campo
bool TRelation_description::choose_field(
const char* fld) // @parm Nome del campo da selezionare (defualt "")
const char* fld) // @parm Nome del campo da selezionare (default "")
// @comm Occorre sche sia selezioanto un file, diversamente viene considerato
// selezionato il promo file
// @comm Occorre che sia selezionato un file, diversamente viene considerato
// selezionato il primo file
{
TArray_sheet sht(-1,-1,0,0,"Selezione campo",
TArray_sheet sht(-1,-1,76,20,"Selezione campo",
"Campo@10|Descrizione@50|Tipo@10|Dim.");
TString_array& fd = (TString_array&)_fields[_cur_file];
TToken_string tt(80);
@ -2368,7 +2368,7 @@ bool TRelation_description::choose_field(
// @doc INTERNAL
// @mfunc Costruisce un menu'
// @mfunc Costruisce un menu
//
// @rdesc Ritorna solamente FALSE
bool TRelation_description::build_menu(