The Trunk: Tools-kb.191.mcz

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!