Changeset 5901


Ignore:
Timestamp:
Feb 12, 2007, 3:22:10 AM (13 years ago)
Author:
gb
Message:

remove some debugging code.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/examples/cocoa-editor.lisp

    r5885 r5901  
    18191819         (has-horizontal-scroller (send scrollview 'has-horizontal-scroller))
    18201820         (has-vertical-scroller (send scrollview 'has-vertical-scroller)))
    1821     (format t "~& width = ~s, height = ~s" width height)
    18221821    (rlet ((tv-size :<NSS>ize :height height
    18231822                    :width (+ width (* 2 (send (send tv 'text-container)
    18241823                                               'line-fragment-padding)))))
    1825       (#_NSLog #@"\ntv-size = %@\n" :address (#_NSStringFromSize tv-size))
    1826      
    18271824      (when has-vertical-scroller
    18281825        (send scrollview :set-vertical-line-scroll char-height)
     
    18371834                    :has-vertical-scroller has-vertical-scroller
    18381835                    :border-type (send scrollview 'border-type))))
    1839         (#_NSLog #@"\na: sv-size = %@\n" :address (#_NSStringFromSize sv-size))
    18401836        (slet ((pane-frame (send pane 'frame))
    18411837               (margins (send pane 'content-view-margins)))
     
    18451841          (incf (pref sv-size :<NSS>ize.width)
    18461842                (pref margins :<NSS>ize.width))
    1847           (#_NSLog #@"\nb: sv-size = %@\n" :address (#_NSStringFromSize sv-size))
    18481843          (send window :set-content-size sv-size)
    18491844          (send window :set-resize-increments
Note: See TracChangeset for help on using the changeset viewer.