The Trunk: Morphic-mt.1106.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: Morphic-mt.1106.mcz

commits-2
Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.1106.mcz

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

Name: Morphic-mt.1106
Author: mt
Time: 12 April 2016, 5:32:37.089201 pm
UUID: 47c10647-b443-714c-87de-7a4d410a1e35
Ancestors: Morphic-mt.1105

Use the usual call to inspect  world model.

=============== Diff against Morphic-mt.1105 ===============

Item was changed:
  ----- Method: TheWorldMenu>>debugMenu (in category 'construction') -----
  debugMenu
 
          | menu |
 
          menu := self menu: 'debug...'.
          self fillIn: menu from: {
                  { 'inspect world' . { #myWorld . #inspect } }.
                  { 'explore world' . { #myWorld . #explore } }.
+                 { 'inspect model' . { myWorld model . #inspect } }.
-                 { 'inspect model' . { self . #inspectWorldModel } }.
                          " { 'talk to world...' . { self . #typeInMessageToWorld } }."
                  { 'start MessageTally' . { self . #startMessageTally } }.
                  { 'start/browse MessageTally' . { self . #startThenBrowseMessageTally } }.
                  { 'open process browser' . { self . #openProcessBrowser } }.
                  nil.
                          "(self hasProperty: #errorOnDraw) ifTrue:  Later make this come up only when needed."
                  { 'start drawing again' . { #myWorld . #resumeAfterDrawError } }.
                  { 'start stepping again' . { #myWorld . #resumeAfterStepError } }.
                  nil.
                  { 'call #tempCommand' . { #myWorld . #tempCommand } }.
                  { 'define #tempCommand' . { #myWorld . #defineTempCommand } }.
          }.
  self haltOnceEnabled
  ifTrue: [menu
  add: 'disable halt/inspect once' translated
  target: menu
  action: #clearHaltOnce]
  ifFalse: [menu
  add: 'enable halt/inspect once' translated
  target: menu
  action: #setHaltOnce].
  ^menu
  !