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

Aggiunta modalita interattiva

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@4770 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1997-06-27 09:31:06 +00:00
parent 392b0393b5
commit ae0031d407
2 changed files with 46 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
ba/ba3400.cpp
View File

@ -66,12 +66,25 @@ public:
};
bool TTest_application::menu(MENU_TAG)
{
TMask m(_maskname);
KEY k = m.run();
if (k == K_QUIT) stop_run();
{
if (*_maskname)
{
TMask m(_maskname);
KEY k = m.run();
if (k == K_QUIT) stop_run();
}
else
{
TMask mr("ba3400a");
while (mr.run() == K_ENTER)
{
TMask m(mr.get(102));
KEY k = m.run();
// if (k == K_QUIT) stop_run();
}
}
return k != K_QUIT;
return FALSE;
}
///////////////////////////////////////////////////////////
@ -80,15 +93,15 @@ bool TTest_application::menu(MENU_TAG)
int ba3400(int argc, char* argv[])
{
TApplication::check_parameters(argc, argv);
if (argc < 3)
{
error_box("You should specify a mask");
return 1;
}
// if (argc < 3)
// {
// error_box("You should specify a mask");
// return 1;
// }
if (argc == 3)
if (argc <= 3)
{
TTest_application a(argv[2]);
TTest_application a(argc == 2 ? "" : argv[2]);
a.run(argc, argv, "Testmask");
}
else

21
ba/ba3400a.uml Executable file
View File

@ -0,0 +1,21 @@
#define F_NOME 102
PAGE "Richiesta" -1 -1 76 8
STRING F_NOME 50
BEGIN
PROMPT 3 3 "Nome maschera"
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK