Return to RubberBand.c CVS log

Up to [Research Unix] / researchv9 / X11 / src / X.V11R1 / clients / uwm

researchv9-SUN3(old)

/* $Header: /var/lib/cvsd/repos/research/researchv9/X11/src/X.V11R1/clients/uwm/RubberBand.c,v 1.1.1.1 2018/04/24 17:22:00 root Exp $ */
/* derived from XCreateTerm.c */

#include <X11/copyright.h>

/*
 * Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts.
 *
 *                         All Rights Reserved
 *
 * Permission to use, copy, modify, and distribute this software and its
 * documentation for any purpose and without fee is hereby granted,
 * provided that the above copyright notice appear in all copies and that
 * both that copyright notice and this permission notice appear in
 * supporting documentation, and that the name of Digital Equipment
 * Corporation not be used in advertising or publicity pertaining to
 * distribution of the software without specific, written prior permission.
 *
 *
 * DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
 * ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
 * DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
 * ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
 * WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
 * ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
 * SOFTWARE.
 */

/*
 * MODIFICATION HISTORY
 *
 * 000 -- Loretta Guarino Reid, DEC Ultrix Engineering Group
 * 001 -- Ralph R. Swick, DEC/MIT Project Athena
 *	  tailor to uwm; use global resources created by uwm
 */

#include <stdio.h>
#include <strings.h>
#include <X11/Xlib.h>
#include <X11/Xutil.h>
#include <X11/cursorfont.h>

#include "uwm.h"

#define max(a,b) ( (a) > (b) ? (a) : (b) )
#define min(a,b) ( (a) > (b) ? (b) : (a) )
#define abs(a) ( (a) > 0 ? (a) : -(a))
#define makemult(a, b) ((b==1) ? (a) : (((int)((a) / (b))) * (b)) )

#define DCOUNT 2
#define PCOUNT 1 + (4 * 2 * DCOUNT)

#define BW	PBorderWidth		/* pop-up window border width */
#define IBW	PPadding		/* internal border width for pop-up */

AskUser(dpy, scr, window, x, y, width, height, hints)
	Display *dpy;
	int scr;
	Window window;
	int *x, *y, *width, *height;
	XSizeHints *hints;
	{
	/* XFontStruct *pfont; */
#define pfont	PFontInfo		/* text font for pop-up */
	Cursor ur, ul, ll, lr;          /* cursors for rubber banding    */
	int change_cursor = FALSE;
        int current_cursor;
        char *text;			/* text for prompt string       */
        int nz;                         /* count where zeros are        */
        int popw, poph;                 /* width and height of prompt window*/
        /* int pfore, pback; */         /* prompt foreground and background */
#define pback	 PTextBackground
	/* GC popGC, invertGC; */
	/* XGCValues xgc; */
#define popGC	 PopGC
#define invertGC DrawGC
        int x1, y1;                     /* location of mouse            */
        int x2, y2;                     /* other corner of box          */
        int rootx, rooty, mask;         /* for XQueryPointer          */
	Window root, subw;		/* for XQueryPointer */
        int xa = -1, ya = -1, xb = -1, yb = -1;
        int xinc, yinc;
        int minwidth, minheight;
        int maxwidth, maxheight;
        int defwidth, defheight;
        int chosen = -1;
        int stop = FALSE;
        int changed = TRUE;
        int doit = FALSE;
        int dx, dy;
	int delta;
	XPoint box[PCOUNT];
        int hsize, vsize;
        int zero = '0';                 /* zero offset for char conversion  */
        XEvent e;                 /* someplace to put the event   */
        int events;                     /* what events we want.             */
        Window pop;                     /* pop up prompt window         */
	int i;
	char *name;
	int width_offset, height_offset; /* to subtract if resize increments */

	if ((hints->flags & USPosition) && (hints->flags & USSize)) {
	  *x = hints->x;
	  *y = hints->y;
	  *width = hints->width;
	  *height = hints->height;
	  return;
	}
        if (!XFetchName(dpy, window, &name)) 
	  name = "Unnamed Window";

	ur = XCreateFontCursor(dpy, XC_ur_angle);
	ul = XCreateFontCursor(dpy, XC_ul_angle);
	ll = XCreateFontCursor(dpy, XC_ll_angle);
	lr = XCreateFontCursor(dpy, XC_lr_angle);
	current_cursor = ul;

	events = ButtonPressMask | ButtonReleaseMask;
	/* pfont = XLoadQueryFont(dpy, "fixed"); */

	/* 
	 * go get the mouse as soon as you can 
	 */

	while (1) {
	        int res;
		if ((res = XGrabPointer (dpy, RootWindow(dpy, scr), FALSE, events, 
		  GrabModeAsync, GrabModeAsync, None, ul, CurrentTime )) == 
		    GrabSuccess)
		  break;
		sleep (1);
	}
	nz = strlen(name);		/* compute number of characters */
	text = (char *)malloc( nz + 11 );
	(void) strcpy(text, name);
	(void) strcat(text, ": 000x000");
	nz += 9;
	popw = XTextWidth (pfont, text, nz) + 2 * IBW;
	poph = pfont->ascent+pfont->descent + 2 * IBW;

	/* pfore = WhitePixel(dpy, scr);
	 * pback = BlackPixel(dpy, scr);
         * xgc.foreground = pfore;
         * xgc.background = pback;
	 * xgc.font = pfont->fid;
	 * popGC = XCreateGC(dpy, RootWindow(dpy, scr),
	 *    GCForeground+GCBackground+GCFont, &xgc);
	 * xgc.function = GXinvert;
	 * xgc.subwindow_mode = IncludeInferiors;
	 * invertGC = XCreateGC(dpy, RootWindow(dpy, scr),
	 *   GCForeground+GCBackground+GCFont+GCFunction+GCSubwindowMode, &xgc);
	 */

	pop = XCreateSimpleWindow(dpy, RootWindow(dpy, scr), 
		0, 0, popw, poph, BW, pback, pback);
	XMapWindow (dpy, pop);

	if (hints->flags&PMinSize) {
	  minwidth = hints->min_width;
	  minheight = hints->min_height;
	} else {
	  minwidth = 0;
	  minheight = 0;
	}
	if (hints->flags&PMaxSize) {
	  maxwidth = max(hints->max_width, minwidth);
	  maxheight = max(hints->max_height, minheight);
	} else {
	  maxwidth = DisplayWidth(dpy, scr);
	  maxheight = DisplayHeight(dpy, scr);
	}
	if (hints->flags&PResizeInc) {
	  xinc = hints->width_inc;
	  yinc = hints->height_inc;
	} else {
	  xinc = 1;
	  yinc = 1;
	}
	if (hints->flags&PSize || hints->flags&USSize) {
	  defwidth = hints->width;
	  defheight = hints->height;
	} else if (hints->flags&PMinSize) {
	  defwidth = hints->min_width;
	  defheight = hints->min_height;
	} else if (hints->flags&PMaxSize) {
	  defwidth = hints->max_width;
	  defheight = hints->max_height;
        } else {
		long dummy;
		XGetGeometry(dpy, window, &dummy, &dummy, &dummy,
			     &defwidth, &defheight, &dummy, &dummy);
	}

      /* until there are better WM_HINTS, we'll assume that the client's
       * minimum width and height are the appropriate offsets to subtract
       * when resizing with an explicit resize increment.
       */
      if (hints->flags&PMinSize && hints->flags&PResizeInc) {
	  width_offset = hints->min_width;
	  height_offset = hints->min_height;
      } else
	  width_offset = height_offset = 0;
	

	XQueryPointer (dpy, RootWindow(dpy, scr), &root, &subw, 
	  &rootx, &rooty, &x1, &y1, &mask);
	hsize = minwidth; 
	vsize = minheight;
	x2 = x1+hsize; 
	y2 = y1+vsize;

	while (stop == FALSE) {
	    if ( (xb != max (x1, x2)) || (yb != max (y1, y2))
		||(xa != min (x1, x2)) || (ya != min (y1, y2)) ) {
		xa = min (x1, x2);
		ya = min (y1, y2);
		xb = max (x1, x2);
		yb = max (y1, y2);
		for ( i = 0; i < PCOUNT; i += 4) {
                    box[i].x = xa; box[i].y = ya;
                    if (i+1 == PCOUNT) break;
                    box[i+1].x = xb; box[i+1].y = ya;
                    box[i+2].x = xb; box[i+2].y = yb;
                    box[i+3].x = xa; box[i+3].y = yb;
                }
		doit = TRUE;
	    }
	    if (changed) {
	        int Hsize = (hsize - width_offset) / xinc;
		int Vsize = (vsize - height_offset) / yinc;
		int pos = 3;

		changed = FALSE;
		text[nz - 7] = (Hsize>99) ? (Hsize / 100 + zero)	: ' ';
		text[nz - 6] = (Hsize>9)  ? ((Hsize / 10) % 10 + zero)  : ' ';
		text[nz - 5] = Hsize % 10 + zero;
		if (Vsize>99) text[nz - pos--] = Vsize / 100 + zero;
		if (Vsize>9)  text[nz - pos--] = (Vsize / 10) % 10 + zero;
		text[nz - pos--]     = Vsize % 10 + zero;
		while (pos>0) text[nz - pos--] = ' ';
		XDrawImageString(dpy, pop, popGC, IBW, IBW+pfont->ascent,
			text, nz);
	    }
	    if (doit) {
		XDrawLines(dpy, RootWindow(dpy, scr), invertGC, box, PCOUNT, 
		  CoordModeOrigin);
	    }
            if (XPending(dpy) &&
		XCheckMaskEvent(dpy, ButtonPressMask|ButtonReleaseMask, &e)) {
                if ((chosen < 0) && (e.type == ButtonPress)) {
			x1 = x2 = ((XButtonEvent *)&e)->x;
                        y1 = y2 = ((XButtonEvent *)&e)->y;
                        chosen = ((XButtonEvent *)&e)->button;
			if (chosen == Button2)
				change_cursor = TRUE;
                }
                else if ((e.type == ButtonRelease) &&
                        ((((XButtonEvent *)&e)->button) == chosen)) {
                	x2 = ((XButtonEvent *)&e)->x;
                	y2 = ((XButtonEvent *)&e)->y;
                        stop = TRUE;
                }
		else
                        XQueryPointer (dpy, RootWindow(dpy, scr), &root, 
			  &subw, &rootx, &rooty, &x2, &y2, &mask);
            }
            else        XQueryPointer (dpy, RootWindow(dpy, scr), &root, 
	    		  &subw, &rootx, &rooty, &x2, &y2, &mask);
	    if (change_cursor) {
                if ((x2 >= x1) && (y2 >= y1) &&
                    current_cursor != lr) {
                    XChangeActivePointerGrab (dpy, events, lr, CurrentTime );
                    current_cursor = lr;
               }
                else if ((x2 >= x1) && (y2 < y1) &&
                         current_cursor != ur) {
                    XChangeActivePointerGrab (dpy, events, ur, CurrentTime );
                    current_cursor = ur;
                }
                else if ((x2 < x1) && (y2 >= y1) &&
                         current_cursor != ll) {
                    XChangeActivePointerGrab (dpy, events, ll, CurrentTime );
                    current_cursor = ll;
                }
                else if ((x2 < x1) && (y2 < y1) &&
                         (current_cursor != ul)) {
                    XChangeActivePointerGrab (dpy, events, ul, CurrentTime );
                    current_cursor = ul;
                }
	    }
	    if (chosen != Button2) {
		x1 = x2;
		y1 = y2;
		if (chosen >= 0) {
			x2 = defwidth;
			if (chosen == Button1)
				y2 = defheight;
			else
				y2 = (DisplayHeight(dpy, scr) - y1);
			x2 = x1 + x2;
			y2 = y1 + y2;
		}
	    }

	    dx = max(min(abs (x2 - x1), maxwidth), minwidth);
	    dx = makemult(dx-minwidth, xinc)+minwidth; 
	    dy = max(min(abs(y2 - y1), maxheight), minheight);
	    dy = makemult(dy-minheight, yinc)+minheight; 
	    
	    if (hints->flags & PAspect) {
                if ((dx * hints->max_aspect.y > dy * hints->max_aspect.x)) {
		   delta = makemult( 
		       (dx*hints->max_aspect.y/hints->max_aspect.x) - dy, 
		       yinc); 
		   if ((dy+delta) <= maxheight)  dy += delta;
		   else {
		     delta = makemult(
		        dx - hints->max_aspect.x * dy/hints->max_aspect.y, 
			xinc);
		     if ((dx-delta) >= minwidth) dx -= delta;
		   }
		}
                if (dx * hints->min_aspect.y < dy * hints->min_aspect.x) {
		   delta = makemult( 
		        (hints->min_aspect.x * dy/hints->min_aspect.y) - dx, 
			xinc);
		   if (dx+delta <= maxwidth) dx += delta;
		   else {
		     delta = makemult(
		       dy - (dx*hints->min_aspect.y / hints->min_aspect.x), 
		       yinc); 
		     if ((dy-delta) >= minheight) dy -= delta;
		   }
		}
		  
	    }

	    if (dx != hsize) {
	    	hsize = dx;
		changed = TRUE;
	    }
	    if (dy != vsize) {
	    	vsize = dy;
		changed = TRUE;
	    }
	    if (x2 < x1)
		x2 = x1 - dx;
	    else
		x2 = x1 + dx;

	    if (y2 < y1)
		y2 = y1 - dy;
	    else
	    	y2 = y1 + dy;
	}
	XUngrabPointer(dpy, CurrentTime);

	XDestroyWindow (dpy, pop);
	/* XFreeFont(dpy, pfont); */
	XFreeCursor (dpy, ur);
	XFreeCursor (dpy, ul);
	XFreeCursor (dpy, lr);
	XFreeCursor (dpy, ll);
	free(name);
	free(text);
	*x = min(x1, x2);
	*y = min(y1, y2);
	*width = hsize;
	*height = vsize;
	XSync(dpy, False);
	}

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.