Re: Swarm 1.3.1 Available

[Marcus G. Daniels]

>>>>> "EW" == Eric Werk <address@hidden> writes:

EW> I am compiling Swarm 1.3.1 on IRIX 6.4.

EW> During the make process, I get an error in "src/internal.m":

Try this:

$ cd $SWARMSRCDIR/src/tkobjc
$ patch < the-stuff-below
$ cd $SWARMBUILDDIR/src/tkobjc
$ make install

and then relink your app..

Index: internal.m
===================================================================
RCS file: /opt/src/hive/cvs/Swarm/swarm/src/tkobjc/internal.m,v
retrieving revision 1.105
retrieving revision 1.106
diff -c -r1.105 -r1.106
*** internal.m  1998/10/16 02:33:31     1.105
--- internal.m  1998/10/18 22:24:02     1.106
***************
*** 1036,1060 ****
                          "}\n}\n}\n", widgetName, widgetName];
  
          attr.override_redirect = True;
!         if (!XChangeWindowAttributes (display, topWindow,
!                                       CWOverrideRedirect, &attr))
!           abort ();
          for (i = 0; i < overlapCount; i++)
!           if (!XChangeWindowAttributes (display, overlapWindows[i],
!                                         CWOverrideRedirect,
!                                         &attr))
!             abort ();
  
          if (!XGetWindowAttributes (display, topWindow, &top_attr))
            abort ();
          if (top_attr.map_state == IsUnmapped)
!           if (!XMapWindow (display, topWindow))
!             abort ();
        retry:
          if (obscured)
            for (i = 0; i < overlapCount; i++)
!             if (!XUnmapWindow (display, overlapWindows[i]))
!               abort ();
          
          Tk_RestackWindow (tkwin, Above, NULL);
          while (Tk_DoOneEvent(TK_ALL_EVENTS|TK_DONT_WAIT));
--- 1036,1056 ----
                          "}\n}\n}\n", widgetName, widgetName];
  
          attr.override_redirect = True;
!         XChangeWindowAttributes (display, topWindow,
!                                  CWOverrideRedirect, &attr);
          for (i = 0; i < overlapCount; i++)
!           XChangeWindowAttributes (display, overlapWindows[i],
!                                    CWOverrideRedirect,
!                                    &attr);
  
          if (!XGetWindowAttributes (display, topWindow, &top_attr))
            abort ();
          if (top_attr.map_state == IsUnmapped)
!           XMapWindow (display, topWindow);
        retry:
          if (obscured)
            for (i = 0; i < overlapCount; i++)
!             XUnmapWindow (display, overlapWindows[i]);
          
          Tk_RestackWindow (tkwin, Above, NULL);
          while (Tk_DoOneEvent(TK_ALL_EVENTS|TK_DONT_WAIT));
***************
*** 1070,1090 ****
          x_pixmap_create_from_window (pixmap, window);
          
          if (top_attr.map_state == IsUnmapped)
!           if (!XUnmapWindow (display, topWindow))
!             abort ();
          attr.override_redirect = False;
!         if (!XChangeWindowAttributes (display, topWindow,
!                                       CWOverrideRedirect, &attr))
!           abort ();
          for (i = 0; i < overlapCount; i++)
            {
              if (obscured)
!               if (!XMapWindow (display, overlapWindows[i]))
!                 abort ();
!             if (!XChangeWindowAttributes (display, overlapWindows[i],
!                                           CWOverrideRedirect,
!                                           &attr))
!               abort ();
            }
          xfree (overlapWindows);
          [globalTkInterp eval: "bind %s <Visibility> {}\n", widgetName];
--- 1066,1082 ----
          x_pixmap_create_from_window (pixmap, window);
          
          if (top_attr.map_state == IsUnmapped)
!           XUnmapWindow (display, topWindow);
          attr.override_redirect = False;
!         XChangeWindowAttributes (display, topWindow,
!                                  CWOverrideRedirect, &attr);
          for (i = 0; i < overlapCount; i++)
            {
              if (obscured)
!               XMapWindow (display, overlapWindows[i]);
!             XChangeWindowAttributes (display, overlapWindows[i],
!                                      CWOverrideRedirect,
!                                      &attr);
            }
          xfree (overlapWindows);
          [globalTkInterp eval: "bind %s <Visibility> {}\n", widgetName];

                  ==================================
   Swarm-Support is for discussion of the technical details of the day
   to day usage of Swarm.  For list administration needs (esp.
   [un]subscribing), please send a message to <address@hidden>
   with "help" in the body of the message.
                  ==================================