diff options
Diffstat (limited to 'nx-X11/programs/xterm/scrollbar.c')
| -rw-r--r-- | nx-X11/programs/xterm/scrollbar.c | 682 |
1 files changed, 0 insertions, 682 deletions
diff --git a/nx-X11/programs/xterm/scrollbar.c b/nx-X11/programs/xterm/scrollbar.c deleted file mode 100644 index 6dccf6e56..000000000 --- a/nx-X11/programs/xterm/scrollbar.c +++ /dev/null @@ -1,682 +0,0 @@ -/* $XTermId: scrollbar.c,v 1.116 2005/11/03 13:17:28 tom Exp $ */ - -/* - * $Xorg: scrollbar.c,v 1.4 2000/08/17 19:55:09 cpqbld Exp $ - */ - -/* $XFree86: xc/programs/xterm/scrollbar.c,v 3.45 2005/11/03 13:17:28 dickey Exp $ */ - -/* - * Copyright 2000-2004,2005 by Thomas E. Dickey - * - * All Rights Reserved - * - * Permission is hereby granted, free of charge, to any person obtaining a - * copy of this software and associated documentation files (the - * "Software"), to deal in the Software without restriction, including - * without limitation the rights to use, copy, modify, merge, publish, - * distribute, sublicense, and/or sell copies of the Software, and to - * permit persons to whom the Software is furnished to do so, subject to - * the following conditions: - * - * The above copyright notice and this permission notice shall be included - * in all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS - * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF - * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. - * IN NO EVENT SHALL THE ABOVE LISTED COPYRIGHT HOLDER(S) BE LIABLE FOR ANY - * CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, - * TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE - * SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. - * - * Except as contained in this notice, the name(s) of the above copyright - * holders shall not be used in advertising or otherwise to promote the - * sale, use or other dealings in this Software without prior written - * authorization. - * - * - * 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. - */ - -#include <xterm.h> - -#include <X11/Xatom.h> - -#if defined(HAVE_LIB_XAW) -#include <X11/Xaw/Scrollbar.h> -#elif defined(HAVE_LIB_XAW3D) -#include <X11/Xaw3d/Scrollbar.h> -#elif defined(HAVE_LIB_NEXTAW) -#include <X11/neXtaw/Scrollbar.h> -#elif defined(HAVE_LIB_XAWPLUS) -#include <X11/XawPlus/Scrollbar.h> -#endif - -#include <data.h> -#include <error.h> -#include <menu.h> -#include <xcharmouse.h> - -/* - * The scrollbar's border overlaps the border of the vt100 window. If there - * is no border for the vt100, there can be no border for the scrollbar. - */ -#define SCROLLBAR_BORDER(xw) ((xw)->screen.scrollBarBorder) -#if OPT_TOOLBAR -#define ScrollBarBorder(xw) (BorderWidth(xw) ? SCROLLBAR_BORDER(xw) : 0) -#else -#define ScrollBarBorder(xw) SCROLLBAR_BORDER(xw) -#endif - -/* Event handlers */ - -static void ScrollTextTo PROTO_XT_CALLBACK_ARGS; -static void ScrollTextUpDownBy PROTO_XT_CALLBACK_ARGS; - -/* Resize the text window for a terminal screen, modifying the - * appropriate WM_SIZE_HINTS and taking advantage of bit gravity. - */ -void -DoResizeScreen(XtermWidget xw) -{ - TScreen *screen = &xw->screen; - - int border = 2 * xw->screen.border; - int min_wide = border + xw->screen.fullVwin.sb_info.width; - int min_high = border; -#if 1 /* ndef nothack */ - XSizeHints sizehints; - long supp; -#endif - XtGeometryResult geomreqresult; - Dimension reqWidth, reqHeight, repWidth, repHeight; -#ifndef NO_ACTIVE_ICON - struct _vtwin *saveWin = WhichVWin(screen); - - /* all units here want to be in the normal font units */ - WhichVWin(screen) = &screen->fullVwin; -#endif /* NO_ACTIVE_ICON */ - - /* - * I'm going to try to explain, as I understand it, why we - * have to do XGetWMNormalHints and XSetWMNormalHints here, - * although I can't guarantee that I've got it right. - * - * In a correctly written toolkit program, the Shell widget - * parses the user supplied geometry argument. However, - * because of the way xterm does things, the VT100 widget does - * the parsing of the geometry option, not the Shell widget. - * The result of this is that the Shell widget doesn't set the - * correct window manager hints, and doesn't know that the - * user has specified a geometry. - * - * The XtVaSetValues call below tells the Shell widget to - * change its hints. However, since it's confused about the - * hints to begin with, it doesn't get them all right when it - * does the SetValues -- it undoes some of what the VT100 - * widget did when it originally set the hints. - * - * To fix this, we do the following: - * - * 1. Get the sizehints directly from the window, going around - * the (confused) shell widget. - * 2. Call XtVaSetValues to let the shell widget know which - * hints have changed. Note that this may not even be - * necessary, since we're going to right ahead after that - * and set the hints ourselves, but it's good to put it - * here anyway, so that when we finally do fix the code so - * that the Shell does the right thing with hints, we - * already have the XtVaSetValues in place. - * 3. We set the sizehints directly, this fixing up whatever - * damage was done by the Shell widget during the - * XtVaSetValues. - * - * Gross, huh? - * - * The correct fix is to redo VTRealize, VTInitialize and - * VTSetValues so that font processing happens early enough to - * give back responsibility for the size hints to the Shell. - * - * Someday, we hope to have time to do this. Someday, we hope - * to have time to completely rewrite xterm. - */ - - TRACE(("DoResizeScreen\n")); - -#if 1 /* ndef nothack */ - /* - * NOTE: the hints and the XtVaSetValues() must match. - */ - TRACE(("%s@%d -- ", __FILE__, __LINE__)); - TRACE_WM_HINTS(xw); - if (!XGetWMNormalHints(screen->display, XtWindow(SHELL_OF(xw)), - &sizehints, &supp)) - bzero(&sizehints, sizeof(sizehints)); - - xtermSizeHints(xw, &sizehints, ScrollbarWidth(screen)); - - /* These are obsolete, but old clients may use them */ - sizehints.width = MaxCols(screen) * FontWidth(screen) + sizehints.min_width; - sizehints.height = MaxRows(screen) * FontHeight(screen) + sizehints.min_height; -#endif - - XSetWMNormalHints(screen->display, XtWindow(SHELL_OF(xw)), &sizehints); - - reqWidth = MaxCols(screen) * FontWidth(screen) + min_wide; - reqHeight = MaxRows(screen) * FontHeight(screen) + min_high; - - TRACE(("...requesting screensize chars %dx%d, pixels %dx%d\n", - MaxRows(screen), - MaxCols(screen), - reqHeight, reqWidth)); - - geomreqresult = XtMakeResizeRequest((Widget) xw, reqWidth, reqHeight, - &repWidth, &repHeight); - TRACE(("scrollbar.c XtMakeResizeRequest %dx%d -> %dx%d (status %d)\n", - reqHeight, reqWidth, - repHeight, repWidth, - geomreqresult)); - - if (geomreqresult == XtGeometryAlmost) { - TRACE(("...almost, retry screensize %dx%d\n", repHeight, repWidth)); - geomreqresult = XtMakeResizeRequest((Widget) xw, repWidth, - repHeight, NULL, NULL); - } -#if 1 /* ndef nothack */ - /* - * XtMakeResizeRequest() has the undesirable side-effect of clearing - * the window manager's hints, even on a failed request. This would - * presumably be fixed if the shell did its own work. - */ - if (sizehints.flags - && repHeight - && repWidth) { - sizehints.height = repHeight; - sizehints.width = repWidth; - TRACE_HINTS(&sizehints); - XSetWMNormalHints(screen->display, VShellWindow, &sizehints); - } -#endif - XSync(screen->display, FALSE); /* synchronize */ - if (XtAppPending(app_con)) - xevents(); - -#ifndef NO_ACTIVE_ICON - WhichVWin(screen) = saveWin; -#endif /* NO_ACTIVE_ICON */ -} - -static Widget -CreateScrollBar(XtermWidget xw, int x, int y, int height) -{ - Widget result; - Arg args[6]; - - XtSetArg(args[0], XtNx, x); - XtSetArg(args[1], XtNy, y); - XtSetArg(args[2], XtNheight, height); - XtSetArg(args[3], XtNreverseVideo, xw->misc.re_verse); - XtSetArg(args[4], XtNorientation, XtorientVertical); - XtSetArg(args[5], XtNborderWidth, ScrollBarBorder(xw)); - - result = XtCreateWidget("scrollbar", scrollbarWidgetClass, - (Widget) xw, args, XtNumber(args)); - XtAddCallback(result, XtNscrollProc, ScrollTextUpDownBy, 0); - XtAddCallback(result, XtNjumpProc, ScrollTextTo, 0); - return (result); -} - -void -ScrollBarReverseVideo(Widget scrollWidget) -{ - SbInfo *sb = &(term->screen.fullVwin.sb_info); - Arg args[4]; - Cardinal nargs = XtNumber(args); - - /* - * Remember the scrollbar's original colors. - */ - if (sb->rv_cached == False) { - XtSetArg(args[0], XtNbackground, &(sb->bg)); - XtSetArg(args[1], XtNforeground, &(sb->fg)); - XtSetArg(args[2], XtNborderColor, &(sb->bdr)); - XtSetArg(args[3], XtNborderPixmap, &(sb->bdpix)); - XtGetValues(scrollWidget, args, nargs); - sb->rv_cached = True; - sb->rv_active = 0; - } - - sb->rv_active = !(sb->rv_active); - XtSetArg(args[!(sb->rv_active)], XtNbackground, sb->bg); - XtSetArg(args[(sb->rv_active)], XtNforeground, sb->fg); - nargs = 2; /* don't set border_pixmap */ - if (sb->bdpix == XtUnspecifiedPixmap) { /* if not pixmap then pixel */ - if (sb->rv_active) { /* keep border visible */ - XtSetArg(args[2], XtNborderColor, args[1].value); - } else { - XtSetArg(args[2], XtNborderColor, sb->bdr); - } - nargs = 3; - } - XtSetValues(scrollWidget, args, nargs); -} - -void -ScrollBarDrawThumb(Widget scrollWidget) -{ - TScreen *screen = &term->screen; - int thumbTop, thumbHeight, totalHeight; - - thumbTop = screen->topline + screen->savedlines; - thumbHeight = MaxRows(screen); - totalHeight = thumbHeight + screen->savedlines; - - XawScrollbarSetThumb(scrollWidget, - ((float) thumbTop) / totalHeight, - ((float) thumbHeight) / totalHeight); -} - -void -ResizeScrollBar(XtermWidget xw) -{ - TScreen *screen = &(xw->screen); - - int height = screen->fullVwin.height + screen->border * 2; - int width = screen->scrollWidget->core.width; - int ypos = -ScrollBarBorder(xw); -#ifdef SCROLLBAR_RIGHT - int xpos = ((term->misc.useRight) - ? (screen->fullVwin.fullwidth - - screen->scrollWidget->core.width - - BorderWidth(screen->scrollWidget)) - : -ScrollBarBorder(xw)); -#else - int xpos = -ScrollBarBorder(xw); -#endif - - TRACE(("ResizeScrollBar at %d,%d %dx%d\n", ypos, xpos, height, width)); - - XtConfigureWidget( - screen->scrollWidget, - xpos, - ypos, - width, - height, - BorderWidth(screen->scrollWidget)); - ScrollBarDrawThumb(screen->scrollWidget); -} - -void -WindowScroll(TScreen * screen, int top) -{ - int i, lines; - int scrolltop, scrollheight, refreshtop; - - if (top < -screen->savedlines) - top = -screen->savedlines; - else if (top > 0) - top = 0; - if ((i = screen->topline - top) == 0) { - ScrollBarDrawThumb(screen->scrollWidget); - return; - } - - if (screen->cursor_state) - HideCursor(); - lines = i > 0 ? i : -i; - if (lines > MaxRows(screen)) - lines = MaxRows(screen); - scrollheight = screen->max_row - lines + 1; - if (i > 0) - refreshtop = scrolltop = 0; - else { - scrolltop = lines; - refreshtop = scrollheight; - } - scrolling_copy_area(screen, scrolltop, scrollheight, -i); - screen->topline = top; - - ScrollSelection(screen, i, True); - - XClearArea( - screen->display, - VWindow(screen), - OriginX(screen), - OriginY(screen) + refreshtop * FontHeight(screen), - (unsigned) Width(screen), - (unsigned) lines * FontHeight(screen), - FALSE); - ScrnRefresh(screen, refreshtop, 0, lines, MaxCols(screen), False); - - ScrollBarDrawThumb(screen->scrollWidget); -} - -#ifdef SCROLLBAR_RIGHT -/* - * Adjust the scrollbar position if we're asked to turn on scrollbars for the - * first time (or after resizing) after the xterm is already running. That - * makes the window grow after we've initially configured the scrollbar's - * position. (There must be a better way). - */ -void -updateRightScrollbar(XtermWidget xw) -{ - TScreen *screen = &xw->screen; - - if (xw->misc.useRight - && screen->fullVwin.fullwidth < xw->core.width) - XtVaSetValues(screen->scrollWidget, - XtNx, screen->fullVwin.fullwidth - BorderWidth(screen->scrollWidget), - (XtPointer) 0); -} - -#endif -void -ScrollBarOn(XtermWidget xw, int init, int doalloc) -{ - TScreen *screen = &xw->screen; - int i, j, k; - - if (screen->fullVwin.sb_info.width || IsIcon(screen)) - return; - - TRACE(("ScrollBarOn\n")); - if (init) { /* then create it only */ - if (screen->scrollWidget == 0) { - /* make it a dummy size and resize later */ - screen->scrollWidget = CreateScrollBar(xw, - -ScrollBarBorder(xw), - -ScrollBarBorder(xw), - 5); - if (screen->scrollWidget == NULL) { - Bell(XkbBI_MinorError, 0); - } - } - } else if (!screen->scrollWidget || !XtIsRealized((Widget) term)) { - Bell(XkbBI_MinorError, 0); - Bell(XkbBI_MinorError, 0); - } else { - - if (doalloc && screen->allbuf) { - /* FIXME: this is not integrated well with Allocate */ - if ((screen->allbuf = - TypeRealloc(ScrnPtr, - MAX_PTRS * (screen->max_row + 2 + screen->savelines), - screen->visbuf)) == NULL) { - SysError(ERROR_SBRALLOC); - } - screen->visbuf = &screen->allbuf[MAX_PTRS * screen->savelines]; - memmove((char *) screen->visbuf, (char *) screen->allbuf, - MAX_PTRS * (screen->max_row + 2) * sizeof(char *)); - for (i = k = 0; i < screen->savelines; i++) { - k += BUF_HEAD; - for (j = BUF_HEAD; j < MAX_PTRS; j++) { - if ((screen->allbuf[k++] = - TypeCallocN(Char, (unsigned) MaxCols(screen)) - ) == NULL) - SysError(ERROR_SBRALLOC2); - } - } - } - - ResizeScrollBar(xw); - xtermAddInput(screen->scrollWidget); - XtRealizeWidget(screen->scrollWidget); - TRACE_TRANS("scrollbar", screen->scrollWidget); - - screen->fullVwin.sb_info.rv_cached = False; - - screen->fullVwin.sb_info.width = (screen->scrollWidget->core.width - + BorderWidth(screen->scrollWidget)); - - TRACE(("setting scrollbar width %d = %d + %d\n", - screen->fullVwin.sb_info.width, - screen->scrollWidget->core.width, - BorderWidth(screen->scrollWidget))); - - ScrollBarDrawThumb(screen->scrollWidget); - DoResizeScreen(xw); - -#ifdef SCROLLBAR_RIGHT - updateRightScrollbar(term); -#endif - - XtMapWidget(screen->scrollWidget); - update_scrollbar(); - if (screen->visbuf) { - XClearWindow(screen->display, XtWindow(term)); - Redraw(); - } - } -} - -void -ScrollBarOff(TScreen * screen) -{ - if (!screen->fullVwin.sb_info.width || IsIcon(screen)) - return; - - TRACE(("ScrollBarOff\n")); - if (XtIsRealized((Widget) term)) { - XtUnmapWidget(screen->scrollWidget); - screen->fullVwin.sb_info.width = 0; - DoResizeScreen(term); - update_scrollbar(); - if (screen->visbuf) { - XClearWindow(screen->display, XtWindow(term)); - Redraw(); - } - } else { - Bell(XkbBI_MinorError, 0); - } -} - -/* - * Toggle the visibility of the scrollbars. - */ -void -ToggleScrollBar(XtermWidget w) -{ - TScreen *screen = &w->screen; - - if (IsIcon(screen)) { - Bell(XkbBI_MinorError, 0); - } else { - TRACE(("ToggleScrollBar{{\n")); - if (screen->fullVwin.sb_info.width) { - ScrollBarOff(screen); - } else { - ScrollBarOn(w, FALSE, FALSE); - } - update_scrollbar(); - TRACE(("...ToggleScrollBar}}\n")); - } -} - -/*ARGSUSED*/ -static void -ScrollTextTo( - Widget scrollbarWidget GCC_UNUSED, - XtPointer client_data GCC_UNUSED, - XtPointer call_data) -{ - float *topPercent = (float *) call_data; - TScreen *screen = &term->screen; - int thumbTop; /* relative to first saved line */ - int newTopLine; - - /* - * screen->savedlines : Number of offscreen text lines, - * MaxRows(screen) : Number of onscreen text lines, - * screen->topline : -Number of lines above the last screen->max_row+1 lines - */ - - thumbTop = (int) (*topPercent * (screen->savedlines + MaxRows(screen))); - newTopLine = thumbTop - screen->savedlines; - WindowScroll(screen, newTopLine); -} - -/*ARGSUSED*/ -static void -ScrollTextUpDownBy( - Widget scrollbarWidget GCC_UNUSED, - XtPointer client_data GCC_UNUSED, - XtPointer call_data) -{ - long pixels = (long) call_data; - - TScreen *screen = &term->screen; - int rowOnScreen, newTopLine; - - rowOnScreen = pixels / FontHeight(screen); - if (rowOnScreen == 0) { - if (pixels < 0) - rowOnScreen = -1; - else if (pixels > 0) - rowOnScreen = 1; - } - newTopLine = screen->topline + rowOnScreen; - WindowScroll(screen, newTopLine); -} - -/* - * assume that b is lower case and allow plural - */ -static int -specialcmplowerwiths(char *a, char *b, int *modifier) -{ - char ca, cb; - - *modifier = 0; - if (!a || !b) - return 0; - - while (1) { - ca = char2lower(*a); - cb = *b; - if (ca != cb || ca == '\0') - break; /* if not eq else both nul */ - a++, b++; - } - if (cb != '\0') - return 0; - - if (ca == 's') - ca = *++a; - - switch (ca) { - case '+': - case '-': - *modifier = (ca == '-' ? -1 : 1) * atoi(a + 1); - return 1; - - case '\0': - return 1; - - default: - return 0; - } -} - -static long -params_to_pixels(TScreen * screen, String * params, Cardinal n) -{ - int mult = 1; - char *s; - int modifier; - - switch (n > 2 ? 2 : n) { - case 2: - s = params[1]; - if (specialcmplowerwiths(s, "page", &modifier)) { - mult = (MaxRows(screen) + modifier) * FontHeight(screen); - } else if (specialcmplowerwiths(s, "halfpage", &modifier)) { - mult = ((MaxRows(screen) + modifier) * FontHeight(screen)) / 2; - } else if (specialcmplowerwiths(s, "pixel", &modifier)) { - mult = 1; - } else { - /* else assume that it is Line */ - mult = FontHeight(screen); - } - mult *= atoi(params[0]); - break; - case 1: - mult = atoi(params[0]) * FontHeight(screen); /* lines */ - break; - default: - mult = screen->scrolllines * FontHeight(screen); - break; - } - return mult; -} - -static long -AmountToScroll(Widget gw, String * params, Cardinal nparams) -{ - if (gw != 0) { - if (IsXtermWidget(gw)) { - TScreen *screen = &((XtermWidget) gw)->screen; - if (nparams > 2 - && screen->send_mouse_pos != MOUSE_OFF) - return 0; - return params_to_pixels(screen, params, nparams); - } else { - /* - * This may have been the scrollbar widget. Try its parent, which - * would be the VT100 widget. - */ - return AmountToScroll(XtParent(gw), params, nparams); - } - } - return 0; -} - -/*ARGSUSED*/ -void -HandleScrollForward( - Widget gw, - XEvent * event GCC_UNUSED, - String * params, - Cardinal *nparams) -{ - long amount; - - if ((amount = AmountToScroll(gw, params, *nparams)) != 0) { - ScrollTextUpDownBy(gw, (XtPointer) 0, (XtPointer) amount); - } -} - -/*ARGSUSED*/ -void -HandleScrollBack( - Widget gw, - XEvent * event GCC_UNUSED, - String * params, - Cardinal *nparams) -{ - long amount; - - if ((amount = -AmountToScroll(gw, params, *nparams)) != 0) { - ScrollTextUpDownBy(gw, (XtPointer) 0, (XtPointer) amount); - } -} |