File: movedraw.c

package info (click to toggle)
scilab 2.6-4
  • links: PTS
  • area: non-free
  • in suites: woody
  • size: 54,632 kB
  • ctags: 40,267
  • sloc: ansic: 267,851; fortran: 166,549; sh: 10,005; makefile: 4,119; tcl: 1,070; cpp: 233; csh: 143; asm: 135; perl: 130; java: 39
file content (89 lines) | stat: -rw-r--r-- 1,988 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
/* Copyright INRIA */
#include <X11/StringDefs.h>
#include <X11/IntrinsicP.h>
#include <X11/Xaw3d/ViewportP.h>

#include "metaconst.h"
#include "metawin.h"

void SetBar(w, top, length, total)
Widget w;
Position top;
Dimension length, total;
{
  XawScrollbarSetThumb(w, (float) top / (float) total, 
		       (float) length / (float) total );
}

void RedrawThumbs(w)
ViewportWidget w;
{
  register Widget child = w->viewport.child;
  register Widget clip = w->viewport.clip;

  if (w->viewport.horiz_bar)
    SetBar( w->viewport.horiz_bar, -(child->core.x),
	   clip->core.width, child->core.width );

  if (w->viewport.vert_bar)
    SetBar( w->viewport.vert_bar, -(child->core.y),
	   clip->core.height, child->core.height );
}

void MoveChild(w, x, y)
ViewportWidget w;
Position x, y;
{
  register Widget child = w->viewport.child;
  register Widget clip = w->viewport.clip;

  /* make sure we never move past right/bottom borders */
  if ((int) (x + clip->core.width) > (int) child->core.width)
    x = child->core.width - clip->core.width;

  if ((int) (y + 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);

  RedrawThumbs(w);
}

void GetDrawGeometry(x,y,w,h)
int *x,*y,*w,*h;
{
  ViewportWidget vw;
  register Widget child;
  register Widget clip;
  Arg arglist[2];
  Position dx,dy;

  vw = (ViewportWidget)drawViewport;
  child = vw->viewport.child;
  clip = vw->viewport.clip;

  arglist[0].name = XtNx;
  arglist[0].value = (XtArgVal)&dx;
  arglist[1].name = XtNy;
  arglist[1].value = (XtArgVal)&dy;
  XtGetValues(child,arglist,2);
  
  *x = - dx;
  *y = - dy;
  *w = clip->core.width;
  *h = clip->core.height;
}

void CenterDraw(x,y)
int x, y;
{
  int dx,dy,w,h;
  
  GetDrawGeometry(&dx,&dy,&w,&h);
  MoveChild((ViewportWidget)drawViewport,
	    (int)(metaScale*x) - w/2,(int)(metaScale*y) - h/2);
}