--- a/Tools__NewSystemBrowser.st Tue Apr 21 13:46:14 2020 +0200
+++ b/Tools__NewSystemBrowser.st Tue Apr 21 13:54:09 2020 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 2000 by eXept Software AG
All Rights Reserved
@@ -6540,6 +6542,7 @@
)
"Modified: / 18-08-2018 / 20:38:42 / Claus Gittinger"
+ "Modified: / 21-04-2020 / 13:48:39 / cg"
!
bufferBaseMenu
@@ -11389,6 +11392,11 @@
submenuChannel: findHistoryMenu
)
(MenuItem
+ enabled: hasRecentlyDebuggedHistoryHolder
+ label: 'Recently Debugged'
+ submenuChannel: recentlyDebuggedHistoryMenu
+ )
+ (MenuItem
enabled: hasChangedMethodsHolder
label: 'Changed Methods'
submenuChannel: changedMethodsMenu
@@ -11424,6 +11432,8 @@
nil
nil
)
+
+ "Modified: / 21-04-2020 / 13:50:27 / cg"
!
searchMenuInMethodList
@@ -23586,6 +23596,12 @@
"Created: / 4.2.2000 / 22:09:02 / cg"
!
+hasRecentlyDebuggedHistoryHolder
+ ^ [ DebugView debuggedMethodHistory size ~~ 0 ]
+
+ "Created: / 21-04-2020 / 13:50:05 / cg"
+!
+
hasRedoableOperations
|manager|
@@ -49445,7 +49461,7 @@
dummyChangeSet := ChangeSet new addAll:previousMethods; yourself.
dummyChangeSet reverse. "/ youngest first.
browser := (UserPreferences current changeSetBrowserClass) openOn:dummyChangeSet.
- browser label:(resources string:'Previous Versions of %1' with:(m whoStringWith:' » ')).
+ browser label:(resources string:'Previous Versions of %1' with:(m whoStringWith:' » ')).
browser perform:#rightCodeLabel: with:'Previous Version' ifNotUnderstood:[].
browser readOnly:true.
@@ -49672,7 +49688,7 @@
self activityNotification:nil.
browser := (UserPreferences current changeSetBrowserClass) openOn:previousMethods.
- browser window label:(resources string:'Revisions of %1 » %2' with:mclass name with:mselector).
+ browser window label:(resources string:'Revisions of %1 » %2' with:mclass name with:mselector).
browser readOnly:true.
].
@@ -54420,7 +54436,7 @@
nameShown := shortName
]
].
- lbl := (nameShown ? '???') , ' » ' , (chg selector ? '???') allBold.
+ lbl := (nameShown ? '???') , ' » ' , (chg selector ? '???') allBold.
(chg isMethodChange and:[chg changeMethod isNil]) ifTrue:[
lbl := lbl asText allStrikedOut,' ','(removed)' allItalic.
].
@@ -55579,6 +55595,29 @@
"Modified: / 02-05-2014 / 17:49:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
+recentlyDebuggedHistoryMenu
+ <resource: #programMenu >
+
+ ^ [
+ |m|
+
+ DebugView debuggedMethodHistory size ~~ 0 ifTrue:[
+ m := Menu new.
+ DebugView debuggedMethodHistory do:[:whoEntry |
+ |item itemLabel|
+
+ itemLabel := whoEntry methodClass name , ' >> ' , whoEntry methodSelector.
+ item := MenuItem label:itemLabel.
+ item itemValue:[ self switchToClass:whoEntry methodClass selector:whoEntry methodSelector updateHistory: false ].
+ m addItem:item.
+ ].
+ ].
+ m
+ ].
+
+ "Created: / 21-04-2020 / 13:53:35 / cg"
+!
+
selectedClassesHierarchyMenu
<resource: #programMenu >