0031875: Draw Harness, ViewerTest - command vaspects -mostContinuity lacks g1 and...
[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
973c2be1 4// Copyright (c) 1999-2014 OPEN CASCADE SAS
b311480e 5//
973c2be1 6// This file is part of Open CASCADE Technology software library.
b311480e 7//
d5f74e42 8// This library is free software; you can redistribute it and/or modify it under
9// the terms of the GNU Lesser General Public License version 2.1 as published
973c2be1 10// by the Free Software Foundation, with special exception defined in the file
11// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
12// distribution for complete text of the license and disclaimer of any warranty.
b311480e 13//
973c2be1 14// Alternatively, this file may be used under the terms of Open CASCADE
15// commercial license or contractual agreement.
b311480e 16
57c28b61 17#ifdef _WIN32
7fd59977 18
7fd59977 19#include <windows.h>
20#include <DrawRessource.h>
21#include <init.h>
7fd59977 22#include <Draw_Window.hxx>
3b80dc16 23
24#include <MainWindow.h>
7fd59977 25#include <CommandWindow.h>
26
bf03eb83 27Standard_Boolean Draw_Interprete(const char* command); // Implemented in Draw.cxx
7fd59977 28extern Standard_Boolean Draw_IsConsoleSubsystem;
29
30//extern "C" int compat_unlink(const char *fname); // Implemente dans TCL
31
32/*--------------------------------------------------------*\
33| CLIENT WINDOW PROCEDURE
34|
35|
36\*--------------------------------------------------------*/
6a7d83c4 37LRESULT APIENTRY WndProc(HWND hWndFrame, UINT wMsg, WPARAM wParam, LPARAM lParam )
7fd59977 38{
ad03c234 39 switch (wMsg)
7fd59977 40 {
ad03c234 41 case WM_CREATE:
42 {
43 CreateProc (hWndFrame);
44 HWND hWndClient = (HWND )GetWindowLongPtrW (hWndFrame, CLIENTWND);
45 DrawWindow::hWndClientMDI = hWndClient;
46 if (!Draw_IsConsoleSubsystem)
7fd59977 47 {
ad03c234 48 CreateCommandWindow (hWndFrame, 0);
7fd59977 49 }
ad03c234 50 return 0;
51 }
52 case WM_COMMAND:
53 {
54 CmdProc (hWndFrame, LOWORD(wParam), wParam, lParam);
55 return 0;
56 }
57 case WM_DESTROY:
58 {
59 Draw_Interprete ("exit");
60 DestroyProc (hWndFrame);
61 return 0;
62 }
7fd59977 63 }
ad03c234 64 HWND hWndClient = (HWND)GetWindowLongPtrW(hWndFrame, CLIENTWND);
65 return DefFrameProcW(hWndFrame, hWndClient, wMsg, wParam, lParam);
7fd59977 66}
67
68
69/*--------------------------------------------------------------------------*\
70| CLIENT CREATE PROCEDURE
0d969553 71| Handler for message WM_CREATE. Creation of control window MDI
7fd59977 72|
73\*--------------------------------------------------------------------------*/
74BOOL CreateProc(HWND hWndFrame)
75{
773f53f1 76 HWND hWnd = CreateMDIClientWindow (hWndFrame);
77 if (hWnd != NULL)
78 {
79 // Save hWnd in the main window in extra memory in 0
ad03c234 80 SetWindowLongPtrW (hWndFrame, CLIENTWND, (LONG_PTR)hWnd);
773f53f1 81 }
7fd59977 82 return(TRUE);
83}
84
85
86/*--------------------------------------------------------------------------*\
87| COMMAND PROCEDURE
0d969553 88| Handler for message WM_COMMAND
839b8d3c 89| It is used when Draw_IsConsoleSubsystem = Standard_False
cf0786da 90| i.e. in non-console mode (see Draw_main() in Draw_Main.cxx).
7fd59977 91\*--------------------------------------------------------------------------*/
839b8d3c 92LRESULT APIENTRY CmdProc(HWND hWndFrame, UINT wMsg, WPARAM /*wParam*/, LPARAM /*lParam*/)
7fd59977 93{
773f53f1 94 // Handle on window MDI
ad03c234 95 HWND hWndClient = (HWND )GetWindowLongPtrW (hWndFrame, CLIENTWND);
839b8d3c 96 switch (wMsg)
ad03c234 97 {
98 case IDM_WINDOW_NEXT:
99 {
100 if (hWndClient != NULL)
101 {
102 HWND hWndActive = (HWND )SendMessageW (hWndClient, WM_MDIGETACTIVE, 0, 0l);
103 SendMessageW (hWndClient, WM_MDINEXT, (WPARAM )hWndActive, 0l);
104 }
105 break;
106 }
107 case IDM_WINDOW_CASCADE:
108 {
109 if (hWndClient != NULL)
110 {
111 SendMessageW (hWndClient, WM_MDICASCADE, 0, 0l);
112 }
113 break;
114 }
115 case IDM_WINDOW_TILEHOR:
116 {
117 if (hWndClient != NULL)
118 {
119 SendMessageW (hWndClient, WM_MDITILE, MDITILE_HORIZONTAL, 0l);
120 }
121 break;
122 }
123 case IDM_WINDOW_TILEVERT:
124 {
125 if (hWndClient != NULL)
126 {
127 SendMessageW (hWndClient, WM_MDITILE, MDITILE_VERTICAL, 0l);
128 }
129 break;
130 }
131 case IDM_FILE_EXIT:
132 {
133 Draw_Interprete ("exit");
134 DestroyProc (hWndFrame);
135 break;
136 }
839b8d3c 137 }
ad03c234 138 return 0;
7fd59977 139}
140
141
142/*--------------------------------------------------------------------------*\
143| CLIENT DESTROY PROCEDURE
0d969553 144| Handler for message WM_DESTROY.
7fd59977 145|
146\*--------------------------------------------------------------------------*/
147VOID DestroyProc(HWND hWnd)
148{
ad03c234 149 HINSTANCE hInst = (HINSTANCE )GetWindowLongPtrW (hWnd, GWLP_HINSTANCE);
e89e2d67 150
7fd59977 151 Destroy_Appli(hInst);
152 PostQuitMessage(0);
153}
154#endif
155