equal
deleted
inserted
replaced
2168 <resource: #programMenu> |
2168 <resource: #programMenu> |
2169 |
2169 |
2170 |m sub subsub idx sensor sel2 sel selectedSymbol| |
2170 |m sub subsub idx sensor sel2 sel selectedSymbol| |
2171 |
2171 |
2172 m := super editMenu. |
2172 m := super editMenu. |
|
2173 |
2173 ((sensor := self sensor) notNil and:[sensor ctrlDown and:[sensor shiftDown not]]) ifTrue:[ |
2174 ((sensor := self sensor) notNil and:[sensor ctrlDown and:[sensor shiftDown not]]) ifTrue:[ |
2174 sub := m. |
2175 sub := m. |
2175 m := nil. |
2176 m := nil. |
2176 ] ifFalse:[ |
2177 ] ifFalse:[ |
2177 sub := m subMenuAt:#others. |
2178 sub := m subMenuAt:#others. |
2332 add them after paste. |
2333 add them after paste. |
2333 " |
2334 " |
2334 idx := m indexOf:#paste. |
2335 idx := m indexOf:#paste. |
2335 idx == 0 ifTrue:[idx := m indexOf:#pasteOrReplace]. |
2336 idx == 0 ifTrue:[idx := m indexOf:#pasteOrReplace]. |
2336 idx ~~ 0 ifTrue:[ |
2337 idx ~~ 0 ifTrue:[ |
|
2338 (cursorLine notNil and:[cursorCol notNil]) ifTrue:[ |
|
2339 |t| |
|
2340 t := (self textFromLine:cursorLine col:cursorCol toLine:cursorLine col:cursorCol) asString. |
|
2341 t isText ifTrue:[ |
|
2342 (t hasEmphasis:#actionBlock) ifTrue:[ |
|
2343 m |
|
2344 addItemList:#( |
|
2345 ('See Detail' seeDetail ) |
|
2346 ('-' )) |
|
2347 resources:resources |
|
2348 before:1. |
|
2349 ]. |
|
2350 ]. |
|
2351 ]. |
2337 m |
2352 m |
2338 addItemList:#( |
2353 addItemList:#( |
2339 ('-' ) |
2354 ('-' ) |
2340 ('DoIt' doIt DoIt ) |
2355 ('DoIt' doIt DoIt ) |
2341 ('PrintIt' printIt PrintIt ) |
2356 ('PrintIt' printIt PrintIt ) |
2364 |
2379 |
2365 ^ m ? sub. |
2380 ^ m ? sub. |
2366 |
2381 |
2367 "Modified: / 22-04-1998 / 21:49:06 / ca" |
2382 "Modified: / 22-04-1998 / 21:49:06 / ca" |
2368 "Modified: / 20-12-2011 / 11:22:20 / cg" |
2383 "Modified: / 20-12-2011 / 11:22:20 / cg" |
2369 "Modified: / 12-03-2019 / 16:36:22 / Claus Gittinger" |
2384 "Modified: / 28-05-2019 / 11:05:55 / Claus Gittinger" |
2370 ! |
2385 ! |
2371 |
2386 |
2372 inspectInstances |
2387 inspectInstances |
2373 |nameOfVariable cls insts| |
2388 |nameOfVariable cls insts| |
2374 |
2389 |
2490 |
2505 |
2491 "Created: / 08-11-2007 / 11:31:54 / cg" |
2506 "Created: / 08-11-2007 / 11:31:54 / cg" |
2492 "Modified: / 12-03-2019 / 16:34:23 / Claus Gittinger" |
2507 "Modified: / 12-03-2019 / 16:34:23 / Claus Gittinger" |
2493 ! |
2508 ! |
2494 |
2509 |
|
2510 seeDetail |
|
2511 "user selected 'seeDetails' from menu while the cursor was at a text-element with |
|
2512 an actionBlock. Evaluate it. |
|
2513 Used by the inspector to provide detail about errors" |
|
2514 |
|
2515 |t emphasisAction| |
|
2516 |
|
2517 t := (self textFromLine:cursorLine col:cursorCol toLine:cursorLine col:cursorCol) asString. |
|
2518 t isText ifTrue:[ |
|
2519 (emphasisAction := Text actionBlockFromEmphasis:(t emphasisAt:1)) notNil ifTrue:[ |
|
2520 emphasisAction value. |
|
2521 ]. |
|
2522 ]. |
|
2523 |
|
2524 "Created: / 28-05-2019 / 11:05:45 / Claus Gittinger" |
|
2525 ! |
|
2526 |
2495 spyOnIt |
2527 spyOnIt |
2496 "user selected 'spyOnIt' from menu; show a wait-cursor, evaluate the code |
2528 "user selected 'spyOnIt' from menu; show a wait-cursor, evaluate the code |
2497 and finally restore the cursor. Show profile data on the Transcript" |
2529 and finally restore the cursor. Show profile data on the Transcript" |
2498 |
2530 |
2499 self spyOnItUsing:MessageTally |
2531 self spyOnItUsing:MessageTally |