[Vm-dev] VM Maker: CogTools-eem.89.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Jun 7 23:24:51 UTC 2018


Eliot Miranda uploaded a new version of CogTools to project VM Maker:
http://source.squeak.org/VMMaker/CogTools-eem.89.mcz

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

Name: CogTools-eem.89
Author: eem
Time: 7 June 2018, 4:24:39.450228 pm
UUID: 08c05bc7-0618-4ae9-9d9c-cd76d1857cbd
Ancestors: CogTools-eem.88

Eliminate a deprecation warning on Squeak.

=============== Diff against CogTools-eem.88 ===============

Item was changed:
  ----- Method: SqueakVMProfiler>>openInWindow (in category 'opening') -----
  openInWindow
  	"VMProfiler open"
  	| window symbolListMorph labelsMorph buttons |
  	(window := SystemWindow new)
  		setProperty: #allowPaneSplitters toValue: false;
  		model: self;
  		setLabel: self class name;
  		fillStyle: Color white;
  		paneColor: Color white;
  		color: Color white.
  	(window respondsTo: #allowPaneSplitters:) ifTrue:
  		[window allowPaneSplitters: false].
  	"Cope with Squeak 4.1 SystemWindow background color changes"
  	window addMorph: (AlignmentMorph new color: Color white; yourself) frame: (0 at 0 corner: 1 at 1).
  	symbolListMorph := PluggableListMorphOfManyAlt
  						on: self
  						list: #symbolList
  						primarySelection: #symbolIndex
  						changePrimarySelection: #toggleListIndex:
  						listSelection: #symbolSelectionAt:
  						changeListSelection: #symbolSelectionAt:put:
  						getListElement: #listEntryForIndex:
  						menu: #symbolListMenu:.
+ 	symbolListMorph hScrollBarPolicy: #whenNeeded. "buggy misnamed selector :)"
- 	symbolListMorph showHScrollBarOnlyWhenNeeded: false. "buggy misnamed selector :)"
  	labelsMorph := VMProfileGraphLabelMorph model: self font: self labelFont getLabels: #positionedLabels.
  	expressionTextMorph := PluggableTextMorph
  								on: self
  								text: nil accept: nil
  								readSelection: #selectionRange
  								menu: #expressionTextMenu:.
  	expressionTextMorph
  		setProperty: #alwaysAccept toValue: true;
  		askBeforeDiscardingEdits: false;
  		setBalloonText: 'type an expression to profile here'.
  	buttons := OrderedCollection new.
  	window
  		addMorph: symbolListMorph frame: (0 at 0 corner: 0.15 at 1);
  		addMorph: (graph := VMProfilePlotMorph model: self) frame: (0.15 at 0 corner: 1.0 at 0.7);
  		addMorph: labelsMorph frame: (0.15 at 0.7 corner: 1.0 at 0.85);
  		"address boxes"
  		addMorph: (self addressTextMorph:'Type the low address of the histogram here'
  						get: #lowAddressText
  						set: #lowAddressText:)
  			frame: (0.16 at 0.86 corner: 0.27 at 0.91);
  		addMorph: (self addressTextMorph:'Type the high address of the histogram here'
  						get: #highAddressText
  						set: #highAddressText:)
  			frame: (0.88 at 0.86 corner: 0.99 at 0.91);
  		addMorph: (self totalTextMorph: 'Shows the total number of samples' get: #totalText)
  			frame: (0.88 at 0.92 corner: 0.99 at 0.98);
  		"symbol list check-box filters"
  		addMorph: (self checkMorph: 'show module symbols'
  						get: #showingModules
  						set: #toggleShowModules)
  			frame: (0.16 at 0.915 corner: 0.175 at 0.93);
  		addMorph: (buttons addLast: (StringMorph contents: 'modules'))
  			frame: (0.19 at 0.915 corner: 0.27 at 0.93);
  		addMorph: (self checkMorph: 'show extern symbols'
  						get: #showingPublicFunctions
  						set: #toggleShowPublicFunctions)
  			frame: (0.16 at 0.935 corner: 0.175 at 0.95);
  		addMorph: (buttons addLast: (StringMorph contents: 'externs'))
  			frame: (0.19 at 0.935 corner: 0.27 at 0.95);
  		addMorph: (self checkMorph: 'show static symbols'
  						get: #showingPrivateFunctions
  						set: #toggleShowPrivateFunctions)
  			frame: (0.16 at 0.955 corner: 0.175 at 0.97);
  		addMorph: (buttons addLast: (StringMorph contents: 'statics'))
  			frame: (0.19 at 0.955 corner: 0.27 at 0.97);
  		addMorph: (self checkMorph: 'show static symbols'
  						get: #showingLabels
  						set: #toggleShowLabels)
  			frame: (0.16 at 0.975 corner: 0.175 at 0.99);
  		addMorph: (buttons addLast: (StringMorph contents: 'labels'))
  			frame: (0.19 at 0.975 corner: 0.27 at 0.99);
  		"history buttons"
  		addMorph: (self historyButtonMorph: #backwardsButton help: 'go back to previous selection'
  						set: #regress enable: #hasHistory color: #hasHistoryColor)
  			frame: (0.28 at 0.86 corner: 0.315 at 0.90);
  		addMorph: (self historyButtonMorph: #forwardsButton help: 'go forward to next selection'
  						set: #progress enable: #hasFuture color: #hasFutureColor)
  			frame: (0.32 at 0.86 corner: 0.355 at 0.90);
  		"profiling buttons"
  		addMorph: (self buttonMorph: #drawButton help: 'plot the graph'
  						set: #plotGraph enable: #notProfilingAndData color: #clearColor)
  			frame: (0.37 at 0.86 corner: 0.45 at 0.91);
  		addMorph: (self buttonMorph: #clearButton help: 'clear the histogram data'
  						set: #clearProfile enable: #notProfiling color: #clearColor)
  			frame: (0.46 at 0.86 corner: 0.54 at 0.91);
  		addMorph: (self buttonMorph: #startButton help: 'start the profiler'
  						set: #startProfiling enable: #notProfiling color: #profileColor)
  			frame: (0.28 at 0.915 corner: 0.36 at 0.96);
  		addMorph: (self buttonMorph: #stopButton help: 'stop the profiler'
  						set: #stopProfiling enable: #profiling color: #stopColor)
  			frame: (0.37 at 0.915 corner: 0.45 at 0.96);
  		addMorph: (self buttonMorph: #profileExpressionButton help: 'compile and profile the expression to the right'
  						set: #profileExpression enable: #notProfiling color: #profileColor)
  			frame: (0.46 at 0.915 corner: 0.54 at 0.96);
  		addMorph: expressionTextMorph
  			frame: (0.55 at 0.86 corner: 0.87 at 0.98);
  		addMorph: (self checkMorph: 'Run the full garbage collector prior to profiling'
  						get: #gcPriorToProfile
  						set: #toggleGcPriorToProfile)
  			frame: (0.28 at 0.97 corner: 0.295 at 0.985);
  		addMorph: (buttons addLast: (StringMorph contents: 'gc prior'))
  			frame: (0.30 at 0.97 corner: 0.365 at 0.995);
  		addMorph: (self checkMorph: 'Clear the profile prior to profiling'
  						get: #clearPriorToProfile
  						set: #toggleClearPriorToProfile)
  			frame: (0.37 at 0.97 corner: 0.385 at 0.985);
  		addMorph: (buttons addLast: (StringMorph contents: 'clear prior'))
  			frame: (0.39 at 0.97 corner: 0.455 at 0.995);
  		addMorph: (self checkMorph: 'Run the profiled expression in its own process'
  						get: #forkProfile
  						set: #toggleForkProfile)
  			frame: (0.46 at 0.97 corner: 0.475 at 0.985);
  		addMorph: (buttons addLast: (StringMorph contents: 'fork profile'))
  			frame: (0.48 at 0.97 corner: 0.545 at 0.995).
  .
  	"A Color transparent fillStyle used to be the default.  What a
  	 pain that things change so radically from release to release!!"
  	graph fillStyle: Color transparent.
  
  	self updateButtons. "weird!!"
  	buttons do: [:buttonMorph| buttonMorph color: Color black]. "otherwise labels don't show :("
  	window openInWorld.
  	self toggleShowing: #module.
  	^window!



More information about the Vm-dev mailing list