10862 getGeometryOf:aWindowId

 10863     "get a windows geometry. 

 10864      NOTICE: X-WindowManagers usually do wrap client topViews into their own 

 10865      decoration views (top label, resize boundaries etc.).

 10866      Thus, the numbers returned here for topViews are the physical (real) dimensions

 10867      relative to such a wrapper.

 10868      In contrast, the values found in the views instance variables are virtual dimensions

 10869      (i.e. ST/X makes this decoration view transparent to the program."

 10870 

 10871     <context: #return>

 10872 

 10873     |x y width height depth borderWidth info|

 10874 

 10875 %{  

 10876     int x_return, y_return;

 10877     unsigned int width_return, height_return, 

 10878                  border_width_return, depth_return;

 10879     Window root_return;

 10880 

 10881     if (ISCONNECTED

 10882      && __isExternalAddress(aWindowId)) {

 10883         ENTER_XLIB();

 10884         XGetGeometry(myDpy, __WindowVal(aWindowId), 

 10885                      &root_return, 

 10886                      &x_return, &y_return, 

 10887                      &width_return, &height_return, &border_width_return,

 10888                      &depth_return);

 10889         LEAVE_XLIB();

 10890 

 10891         x = __MKSMALLINT(x_return);

 10892         y = __MKSMALLINT(y_return);

 10893         width = __MKSMALLINT(width_return);

 10894         height = __MKSMALLINT(height_return);

 10895         depth = __MKSMALLINT(depth_return);

 10896         borderWidth = __MKSMALLINT(border_width_return);

 10897     }

 10898 %}.

 10899     borderWidth isNil ifTrue:[

 10900         self primitiveFailedOrClosedConnection.

 10901         ^ nil

 10902     ].

 10903     info := Dictionary new.

 10904     info at:#origin put:(x @ y).

 10905     info at:#extent put:(width @ height).

 10906     info at:#depth  put:depth.

 10907     info at:#borderWidth put:borderWidth.

 10908     ^ info

 10909 

 10910     "

 10911      Transcript topView device

 10912         getGeometryOf:(Transcript id)

 10913     "

 10914     "

 10915      Transcript topView device

 10916         getGeometryOf:(Transcript topView id)

 10917     "

 10918     "

 10919      |d|

 10920 

 10921      d := Transcript topView device.

 10922      d getGeometryOf:(d parentWindowIdOf:Transcript topView id)

 10923     "

 10924 !

 10925 

 11176 !

 11177 

 11178 parentWindowIdOf:aWindowId

 11179     "return a windows parent-window id.

 11180      Useful with getGeometryOf:, to compute information about the decoration."

 11181 

 11182 %{ 

 11183 

 11184     if (ISCONNECTED

 11185      && __isExternalAddress(aWindowId)) {

 11186         Status ok;

 11187         Window root, parent, *children = NULL;

 11188         int nChildren;

 11189 

 11190 /*        ENTER_XLIB(); */

 11191         ok = XQueryTree(myDpy, __WindowVal(aWindowId), 

 11192                         &root, &parent, &children, &nChildren);

 11193         if (children) {

 11194             XFree(children);

 11195         }

 11196 /*        LEAVE_XLIB();   */

 11197         if (! ok) {

 11198             RETURN ( nil );

 11199         }

 11200         RETURN ( __MKEXTERNALADDRESS(parent) );

 11201     }

 11202 %}.

 11203     self primitiveFailedOrClosedConnection.

 11204     ^ false

 11205 

 11206     "

 11207      |id|

 11208 

 11209      id := Transcript device parentWindowIdOf:(Transcript id).

 11210      self assert: ( Transcript container id = id ).

 11211     "