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.!
packages@lists.squeakfoundation.org