Marcel Taeumel uploaded a new version of ToolBuilder-Kernel to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Kernel-mt.79.mcz

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

Name: ToolBuilder-Kernel-mt.79
Author: mt
Time: 17 April 2015, 3:28:52.334 pm
UUID: 06909c46-0672-b440-8880-d5b812efaed2
Ancestors: ToolBuilder-Kernel-mt.78

Pluggable text spec extended to support default font and styler.

=============== Diff against ToolBuilder-Kernel-mt.78 ===============

Item was added:
+ ----- Method: PluggableCodePaneSpec>>font (in category 'accessing') -----
+ font
+ 	^ super font ifNil: [Preferences standardCodeFont]!

Item was added:
+ ----- Method: PluggableCodePaneSpec>>stylerClass (in category 'accessing') -----
+ stylerClass
+ 
+ 	^ super stylerClass ifNil: [Smalltalk classNamed: 'SHTextStylerST80']!

Item was changed:
  PluggableWidgetSpec subclass: #PluggableTextSpec
+ 	instanceVariableNames: 'getText setText selection menu askBeforeDiscardingEdits editText indicateUnacceptedChanges stylerClass font'
- 	instanceVariableNames: 'getText setText selection menu askBeforeDiscardingEdits editText indicateUnacceptedChanges'
  	classVariableNames: ''
  	poolDictionaries: ''
  	category: 'ToolBuilder-Kernel'!
  
  !PluggableTextSpec commentStamp: 'ar 2/11/2005 21:58' prior: 0!
  A text editor.
  
  Instance variables:
  	getText	<Symbol>	The selector to retrieve the text.
  	setText	<Symbol>	The selector to set the text.
  	selection <Symbol>	The selector to retrieve the text selection.
  	menu	<Symbol>	The selector to offer (to retrieve?) the context menu.
  	color	 <Symbol>	The selector to retrieve the background color.
  
  !

Item was added:
+ ----- Method: PluggableTextSpec>>font (in category 'accessing') -----
+ font
+ 	^ font!

Item was added:
+ ----- Method: PluggableTextSpec>>font: (in category 'accessing') -----
+ font: aFont
+ 	font := aFont.!

Item was added:
+ ----- Method: PluggableTextSpec>>stylerClass (in category 'accessing') -----
+ stylerClass
+ 	^ stylerClass!

Item was added:
+ ----- Method: PluggableTextSpec>>stylerClass: (in category 'accessing') -----
+ stylerClass: aStylerClass
+ 	stylerClass := aStylerClass.!