[Pkg] The Trunk: Tools-ar.159.mcz

commits at source.squeak.org commits at source.squeak.org
Sun Jan 3 23:55:35 UTC 2010

Andreas Raab uploaded a new version of Tools to project The Trunk:

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

Name: Tools-ar.159
Author: ar
Time: 4 January 2010, 12:54:43 pm
UUID: a4cc75ec-086a-cb47-8306-b82b0c28d165
Ancestors: Tools-nice.157

Make Etoys unloadable: Remove support for isolatedCodePane and installTilesAsSelection since both require Etoys to be present.

=============== Diff against Tools-nice.157 ===============

Item was changed:
  ----- Method: ChangeSorter>>shiftedMessageMenu: (in category 'message list') -----
  shiftedMessageMenu: aMenu
  	"Arm the menu so that it holds items appropriate to the message-list while the shift key is down.  Answer the menu."
  	^ aMenu addList: #(
- 		('method pane'						makeIsolatedCodePane)
  		('toggle diffing (D)'					toggleDiffing)
  		('implementors of sent messages'		browseAllMessages)
  		('change category...'				changeCategory)
  		('sample instance'					makeSampleInstance)
  		('inspect instances'					inspectInstances)
  		('inspect subinstances'				inspectSubInstances)
  		('change sets with this method'		findMethodInChangeSets)
  		('revert to previous version'			revertToPreviousVersion)
  		('revert & remove from changes'	revertAndForget)
  		('more...'							unshiftedYellowButtonActivity))!

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) 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)
  			('senders of... (n)'			browseSendersOfMessages)
  			('implementors of... (m)'		browseMessages)
  			('inheritance (i)'			methodHierarchy)
- 			('tile scriptor'			openSyntaxView)
  			('versions (v)'				browseVersions)
  			('inst var refs...'			browseInstVarRefs)
  			('inst var defs...'			browseInstVarDefs)
  			('class var refs...'			browseClassVarRefs)
  			('class variables'			browseClassVariables)
  			('class refs (N)'			browseClassRefs)
  			('remove method (x)'			removeMessage)
  			('more...'				shiftedYellowButtonActivity)).
  	^ aMenu!

Item was changed:
  ----- Method: CodeHolder class>>defaultContentsSymbolQuints (in category 'controls') -----
  	"Default list of quintuplets representing information on the alternative views available in the code pane
  		first element:	the contentsSymbol used
  		second element:	the selector to call when this item is chosen.
  		third element:	the selector to call to obtain the wording of the menu item.
  		fourth element:	the wording to represent this view
  		fifth element:	balloon help
  	A hypen indicates a need for a seperator line in a menu of such choices"
  	^ {
  			. #togglePlainSource 
  			. #showingPlainSourceString 
  			. 'source'
  			. 'the textual source code as written' translated} .
  			. #toggleShowDocumentation
  			. #showingDocumentationString
  			. 'documentation'
  			. 'the first comment in the method' translated} .
  		#- .
  			. #togglePrettyPrint
  			. #prettyPrintString
  			. 'prettyPrint'
  			. 'the method source presented in a standard text format' translated} .
  		#- .
  			. #toggleRegularDiffing
  			. #showingRegularDiffsString
  			. 'showDiffs'
  			. 'the textual source diffed from its prior version' translated} .
  		#- .
  			. #toggleDecompile
  			. #showingDecompileString
  			. 'decompile'
  			. 'source code decompiled from byteCodes' translated} .
  			. #toggleShowingByteCodes
  			. #showingByteCodesString
  			. 'byteCodes'	
  			. 'the bytecodes that comprise the compiled method' translated} .
- 		#- .
- 		{#tiles
- 			. #toggleShowingTiles
- 			. #showingTilesString
- 			. 'tiles'
- 			. 'universal tiles representing the method' translated}

Item was changed:
  ----- Method: MethodHolder>>doItReceiver (in category 'menu') -----
  	"If there is an instance associated with me, answer it, for true mapping of self.  If not, then do what other code-bearing tools do, viz. give access to the class vars."
- 	(self dependents detect: [:m | m isKindOf: MethodMorph]) ifNotNil:
- 		[:mm | (mm owner isKindOf: ScriptEditorMorph) ifTrue:
- 			[^ mm owner playerScripted]].
  	^ self selectedClass ifNil: [FakeClassPool new]!

Item was changed:
  ----- Method: Browser>>shiftedMessageListMenu: (in category 'message functions') -----
  shiftedMessageListMenu: aMenu
  	"Fill aMenu with the items appropriate when the shift key is held down"
  	Smalltalk isMorphic ifTrue: [aMenu addStayUpItem].
  	aMenu addList: #(
- 		('method pane' 							makeIsolatedCodePane)
- 		('tile scriptor'							openSyntaxView)
  		('toggle diffing (D)'						toggleDiffing)
  		('implementors of sent messages'			browseAllMessages)
  		('local senders of...'						browseLocalSendersOfMessages)
  		('local implementors of...'				browseLocalImplementors)
  		('spawn sub-protocol'					spawnProtocol)
  		('spawn full protocol'					spawnFullProtocol)
  		('sample instance'						makeSampleInstance)
  		('inspect instances'						inspectInstances)
  		('inspect subinstances'					inspectSubInstances)).
  	self addExtraShiftedItemsTo: aMenu.
  	aMenu addList: #(
  		('change category...'					changeCategory)).
  	self canShowMultipleMessageCategories ifTrue: [aMenu addList:
  		 #(('show category (C)'						showHomeCategory))].
  	aMenu addList: #(
  		('change sets with this method'			findMethodInChangeSets)
  		('revert to previous version'				revertToPreviousVersion)
  		('remove from current change set'		removeFromCurrentChanges)
  		('revert & remove from changes'		revertAndForget)
  		('add to current change set'				adoptMessageInCurrentChangeset)
  		('copy up or copy down...'				copyUpOrCopyDown)
  		('more...' 								unshiftedYellowButtonActivity)).
  	^ aMenu

Item was changed:
+ ----- Method: CodeHolder>>installTextualCodingPane (in category 'diffs') -----
- ----- Method: CodeHolder>>installTextualCodingPane (in category 'misc') -----
  	"Install text into the code pane"
  	| aWindow codePane aPane boundsToUse |
  	(aWindow := self containingWindow) ifNil: [self error: 'where''s that window?'].
  	codePane := aWindow findDeepSubmorphThat:   
+ 		[:m | ((m isKindOf: PluggableTextMorph) and: [m getTextSelector == #contents])]
+ 			ifAbsent: [self error: 'no code pane'].
- 		[:m | ((m isKindOf: PluggableTextMorph) and: [m getTextSelector == #contents]) or:
- 			[m isKindOf: PluggableTileScriptorMorph]] ifAbsent: [self error: 'no code pane'].
  	aPane := self buildMorphicCodePaneWith: nil.
  	boundsToUse := (codePane bounds origin- (1 at 1)) corner: (codePane owner bounds corner " (1 at 1").
  	aWindow replacePane: codePane with: aPane.
  	aPane vResizing: #spaceFill; hResizing: #spaceFill; borderWidth: 0.
  	aPane bounds: boundsToUse.
  	aPane owner clipSubmorphs: false.
  	self contentsChanged!

Item was removed:
- ----- Method: MethodHolder class>>makeIsolatedCodePaneForClass:selector: (in category 'instance creation') -----
- makeIsolatedCodePaneForClass: aClass selector: aSelector
- 	"Create, and place in the morphic Hand, an isolated code pane bearing source code for the given class and selector"
- 	(self isolatedCodePaneForClass: aClass selector: aSelector) openInHand!

Item was removed:
- ----- Method: StringHolder>>makeIsolatedCodePane (in category '*Tools') -----
- makeIsolatedCodePane
- 	| msgName |
- 	(msgName := self selectedMessageName) ifNil: [^ Beeper beep].
- 	MethodHolder makeIsolatedCodePaneForClass: self selectedClassOrMetaClass selector: msgName!

Item was removed:
- ----- Method: ComponentLayout>>inspectModelInMorphic (in category '*Tools') -----
- inspectModelInMorphic
- 	| insp |
- 	insp := InspectorBrowser openOn: self model.
- 	self world addMorph: insp; startStepping: insp!

Item was removed:
- ----- Method: MethodHolder class>>isolatedCodePaneForClass:selector: (in category 'instance creation') -----
- isolatedCodePaneForClass: aClass selector: aSelector
- 	"Answer a MethodMorph on the given class and selector"
- 	| aCodePane aMethodHolder |
- 	aMethodHolder := self new.
- 	aMethodHolder methodClass: aClass methodSelector: aSelector.
- 	aCodePane := MethodMorph on: aMethodHolder text: #contents accept: #contents:notifying:
- 			readSelection: #contentsSelection menu: #codePaneMenu:shifted:.
- 	aMethodHolder addDependent: aCodePane.
- 	aCodePane borderWidth: 2; color: Color white.
- 	aCodePane scrollBarOnLeft: false.
- 	aCodePane width: 300.
- 	^ aCodePane!

More information about the Packages mailing list