equal
deleted
inserted
replaced
3157 lineNo := lineNo - 1. |
3157 lineNo := lineNo - 1. |
3158 line := self listAt:lineNo. |
3158 line := self listAt:lineNo. |
3159 |
3159 |
3160 line notNil ifTrue:[ |
3160 line notNil ifTrue:[ |
3161 indent := line indexOfNonSeparatorStartingAt:1. |
3161 indent := line indexOfNonSeparatorStartingAt:1. |
3162 "beggining od block" |
3162 "beggining of block" |
3163 line notEmptyOrNil ifTrue:[ |
3163 line notEmptyOrNil ifTrue:[ |
3164 line last == $[ ifTrue:[ |
3164 line last == $[ ifTrue:[ |
3165 indent := indent + 4. |
3165 indent := indent + 4. |
3166 ] ifFalse:[ |
3166 ] ifFalse:[ |
3167 "end of block args" |
3167 "end of block args" |
3169 indent := indent + 4. |
3169 indent := indent + 4. |
3170 ] |
3170 ] |
3171 ]. |
3171 ]. |
3172 ]. |
3172 ]. |
3173 indent ~~ 0 ifTrue:[ |
3173 indent ~~ 0 ifTrue:[ |
3174 ^ indent - 1 |
3174 ^ indent - 1 |
3175 ] |
3175 ] |
3176 ] |
3176 ] |
3177 ]. |
3177 ]. |
3178 ^0. |
3178 ^0. |
3179 ]. |
3179 ]. |
3612 ! ! |
3612 ! ! |
3613 |
3613 |
3614 !CodeView2 class methodsFor:'documentation'! |
3614 !CodeView2 class methodsFor:'documentation'! |
3615 |
3615 |
3616 version |
3616 version |
3617 ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.115 2013-08-31 22:34:01 cg Exp $' |
3617 ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.116 2013-09-01 12:03:10 cg Exp $' |
3618 ! |
3618 ! |
3619 |
3619 |
3620 version_CVS |
3620 version_CVS |
3621 ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.115 2013-08-31 22:34:01 cg Exp $' |
3621 ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.116 2013-09-01 12:03:10 cg Exp $' |
3622 ! |
3622 ! |
3623 |
3623 |
3624 version_SVN |
3624 version_SVN |
3625 ^ '$Id: Tools__CodeView2.st,v 1.115 2013-08-31 22:34:01 cg Exp $' |
3625 ^ '$Id: Tools__CodeView2.st,v 1.116 2013-09-01 12:03:10 cg Exp $' |
3626 ! ! |
3626 ! ! |
3627 |
3627 |
3628 |
3628 |
3629 CodeView2 initialize! |
3629 CodeView2 initialize! |