[Pkg] The Trunk: ToolBuilder-Kernel-fbs.55.mcz

[commits at source.squeak.org]

Frank Shearar uploaded a new version of ToolBuilder-Kernel to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Kernel-fbs.55.mcz

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

Name: ToolBuilder-Kernel-fbs.55
Author: fbs
Time: 19 June 2013, 10:31:36.199 pm
UUID: 9672ea41-5165-4e88-aec7-7cca03b97a5d
Ancestors: ToolBuilder-Kernel-fbs.54

Allow the specification of menu items that aren't checkable.

=============== Diff against ToolBuilder-Kernel-fbs.54 ===============

Item was changed:
  ToolBuilderSpec subclass: #PluggableMenuItemSpec
+ 	instanceVariableNames: 'label action checked enabled separator subMenu checkable'
- 	instanceVariableNames: 'label action checked enabled separator subMenu'
  	classVariableNames: ''
  	poolDictionaries: ''
  	category: 'ToolBuilder-Kernel'!

Item was changed:
  ----- Method: PluggableMenuItemSpec>>analyzeLabel (in category 'initialize') -----
  analyzeLabel
  	"For Morphic compatiblity. Some labels include markup such as <on>, <off> etc.
  	Analyze the label for these annotations and take appropriate action."
  	| marker |
  	marker := label copyFrom: 1 to: (label indexOf: $>).
  	(marker = '<on>' or:[marker = '<yes>']) ifTrue:[
+ 		checkable := true.
  		checked := true.
  		label := label copyFrom: marker size+1 to: label size.
  	].
  	(marker = '<off>' or:[marker = '<no>']) ifTrue:[
+ 		checkable := true.
  		checked := false.
  		label := label copyFrom: marker size+1 to: label size.
  	].
  !

Item was added:
+ ----- Method: PluggableMenuItemSpec>>beCheckable (in category 'accessing') -----
+ beCheckable
+ 	checkable := true.!

Item was added:
+ ----- Method: PluggableMenuItemSpec>>initialize (in category 'initialize') -----
+ initialize
+ 	checkable := false.!

Item was added:
+ ----- Method: PluggableMenuItemSpec>>isCheckable (in category 'accessing') -----
+ isCheckable
+ 	^ checkable!

Item was added:
+ TestCase subclass: #PluggableMenuItemSpecTests
+ 	instanceVariableNames: ''
+ 	classVariableNames: ''
+ 	poolDictionaries: ''
+ 	category: 'ToolBuilder-Kernel'!

Item was added:
+ ----- Method: PluggableMenuItemSpecTests>>testBeCheckableMakesItemCheckable (in category 'as yet unclassified') -----
+ testBeCheckableMakesItemCheckable
+ 	| itemSpec |
+ 	itemSpec := PluggableMenuItemSpec new.
+ 	itemSpec beCheckable.
+ 	self deny: itemSpec isCheckable.!

Item was added:
+ ----- Method: PluggableMenuItemSpecTests>>testByDefaultNotCheckable (in category 'as yet unclassified') -----
+ testByDefaultNotCheckable
+ 	| itemSpec |
+ 	itemSpec := PluggableMenuItemSpec new.
+ 	self deny: itemSpec isCheckable.!

Item was added:
+ ----- Method: PluggableMenuItemSpecTests>>testNoMarkerMakesItemChecked (in category 'as yet unclassified') -----
+ testNoMarkerMakesItemChecked
+ 	| itemSpec |
+ 	itemSpec := PluggableMenuItemSpec new.
+ 	itemSpec label: '<no>no'.
+ 	itemSpec analyzeLabel.
+ 	self assert: itemSpec isCheckable description: 'item not checkable'.
+ 	self deny: itemSpec isCheckable description: 'item checked'.!

Item was added:
+ ----- Method: PluggableMenuItemSpecTests>>testOffMarkerMakesItemChecked (in category 'as yet unclassified') -----
+ testOffMarkerMakesItemChecked
+ 	| itemSpec |
+ 	itemSpec := PluggableMenuItemSpec new.
+ 	itemSpec label: '<off>off'.
+ 	itemSpec analyzeLabel.
+ 	self assert: itemSpec isCheckable description: 'item not checkable'.
+ 	self deny: itemSpec isCheckable description: 'item checked'.!

Item was added:
+ ----- Method: PluggableMenuItemSpecTests>>testOnMarkerMakesItemChecked (in category 'as yet unclassified') -----
+ testOnMarkerMakesItemChecked
+ 	| itemSpec |
+ 	itemSpec := PluggableMenuItemSpec new.
+ 	itemSpec label: '<on>on'.
+ 	itemSpec analyzeLabel.
+ 	self assert: itemSpec isCheckable description: 'item not checkable'.
+ 	self assert: itemSpec isCheckable description: 'item not checked'.!

Item was added:
+ ----- Method: PluggableMenuItemSpecTests>>testYesMarkerMakesItemChecked (in category 'as yet unclassified') -----
+ testYesMarkerMakesItemChecked
+ 	| itemSpec |
+ 	itemSpec := PluggableMenuItemSpec new.
+ 	itemSpec label: '<yes>on'.
+ 	itemSpec analyzeLabel.
+ 	self assert: itemSpec isCheckable description: 'item not checkable'.
+ 	self assert: itemSpec isCheckable description: 'item not checked'.!