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

Uso delle mitica TSkelon_app

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@5446 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
augusto 1997-10-24 14:40:00 +00:00
parent 4d9444eccd
commit fae346b549
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
mg/mg4100.cpp
View File

@ -1,18 +1,13 @@
#include <applicat.h>
#include <config.h>
#include <mask.h>
#include <printer.h>
#include <relation.h>
#include <tabutil.h>
#include <urldefid.h>
#include <utility.h>
#include <form.h>
#include <printapp.h>
#include "mglib.h"
#include "mg4100.h"
class TStampa_listamov : public TApplication
class TStampa_listamov : public TSkeleton_application
{
TArray _files;
TMask * _mask;
@ -25,8 +20,10 @@ class TStampa_listamov : public TApplication
protected:
virtual bool create();
virtual bool destroy();
virtual void main_loop();
};
bool TStampa_listamov::create()
{
_files.add(new TLocalisamfile(LF_MOVMAG));
@ -34,7 +31,12 @@ bool TStampa_listamov::create()
_files.add(new TLocalisamfile(LF_ANAMAG));
_files.add(new TLocalisamfile(LF_UMART));
_files.add(new TLocalisamfile(LF_TAB));
TSkeleton_application::create();
return TRUE;
}
void TStampa_listamov::main_loop()
{
TRectype darec(LF_RMOVMAG),arec(LF_RMOVMAG);
_mask = new TMask("mg4100");
while (_mask->run() == K_ENTER) {
@ -92,11 +94,11 @@ bool TStampa_listamov::create()
_form->print();
delete _form;
} // while true
return FALSE;
}
bool TStampa_listamov::destroy()
{
delete _mask;
TSkeleton_application::destroy();
return TRUE;
}