VM Maker: CogTools-eem.89.mcz

 
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@0 corner: 1@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@0 corner: 0.15@1);
  addMorph: (graph := VMProfilePlotMorph model: self) frame: (0.15@0 corner: 1.0@0.7);
  addMorph: labelsMorph frame: (0.15@0.7 corner: 1.0@0.85);
  "address boxes"
  addMorph: (self addressTextMorph:'Type the low address of the histogram here'
  get: #lowAddressText
  set: #lowAddressText:)
  frame: (0.16@0.86 corner: 0.27@0.91);
  addMorph: (self addressTextMorph:'Type the high address of the histogram here'
  get: #highAddressText
  set: #highAddressText:)
  frame: (0.88@0.86 corner: 0.99@0.91);
  addMorph: (self totalTextMorph: 'Shows the total number of samples' get: #totalText)
  frame: (0.88@0.92 corner: 0.99@0.98);
  "symbol list check-box filters"
  addMorph: (self checkMorph: 'show module symbols'
  get: #showingModules
  set: #toggleShowModules)
  frame: (0.16@0.915 corner: 0.175@0.93);
  addMorph: (buttons addLast: (StringMorph contents: 'modules'))
  frame: (0.19@0.915 corner: 0.27@0.93);
  addMorph: (self checkMorph: 'show extern symbols'
  get: #showingPublicFunctions
  set: #toggleShowPublicFunctions)
  frame: (0.16@0.935 corner: 0.175@0.95);
  addMorph: (buttons addLast: (StringMorph contents: 'externs'))
  frame: (0.19@0.935 corner: 0.27@0.95);
  addMorph: (self checkMorph: 'show static symbols'
  get: #showingPrivateFunctions
  set: #toggleShowPrivateFunctions)
  frame: (0.16@0.955 corner: 0.175@0.97);
  addMorph: (buttons addLast: (StringMorph contents: 'statics'))
  frame: (0.19@0.955 corner: 0.27@0.97);
  addMorph: (self checkMorph: 'show static symbols'
  get: #showingLabels
  set: #toggleShowLabels)
  frame: (0.16@0.975 corner: 0.175@0.99);
  addMorph: (buttons addLast: (StringMorph contents: 'labels'))
  frame: (0.19@0.975 corner: 0.27@0.99);
  "history buttons"
  addMorph: (self historyButtonMorph: #backwardsButton help: 'go back to previous selection'
  set: #regress enable: #hasHistory color: #hasHistoryColor)
  frame: (0.28@0.86 corner: 0.315@0.90);
  addMorph: (self historyButtonMorph: #forwardsButton help: 'go forward to next selection'
  set: #progress enable: #hasFuture color: #hasFutureColor)
  frame: (0.32@0.86 corner: 0.355@0.90);
  "profiling buttons"
  addMorph: (self buttonMorph: #drawButton help: 'plot the graph'
  set: #plotGraph enable: #notProfilingAndData color: #clearColor)
  frame: (0.37@0.86 corner: 0.45@0.91);
  addMorph: (self buttonMorph: #clearButton help: 'clear the histogram data'
  set: #clearProfile enable: #notProfiling color: #clearColor)
  frame: (0.46@0.86 corner: 0.54@0.91);
  addMorph: (self buttonMorph: #startButton help: 'start the profiler'
  set: #startProfiling enable: #notProfiling color: #profileColor)
  frame: (0.28@0.915 corner: 0.36@0.96);
  addMorph: (self buttonMorph: #stopButton help: 'stop the profiler'
  set: #stopProfiling enable: #profiling color: #stopColor)
  frame: (0.37@0.915 corner: 0.45@0.96);
  addMorph: (self buttonMorph: #profileExpressionButton help: 'compile and profile the expression to the right'
  set: #profileExpression enable: #notProfiling color: #profileColor)
  frame: (0.46@0.915 corner: 0.54@0.96);
  addMorph: expressionTextMorph
  frame: (0.55@0.86 corner: 0.87@0.98);
  addMorph: (self checkMorph: 'Run the full garbage collector prior to profiling'
  get: #gcPriorToProfile
  set: #toggleGcPriorToProfile)
  frame: (0.28@0.97 corner: 0.295@0.985);
  addMorph: (buttons addLast: (StringMorph contents: 'gc prior'))
  frame: (0.30@0.97 corner: 0.365@0.995);
  addMorph: (self checkMorph: 'Clear the profile prior to profiling'
  get: #clearPriorToProfile
  set: #toggleClearPriorToProfile)
  frame: (0.37@0.97 corner: 0.385@0.985);
  addMorph: (buttons addLast: (StringMorph contents: 'clear prior'))
  frame: (0.39@0.97 corner: 0.455@0.995);
  addMorph: (self checkMorph: 'Run the profiled expression in its own process'
  get: #forkProfile
  set: #toggleForkProfile)
  frame: (0.46@0.97 corner: 0.475@0.985);
  addMorph: (buttons addLast: (StringMorph contents: 'fork profile'))
  frame: (0.48@0.97 corner: 0.545@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!