[squeak-dev] The Inbox: Tools-ct.960.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Mar 17 18:48:03 UTC 2020


Christoph Thiede uploaded a new version of Tools to project The Inbox:
http://source.squeak.org/inbox/Tools-ct.960.mcz

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

Name: Tools-ct.960
Author: ct
Time: 17 March 2020, 7:47:55.955389 pm
UUID: 2080d250-68a3-104f-82ee-cb57b534fd00
Ancestors: Tools-mt.955

Revise message list menus and make "toggle break on entry" an actual toggle item. Improves multilingual support.

=============== Diff against Tools-mt.955 ===============

Item was changed:
  ----- Method: Browser>>mainMessageListMenu: (in category 'message functions') -----
  mainMessageListMenu: aMenu
  	<messageListMenuShifted: false>
+ 
+ 	^ aMenu
+ 		addTranslatedList: #(
+ 			('what to show...'			offerWhatToShowMenu));
+ 		add: (self isBreakOnEntry ifTrue: ['<on>'] ifFalse: ['<off>']) , 'break on entry' translated
+ 			action: #toggleBreakOnEntry;
+ 		addTranslatedList: #(
- 	^ aMenu addList: #(
- 			('what to show...'			offerWhatToShowMenu)
- 			('toggle break on entry'		toggleBreakOnEntry)
  			-
  			('browse full (b)' 			browseMethodFull)
  			('browse hierarchy (h)'		browseClassHierarchy)
  			('browse protocol (p)'			browseFullProtocol)
  			-
  			('fileOut'					fileOutMessage)
  			('printOut'					printOutMessage)
  			('copy selector (c)'			copySelector)
  			('copy reference (C)'		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));
+ 		yourself!
- 		yourself
- !

Item was added:
+ ----- Method: CodeHolder>>isBreakOnEntry (in category 'breakpoints') -----
+ isBreakOnEntry
+ 
+ 	| selectedMethod |
+ 	selectedMethod := self selectedClassOrMetaClass
+ 		compiledMethodAt: self selectedMessageName
+ 		ifAbsent: [^ false].
+ 	^ selectedMethod hasBreakpoint!

Item was changed:
  ----- Method: Debugger>>mainContextStackMenu: (in category 'context stack menu') -----
  mainContextStackMenu: aMenu
  	"Set up the menu appropriately for the context-stack-list, unshifted"
  	<contextStackMenuShifted: false>
+ 	^ aMenu
+ 		addTranslatedList: #(
- 	^ aMenu addList: #(
  			('fullStack (f)' 				fullStack) 
  			('restart (r)' 				restart) 
  			('proceed (p)' 				proceed) 
  			('step (t)' 					doStep) 
  			('step through (T)'	 		stepIntoBlock) 
  			('send (e)' 					send) 
  			('where (w)' 				where) 
  			('peel to first like this' 		peelToFirst) 
  			- 
  			('return entered value' 		returnValue) 
+ 			- );
+ 		add: (self isBreakOnEntry ifTrue: ['<on>'] ifFalse: ['<off>']) , 'break on entry' translated
+ 			action: #toggleBreakOnEntry;
+ 		addTranslatedList: #(
- 			- 
- 			('toggle break on entry'	toggleBreakOnEntry) 
  			('senders of    (n)' 			browseSendersOfMessages) 
  			('implementors of    (m)' 	browseMessages) 
  			('inheritance (i)' 			methodHierarchy) 
- 			- 
  			('versions (v)' 				browseVersions) 
  			- 
  			('references    (r)' 			browseVariableReferences) 
  			('assignments    (a)' 		browseVariableAssignments) 
  			- 
  			('class refs (N)' 				browseClassRefs) 
  			('browse full (b)' 			browseMethodFull) 
  			('file out ' 			 		fileOutMessage) 
  			('remove method (x) ' 		removeMessage) 
  			- 
  			('copy bug report to clipboard'	copyBugReportToClipboard));
+ 		yourself!
- 		yourself
- !

Item was changed:
  ----- Method: MessageSet>>mainMessageListMenu: (in category 'message list') -----
  mainMessageListMenu: aMenu
- 	"Answer the message-list menu"
  	<messageListMenuShifted: false>
+ 
+ 	^ aMenu
+ 		addTranslatedList: #(
+ 			('what to show...'			offerWhatToShowMenu));
+ 		add: (self isBreakOnEntry ifTrue: ['<on>'] ifFalse: ['<off>']) , 'break on entry' translated
+ 			action: #toggleBreakOnEntry;
+ 		addTranslatedList: #(
- 	aMenu addList: #(
- 			('what to show...'			offerWhatToShowMenu)
- 			('toggle break on entry'		toggleBreakOnEntry)
  			-
  			('browse full (b)' 			browseMethodFull)
  			('browse hierarchy (h)'			browseClassHierarchy)
  			('browse protocol (p)'			browseFullProtocol)
  			-
  			('fileOut'				fileOutMessage)
  			('printOut'				printOutMessage)
  			('copy selector (c)'		copySelector)
  			('copy reference (C)'	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));
+ 		yourself!
- 			('inspect method'			inspectMethod)).
- 	^ aMenu!



More information about the Squeak-dev mailing list