← Back to branch summary

~ubuntu-branches/ubuntu/natty/perl-tk/natty

« back to all changes in this revision

Viewing changes to pTk/mTk/tixGeneric/tixMwm.c

  • Committer: Bazaar Package Importer
  • Author(s): Stephen Zander
  • Date: 2004-03-14 13:54:44 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20040314135444-prc09u2or4dbr3to
Tags: 1:800.025-2
http://bugs.debian.org/237942
Add xlibs-dev to Build-Depends:,
Closes: #237942

Show diffs side-by-side

added added

removed removed

Lines of Context:
pTk/mTk/tixGeneric/tixMwm.c
74
74
} PropMotifWmInfo;
75
75
 
76
76
typedef PropMotifWmInfo PropMwmInfo;
77
 
 
 
77
 
78
78
#endif  /* HAS_MOTIF_INC */
79
79
 
80
80
#define MWM_DECOR_UNKNOWN (-1)
299
299
 
300
300
    wmPtr->prop.flags = MWM_HINTS_DECORATIONS;
301
301
 
302
 
    if (XGetWindowProperty(Tk_Display(wmPtr->tkwin),Tk_WindowId(wmPtr->tkwin), 
 
302
    if (XGetWindowProperty(Tk_Display(wmPtr->tkwin),Tk_WindowId(wmPtr->tkwin),
303
303
        wmPtr->mwm_hints_atom, 0, PROP_MWM_HINTS_ELEMENTS,
304
304
        False, wmPtr->mwm_hints_atom, &actualType, &actualFormat, &numItems,
305
305
        &bytesAfter, (unsigned char **) & wmPtr->prop) == Success) {
365
365
            /*
366
366
             * Query all hints
367
367
             */
368
 
            sprintf(buff, "-border %d", 
 
368
            sprintf(buff, "-border %d",
369
369
                ((wmPtr->prop.decorations & MWM_DECOR_BORDER)!=0));
370
370
            Tcl_AppendElement(interp, buff);
371
371
 
372
 
            sprintf(buff, "-resizeh %d", 
 
372
            sprintf(buff, "-resizeh %d",
373
373
                ((wmPtr->prop.decorations &MWM_DECOR_RESIZEH)!=0));
374
374
            Tcl_AppendElement(interp, buff);
375
 
    
376
 
            sprintf(buff, "-title %d", 
 
375
 
 
376
            sprintf(buff, "-title %d",
377
377
                ((wmPtr->prop.decorations & MWM_DECOR_TITLE)!=0));
378
378
            Tcl_AppendElement(interp, buff);
379
 
    
380
 
            sprintf(buff, "-menu %d", 
 
379
 
 
380
            sprintf(buff, "-menu %d",
381
381
                ((wmPtr->prop.decorations & MWM_DECOR_MENU)!=0));
382
382
            Tcl_AppendElement(interp, buff);
383
 
    
384
 
            sprintf(buff, "-minimize %d", 
 
383
 
 
384
            sprintf(buff, "-minimize %d",
385
385
                ((wmPtr->prop.decorations&MWM_DECOR_MINIMIZE)!=0));
386
386
            Tcl_AppendElement(interp, buff);
387
 
    
388
 
            sprintf(buff, "-maximize %d", 
 
387
 
 
388
            sprintf(buff, "-maximize %d",
389
389
                ((wmPtr->prop.decorations&MWM_DECOR_MAXIMIZE)!=0));
390
390
            Tcl_AppendElement(interp, buff);
391
391
 
510
510
 
511
511
    protocol = Tk_InternAtom(wmPtr->tkwin, name);
512
512
    ptPtr = GetMwmProtocol(interp, wmPtr, protocol);
513
 
    
 
513
 
514
514
    if (ptPtr->menuMessage != NULL) {
515
515
        /* This may happen if "protocol add" called twice for the same name */
516
516
        ckfree(ptPtr->menuMessage);
654
654
     * Update the MWM menu items
655
655
     */
656
656
    XChangeProperty(Tk_Display(wmPtr->tkwin), Tk_WindowId(wmPtr->tkwin),
657
 
        mwm_menu_atom, mwm_menu_atom, 8, PropModeReplace, 
 
657
        mwm_menu_atom, mwm_menu_atom, 8, PropModeReplace,
658
658
        (unsigned char *)Tcl_DStringValue(&dString), Tcl_DStringLength(&dString));
659
659
 
660
660
    Tcl_DStringFree(&dString);
684
684
    if (argc == 0) {
685
685
        return TCL_OK;
686
686
    } else if (argc == 1) {
687
 
        master = (TkWindow *) Tk_NameToWindow(interp, argv[0], 
 
687
        master = (TkWindow *) Tk_NameToWindow(interp, argv[0],
688
688
            (Tk_Window)mainWindow);
689
689
        if (master == NULL) {
690
690
            return TCL_ERROR;
704
704
 * StructureProc --
705
705
 *
706
706
 *      Gets called in response to StructureNotify events in toplevels
707
 
 *      operated by the tixMwm command. 
 
707
 *      operated by the tixMwm command.
708
708
 *
709
709
 * Results:
710
710
 *      none
723
723
{
724
724
    register Tix_MwmInfo * wmPtr = (Tix_MwmInfo *) clientData;
725
725
    Tcl_HashEntry *hashPtr;
726
 
    
 
726
 
727
727
    if (eventPtr->type == DestroyNotify) {
728
728
        Tcl_HashSearch    hSearch;
729
729
        Tix_MwmProtocol * ptPtr;
816
816
{
817
817
    Tcl_HashEntry     * hashPtr;
818
818
    int                 isNew;
819
 
    Tix_MwmProtocol   * ptPtr; 
 
819
    Tix_MwmProtocol   * ptPtr;
820
820
 
821
821
    hashPtr = Tcl_CreateHashEntry(&wmPtr->protocols, (char*)protocol, &isNew);
822
822
    if (!isNew) {
880
880
        Window  top, parent, *children;
881
881
        unsigned int num_children;
882
882
        int     returnVal = 0;
883
 
        int     i;
 
883
        unsigned i;
884
884
 
885
885
        if (XQueryTree(Tk_Display(wmPtr->tkwin), root, &top, &parent,
886
886
            &children, &num_children)) {