root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Gestita meglio la chiamata di programmi Windows in cascata

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@110 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1994-08-31 12:20:38 +00:00
parent 11cbb99740
commit 5e097d8630
9 changed files with 1542 additions and 1530 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
include/applicat.cpp
View File

@ -169,8 +169,9 @@ long TApplication::task_eh(WINDOW win, EVENT *ep)
void TApplication::about() const
{
#include <prassi.ver>
const TFilename n(__argv[0]);
message_box("PRASSI Versione %g\nProgramma %s\nLibreria del %s",
VERSION, (const char*)name(), __DATE__);
VERSION, (const char*)n.name(), __DATE__);
}

2
include/applicat.h
View File

@ -62,7 +62,7 @@ public:
void disable_menu_item(MENU_TAG item) { enable_menu_item(item, FALSE); }
void dispatch_e_menu(MENU_TAG item);
const char* name() const { return _name; }
const TString& name() const { return _name; }
const char** argv() const { return __argv; }
const char* argv(int i) const { return __argv[i]; }
int argc() const { return __argc; }

20
include/form.cpp
View File

@ -736,9 +736,17 @@ bool TForm_list::update()
// TPrint_section
///////////////////////////////////////////////////////////
void TPrint_section::init(const char* name, TForm* f)
{
_name = name;
_form = f;
}
TPrint_section::TPrint_section(const char* name, TForm* f)
: _name(name), _heigth(0), _form(f)
{}
: _heigth(0)
{
init(name, f);
}
TPrintrow& TPrint_section::row(int num)
{
@ -1027,9 +1035,7 @@ bool TForm::edit(int mode, int section)
TForm::TForm(const char* name)
: _name(name),
_head("HEADER", this), _body("BODY", this), _foot("FOOTER", this)
TForm::TForm(const char* name) : _name(name)
{
_name.ext("frm");
TScanner scanner(_name);
@ -1044,6 +1050,10 @@ TForm::TForm(const char* name)
ok = parse_join(scanner);
scanner.push();
_head.init("HEADER", this);
_body.init("BODY", this);
_foot.init("FOOTER", this);
while (scanner.popkey() == "PA")
{
scanner.pop();

5
include/form.h
View File

@ -19,7 +19,7 @@ class TForm_item;
class TPrint_section : public TArray
{
TString _name;
TString16 _name;
int _heigth;
TForm* _form;
@ -41,7 +41,8 @@ public:
bool edit(int mode);
TPrint_section(const char* name, TForm* f);
TPrint_section(const char* name = "", TForm* form = NULL);
void init(const char* name, TForm* form);
};

5
include/maskfld.cpp
View File

@ -1,4 +1,4 @@
// $Id: maskfld.cpp,v 1.9 1994-08-30 14:40:25 guy Exp $
// $Id: maskfld.cpp,v 1.10 1994-08-31 12:20:32 guy Exp $
#include <xvt.h>
#include <applicat.h>
@ -597,7 +597,7 @@ bool TMask_field::do_message(int num)
if (value != prev)
{
f.set(value);
if (f.showed())
if (f.showed() || f.ghost())
f.on_hit();
}
}
@ -1240,6 +1240,7 @@ bool TBrowse::do_insert()
{
app = _insert.mid(1);
#if XVT_OS == XVT_OS_WIN
if (strnicmp(app, MainApp()->name(), 3) == 0)
app.insert("a", 3);
#endif
}

31
include/msksheet.cpp
View File

@ -28,7 +28,7 @@ class TSpreadsheet : public TWindow
int _columns;
bool _dirty;
XI_OBJ *_list;
XI_OBJ *_list, *_itf;
SPREADSHEET_NOTIFY _notify;
@ -217,8 +217,8 @@ TSpreadsheet::TSpreadsheet(short x, short y, short dx, short dy,
xi_create(NULL, itfdef);
xi_tree_free(itfdef);
XI_OBJ* itf = xi_get_itf(win);
_list = xi_get_obj(itf, LIST_CID);
_itf = xi_get_itf(win);
_list = xi_get_obj(_itf, LIST_CID);
}
@ -337,8 +337,6 @@ void TSpreadsheet::update(int row)
{
xi_cell_request(_list); // Force updatde
xi_scroll(_list, XI_SCROLL_FIRST);
XI_OBJ* itf = xi_get_itf(win()); // Remove focus
xi_move_focus(itf);
set_front_window(win()); // Seems necessary
}
else
@ -468,6 +466,7 @@ if (xiev->v.xi_obj->type == XIT_LIST)
}
break;
case XIE_ON_ROW:
if (_check_enabled)
{
const int rec = row2rec(xiev->v.xi_obj->v.row);
if (rec < items())
@ -505,6 +504,7 @@ break;
}
break;
case XIE_ON_CELL:
if (_check_enabled)
{
TMask_field* f = cell2field(xiev->v.xi_obj);
const int col = (f->dlg() - FIRST_FIELD) % 100;
@ -512,22 +512,15 @@ break;
{
_edit_field = f;
_cur_col = xiev->v.xi_obj->v.cell.column;
_check_enabled = FALSE;
xi_set_focus(_itf);
xi_set_color(xiev->v.xi_obj, XIC_BACK, FOCUS_BACK_COLOR);
xi_set_focus(xiev->v.xi_obj);
_check_enabled = TRUE;
}
else
{
xiev->refused = TRUE; // Refuse focus on disabled cells
/*
const int r = xiev->v.xi_obj->v.cell.row;
int c = xiev->v.xi_obj->v.cell.column;
c += cur_col > col ? -1 : +1;
if (c < 1) c = _columns-1; else
if (c >= _columns) c = 1;
XI_OBJ cell;
XI_MAKE_CELL(&cell, _list, r, c);
xi_move_focus(&cell);
*/
}
}
break;
@ -581,8 +574,7 @@ break;
case E_FOCUS:
if (ep->v.active == FALSE)
{
XI_OBJ* itf = xi_get_itf(win());
const bool ok = (bool)xi_move_focus(itf);
const bool ok = (bool)xi_move_focus(_itf);
if (!ok)
{
set_dirty(2);
@ -621,8 +613,7 @@ break;
case K_PREV:
case K_NEXT:
{
XI_OBJ* itf = xi_get_itf(win());
const bool ok = (bool)xi_move_focus(itf);
const bool ok = (bool)xi_move_focus(_itf);
if (ok) dispatch_e_char(parent(), k);
}
break;

7
include/strings.cpp
View File

@ -713,6 +713,13 @@ const char* TToken_string::get(int n)
}
// Certified 99%
char TToken_string::get_char(int n)
{
const char* num = get(n);
return num ? *num : '\0';
}
// Certified 99%
int TToken_string::get_int(int n)
{

1
include/strings.h
View File

@ -237,6 +237,7 @@ public:
void destroy(int pos); // Toglie il token pos
const char* get(); // Ritorna il prossimo token
const char* get(int n); // Ritorna un token (-1 = prossimo; -2 = ultimo; n = ennesimo)
char get_char(int n = -1); // Ritorna un carattere
int get_int(int n = -1); // Ritorna un intero
long get_long(int n = -1); // Ritorna un intero esteso
int get_pos(const char* s); // Ritorna la posizione dell'item s

2
include/utility.cpp
View File

@ -75,7 +75,7 @@ char* format(const char* fmt, ...)
const char* cmd2name(const char* argv0, const char* argv1)
{
TFilename app(argv0); app.ext(""); app = app.name();
if (argv1) app << ' ' << argv1;
if (argv1 != NULL) app << ' ' << argv1;
app.lower();
const int par = app.find(" -");