[squeak-dev] The Trunk: ToolBuilder-Morphic-mt.102.mcz

commits at source.squeak.org commits at source.squeak.org
Sun Mar 29 12:40:50 UTC 2015


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



More information about the Squeak-dev mailing list