equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 2000 by eXept Software AG |
4 COPYRIGHT (c) 2000 by eXept Software AG |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
6538 nil |
6540 nil |
6539 nil |
6541 nil |
6540 ) |
6542 ) |
6541 |
6543 |
6542 "Modified: / 18-08-2018 / 20:38:42 / Claus Gittinger" |
6544 "Modified: / 18-08-2018 / 20:38:42 / Claus Gittinger" |
|
6545 "Modified: / 21-04-2020 / 13:48:39 / cg" |
6543 ! |
6546 ! |
6544 |
6547 |
6545 bufferBaseMenu |
6548 bufferBaseMenu |
6546 "This resource specification was automatically generated |
6549 "This resource specification was automatically generated |
6547 by the MenuEditor of ST/X." |
6550 by the MenuEditor of ST/X." |
11387 enabled: hasFindHistoryClassesHolder |
11390 enabled: hasFindHistoryClassesHolder |
11388 label: 'Visited Methods' |
11391 label: 'Visited Methods' |
11389 submenuChannel: findHistoryMenu |
11392 submenuChannel: findHistoryMenu |
11390 ) |
11393 ) |
11391 (MenuItem |
11394 (MenuItem |
|
11395 enabled: hasRecentlyDebuggedHistoryHolder |
|
11396 label: 'Recently Debugged' |
|
11397 submenuChannel: recentlyDebuggedHistoryMenu |
|
11398 ) |
|
11399 (MenuItem |
11392 enabled: hasChangedMethodsHolder |
11400 enabled: hasChangedMethodsHolder |
11393 label: 'Changed Methods' |
11401 label: 'Changed Methods' |
11394 submenuChannel: changedMethodsMenu |
11402 submenuChannel: changedMethodsMenu |
11395 ) |
11403 ) |
11396 (MenuItem |
11404 (MenuItem |
11422 ) |
11430 ) |
11423 ) |
11431 ) |
11424 nil |
11432 nil |
11425 nil |
11433 nil |
11426 ) |
11434 ) |
|
11435 |
|
11436 "Modified: / 21-04-2020 / 13:50:27 / cg" |
11427 ! |
11437 ! |
11428 |
11438 |
11429 searchMenuInMethodList |
11439 searchMenuInMethodList |
11430 "This resource specification was automatically generated |
11440 "This resource specification was automatically generated |
11431 by the MenuEditor of ST/X." |
11441 by the MenuEditor of ST/X." |
23584 ^ [ self hasRealProtocolSelected ] |
23594 ^ [ self hasRealProtocolSelected ] |
23585 |
23595 |
23586 "Created: / 4.2.2000 / 22:09:02 / cg" |
23596 "Created: / 4.2.2000 / 22:09:02 / cg" |
23587 ! |
23597 ! |
23588 |
23598 |
|
23599 hasRecentlyDebuggedHistoryHolder |
|
23600 ^ [ DebugView debuggedMethodHistory size ~~ 0 ] |
|
23601 |
|
23602 "Created: / 21-04-2020 / 13:50:05 / cg" |
|
23603 ! |
|
23604 |
23589 hasRedoableOperations |
23605 hasRedoableOperations |
23590 |manager| |
23606 |manager| |
23591 |
23607 |
23592 RefactoryChangeManager isNil ifTrue:[^ false]. "/ returns false if the class is not present |
23608 RefactoryChangeManager isNil ifTrue:[^ false]. "/ returns false if the class is not present |
23593 manager := RefactoryChangeManager instance. |
23609 manager := RefactoryChangeManager instance. |
49443 ]. |
49459 ]. |
49444 |
49460 |
49445 dummyChangeSet := ChangeSet new addAll:previousMethods; yourself. |
49461 dummyChangeSet := ChangeSet new addAll:previousMethods; yourself. |
49446 dummyChangeSet reverse. "/ youngest first. |
49462 dummyChangeSet reverse. "/ youngest first. |
49447 browser := (UserPreferences current changeSetBrowserClass) openOn:dummyChangeSet. |
49463 browser := (UserPreferences current changeSetBrowserClass) openOn:dummyChangeSet. |
49448 browser label:(resources string:'Previous Versions of %1' with:(m whoStringWith:' » ')). |
49464 browser label:(resources string:'Previous Versions of %1' with:(m whoStringWith:' » ')). |
49449 browser perform:#rightCodeLabel: with:'Previous Version' ifNotUnderstood:[]. |
49465 browser perform:#rightCodeLabel: with:'Previous Version' ifNotUnderstood:[]. |
49450 browser readOnly:true. |
49466 browser readOnly:true. |
49451 |
49467 |
49452 "Modified: / 13-06-2011 / 11:32:10 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
49468 "Modified: / 13-06-2011 / 11:32:10 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
49453 "Modified: / 26-07-2012 / 14:30:20 / cg" |
49469 "Modified: / 26-07-2012 / 14:30:20 / cg" |
49670 ]. |
49686 ]. |
49671 "/ Transcript showCR:('it took %1 seconds' bindWith:(t /1000)printString). |
49687 "/ Transcript showCR:('it took %1 seconds' bindWith:(t /1000)printString). |
49672 |
49688 |
49673 self activityNotification:nil. |
49689 self activityNotification:nil. |
49674 browser := (UserPreferences current changeSetBrowserClass) openOn:previousMethods. |
49690 browser := (UserPreferences current changeSetBrowserClass) openOn:previousMethods. |
49675 browser window label:(resources string:'Revisions of %1 » %2' with:mclass name with:mselector). |
49691 browser window label:(resources string:'Revisions of %1 » %2' with:mclass name with:mselector). |
49676 browser readOnly:true. |
49692 browser readOnly:true. |
49677 ]. |
49693 ]. |
49678 |
49694 |
49679 "Modified: / 01-07-2011 / 16:34:29 / cg" |
49695 "Modified: / 01-07-2011 / 16:34:29 / cg" |
49680 "Created: / 18-11-2011 / 18:19:50 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
49696 "Created: / 18-11-2011 / 18:19:50 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
54418 nameShown ~= shortName ifTrue:[ |
54434 nameShown ~= shortName ifTrue:[ |
54419 (Smalltalk classNamed:(shortName)) isNil ifTrue:[ |
54435 (Smalltalk classNamed:(shortName)) isNil ifTrue:[ |
54420 nameShown := shortName |
54436 nameShown := shortName |
54421 ] |
54437 ] |
54422 ]. |
54438 ]. |
54423 lbl := (nameShown ? '???') , ' » ' , (chg selector ? '???') allBold. |
54439 lbl := (nameShown ? '???') , ' » ' , (chg selector ? '???') allBold. |
54424 (chg isMethodChange and:[chg changeMethod isNil]) ifTrue:[ |
54440 (chg isMethodChange and:[chg changeMethod isNil]) ifTrue:[ |
54425 lbl := lbl asText allStrikedOut,' ','(removed)' allItalic. |
54441 lbl := lbl asText allStrikedOut,' ','(removed)' allItalic. |
54426 ]. |
54442 ]. |
54427 lbl |
54443 lbl |
54428 ] |
54444 ] |
55575 ]. |
55591 ]. |
55576 m |
55592 m |
55577 ]. |
55593 ]. |
55578 |
55594 |
55579 "Modified: / 02-05-2014 / 17:49:17 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
55595 "Modified: / 02-05-2014 / 17:49:17 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
55596 ! |
|
55597 |
|
55598 recentlyDebuggedHistoryMenu |
|
55599 <resource: #programMenu > |
|
55600 |
|
55601 ^ [ |
|
55602 |m| |
|
55603 |
|
55604 DebugView debuggedMethodHistory size ~~ 0 ifTrue:[ |
|
55605 m := Menu new. |
|
55606 DebugView debuggedMethodHistory do:[:whoEntry | |
|
55607 |item itemLabel| |
|
55608 |
|
55609 itemLabel := whoEntry methodClass name , ' >> ' , whoEntry methodSelector. |
|
55610 item := MenuItem label:itemLabel. |
|
55611 item itemValue:[ self switchToClass:whoEntry methodClass selector:whoEntry methodSelector updateHistory: false ]. |
|
55612 m addItem:item. |
|
55613 ]. |
|
55614 ]. |
|
55615 m |
|
55616 ]. |
|
55617 |
|
55618 "Created: / 21-04-2020 / 13:53:35 / cg" |
55580 ! |
55619 ! |
55581 |
55620 |
55582 selectedClassesHierarchyMenu |
55621 selectedClassesHierarchyMenu |
55583 <resource: #programMenu > |
55622 <resource: #programMenu > |
55584 |
55623 |