hg/stx-libtool: ColorInspectorView.st@5478ca0ac71f (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
257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	72	!ColorInspectorView class methodsFor:'documentation'!
257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	73
257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	74	version
3199 5478ca0ac71f * empty log message * Claus Gittinger <cg@exept.de> parents: 2271 diff changeset	75	^ '$Header: /cvs/stx/stx/libtool/ColorInspectorView.st,v 1.8 2001-09-25 12:57:48 cg Exp $'
2236 257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	76	! !

author	Claus Gittinger <cg@exept.de>
	Tue, 25 Sep 2001 14:57:48 +0200
changeset 3199	5478ca0ac71f
parent 2271	0cf238543cb1
child 6372	d59bab947578
permissions	-rw-r--r--