- fprintf(stderr, "%s\n", interp->result);
-#endif
- exit(1);
- }
-#if defined(__APPLE__) && !defined(MACOSX_USE_GLX)
- Tk_SetAppName(aMainWindow, "Draw");
-#else
- Tk_Name(aMainWindow) = Tk_GetUid(Tk_SetAppName(aMainWindow, "Draw"));
-#endif
-
- Tk_GeometryRequest (aMainWindow, 200, 200);
-#endif
-
-#if !defined(__APPLE__) || defined(MACOSX_USE_GLX)
- if (Draw_DisplayConnection.IsNull())
- {
- try
- {
- Draw_DisplayConnection = new Aspect_DisplayConnection();
- }
- catch (Standard_Failure const& theFail)
- {
- std::cout << "Cannot open display (" << theFail << "). Interpret commands in batch mode." << std::endl;
- return Standard_False;
- }
- }
- if (Draw_WindowDisplay == NULL)
- {
- Draw_WindowDisplay = Draw_DisplayConnection->GetDisplay();
- }
- //
- // synchronize the display server : could be done within Tk_Init
- //
- XSynchronize(Draw_WindowDisplay, True);
- XSetInputFocus(Draw_WindowDisplay,
- PointerRoot,
- RevertToPointerRoot,
- CurrentTime);
-
- Draw_WindowScreen = DefaultScreen(Draw_WindowDisplay);
- Draw_WindowColorMap = DefaultColormap(Draw_WindowDisplay,
- Draw_WindowScreen);
-#endif // __APPLE__
-
- tty = isatty(0);
- Tcl_SetVar(interp,"tcl_interactive",(char*)(tty ? "1" : "0"), TCL_GLOBAL_ONLY);
-// Tcl_SetVar(interp,"tcl_interactive",tty ? "1" : "0", TCL_GLOBAL_ONLY);
- return Standard_True;
-}
-
-//======================================================
-// function : Destroy_Appli()
-// purpose :
-//======================================================
-void Destroy_Appli()
-{
- //XCloseDisplay(Draw_WindowDisplay);
-}
-
-/*
- *----------------------------------------------------------------------
- *
- * StdinProc --
- *
- * This procedure is invoked by the event dispatcher whenever
- * standard input becomes readable. It grabs the next line of
- * input characters, adds them to a command being assembled, and
- * executes the command if it's complete.
- *
- * Results:
- * None.
- *
- * Side effects:
- * Could be almost arbitrary, depending on the command that's
- * typed.
- *
- *----------------------------------------------------------------------
- */
-
- /* ARGSUSED */
-//static void StdinProc(ClientData clientData, int mask)
-static void StdinProc(ClientData clientData, int )
-{
- static int gotPartial = 0;
- char *cmd;
-// int code, count;
- int count;
- Tcl_Channel chan = (Tcl_Channel) clientData;
-
- // MSV Nov 2, 2001: patch for TCL 8.3: initialize line to avoid exception
- // when first user input is an empty string
- Tcl_DStringFree(&line);
- count = Tcl_Gets(chan, &line);
-
- // MKV 26.05.05
-#if ((TCL_MAJOR_VERSION > 8) || ((TCL_MAJOR_VERSION == 8) && (TCL_MINOR_VERSION >= 4)))
- Tcl_DString linetmp;
- Tcl_DStringInit(&linetmp);
- Tcl_UniChar * UniCharString;
- UniCharString = Tcl_UtfToUniCharDString(Tcl_DStringValue(&line),-1,&linetmp);
- Standard_Integer l = Tcl_UniCharLen(UniCharString);
- TCollection_AsciiString AsciiString("");
- Standard_Character Character;
- Standard_Integer i;
- for (i=0; i<l; i++) {
- Character = UniCharString[i];
- AsciiString.AssignCat(Character);
- }
- Tcl_DStringInit(&line);
- Tcl_DStringAppend(&line, AsciiString.ToCString(), -1);
-#endif
- if (count < 0) {
- if (!gotPartial) {
- if (tty) {
- Tcl_Exit(0);
- } else {
- Tcl_DeleteChannelHandler(chan, StdinProc, (ClientData) chan);
- }
- return;
- } else {
- count = 0;
- }
- }
-
- (void) Tcl_DStringAppend(&command, Tcl_DStringValue(&line), -1);
- cmd = Tcl_DStringAppend(&command, "\n", -1);
- Tcl_DStringFree(&line);
- try {
- OCC_CATCH_SIGNALS
- if (!Tcl_CommandComplete(cmd)) {
- gotPartial = 1;
- goto prompt;
- }
- gotPartial = 0;
-
- /*
- * Disable the stdin channel handler while evaluating the command;
- * otherwise if the command re-enters the event loop we might
- * process commands from stdin before the current command is
- * finished. Among other things, this will trash the text of the
- * command being evaluated.
- */
-
- Tcl_CreateChannelHandler(chan, 0, StdinProc, (ClientData) chan);
-
-
- /*
- * Disable the stdin file handler while evaluating the command;
- * otherwise if the command re-enters the event loop we might
- * process commands from stdin before the current command is
- * finished. Among other things, this will trash the text of the
- * command being evaluated.
- */
-
-#ifdef _TK
- // Tk_CreateFileHandler(0, 0, StdinProc, (ClientData) 0);
-#endif
- //
- // xab average to avoid an output SIGBUS of DRAW
- // to ultimately prescise or remove once
- // the problem of free on the global variable at the average
- //
- //
-
- Interprete(cmd);
-
-
- Tcl_CreateChannelHandler(chan, TCL_READABLE, StdinProc,
- (ClientData) chan);
- Tcl_DStringFree(&command);
-
- /*
- * Output a prompt.
- */
-
-prompt:
- if (tty) Prompt(Draw::GetInterpretor().Interp(), gotPartial);
-
- } catch (Standard_Failure const&) {}
-
-}
-
-#else
-
-// Source Specifique WNT
-
-/****************************************************\
-* Draw_Window.cxx :
-*
-\****************************************************/
-
-#include "Draw_Window.hxx"
-#include "DrawRessource.h"
-#include "init.h"
-
-#include <Draw_Appli.hxx>
-#include <OSD.hxx>
-
-#ifdef HAVE_TK
- #include <tk.h>
-#endif
-
-#define PENWIDTH 1
-#define CLIENTWND 0
-// Position of information in the extra memory
-
-// indicates SUBSYSTEM:CONSOLE linker option, to be set to True in main()
-Standard_EXPORT
-Standard_Boolean Draw_IsConsoleSubsystem = Standard_False;
-
-
-Standard_Boolean Draw_BlackBackGround = Standard_True;
-
-// Creation of color stylos
-HPEN colorPenTab[MAXCOLOR] = {CreatePen(PS_SOLID, PENWIDTH, RGB(255,255,255)),
- CreatePen(PS_SOLID, PENWIDTH, RGB(255,0,0)),
- CreatePen(PS_SOLID, PENWIDTH, RGB(0,255,0)),
- CreatePen(PS_SOLID, PENWIDTH, RGB(0,0,255)),
- CreatePen(PS_SOLID, PENWIDTH, RGB(0,255,255)),
- CreatePen(PS_SOLID, PENWIDTH, RGB(255,215,0)),
- CreatePen(PS_SOLID, PENWIDTH, RGB(255,0,255)),
- CreatePen(PS_SOLID, PENWIDTH, RGB(255,52,179)),
- CreatePen(PS_SOLID, PENWIDTH, RGB(255,165,0)),
- CreatePen(PS_SOLID, PENWIDTH, RGB(255,228,225)),
- CreatePen(PS_SOLID, PENWIDTH, RGB(255,160,122)),
- CreatePen(PS_SOLID, PENWIDTH, RGB(199,21,133)),
- CreatePen(PS_SOLID, PENWIDTH, RGB(255,255,0)),
- CreatePen(PS_SOLID, PENWIDTH, RGB(240,230,140)),
- CreatePen(PS_SOLID, PENWIDTH, RGB(255,127,80))};
-
-// Correspondence mode X11 and WINDOWS NT
-int modeTab[16] = {R2_BLACK, R2_MASKPEN, R2_MASKPENNOT, R2_COPYPEN,
- R2_MASKNOTPEN, R2_NOP, R2_XORPEN, R2_MERGEPEN,
- R2_NOTMASKPEN, R2_NOTXORPEN, R2_NOT, R2_MERGEPENNOT,
- R2_NOTCOPYPEN, R2_MERGENOTPEN, R2_NOTMERGEPEN, R2_WHITE};
-
-/*--------------------------------------------------------*\
-| CREATE DRAW WINDOW PROCEDURE
-\*--------------------------------------------------------*/
-HWND DrawWindow::CreateDrawWindow(HWND hWndClient, int nitem)
-{
- if (Draw_IsConsoleSubsystem) {
- HWND aWin = CreateWindowW (DRAWCLASS, DRAWTITLE,
- WS_OVERLAPPEDWINDOW,
- 1,1,1,1,
- NULL, NULL,::GetModuleHandle(NULL), NULL);
- if (!Draw_VirtualWindows)
- {
- SetWindowPos(aWin, HWND_TOPMOST, 1,1,1,1, SWP_NOMOVE);
- SetWindowPos(aWin, HWND_NOTOPMOST, 1,1,1,1, SWP_NOMOVE);
- }
- return aWin;
- }
- else {
- HANDLE hInstance = (HANDLE )GetWindowLongPtrW (hWndClient, GWLP_HINSTANCE);
-
- return CreateMDIWindowW(DRAWCLASS, DRAWTITLE,
- WS_CAPTION | WS_CHILD | WS_THICKFRAME,
- 1,1,0,0,
- hWndClient, (HINSTANCE)hInstance, nitem);
- }
-}
-
-
-/*--------------------------------------------------------*\
-| DRAW WINDOW PROCEDURE
-\*--------------------------------------------------------*/
-LRESULT APIENTRY DrawWindow::DrawProc(HWND hWnd, UINT wMsg, WPARAM wParam, LPARAM lParam )
-{
- DrawWindow* localObjet = (DrawWindow* )GetWindowLongPtrW (hWnd, CLIENTWND);
- if (!localObjet)
- {
- return Draw_IsConsoleSubsystem
- ? DefWindowProcW (hWnd, wMsg, wParam, lParam)
- : DefMDIChildProcW (hWnd, wMsg, wParam, lParam);
- }
-
- switch (wMsg)
- {
- case WM_CLOSE:
- {
- localObjet->Hide();
- return 0; // do nothing - window destruction should be performed by application
- }
- case WM_PAINT:
- {
- PAINTSTRUCT ps;
- BeginPaint (hWnd, &ps);
- if (localObjet->GetUseBuffer())
- {
- localObjet->Redraw();
- }
- else
- {
- localObjet->WExpose();
- }
- EndPaint (hWnd, &ps);
- return 0;
- }
- case WM_SIZE:
- {
- if (localObjet->GetUseBuffer())
- {
- localObjet->InitBuffer();
- localObjet->WExpose();
- localObjet->Redraw();
- return 0;
- }
- break;
- }
- }
- return Draw_IsConsoleSubsystem
- ? DefWindowProcW (hWnd, wMsg, wParam, lParam)
- : DefMDIChildProcW (hWnd, wMsg, wParam, lParam);
-}
-
-
-
-/*
-** IMPLEMENTATION of the CLASS DRAWWINDOW
- */
-
-/*--------------------------------------------------------*\
-| Initialization of static variables of DrawWindow
-\*--------------------------------------------------------*/
-
-DrawWindow* DrawWindow::firstWindow = NULL;
-HWND DrawWindow::hWndClientMDI = 0;
-
-/*--------------------------------------------------------*\
-| Constructors of Draw_Window
-\*--------------------------------------------------------*/
-
-// Default Constructor
-//________________________
-DrawWindow::DrawWindow() :
- win(0),
- next(firstWindow),
- previous(NULL),
- myMemHbm(NULL),
- myUseBuffer(Standard_False),
- myCurrPen(0),
- myCurrMode(0)
-{
- if (firstWindow) firstWindow->previous = this;
- firstWindow = this;
-}
-
-//________________________
-DrawWindow::DrawWindow(const char* title,
- Standard_Integer X, Standard_Integer Y,
- Standard_Integer dX,Standard_Integer dY) :
- win(0), next(firstWindow), previous(NULL), myMemHbm(NULL), myUseBuffer(Standard_False)
-{
- if (firstWindow) firstWindow->previous = this;
- firstWindow = this;
- Init(X, Y, dX, dY);
- SetTitle(title);
-}
-DrawWindow::DrawWindow(const char* title,
- Standard_Integer X, Standard_Integer Y,
- Standard_Integer dX,Standard_Integer dY,
- HWND theWin) :
- win(theWin),next(firstWindow), previous(NULL), myMemHbm(NULL), myUseBuffer(Standard_False)
-{
- if (firstWindow) firstWindow->previous = this;
- firstWindow = this;
- Init(X, Y, dX, dY);
- SetTitle(title);
-}
-
-
-
-/*--------------------------------------------------------*\
-| Destructor of DrawWindow
-\*--------------------------------------------------------*/
-DrawWindow::~DrawWindow()
-{
- if (previous)
- previous->next = next;
- else
- firstWindow = next;
- if (next)
- next->previous = previous;
-
- // Delete 'off-screen drawing'-related objects
- if (myMemHbm) {
- DeleteObject(myMemHbm);
- myMemHbm = NULL;
- }
-}
-
-
-
-/*--------------------------------------------------------*\
-| Init
-\*--------------------------------------------------------*/
-void DrawWindow::Init(Standard_Integer theXLeft, Standard_Integer theYTop,
- Standard_Integer theWidth, Standard_Integer theHeight)
-{
- if (win == NULL)
- {
- win = CreateDrawWindow(hWndClientMDI, 0);
- }
-
- // include decorations in the window dimensions
- // to reproduce same behaviour of Xlib window.
- DWORD aWinStyle = GetWindowLongW (win, GWL_STYLE);
- DWORD aWinStyleEx = GetWindowLongW (win, GWL_EXSTYLE);
- HMENU aMenu = GetMenu (win);
-
- RECT aRect;
- aRect.top = theYTop;
- aRect.bottom = theYTop + theHeight;
- aRect.left = theXLeft;
- aRect.right = theXLeft + theWidth;
- AdjustWindowRectEx (&aRect, aWinStyle, aMenu != NULL ? TRUE : FALSE, aWinStyleEx);
-
- SetPosition (aRect.left, aRect.top);
- SetDimension (aRect.right - aRect.left, aRect.bottom - aRect.top);
- // Save the pointer at the instance associated to the window
- SetWindowLongPtrW (win, CLIENTWND, (LONG_PTR)this);
- HDC hDC = GetDC(win);
- SetBkColor(hDC, RGB(0, 0, 0));
- myCurrPen = 3;
- myCurrMode = 3;
- SelectObject(hDC, colorPenTab[myCurrPen]); // Default pencil
- SelectObject(hDC, GetStockObject(BLACK_BRUSH));
- SetTextColor(hDC, RGB(0,0,255));
- ReleaseDC(win, hDC);
-
- if (Draw_VirtualWindows)
- {
- // create a virtual window
- SetUseBuffer (Standard_True);
- }
-}
-
-/*--------------------------------------------------------*\
-| SetUseBuffer
-\*--------------------------------------------------------*/
-void DrawWindow::SetUseBuffer(Standard_Boolean use)
-{
- myUseBuffer = use;
- InitBuffer();
-}
-
-/*--------------------------------------------------------*\
-| InitBuffer
-\*--------------------------------------------------------*/
-void DrawWindow::InitBuffer()
-{
- if (myUseBuffer) {
- RECT rc;
- HDC hDC = GetDC(win);
- GetClientRect(win, &rc);
- if (myMemHbm) {
- BITMAP aBmp;
- GetObjectW (myMemHbm, sizeof(BITMAP), &aBmp);
- if (rc.right-rc.left == aBmp.bmWidth && rc.bottom-rc.top == aBmp.bmHeight) return;
- DeleteObject(myMemHbm);
- }
- myMemHbm = (HBITMAP)CreateCompatibleBitmap(hDC,
- rc.right-rc.left,
- rc.bottom-rc.top);
- HDC aMemDC = GetMemDC(hDC);
- FillRect(aMemDC, &rc, (HBRUSH)GetStockObject(BLACK_BRUSH));
- ReleaseMemDC(aMemDC);
- ReleaseDC(win, hDC);
- }
- else {
- if (myMemHbm) {
- DeleteObject(myMemHbm);
- myMemHbm = NULL;
- }
- }
-}
-
-/*--------------------------------------------------------*\
-| GetMemDC
-\*--------------------------------------------------------*/
-HDC DrawWindow::GetMemDC(HDC theWinDC)
-{
- if (!myUseBuffer) return NULL;
-
- HDC aWorkDC = CreateCompatibleDC(theWinDC);
- myOldHbm = (HBITMAP)SelectObject(aWorkDC, myMemHbm);
- SetROP2(aWorkDC, modeTab[myCurrMode]);
- SelectObject(aWorkDC, colorPenTab[myCurrPen]);
- SetBkColor(aWorkDC, RGB(0, 0, 0));
- SelectObject(aWorkDC, GetStockObject(BLACK_BRUSH));
- SetTextColor(aWorkDC, RGB(0,0,255));
- return aWorkDC;
-}
-
-
-/*--------------------------------------------------------*\
-| ReleaseMemDC
-\*--------------------------------------------------------*/
-void DrawWindow::ReleaseMemDC(HDC theMemDC)
-{
- if (!myUseBuffer || !theMemDC) return;
-
- if (myOldHbm) SelectObject(theMemDC, myOldHbm);
- DeleteDC(theMemDC);
-}
-
-
-/*--------------------------------------------------------*\
-| SetPosition
-\*--------------------------------------------------------*/
-void DrawWindow::SetPosition(Standard_Integer posX, Standard_Integer posY)
-{
- UINT aFlags = SWP_NOACTIVATE | SWP_NOSIZE | SWP_NOZORDER;
- if (Draw_VirtualWindows)
- {
- aFlags |= SWP_NOSENDCHANGING;
- }
- SetWindowPos (win, 0, posX, posY, 0, 0, aFlags);
-}
-
-
-/*--------------------------------------------------------*\
-| SetDimension
-\*--------------------------------------------------------*/
-void DrawWindow::SetDimension(Standard_Integer dimX, Standard_Integer dimY)
-{
- UINT aFlags = SWP_NOACTIVATE | SWP_NOMOVE | SWP_NOZORDER;
- if (Draw_VirtualWindows)
- {
- aFlags |= SWP_NOSENDCHANGING;
- }
- SetWindowPos (win, 0, 0, 0, dimX, dimY, aFlags);
-}
-
-
-/*--------------------------------------------------------*\
-| GetPosition
-\*--------------------------------------------------------*/
-void DrawWindow::GetPosition(Standard_Integer &dimX,
- Standard_Integer &dimY)
-{
- RECT rect;
- GetWindowRect(win, &rect);
-
- POINT point;
- point.x = rect.left;
- point.y = rect.top;
-
- ScreenToClient(hWndClientMDI, &point);
- dimX = point.x;
- dimY = point.y;
-}
-
-
-/*--------------------------------------------------------*\
-| HeightWin
-\*--------------------------------------------------------*/
-Standard_Integer DrawWindow::HeightWin() const
-{
- RECT rect;
- GetClientRect(win, &rect);
- return(rect.bottom-rect.top);
-}
-
-
-/*--------------------------------------------------------*\
-| WidthWin
-\*--------------------------------------------------------*/
-Standard_Integer DrawWindow::WidthWin() const
-{
- RECT rect;
- GetClientRect(win, &rect);
- return(rect.right-rect.left);
-}
-
-
-/*--------------------------------------------------------*\
-| SetTitle
-\*--------------------------------------------------------*/
-void DrawWindow::SetTitle (const TCollection_AsciiString& theTitle)
-{
- const TCollection_ExtendedString aTitleW (theTitle);
- SetWindowTextW (win, aTitleW.ToWideString());
-}
-
-
-/*--------------------------------------------------------*\
-| GetTitle
-\*--------------------------------------------------------*/
-TCollection_AsciiString DrawWindow::GetTitle() const
-{
- wchar_t aTitleW[32];
- GetWindowTextW (win, aTitleW, 30);
- return TCollection_AsciiString (aTitleW);
-}
-
-//=======================================================================
-//function : IsMapped
-//purpose :
-//=======================================================================
-bool Draw_Window::IsMapped() const
-{
- if (Draw_VirtualWindows
- || win == NULL)
- {
- return false;
- }
-
- LONG aWinStyle = GetWindowLongW (win, GWL_STYLE);
- return (aWinStyle & WS_VISIBLE) != 0
- && (aWinStyle & WS_MINIMIZE) == 0;
-}
-
-/*--------------------------------------------------------*\
-| DisplayWindow
-\*--------------------------------------------------------*/
-void DrawWindow::DisplayWindow()
-{
- if (Draw_VirtualWindows)
- {
- return;
- }
- ShowWindow (win, SW_SHOW);
- UpdateWindow (win);
-}
-
-
-/*--------------------------------------------------------*\
-| Hide
-\*--------------------------------------------------------*/
-void DrawWindow::Hide()
-{
- ShowWindow(win, SW_HIDE);
-}
-
-
-/*--------------------------------------------------------*\
-| Destroy
-\*--------------------------------------------------------*/
-void DrawWindow::Destroy()
-{
- DestroyWindow(win);
-}
-
-
-
-/*--------------------------------------------------------*\
-| Clear
-\*--------------------------------------------------------*/
-void DrawWindow::Clear()
-{
- HDC hDC = GetDC(win);
- HDC aWorkDC = myUseBuffer ? GetMemDC(hDC) : hDC;
-
- SaveDC(aWorkDC);
- SelectObject(aWorkDC,GetStockObject(BLACK_PEN));
- Rectangle(aWorkDC, 0, 0, WidthWin(), HeightWin());
- RestoreDC(aWorkDC,-1);
-
- if (myUseBuffer) ReleaseMemDC(aWorkDC);
- ReleaseDC(win,hDC);
-}
-
-/*--------------------------------------------------------*\
-| SaveBitmap
-\*--------------------------------------------------------*/
-static Standard_Boolean SaveBitmap (HBITMAP theHBitmap,
- const char* theFileName)
-{
- // Get information about the bitmap
- BITMAP aBitmap;
- if (GetObjectW (theHBitmap, sizeof(BITMAP), &aBitmap) == 0)
- {
- return Standard_False;
- }
-
- Image_AlienPixMap anImage;
- const Standard_Size aSizeRowBytes = ((Standard_Size(aBitmap.bmWidth) * 24 + 31) / 32) * 4; // 4 bytes alignment for GetDIBits()
- if (!anImage.InitTrash (Image_Format_BGR, Standard_Size(aBitmap.bmWidth), Standard_Size(aBitmap.bmHeight), aSizeRowBytes))
- {
- return Standard_False;
- }
- anImage.SetTopDown (false);
-
- // Setup image data
- BITMAPINFOHEADER aBitmapInfo;
- memset (&aBitmapInfo, 0, sizeof(BITMAPINFOHEADER));
- aBitmapInfo.biSize = sizeof(BITMAPINFOHEADER);
- aBitmapInfo.biWidth = aBitmap.bmWidth;
- aBitmapInfo.biHeight = aBitmap.bmHeight; // positive means bottom-up!
- aBitmapInfo.biPlanes = 1;
- aBitmapInfo.biBitCount = 24;
- aBitmapInfo.biCompression = BI_RGB;
-
- // Copy the pixels
- HDC aDC = GetDC (NULL);
- Standard_Boolean isSuccess = GetDIBits (aDC, theHBitmap,
- 0, // first scan line to set
- aBitmap.bmHeight, // number of scan lines to copy
- anImage.ChangeData(), // array for bitmap bits
- (LPBITMAPINFO )&aBitmapInfo, // bitmap data info
- DIB_RGB_COLORS) != 0;
- ReleaseDC (NULL, aDC);
- return isSuccess && anImage.Save (theFileName);
-}
-
-/*--------------------------------------------------------*\
-| Save
-\*--------------------------------------------------------*/
-Standard_Boolean DrawWindow::Save (const char* theFileName) const
-{
- if (myUseBuffer)
- {
- return SaveBitmap (myMemHbm, theFileName);
- }
-
- RECT aRect;
- GetClientRect (win, &aRect);
- int aWidth = aRect.right - aRect.left;
- int aHeight = aRect.bottom - aRect.top;
-
- // Prepare the DCs
- HDC aDstDC = GetDC (NULL);
- HDC aSrcDC = GetDC (win); // we copy only client area
- HDC aMemDC = CreateCompatibleDC (aDstDC);
projects / occt.git / blobdiff