/*********************************************************** Copyright (c) 1987, 1988, 1994 X Consortium 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 X CONSORTIUM 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 of the X Consortium shall not be used in advertising or otherwise to promote the sale, use or other dealings in this Software without prior written authorization from the X Consortium. Copyright 1987, 1988 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 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 #include #include #include #include #include static void ScrollUpDownProc(), ThumbProc(); static Boolean GetGeometry(); static void ComputeWithForceBars(); #define offset(field) XtOffsetOf(ViewportRec, viewport.field) static XtResource resources[] = { {XtNforceBars, XtCBoolean, XtRBoolean, sizeof(Boolean), offset(forcebars), XtRImmediate, (XtPointer)False}, {XtNallowHoriz, XtCBoolean, XtRBoolean, sizeof(Boolean), offset(allowhoriz), XtRImmediate, (XtPointer)False}, {XtNallowVert, XtCBoolean, XtRBoolean, sizeof(Boolean), offset(allowvert), XtRImmediate, (XtPointer)False}, {XtNuseBottom, XtCBoolean, XtRBoolean, sizeof(Boolean), offset(usebottom), XtRImmediate, (XtPointer)False}, {XtNuseRight, XtCBoolean, XtRBoolean, sizeof(Boolean), offset(useright), XtRImmediate, (XtPointer)False}, {XtNreportCallback, XtCReportCallback, XtRCallback, sizeof(XtPointer), offset(report_callbacks), XtRImmediate, (XtPointer) NULL}, }; #undef offset static void Initialize(), ConstraintInitialize(), Realize(), Resize(), ChangeManaged(); static Boolean SetValues(), Layout(); static XtGeometryResult GeometryManager(), PreferredGeometry(); #define superclass (&formClassRec) ViewportClassRec viewportClassRec = { { /* core_class fields */ /* superclass */ (WidgetClass) superclass, /* class_name */ "Viewport", /* widget_size */ sizeof(ViewportRec), /* class_initialize */ XawInitializeWidgetSet, /* class_part_init */ NULL, /* class_inited */ FALSE, /* initialize */ Initialize, /* initialize_hook */ NULL, /* realize */ Realize, /* actions */ NULL, /* num_actions */ 0, /* resources */ resources, /* num_resources */ XtNumber(resources), /* xrm_class */ NULLQUARK, /* compress_motion */ TRUE, /* compress_exposure */ TRUE, /* compress_enterleave*/ TRUE, /* visible_interest */ FALSE, /* destroy */ NULL, /* resize */ Resize, /* expose */ XtInheritExpose, /* set_values */ SetValues, /* set_values_hook */ NULL, /* set_values_almost */ XtInheritSetValuesAlmost, /* get_values_hook */ NULL, /* accept_focus */ NULL, /* version */ XtVersion, /* callback_private */ NULL, /* tm_table */ NULL, /* query_geometry */ PreferredGeometry, /* display_accelerator*/ XtInheritDisplayAccelerator, /* extension */ NULL }, { /* composite_class fields */ /* geometry_manager */ GeometryManager, /* change_managed */ ChangeManaged, /* insert_child */ XtInheritInsertChild, /* delete_child */ XtInheritDeleteChild, /* extension */ NULL }, { /* constraint_class fields */ /* subresourses */ NULL, /* subresource_count */ 0, /* constraint_size */ sizeof(ViewportConstraintsRec), /* initialize */ ConstraintInitialize, /* destroy */ NULL, /* set_values */ NULL, /* extension */ NULL }, { /* form_class fields */ /* layout */ Layout }, { /* viewport_class fields */ /* empty */ 0 } }; WidgetClass viewportWidgetClass = (WidgetClass)&viewportClassRec; static Widget CreateScrollbar(w, horizontal) ViewportWidget w; Boolean horizontal; { Widget clip = w->viewport.clip; ViewportConstraints constraints = (ViewportConstraints)clip->core.constraints; static Arg barArgs[] = { {XtNorientation, (XtArgVal) 0}, {XtNlength, (XtArgVal) 0}, {XtNleft, (XtArgVal) 0}, {XtNright, (XtArgVal) 0}, {XtNtop, (XtArgVal) 0}, {XtNbottom, (XtArgVal) 0}, {XtNmappedWhenManaged, (XtArgVal) False}, }; Widget bar; XtSetArg(barArgs[0], XtNorientation, horizontal ? XtorientHorizontal : XtorientVertical ); XtSetArg(barArgs[1], XtNlength, horizontal ? clip->core.width : clip->core.height); XtSetArg(barArgs[2], XtNleft, (!horizontal && w->viewport.useright) ? XtChainRight : XtChainLeft); XtSetArg(barArgs[3], XtNright, (!horizontal && !w->viewport.useright) ? XtChainLeft : XtChainRight); XtSetArg(barArgs[4], XtNtop, (horizontal && w->viewport.usebottom) ? XtChainBottom : XtChainTop); XtSetArg(barArgs[5], XtNbottom, (horizontal && !w->viewport.usebottom) ? XtChainTop : XtChainBottom); bar = XtCreateWidget((horizontal ? "horizontal" : "vertical"), scrollbarWidgetClass, (Widget)w, barArgs, XtNumber(barArgs) ); XtAddCallback( bar, XtNscrollProc, ScrollUpDownProc, (XtPointer)w ); XtAddCallback( bar, XtNjumpProc, ThumbProc, (XtPointer)w ); if (horizontal) { w->viewport.horiz_bar = bar; constraints->form.vert_base = bar; } else { w->viewport.vert_bar = bar; constraints->form.horiz_base = bar; } XtManageChild( bar ); return bar; } /* ARGSUSED */ static void Initialize(request, new, args, num_args) Widget request, new; ArgList args; Cardinal *num_args; { ViewportWidget w = (ViewportWidget)new; static Arg clip_args[8]; static Arg threeD_args[8]; Cardinal arg_cnt; Widget h_bar, v_bar; Dimension clip_height, clip_width; Dimension pad = 0, sw = 0; w->form.default_spacing = 0; /* Reset the default spacing to 0 pixels. */ /* * Initialize all widget pointers to NULL. */ w->viewport.child = (Widget) NULL; w->viewport.horiz_bar = w->viewport.vert_bar = (Widget)NULL; /* * Create 3D Widget. */ arg_cnt = 0; XtSetArg(threeD_args[arg_cnt], XtNleft, XtChainLeft); arg_cnt++; XtSetArg(threeD_args[arg_cnt], XtNright, XtChainRight); arg_cnt++; XtSetArg(threeD_args[arg_cnt], XtNtop, XtChainTop); arg_cnt++; XtSetArg(threeD_args[arg_cnt], XtNbottom, XtChainBottom); arg_cnt++; XtSetArg(threeD_args[arg_cnt], XtNwidth, w->core.width); arg_cnt++; XtSetArg(threeD_args[arg_cnt], XtNheight, w->core.height); arg_cnt++; XtSetArg(threeD_args[arg_cnt], XtNrelief, XtReliefSunken); arg_cnt++; w->viewport.threeD = (ThreeDWidget)XtCreateManagedWidget("threeD", threeDWidgetClass, new, threeD_args, arg_cnt); XtVaGetValues((Widget)(w->viewport.threeD), XtNshadowWidth, &sw, NULL); if (sw) { pad = 2; arg_cnt = 0; XtSetArg(threeD_args[arg_cnt], XtNborderWidth, 0); arg_cnt++; XtSetValues((Widget)w, threeD_args, arg_cnt); } /* * Create Clip Widget. */ arg_cnt = 0; XtSetArg(clip_args[arg_cnt], XtNbackgroundPixmap, None); arg_cnt++; XtSetArg(clip_args[arg_cnt], XtNborderWidth, 0); arg_cnt++; XtSetArg(clip_args[arg_cnt], XtNleft, XtChainLeft); arg_cnt++; XtSetArg(clip_args[arg_cnt], XtNright, XtChainRight); arg_cnt++; XtSetArg(clip_args[arg_cnt], XtNtop, XtChainTop); arg_cnt++; XtSetArg(clip_args[arg_cnt], XtNbottom, XtChainBottom); arg_cnt++; XtSetArg(clip_args[arg_cnt], XtNwidth, w->core.width - 2 * sw); arg_cnt++; XtSetArg(clip_args[arg_cnt], XtNheight, w->core.height - 2 * sw); arg_cnt++; w->viewport.clip = XtCreateManagedWidget("clip", widgetClass, new, clip_args, arg_cnt); if (!w->viewport.forcebars) return; /* If we are not forcing the bars then we are done. */ if (w->viewport.allowhoriz) (void) CreateScrollbar(w, True); if (w->viewport.allowvert) (void) CreateScrollbar(w, False); h_bar = w->viewport.horiz_bar; v_bar = w->viewport.vert_bar; /* * Set the clip widget to the correct height. */ clip_width = w->core.width - 2 * sw; clip_height = w->core.height - 2 * sw; if ( (h_bar != NULL) && ((int)w->core.width > (int)(h_bar->core.width + h_bar->core.border_width + pad)) ) clip_width -= h_bar->core.width + h_bar->core.border_width + pad; if ( (v_bar != NULL) && ((int)w->core.height > (int)(v_bar->core.height + v_bar->core.border_width + pad)) ) clip_height -= v_bar->core.height + v_bar->core.border_width + pad; arg_cnt = 0; XtSetArg(clip_args[arg_cnt], XtNwidth, clip_width); arg_cnt++; XtSetArg(clip_args[arg_cnt], XtNheight, clip_height); arg_cnt++; XtSetValues(w->viewport.clip, clip_args, arg_cnt); } /* ARGSUSED */ static void ConstraintInitialize(request, new, args, num_args) Widget request, new; ArgList args; Cardinal *num_args; { ((ViewportConstraints)new->core.constraints)->viewport.reparented = False; } static void Realize(widget, value_mask, attributes) Widget widget; XtValueMask *value_mask; XSetWindowAttributes *attributes; { ViewportWidget w = (ViewportWidget)widget; Widget child = w->viewport.child; Widget clip = w->viewport.clip; Widget threeD = (Widget)w->viewport.threeD; *value_mask |= CWBitGravity; attributes->bit_gravity = NorthWestGravity; (*superclass->core_class.realize)(widget, value_mask, attributes); (*w->core.widget_class->core_class.resize)(widget); /* turn on bars */ if (child != (Widget)NULL) { XtMoveWidget( child, (Position)0, (Position)0 ); XtRealizeWidget( clip ); XtRealizeWidget( child ); XtRealizeWidget( threeD ); XLowerWindow( XtDisplay(threeD), XtWindow(threeD) ); XReparentWindow( XtDisplay(w), XtWindow(child), XtWindow(clip), (Position)0, (Position)0 ); XtMapWidget( child ); } } /* ARGSUSED */ static Boolean SetValues(current, request, new, args, num_args) Widget current, request, new; ArgList args; Cardinal *num_args; { ViewportWidget w = (ViewportWidget)new; ViewportWidget cw = (ViewportWidget)current; if ( (w->viewport.forcebars != cw->viewport.forcebars) || (w->viewport.allowvert != cw->viewport.allowvert) || (w->viewport.allowhoriz != cw->viewport.allowhoriz) || (w->viewport.useright != cw->viewport.useright) || (w->viewport.usebottom != cw->viewport.usebottom) ) { (*w->core.widget_class->core_class.resize)(new); /* Recompute layout.*/ } return False; } static void ChangeManaged(widget) Widget widget; { ViewportWidget w = (ViewportWidget)widget; int num_children = w->composite.num_children; Widget child, *childP; int i; child = (Widget)NULL; for (childP=w->composite.children, i=0; i < num_children; childP++, i++) { if (XtIsManaged(*childP) && *childP != w->viewport.clip && *childP != w->viewport.horiz_bar && *childP != w->viewport.vert_bar && *childP != (Widget)w->viewport.threeD) { child = *childP; break; } } if (child != w->viewport.child) { w->viewport.child = child; if (child != (Widget)NULL) { XtResizeWidget( child, child->core.width, child->core.height, (Dimension)0 ); if (XtIsRealized(widget)) { ViewportConstraints constraints = (ViewportConstraints)child->core.constraints; if (!XtIsRealized(child)) { Window window = XtWindow(w); XtMoveWidget( child, (Position)0, (Position)0 ); #ifdef notdef /* this is dirty, but it saves the following code: */ XtRealizeWidget( child ); XReparentWindow( XtDisplay(w), XtWindow(child), XtWindow(w->viewport.clip), (Position)0, (Position)0 ); if (child->core.mapped_when_managed) XtMapWidget( child ); #else w->core.window = XtWindow(w->viewport.clip); XtRealizeWidget( child ); w->core.window = window; #endif /* notdef */ constraints->viewport.reparented = True; } else if (!constraints->viewport.reparented) { XReparentWindow( XtDisplay(w), XtWindow(child), XtWindow(w->viewport.clip), (Position)0, (Position)0 ); constraints->viewport.reparented = True; if (child->core.mapped_when_managed) XtMapWidget( child ); } } GetGeometry( widget, child->core.width, child->core.height ); (*((ViewportWidgetClass)w->core.widget_class)->form_class.layout) ( (FormWidget)w, w->core.width, w->core.height, FALSE ); /* %%% do we need to hide this child from Form? */ } } #ifdef notdef (*superclass->composite_class.change_managed)( widget ); #endif } static void SetBar(w, top, length, total) Widget w; Position top; Dimension length, total; { XawScrollbarSetThumb(w, (float)top/(float)total, (float)length/(float)total); } static void RedrawThumbs(w) ViewportWidget w; { Widget child = w->viewport.child; Widget clip = w->viewport.clip; if (w->viewport.horiz_bar != (Widget)NULL) SetBar( w->viewport.horiz_bar, -(child->core.x), clip->core.width, child->core.width ); if (w->viewport.vert_bar != (Widget)NULL) SetBar( w->viewport.vert_bar, -(child->core.y), clip->core.height, child->core.height ); } static void SendReport (w, changed) ViewportWidget w; unsigned int changed; { XawPannerReport rep; if (w->viewport.report_callbacks) { Widget child = w->viewport.child; Widget clip = w->viewport.clip; rep.changed = changed; rep.slider_x = -child->core.x; /* child is canvas */ rep.slider_y = -child->core.y; /* clip is slider */ rep.slider_width = clip->core.width; rep.slider_height = clip->core.height; rep.canvas_width = child->core.width; rep.canvas_height = child->core.height; XtCallCallbackList ((Widget) w, w->viewport.report_callbacks, (XtPointer) &rep); } } static void MoveChild(w, x, y) ViewportWidget w; Position x, y; { Widget child = w->viewport.child; Widget clip = w->viewport.clip; /* make sure we never move past right/bottom borders */ if (-x + (int)clip->core.width > (int)child->core.width) x = -(child->core.width - clip->core.width); if (-y + (int)clip->core.height > (int)child->core.height) y = -(child->core.height - clip->core.height); /* make sure we never move past left/top borders */ if (x >= 0) x = 0; if (y >= 0) y = 0; XtMoveWidget(child, x, y); SendReport (w, (XawPRSliderX | XawPRSliderY)); RedrawThumbs(w); } static void ComputeLayout(widget, query, destroy_scrollbars) Widget widget; /* Viewport */ Boolean query; /* query child's preferred geom? */ Boolean destroy_scrollbars; /* destroy un-needed scrollbars? */ { ViewportWidget w = (ViewportWidget)widget; Widget child = w->viewport.child; Widget clip = w->viewport.clip; Widget threeD = (Widget)w->viewport.threeD; ViewportConstraints constraints = (ViewportConstraints)clip->core.constraints; Boolean needshoriz, needsvert; int clip_width, clip_height; int bar_width, bar_height; XtWidgetGeometry intended; Dimension pad = 0, sw = 0; /* * I've made two optimizations here. The first does away with the * loop, and the second defers setting the child dimensions to the * clip if smaller until after adjusting for possible scrollbars. * If you find that these go too far, define the identifiers here * as required. -- djhjr */ #define NEED_LAYOUT_LOOP #undef PREP_CHILD_TO_CLIP if (child == (Widget) NULL) return; XtVaGetValues(threeD, XtNshadowWidth, &sw, NULL); if (sw) pad = 2; clip_width = w->core.width - 2 * sw; clip_height = w->core.height - 2 * sw; intended.request_mode = CWBorderWidth; intended.border_width = 0; if (w->viewport.forcebars) { needsvert = w->viewport.allowvert; needshoriz = w->viewport.allowhoriz; ComputeWithForceBars(widget, query, &intended, &clip_width, &clip_height); } else { #ifdef NEED_LAYOUT_LOOP Dimension prev_width, prev_height; XtGeometryMask prev_mode; #endif XtWidgetGeometry preferred; needshoriz = needsvert = False; /* * intended.{width,height} caches the eventual child dimensions, * but we don't set the mode bits until after we decide that the * child's preferences are not acceptable. */ if (!w->viewport.allowhoriz) intended.request_mode |= CWWidth; #ifdef PREP_CHILD_TO_CLIP if ((int)child->core.width < clip_width) intended.width = clip_width; else #endif intended.width = child->core.width; if (!w->viewport.allowvert) intended.request_mode |= CWHeight; #ifdef PREP_CHILD_TO_CLIP if ((int)child->core.height < clip_height) intended.height = clip_height; else #endif intended.height = child->core.height; if (!query) { preferred.width = child->core.width; preferred.height = child->core.height; } #ifdef NEED_LAYOUT_LOOP do { /* while intended != prev */ #endif if (query) { (void) XtQueryGeometry( child, &intended, &preferred ); if ( !(preferred.request_mode & CWWidth) ) preferred.width = intended.width; if ( !(preferred.request_mode & CWHeight) ) preferred.height = intended.height; } #ifdef NEED_LAYOUT_LOOP prev_width = intended.width; prev_height = intended.height; prev_mode = intended.request_mode; #endif /* * Note that having once decided to turn on either bar * we'll not change our mind until we're next resized, * thus avoiding potential oscillations. */ #define CheckHoriz() \ if (w->viewport.allowhoriz && \ (int)preferred.width > clip_width + 2 * sw) { \ if (!needshoriz) { \ Widget bar = w->viewport.horiz_bar; \ needshoriz = True; \ if (bar == (Widget)NULL) \ bar = CreateScrollbar(w, True); \ clip_height -= bar->core.height + \ bar->core.border_width + pad; \ if (clip_height < 1) clip_height = 1; \ } \ intended.width = preferred.width; \ } /* enddef */ CheckHoriz(); if (w->viewport.allowvert && (int)preferred.height > clip_height + 2 * sw) { if (!needsvert) { Widget bar = w->viewport.vert_bar; needsvert = True; if (bar == (Widget)NULL) bar = CreateScrollbar(w, False); clip_width -= bar->core.width + bar->core.border_width + pad; if (clip_width < 1) clip_width = 1; if (!needshoriz) CheckHoriz(); } intended.height = preferred.height; } #ifdef PREP_CHILD_TO_CLIP if (!w->viewport.allowhoriz || (int)preferred.width < clip_width) { intended.width = clip_width; intended.request_mode |= CWWidth; } if (!w->viewport.allowvert || (int)preferred.height < clip_height) { intended.height = clip_height; intended.request_mode |= CWHeight; } #endif #ifdef NEED_LAYOUT_LOOP } while ( intended.request_mode != prev_mode || (intended.request_mode & CWWidth && intended.width != prev_width) || (intended.request_mode & CWHeight && intended.height != prev_height) ); #endif #ifndef PREP_CHILD_TO_CLIP if (!w->viewport.allowhoriz || (int)preferred.width < clip_width) { intended.width = clip_width; intended.request_mode |= CWWidth; } if (!w->viewport.allowvert || (int)preferred.height < clip_height) { intended.height = clip_height; intended.request_mode |= CWHeight; } #endif } bar_width = bar_height = 0; if (needsvert) bar_width = w->viewport.vert_bar->core.width + w->viewport.vert_bar->core.border_width + pad; if (needshoriz) bar_height = w->viewport.horiz_bar->core.height + w->viewport.horiz_bar->core.border_width + pad; if (XtIsRealized(threeD)) XLowerWindow( XtDisplay(threeD), XtWindow(threeD) ); XtMoveWidget( threeD, (Position)(!needsvert ? 0 : (w->viewport.useright ? 0 : bar_width)), (Position)(!needshoriz ? 0 : (w->viewport.usebottom ? 0 : bar_height)) ); XtResizeWidget( threeD, (Dimension)(w->core.width - bar_width), (Dimension)(w->core.height - bar_height), (Dimension)0 ); if (XtIsRealized(clip)) XRaiseWindow( XtDisplay(clip), XtWindow(clip) ); XtMoveWidget( clip, (Position)(!needsvert ? sw : (w->viewport.useright ? sw : bar_width + sw)), (Position)(!needshoriz ? sw : (w->viewport.usebottom ? sw : bar_height + sw)) ); XtResizeWidget( clip, (Dimension)clip_width, (Dimension)clip_height, (Dimension)0 ); if (w->viewport.horiz_bar != (Widget)NULL) { Widget bar = w->viewport.horiz_bar; if (!needshoriz) { constraints->form.vert_base = (Widget)NULL; if (destroy_scrollbars) { XtDestroyWidget( bar ); w->viewport.horiz_bar = (Widget)NULL; } } else { int bw = bar->core.border_width; XtResizeWidget( bar, (Dimension)(clip_width + 2 * sw), bar->core.height, (Dimension)bw ); XtMoveWidget( bar, (Position)((needsvert && !w->viewport.useright) ? w->viewport.vert_bar->core.width + pad : -bw), (Position)(w->viewport.usebottom ? w->core.height - bar->core.height - bw : -bw) ); XtSetMappedWhenManaged( bar, True ); } } if (w->viewport.vert_bar != (Widget)NULL) { Widget bar = w->viewport.vert_bar; if (!needsvert) { constraints->form.horiz_base = (Widget)NULL; if (destroy_scrollbars) { XtDestroyWidget( bar ); w->viewport.vert_bar = (Widget)NULL; } } else { int bw = bar->core.border_width; XtResizeWidget( bar, bar->core.width, (Dimension)(clip_height + 2 * sw), (Dimension)bw ); XtMoveWidget( bar, (Position)(w->viewport.useright ? w->core.width - bar->core.width - bw : -bw), (Position)((needshoriz && !w->viewport.usebottom) ? w->viewport.horiz_bar->core.height + pad : -bw) ); XtSetMappedWhenManaged( bar, True ); } } if (child != (Widget)NULL) { XtResizeWidget( child, (Dimension)intended.width, (Dimension)intended.height, (Dimension)0 ); MoveChild(w, needshoriz ? child->core.x : 0, needsvert ? child->core.y : 0); } SendReport (w, XawPRAll); } /* Function Name: ComputeWithForceBars * Description: Computes the layout give forcebars is set. * Arguments: widget - the viewport widget. * query - whether or not to query the child. * intended - the cache of the childs height is * stored here ( USED AND RETURNED ). * clip_width, clip_height - size of clip window. * (USED AND RETURNED ). * Returns: none. */ static void ComputeWithForceBars(widget, query, intended, clip_width, clip_height) Widget widget; Boolean query; XtWidgetGeometry * intended; int *clip_width, *clip_height; { ViewportWidget w = (ViewportWidget)widget; Widget child = w->viewport.child; XtWidgetGeometry preferred; Dimension pad = 0, sw = 0; /* * If forcebars then needs = allows = has. * Thus if needsvert is set it MUST have a scrollbar. */ XtVaGetValues((Widget)(w->viewport.threeD), XtNshadowWidth, &sw, NULL); if (sw) pad = 2; if (w->viewport.allowvert) { if (w->viewport.vert_bar == NULL) w->viewport.vert_bar = CreateScrollbar(w, False); *clip_width -= w->viewport.vert_bar->core.width + w->viewport.vert_bar->core.border_width + pad; } if (w->viewport.allowhoriz) { if (w->viewport.horiz_bar == NULL) w->viewport.horiz_bar = CreateScrollbar(w, True); *clip_height -= w->viewport.horiz_bar->core.height + w->viewport.horiz_bar->core.border_width + pad; } AssignMax( *clip_width, 1 ); AssignMax( *clip_height, 1 ); if (!w->viewport.allowvert) { intended->height = *clip_height; intended->request_mode |= CWHeight; } if (!w->viewport.allowhoriz) { intended->width = *clip_width; intended->request_mode |= CWWidth; } if ( query ) { if ( (w->viewport.allowvert || w->viewport.allowhoriz) ) { XtQueryGeometry( child, intended, &preferred ); if ( !(intended->request_mode & CWWidth) ) { if ( preferred.request_mode & CWWidth ) intended->width = preferred.width; else intended->width = child->core.width; } if ( !(intended->request_mode & CWHeight) ) { if ( preferred.request_mode & CWHeight ) intended->height = preferred.height; else intended->height = child->core.height; } } } else { if (w->viewport.allowvert) intended->height = child->core.height; if (w->viewport.allowhoriz) intended->width = child->core.width; } if (*clip_width > (int)intended->width) intended->width = *clip_width; if (*clip_height > (int)intended->height) intended->height = *clip_height; } static void Resize(widget) Widget widget; { ComputeLayout( widget, /*query=*/True, /*destroy=*/True ); } /* ARGSUSED */ static Boolean Layout(w, width, height) FormWidget w; Dimension width, height; { ComputeLayout( (Widget)w, /*query=*/True, /*destroy=*/True ); w->form.preferred_width = w->core.width; w->form.preferred_height = w->core.height; return False; } static void ScrollUpDownProc(widget, closure, call_data) Widget widget; XtPointer closure; XtPointer call_data; { ViewportWidget w = (ViewportWidget)closure; Widget child = w->viewport.child; int pix = (int)call_data; Position x, y; if (child == NULL) return; /* no child to scroll. */ x = child->core.x - ((widget == w->viewport.horiz_bar) ? pix : 0); y = child->core.y - ((widget == w->viewport.vert_bar) ? pix : 0); MoveChild(w, x, y); } /* ARGSUSED */ static void ThumbProc(widget, closure, call_data) Widget widget; XtPointer closure; XtPointer call_data; { ViewportWidget w = (ViewportWidget)closure; Widget child = w->viewport.child; float *percent = (float *) call_data; Position x, y; if (child == NULL) return; /* no child to scroll. */ if (widget == w->viewport.horiz_bar) #ifdef macII /* bug in the macII A/UX 1.0 cc */ x = (int)(-*percent * child->core.width); #else /* else not macII */ x = -(int)(*percent * child->core.width); #endif /* macII */ else x = child->core.x; if (widget == w->viewport.vert_bar) #ifdef macII /* bug in the macII A/UX 1.0 cc */ y = (int)(-*percent * child->core.height); #else /* else not macII */ y = -(int)(*percent * child->core.height); #endif /* macII */ else y = child->core.y; MoveChild(w, x, y); } static XtGeometryResult TestSmaller(w, request, reply_return) ViewportWidget w; XtWidgetGeometry *request, *reply_return; { if (request->width < w->core.width || request->height < w->core.height) return XtMakeGeometryRequest((Widget)w, request, reply_return); else return XtGeometryYes; } static XtGeometryResult GeometryRequestPlusScrollbar(w, horizontal, request, reply_return) Boolean horizontal; ViewportWidget w; XtWidgetGeometry *request, *reply_return; { Widget bar; XtWidgetGeometry plusScrollbars; Dimension pad = 0, sw = 0; XtVaGetValues((Widget)(w->viewport.threeD), XtNshadowWidth, &sw, NULL); if (sw) pad = 2; plusScrollbars = *request; if ((bar = w->viewport.horiz_bar) == (Widget)NULL) bar = CreateScrollbar(w, horizontal); request->width += bar->core.width + pad; request->height += bar->core.height + pad; XtDestroyWidget(bar); return XtMakeGeometryRequest((Widget) w, &plusScrollbars, reply_return); } #define WidthChange() (request->width != w->core.width) #define HeightChange() (request->height != w->core.height) static XtGeometryResult QueryGeometry(w, request, reply_return) ViewportWidget w; XtWidgetGeometry *request, *reply_return; { if (w->viewport.allowhoriz && w->viewport.allowvert) return TestSmaller(w, request, reply_return); else if (w->viewport.allowhoriz && !w->viewport.allowvert) { if (WidthChange() && !HeightChange()) return TestSmaller(w, request, reply_return); else if (!WidthChange() && HeightChange()) return XtMakeGeometryRequest((Widget) w, request, reply_return); else if (WidthChange() && HeightChange()) /* hard part */ return GeometryRequestPlusScrollbar(w, True, request, reply_return); else /* !WidthChange() && !HeightChange() */ return XtGeometryYes; } else if (!w->viewport.allowhoriz && w->viewport.allowvert) { if (!WidthChange() && HeightChange()) return TestSmaller(w, request, reply_return); else if (WidthChange() && !HeightChange()) return XtMakeGeometryRequest((Widget)w, request, reply_return); else if (WidthChange() && HeightChange()) /* hard part */ return GeometryRequestPlusScrollbar(w, False, request, reply_return); else /* !WidthChange() && !HeightChange() */ return XtGeometryYes; } else /* (!w->viewport.allowhoriz && !w->viewport.allowvert) */ return XtMakeGeometryRequest((Widget) w, request, reply_return); } #undef WidthChange #undef HeightChange static XtGeometryResult GeometryManager(child, request, reply) Widget child; XtWidgetGeometry *request, *reply; { ViewportWidget w = (ViewportWidget)child->core.parent; Boolean rWidth = (Boolean)(request->request_mode & CWWidth); Boolean rHeight = (Boolean)(request->request_mode & CWHeight); XtWidgetGeometry allowed; XtGeometryResult result; Boolean reconfigured; Boolean child_changed_size; Dimension height_remaining; Dimension pad = 0, sw = 0; if (request->request_mode & XtCWQueryOnly) return QueryGeometry(w, request, reply); if (child != w->viewport.child || request->request_mode & ~(CWWidth | CWHeight | CWBorderWidth) || ((request->request_mode & CWBorderWidth) && request->border_width > 0)) return XtGeometryNo; XtVaGetValues((Widget)(w->viewport.threeD), XtNshadowWidth, &sw, NULL); if (sw) pad = 2; allowed = *request; reconfigured = GetGeometry( (Widget)w, (rWidth ? request->width : w->core.width), (rHeight ? request->height : w->core.height) ); child_changed_size = ((rWidth && child->core.width != request->width) || (rHeight && child->core.height != request->height)); height_remaining = w->core.height; if (rWidth && w->core.width != request->width) { if (w->viewport.allowhoriz && request->width > w->core.width) { /* horizontal scrollbar will be needed so possibly reduce height */ Widget bar; if ((bar = w->viewport.horiz_bar) == (Widget)NULL) bar = CreateScrollbar( w, True ); height_remaining -= bar->core.height + bar->core.border_width + pad; reconfigured = True; } else { allowed.width = w->core.width; } } if (rHeight && height_remaining != request->height) { if (w->viewport.allowvert && request->height > height_remaining) { /* vertical scrollbar will be needed, so possibly reduce width */ if (!w->viewport.allowhoriz || request->width < w->core.width) { Widget bar; if ((bar = w->viewport.vert_bar) == (Widget)NULL) bar = CreateScrollbar( w, False ); if (!rWidth) { allowed.width = w->core.width; allowed.request_mode |= CWWidth; } if ( (int)allowed.width > (int)(bar->core.width + bar->core.border_width + pad) ) allowed.width -= bar->core.width + bar->core.border_width + pad; else allowed.width = 1; reconfigured = True; } } else { allowed.height = height_remaining; } } if (allowed.width != request->width || allowed.height != request->height) { *reply = allowed; result = XtGeometryAlmost; } else { if (rWidth) child->core.width = request->width; if (rHeight) child->core.height = request->height; result = XtGeometryYes; } if (reconfigured || child_changed_size) ComputeLayout( (Widget)w, /*query=*/ False, /*destroy=*/ (result == XtGeometryYes) ? True : False ); return result; } static Boolean GetGeometry(w, width, height) Widget w; Dimension width, height; { XtWidgetGeometry geometry, return_geom; XtGeometryResult result; if (width == w->core.width && height == w->core.height) return False; geometry.request_mode = CWWidth | CWHeight; geometry.width = width; geometry.height = height; if (XtIsRealized(w)) { if (((ViewportWidget)w)->viewport.allowhoriz && width > w->core.width) geometry.width = w->core.width; if (((ViewportWidget)w)->viewport.allowvert && height > w->core.height) geometry.height = w->core.height; } else { /* This is the Realize call; we'll inherit a w&h iff none currently */ if (w->core.width != 0) { if (w->core.height != 0) return False; geometry.width = w->core.width; } if (w->core.height != 0) geometry.height = w->core.height; } result = XtMakeGeometryRequest(w, &geometry, &return_geom); if (result == XtGeometryAlmost) result = XtMakeGeometryRequest(w, &return_geom, (XtWidgetGeometry *)NULL); return (result == XtGeometryYes); } static XtGeometryResult PreferredGeometry(w, constraints, reply) Widget w; XtWidgetGeometry *constraints, *reply; { if (((ViewportWidget)w)->viewport.child != NULL) return XtQueryGeometry( ((ViewportWidget)w)->viewport.child, constraints, reply ); else return XtGeometryYes; } void XawViewportSetLocation (Widget gw, #if NeedWidePrototypes double xoff, double yoff) #else float xoff, float yoff) #endif { ViewportWidget w = (ViewportWidget) gw; Widget child = w->viewport.child; Position x, y; if (xoff > 1.0) /* scroll to right */ x = child->core.width; else if (xoff < 0.0) /* if the offset is < 0.0 nothing */ x = child->core.x; else x = (Position) (((float) child->core.width) * xoff); if (yoff > 1.0) y = child->core.height; else if (yoff < 0.0) y = child->core.y; else y = (Position) (((float) child->core.height) * yoff); MoveChild (w, -x, -y); } void XawViewportSetCoordinates (Widget gw, #if NeedWidePrototypes int x, int y) #else Position x, Position y) #endif { ViewportWidget w = (ViewportWidget) gw; Widget child = w->viewport.child; if (x > (int)child->core.width) x = child->core.width; else if (x < 0) x = child->core.x; if (y > (int)child->core.height) y = child->core.height; else if (y < 0) y = child->core.y; MoveChild (w, -x, -y); }