equal
deleted
inserted
replaced
183 (MenuItem |
183 (MenuItem |
184 label: 'Inspect Syntax Elements' |
184 label: 'Inspect Syntax Elements' |
185 itemValue: inspectSyntaxElements |
185 itemValue: inspectSyntaxElements |
186 translateLabel: true |
186 translateLabel: true |
187 ) |
187 ) |
|
188 (MenuItem |
|
189 label: 'Inspect Breakpoints' |
|
190 itemValue: inspectBreakpoints |
|
191 isVisible: hasBreakpointService |
|
192 enabled: hasBreakpoints |
|
193 translateLabel: true |
|
194 ) |
188 "/ (MenuItem |
195 "/ (MenuItem |
189 "/ label: 'Inspect Selected Selector' |
196 "/ label: 'Inspect Selected Selector' |
190 "/ itemValue: inspectSelectedSelector |
197 "/ itemValue: inspectSelectedSelector |
191 "/ translateLabel: true |
198 "/ translateLabel: true |
192 "/ ) |
199 "/ ) |
194 nil |
201 nil |
195 nil |
202 nil |
196 ) |
203 ) |
197 |
204 |
198 "Created: / 08-07-2011 / 13:36:02 / cg" |
205 "Created: / 08-07-2011 / 13:36:02 / cg" |
|
206 "Modified: / 29-05-2019 / 14:55:03 / Claus Gittinger" |
199 ! |
207 ! |
200 |
208 |
201 editMenu |
209 editMenu |
202 "This resource specification was automatically generated |
210 "This resource specification was automatically generated |
203 by the MenuEditor of ST/X." |
211 by the MenuEditor of ST/X." |
2352 ]. |
2360 ]. |
2353 |
2361 |
2354 "Created: / 18-02-2019 / 19:45:52 / Claus Gittinger" |
2362 "Created: / 18-02-2019 / 19:45:52 / Claus Gittinger" |
2355 ! |
2363 ! |
2356 |
2364 |
|
2365 hasBreakpointService |
|
2366 ^ self breakpointService notNil |
|
2367 |
|
2368 "Created: / 29-05-2019 / 14:54:42 / Claus Gittinger" |
|
2369 ! |
|
2370 |
|
2371 hasBreakpoints |
|
2372 |bpService| |
|
2373 |
|
2374 ^ (bpService := self breakpointService) notNil |
|
2375 and:[ bpService hasBreakpoints] |
|
2376 |
|
2377 "Created: / 29-05-2019 / 14:53:29 / Claus Gittinger" |
|
2378 ! |
|
2379 |
|
2380 inspectBreakpoints |
|
2381 self breakpointService breakpoints inspect. |
|
2382 |
|
2383 "Created: / 29-05-2019 / 14:53:20 / Claus Gittinger" |
|
2384 ! |
|
2385 |
2357 lintService |
2386 lintService |
2358 "prefers the smallsense-lint service over others" |
2387 "prefers the smallsense-lint service over others" |
2359 |
2388 |
2360 ^ services |
2389 ^ services |
2361 detect:[:any| (any isKindOf:SmallSense::SmalltalkLintService)] |
2390 detect:[:any| (any isKindOf:SmallSense::SmalltalkLintService)] |