Xcanvas.l:(defmethod canvas
Xcanvas.l: (:adjust-corners ()
Xcanvas.l: (:draw-selection-rectangle ()
Xcanvas.l: (:buttonpress (event)
Xcanvas.l: (:motionnotify (event)
Xcanvas.l: (:buttonrelease (event)
Xeus.l:(defmethod Xdrawable
Xeus.l: (:init (id &optional w h)
Xeus.l: (:drawable () drawable)
Xeus.l: (:flush () (flush *display*))
Xeus.l: (:geometry ()
Xeus.l: (:height () (elt (send self :geometry) 4))
Xeus.l: (:width () (elt (send self :geometry) 3))
Xeus.l: (:pos () (getwindowattributes *display* drawable wa)
Xeus.l: (:x ()
Xeus.l: (:y ()
Xeus.l: (:gc (&rest newgc)
Xeus.l:(defmethod Xdrawable
Xeus.l: (:line-width (&optional dots) (send gcon :line-width dots))
Xeus.l: (:line-style (&optional dash) (send gcon :line-style dash))
Xeus.l: (:color (&optional color)
Xeus.l:(defmethod Xdrawable
Xeus.l: (:copy-from (dw &key (width) (height) (source-x 0) (source-y 0) (x 0) (y 0))
Xeus.l: (:point (x y &optional (gc gcon) )
Xeus.l: (:line (x1 y1 x2 y2 &optional (gc gcon))
Xeus.l: (:rectangle (x y width height &optional (gc gcon))
Xeus.l: (:arc (x y width height angle1 angle2 &optional (gc gcon))
Xeus.l: (:fill-rectangle (x y width height &optional (gc gcon))
Xeus.l: (:fill-arc (x y width height angle1 angle2 &optional (gc gcon))
Xeus.l: (:string (x y str &optional (start 0) (end (length str)) (gc gcon))
Xeus.l: (:image-string (x y str &optional (start 0) (end (length str)) (gc gcon))
Xeus.l: (:GetImage (&key (x 0) (y 0)
Xeus.l: (:PUTIMAGE (image &key (src-x 0) (src-y 0) (dst-x 0) (dst-y 0)
Xeus.l:			((:gc g) gcon) )
Xeus.l: (:draw-point (p &optional (gc gcon))
Xeus.l: (:draw-line (from to)
Xeus.l: (:draw-string (point str)	; ?font?
Xeus.l: (:draw-image-string (point str)	; ?font?
Xeus.l: (:draw-rectangle (point width height)
Xeus.l: (:draw-fill-rectangle (point width height)
Xeus.l: (:draw-arc (point width
Xeus.l: (:draw-fill-arc (point width
Xeus.l: (:drawline-primitive (x1 y1 x2 y2)
Xeus.l: (:set-show-mode () (send gcon :function :copy))
Xeus.l: (:set-erase-mode () (send gcon  :function :clear))
Xeus.l: (:clear-area (&key (x 0) (y 0)
Xeus.l:		((:gc g) gcon))
Xeus.l: (:clear () (send self :clear-area)))
Xeus.l:(defmethod Xdrawable
Xeus.l: (:3d-mono-rectangle (x y w h b &optional (state :top) top bottom)
Xeus.l:	(:top (setq top *whiteGC* bottom *gray50-GC*))
Xeus.l:	(:down (setq top *gray50-GC* bottom *whiteGC*))
Xeus.l: (:3d-color-rectangle (x y w h b &optional (state :top) (color bg-color)
Xeus.l:		  (:top (setq top 1 bottom 2))
Xeus.l:		  (:down (setq top 2 bottom 1))
Xeus.l: (:3d-fill-rectangle (x y w h b &optional (state :top) (color bg-color))
Xeus.l: (:draw-fill-rectangle (x y width height &optional (color bg-color))
Xeus.l: (:3d-rectangle-pixel (x y width height border
Xeus.l: (:3d-rectangle (x y width height border &optional
Xeus.l: (:3d-rectangle-gc (x y width height border &optional
Xeus.l:(defmethod Xpixmap 
Xeus.l:  (:create (&key (width 500) (height 500)
Xeus.l:  (:create-from-bitmap-file (fname)
Xeus.l:  (:write-to-bitmap-file (fname)
Xeus.l:  (:destroy ()
Xeus.l:  (:init (id &optional w h)	; use xdrawable's :create method to make a new instance
Xeus.l:(defmethod Xwindow
Xeus.l: (:create (&key ((:parent par) nil)
Xeus.l:		((:backing-pixmap backingpixmap) nil)
Xeus.l: (:selectinput (event-mask)
Xeus.l: (:subwindows (&optional n)   (if n (nth n subwindows) subwindows))
Xeus.l: (:map () 
Xeus.l: (:unmap ()
Xeus.l: (:remap ()
Xeus.l: (:parent () parent)
Xeus.l: (:associate (child)
Xeus.l: (:dissociate (child)
Xeus.l: (:reparent (par &optional (x 0) (y 0))
Xeus.l: (:destroy ()
Xeus.l: (:attributes (&aux attr)
Xeus.l: (:visual () (send (send self :attributes) :get 'visual))
Xeus.l: (:location (&aux (attr (send self :attributes)))
Xeus.l: (:size (&aux (attr (send self :attributes)))
Xeus.l: (:depth () (send (send self :attributes) :get 'depth))
Xeus.l: (:screen () (send (send self :attributes) :get 'screen))
Xeus.l: (:ColorMap () (send (send self :attributes) :get 'colormap))
Xeus.l: (:root () (send (send self :attributes) :get 'root))	;drawable id of the root
Xeus.l: (:title (title)
Xeus.l: (:save () (send backing-pixmap :copy-from self) (flush *display*))
Xeus.l: (:refresh ()
Xeus.l: (:move (newx newy) (MoveWindow *display* drawable newx newy))
Xeus.l: (:resize (w h)
Xeus.l: (:raise () (RaiseWindow *display* drawable))
Xeus.l: (:lower () (LowerWindow *display* drawable))
Xeus.l: (:background (color) 
Xeus.l: (:background-pixmap (pixmap)
Xeus.l: (:border (pixel) (SetWindowBorder *display* drawable pixel)) 
Xeus.l: (:gravity-to-value (g)
Xeus.l:		'((:forget . 0) (:northwest . 1) (:north . 2)
Xeus.l:		  (:northeast . 3) (:west . 4) (:center . 5)
Xeus.l:		  (:east . 6) (:southwest . 7) (:south . 8)
Xeus.l:		  (:southeast . 9) (:static . 10))))) )
Xeus.l: (:write-to-bitmap-file (fname)
Xeus.l: (:clear ()
Xeus.l: (:clear-area (&key (x 0) (y 0)	(width 0) (height 0))
Xeus.l: (:set-colormap (cmap)
Xeus.l:(defmethod Xdrawable
Xeus.l: (:draw-lines (points &optional (mode 0) (gc gcon))
Xeus.l: (:draw-polygon (points &optional (gc gcon)) 
Xeus.l: (:fillpolygon (points &optional(shape 0) (mode 0) (gc gcon))
Xeus.l: (:fill-polygon (points n &optional(shape 0) (mode 0) (gc gcon))
Xeus.l:(defmethod byte-string
Xeus.l:  (:addr (&optional (offset 0))
Xeus.l:  (:get (pos type)
Xeus.l:  (:set (val pos type)
Xeus.l:(defmethod Xpoint
Xeus.l:  (:set-vertices (v-lst)
Xevent.l:(defmethod xwindow
Xevent.l: (:event-notify-print (type event) (format t "event ~s ~s~%" type event))
Xevent.l: (:event-notify-dispatch (type event)    (send self type event))
Xevent.l: (:event-notify (type event)
Xevent.l: (:KeyPress (event) (warn "subclass's responsibility ~s~%" :KeyPress ))
Xevent.l: (:KeyRelease (event) (warn "subclass's responsibility ~s~%" :KeyRelease ))
Xevent.l: (:ButtonPress (event) (warn "subclass's responsibility ~s~%" :ButtonPress )
Xevent.l: (:ButtonRelease (event) (warn "subclass's responsibility ~s~%" :ButtonRelease ))
Xevent.l: (:MotionNotify (event) (warn "subclass's responsibility ~s~%" :MotionNotify ))
Xevent.l: (:EnterNotify (event)
Xevent.l: (:LeaveNotify (event)
Xevent.l: (:configureNotify(event)
Xgra.l:(defmethod XColor
Xgra.l: (:red (&aux v)
Xgra.l: (:green (&aux v)
Xgra.l: (:blue (&aux v)
Xgra.l: (:rgb ()
Xgra.l: (:init (pix R G B &optional (f 7))
Xgra.l:				'((:staticGray . 0)
Xgra.l:				  (:GrayScale . 1)
Xgra.l:				  (:StaticColor . 2)
Xgra.l:				  (:PseudoColor . 3)
Xgra.l:				  (:TrueColor . 4)
Xgra.l:				  (:DirectColor . 5))))))
Xgra.l:(defmethod colormap
Xgra.l: (:id () cmapid)
Xgra.l: (:query (pix &aux color)	;inquires RGB of a specified colormap entry
Xgra.l: (:set-window (win)
Xgra.l: (:destroy () 
Xgra.l: (:alloc (r &optional g b) (send self :store nil r g b))
Xgra.l: (:store (pix r &optional g b &aux exactdef colordef status)
Xgra.l: (:store-hls (pix hue lightness saturation)
Xgra.l:(defmethod colormap
Xgra.l: (:LUT-list () lut-list)
Xgra.l: (:LUTs () (mapcar #'car lut-list))
Xgra.l: (:LUT (LUT) (rest (assoc LUT LUT-list)))
Xgra.l: (:pixel (LUT n) (aref (rest (assoc LUT LUT-list)) n))
Xgra.l: (:size (LUT) (length (send self :LUT)))
Xgra.l: (:planes () planes)
Xgra.l: (:plane-bits () 
Xgra.l: (:plane-shifts () 
Xgra.l: (:free (&optional (pix nil))
Xgra.l: (:allocate-private-colors (size)	;allocate private read/write color cells
Xgra.l: (:allocate-colors (rgb-list &optional (private nil))
Xgra.l: (:define-LUT (LUT-name rgb-list &optional (private nil))
Xgra.l: (:define-gray-scale-LUT (LUT-name levels &optional (private nil))
Xgra.l: (:define-RGB-LUT (LUT-name red &optional (green red) (blue green) private)
Xgra.l: (:define-HLS-LUT (color-name count
Xgra.l: (:define-RAINBOW-LUT (LUT-name 
Xgra.l: (:init (&optional id)
Xgra.l: (:create (&key (planes 0) (colors 1)
Xgra.l:(defmethod colormap
Xgra.l: (:get-pixel (name)
Xgra.l:(defmethod gcontext
Xgra.l: (:create (&rest args
Xgra.l: (:free ()
Xgra.l: (:gc () gcid)
Xgra.l: (:copy ()
Xgra.l: (:attribute-to-bitmask (attribute-name)
Xgra.l:	   '((:function . 1) (:plane-mask . 2) (:foreground . 4)
Xgra.l:		(:background . 8) (:line-width . 16) (:line-style . 32)
Xgra.l:		(:cap-style . 64) (:join-style . 128) (:fill-style . 256)
Xgra.l:		(:fill-rule . 512) (:font . 32768))) ) )
Xgra.l: (:function-to-value (f)
Xgra.l:			(:Clear . 0)(:And . 1) (:AndReverse . 2) (:Copy . 3)
Xgra.l:			(:AndInverted . 4) (:NoOp . 5) (:Xor . 6) (:Or . 7)
Xgra.l:			(:Nor . 8) (:Equiv . 9) (:Invert . 10)
Xgra.l:			(:XorReverse . 11) (:CopyInverted . 12)
Xgra.l:			(:OrInverted . 13) (:Nand . 14)
Xgra.l:			(:Set . 15))))))
Xgra.l: (:function (x)
Xgra.l: (:foreground (&optional pix)
Xgra.l: (:background (&optional pix)
Xgra.l: (:foreback (fore back)
Xgra.l: (:planemask (&optional plane-mask)
Xgra.l: (:line-width (&optional x)
Xgra.l: (:line-style (&optional x)
Xgra.l: (:dash (&rest x)
Xgra.l: (:color (&optional color)  (send self :foreground color))
Xgra.l: (:change-attributes (&key function plane-mask foreground background 
Xgra.l: (:get-attributes (&optional (mask #xfffff))
Xgra.l: (:get-attribute (attr)
Xgra.l: (:font (&optional x)	; x should be a font-id
Xgra.l: (:tile (pixmap)
Xgra.l: (:stipple (pixmap)
Xitem.l:(defmethod panel-item
Xitem.l: (:notify (&rest args)
Xitem.l: (:create (name receiver method
Xitem.l:	   &key ((:width w) 100) ((:height h) 100) (font font-courb12)
Xitem.l: (:draw-label (x y)
Xitem.l:(defmethod panel-button
Xitem.l: (:create (label receiver method
Xitem.l:(defmethod panel-button
Xitem.l: (:draw-label (&optional (state :top) (color bg-color) (border 2) (offset))
Xitem.l:		 (cdr (assoc state '((:top . 0) (:down . 2) (:flat . 1))))))
Xitem.l:(defmethod panel-button
Xitem.l: (:KeyPress (event) nil )
Xitem.l: (:KeyRelease (event) nil)
Xitem.l: (:ButtonPress (event)
Xitem.l: (:ButtonRelease (event)
Xitem.l: (:MotionNotify (event) nil)
Xitem.l: (:EnterNotify (event) nil)
Xitem.l: (:LeaveNotify (event) nil))
Xitem.l:(defmethod panel-menu
Xitem.l: (:create (label receiver method
Xitem.l: (:buttonPress (event)
Xitem.l: (:buttonRelease (event)
Xitem.l: (:motionNotify (event)
Xitem.l:(defmethod panel-text
Xitem.l: (:create (label receiver method
Xitem.l: (:getstring ()  (send textwin :line 0))
Xitem.l: (:value (&optional newval)
Xitem.l: (:LeaveNotify (event)   (send textwin :LeaveNotify event))
Xitem.l: (:EnterNotify (event)   (send textwin :EnterNotify event))
Xitem.l:(defmethod panel-slider
Xitem.l: (:create (label receiver method
Xitem.l: (:display-value (newval)
Xitem.l: (:value (&optional (newval))
Xitem.l: (:nob-x (&optional (v value))
Xitem.l: (:inside-nob-p (pos)
Xitem.l: (:draw-bar-rectangle ()
Xitem.l: (:draw-nob-rectangle (&optional (oldx nob-x) (newx nob-x))
Xitem.l: (:buttonPress (event)
Xitem.l: (:MotionNotify (event)
Xitem.l: (:buttonRelease (event)
Xitem.l:(defmethod panel-choice
Xitem.l: (:create (label receiver method
Xitem.l: (:value (&optional (new-choice))
Xitem.l: (:draw-active-button (&optional
Xitem.l: (:buttonPress (event)
Xitem.l: (:buttonRelease (event)
Xitem.l:(defmethod panel-joystick
Xitem.l: (:create (name receiver method
Xitem.l: (:draw-circles ()
Xitem.l: (:xy (&optional (x value-x) (y value-y))
Xitem.l: (:draw-stick (&optional (x value-x) (y value-y) (erase t))
Xitem.l: (:value (&optional (newx) (newy))
Xitem.l:(defmethod panel-joystick
Xitem.l: (:buttonPress (event)
Xitem.l: (:motionNotify (event)
Xitem.l: (:buttonRelease (event)
Xjunk.l: (:create-item (klass label notify &rest args)
Xjunk.l: (:create-button (label notify &rest args)
Xjunk.l: (:create-text (label notify &rest args)
Xjunk.l: (:create-slider (label notify &rest args)
Xjunk.l: (:create-choice (label notify &rest args)
Xjunk.l: (:create-menu (label notify &rest args)
Xjunk.l: (:init (id)
Xjunk.l: (:cursor ()
Xjunk.l: (:putch (ch)
Xjunk.l: (:keyrelease (pos) )
Xjunk.l: (:KeyPress (pos)
Xjunk.l: (:keyEnter (ch)
Xmenu.l:(defmethod xmenu
Xmenu.l: (:create (&rest args
Xmenu.l: (:newsize ()
Xmenu.l: (:add-item (label name &optional (receiver self) (mesg name))
Xmenu.l:(defmethod Xmenu
Xmenu.l: (:draw-item-labels (&optional (labels (mapcar #'car items)))
Xmenu.l: (:popup (x y &optional (offset 20))
Xmenu.l: (:buttonPress (event)
Xmenu.l: (:buttonRelease (event)
Xmenu.l: (:lowlight-item (&optional (p highlight-item))
Xmenu.l: (:highlight-item (p)
Xmenu.l: (:motionNotify (event)
Xpan.l:(defmethod panel
Xpan.l: (:create (&rest args
Xpan.l:	   &key ((:item-height iheight) 30)
Xpan.l:		((:item-width iwidth) 60)
Xpan.l: (:items () items)
Xpan.l: (:locate-panel-item (item)
Xpan.l: (:add-item (item-object &optional x y)
Xpan.l: (:create-item (klass label receiver method
Xpan.l: (:delete-items ()
Xpan.l:(defmethod panel
Xpan.l: (:quit (&rest a) (throw :window-main-loop nil))
Xpan.l: (:KeyPress (pos) nil)
Xpan.l: (:KeyRelease (pos) nil)
Xpan.l: (:ButtonPress (pos) nil)
Xpan.l: (:ButtonRelease (pos) nil)
Xpan.l: (:MotionNotify (pos) nil)
Xpan.l: (:EnterNotify (event) 
Xpan.l: (:LeaveNotify (pos) nil))
Xpan.l:(defmethod FilePanel
Xpan.l: (:create (&rest args
Xpan.l:(defmethod FilePanel
Xpan.l: (:cwd () (send cdir-text :value))
Xpan.l: (:file-selected (line)
Xpan.l: (:selected-fname ()
Xpan.l: (:view (event)
Xpan.l: (:cancel (event)
Xpan.l: (:open (event)
Xpan.l: (:load (event)
Xpan.l: (:print (event)
Xpan.l: (:remove (event)
Xpan.l: (:remove-confirm (answer)
Xpan.l: (:go-up (event)
Xpan.l:(defmethod filepanel
Xpan.l: (:resize (w h)
Xpan.l: (:configureNotify (event)
Xpan.l:(defmethod TextViewPanel
Xpan.l: (:create (file  &rest args &key (width 400) &allow-other-keys)
Xpan.l: (:quit (event)
Xpan.l: (:finish (event) (throw :window-main-loop self))
Xpan.l: (:find (event)
Xpan.l: (:resize (w h)
Xpan.l: (:configureNotify (event)
Xpan.l:(defmethod ConfirmPanel
Xpan.l: (:create (&rest args)
Xpan.l: (:draw-message ()
Xpan.l: (:ask (rcv meth &rest lines)
Xpan.l: (:yes (event)
Xpan.l: (:no (event)
Xpan.l: (:configureNotify (event)
Xpanel2.l:(defmethod ConfirmPanel
Xpanel2.l: (:create (&rest args)
Xpanel2.l: (:ask (rcv meth &rest lines)
Xpanel2.l: (:yes (event)
Xpanel2.l: (:no (event)
Xscroll.l:(defmethod Xscroll-bar
Xscroll.l: (:create (&rest args
Xscroll.l: (:draw-pattern ()
Xscroll.l: (:resize (w h)
Xscroll.l: (:move-handle (&optional (newpos 0.0) (handle-size 0.1))
Xscroll.l:(defmethod Xscroll-bar
Xscroll.l: (:hit-region (event)
Xscroll.l: (:buttonPress (event)
Xscroll.l:	(:handle (setq handle-grabbed (event-y event)))
Xscroll.l:	(:up-arrow (send parent :scroll -1))
Xscroll.l:	(:down-arrow (send parent :scroll 1))
Xscroll.l:	(:up-screen (send parent :scroll (- (send parent :win-row-max))))
Xscroll.l:	(:down-screen (send parent :scroll (send parent :win-row-max)))
Xscroll.l: (:motionNotify (event)
Xscroll.l: (:buttonRelease (event)
Xscroll.l:(defmethod Xhorizontal-scroll-bar
Xscroll.l: (:draw-pattern ()
Xscroll.l:(defmethod Xhorizontal-scroll-bar
Xscroll.l: (:buttonPress (event)
Xscroll.l:	(:handle (setq handle-grabbed (event-x event)))
Xscroll.l:	(:up-arrow (send parent :horizontal-scroll -1))
Xscroll.l:	(:down-arrow (send parent :horizontal-scroll 1))
Xscroll.l:	(:up-screen (send parent :horizontal-scroll (- (send parent :win-col-max))))
Xscroll.l:	(:down-screen (send parent :horizontal-scroll (send parent :win-col-max)))
Xscroll.l: (:motionNotify (event)
Xtext.l:(defmethod textWindow
Xtext.l: (:create (&rest args
Xtext.l: (:notify (receiver method) 
Xtext.l: (:show-cursor (flag)
Xtext.l: (:clear ()
Xtext.l: (:clear-eol (&optional (r win-row) (c win-col) (csr :on))
Xtext.l: (:clear-lines (lines &optional (r win-row))
Xtext.l: (:clear-eos (&optional (r win-row) (c win-col))
Xtext.l: (:cursor (&optional (switch :toggle))
Xtext.l:(defmethod textWindow
Xtext.l: (:win-row-max () win-row-max)
Xtext.l: (:win-col-max () win-col-max)
Xtext.l: (:xy (&optional (r win-row) (c win-col))
Xtext.l: (:goto (r c &optional (cursor :on))
Xtext.l: (:goback (&optional (csr :on))
Xtext.l: (:advance (&optional (n 1))
Xtext.l: (:scroll (&optional (n 1) &aux srcy desty erasey)
Xtext.l: (:horizontal-scroll (&optional (n 1) &aux srcx destx erasex)
Xtext.l: (:newline ()
Xtext.l: (:putch (ch)
Xtext.l: (:putstring (str &optional (e (length str)))
Xtext.l: (:insert (ch) (send self :putch ch))
Xtext.l:(defmethod textwindow
Xtext.l: (:event-row (event) (/ (- (event-y event) 2) charheight))
Xtext.l: (:event-col (event) (/ (- (event-x event) 2) charwidth))
Xtext.l: (:ButtonPress (event)
Xtext.l: (:ButtonRelease (event)
Xtext.l: (:resize (w h)
Xtext.l: (:ConfigureNotify (event)
Xtext.l:(defmethod TextWindow
Xtext.l: (:echo (flag) (setq echo flag))
Xtext.l: (:getstring ()
Xtext.l: (:enterNotify (event)
Xtext.l: (:LeaveNotify (event)  (send self :cursor :off))
Xtext.l: (:keyrelease (pos)    ;; (setinputfocus *display* drawable 1 0)
Xtext.l: (:KeyPress (pos)
Xtext.l: (:LineEnter (line &optional (len (length line)))
Xtext.l: (:KeyEnter (ch)
Xtext.l:(defmethod TextWindow
Xtext.l: (:clear-text (item) (send self :clear))
Xtext.l:(defmethod textWindowStream
Xtext.l: (:fill () (send textwin :getstring))
Xtext.l: (:flush ()
Xtext.l: (:init (xtext direction)
Xtext.l:(defmethod BufferTextWindow
Xtext.l: (:create (&rest args)
Xtext.l: (:clear ()
Xtext.l: (:goto (r c &optional (csr :on))
Xtext.l:(defmethod BufferTextWindow
Xtext.l: (:line (n) (if (< n (length linebuf)) (aref linebuf n) nil))
Xtext.l: (:nlines () (length linebuf))
Xtext.l: (:all-lines () linebuf)
Xtext.l: (:refresh-line (&optional (r win-row) (c win-col))
Xtext.l: (:refresh (&optional (start 0))
Xtext.l: (:insert-string (str)
Xtext.l: (:insert (ch)
Xtext.l: (:delete (n)
Xtext.l:(defmethod BufferTextWindow
Xtext.l: (:keyEnter (ch) 
Xtext.l: (:ButtonRelease (event)
Xtext.l:(defmethod ScrollTextWindow
Xtext.l: (:create (&rest args
Xtext.l: (:locate-scroll-bar ()
Xtext.l:(defmethod ScrollTextWindow
Xtext.l: (:clear ()
Xtext.l: (:lines () linebuf)
Xtext.l: (:max-line-length ()
Xtext.l: (:refresh (&optional (offset 0) (lines (- win-row-max offset)))
Xtext.l: (:line-in-window-p (ln) (<= top-row ln (+ top-row win-row-max -1)))
Xtext.l: (:refresh-line (ln &optional (highlight nil) &aux fg-save bg-save)
Xtext.l: (:locate (n)
Xtext.l: (:display-selection (selection)
Xtext.l: (:selection ()
Xtext.l: (:read-file (fname)
Xtext.l: (:display-strings (strings)
Xtext.l: (:scroll-fraction () (/ 1.0 (length linebuf)))
Xtext.l: (:horizontal-scroll-fraction () (/ 1.0 max-line-length))
Xtext.l: (:scroll (n)
Xtext.l: (:horizontal-scroll (n)
Xtext.l:(defmethod ScrollTextWindow
Xtext.l: (:insert-char (c &optional (refresh t))
Xtext.l: (:insert-newline (&optional (refresh t))
Xtext.l: (:insert (thing &optional (refresh t))
Xtext.l:(defmethod ScrollTextWindow 
Xtext.l: (:buttonPress (event)
Xtext.l: (:buttonRelease (event)
Xtext.l: (:resize (w h)
Xtext.l: (:ConfigureNotify (event)
test.l:(defmethod windowframe
test.l: (:create (&rest args)
test.l:(defmethod windowframe
test.l: (:quit (event) (throw  :window-main-loop t))
test.l: (:ez (&rest a) (ez))
test.l: (:clear-canvas (event) (send canvasw :clear))
test.l: (:clear-text (event) (send textw :clear))
test.l: (:hex-dump (item)
test.l: (:linex (item)
test.l: (:scroll-up (event) (send textw :scroll 1))
test.l: (:scroll-down (event) (send textw :scroll -1))
test.l: (:refresh (event) (send textw :refresh))