| … | |
… | |
| 2196 | int count; |
2196 | int count; |
| 2197 | Atom *props = XListProperties (THIS->dpy, window, &count); |
2197 | Atom *props = XListProperties (THIS->dpy, window, &count); |
| 2198 | |
2198 | |
| 2199 | EXTEND (SP, count); |
2199 | EXTEND (SP, count); |
| 2200 | while (count--) |
2200 | while (count--) |
| 2201 | PUSHs (newSVuv ((U32)props [count])); |
2201 | PUSHs (sv_2mortal (newSVuv ((U32)props [count]))); |
| 2202 | |
2202 | |
| 2203 | XFree (props); |
2203 | XFree (props); |
| 2204 | } |
2204 | } |
| 2205 | |
2205 | |
| 2206 | void |
2206 | void |
| … | |
… | |
| 2222 | int elemsize = format == 16 ? sizeof (short) |
2222 | int elemsize = format == 16 ? sizeof (short) |
| 2223 | : format == 32 ? sizeof (long) |
2223 | : format == 32 ? sizeof (long) |
| 2224 | : 1; |
2224 | : 1; |
| 2225 | |
2225 | |
| 2226 | EXTEND (SP, 3); |
2226 | EXTEND (SP, 3); |
| 2227 | PUSHs (newSVuv ((U32)type)); |
2227 | PUSHs (sv_2mortal (newSVuv ((U32)type))); |
| 2228 | PUSHs (newSViv (format)); |
2228 | PUSHs (sv_2mortal (newSViv (format))); |
| 2229 | PUSHs (newSVpvn ((char *)prop, nitems * elemsize)); |
2229 | PUSHs (sv_2mortal (newSVpvn ((char *)prop, nitems * elemsize))); |
| 2230 | XFree (prop); |
2230 | XFree (prop); |
| 2231 | } |
2231 | } |
| 2232 | } |
2232 | } |
| 2233 | |
2233 | |
| 2234 | void |
2234 | void |
| … | |
… | |
| 2335 | Window child; |
2335 | Window child; |
| 2336 | |
2336 | |
| 2337 | if (XTranslateCoordinates (THIS->dpy, src, dst, x, y, &dx, &dy, &child)) |
2337 | if (XTranslateCoordinates (THIS->dpy, src, dst, x, y, &dx, &dy, &child)) |
| 2338 | { |
2338 | { |
| 2339 | EXTEND (SP, 3); |
2339 | EXTEND (SP, 3); |
| 2340 | PUSHs (newSViv (dx)); |
2340 | PUSHs (sv_2mortal (newSViv (dx))); |
| 2341 | PUSHs (newSViv (dy)); |
2341 | PUSHs (sv_2mortal (newSViv (dy))); |
| 2342 | PUSHs (newSVuv (child)); |
2342 | PUSHs (sv_2mortal (newSVuv (child))); |
| 2343 | } |
2343 | } |
| 2344 | } |
2344 | } |
| 2345 | |
2345 | |
| 2346 | ############################################################################# |
2346 | ############################################################################# |
| 2347 | # fancy bg bloatstuff (TODO: should be moved up somewhere) |
2347 | # fancy bg bloatstuff (TODO: should be moved up somewhere) |
