0023933: Self intersection reported after Fuse operation.
[occt.git] / src / Draw / MainWindow.cxx
CommitLineData
b311480e 1// Created on: 1998-08-06
2// Created by: Administrateur Atelier MDL
3// Copyright (c) 1998-1999 Matra Datavision
4// Copyright (c) 1999-2012 OPEN CASCADE SAS
5//
6// The content of this file is subject to the Open CASCADE Technology Public
7// License Version 6.5 (the "License"). You may not use the content of this file
8// except in compliance with the License. Please obtain a copy of the License
9// at http://www.opencascade.org and read it completely before using this file.
10//
11// The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
12// main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
13//
14// The Original Code and all software distributed under the License is
15// distributed on an "AS IS" basis, without warranty of any kind, and the
16// Initial Developer hereby disclaims all such warranties, including without
17// limitation, any warranties of merchantability, fitness for a particular
18// purpose or non-infringement. Please see the License for the specific terms
19// and conditions governing the rights and limitations under the License.
20
7fd59977 21
22
23
24#ifdef WNT
25
26
27#include <windows.h>
28#include <DrawRessource.h>
29#include <init.h>
30#include <MainWindow.h>
31#include <Draw_Window.hxx>
32#include <CommandWindow.h>
33
bf03eb83 34Standard_Boolean Draw_Interprete(const char* command); // Implemented in Draw.cxx
7fd59977 35extern Standard_Boolean Draw_IsConsoleSubsystem;
36
37//extern "C" int compat_unlink(const char *fname); // Implemente dans TCL
38
39/*--------------------------------------------------------*\
40| CLIENT WINDOW PROCEDURE
41|
42|
43\*--------------------------------------------------------*/
44LONG APIENTRY WndProc(HWND hWndFrame, UINT wMsg, WPARAM wParam, LONG lParam )
45{
46 HWND hWndClient;
47 switch(wMsg)
48 {
49 case WM_CREATE :
50 {
51 CreateProc(hWndFrame);
52 hWndClient = (HWND)GetWindowLong(hWndFrame, CLIENTWND);
53 DrawWindow::hWndClientMDI = hWndClient;
54 if (!Draw_IsConsoleSubsystem)
55 CreateCommandWindow(hWndFrame,0);
56 }
57 break;
58
59 case WM_COMMAND :
60 CommandProc(hWndFrame, wParam, lParam);
61 break;
62
63 case WM_DESTROY :
64 Draw_Interprete("exit");
65 DestroyProc(hWndFrame);
66 break;
67
68 default :
69 hWndClient = (HWND)GetWindowLong(hWndFrame, CLIENTWND);
70 return(DefFrameProc(hWndFrame, hWndClient, wMsg, wParam, lParam));
71 }
72 return(0l);
73}
74
75
76/*--------------------------------------------------------------------------*\
77| CLIENT CREATE PROCEDURE
0d969553 78| Handler for message WM_CREATE. Creation of control window MDI
7fd59977 79|
80\*--------------------------------------------------------------------------*/
81BOOL CreateProc(HWND hWndFrame)
82{
83 HWND hWnd;
84
0d969553 85 // Save hWnd in the main window in extra memory in 0
7fd59977 86 if (hWnd = CreateMDIClientWindow(hWndFrame))
87 SetWindowLong(hWndFrame, CLIENTWND, (LONG)hWnd);
88 return(TRUE);
89}
90
91
92/*--------------------------------------------------------------------------*\
93| COMMAND PROCEDURE
0d969553 94| Handler for message WM_COMMAND
7fd59977 95|
96\*--------------------------------------------------------------------------*/
97BOOL CommandProc(HWND hWndFrame, WPARAM wParam, LPARAM lParam)
98{
0d969553 99 HWND hWndClient; // Handle on window MDI
7fd59977 100 HWND hWndActive;
101
102 hWndClient = (HWND)GetWindowLong(hWndFrame, CLIENTWND);
103 switch (LOWORD(wParam))
104 {
105 case IDM_WINDOW_NEXT :
106 if(hWndClient = (HWND)GetWindowLong(hWndFrame, CLIENTWND))
107 hWndActive = (HWND)SendMessage(hWndClient, WM_MDIGETACTIVE, 0, 0l);
108 SendMessage(hWndClient, WM_MDINEXT, (WPARAM)hWndActive, 0l);
109 break;
110
111 case IDM_WINDOW_CASCADE :
112 if(hWndClient = (HWND)GetWindowLong(hWndFrame, CLIENTWND))
113 SendMessage(hWndClient, WM_MDICASCADE, 0, 0l);
114 break;
115
116 case IDM_WINDOW_TILEHOR :
117 if(hWndClient = (HWND)GetWindowLong(hWndFrame, CLIENTWND))
118 SendMessage(hWndClient, WM_MDITILE, MDITILE_HORIZONTAL, 0l);
119 break;
120
121 case IDM_WINDOW_TILEVERT :
122 if(hWndClient = (HWND)GetWindowLong(hWndFrame, CLIENTWND))
123 SendMessage(hWndClient, WM_MDITILE, MDITILE_VERTICAL, 0l);
124 break;
125
126 case IDM_FILE_EXIT :
127 Draw_Interprete("exit");
128 //compat_unlink(NULL);
129
130 DestroyProc(hWndFrame);
131 break;
132 }
133 return(TRUE);
134}
135
136
137/*--------------------------------------------------------------------------*\
138| CLIENT DESTROY PROCEDURE
0d969553 139| Handler for message WM_DESTROY.
7fd59977 140|
141\*--------------------------------------------------------------------------*/
142VOID DestroyProc(HWND hWnd)
143{
144#ifndef _WIN64
145 HINSTANCE hInst = (HINSTANCE)GetWindowLong(hWnd, GWL_HINSTANCE);
146#else
147 HINSTANCE hInst = (HINSTANCE)GetWindowLong(hWnd, GWLP_HINSTANCE);
148#endif
149 Destroy_Appli(hInst);
150 PostQuitMessage(0);
151}
152#endif
153