anchor.diff:    (current-widget widget :out))
   
   
  -;;; Rc
  +;;; Resource Files
   
   (defbinding rc-add-default-file (filename) nil
     ((namestring (truename filename)) string))
  
positive.code: ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
  ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  
  ;; $Id: gtk.lisp,v 1.43 2005-04-24 13:30:40 espen Exp $
  
  
  (in-package "GTK")
  
negative.code: 	(format nil "Gtk+ v~A.~A" major minor) 
        (format nil "Gtk+ v~A.~A.~A" major minor micro))))
  
  (defun clg-version ()
    "clg CVS version")
  
  
  ;;;; Initalization
  