The Trunk: ToolBuilder-Kernel-mt.79.mcz

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.!