The Trunk: Tools-topa.705.mcz

Tobias Pape uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-topa.705.mcz

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

Name: Tools-topa.705
Author: topa
Time: 23 June 2016, 9:55:41.768774 am
UUID: e819d324-b58e-4e35-b988-395da379fdb5
Ancestors: Tools-mt.704

disable buttons in the browser when they do not apply

=============== Diff against Tools-mt.704 ===============

Item was changed:
  ----- Method: CodeHolder>>buildOptionalButtonsWith: (in category 'toolbuilder') -----
  buildOptionalButtonsWith: builder
 
  | panelSpec |
  panelSpec := builder pluggablePanelSpec new.
  panelSpec children: OrderedCollection new.
  self optionalButtonPairs do:[:spec|
  | buttonSpec |
  buttonSpec := builder pluggableActionButtonSpec new.
  buttonSpec model: self.
  buttonSpec label: spec first.
  buttonSpec action: spec second.
+ spec second == #methodHierarchy
+ ifTrue:[buttonSpec
+ enabled: #inheritanceButtonEnabled;
+ color: #inheritanceButtonColor].
+ spec second == #browseVersions
+ ifTrue:[buttonSpec enabled: #versionsButtonEnabled].
- spec second == #methodHierarchy ifTrue:[
- buttonSpec color: #inheritanceButtonColor.
- ].
  spec size > 2 ifTrue:[buttonSpec help: spec third].
+ panelSpec children add: buttonSpec].
- panelSpec children add: buttonSpec.
- ].
 
  "What to show"
  panelSpec children add: builder pluggableSpacerSpec new.
  self addCodeProvenanceButtonTo: panelSpec using: builder.
 
  panelSpec layout: #horizontal. "buttons"
  ^panelSpec!

Item was added:
+ ----- Method: CodeHolder>>inheritanceButtonEnabled (in category 'toolbuilder') -----
+ inheritanceButtonEnabled
+ "The inheritance button is only enabled when a method is selected"
+
+ ^  self selectedMessageName notNil
+ !

Item was added:
+ ----- Method: CodeHolder>>versionsButtonEnabled (in category 'toolbuilder') -----
+ versionsButtonEnabled
+ "The versions button is only enabled when a method is selected or we view the
+ class comment."
+
+ ^  self selectedMessageName notNil or: [self classCommentIndicated]!

Item was changed:
  ----- Method: StringHolder>>browseVersions (in category '*Tools') -----
  browseVersions
  "Create and schedule a Versions Browser, showing all versions of the
  currently selected message. Answer the browser or nil."
+ ^ self classCommentIndicated
+ ifTrue: [ClassCommentVersionsBrowser browseCommentOf: self selectedClass]
+ ifFalse: [self selectedMessageName ifNotNil:
+ [:selector |
+ ToolSet browseVersionsOf: self selectedClassOrMetaClass selector: selector]]!
- | selector |
- self classCommentIndicated ifTrue:
- [ClassCommentVersionsBrowser browseCommentOf: self selectedClass.
- ^nil].
-
- ^(selector := self selectedMessageName)
- ifNil: [self inform: 'Sorry, only actual methods have retrievable versions.'. nil]
- ifNotNil: [ToolSet browseVersionsOf: self selectedClassOrMetaClass selector: selector]!