equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 2010 by Jan Vrany, SWING Research Group. CTU in Prague |
2 COPYRIGHT (c) 2010 by Jan Vrany, SWING Research Group. CTU in Prague |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 Permission is hereby granted, free of charge, to any person |
5 Permission is hereby granted, free of charge, to any person |
1193 |allAnnotations allBreakpoints scroller newBackground verticalScrollBar| |
1191 |allAnnotations allBreakpoints scroller newBackground verticalScrollBar| |
1194 |
1192 |
1195 allAnnotations := OrderedCollection new. |
1193 allAnnotations := OrderedCollection new. |
1196 allBreakpoints := OrderedCollection new. |
1194 allBreakpoints := OrderedCollection new. |
1197 services do:[:eachService | |
1195 services do:[:eachService | |
1198 allAnnotations addAll:(eachService annotations ? #()). |
1196 eachService enabled ifTrue:[ |
1199 eachService isBreakpointService ifTrue:[ |
1197 allAnnotations addAll:(eachService annotations ? #()). |
1200 allBreakpoints addAll:(eachService breakpoints ? #()). |
1198 eachService isBreakpointService ifTrue:[ |
1201 ]. |
1199 allBreakpoints addAll:(eachService breakpoints ? #()). |
|
1200 ]. |
|
1201 ] |
1202 ]. |
1202 ]. |
1203 |
1203 |
1204 verticalScrollBar := textViewScroller verticalScrollBar. |
1204 verticalScrollBar := textViewScroller verticalScrollBar. |
1205 verticalScrollBar notNil ifTrue:[ |
1205 verticalScrollBar notNil ifTrue:[ |
1206 scroller := verticalScrollBar thumb. |
1206 scroller := verticalScrollBar thumb. |
3062 services := (services select:[:s | s isLintService]) |
3062 services := (services select:[:s | s isLintService]) |
3063 ,(services reject:[:s | s isLintService]). |
3063 ,(services reject:[:s | s isLintService]). |
3064 |
3064 |
3065 services do:[:eachService | |
3065 services do:[:eachService | |
3066 |tooltip| |
3066 |tooltip| |
3067 |
3067 |
3068 tooltip := eachService helpTextAtLine:lineNr. |
3068 eachService enabled ifTrue:[ |
3069 tooltip notEmptyOrNil ifTrue:[ |
3069 tooltip := eachService helpTextAtLine:lineNr. |
3070 textCollector notEmpty ifTrue:[ textCollector cr]. |
3070 tooltip notEmptyOrNil ifTrue:[ |
3071 textCollector nextPutAllText:tooltip withCRs. |
3071 textCollector notEmpty ifTrue:[ textCollector cr]. |
3072 tooltip last == Character cr ifFalse:[textCollector cr]. |
3072 textCollector nextPutAllText:tooltip withCRs. |
|
3073 tooltip last == Character cr ifFalse:[textCollector cr]. |
|
3074 ]. |
3073 ]. |
3075 ]. |
3074 ]. |
3076 ]. |
3075 textCollector isEmpty ifTrue:[ ^ nil ]. |
3077 textCollector isEmpty ifTrue:[ ^ nil ]. |
3076 ^ textCollector contents. |
3078 ^ textCollector contents. |
3077 ! ! |
3079 ! ! |