Changeset 7604


Ignore:
Timestamp:
Nov 7, 2007, 8:05:42 PM (12 years ago)
Author:
rme
Message:

Implement "wrap lines to window" editor preference.

(still need to get rid of horizontal scroller when
this preference is selected.)

Location:
trunk/ccl/cocoa-ide
Files:
3 edited

Legend:

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

    r7603 r7604  
    15671567                ;;  get really confused (possibly causing an infinite loop).
    15681568
    1569                 (if tracks-width
     1569                (if (or tracks-width *wrap-lines-to-window*)
    15701570                  (progn
    15711571                    (#/setWidthTracksTextView: container t)
     
    21852185        (setf (slot-value tv 'char-width) char-width
    21862186              (slot-value tv 'char-height) char-height)
     2187        #+nil
    21872188        (#/setResizeIncrements: window
    21882189                                (ns:make-ns-size char-width char-height))))))
     
    26612662               t))))
    26622663      ;; If point is not on screen, move it.
     2664      #+nil
    26632665      (let* ((point (hi::current-point))
    26642666             (point-pos (mark-absolute-position point)))
     
    26792681
    26802682(defmethod hemlock::center-text-pane ((pane text-pane))
     2683  (format t "not doing center-text-pane")
     2684  #+nil
    26812685  (#/performSelectorOnMainThread:withObject:waitUntilDone:
    26822686   (text-pane-text-view pane)
  • trunk/ccl/cocoa-ide/ide-contents/Resources/English.lproj/preferences.nib/info.nib

    r7580 r7604  
    99        <key>IBOpenObjects</key>
    1010        <array>
    11                 <integer>1500857</integer>
     11                <integer>1500858</integer>
    1212        </array>
    1313        <key>IBSystem Version</key>
Note: See TracChangeset for help on using the changeset viewer.