The Trunk: Monticello-kb.370.mcz

Andreas Raab uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-kb.370.mcz

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

Name: Monticello-kb.370
Author: kb
Time: 24 February 2010, 7:46:39.876 pm
UUID: 71e11e7c-cf38-4e34-a6c0-ae342347e2a5
Ancestors: Monticello-kb.369

- Shout styling for the MCSnapshotBrowser using ToolBuilder

=============== Diff against Monticello-cmm.367 ===============

Item was added:
+ ----- Method: MCSnapshotBrowser>>aboutToStyle: (in category 'morphic ui') -----
+ aboutToStyle: aStyler
+
+ aStyler classOrMetaClass: (
+ (methodSelection isNil and: [
+ protocolSelection isNil and: [
+ classSelection notNil ] ])
+ ifFalse: [ self selectedClassOrMetaClass ]
+ ifTrue: [ nil ]).
+ ^true
+ !

Item was changed:
  ----- Method: MCVersion>>browse (in category 'actions') -----
  browse
  (MCSnapshotBrowser forSnapshot: self snapshot)
+ label: 'Snapshot of ', self fileName;
+ show!
- showLabelled: 'Snapshot of ', self fileName!

Item was changed:
  ----- Method: MCSnapshotBrowser>>widgetSpecs (in category 'morphic ui') -----
  widgetSpecs
 
  Preferences annotationPanes ifFalse: [ ^#(
  ((listMorph: category) (0 0 0.25 0.4))
  ((listMorph: class) (0.25 0 0.50 0.4) (0 0 0 -30))
  ((listMorph: protocol) (0.50 0 0.75 0.4))
  ((listMorph:selection:menu:keystroke:  methodList methodSelection methodListMenu: methodListKey:from:) (0.75 0 1 0.4))
  ((buttonRow) (0.25 0.4 0.5 0.4) (0 -30 0 0))
+ ((codePane: text) (0 0.4 1 1))
- ((textMorph: text) (0 0.4 1 1))
  ) ].
 
  ^#(
  ((listMorph: category) (0 0 0.25 0.4))
  ((listMorph: class) (0.25 0 0.50 0.4) (0 0 0 -30))
  ((listMorph: protocol) (0.50 0 0.75 0.4))
  ((listMorph:selection:menu:keystroke:  methodList methodSelection methodListMenu: methodListKey:from:) (0.75 0 1 0.4))
 
  ((buttonRow) (0.25 0.4 0.5 0.4) (0 -30 0 0))
 
  ((textMorph: annotations) (0 0.4 1 0.4) (0 0 0 30))
  ((textMorph: text) (0 0.4 1 1) (0 30 0 0))
  )!

Item was added:
+ ----- Method: MCToolWindowBuilder>>codePane: (in category 'as yet unclassified') -----
+ codePane: aSymbol
+ | text |
+ text := builder pluggableCodePaneSpec new.
+ text
+ model: tool;
+ getText: aSymbol;
+ setText: (aSymbol, ':') asSymbol;
+ frame: currentFrame.
+ window children add: text!

Item was changed:
  SystemOrganization addCategory: #'Monticello-Base'!
  SystemOrganization addCategory: #'Monticello-Chunk Format'!
  SystemOrganization addCategory: #'Monticello-Loading'!
  SystemOrganization addCategory: #'Monticello-Merging'!
  SystemOrganization addCategory: #'Monticello-Modeling'!
  SystemOrganization addCategory: #'Monticello-Patching'!
  SystemOrganization addCategory: #'Monticello-Repositories'!
  SystemOrganization addCategory: #'Monticello-Storing'!
  SystemOrganization addCategory: #'Monticello-UI'!
  SystemOrganization addCategory: #'Monticello-Versioning'!
- SystemOrganization addCategory: #'Monticello-Mocks'!

Hi —,

Is there a particular reason that only the
non-annotations-pane case was changed?

So Long,
        -Tobias

Am 2010-02-24 um 18:56 schrieb [hidden email]:

Hi,

> Is there a particular reason that only the
> non-annotations-pane case was changed?
No. I uploaded a fixed version to The Inbox.

Balázs