The Trunk: Protocols-bp.28.mcz

Andreas Raab uploaded a new version of Protocols to project The Trunk:
http://source.squeak.org/trunk/Protocols-bp.28.mcz

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

Name: Protocols-bp.28
Author: bp
Time: 3 April 2010, 9:43:04.934 am
UUID: 7f22476a-65cb-4d14-8a27-86c634b458d5
Ancestors: Protocols-nice.27

make "browse protocol" work again after introducing fixed height buttons

=============== Diff against Protocols-nice.27 ===============

Item was changed:
  SystemOrganization addCategory: #'Protocols-Kernel'!
- SystemOrganization addCategory: #'Protocols-Type Vocabularies'!
  SystemOrganization addCategory: #'Protocols-Tools'!
+ SystemOrganization addCategory: #'Protocols-Type Vocabularies'!

Item was removed:
- ----- Method: Lexicon>>buildCodePaneWith: (in category 'toolbuilder') -----
- buildCodePaneWith: builder
- | spec codePane customPanelSpec |
- spec := super buildCodePaneWith: builder.
- spec children
- detect: [:ea | ea isKindOf:  PluggablePanelSpec]
- ifNone: [ nil ]. "do nothing if optionalButtons not enabled"
- customPanelSpec := self buildCustomButtonsWith: builder.
- customPanelSpec frame:
- (self wantsOptionalButtons
- ifTrue: [ (0@0.12 corner: 1@0.23) ]
- ifFalse: [ (0@0.0 corner: 1@0.23) ]).
- spec children add: customPanelSpec.
- "resize code pane so that new panel fits in"
- codePane := spec children detect: [:ea | ea isKindOf:  PluggableCodePaneSpec].
- codePane frame:  (codePane frame withTop: 0.24).
- ^ spec.!