Index: /trunk/ccl/examples/cocoa-editor.lisp
===================================================================
--- /trunk/ccl/examples/cocoa-editor.lisp	(revision 5900)
+++ /trunk/ccl/examples/cocoa-editor.lisp	(revision 5901)
@@ -1819,10 +1819,7 @@
          (has-horizontal-scroller (send scrollview 'has-horizontal-scroller))
          (has-vertical-scroller (send scrollview 'has-vertical-scroller)))
-    (format t "~& width = ~s, height = ~s" width height)
     (rlet ((tv-size :<NSS>ize :height height
 		    :width (+ width (* 2 (send (send tv 'text-container)
                                                'line-fragment-padding)))))
-      (#_NSLog #@"\ntv-size = %@\n" :address (#_NSStringFromSize tv-size))
-      
       (when has-vertical-scroller 
 	(send scrollview :set-vertical-line-scroll char-height)
@@ -1837,5 +1834,4 @@
 		    :has-vertical-scroller has-vertical-scroller
 		    :border-type (send scrollview 'border-type))))
-        (#_NSLog #@"\na: sv-size = %@\n" :address (#_NSStringFromSize sv-size))
 	(slet ((pane-frame (send pane 'frame))
                (margins (send pane 'content-view-margins)))
@@ -1845,5 +1841,4 @@
           (incf (pref sv-size :<NSS>ize.width)
                 (pref margins :<NSS>ize.width))
-          (#_NSLog #@"\nb: sv-size = %@\n" :address (#_NSStringFromSize sv-size))
 	  (send window :set-content-size sv-size)
 	  (send window :set-resize-increments