hg/stx-libtool: ColorInspectorView.st@d59bab947578 (annotated)

2236 257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	1	"
257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	2	COPYRIGHT (c) 1994 by Claus Gittinger
257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	3	All Rights Reserved
257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	4
257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	5	This software is furnished under a license and may be used
257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	6	only in accordance with the terms of that license and with the
257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	7	inclusion of the above copyright notice. This software may not
257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	8	be provided or otherwise made available to, or used by, any
257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	9	other person. No title to or ownership of the software is
257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	10	hereby transferred.
257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	11	"
44 5f101bc4a0ca Initial revision claus parents: diff changeset	12
3199 5478ca0ac71f * empty log message * Claus Gittinger <cg@exept.de> parents: 2271 diff changeset	13	"{ Package: 'stx:libtool' }"
5478ca0ac71f * empty log message * Claus Gittinger <cg@exept.de> parents: 2271 diff changeset	14
44 5f101bc4a0ca Initial revision claus parents: diff changeset	15	InspectorView subclass:#ColorInspectorView
2236 257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	16	instanceVariableNames:'colorView'
257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	17	classVariableNames:''
257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	18	poolDictionaries:''
257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	19	category:'Interface-Inspector'
44 5f101bc4a0ca Initial revision claus parents: diff changeset	20	!
5f101bc4a0ca Initial revision claus parents: diff changeset	21
87 0700c19ecb55 * empty log message * claus parents: 44 diff changeset	22	!ColorInspectorView class methodsFor:'documentation'!
0700c19ecb55 * empty log message * claus parents: 44 diff changeset	23
0700c19ecb55 * empty log message * claus parents: 44 diff changeset	24	copyright
0700c19ecb55 * empty log message * claus parents: 44 diff changeset	25	"
0700c19ecb55 * empty log message * claus parents: 44 diff changeset	26	COPYRIGHT (c) 1994 by Claus Gittinger
0700c19ecb55 * empty log message * claus parents: 44 diff changeset	27	All Rights Reserved
0700c19ecb55 * empty log message * claus parents: 44 diff changeset	28
0700c19ecb55 * empty log message * claus parents: 44 diff changeset	29	This software is furnished under a license and may be used
0700c19ecb55 * empty log message * claus parents: 44 diff changeset	30	only in accordance with the terms of that license and with the
0700c19ecb55 * empty log message * claus parents: 44 diff changeset	31	inclusion of the above copyright notice. This software may not
0700c19ecb55 * empty log message * claus parents: 44 diff changeset	32	be provided or otherwise made available to, or used by, any
0700c19ecb55 * empty log message * claus parents: 44 diff changeset	33	other person. No title to or ownership of the software is
0700c19ecb55 * empty log message * claus parents: 44 diff changeset	34	hereby transferred.
0700c19ecb55 * empty log message * claus parents: 44 diff changeset	35	"
0700c19ecb55 * empty log message * claus parents: 44 diff changeset	36	! !
0700c19ecb55 * empty log message * claus parents: 44 diff changeset	37
44 5f101bc4a0ca Initial revision claus parents: diff changeset	38	!ColorInspectorView methodsFor:'accessing'!
5f101bc4a0ca Initial revision claus parents: diff changeset	39
5f101bc4a0ca Initial revision claus parents: diff changeset	40	inspect:anObject
5f101bc4a0ca Initial revision claus parents: diff changeset	41	super inspect:anObject.
5f101bc4a0ca Initial revision claus parents: diff changeset	42	realized ifFalse:[^ self].
2271 0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	43
44 5f101bc4a0ca Initial revision claus parents: diff changeset	44	colorView viewBackground:anObject.
5f101bc4a0ca Initial revision claus parents: diff changeset	45	colorView clear
5f101bc4a0ca Initial revision claus parents: diff changeset	46	! !
5f101bc4a0ca Initial revision claus parents: diff changeset	47
5f101bc4a0ca Initial revision claus parents: diff changeset	48	!ColorInspectorView methodsFor:'initialization'!
5f101bc4a0ca Initial revision claus parents: diff changeset	49
5f101bc4a0ca Initial revision claus parents: diff changeset	50	initialize
5f101bc4a0ca Initial revision claus parents: diff changeset	51	\|newPanel sub\|
5f101bc4a0ca Initial revision claus parents: diff changeset	52
5f101bc4a0ca Initial revision claus parents: diff changeset	53	super initialize.
5f101bc4a0ca Initial revision claus parents: diff changeset	54
5f101bc4a0ca Initial revision claus parents: diff changeset	55	newPanel := VariableVerticalPanel in:self.
5f101bc4a0ca Initial revision claus parents: diff changeset	56	newPanel origin:0.0 @ 0.0 corner:1.0 @ 1.0.
5f101bc4a0ca Initial revision claus parents: diff changeset	57
5f101bc4a0ca Initial revision claus parents: diff changeset	58	sub := subViews first.
5f101bc4a0ca Initial revision claus parents: diff changeset	59	self removeSubView:sub.
5f101bc4a0ca Initial revision claus parents: diff changeset	60	sub origin:0.0@0.0 corner:1.0@0.8.
5f101bc4a0ca Initial revision claus parents: diff changeset	61	newPanel addSubView:sub.
5f101bc4a0ca Initial revision claus parents: diff changeset	62
5f101bc4a0ca Initial revision claus parents: diff changeset	63	colorView := View in:newPanel.
5f101bc4a0ca Initial revision claus parents: diff changeset	64	colorView origin:(0.0 @ 0.8) corner:(1.0 @ 1.0).
5f101bc4a0ca Initial revision claus parents: diff changeset	65
5f101bc4a0ca Initial revision claus parents: diff changeset	66	"
5f101bc4a0ca Initial revision claus parents: diff changeset	67	ColorInspectorView inspect:(Color yellow)
5f101bc4a0ca Initial revision claus parents: diff changeset	68	ColorInspectorView inspect:(Color name:'brown') lightened)
5f101bc4a0ca Initial revision claus parents: diff changeset	69	"
5f101bc4a0ca Initial revision claus parents: diff changeset	70	! !
2236 257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	71
6372 d59bab947578 * empty log message * Claus Gittinger <cg@exept.de> parents: 3199 diff changeset	72	!ColorInspectorView methodsFor:'private'!
d59bab947578 * empty log message * Claus Gittinger <cg@exept.de> parents: 3199 diff changeset	73
d59bab947578 * empty log message * Claus Gittinger <cg@exept.de> parents: 3199 diff changeset	74	displayStringForValue:someValue
d59bab947578 * empty log message * Claus Gittinger <cg@exept.de> parents: 3199 diff changeset	75	"return the values displayString"
d59bab947578 * empty log message * Claus Gittinger <cg@exept.de> parents: 3199 diff changeset	76
d59bab947578 * empty log message * Claus Gittinger <cg@exept.de> parents: 3199 diff changeset	77	\|sel\|
d59bab947578 * empty log message * Claus Gittinger <cg@exept.de> parents: 3199 diff changeset	78
d59bab947578 * empty log message * Claus Gittinger <cg@exept.de> parents: 3199 diff changeset	79	sel := listView at:selectionIndex.
d59bab947578 * empty log message * Claus Gittinger <cg@exept.de> parents: 3199 diff changeset	80
d59bab947578 * empty log message * Claus Gittinger <cg@exept.de> parents: 3199 diff changeset	81	(sel startsWith:$-) ifTrue:[
d59bab947578 * empty log message * Claus Gittinger <cg@exept.de> parents: 3199 diff changeset	82	(sel startsWith:'-rgb') ifTrue:[
d59bab947578 * empty log message * Claus Gittinger <cg@exept.de> parents: 3199 diff changeset	83	^ '#' , (inspectedObject rgbValue printStringRadix:16)
d59bab947578 * empty log message * Claus Gittinger <cg@exept.de> parents: 3199 diff changeset	84	].
d59bab947578 * empty log message * Claus Gittinger <cg@exept.de> parents: 3199 diff changeset	85	].
d59bab947578 * empty log message * Claus Gittinger <cg@exept.de> parents: 3199 diff changeset	86	^ super displayStringForValue:someValue
d59bab947578 * empty log message * Claus Gittinger <cg@exept.de> parents: 3199 diff changeset	87	!
d59bab947578 * empty log message * Claus Gittinger <cg@exept.de> parents: 3199 diff changeset	88
d59bab947578 * empty log message * Claus Gittinger <cg@exept.de> parents: 3199 diff changeset	89	pseudoFieldList
d59bab947578 * empty log message * Claus Gittinger <cg@exept.de> parents: 3199 diff changeset	90	^ #(
d59bab947578 * empty log message * Claus Gittinger <cg@exept.de> parents: 3199 diff changeset	91	'-rgb'
d59bab947578 * empty log message * Claus Gittinger <cg@exept.de> parents: 3199 diff changeset	92	)
d59bab947578 * empty log message * Claus Gittinger <cg@exept.de> parents: 3199 diff changeset	93	!
d59bab947578 * empty log message * Claus Gittinger <cg@exept.de> parents: 3199 diff changeset	94
d59bab947578 * empty log message * Claus Gittinger <cg@exept.de> parents: 3199 diff changeset	95	valueForSpecialLine:line
d59bab947578 * empty log message * Claus Gittinger <cg@exept.de> parents: 3199 diff changeset	96	(line startsWith:'-rgb') ifTrue:[
d59bab947578 * empty log message * Claus Gittinger <cg@exept.de> parents: 3199 diff changeset	97	^ inspectedObject rgbValue
d59bab947578 * empty log message * Claus Gittinger <cg@exept.de> parents: 3199 diff changeset	98	].
d59bab947578 * empty log message * Claus Gittinger <cg@exept.de> parents: 3199 diff changeset	99	^ super valueForSpecialLine:line
d59bab947578 * empty log message * Claus Gittinger <cg@exept.de> parents: 3199 diff changeset	100	! !
d59bab947578 * empty log message * Claus Gittinger <cg@exept.de> parents: 3199 diff changeset	101
2236 257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	102	!ColorInspectorView class methodsFor:'documentation'!
257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	103
257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	104	version
6372 d59bab947578 * empty log message * Claus Gittinger <cg@exept.de> parents: 3199 diff changeset	105	^ '$Header: /cvs/stx/stx/libtool/ColorInspectorView.st,v 1.9 2005-08-04 09:59:27 cg Exp $'
2236 257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	106	! !

author	Claus Gittinger <cg@exept.de>
	Thu, 04 Aug 2005 11:59:27 +0200
changeset 6372	d59bab947578
parent 3199	5478ca0ac71f
child 6375	b4f3981447a7
permissions	-rw-r--r--