[XWEM]: xwem objects printing

[Zajcev Evgeny]

There was one annoyance - printing xwem objects such as client,
window, frame etc and X objects was hardly possible and usefull since
output is huge(due to cross references all over the objects), so
typical output of printing xwem client takes about 2M.  At last i've
found how this thing can be solved, here is snap:

   (xwem-win-selected)
   =>
   [cl-struct-xwem-win [cl-struct-X-Geom 8 26 945 650 1] (... ...)
   [cl-struct-xwem-cl ... 15073328.0 ... ... ... nil ... nil ... #0
   nil active ... ... ... ... ...] [cl-struct-xwem-frame desktop
   ... ... "Devel" #0 #0 nil nil mapped ...] nil nil nil nil nil nil
   nil (attachable nil)]

   (xwem-rootwin)
   =>
   [cl-struct-X-Win [cl-struct-X-Dpy #<network connection
   "X-127.0.0.1:0" ... state:run> "*xwem-debug*" ... 0 nil nil
   X-Dpy-parse-message-guess X-Dpy-default-events-dispatcher ... ""
   "127.0.0.1:0" 11 0 "The X.Org Foundation" 8 255 6291456.0 2097151.0
   484 21748 65535 256.0 0 0 32 32 ... 0 ... ... ... ... ... ...] 59.0
   (... ...) (xdepth 16)]

   (xwem-cl-selected)
   =>
   [cl-struct-xwem-cl [cl-struct-X-Win ... 4194337.0 ... ...]
   15073328.0 [cl-struct-X-Attr nil nil nil nil nil nil 1 1 0
   4294967295.0 0.0 nil nil 15073328.0 0 ... nil 34.0 2 ...]
   [cl-struct-X-Geom 10 10 792 582 1] [cl-struct-X-Geom 10 30 936 638
   2] nil [cl-struct-xwem-hints ... ... ... "" "Emacs: *scratch* ** "
   "*scratch*" nil ...] nil (generic nil ...) [cl-struct-xwem-win
   ... ... #0 ... nil nil nil nil nil nil nil ...] nil active (16816
   50825 667886) (16816 53704 989104) (...) (saved-icon-name
   "*scratch*" saved-name "Emacs: *scratch* ** " kwm-win-icon
   no-kwm-win-icon emacs-frame #<x-frame "emacs" 0x2217> xwem-tab-rect
   ... parent-xwin ...) (xwem-local-keymap #<keymap size 1 0x1c58>
   skip-initial-state t xwem-focus-mode generic x-border-width 2)]

   (xwem-frame-selected)
   =>
   [cl-struct-xwem-frame desktop [cl-struct-X-Win ... 6291468.0
   ... ...] [cl-struct-X-Geom 26 40 961 684 0] "Devel"
   [cl-struct-xwem-win ... ... ... #0 nil nil nil nil nil nil nil ...]
   [cl-struct-xwem-win ... ... ... #0 nil nil nil nil nil nil nil ...]
   nil nil mapped (ft-bgc ... ft-gc ... ft-mask ... raise-lower-state
   raise xwem-tabber ... title-height 18 background "gray60"
   inner-border-thickness 2 inner-border-width 8)]

All useful information in place and crap is abbreviated.  The patch
for this has been commited.  It is enabled by default if using
`xwem-use-presetup'(by default `xwem-use-presetup' is enabled)

Oh - the magic is `print-level' variable.

Thanks!

PS: please everybody who in list, confirm that address@hidden is
working ..

-- 
lg