anchor.diff:  	    :focus-vadjustment (scrolled-window-vadjustment scrolled-window)
   	    :children (mapcar #'(lambda (snippet)
   				  (create-button (string-downcase snippet) snippet))
  -			      (sort *snippets* #'string<)))))
  +			      (setq *snippets* (sort *snippets* #'string<))))))
         (scrolled-window-add-with-viewport scrolled-window content-box))
       
       (widget-grab-focus close-button)
  
positive.code: #+cmu(asdf:oos 'asdf:load-op :gtk)
  #+sbcl(require :cairo)
  #+cmu(asdf:oos 'asdf:load-op :cairo)
  
  ;;#+sbcl(require :rsvg)
  ;;#+cmu(asdf:oos 'asdf:load-op :avg-cairo)
  
  (defpackage "TESTCAIRO"
    (:use "COMMON-LISP" "GTK")
  
negative.code:   (cairo:rel-line-to cr -0.4 0.0)
    (cairo:curve-to cr 0.2 0.9 0.2 0.5 0.5 0.5)
    (cairo:stroke cr))
  
  
  (define-snippet set-line-cap (cr)
  