The Trunk: ToolBuilder-Morphic-mt.102.mcz

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

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

Name: ToolBuilder-Morphic-mt.102
Author: mt
Time: 29 March 2015, 2:40:44.398 pm
UUID: fbd5d4b4-6646-6841-b171-233db3ff0f19
Ancestors: ToolBuilder-Morphic-dtl.101

Added support for a help text to input fields to give users a cue which kind of input is expected.

=============== Diff against ToolBuilder-Morphic-dtl.101 ===============

Item was changed:
  ----- Method: MorphicToolBuilder>>buildPluggableInputField: (in category 'pluggable widgets') -----
  buildPluggableInputField: aSpec
  | widget |
  widget := self buildPluggableText: aSpec.
  widget acceptOnCR: true.
  widget hideScrollBarsIndefinitely.
+ widget getHelpTextSelector: aSpec helpText.
  ^widget!

Item was changed:
  PluggableTextMorph subclass: #PluggableTextMorphPlus
+ instanceVariableNames: 'getColorSelector acceptAction unstyledAcceptText styler getHelpTextSelector'
- instanceVariableNames: 'getColorSelector acceptAction unstyledAcceptText styler'
  classVariableNames: ''
  poolDictionaries: ''
  category: 'ToolBuilder-Morphic'!
 
  !PluggableTextMorphPlus commentStamp: 'ar 2/11/2005 21:53' prior: 0!
  A pluggable text morph with support for color.!

Item was added:
+ ----- Method: PluggableTextMorphPlus>>drawHelpTextOn: (in category 'drawing') -----
+ drawHelpTextOn: aCanvas
+
+ | helpText |
+
+ (self getHelpTextSelector notNil and: [textMorph contents isEmpty])
+ ifFalse: [^ self].
+
+ helpText := self getHelpTextSelector isSymbol
+ ifTrue: [self model perform: self getHelpTextSelector]
+ ifFalse: [self getHelpTextSelector].
+ helpText ifNil: [^ self].
+
+ aCanvas
+ drawString: helpText
+ at: self innerBounds topLeft + (5@2)
+ font: textMorph textStyle defaultFont
+ color: (Color gray: 0.7).!

Item was added:
+ ----- Method: PluggableTextMorphPlus>>drawOn: (in category 'drawing') -----
+ drawOn: aCanvas
+
+ super drawOn: aCanvas.
+ self drawHelpTextOn: aCanvas.!

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

Item was added:
+ ----- Method: PluggableTextMorphPlus>>getHelpTextSelector: (in category 'accessing') -----
+ getHelpTextSelector: aSymbol
+
+ getHelpTextSelector := aSymbol.!