Changeset 5901

Timestamp:

Feb 11, 2007, 7:22:10 PM (18 years ago)

Author:

Gary Byers

Message:

remove some debugging code.

File:

• trunk/ccl/examples/cocoa-editor.lisp (modified) (3 diffs)

trunk/ccl/examples/cocoa-editor.lisp

@@ -1819 +1819 @@
          (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 +1834 @@
                     :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 +1841 @@
           (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