equal
deleted
inserted
replaced
11 ! |
11 ! |
12 |
12 |
13 !NewSystemBrowserCodeView class methodsFor:'documentation'! |
13 !NewSystemBrowserCodeView class methodsFor:'documentation'! |
14 |
14 |
15 version_SVN |
15 version_SVN |
16 ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowserCodeView.st,v 1.1 2009-09-23 17:00:52 fm Exp $' |
16 ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowserCodeView.st,v 1.2 2009-09-28 09:08:21 fm Exp $' |
17 ! ! |
17 ! ! |
18 |
18 |
19 !NewSystemBrowserCodeView class methodsFor:'initialization'! |
19 !NewSystemBrowserCodeView class methodsFor:'initialization'! |
20 |
20 |
21 initialize |
21 initialize |
704 | line start end | |
704 | line start end | |
705 (lineNo between:startLine and: endLine) ifFalse:[^self]. |
705 (lineNo between:startLine and: endLine) ifFalse:[^self]. |
706 line := self listAt: lineNo. |
706 line := self listAt: lineNo. |
707 start := lineNo = startLine |
707 start := lineNo = startLine |
708 ifTrue:[startCol] |
708 ifTrue:[startCol] |
709 ifFalse:[line indexOfFirstNonBlankCharacter]. |
709 ifFalse:[line indexOfSeparator]. |
710 end := lineNo = endLine |
710 end := lineNo = endLine |
711 ifTrue:[endCol] |
711 ifTrue:[endCol] |
712 ifFalse:[line size]. |
712 ifFalse:[line size]. |
713 line emphasisFrom: start to: end add: self highlightEmphasis |
713 line emphasisFrom: start to: end add: self highlightEmphasis |
714 |
714 |
906 ! ! |
906 ! ! |
907 |
907 |
908 !NewSystemBrowserCodeView class methodsFor:'documentation'! |
908 !NewSystemBrowserCodeView class methodsFor:'documentation'! |
909 |
909 |
910 version |
910 version |
911 ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowserCodeView.st,v 1.1 2009-09-23 17:00:52 fm Exp $' |
911 ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowserCodeView.st,v 1.2 2009-09-28 09:08:21 fm Exp $' |
912 ! ! |
912 ! ! |
913 |
913 |
914 NewSystemBrowserCodeView initialize! |
914 NewSystemBrowserCodeView initialize! |