Integration of OCCT 6.5.0 from SVN
[occt.git] / samples / mfc / standard / 06_Ocaf / src / OcafDoc.cpp
1 // OcafDoc.cpp : implementation of the COcafDoc class
2 //
3
4 #include "StdAfx.h"
5
6 #include "OcafDoc.h"
7
8 #include "OcafApp.h"
9 #include <ImportExport/ImportExport.h>
10 #include "AISDialogs.h"
11
12 // Dialog boxes classes
13 #include <ResultDialog.h>
14 #include <NewBoxDlg.h>
15 #include <NewCylDlg.h>
16
17 #include <TDF_Tool.hxx>
18
19 #include <DebugBrowser.hxx>
20
21 #ifdef _DEBUG
22 //#define new DEBUG_NEW  // by cascade
23 #undef THIS_FILE
24 static char THIS_FILE[] = __FILE__;
25 #endif
26
27 /////////////////////////////////////////////////////////////////////////////
28 // COcafDoc
29
30 IMPLEMENT_DYNCREATE(COcafDoc, CDocument)
31
32 BEGIN_MESSAGE_MAP(COcafDoc, OCC_3dBaseDoc)
33         //{{AFX_MSG_MAP(COcafDoc)
34         ON_COMMAND(ID_CREATEBOX, OnCreatebox)
35         ON_COMMAND(ID_EDIT_REDO, OnEditRedo)
36         ON_COMMAND(ID_EDIT_UNDO, OnEditUndo)
37         ON_UPDATE_COMMAND_UI(ID_EDIT_UNDO, OnUpdateEditUndo)
38         ON_COMMAND(ID_MODIFY, OnModify)
39         ON_UPDATE_COMMAND_UI(ID_MODIFY, OnUpdateModify)
40         ON_UPDATE_COMMAND_UI(ID_EDIT_REDO, OnUpdateEditRedo)
41         ON_COMMAND(ID_CUT, OnCut)
42         ON_COMMAND(ID_OBJECT_DELETE, OnObjectDelete)
43         ON_UPDATE_COMMAND_UI(ID_OBJECT_DELETE, OnUpdateObjectDelete)
44         ON_COMMAND(ID_FILE_SAVE, OnFileSave)
45         ON_COMMAND(ID_FILE_SAVE_AS, OnFileSaveAs)
46         ON_COMMAND(ID_CREATECYL, OnCreatecyl)
47 //      ON_COMMAND(ID_DFBR, OnDfbr)
48         //}}AFX_MSG_MAP
49
50 END_MESSAGE_MAP()
51
52 /////////////////////////////////////////////////////////////////////////////
53 // COcafDoc construction/destruction
54
55 COcafDoc::COcafDoc()
56 {
57 }
58
59 COcafDoc::~COcafDoc()
60 {
61 }
62
63  BOOL COcafDoc::OnNewDocument()
64  {
65         if (!CDocument::OnNewDocument())
66                 return FALSE;
67  
68         // Get an Handle on the current TOcaf_Application (which is initialized in the "Ocaf.h" file)
69         Handle(TOcaf_Application) OcafApp = ((COcafApp*)AfxGetApp())->GetApp();
70  
71         // Create a new Ocaf document
72         OcafApp->NewDocument("MDTV-Standard",myOcafDoc);
73         TPrsStd_AISViewer::New(myOcafDoc->Main(),myViewer);
74  
75         Handle(AIS_InteractiveContext) CTX;
76         TPrsStd_AISViewer::Find(myOcafDoc->Main(), CTX);
77         CTX->SetDisplayMode(AIS_Shaded);
78         myAISContext=CTX;
79  
80         // Set the maximum number of available "undo" actions
81         myOcafDoc->SetUndoLimit(10);
82  
83  
84                 TCollection_AsciiString Message ("\
85  //  Creation of a new document \n\
86   \n\
87  Handle(TOcaf_Application) OcafApp= ((COcafApp*)AfxGetApp())->GetApp(); \n\
88   \n\
89  //  Creating the new document \n\
90  OcafApp->NewDocument(\"Ocaf-Sample\", myOcafDoc); \n\
91   \n\
92  //  Creation of a new TPrsStd_AISViewer connected to the current V3d_Viewer\n\
93  TPrsStd_AISViewer::New(myOcafDoc->Main(),myViewer); \n\
94   \n\
95  //  Setting the number of memorized undos \n\
96  myOcafDoc->SetUndoLimit(10); \n\
97  \n");
98  
99         myCResultDialog.SetTitle(CString("New document"));
100         CString text(Message.ToCString());
101         myCResultDialog.SetText(text);
102  
103         PathName="";
104  
105         return TRUE;
106  }
107
108 void COcafDoc::ActivateFrame(CRuntimeClass* pViewClass,int nCmdShow)
109 {
110   POSITION position = GetFirstViewPosition();
111   while (position != (POSITION)NULL)
112   {
113     CView* pCurrentView = (CView*)GetNextView(position);
114      if(pCurrentView->IsKindOf(pViewClass) )
115     {
116         ASSERT_VALID(pCurrentView);
117         CFrameWnd* pParentFrm = pCurrentView->GetParentFrame();
118             ASSERT(pParentFrm != (CFrameWnd *)NULL);
119         // simply make the frame window visible
120             pParentFrm->ActivateFrame(nCmdShow);
121     }
122   }
123
124 }
125
126 /////////////////////////////////////////////////////////////////////////////
127 // COcafDoc diagnostics
128
129 #ifdef _DEBUG
130 void COcafDoc::AssertValid() const
131 {
132         CDocument::AssertValid();
133 }
134
135 void COcafDoc::Dump(CDumpContext& dc) const
136 {
137         CDocument::Dump(dc);
138 }
139 #endif //_DEBUG
140
141 /////////////////////////////////////////////////////////////////////////////
142 // COcafDoc commands
143
144 void COcafDoc::OnEditRedo() 
145 {
146         myOcafDoc->Redo();
147         myOcafDoc->CommitCommand();
148         myAISContext->UpdateCurrentViewer();
149
150         UpdateAllViews(NULL);
151
152         TCollection_AsciiString Message = TCollection_AsciiString("\
153 //  Redo last undoes operation \n\
154  \n\
155 myOcafDoc->Redo(); \n\
156  \n\
157 myOcafDoc->CommitCommand(); \n\
158  \n\
159 \n");
160
161         myCResultDialog.SetTitle(CString("Redo"));
162         CString text(Message.ToCString());
163         myCResultDialog.SetText(text);
164 }
165
166 void COcafDoc::OnEditUndo() 
167 {
168         myOcafDoc->Undo();
169         myOcafDoc->CommitCommand();
170         myAISContext->UpdateCurrentViewer();
171         
172         UpdateAllViews(NULL);
173
174         TCollection_AsciiString Message = TCollection_AsciiString("\
175 //  Undo last operation \n\
176  \n\
177 myOcafDoc->Undo(); \n\
178  \n\
179 myOcafDoc->CommitCommand(); \n\
180  \n\
181 \n");
182
183         myCResultDialog.SetTitle(CString("Undo"));
184         CString text(Message.ToCString());
185         myCResultDialog.SetText(text);
186 }
187
188 void COcafDoc::OnUpdateEditRedo(CCmdUI* pCmdUI) 
189 {
190         // Disable the "redo" button if there is no availlables redo actions
191         if (myOcafDoc->GetAvailableRedos()>0) pCmdUI->Enable(Standard_True);
192         else pCmdUI->Enable(Standard_False);    
193 }
194
195 void COcafDoc::OnUpdateEditUndo(CCmdUI* pCmdUI) 
196 {
197         // Disable the "undo" button if there is no availlables undo actions
198         if (myOcafDoc->GetAvailableUndos()>0) pCmdUI->Enable(Standard_True);
199         else pCmdUI->Enable(Standard_False);
200 }
201
202 void COcafDoc::OnCreatebox() 
203 {
204         EraseAll();
205         CNewBoxDlg Dlg;
206         if(Dlg.DoModal()!=IDOK) return;
207
208         Handle(TDocStd_Document) D = GetOcafDoc();
209
210         // Open a new command (for undo)
211         D->NewCommand();
212         TOcaf_Commands TSC(D->Main());
213
214         TCollection_AsciiString Name((Standard_CString)(LPCTSTR)Dlg.m_Name);
215
216         // Create a new box using the CNewBoxDlg Dialog parameters as attributes
217         TDF_Label L=TSC.CreateBox(Dlg.m_x, Dlg.m_y, Dlg.m_z, Dlg.m_w, Dlg.m_l, Dlg.m_h, TCollection_ExtendedString(Name));
218
219         // Get the TPrsStd_AISPresentation of the new box TNaming_NamedShape
220         Handle(TPrsStd_AISPresentation) prs= TPrsStd_AISPresentation::Set(L, TNaming_NamedShape::GetID()); 
221         // Display it
222         prs->Display(1);
223         Fit3DViews();
224         // Attach an integer attribute to L to memorize it's displayed
225         TDataStd_Integer::Set(L, 1);
226         myAISContext->UpdateCurrentViewer();
227
228         // Close the command (for undo)
229         D->CommitCommand();
230
231
232                 TCollection_AsciiString Message ("\
233 //  Creation of a new box using Ocaf attributes \n\
234  \n\
235 Handle(TDocStd_Document) D = GetOcafDoc(); \n\
236  \n\
237 //  Openning a new command (for undo/redo) \n\
238 D->NewCommand(); \n\
239  \n\
240 TOcaf_Commands TSC(D->Main()); \n\
241 // Look at the TOcaf_Commands::CreateBox() function \n\
242 TDF_Label L=TSC.CreateBox(m_x, m_y, m_z, m_w, m_l, m_h, Name); \n\
243  \n\
244 // Set the TPrsStd_AISPresentation of the box \n\
245 Handle(TPrsStd_AISPresentation) prs; \n\
246 prs= TPrsStd_AISPresentation::Set(L, TNaming_NamedShape::GetID()); \n\
247  \n\
248 //  Displaying the box \n\
249 prs->Display(1); \n\
250  \n\
251 //  Commint the command (for undo/redo) \n\
252 D->CommitCommand(); \n\
253 \n");
254
255         myCResultDialog.SetTitle(CString("Create box"));
256         CString text(Message.ToCString());
257         myCResultDialog.SetText(text);
258 }
259
260 void COcafDoc::OnCreatecyl() 
261 {
262         EraseAll();
263         CNewCylDlg Dlg;
264         if(Dlg.DoModal()!=IDOK) return;
265
266         Handle(TDocStd_Document) D = GetOcafDoc();
267
268         // Open a new command (for undo)
269         D->NewCommand();
270         TOcaf_Commands TSC(D->Main());
271
272         TCollection_AsciiString Name((Standard_CString)(LPCTSTR)Dlg.m_Name);
273
274         // Create a new box using the CNewCylDlg Dialog parameters as attributes
275         TDF_Label L=TSC.CreateCyl(Dlg.m_x, Dlg.m_y, Dlg.m_z, Dlg.m_r, Dlg.m_h, TCollection_ExtendedString(Name));
276
277         // Get the TPrsStd_AISPresentation of the new cylinder TNaming_NamedShape
278         Handle(TPrsStd_AISPresentation) prs= TPrsStd_AISPresentation::Set(L, TNaming_NamedShape::GetID()); 
279         // Display it
280         prs->Display(1);
281         Fit3DViews();
282         // Attach an integer attribute to L to memorize it's displayed
283         TDataStd_Integer::Set(L, 1);
284         myAISContext->UpdateCurrentViewer();
285
286         // Close the command (for undo)
287         D->CommitCommand();
288
289
290                 TCollection_AsciiString Message ("\
291 //  Creation of a new cylinder using Ocaf attributes \n\
292  \n\
293 Handle(TDocStd_Document) D = GetOcafDoc(); \n\
294  \n\
295 //  Openning a new command (for undo/redo) \n\
296 D->NewCommand(); \n\
297  \n\
298 TOcaf_Commands TSC(D->Main()); \n\
299 // Look at the TOcaf_Commands::CreateCyl() function \n\
300 TDF_Label L=TSC.CreateCyl(m_x, m_y, m_z, m_r, m_h, Name); \n\
301  \n\
302 // Set the TPrsStd_AISPresentation of the cylinder \n\
303 Handle(TPrsStd_AISPresentation) prs; \n\
304 prs= TPrsStd_AISPresentation::Set(L, TNaming_NamedShape::GetID()); \n\
305  \n\
306 //  Displaying the cylinder \n\
307 prs->Display(1); \n\
308  \n\
309 //  Commint the command (for undo/redo) \n\
310 D->CommitCommand(); \n\
311 \n");
312
313         myCResultDialog.SetTitle(CString("Create cylinder"));
314         CString text(Message.ToCString());
315         myCResultDialog.SetText(text);
316 }
317
318 void COcafDoc::OnModify() 
319 {
320         // Get the selected interactive object
321         myAISContext->InitCurrent();
322         Handle(AIS_InteractiveObject) curAISObject = myAISContext->Current();
323
324
325         // Get the main label of the selected object
326         Handle(TPrsStd_AISPresentation) ObjectPrs = 
327                 Handle(TPrsStd_AISPresentation)::DownCast(curAISObject->GetOwner());
328         TDF_Label LabObject = ObjectPrs->Label();
329
330         // Get the TFunction_Function attribute of the selected object
331         Handle(TFunction_Function) TFF; 
332         if ( !LabObject.FindAttribute(TFunction_Function::GetID(),TFF) )
333         {
334                 MessageBox(0,"Object cannot be modify.", "Modification", MB_ICONEXCLAMATION);
335                 return;
336         }
337         // Get the Standard_GUID of the TFunction_FunctionDriver of the selected object TFunction_Function attribute
338         Standard_GUID myDriverID=TFF->GetDriverGUID();
339
340         Handle(TDocStd_Document) D = GetOcafDoc();
341         TFunction_Logbook log;
342
343         TCollection_AsciiString Message("\
344 //  Modification and recomputation of the selected object \n\
345  \n\
346 Handle(TDocStd_Document) D = GetOcafDoc(); \n\
347  \n\
348 //  Getting the TPrsStd_AISPresentation of the selected object \n\
349 Handle(TPrsStd_AISPresentation) ObjectPrs =  \n\
350         Handle(TPrsStd_AISPresentation)::DownCast(curAISObject->GetOwner()); \n\
351  \n\
352 //  Getting the Label of the selected object using the TPrsStd_AISPresentation \n\
353 TDF_Label LabObject = ObjectPrs->Label(); \n\
354  \n\
355 //  Getting the TFunction_FunctionDriver ID attached to this label \n\
356 Handle(TFunction_Function) TFF; \n\
357 \n");
358         TCollection_AsciiString Suite;
359
360         // Case of a box created with the box function driver
361         if(myDriverID==TOcafFunction_BoxDriver::GetID())
362         {
363                 CNewBoxDlg Dlg;
364                 Standard_Real x, y, z, w, l, h;
365
366                 // Get the attributes values of the current box
367                 Handle(TDataStd_Real) curReal;
368                 LabObject.FindChild(1).FindAttribute(TDataStd_Real::GetID(),curReal);
369                 w=curReal->Get();
370                 LabObject.FindChild(2).FindAttribute(TDataStd_Real::GetID(),curReal);
371                 l=curReal->Get();
372                 LabObject.FindChild(3).FindAttribute(TDataStd_Real::GetID(),curReal);
373                 h=curReal->Get();
374                 LabObject.FindChild(4).FindAttribute(TDataStd_Real::GetID(),curReal);
375                 x=curReal->Get();
376                 LabObject.FindChild(5).FindAttribute(TDataStd_Real::GetID(),curReal);
377                 y=curReal->Get();
378                 LabObject.FindChild(6).FindAttribute(TDataStd_Real::GetID(),curReal);
379                 z=curReal->Get();
380                 Handle(TDataStd_Name) stdName;
381                 LabObject.FindAttribute(TDataStd_Name::GetID(),stdName);
382
383                 // Initialize the dialog box with the values of the current box
384                 Dlg.InitFields(x, y, z, w, l, h, stdName->Get());
385
386                 if(Dlg.DoModal()!=IDOK) return;
387
388                 // Open a new command (for undo)
389                 D->NewCommand();
390
391                 TCollection_AsciiString Name((Standard_CString)(LPCTSTR)Dlg.m_Name);
392
393                 // Modify the box
394                 TOcaf_Commands TSC(LabObject);
395                 TSC.ModifyBox(Dlg.m_x, Dlg.m_y, Dlg.m_z, Dlg.m_w, Dlg.m_l, Dlg.m_h, TCollection_ExtendedString(Name), log);
396
397                 // Get the presentation of the box, display it and set it selected
398                 Handle(TPrsStd_AISPresentation) prs= TPrsStd_AISPresentation::Set(LabObject, TNaming_NamedShape::GetID()); 
399                 TDataStd_Integer::Set(LabObject, 1);
400                 prs->Display(1);
401                 myAISContext->UpdateCurrentViewer();
402                 // Close the command (for undo)
403                 D->CommitCommand();
404
405                 Message+=("\
406  \n\
407 //  In this case the TFunction_FunctionDriver ID is a BoxDriver \n\
408 if(myDriverID==TOcafFunction_BoxDriver::GetID()){ \n\
409  \n\
410 //  Getting values of box attributes \n\
411 Handle(TDataStd_Real) curReal; \n\
412 LabObject.FindChild(1).FindAttribute(TDataStd_Real::GetID(),curReal); \n\
413 w=curReal->Get(); \n\
414 LabObject.FindChild(2).FindAttribute(TDataStd_Real::GetID(),curReal); \n\
415 l=curReal->Get(); \n\
416 LabObject.FindChild(3).FindAttribute(TDataStd_Real::GetID(),curReal); \n\
417 h=curReal->Get(); \n\
418 LabObject.FindChild(4).FindAttribute(TDataStd_Real::GetID(),curReal); \n\
419 x=curReal->Get(); \n\
420 LabObject.FindChild(5).FindAttribute(TDataStd_Real::GetID(),curReal); \n\
421 y=curReal->Get(); \n\
422 LabObject.FindChild(6).FindAttribute(TDataStd_Real::GetID(),curReal); \n\
423 z=curReal->Get(); \n\
424 Handle(TDataStd_Name) stdName; \n\
425 LabObject.FindAttribute(TDataStd_Name::GetID(),stdName); \n\
426  \n\
427 //  Openning a new command \n\
428 D->NewCommand(); \n\
429  \n\
430 TOcaf_Commands TSC(LabObject); \n\
431 // Look at the TOcaf_Commands::ModifyBox() function \n\
432 TSC.ModifyBox(m_x, m_y, m_z, m_w, m_l, m_h, Name); \n\
433  \n\
434 // Set the TPrsStd_AISPresentation of the box \n\
435 Handle(TPrsStd_AISPresentation) prs; \n\
436 prs= TPrsStd_AISPresentation::Set(LabObject, TNaming_NamedShape::GetID()); \n\
437  \n\
438 // Display the box \n\
439 prs->Display(1); \n\
440  \n\
441 // Commit the command \n\
442 D->CommitCommand(); \n\
443 } \n\
444 \n");
445                 myCResultDialog.SetTitle(CString("Modify Box"));
446         }
447         // Case of a cylinder created with the box function driver
448         else if(myDriverID==TOcafFunction_CylDriver::GetID())
449         {
450                 CNewCylDlg Dlg;
451                 Standard_Real x, y, z, r, h;
452
453                 // Get the attributes values of the current box
454                 Handle(TDataStd_Real) curReal;
455                 LabObject.FindChild(1).FindAttribute(TDataStd_Real::GetID(),curReal);
456                 r=curReal->Get();
457                 LabObject.FindChild(2).FindAttribute(TDataStd_Real::GetID(),curReal);
458                 h=curReal->Get();
459                 LabObject.FindChild(3).FindAttribute(TDataStd_Real::GetID(),curReal);
460                 x=curReal->Get();
461                 LabObject.FindChild(4).FindAttribute(TDataStd_Real::GetID(),curReal);
462                 y=curReal->Get();
463                 LabObject.FindChild(5).FindAttribute(TDataStd_Real::GetID(),curReal);
464                 z=curReal->Get();
465                 Handle(TDataStd_Name) stdName;
466                 LabObject.FindAttribute(TDataStd_Name::GetID(),stdName);
467
468                 // Initialize the dialog cylinder with the values of the current cylinder
469                 Dlg.InitFields(x, y, z, r, h, stdName->Get());
470
471                 if(Dlg.DoModal()!=IDOK) return;
472
473                 // Open a new command (for undo)
474                 D->NewCommand();
475
476                 TCollection_AsciiString Name((Standard_CString)(LPCTSTR)Dlg.m_Name);
477
478                 // Modify the cylinder
479                 TOcaf_Commands TSC(LabObject);
480                 TSC.ModifyCyl(Dlg.m_x, Dlg.m_y, Dlg.m_z, Dlg.m_r, Dlg.m_h, TCollection_ExtendedString(Name), log);
481
482                 // Get the presentation of the cylinder, display it and set it selected
483                 Handle(TPrsStd_AISPresentation) prs= TPrsStd_AISPresentation::Set(LabObject, TNaming_NamedShape::GetID()); 
484                 TDataStd_Integer::Set(LabObject, 1);
485                 prs->Display(1);
486                 myAISContext->UpdateCurrentViewer();
487                 // Close the command (for undo)
488                 D->CommitCommand();
489
490                 Message+=("\
491  \n\
492 //  In this case the TFunction_FunctionDriver ID is a CylDriver \n\
493 if(myDriverID==TOcafFunction_CylDriver::GetID()){ \n\
494  \n\
495 //  Getting values of box cylinder \n\
496 Handle(TDataStd_Real) curReal; \n\
497 LabObject.FindChild(1).FindAttribute(TDataStd_Real::GetID(),curReal); \n\
498 r=curReal->Get(); \n\
499 LabObject.FindChild(2).FindAttribute(TDataStd_Real::GetID(),curReal); \n\
500 h=curReal->Get(); \n\
501 LabObject.FindChild(3).FindAttribute(TDataStd_Real::GetID(),curReal); \n\
502 x=curReal->Get(); \n\
503 LabObject.FindChild(4).FindAttribute(TDataStd_Real::GetID(),curReal); \n\
504 y=curReal->Get(); \n\
505 LabObject.FindChild(5).FindAttribute(TDataStd_Real::GetID(),curReal); \n\
506 z=curReal->Get(); \n\
507 Handle(TDataStd_Name) stdName; \n\
508 LabObject.FindAttribute(TDataStd_Name::GetID(),stdName); \n\
509  \n\
510 //  Openning a new command \n\
511 D->NewCommand(); \n\
512  \n\
513 TOcaf_Commands TSC(LabObject); \n\
514 // Look at the TOcaf_Commands::ModifyCyl() function \n\
515 TSC.ModifyCyl(m_x, m_y, m_z, m_r, m_h, Name); \n\
516  \n\
517 // Set the TPrsStd_AISPresentation of the cylinder \n\
518 Handle(TPrsStd_AISPresentation) prs; \n\
519 prs= TPrsStd_AISPresentation::Set(LabObject, TNaming_NamedShape::GetID()); \n\
520  \n\
521 // Display the cylinder \n\
522 prs->Display(1); \n\
523  \n\
524 // Commit the command \n\
525 D->CommitCommand(); \n\
526 } \n\
527 \n");
528                 myCResultDialog.SetTitle(CString("Modify cylinder"));
529         }
530         // Case of a cut solid created with the cut function driver
531         else if(myDriverID==TOcafFunction_CutDriver::GetID())
532         {
533                 // Open a new command (for undo)
534                 D->NewCommand();
535
536                 // Get the reference of the Original object used to make the cut object, 
537                 // this reference is here attached to the first child of the cut object label 
538                 Handle(TDF_Reference) OriginalRef;
539                 LabObject.FindChild(1).FindAttribute(TDF_Reference::GetID(),OriginalRef);
540
541                 // Get the presentation of the Original object
542                 Handle(TPrsStd_AISPresentation) OriginalPrs= TPrsStd_AISPresentation::Set(OriginalRef->Get(), TNaming_NamedShape::GetID()); 
543
544                 // Get the reference of the Tool object used to make the cut object, 
545                 // this reference is here attached to the second child of the cut object label 
546                 Handle(TDF_Reference) ToolRef;
547                 LabObject.FindChild(2).FindAttribute(TDF_Reference::GetID(),ToolRef);
548                 TDF_Label ToolLab=ToolRef->Get();
549
550                 
551                 // Get the presentation of the Tool object
552                 Handle(TPrsStd_AISPresentation) ToolPrs= TPrsStd_AISPresentation::Set(ToolLab, TNaming_NamedShape::GetID()); 
553
554                 // Display the Original object and the Tool object, erase the cut object.
555                 TDataStd_Integer::Set(OriginalRef->Get(), 1);
556                 OriginalPrs->Display(1);
557                 TDataStd_Integer::Set(ToolLab, 1);
558                 ToolPrs->Display(1);
559                 TDataStd_Integer::Set(LabObject, 0);
560                 ObjectPrs->Erase(1);
561                 myAISContext->UpdateCurrentViewer();
562
563                 // In this  we decided to modify the tool object which is a cylinder, 
564                 // so we open the cylinder parameters dialog box
565                 CNewCylDlg Dlg;
566                 Standard_Real x, y, z, h, r;
567
568                 // Get the attributes values of the tool cylinder
569                 Handle(TDataStd_Real) curReal;
570                 ToolLab.FindChild(1).FindAttribute(TDataStd_Real::GetID(),curReal);
571                 r=curReal->Get();
572                 ToolLab.FindChild(2).FindAttribute(TDataStd_Real::GetID(),curReal);
573                 h=curReal->Get();
574                 ToolLab.FindChild(3).FindAttribute(TDataStd_Real::GetID(),curReal);
575                 x=curReal->Get();
576                 ToolLab.FindChild(4).FindAttribute(TDataStd_Real::GetID(),curReal);
577                 y=curReal->Get();
578                 ToolLab.FindChild(5).FindAttribute(TDataStd_Real::GetID(),curReal);
579                 z=curReal->Get();
580                 Handle(TDataStd_Name) stdName;
581                 ToolLab.FindAttribute(TDataStd_Name::GetID(),stdName);
582
583                 // Initialize the dialog box with the values of the tool cylinder
584                 Dlg.InitFields(x, y, z, r, h, stdName->Get());
585
586                 if(Dlg.DoModal()!=IDOK) 
587                 {
588                         D->AbortCommand();
589                         myAISContext->UpdateCurrentViewer();
590                         return;
591                 }
592                 TCollection_AsciiString Name((Standard_CString)(LPCTSTR)Dlg.m_Name);
593
594                 // Modify the cylinder
595                 TOcaf_Commands ToolTSC(ToolLab);
596                 ToolTSC.ModifyCyl(Dlg.m_x, Dlg.m_y, Dlg.m_z, Dlg.m_r, Dlg.m_h, TCollection_ExtendedString(Name), log);
597
598                 // Redisplay the modified Tool object
599                 TDataStd_Integer::Set(ToolLab, 1);
600                 ToolPrs->Display(1);
601                 myAISContext->UpdateCurrentViewer();
602                 Sleep(1000);
603
604                 // Get the TOcafFunction_CutDriver using its Standard_GUID in the TFunction_DriverTable
605                 Handle(TOcafFunction_CutDriver) myCutDriver;
606                 TFunction_DriverTable::Get()->FindDriver(myDriverID, myCutDriver);
607
608                 // Recompute the cut object if it must be (look at the MustExecute function code)
609 //              if (myCutDriver->MustExecute(log))
610 //              {
611                         log.SetTouched(LabObject);
612                         if(myCutDriver->Execute(log))
613                                 MessageBox(0,"Recompute failed","Modify cut",MB_ICONEXCLAMATION);
614 //              }
615
616                 // Erase the Original object and the Tool objectedisplay the modified Tool object
617                 TDataStd_Integer::Set(ToolLab, 0);
618                 ToolPrs->Erase(0);
619                 TDataStd_Integer::Set(OriginalRef->Get(), 0);
620                 OriginalPrs->Erase(0);
621                 ObjectPrs=TPrsStd_AISPresentation::Set(LabObject, TNaming_NamedShape::GetID()); 
622                 TDataStd_Integer::Set(LabObject, 1);
623                 ObjectPrs->Display(1);
624                 myAISContext->UpdateCurrentViewer();
625                 // Close the command (for undo)
626                 D->CommitCommand();
627
628                 Message+=("\
629  \n\
630 //  In this case the TFunction_FunctionDriver ID is a CutDriver \n\
631 if(myDriverID==TOcafFunction_CutDriver::GetID()){ \n\
632  \n\
633 //  Getting values of cut attributes (which are reference to the shapes)\n\
634 Handle(TDF_Reference) OriginalRef; \n\
635 LabObject.FindChild(1).FindAttribute(TDF_Reference::GetID(),OriginalRef); \n\
636 Handle(TDF_Reference) ToolRef; \n\
637 LabObject.FindChild(2).FindAttribute(TDF_Reference::GetID(),ToolRef); \n\
638  \n\
639 //  Getting the label of the tool shape (to modify it)\n\
640 TDF_Label ToolLab=ToolRef->Get(); \n\
641  \n\
642 TOcaf_Commands TSC(ToolLab); \n\
643 // Look at the TOcaf_Commands::ModifyBox() function \n\
644 TSC.ModifyBox(m_x, m_y, m_z, m_w, m_l, m_h, Name); \n\
645  \n\
646 //  Getting the TOcafFunction_CutDriver used to create the cut\n\
647 Handle(TOcafFunction_CutDriver) myCutDriver; \n\
648 TFunction_DriverTable::Get()->FindDriver(myDriverID, myCutDriver); \n\
649  \n\
650 //  Recompute the cut if it must be (if an attribute was modified)\n\
651 if (myCutDriver->MustExecute(log)) { \n\
652         log.SetTouched(LabObject); \n\
653         myCutDriver->Execute(log) \n\
654 } \n\
655 Handle(TPrsStd_AISPresentation) prs; \n\
656  \n\
657 //  Setting the TPrsStd_AISPresentation of the cut object\n\
658 prs= TPrsStd_AISPresentation::Set(LabObject, TNaming_NamedShape::GetID()); \n\
659  \n\
660 //  Display the TPrsStd_AISPresentation of the cut object\n\
661 prs->Display(1); \n\
662  \n\
663 //  Commit the command\n\
664 D->CommitCommand(); \n\
665 } \n\
666 \n");
667                 myCResultDialog.SetTitle(CString("Modify Cut"));
668         }
669         else
670         {
671                 MessageBox(0,"No associated function driver","Modify",MB_OK);
672         }
673
674         CString text(Message.ToCString());
675         myCResultDialog.SetText(text);
676 }
677
678 void COcafDoc::OnUpdateModify(CCmdUI* pCmdUI) 
679 {
680         // Disable the "modify" button if there is no selected object or several selected objects 
681         myAISContext->InitCurrent();
682         if(myAISContext->NbCurrents()!=1)
683         {
684                 pCmdUI->Enable(Standard_False);
685                 return;
686         }
687
688         // Get the root label of the selected object using its TPrsStd_AISPresentation
689         myAISContext->InitCurrent();
690         Handle(TPrsStd_AISPresentation) ObjectPrs = 
691                 Handle(TPrsStd_AISPresentation)::DownCast(myAISContext->Current()->GetOwner());
692         if (!ObjectPrs.IsNull()){
693                 TDF_Label LabObject = ObjectPrs->Label();
694
695
696                 // Disable the "modify" button if selected object don't have a TFunction_Function attribute
697                 Handle(TFunction_Function) TFF; 
698                 pCmdUI->Enable(LabObject.FindAttribute(TFunction_Function::GetID(),TFF) );
699         }
700         else
701                 pCmdUI->Enable(FALSE);
702 }
703
704
705 void COcafDoc::OnCut() 
706 {
707         EraseAll();
708         Handle(TDocStd_Document) D = GetOcafDoc();
709         TDF_Label L = D->Main();
710
711         TOcaf_Commands TSC(L);
712
713         // Open a new command (for undo)
714         D->NewCommand();
715
716         // Create a new cyl (10*20 dimensions)
717         TDF_Label L2=TSC.CreateCyl(0, 10, -10, 5, 80, "Cylinder");
718         Handle(TPrsStd_AISPresentation) prs1= TPrsStd_AISPresentation::Set(L2, TNaming_NamedShape::GetID()); 
719         prs1->SetColor(Quantity_NOC_MATRABLUE);
720         TDataStd_Integer::Set(L2, 1);
721         prs1->Display(1);
722         Fit3DViews();
723
724         // Wait a second to see the construction
725         Sleep(500);
726
727         // Create a new box (20*20*20 dimensions, at the (-12,0,10) position)
728         TDF_Label L1=TSC.CreateBox(-12, 0, 10, 20, 30, 40, "Box");
729         Handle(TPrsStd_AISPresentation) prs2= TPrsStd_AISPresentation::Set(L1, TNaming_NamedShape::GetID()); 
730         prs2->SetColor(Quantity_NOC_YELLOW);
731         TDataStd_Integer::Set(L1, 1);
732         prs2->Display(1);
733         Fit3DViews();
734
735         Sleep(1000);
736
737         // Cut the boxes
738         L=TSC.Cut(L1, L2);
739         Handle(TPrsStd_AISPresentation) prs= TPrsStd_AISPresentation::Set(L, TNaming_NamedShape::GetID());
740
741         // Erase the two boxes and display the cut object
742         TDataStd_Integer::Set(L1, 0);
743         prs1->Erase(0);
744         TDataStd_Integer::Set(L2, 0);
745         prs2->Erase(0);
746         TDataStd_Integer::Set(L, 1);
747         prs->Display(1);
748         myAISContext->UpdateCurrentViewer();
749
750         // Close the cut operation command (for undo)
751         D->CommitCommand();
752
753
754                 TCollection_AsciiString Message ("\
755 //  Cut operation between a cylinder and a box \n\
756  \n\
757 Handle(TDocStd_Document) D = GetOcafDoc(); \n\
758 TDF_Label L = D->Main(); \n\
759  \n\
760 //  Openning a new command\n\
761 D->NewCommand(); \n\
762  \n\
763 TOcaf_Commands TSC(D->Main()); \n\
764  \n\
765 //  Create a box \n\
766 // Look at the TOcaf_Commands::CreateBox() function \n\
767 TDF_Label L1=TSC.CreateBox(-12, 0, 10, 24, 20, 20, '\"'Box'\"'); \n\
768 // Look at the TOcaf_Commands::Cut() function \n\
769  \n\
770 //  Create a cylinder \n\
771 // Look at the TOcaf_Commands::CreateCyl() function \n\
772 //  Create two boxes \n\
773 TDF_Label L2=TSC.CreateCyl(0, 0, 0, 10, 20, '\"'Cylinder'\"'); \n\
774  \n\
775 //  Cut the cylinder with the box \n\
776 L=TSC.Cut(L1, L2); \n\
777 Handle(TPrsStd_AISPresentation) prs; \n\
778  \n\
779 //  Setting the TPrsStd_AISPresentation of the cut object\n\
780 prs= TPrsStd_AISPresentation::Set(L, TNaming_NamedShape::GetID()); \n\
781  \n\
782 //  Displaying the TPrsStd_AISPresentation of the cut object\n\
783 prs->Display(1); \n\
784  \n\
785 //  Commit the command\n\
786 D->CommitCommand(); \n\
787 \n");
788
789         myCResultDialog.SetTitle(CString("Cut operation"));
790         CString text(Message.ToCString());
791         myCResultDialog.SetText(text);
792 }
793
794
795 void COcafDoc::Fit3DViews()
796 {
797   POSITION position = GetFirstViewPosition();
798   while (position != (POSITION)NULL)
799   {
800     CView* pCurrentView = (CView*)GetNextView(position);
801      if(pCurrentView->IsKindOf( RUNTIME_CLASS( OCC_3dView ) ) )
802     {
803         ASSERT_VALID(pCurrentView);
804         OCC_3dView* aOCC_3dView = (OCC_3dView*)pCurrentView;
805         aOCC_3dView->FitAll();
806     }
807   }
808
809 }
810
811 void COcafDoc::OnObjectDelete() 
812 {
813         Handle(TDocStd_Document) D = GetOcafDoc();
814
815         D->NewCommand();
816
817         AIS_SequenceOfInteractive aSequence;
818         for(myAISContext->InitCurrent();
819       myAISContext->MoreCurrent();
820       myAISContext->NextCurrent())
821         aSequence.Append(myAISContext->Current());
822         
823         for(int iter=1;iter <=aSequence.Length();iter++)
824         {
825                 if (myAISContext->DisplayStatus(aSequence(iter)) == AIS_DS_Displayed)
826                 {
827                         Handle(TPrsStd_AISPresentation) CurrentPrs
828                                 = Handle(TPrsStd_AISPresentation)::DownCast(aSequence(iter)->GetOwner()); 
829                         TDataStd_Integer::Set(CurrentPrs->Label(), 0);
830                         CurrentPrs->Erase(1);
831                 }
832         }
833  
834         D->CommitCommand();
835         myAISContext->UpdateCurrentViewer();
836  
837                 TCollection_AsciiString Message ("\
838  // Delete selected object \n\
839   \n\
840  Handle(TDocStd_Document) D = GetOcafDoc(); \n\
841   \n\
842  //  Openning a new command\n\
843  D->NewCommand(); \n\
844   \n\
845  // Getting the  TPrsStd_AISPresentation of the selected object\n\
846  Handle(TPrsStd_AISPresentation) CurrentPrs \n\
847      =Handle(TPrsStd_AISPresentation)::DownCast(myAISContext->Current()->GetOwner());  \n\
848   \n\
849  // Erasing the  TPrsStd_AISPresentation of the selected object\n\
850  CurrentPrs->Erase(1); \n\
851   \n\
852  //  Commit the command\n\
853  D->CommitCommand(); \n\
854  \n");
855  
856         myCResultDialog.SetTitle(CString("Delete"));
857         CString text(Message.ToCString());
858         myCResultDialog.SetText(text);
859  }
860  
861  void COcafDoc::OnUpdateObjectDelete(CCmdUI* pCmdUI) 
862  {
863      myAISContext->InitCurrent();
864         pCmdUI->Enable (myAISContext->MoreCurrent());           
865  }
866  
867  void COcafDoc::DisplayPrs()
868  {
869         TDF_Label LabSat = myOcafDoc->Main();
870  
871         for (TDF_ChildIterator it(LabSat); it.More(); it.Next())
872         {
873                 TDF_Label L = it.Value();
874                 Handle(TNaming_NamedShape) TNS;
875                 if (!L.FindAttribute(TNaming_NamedShape::GetID(), TNS)) continue;
876                 Handle(TDataStd_Integer) TDI;
877
878                 // To know if the object was displayed
879                 if (L.FindAttribute(TDataStd_Integer::GetID(), TDI))
880                         if(!TDI->Get())  continue;
881
882                 Handle(TPrsStd_AISPresentation) prs;
883                 if (!L.FindAttribute(TPrsStd_AISPresentation::GetID(),prs))
884                         prs = TPrsStd_AISPresentation::Set(L,TNaming_NamedShape::GetID());
885                 prs->SetColor(Quantity_NOC_ORANGE);
886                 prs->Display(1);
887     }
888
889         myAISContext->UpdateCurrentViewer();
890 }
891
892 void COcafDoc::OnCloseDocument() 
893 {
894         Handle(TOcaf_Application) OcafApp = ((COcafApp*)AfxGetApp())->GetApp();
895         OcafApp->Close(myOcafDoc);
896         CDocument::OnCloseDocument();
897 }
898
899 void COcafDoc::OnFileSaveAs() 
900 {
901         Standard_CString SPathName = (Standard_CString) (LPCTSTR) PathName;
902         TCollection_ExtendedString TPathName(SPathName);
903
904         CString Filter;
905
906         if (TPathName.SearchFromEnd(".xml") > 0){
907                 Filter = "OCAFSample(XML) (*.xml)|*.xml|OCAFSample(STA) (*.sta)|*.sta|OCAFSample(Binary) (*.cbf)|*.cbf||";
908         }
909         else if (TPathName.SearchFromEnd(".cbf") > 0){
910                 Filter = "OCAFSample(Binary) (*.cbf)|*.cbf|OCAFSample(STA) (*.sta)|*.sta|OCAFSample(XML) (*.xml)|*.xml||";
911         }
912         else{
913                 Filter = "OCAFSample(STA) (*.sta)|*.sta|OCAFSample(XML) (*.xml)|*.xml|OCAFSample(Binary) (*.cbf)|*.cbf||";
914         }
915         
916         CFileDialog dlg(FALSE,
917                         "sta",
918                         GetTitle(),
919                         OFN_HIDEREADONLY | OFN_OVERWRITEPROMPT,
920                         Filter,
921 //                      "sta Files (*.sta)|*.sta; |All Files (*.*)|*.*||", 
922                         NULL );
923         
924
925         Handle(TOcaf_Application) m_App= ((COcafApp*)AfxGetApp())->GetApp();
926         if (dlg.DoModal() != IDOK) return;
927
928         SetTitle(dlg.GetFileTitle());
929
930         CWaitCursor aWaitCursor;
931         CString CSPath = dlg.GetPathName();
932
933 //      if((CSPath.Find(CString(".sta")))==-1 )
934 //              CSPath = CSPath + ".sta";
935
936         cout << "Save As " << CSPath << endl;
937         PathName=CSPath;
938         Standard_CString SPath = (Standard_CString) (LPCTSTR) CSPath;
939         TCollection_ExtendedString TPath(SPath);
940
941             if (TPath.SearchFromEnd(".xml") > 0)
942                 {
943                   // The document must be saved in XML format
944                         myOcafDoc->ChangeStorageFormat("XmlOcaf");
945                 }
946                 else if (TPath.SearchFromEnd(".cbf") > 0)
947                 {
948                         // The document must be saved in binary format
949                         myOcafDoc->ChangeStorageFormat("BinOcaf");
950                 }
951                 else
952                 {
953                         // The document must be saved in standard format
954                         myOcafDoc->ChangeStorageFormat("MDTV-Standard");
955                 }
956
957                 try
958                 {
959                         // Saves the document in the current application
960                         m_App->SaveAs(myOcafDoc,TPath);
961                 }
962                 catch(...)
963                 {
964                         AfxMessageBox("Error! The file wasn't saved.");
965                 return;
966                 }
967 //      // save the document in the current application
968 //      m_App->SaveAs(myOcafDoc,TPath);
969
970         SetPathName(SPath);
971
972         TCollection_AsciiString Message = TCollection_AsciiString("\
973 //  Storing the document as \n\
974  \n\
975 Handle(TOcaf_Application) m_App= ((COcafApp*)AfxGetApp())->GetApp(); \n\
976  \n\
977 //  Saving current OCAF document at TPath \n\
978 m_App->SaveAs(myOcafDoc,(TCollection_ExtendedString) TPath); \n\
979 \n");
980
981         myCResultDialog.SetTitle(CString("Save a document"));
982         CString text(Message.ToCString());
983         myCResultDialog.SetText(text);
984 }
985
986 void COcafDoc::OnFileSave() 
987 {
988         Handle(TOcaf_Application) m_App= ((COcafApp*)AfxGetApp())->GetApp();
989
990         
991         if (myOcafDoc.IsNull())
992         {
993           AfxMessageBox("Error during saving! Empty document.");
994           return;
995         }
996
997         if(PathName!="")
998         {
999                 Standard_CString SPath = (Standard_CString) (LPCTSTR) PathName;
1000                 TCollection_ExtendedString TPath(SPath);
1001
1002             if (TPath.SearchFromEnd(".xml") > 0)
1003                 {
1004                   // The document must be saved in XML format
1005                         myOcafDoc->ChangeStorageFormat("XmlOcaf");
1006                 }
1007                 else if (TPath.SearchFromEnd(".cbf") > 0)
1008                 {
1009                         // The document must be saved in binary format
1010                         myOcafDoc->ChangeStorageFormat("BinOcaf");
1011                 }
1012                 else
1013                 {
1014                         // The document must be saved in standard format
1015                         myOcafDoc->ChangeStorageFormat("MDTV-Standard");
1016                 }
1017
1018                 try
1019                 {
1020                         // Saves the document in the current application
1021                         m_App->SaveAs(myOcafDoc,TPath);
1022                 }
1023                 catch(...)
1024                 {
1025                         AfxMessageBox("Error! The file wasn't saved.");
1026                     return;
1027                 }
1028
1029         TCollection_AsciiString Message = TCollection_AsciiString("\
1030 //  Storing the document \n\
1031  \n\
1032 Handle(TOcaf_Application) m_App= ((COcafApp*)AfxGetApp())->GetApp(); \n\
1033  \n\
1034 //  Saving current OCAF document at TPath \n\
1035 m_App->SaveAs(myOcafDoc,(TCollection_ExtendedString) TPath); \n\
1036 \n");
1037
1038                 myCResultDialog.SetTitle(CString("Save a document"));
1039                 CString text(Message.ToCString());
1040                 myCResultDialog.SetText(text);
1041                 return;
1042         }
1043
1044         CFileDialog dlg(FALSE,
1045                         "sta",
1046                         GetTitle(),
1047                         OFN_HIDEREADONLY | OFN_OVERWRITEPROMPT,
1048                         "OCAFSample(STA) (*.sta)|*.sta|OCAFSample(XML) (*.xml)|*.xml|OCAFSample(Binary) (*.cbf)|*.cbf||",
1049 //                      "sta Files (*.sta)|*.sta; |All Files (*.*)|*.*||", 
1050                         NULL );
1051
1052         if (dlg.DoModal() != IDOK) return;
1053
1054         SetTitle(dlg.GetFileTitle());
1055
1056         CWaitCursor aWaitCursor;
1057         CString CSPath = dlg.GetPathName();
1058
1059         Standard_CString SPath = (Standard_CString)(LPCTSTR) CSPath;
1060     TCollection_ExtendedString TPath(SPath);
1061
1062     // Choose storage format
1063     if (TPath.SearchFromEnd(".xml") > 0)
1064         {
1065           // The document must be saved in XML format
1066           myOcafDoc->ChangeStorageFormat("XmlOcaf");
1067         }
1068         else if (TPath.SearchFromEnd(".cbf") > 0)
1069         {
1070           // The document must be saved in binary format
1071           myOcafDoc->ChangeStorageFormat("BinOcaf");
1072         }
1073         else
1074         {
1075                 // The document must be saved in standard format
1076                 myOcafDoc->ChangeStorageFormat("Ocaf-Sample");
1077         }
1078
1079    try
1080    {
1081           // Saves the document in the current application
1082           m_App->SaveAs(myOcafDoc,TPath);
1083    }
1084    catch(...)
1085    {
1086           AfxMessageBox("Error! The file wasn't saved.");
1087           return;
1088    }
1089
1090
1091 //      if((CSPath.Find(CString(".sta")))==-1 )
1092 //              CSPath = CSPath + ".sta";
1093
1094 //      cout << "Save As " << CSPath << endl;
1095 //      PathName=CSPath;
1096 //      Standard_CString SPath = (Standard_CString) (LPCTSTR) CSPath;
1097 //      TCollection_ExtendedString TPath(SPath);
1098
1099         // save the document in the current application
1100 //      m_App->SaveAs(myOcafDoc,TPath);
1101
1102         SetPathName(SPath);
1103         PathName=CSPath;
1104
1105
1106         TCollection_AsciiString Message = TCollection_AsciiString("\
1107 //  Storing the document as \n\
1108  \n\
1109 Handle(TOcaf_Application) m_App= ((COcafApp*)AfxGetApp())->GetApp(); \n\
1110  \n\
1111 //  Saving current OCAF document at TPath \n\
1112 m_App->SaveAs(myOcafDoc,(TCollection_ExtendedString) TPath); \n\
1113 \n");
1114
1115         myCResultDialog.SetTitle(CString("Save a document"));
1116         CString text(Message.ToCString());
1117         myCResultDialog.SetText(text);
1118 }
1119
1120 BOOL COcafDoc::OnOpenDocument(LPCTSTR lpszPathName) 
1121 {
1122         if (!CDocument::OnOpenDocument(lpszPathName))
1123                 return FALSE;
1124         
1125         Handle(TOcaf_Application) m_App= ((COcafApp*)AfxGetApp())->GetApp();
1126
1127         CWaitCursor aWaitCursor;
1128         PathName=lpszPathName;
1129
1130         Standard_CString SPath = (Standard_CString) lpszPathName;
1131         TCollection_ExtendedString TPath(SPath);
1132         PathName=lpszPathName;
1133
1134         // open the document in the current application
1135
1136         CDF_RetrievableStatus RS = m_App->Open(TPath,myOcafDoc);
1137
1138         //connect the document CAF (myDoc) with the AISContext (myAISContext)
1139 //      TPrsStd_AISViewer::Has(myOcafDoc->Main());
1140         TPrsStd_AISViewer::New(myOcafDoc->Main(),myViewer);
1141         myOcafDoc->SetUndoLimit(10);
1142
1143         Handle(AIS_InteractiveContext) CTX;
1144         TPrsStd_AISViewer::Find(myOcafDoc->Main(),CTX);
1145         CTX->SetDisplayMode(AIS_Shaded);
1146
1147         myAISContext = CTX;
1148
1149         // Display the presentations (which was not stored in the document)
1150         DisplayPrs();
1151         
1152         TCollection_AsciiString Message = TCollection_AsciiString("\
1153 //  Retrieve a document \n\
1154  \n\
1155  Handle(TOcaf_Application) m_App= ((COcafApp*)AfxGetApp())->GetApp(); \n\
1156  \n\
1157 //  Openning the OCAF document from the TPath file\n\
1158 m_App->Open((TCollection_ExtendedString) TPath,myOcafDoc); \n\
1159  \n\
1160 //  Creation of a new TPrsStd_AISViewer connected to the current V3d_Viewer\n\
1161 TPrsStd_AISViewer::New(myOcafDoc->Main(),myViewer); \n\
1162  \n\
1163 //  Setting the number of memorized undos \n\
1164 myOcafDoc->SetUndoLimit(10); \n\
1165  \n\
1166 \n");
1167         myCResultDialog.SetTitle(CString("Open a document"));
1168         CString text(Message.ToCString());
1169         myCResultDialog.SetText(text);
1170
1171         return TRUE;
1172
1173 }
1174
1175
1176 void COcafDoc::EraseAll()
1177 {
1178         myOcafDoc->NewCommand();
1179
1180         TDF_Label LabSat = myOcafDoc->Main();
1181
1182         for (TDF_ChildIterator it(LabSat); it.More(); it.Next())
1183         {
1184                 TDF_Label L = it.Value();
1185                 Handle(TNaming_NamedShape) TNS;
1186                 if (!L.FindAttribute(TNaming_NamedShape::GetID(), TNS)) continue;
1187                 Handle(TDataStd_Integer) TDI;
1188
1189                 // To know if the object was displayed
1190                 if (L.FindAttribute(TDataStd_Integer::GetID(), TDI))
1191                         if(!TDI->Get())  continue;
1192
1193                 Handle(TPrsStd_AISPresentation) prs;
1194                 if (!L.FindAttribute(TPrsStd_AISPresentation::GetID(),prs))
1195                         prs = TPrsStd_AISPresentation::Set(L,TNaming_NamedShape::GetID());
1196                 prs->SetColor(Quantity_NOC_ORANGE);
1197                 prs->Erase(1);
1198     }
1199
1200         myAISContext->UpdateCurrentViewer();
1201
1202         myOcafDoc->CommitCommand();
1203 }
1204
1205 void  COcafDoc::Popup(const Standard_Integer  x,
1206                                                            const Standard_Integer  y ,
1207                                const Handle(V3d_View)& aView   ) 
1208 {
1209   Standard_Integer PopupMenuNumber=0;
1210  myAISContext->InitCurrent();
1211   if (myAISContext->MoreCurrent())
1212     PopupMenuNumber=1;
1213
1214   CMenu menu;
1215   VERIFY(menu.LoadMenu(IDR_Popup3D));
1216   CMenu* pPopup = menu.GetSubMenu(PopupMenuNumber);
1217
1218   ASSERT(pPopup != NULL);
1219    if (PopupMenuNumber == 1) // more than 1 object.
1220   {
1221     bool OneOrMoreInShading = false;
1222         for (myAISContext->InitCurrent();myAISContext->MoreCurrent ();myAISContext->NextCurrent ())
1223     if (myAISContext->IsDisplayed(myAISContext->Current(),1)) OneOrMoreInShading=true;
1224         if(!OneOrMoreInShading)
1225         pPopup->EnableMenuItem(5, MF_BYPOSITION | MF_DISABLED | MF_GRAYED);
1226    }
1227
1228   POINT winCoord = { x , y };
1229   Handle(WNT_Window) aWNTWindow=
1230   Handle(WNT_Window)::DownCast(aView->Window());
1231   ClientToScreen ( (HWND)(aWNTWindow->HWindow()),&winCoord);
1232   pPopup->TrackPopupMenu(TPM_LEFTALIGN | TPM_RIGHTBUTTON , winCoord.x, winCoord.y , 
1233                          AfxGetMainWnd());
1234
1235
1236 }
1237
1238
1239 //void COcafDoc::OnDfbr() 
1240 //{
1241 //      // TODO: Add your command handler code here
1242 //      DebugBrowser::DFBrowser(myOcafDoc);
1243 //      
1244 //}