hg/stx-libview2: ConvertedValue.st@1db7742d33ad (annotated)

3855 1db7742d33ad Win32: Build libjpeg in its own directory, out-of-source-tree. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2222 diff changeset	1	"
1db7742d33ad Win32: Build libjpeg in its own directory, out-of-source-tree. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2222 diff changeset	2	COPYRIGHT (c) Claus Gittinger / 2006 by eXept Software AG
1db7742d33ad Win32: Build libjpeg in its own directory, out-of-source-tree. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2222 diff changeset	3	All Rights Reserved
1db7742d33ad Win32: Build libjpeg in its own directory, out-of-source-tree. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2222 diff changeset	4
1db7742d33ad Win32: Build libjpeg in its own directory, out-of-source-tree. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2222 diff changeset	5	This software is furnished under a license and may be used
1db7742d33ad Win32: Build libjpeg in its own directory, out-of-source-tree. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2222 diff changeset	6	only in accordance with the terms of that license and with the
1db7742d33ad Win32: Build libjpeg in its own directory, out-of-source-tree. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2222 diff changeset	7	inclusion of the above copyright notice. This software may not
1db7742d33ad Win32: Build libjpeg in its own directory, out-of-source-tree. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2222 diff changeset	8	be provided or otherwise made available to, or used by, any
1db7742d33ad Win32: Build libjpeg in its own directory, out-of-source-tree. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2222 diff changeset	9	other person. No title to or ownership of the software is
1db7742d33ad Win32: Build libjpeg in its own directory, out-of-source-tree. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2222 diff changeset	10	hereby transferred.
1db7742d33ad Win32: Build libjpeg in its own directory, out-of-source-tree. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2222 diff changeset	11	"
2222 e376d56f37a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 258 diff changeset	12	"{ Package: 'stx:libview2' }"
e376d56f37a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 258 diff changeset	13
3855 1db7742d33ad Win32: Build libjpeg in its own directory, out-of-source-tree. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2222 diff changeset	14	"{ NameSpace: Smalltalk }"
1db7742d33ad Win32: Build libjpeg in its own directory, out-of-source-tree. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2222 diff changeset	15
90 59d4413a8c39 . claus parents: diff changeset	16	ValueHolder subclass:#ConvertedValue
258 9d218cd753c0 category change Claus Gittinger <cg@exept.de> parents: 114 diff changeset	17	instanceVariableNames:'conversion'
9d218cd753c0 category change Claus Gittinger <cg@exept.de> parents: 114 diff changeset	18	classVariableNames:''
9d218cd753c0 category change Claus Gittinger <cg@exept.de> parents: 114 diff changeset	19	poolDictionaries:''
9d218cd753c0 category change Claus Gittinger <cg@exept.de> parents: 114 diff changeset	20	category:'Interface-Support-Models'
90 59d4413a8c39 . claus parents: diff changeset	21	!
59d4413a8c39 . claus parents: diff changeset	22
59d4413a8c39 . claus parents: diff changeset	23	!ConvertedValue class methodsFor:'documentation'!
59d4413a8c39 . claus parents: diff changeset	24
3855 1db7742d33ad Win32: Build libjpeg in its own directory, out-of-source-tree. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2222 diff changeset	25	copyright
1db7742d33ad Win32: Build libjpeg in its own directory, out-of-source-tree. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2222 diff changeset	26	"
1db7742d33ad Win32: Build libjpeg in its own directory, out-of-source-tree. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2222 diff changeset	27	COPYRIGHT (c) Claus Gittinger / 2006 by eXept Software AG
1db7742d33ad Win32: Build libjpeg in its own directory, out-of-source-tree. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2222 diff changeset	28	All Rights Reserved
1db7742d33ad Win32: Build libjpeg in its own directory, out-of-source-tree. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2222 diff changeset	29
1db7742d33ad Win32: Build libjpeg in its own directory, out-of-source-tree. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2222 diff changeset	30	This software is furnished under a license and may be used
1db7742d33ad Win32: Build libjpeg in its own directory, out-of-source-tree. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2222 diff changeset	31	only in accordance with the terms of that license and with the
1db7742d33ad Win32: Build libjpeg in its own directory, out-of-source-tree. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2222 diff changeset	32	inclusion of the above copyright notice. This software may not
1db7742d33ad Win32: Build libjpeg in its own directory, out-of-source-tree. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2222 diff changeset	33	be provided or otherwise made available to, or used by, any
1db7742d33ad Win32: Build libjpeg in its own directory, out-of-source-tree. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2222 diff changeset	34	other person. No title to or ownership of the software is
1db7742d33ad Win32: Build libjpeg in its own directory, out-of-source-tree. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2222 diff changeset	35	hereby transferred.
1db7742d33ad Win32: Build libjpeg in its own directory, out-of-source-tree. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2222 diff changeset	36	"
1db7742d33ad Win32: Build libjpeg in its own directory, out-of-source-tree. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2222 diff changeset	37	!
1db7742d33ad Win32: Build libjpeg in its own directory, out-of-source-tree. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2222 diff changeset	38
90 59d4413a8c39 . claus parents: diff changeset	39	documentation
59d4413a8c39 . claus parents: diff changeset	40	"
59d4413a8c39 . claus parents: diff changeset	41	a ConvertedValue translates changes on input via a conversion block
59d4413a8c39 . claus parents: diff changeset	42	to the output. For example, if you want to have a toggle to change the
59d4413a8c39 . claus parents: diff changeset	43	color inputs of some other labels, use a convertedValue which translates
59d4413a8c39 . claus parents: diff changeset	44	true/false into colors:
59d4413a8c39 . claus parents: diff changeset	45
59d4413a8c39 . claus parents: diff changeset	46	\|toggle label converter\|
59d4413a8c39 . claus parents: diff changeset	47
59d4413a8c39 . claus parents: diff changeset	48	converter := ConvertedValue new
59d4413a8c39 . claus parents: diff changeset	49	conversion:[:input \| input == true
59d4413a8c39 . claus parents: diff changeset	50	ifTrue:[Color red]
59d4413a8c39 . claus parents: diff changeset	51	ifFalse:[Color blue]];
59d4413a8c39 . claus parents: diff changeset	52	value:false.
2222 e376d56f37a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 258 diff changeset	53
90 59d4413a8c39 . claus parents: diff changeset	54
59d4413a8c39 . claus parents: diff changeset	55	toggle := Toggle label:'change color'.
59d4413a8c39 . claus parents: diff changeset	56	toggle controller pressChannel:converter.
59d4413a8c39 . claus parents: diff changeset	57
59d4413a8c39 . claus parents: diff changeset	58	label := Label label:'see me changing'.
59d4413a8c39 . claus parents: diff changeset	59	label foregroundChannel:converter.
59d4413a8c39 . claus parents: diff changeset	60
59d4413a8c39 . claus parents: diff changeset	61	toggle open.
59d4413a8c39 . claus parents: diff changeset	62	label open.
59d4413a8c39 . claus parents: diff changeset	63	"
59d4413a8c39 . claus parents: diff changeset	64	!
59d4413a8c39 . claus parents: diff changeset	65
59d4413a8c39 . claus parents: diff changeset	66	examples
59d4413a8c39 . claus parents: diff changeset	67	"
59d4413a8c39 . claus parents: diff changeset	68	examples to be added.
59d4413a8c39 . claus parents: diff changeset	69	"
59d4413a8c39 . claus parents: diff changeset	70	! !
59d4413a8c39 . claus parents: diff changeset	71
59d4413a8c39 . claus parents: diff changeset	72	!ConvertedValue methodsFor:'accessing'!
59d4413a8c39 . claus parents: diff changeset	73
2222 e376d56f37a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 258 diff changeset	74	conversion:aBlock
90 59d4413a8c39 . claus parents: diff changeset	75	conversion := aBlock
59d4413a8c39 . claus parents: diff changeset	76	!
59d4413a8c39 . claus parents: diff changeset	77
59d4413a8c39 . claus parents: diff changeset	78	initialValue:someValue
59d4413a8c39 . claus parents: diff changeset	79	self value:someValue
59d4413a8c39 . claus parents: diff changeset	80	!
59d4413a8c39 . claus parents: diff changeset	81
59d4413a8c39 . claus parents: diff changeset	82	value:input
59d4413a8c39 . claus parents: diff changeset	83	^ super value:(conversion value:input)
59d4413a8c39 . claus parents: diff changeset	84	! !
258 9d218cd753c0 category change Claus Gittinger <cg@exept.de> parents: 114 diff changeset	85
9d218cd753c0 category change Claus Gittinger <cg@exept.de> parents: 114 diff changeset	86	!ConvertedValue class methodsFor:'documentation'!
9d218cd753c0 category change Claus Gittinger <cg@exept.de> parents: 114 diff changeset	87
9d218cd753c0 category change Claus Gittinger <cg@exept.de> parents: 114 diff changeset	88	version
2222 e376d56f37a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 258 diff changeset	89	^ '$Header: /cvs/stx/stx/libview2/ConvertedValue.st,v 1.5 2006-09-15 18:02:35 cg Exp $'
3855 1db7742d33ad Win32: Build libjpeg in its own directory, out-of-source-tree. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2222 diff changeset	90	!
1db7742d33ad Win32: Build libjpeg in its own directory, out-of-source-tree. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2222 diff changeset	91
1db7742d33ad Win32: Build libjpeg in its own directory, out-of-source-tree. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2222 diff changeset	92	version_HG
1db7742d33ad Win32: Build libjpeg in its own directory, out-of-source-tree. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2222 diff changeset	93
1db7742d33ad Win32: Build libjpeg in its own directory, out-of-source-tree. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2222 diff changeset	94	^ '$Changeset: <not expanded> $'
258 9d218cd753c0 category change Claus Gittinger <cg@exept.de> parents: 114 diff changeset	95	! !
3855 1db7742d33ad Win32: Build libjpeg in its own directory, out-of-source-tree. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2222 diff changeset	96

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Mon, 23 Jan 2017 12:42:33 +0000
branch	jv
changeset 3855	1db7742d33ad
parent 2222	e376d56f37a5
permissions	-rw-r--r--