[Pkg] The Trunk: Protocols-bp.28.mcz
commits at source.squeak.org
commits at source.squeak.org
Sat Apr 3 18:19:13 UTC 2010
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 at 0.12 corner: 1 at 0.23) ]
- ifFalse: [ (0 at 0.0 corner: 1 at 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.!
More information about the Packages
mailing list