[Pkg] The Trunk: Tools-kb.191.mcz

[commits at source.squeak.org]

A new version of Tools was added to project The Trunk:
http://source.squeak.org/trunk/Tools-kb.191.mcz

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

Name: Tools-kb.191
Author: kb
Time: 22 February 2010, 10:38:59.7 pm
UUID: bbb32846-4a50-43d5-811b-c3f3128546a6
Ancestors: Tools-ul.190

 - Added code styling to Workspace. Code adapted from SHWorkspace

=============== Diff against Tools-ul.190 ===============

Item was added:
+ ----- Method: Workspace>>hasBindingOf: (in category 'binding') -----
+ hasBindingOf: aString 
+ 	
+ 	^bindings notNil and: [ bindings includesKey: aString ]!

Item was added:
+ ----- Method: Workspace>>hasBindingThatBeginsWith: (in category 'binding') -----
+ hasBindingThatBeginsWith: aString 
+ 	
+ 	bindings ifNil: [ ^false ].
+ 	bindings keysDo: [ :each |
+ 		(each beginsWith: aString) ifTrue: [ ^true ] ].
+ 	^false!

Item was added:
+ ----- Method: Workspace>>buildCodePaneWith: (in category 'toolbuilder') -----
+ buildCodePaneWith: builder
+ 	| textSpec |
+ 	textSpec := builder pluggableCodePaneSpec new.
+ 	textSpec 
+ 		model: self;
+ 		getText: #contents; 
+ 		setText: #contents:notifying:; 
+ 		selection: #contentsSelection; 
+ 		menu: #codePaneMenu:shifted:.
+ 	^textSpec!

Item was added:
+ ----- Method: Workspace>>aboutToStyle: (in category 'code pane') -----
+ aboutToStyle: aStyler
+ 
+ 	aStyler 
+ 		classOrMetaClass: nil;
+ 		workspace: self.
+ 	^true!