windows/win.c

   1 /*
   2  * Window related functions
   3  *
   4  * Copyright 1993 Alexandre Julliard
   5  */
   6
   7 static char Copyright[] = "Copyright  Alexandre Julliard, 1993";
   8
   9 #include <X11/Intrinsic.h>
  10 #include <X11/StringDefs.h>
  11 #include <X11/Core.h>
  12 #include <X11/Shell.h>
  13 #include <X11/Xaw/Box.h>
  14
  15 #include "class.h"
  16 #include "win.h"
  17 #include "user.h"
  18
  19 extern Display * XT_display;
  20 extern Screen * XT_screen;
  21 extern Colormap COLOR_WinColormap;
  22
  23 static HWND firstWindow = 0;
  24
  25 void SCROLLBAR_CreateScrollBar(LPSTR className, LPSTR Label, HWND hwnd);
  26 void LISTBOX_CreateListBox(LPSTR className, LPSTR Label, HWND hwnd);
  27 void COMBOBOX_CreateComboBox(LPSTR className, LPSTR Label, HWND hwnd);
  28
  29 /***********************************************************************
  30  *           WIN_FindWndPtr
  31  *
  32  * Return a pointer to the WND structure corresponding to a HWND.
  33  */
  34 WND * WIN_FindWndPtr( HWND hwnd )
  35 {
  36     WND * ptr;
  37
  38     if (!hwnd) return NULL;
  39     ptr = (WND *) USER_HEAP_ADDR( hwnd );
  40     if (ptr->dwMagic != WND_MAGIC) return NULL;
  41     return ptr;
  42 }
  43
  44
  45 /***********************************************************************
  46  *           WIN_FindWinToRepaint
  47  *
  48  * Find a window that needs repaint.
  49  */
  50 HWND WIN_FindWinToRepaint( HWND hwnd )
  51 {
  52     WND * wndPtr;
  53
  54     if (!hwnd) hwnd = firstWindow;
  55     while (hwnd)
  56     {
  57         if (!(wndPtr = WIN_FindWndPtr( hwnd ))) return 0;
  58         if (wndPtr->hrgnUpdate) return hwnd;
  59         if (wndPtr->hwndChild)
  60         {
  61             HWND child;
  62             if ((child = WIN_FindWinToRepaint( wndPtr->hwndChild )))
  63                 return child;
  64         }
  65         hwnd = wndPtr->hwndNext;
  66     }
  67     return 0;
  68 }
  69
  70
  71 /***********************************************************************
  72  *           WIN_SendParentNotify
  73  *
  74  * Send a WM_PARENTNOTIFY to all ancestors of the given window, unless
  75  * the window has the WS_EX_NOPARENTNOTIFY style.
  76  */
  77 static void WIN_SendParentNotify( HWND hwnd, WND * wndPtr, WORD event )
  78 {
  79     HWND current = wndPtr->hwndParent;
  80
  81     if (wndPtr->dwExStyle & WS_EX_NOPARENTNOTIFY) return;
  82     while (current)
  83     {
  84         SendMessage( current, WM_PARENTNOTIFY,
  85                      event, MAKELONG( hwnd, wndPtr->wIDmenu ) );
  86         current = GetParent( current );
  87     }
  88 }
  89
  90
  91 /***********************************************************************
  92  *           CreateWindow   (USER.41)
  93  */
  94 HWND CreateWindow( LPSTR className, LPSTR windowName,
  95                    DWORD style, short x, short y, short width, short height,
  96                    HWND parent, HMENU menu, HANDLE instance, LPSTR data )
  97 {
  98     return CreateWindowEx( 0, className, windowName, style,
  99                            x, y, width, height, parent, menu, instance, data );
 100 }
 101
 102
 103 /***********************************************************************
 104  *           CreateWindowEx   (USER.452)
 105  */
 106 HWND CreateWindowEx( DWORD exStyle, LPSTR className, LPSTR windowName,
 107                      DWORD style, short x, short y, short width, short height,
 108                      HWND parent, HMENU menu, HANDLE instance, LPSTR data )
 109 {
 110     HANDLE class, hwnd;
 111     CLASS *classPtr;
 112     WND *wndPtr, *parentPtr = NULL;
 113     CREATESTRUCT *createStruct;
 114     HANDLE hcreateStruct;
 115     int wmcreate;
 116
 117 #ifdef DEBUG_WIN
 118     printf( "CreateWindowEx: %s %s %d,%d %dx%d\n", className, windowName, x, y, width, height );
 119 #endif
 120
 121     if (x == CW_USEDEFAULT) x = 0;
 122     if (y == CW_USEDEFAULT) y = 0;
 123     if (width == CW_USEDEFAULT) width = 600;
 124     if (height == CW_USEDEFAULT) height = 400;
 125     if (!width) width = 1;
 126     if (!height) height = 1;
 127
 128       /* Find the parent and class */
 129
 130     if (parent)
 131     {
 132           /* Check if parent is valid */
 133         parentPtr = WIN_FindWndPtr( parent );
 134         if (!parent) return 0;
 135     }
 136     else if (style & WS_CHILD) return 0;  /* WS_CHILD needs a parent */
 137
 138     if (!(class = CLASS_FindClassByName( className, &classPtr )))
 139         return 0;
 140
 141       /* Create the window structure */
 142
 143     hwnd = USER_HEAP_ALLOC(GMEM_MOVEABLE, sizeof(WND)+classPtr->wc.cbWndExtra);
 144     if (!hwnd) return 0;
 145
 146       /* Fill the structure */
 147
 148     wndPtr = (WND *) USER_HEAP_ADDR( hwnd );
 149     wndPtr->hwndNext   = 0;
 150     wndPtr->hwndChild  = 0;
 151     wndPtr->dwMagic    = WND_MAGIC;
 152     wndPtr->hwndParent = parent;
 153     wndPtr->hwndOwner  = parent;  /* What else? */
 154     wndPtr->hClass     = class;
 155     wndPtr->hInstance  = instance;
 156     wndPtr->rectClient.left   = x;
 157     wndPtr->rectClient.top    = y;
 158     wndPtr->rectClient.right  = x + width;
 159     wndPtr->rectClient.bottom = y + height;
 160     wndPtr->rectWindow        = wndPtr->rectClient;
 161     wndPtr->hrgnUpdate        = 0;
 162     wndPtr->hwndLastActive    = 0;
 163     wndPtr->lpfnWndProc       = classPtr->wc.lpfnWndProc;
 164     wndPtr->dwStyle           = style;
 165     wndPtr->dwExStyle         = exStyle;
 166     wndPtr->hmenuSystem       = 0;
 167     wndPtr->wIDmenu           = menu;
 168     wndPtr->hText             = 0;
 169     wndPtr->flags             = 0;
 170
 171     if (classPtr->wc.cbWndExtra)
 172         memset( wndPtr->wExtra, 0, classPtr->wc.cbWndExtra );
 173     if (classPtr->wc.style & CS_OWNDC)
 174         wndPtr->hdc = CreateDC( "DISPLAY", NULL, NULL, NULL);
 175     else wndPtr->hdc = 0;
 176     classPtr->cWindows++;
 177
 178       /* Insert the window in the linked list */
 179
 180     if (parent)
 181     {
 182         wndPtr->hwndNext = parentPtr->hwndChild;
 183         parentPtr->hwndChild = hwnd;
 184     }
 185     else  /* Top-level window */
 186     {
 187         wndPtr->hwndNext = firstWindow;
 188         firstWindow = hwnd;
 189     }
 190
 191     if (!strcasecmp(className, "SCROLLBAR"))
 192     {
 193         SCROLLBAR_CreateScrollBar(className, windowName, hwnd);
 194         goto WinCreated;
 195     }
 196     if (!strcasecmp(className, "LISTBOX"))
 197     {
 198         LISTBOX_CreateListBox(className, windowName, hwnd);
 199         goto WinCreated;
 200     }
 201     if (!strcasecmp(className, "COMBOBOX"))
 202     {
 203         COMBOBOX_CreateComboBox(className, windowName, hwnd);
 204         goto WinCreated;
 205     }
 206       /* Create the widgets */
 207
 208     if (style & WS_CHILD)
 209     {
 210         wndPtr->shellWidget = 0;
 211         if (style & (WS_BORDER | WS_DLGFRAME | WS_THICKFRAME))
 212         {
 213             int borderCol = 0;
 214             if (COLOR_WinColormap == DefaultColormapOfScreen(XT_screen))
 215                 borderCol = BlackPixelOfScreen(XT_screen);
 216             wndPtr->winWidget = XtVaCreateManagedWidget(className,
 217                                                     compositeWidgetClass,
 218                                                     parentPtr->winWidget,
 219                                                     XtNx, x,
 220                                                     XtNy, y,
 221                                                     XtNwidth, width,
 222                                                     XtNheight, height,
 223                                                     XtNborderColor, borderCol,
 224                                                     NULL );
 225         }
 226         else
 227         {
 228             wndPtr->winWidget = XtVaCreateManagedWidget(className,
 229                                                     compositeWidgetClass,
 230                                                     parentPtr->winWidget,
 231                                                     XtNx, x,
 232                                                     XtNy, y,
 233                                                     XtNwidth, width,
 234                                                     XtNheight, height,
 235                                                     XtNborderWidth, 0,
 236                                                     NULL );
 237         }
 238     }
 239     else
 240     {
 241         wndPtr->shellWidget = XtVaAppCreateShell(windowName,
 242                                                  className,
 243                                                  topLevelShellWidgetClass,
 244                                                  XT_display,
 245                                                  XtNx, x,
 246                                                  XtNy, y,
 247                                                  XtNcolormap, COLOR_WinColormap,
 248                                                  NULL );
 249         wndPtr->compositeWidget = XtVaCreateManagedWidget(className,
 250                                                     formWidgetClass,
 251                                                     wndPtr->shellWidget,
 252                                                     NULL );
 253         if (wndPtr->wIDmenu == 0)
 254         {
 255             wndPtr->menuBarPtr =
 256                     MENU_CreateMenuBar(wndPtr->compositeWidget,
 257                                        instance, hwnd,
 258                                        classPtr->wc.lpszMenuName,
 259                                        width);
 260             if (wndPtr->menuBarPtr)
 261                     wndPtr->wIDmenu =
 262                         GlobalHandleFromPointer(wndPtr->menuBarPtr->firstItem);
 263         }
 264         else
 265         {
 266             wndPtr->menuBarPtr = MENU_UseMenu(wndPtr->compositeWidget,
 267                                                   instance, hwnd,
 268                                                   wndPtr->wIDmenu, width);
 269         }
 270
 271         if (wndPtr->menuBarPtr != NULL)
 272         {
 273             wndPtr->winWidget =
 274                     XtVaCreateManagedWidget(className,
 275                                             compositeWidgetClass,
 276                                             wndPtr->compositeWidget,
 277                                             XtNwidth, width,
 278                                             XtNheight, height,
 279                                             XtNfromVert,
 280                                             wndPtr->menuBarPtr->menuBarWidget,
 281                                             XtNvertDistance, 4,
 282                                             NULL );
 283         }
 284         else
 285         {
 286             wndPtr->winWidget =
 287                     XtVaCreateManagedWidget(className,
 288                                         compositeWidgetClass,
 289                                         wndPtr->compositeWidget,
 290                                         XtNwidth, width,
 291                                         XtNheight, height,
 292                                         NULL );
 293         }
 294     }
 295
 296 WinCreated:
 297
 298       /* Send the WM_CREATE message */
 299
 300     hcreateStruct = GlobalAlloc( GMEM_MOVEABLE, sizeof(CREATESTRUCT) );
 301     createStruct = (CREATESTRUCT *) GlobalLock( hcreateStruct );
 302     createStruct->lpCreateParams = data;
 303     createStruct->hInstance      = instance;
 304     createStruct->hMenu          = menu;
 305     createStruct->hwndParent     = parent;
 306     createStruct->cx             = width;
 307     createStruct->cy             = height;
 308     createStruct->x              = x;
 309     createStruct->y              = y;
 310     createStruct->style          = style;
 311     createStruct->lpszName       = windowName;
 312     createStruct->lpszClass      = className;
 313     createStruct->dwExStyle      = 0;
 314
 315     wmcreate = SendMessage( hwnd, WM_NCCREATE, 0, (LONG)createStruct );
 316     if (!wmcreate) wmcreate = -1;
 317     else wmcreate = SendMessage( hwnd, WM_CREATE, 0, (LONG)createStruct );
 318
 319     GlobalUnlock( hcreateStruct );
 320     GlobalFree( hcreateStruct );
 321
 322     if (wmcreate == -1)
 323     {
 324           /* Abort window creation */
 325         if (wndPtr->shellWidget) XtDestroyWidget( wndPtr->shellWidget );
 326         else XtDestroyWidget( wndPtr->winWidget );
 327         USER_HEAP_FREE( hwnd );
 328         return 0;
 329     }
 330
 331     EVENT_AddHandlers( wndPtr->winWidget, hwnd );
 332
 333     if (style & WS_VISIBLE) ShowWindow( hwnd, SW_SHOW );
 334     WIN_SendParentNotify( hwnd, wndPtr, WM_CREATE );
 335     return hwnd;
 336 }
 337
 338 /***********************************************************************
 339  *           DestroyWindow   (USER.53)
 340  */
 341 BOOL DestroyWindow( HWND hwnd )
 342 {
 343     WND * wndPtr;
 344     HWND * curWndPtr;
 345     CLASS * classPtr;
 346
 347       /* Initialisation */
 348
 349     if (!(wndPtr = WIN_FindWndPtr( hwnd ))) return FALSE;
 350     if (!(classPtr = CLASS_FindClassPtr( wndPtr->hClass ))) return FALSE;
 351     WIN_SendParentNotify( hwnd, wndPtr, WM_DESTROY );
 352
 353       /* Send destroy messages */
 354
 355     SendMessage( hwnd, WM_DESTROY, 0, 0 );
 356     SendMessage( hwnd, WM_NCDESTROY, 0, 0 );
 357
 358       /* Destroy all children */
 359
 360     while (wndPtr->hwndChild)  /* The child removes itself from the list */
 361         DestroyWindow( wndPtr->hwndChild );
 362
 363       /* Remove the window from the linked list */
 364
 365     if (wndPtr->hwndParent)
 366     {
 367         WND * parentPtr = WIN_FindWndPtr( wndPtr->hwndParent );
 368         curWndPtr = &parentPtr->hwndChild;
 369     }
 370     else curWndPtr = &firstWindow;
 371
 372     while (*curWndPtr != hwnd)
 373     {
 374         WND * curPtr = WIN_FindWndPtr( *curWndPtr );
 375         curWndPtr = &curPtr->hwndNext;
 376     }
 377     *curWndPtr = wndPtr->hwndNext;
 378
 379       /* Destroy the window */
 380
 381     if (wndPtr->shellWidget) XtDestroyWidget( wndPtr->shellWidget );
 382     else XtDestroyWidget( wndPtr->winWidget );
 383     if (wndPtr->hdc) DeleteDC( wndPtr->hdc );
 384     classPtr->cWindows--;
 385     USER_HEAP_FREE( hwnd );
 386     return TRUE;
 387 }
 388
 389
 390 /***********************************************************************
 391  *           GetWindowRect   (USER.32)
 392  */
 393 void GetWindowRect( HWND hwnd, LPRECT rect )
 394 {
 395     int x, y, width, height;
 396     WND * wndPtr = WIN_FindWndPtr( hwnd );
 397
 398     if (wndPtr)
 399     {
 400         XtVaGetValues(wndPtr->winWidget,
 401                       XtNx, &x, XtNy, &y,
 402                       XtNwidth, &width,
 403                       XtNheight, &height,
 404                       NULL );
 405         rect->left  = x & 0xffff;
 406         rect->top = y & 0xffff;
 407         rect->right  = width & 0xffff;
 408         rect->bottom = height & 0xffff;
 409     }
 410 }
 411
 412
 413 /***********************************************************************
 414  *           GetClientRect   (USER.33)
 415  */
 416 void GetClientRect( HWND hwnd, LPRECT rect )
 417 {
 418     int width, height;
 419     WND * wndPtr = WIN_FindWndPtr( hwnd );
 420
 421     rect->left = rect->top = rect->right = rect->bottom = 0;
 422     if (wndPtr)
 423     {
 424         XtVaGetValues(wndPtr->winWidget,
 425                       XtNwidth, &width,
 426                       XtNheight, &height,
 427                       NULL );
 428         rect->right  = width & 0xffff;
 429         rect->bottom = height & 0xffff;
 430     }
 431 }
 432
 433
 434 /***********************************************************************
 435  *           ShowWindow   (USER.42)
 436  */
 437 BOOL ShowWindow( HWND hwnd, int cmd )
 438 {
 439     int width, height;
 440
 441     WND * wndPtr = WIN_FindWndPtr( hwnd );
 442     if (wndPtr)
 443     {
 444         if (wndPtr->shellWidget) XtRealizeWidget( wndPtr->shellWidget );
 445         XtVaGetValues(wndPtr->winWidget,
 446                       XtNwidth, &width,
 447                       XtNheight, &height,
 448                       NULL );
 449         SendMessage( hwnd, WM_SIZE, SIZE_RESTORED,
 450                      (width & 0xffff) | (height << 16) );
 451         SendMessage( hwnd, WM_SHOWWINDOW, TRUE, 0 );
 452 /*
 453         printf("ShowWindow(%X, %X); !\n", hwnd, cmd);
 454 */
 455         switch(cmd)
 456             {
 457             case SW_HIDE:
 458                 XtSetMappedWhenManaged(wndPtr->winWidget, FALSE);
 459                 break;
 460             case SW_SHOWNA:
 461             case SW_SHOWMINNOACTIVE:
 462             case SW_SHOWNOACTIVATE:
 463             case SW_MINIMIZE:
 464             case SW_MAXIMIZE:
 465             case SW_SHOWMAXIMIZED:
 466             case SW_SHOWMINIMIZED:
 467             case SW_SHOW:
 468             case SW_NORMAL:
 469             case SW_SHOWNORMAL:
 470                 XtSetMappedWhenManaged(wndPtr->winWidget, TRUE);
 471                 break;
 472             default:
 473                 break;
 474             }
 475     }
 476     return TRUE;
 477 }
 478
 479
 480 /***********************************************************************
 481  *           MoveWindow   (USER.56)
 482  */
 483 void MoveWindow(HWND hWnd, short x, short y, short w, short h, BOOL bRepaint)
 484 {
 485     WND * wndPtr = WIN_FindWndPtr( hWnd );
 486     if (wndPtr)
 487     {
 488         wndPtr->rectClient.left   = x;
 489         wndPtr->rectClient.top    = y;
 490         wndPtr->rectClient.right  = x + w;
 491         wndPtr->rectClient.bottom = y + h;
 492         XtVaSetValues(wndPtr->winWidget, XtNx, x, XtNy, y,
 493                       XtNwidth, w, XtNheight, h, NULL );
 494         SendMessage(hWnd, WM_MOVE, 0, MAKELONG(x, y));
 495         printf("MoveWindow(%X, %d, %d, %d, %d, %d); !\n",
 496                         hWnd, x, y, w, h, bRepaint);
 497         if (bRepaint) {
 498             InvalidateRect(hWnd, NULL, TRUE);
 499             UpdateWindow(hWnd);
 500             }
 501     }
 502 }
 503
 504
 505 /***********************************************************************
 506  *           UpdateWindow   (USER.124)
 507  */
 508 void UpdateWindow( HWND hwnd )
 509 {
 510     if (GetUpdateRect( hwnd, NULL, FALSE ))
 511         SendMessage( hwnd, WM_PAINT, 0, 0 );
 512 }
 513
 514 /**********************************************************************
 515  *           GetMenu        (USER.157)
 516  */
 517 HMENU GetMenu( HWND hwnd )
 518 {
 519     WND * wndPtr = WIN_FindWndPtr(hwnd);
 520     if (wndPtr == NULL)
 521         return 0;
 522     return wndPtr->wIDmenu;
 523 }
 524
 525 /**********************************************************************
 526  *           SetMenu        (USER.158)
 527  */
 528 BOOL SetMenu(HWND hwnd, HMENU hmenu)
 529 {
 530     WND *wndPtr;
 531
 532     wndPtr = WIN_FindWndPtr(hwnd);
 533     if (wndPtr == NULL)
 534         return FALSE;
 535
 536     if (wndPtr->dwStyle & WS_CHILD) return FALSE;
 537
 538     if (wndPtr->menuBarPtr != NULL)
 539     {
 540         XtVaSetValues(wndPtr->winWidget, XtNfromVert, NULL, NULL);
 541         MENU_CollapseMenu(wndPtr->menuBarPtr);
 542     }
 543
 544     wndPtr->menuBarPtr = MENU_UseMenu(wndPtr->compositeWidget,
 545                                       wndPtr->hInstance, hwnd, hmenu,
 546                                       wndPtr->rectClient.right -
 547                                       wndPtr->rectClient.left);
 548
 549     if (wndPtr->menuBarPtr != NULL)
 550     {
 551         XtVaSetValues(wndPtr->winWidget,
 552                       XtNfromVert, wndPtr->menuBarPtr->menuBarWidget,
 553                       XtNvertDistance, 4,
 554                       NULL);
 555     }
 556     else
 557     {
 558         if (wndPtr->wIDmenu != 0)
 559         {
 560             wndPtr->menuBarPtr = MENU_UseMenu(wndPtr->compositeWidget,
 561                                               wndPtr->hInstance, hwnd,
 562                                               wndPtr->wIDmenu,
 563                                               wndPtr->rectClient.right -
 564                                               wndPtr->rectClient.left);
 565         }
 566         return FALSE;
 567     }
 568
 569     return TRUE;
 570 }
 571
 572
 573 /***********************************************************************
 574  *           SetWindowPos   (USER.232)
 575  */
 576 void SetWindowPos(HWND hWnd, HWND hWndInsertAfter, short x, short y, short w, short h, WORD wFlag)
 577 {
 578     WND * wndPtr = WIN_FindWndPtr( hWnd );
 579     if (wndPtr)
 580     {
 581         if ((wFlag & SWP_NOMOVE) == 0) {
 582             wndPtr->rectClient.left   = x;
 583             wndPtr->rectClient.top    = y;
 584             XtVaSetValues(wndPtr->winWidget, XtNx, x, XtNy, y, NULL );
 585             }
 586         if ((wFlag & SWP_NOSIZE) == 0) {
 587             wndPtr->rectClient.right  = x + w;
 588             wndPtr->rectClient.bottom = y + h;
 589             XtVaSetValues(wndPtr->winWidget, XtNwidth, w, XtNheight, h, NULL );
 590             }
 591         if ((wFlag & SWP_NOREDRAW) == 0) {
 592             InvalidateRect(hWnd, NULL, TRUE);
 593             UpdateWindow(hWnd);
 594             }
 595         if ((wFlag & SWP_HIDEWINDOW) == SWP_HIDEWINDOW)
 596             ShowWindow(hWnd, SW_HIDE);
 597         if ((wFlag & SWP_SHOWWINDOW) == SWP_SHOWWINDOW)
 598             ShowWindow(hWnd, SW_SHOW);
 599 /*
 600         if ((wFlag & SWP_NOACTIVATE) == 0)
 601             SetActiveWindow(hWnd);
 602 */
 603         printf("SetWindowPos(%X, %X, %d, %d, %d, %d, %X); !\n",
 604                 hWnd, hWndInsertAfter, x, y, w, h, wFlag);
 605     }
 606 }
 607
 608
 609 /**********************************************************************
 610  *           GetDesktopWindow        (USER.286)
 611  */
 612 HWND GetDesktopWindow()
 613 {
 614     return 0;
 615 }
 616
 617
 618
 619 /**********************************************************************
 620  *           GetWindowWord    (USER.133)
 621  */
 622 WORD GetWindowWord( HWND hwnd, short offset )
 623 {
 624     WND * wndPtr = WIN_FindWndPtr( hwnd );
 625     if (!wndPtr) return 0;
 626     if (offset >= 0) return *(WORD *)(((char *)wndPtr->wExtra) + offset);
 627     switch(offset)
 628     {
 629         case GWW_ID:         return wndPtr->wIDmenu;
 630         case GWW_HWNDPARENT: return wndPtr->hwndParent;
 631         case GWW_HINSTANCE:  return wndPtr->hInstance;
 632     }
 633     return 0;
 634 }
 635
 636
 637 /**********************************************************************
 638  *           SetWindowWord    (USER.134)
 639  */
 640 WORD SetWindowWord( HWND hwnd, short offset, WORD newval )
 641 {
 642     WORD *ptr, retval;
 643     WND * wndPtr = WIN_FindWndPtr( hwnd );
 644     if (!wndPtr) return 0;
 645     if (offset >= 0) ptr = (WORD *)(((char *)wndPtr->wExtra) + offset);
 646     else switch(offset)
 647     {
 648         case GWW_ID: ptr = &wndPtr->wIDmenu;
 649         case GWW_HINSTANCE: ptr = &wndPtr->hInstance;
 650         default: return 0;
 651     }
 652     retval = *ptr;
 653     *ptr = newval;
 654     return retval;
 655 }
 656
 657
 658 /**********************************************************************
 659  *           GetWindowLong    (USER.135)
 660  */
 661 LONG GetWindowLong( HWND hwnd, short offset )
 662 {
 663     WND * wndPtr = WIN_FindWndPtr( hwnd );
 664     if (!wndPtr) return 0;
 665     if (offset >= 0) return *(LONG *)(((char *)wndPtr->wExtra) + offset);
 666     switch(offset)
 667     {
 668         case GWL_STYLE:   return wndPtr->dwStyle;
 669         case GWL_EXSTYLE: return wndPtr->dwExStyle;
 670         case GWL_WNDPROC: return (LONG)wndPtr->lpfnWndProc;
 671     }
 672     return 0;
 673 }
 674
 675
 676 /**********************************************************************
 677  *           SetWindowLong    (USER.136)
 678  */
 679 LONG SetWindowLong( HWND hwnd, short offset, LONG newval )
 680 {
 681     LONG *ptr, retval;
 682     WND * wndPtr = WIN_FindWndPtr( hwnd );
 683     if (!wndPtr) return 0;
 684     if (offset >= 0) ptr = (LONG *)(((char *)wndPtr->wExtra) + offset);
 685     else switch(offset)
 686     {
 687         case GWL_STYLE:   ptr = &wndPtr->dwStyle;
 688         case GWL_EXSTYLE: ptr = &wndPtr->dwExStyle;
 689         case GWL_WNDPROC: ptr = (LONG *)(&wndPtr->lpfnWndProc);
 690         default: return 0;
 691     }
 692     retval = *ptr;
 693     *ptr = newval;
 694     return retval;
 695 }
 696
 697
 698 /*****************************************************************
 699  *         GetParent              (USER.46)
 700  */
 701 HWND GetParent(HWND hwnd)
 702 {
 703     WND *wndPtr = WIN_FindWndPtr(hwnd);
 704     return wndPtr->hwndParent;
 705 }
 706
 707
 708 /*******************************************************************
 709  *         GetWindowText          (USER.36)
 710  */
 711 int GetWindowText(HWND hwnd, LPSTR lpString, int nMaxCount)
 712 {
 713     return (int)SendMessage(hwnd, WM_GETTEXT, (WORD)nMaxCount,
 714                                               (DWORD)lpString);
 715 }
 716
 717 /*******************************************************************
 718  *         SetWindowText          (USER.37)
 719  */
 720 void SetWindowText(HWND hwnd, LPSTR lpString)
 721 {
 722     SendMessage(hwnd, WM_SETTEXT, (WORD)NULL, (DWORD)lpString);
 723 }
 724
 725 /*******************************************************************
 726  *         GetWindowTextLength    (USER.38)
 727  */
 728 int GetWindowTextLength(HWND hwnd)
 729 {
 730     return (int)SendMessage(hwnd, WM_GETTEXTLENGTH, (WORD)NULL,
 731                                                     (DWORD)NULL);
 732 }
 733
 734
 735 /*******************************************************************
 736  *         IsChild    (USER.48)
 737  */
 738 BOOL IsChild( HWND parent, HWND child )
 739 {
 740     HWND curChild;
 741     WND * parentPtr;
 742     WND * childPtr;
 743
 744     if (!(parentPtr = WIN_FindWndPtr( parent ))) return FALSE;
 745     curChild = parentPtr->hwndChild;
 746
 747     while (curChild)
 748     {
 749         if (curChild == child) return TRUE;
 750         if (IsChild( curChild, child )) return TRUE;
 751         if (!(childPtr = WIN_FindWndPtr( curChild ))) return FALSE;
 752         curChild = childPtr->hwndNext;
 753     }
 754     return FALSE;
 755 }
 756
 757
 758 /*******************************************************************
 759  *         GetTopWindow    (USER.229)
 760  */
 761 HWND GetTopWindow( HWND hwnd )
 762 {
 763     WND * wndPtr = WIN_FindWndPtr( hwnd );
 764     if (wndPtr) return wndPtr->hwndChild;
 765     else return 0;
 766 }
 767
 768
 769 /*******************************************************************
 770  *         GetWindow    (USER.262)
 771  */
 772 HWND GetWindow( HWND hwnd, WORD rel )
 773 {
 774     WND * wndPtr = WIN_FindWndPtr( hwnd );
 775     if (!wndPtr) return 0;
 776     switch(rel)
 777     {
 778     case GW_HWNDFIRST:
 779         if (wndPtr->hwndParent)
 780         {
 781             WND * parentPtr = WIN_FindWndPtr( wndPtr->hwndParent );
 782             return parentPtr->hwndChild;
 783         }
 784         else return firstWindow;
 785
 786     case GW_HWNDLAST:
 787         while (wndPtr->hwndNext)
 788         {
 789             hwnd = wndPtr->hwndNext;
 790             wndPtr = WIN_FindWndPtr( hwnd );
 791         }
 792         return hwnd;
 793
 794     case GW_HWNDNEXT:
 795         return wndPtr->hwndNext;
 796
 797     case GW_HWNDPREV:
 798         {
 799             HWND hwndPrev;
 800
 801             if (wndPtr->hwndParent)
 802             {
 803                 WND * parentPtr = WIN_FindWndPtr( wndPtr->hwndParent );
 804                 hwndPrev = parentPtr->hwndChild;
 805             }
 806             else hwndPrev = firstWindow;
 807             if (hwndPrev == hwnd) return 0;
 808             while (hwndPrev)
 809             {
 810                 wndPtr = WIN_FindWndPtr( hwndPrev );
 811                 if (wndPtr->hwndNext == hwnd) break;
 812                 hwndPrev = wndPtr->hwndNext;
 813             }
 814             return hwndPrev;
 815         }
 816
 817     case GW_OWNER:
 818         return wndPtr->hwndOwner;
 819
 820     case GW_CHILD:
 821         return wndPtr->hwndChild;
 822     }
 823     return 0;
 824 }
 825
 826
 827 /*******************************************************************
 828  *         GetNextWindow    (USER.230)
 829  */
 830 HWND GetNextWindow( HWND hwnd, WORD flag )
 831 {
 832     if ((flag != GW_HWNDNEXT) && (flag != GW_HWNDPREV)) return 0;
 833     return GetWindow( hwnd, flag );
 834 }