FvwmPager.patch

   1 # This patch was created by anonymous user
   2 # After applying, when you click on a miniature window
   3 # in a pager with left mouse button, it will become focused
   4 # and will raise to the top
   5 # Clickong on miniature desktop doesn'd do anything.
   6
   7 diff -urN fvwm/modules/FvwmPager/x_pager.c fvwm.patched/modules/FvwmPager/x_pager.c
   8 --- fvwm/modules/FvwmPager/x_pager.c    2003-06-29 21:53:00.000000000 +0200
   9 +++ fvwm.patched/modules/FvwmPager/x_pager.c    2003-08-27 19:48:29.000000000 +0200
  10 @@ -1080,6 +1080,29 @@
  11      else if((Event->xbutton.button == 1)||
  12             (Event->xbutton.button == 2))
  13      {
  14 +               if( (Event->xbutton.button == 1) &&
  15 +                 (Event->xbutton.subwindow != None) )
  16 +               {
  17 +                 PagerWindow *t;
  18 +
  19 +                 t = Start;
  20 +                 while ((t != NULL)&&(t->PagerView != Event->xbutton.subwindow))
  21 +                   t= t->next;
  22 +
  23 +                 if(t==NULL)
  24 +                 {
  25 +                   t = Start;
  26 +                   while ((t != NULL)&&(t->IconView != Event->xbutton.subwindow))
  27 +                     t= t->next;
  28 +                 }
  29 +
  30 +                 if( t )
  31 +                 {
  32 +                   SendText(fd, "Silent Raise", t->w);
  33 +                   SendText(fd, "Silent Focus", t->w);
  34 +                 }
  35 +               }
  36 +
  37        for(i=0;i<ndesks;i++)
  38        {
  39         if(Event->xany.window == Desks[i].w)