[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