equal
deleted
inserted
replaced
2871 |
2871 |
2872 leftIndentForLine:lineNr |
2872 leftIndentForLine:lineNr |
2873 |
2873 |
2874 | lang | |
2874 | lang | |
2875 lang := codeView language. |
2875 lang := codeView language. |
2876 "Bit hacky here, should ask language for some |
2876 "Bit hacky here, should ask language some language toolbox |
2877 formatting helper..." |
2877 for formatting helper, that should do it..." |
2878 lang isSmalltalk ifTrue:[ |
2878 (lang notNil and:[lang isSmalltalk]) ifTrue:[ |
2879 | line lineNo indent | |
2879 | line lineNo indent | |
2880 lineNo := lineNr. |
2880 lineNo := lineNr. |
2881 [lineNo ~~ 1] whileTrue:[ |
2881 [lineNo ~~ 1] whileTrue:[ |
2882 lineNo := lineNo - 1. |
2882 lineNo := lineNo - 1. |
2883 line := self listAt:lineNo. |
2883 line := self listAt:lineNo. |
3223 ! ! |
3223 ! ! |
3224 |
3224 |
3225 !CodeView2 class methodsFor:'documentation'! |
3225 !CodeView2 class methodsFor:'documentation'! |
3226 |
3226 |
3227 version |
3227 version |
3228 ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.43 2011-12-13 12:12:07 vrany Exp $' |
3228 ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.44 2011-12-14 11:11:23 vrany Exp $' |
3229 ! |
3229 ! |
3230 |
3230 |
3231 version_CVS |
3231 version_CVS |
3232 ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.43 2011-12-13 12:12:07 vrany Exp $' |
3232 ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.44 2011-12-14 11:11:23 vrany Exp $' |
3233 ! |
3233 ! |
3234 |
3234 |
3235 version_SVN |
3235 version_SVN |
3236 ^ '§Id: Tools__CodeView2.st 7797 2011-06-28 07:45:06Z vranyj1 §' |
3236 ^ '§Id: Tools__CodeView2.st 7797 2011-06-28 07:45:06Z vranyj1 §' |
3237 ! ! |
3237 ! ! |