The Trunk: Tools-eem.402.mcz

Eliot Miranda uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-eem.402.mcz

==================== Summary ====================

Name: Tools-eem.402
Author: eem
Time: 16 April 2012, 1:52:23.177 pm
UUID: 60d5c35a-b436-4fb2-af42-9af40bfb4001
Ancestors: Tools-eem.401

Provide a short-cut (cmd-shift-C) for copyReference.

Nuke null method in TimeProfileBrowser's menu processing.

Make the same bounds check in the indirect temp ref side
of privateDereference:in:.

=============== Diff against Tools-eem.401 ===============

Item was changed:
  ----- Method: Browser>>messageListMenu:shifted: (in category 'message functions') -----
  messageListMenu: aMenu shifted: shifted
  "Answer the message-list menu"
  self
  menuHook: aMenu
  named: #messageListMenu
  shifted: shifted.
  Preferences useOnlyServicesInMenu ifTrue:[^aMenu].
  shifted ifTrue: [^ self shiftedMessageListMenu: aMenu].
  aMenu addList: #(
  ('what to show...' offerWhatToShowMenu)
  ('toggle break on entry' toggleBreakOnEntry)
  -
  ('browse full (b)' browseMethodFull)
  ('browse hierarchy (h)' classHierarchy)
  ('browse method (O)' openSingleMessageBrowser)
  ('browse protocol (p)' browseFullProtocol)
  -
+ ('fileOut' fileOutMessage)
+ ('printOut' printOutMessage)
+ ('copy selector (c)' copySelector)
+ ('copy reference (C)' copyReference)
- ('fileOut' fileOutMessage)
- ('printOut' printOutMessage)
- ('copy selector (c)' copySelector)
- ('copy reference' copyReference)
  -
  ('senders of... (n)' browseSendersOfMessages)
  ('implementors of... (m)' browseMessages)
  ('inheritance (i)' methodHierarchy)
  ('versions (v)' browseVersions)
  -
  ('references... (r)' browseVariableReferences)
  ('assignments... (a)' browseVariableAssignments)
  ('class refs (N)' browseClassRefs)
  -
  ('remove method (x)' removeMessage)
  ('explore method' exploreMethod)
  ('inspect method' inspectMethod)
  -
  ('more...' shiftedYellowButtonActivity)).
  ^ aMenu!

Item was changed:
  ----- Method: DebuggerMethodMapForClosureCompiledMethods>>privateDereference:in: (in category 'private') -----
  privateDereference: tempReference in: aContext
  "Fetch the temporary with reference tempReference in aContext.
  tempReference can be
  integer - direct temp reference
  #( indirectionVectorIndex tempIndex ) - remote temp in indirectionVector at index
  #( outer. temp reference ) - a temp reference in an outer context."
  ^tempReference isInteger
  ifTrue:
  [tempReference <= aContext stackPtr ifTrue:
  [aContext tempAt: tempReference]]
  ifFalse:
  [tempReference first == #outer
  ifTrue:
  [self privateDereference: tempReference last
  in: aContext outerContext]
  ifFalse: "If stopped before indirection vectors are created they will be nil. Simply answer nil"
+ [tempReference first <= aContext stackPtr ifTrue:
+ [(aContext tempAt: tempReference first) ifNotNil:
+ [:indirectionVector|
+ indirectionVector at: tempReference second]]]]!
- [(aContext tempAt: tempReference first) ifNotNil:
- [:indirectionVector|
- indirectionVector at: tempReference second]]]!

Item was changed:
  ----- Method: MessageSet>>messageListMenu:shifted: (in category 'message functions') -----
  messageListMenu: aMenu shifted: shifted
  "Answer the message-list menu"
  self
  menuHook: aMenu
  named: #messageListMenu
  shifted: shifted.
  Preferences useOnlyServicesInMenu ifTrue:[^aMenu].
  shifted ifTrue: [^ self shiftedMessageListMenu: aMenu].
  aMenu addList: #(
  ('what to show...' offerWhatToShowMenu)
  ('toggle break on entry' toggleBreakOnEntry)
  -
  ('browse full (b)' browseMethodFull)
  ('browse hierarchy (h)' classHierarchy)
  ('browse method (O)' openSingleMessageBrowser)
  ('browse protocol (p)' browseFullProtocol)
  -
  ('fileOut' fileOutMessage)
  ('printOut' printOutMessage)
+ ('copy selector (c)' copySelector)
+ ('copy reference (C)' copyReference)
- ('copy selector (c)' copySelector)
- ('copy reference' copyReference)
  -
  ('senders of... (n)' browseSendersOfMessages)
  ('implementors of... (m)' browseMessages)
  ('inheritance (i)' methodHierarchy)
  ('versions (v)' browseVersions)
  -
  ('references... (r)' browseVariableReferences)
  ('assignments... (a)' browseVariableAssignments)
  ('class refs (N)' browseClassRefs)
  -
  ('remove method (x)' removeMessage)
  ('explore method' exploreMethod)
  ('inspect method' inspectMethod)
  -
  ('more...' shiftedYellowButtonActivity)).
  ^ aMenu!

Item was changed:
  ----- Method: RecentMessageSet>>messageListMenu:shifted: (in category 'message functions') -----
  messageListMenu: aMenu shifted: shifted
  "Answer the message-list menu"
 
  shifted ifTrue: [^ self shiftedMessageListMenu: aMenu].
  aMenu addList:#(
  ('what to show...' offerWhatToShowMenu)
  -
  ('browse full (b)' browseMethodFull)
  ('browse hierarchy (h)' classHierarchy)
  ('browse method (O)' openSingleMessageBrowser)
  ('browse protocol (p)' browseFullProtocol)
  -
+ ('fileOut (o)' fileOutMessage)
- ('fileOut (o)' fileOutMessage)
  ('printOut' printOutMessage)
  ('copy selector (c)' copySelector)
+ ('copy reference (C)' copyReference)
- ('copy reference' copyReference)
  -
  ('senders of... (n)' browseSendersOfMessages)
  ('implementors of... (m)' browseMessages)
+ ('inheritance (i)' methodHierarchy)
- ('inheritance (i)' methodHierarchy)
  ('versions (v)' browseVersions)
  -
  ('references... (r)' browseVariableReferences)
  ('assignments... (a)' browseVariableAssignments)
  ('class refs (N)' browseClassRefs)
  -
  ('remove method (x)' removeMessage)
  ('remove from RecentSubmissions' removeFromRecentSubmissions)
  -
  ('more...' shiftedYellowButtonActivity)).
  ^ aMenu!

Item was removed:
- ----- Method: TimeProfileBrowser>>messageListMenu:shifted: (in category 'private') -----
- messageListMenu: aMenu shifted: shifted
- "Add a menu to the inherited one."
-
- | menu |
- menu := super messageListMenu: aMenu shifted: shifted.
- " menu addItem: (0)."
- ^menu!