Changeset 7603


Ignore:
Timestamp:
Nov 7, 2007, 5:31:19 PM (12 years ago)
Author:
rme
Message:

Ensure that text container width tracking and text view horizontal
resizing are not both enabled at the same time.

File:
1 edited

Legend:

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

    r7595 r7603  
    13221322                                 224 229 234 239 245 252 255))
    13231323
     1324(defparameter *modeline-height* 14)
    13241325(defloadvar *modeline-pattern-image* nil)
    13251326
     
    15531554                (#/setMaxSize: tv (ns:make-ns-size large-number-for-text large-number-for-text))
    15541555                (#/setRichText: tv nil)
    1555                 (#/setHorizontallyResizable: tv t)
    1556                 (#/setVerticallyResizable: tv t)
    15571556                (#/setAutoresizingMask: tv #$NSViewWidthSizable)
    15581557                (#/setBackgroundColor: tv color)
     
    15631562                (#/setUsesFontPanel: tv nil)
    15641563                (#/setMenu: tv (text-view-context-menu))
    1565                 (#/setWidthTracksTextView: container tracks-width)
    1566                 (#/setHeightTracksTextView: container nil)
     1564
     1565                ;;  The container tracking and the text view sizability along a
     1566                ;;  particular axis must always be different, or else things can
     1567                ;;  get really confused (possibly causing an infinite loop).
     1568
     1569                (if tracks-width
     1570                  (progn
     1571                    (#/setWidthTracksTextView: container t)
     1572                    (#/setHeightTracksTextView: container nil)
     1573                    (#/setHorizontallyResizable: tv nil)
     1574                    (#/setVerticallyResizable: tv t))
     1575                  (progn
     1576                    (#/setWidthTracksTextView: container nil)
     1577                    (#/setHeightTracksTextView: container nil)
     1578                    (#/setHorizontallyResizable: tv t)
     1579                    (#/setVerticallyResizable: tv t)))
     1580
    15671581                (#/setDocumentView: scrollview tv)           
    15681582                (values tv scrollview)))))))))
Note: See TracChangeset for help on using the changeset viewer.