[squeak-dev] 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 Squeak-dev mailing list