[Scsh-checkins] CVS: scx/c/xlib window.c,1.6,1.7

[David Frese <frese@users.sourceforge.net>]

Update of /cvsroot/scsh/scx/c/xlib
In directory usw-pr-cvs1:/tmp/cvs-serv27357

Modified Files:
        window.c 
Log Message:
added Get_Geometry.


Index: window.c
===================================================================
RCS file: /cvsroot/scsh/scx/c/xlib/window.c,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -r1.6 -r1.7
*** window.c    2001/07/16 11:49:01     1.6
--- window.c    2001/07/19 15:34:22     1.7
***************
*** 352,355 ****
--- 352,377 ----
  }
  
+ s48_value Get_Geometry(s48_value Xdisplay, s48_value Xdrawable) {
+   s48_value v;
+   Window root;
+   unsigned int x,y,width,height,border_width,depth;
+   S48_DECLARE_GC_PROTECT(1);
+ 
+   XGetGeometry(EXTRACT_DISPLAY(Xdisplay), EXTRACT_DRAWABLE(Xdrawable),
+              &root, &x, &y, &width, &height, &border_width, &depth);
+ 
+   v = s48_make_vector(7, S48_FALSE);
+   S48_GC_PROTECT_1(v);
+   S48_VECTOR_SET(v, 0, ENTER_WINDOW(root));
+   S48_VECTOR_SET(v, 1, s48_enter_integer(x));
+   S48_VECTOR_SET(v, 2, s48_enter_integer(y));
+   S48_VECTOR_SET(v, 3, s48_enter_integer(width));
+   S48_VECTOR_SET(v, 4, s48_enter_integer(height));
+   S48_VECTOR_SET(v, 5, s48_enter_integer(border_width));
+   S48_VECTOR_SET(v, 6, s48_enter_integer(depth));
+   S48_GC_UNPROTECT();
+   return v;
+ }
+ 
  void s48_init_window(void) {
    S48_EXPORT_FUNCTION(Create_Window);
***************
*** 367,370 ****
--- 389,393 ----
    S48_EXPORT_FUNCTION(Translate_Coordinates);
    S48_EXPORT_FUNCTION(Query_Pointer);
+   S48_EXPORT_FUNCTION(Get_Geometry);
  
  }