# HG changeset patch # User Claus Gittinger # Date 1511097032 -3600 # Node ID 195cf7c7e58fd55ce25d809e423463520bc56ecf # Parent 29cf50354a7a5d33c34613926b2f7f037d014e48 #DOCUMENTATION by cg class: Tools::CodeView2::GutterView added: #adjustSizeForLongestLineNumber changed: #adjustSizeForLongestLine #update:with:from: (send #adjustSizeForLongestLineNumber instead of #adjustSizeForLongestLine) diff -r 29cf50354a7a -r 195cf7c7e58f Tools__CodeView2.st --- a/Tools__CodeView2.st Fri Nov 17 13:48:32 2017 +0100 +++ b/Tools__CodeView2.st Sun Nov 19 14:10:32 2017 +0100 @@ -2605,6 +2605,15 @@ !CodeView2::GutterView methodsFor:'change & update'! adjustSizeForLongestLine + + "recompute the required width (longest linenumber present, not shown)" + + ^ self adjustSizeForLongestLineNumber + + "Modified: / 19-11-2017 / 14:02:57 / cg" +! + +adjustSizeForLongestLineNumber "recompute the required width (longest linenumber present, not shown)" |newNumberOfLines longestLineString textW requiredW newWidth| @@ -2634,6 +2643,8 @@ self invalidate ] ]. + + "Created: / 19-11-2017 / 14:01:49 / cg" ! update:something with:aParameter from:changedObject @@ -2655,7 +2666,7 @@ ((something == #sizeOfContents) or:[ "false "(something == #visibility)"" ]) ifTrue:[ - self adjustSizeForLongestLine. + self adjustSizeForLongestLineNumber. "/ (numberOfLines ~= (textView list size max:textView cursorLine)) ifTrue:[ "/ self invalidate. @@ -2699,7 +2710,7 @@ super update:something with:aParameter from:changedObject "Modified: / 14-02-2014 / 12:08:40 / Jan Vrany " - "Modified: / 12-08-2017 / 13:21:08 / cg" + "Modified: / 19-11-2017 / 14:02:08 / cg" ! ! !CodeView2::GutterView methodsFor:'event handling'!