hg/stx-libtool: ColorInspectorView.st@5c6d59ee93d2 (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	"
3199 5478ca0ac71f * empty log message * Claus Gittinger <cg@exept.de> parents: 2271 diff changeset	12	"{ Package: 'stx:libtool' }"
5478ca0ac71f * empty log message * Claus Gittinger <cg@exept.de> parents: 2271 diff changeset	13
44 5f101bc4a0ca Initial revision claus parents: diff changeset	14	InspectorView subclass:#ColorInspectorView
2236 257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	15	instanceVariableNames:'colorView'
257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	16	classVariableNames:''
257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	17	poolDictionaries:''
257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	18	category:'Interface-Inspector'
44 5f101bc4a0ca Initial revision claus parents: diff changeset	19	!
5f101bc4a0ca Initial revision claus parents: diff changeset	20
87 0700c19ecb55 * empty log message * claus parents: 44 diff changeset	21	!ColorInspectorView class methodsFor:'documentation'!
0700c19ecb55 * empty log message * claus parents: 44 diff changeset	22
0700c19ecb55 * empty log message * claus parents: 44 diff changeset	23	copyright
0700c19ecb55 * empty log message * claus parents: 44 diff changeset	24	"
0700c19ecb55 * empty log message * claus parents: 44 diff changeset	25	COPYRIGHT (c) 1994 by Claus Gittinger
0700c19ecb55 * empty log message * claus parents: 44 diff changeset	26	All Rights Reserved
0700c19ecb55 * empty log message * claus parents: 44 diff changeset	27
0700c19ecb55 * empty log message * claus parents: 44 diff changeset	28	This software is furnished under a license and may be used
0700c19ecb55 * empty log message * claus parents: 44 diff changeset	29	only in accordance with the terms of that license and with the
0700c19ecb55 * empty log message * claus parents: 44 diff changeset	30	inclusion of the above copyright notice. This software may not
0700c19ecb55 * empty log message * claus parents: 44 diff changeset	31	be provided or otherwise made available to, or used by, any
0700c19ecb55 * empty log message * claus parents: 44 diff changeset	32	other person. No title to or ownership of the software is
0700c19ecb55 * empty log message * claus parents: 44 diff changeset	33	hereby transferred.
0700c19ecb55 * empty log message * claus parents: 44 diff changeset	34	"
0700c19ecb55 * empty log message * claus parents: 44 diff changeset	35	! !
0700c19ecb55 * empty log message * claus parents: 44 diff changeset	36
8156 5c6d59ee93d2 +editor open Claus Gittinger <cg@exept.de> parents: 7738 diff changeset	37	!ColorInspectorView class methodsFor:'menu specs'!
5c6d59ee93d2 +editor open Claus Gittinger <cg@exept.de> parents: 7738 diff changeset	38
5c6d59ee93d2 +editor open Claus Gittinger <cg@exept.de> parents: 7738 diff changeset	39	colorMenu
5c6d59ee93d2 +editor open Claus Gittinger <cg@exept.de> parents: 7738 diff changeset	40	"This resource specification was automatically generated
5c6d59ee93d2 +editor open Claus Gittinger <cg@exept.de> parents: 7738 diff changeset	41	by the MenuEditor of ST/X."
5c6d59ee93d2 +editor open Claus Gittinger <cg@exept.de> parents: 7738 diff changeset	42
5c6d59ee93d2 +editor open Claus Gittinger <cg@exept.de> parents: 7738 diff changeset	43	"Do not manually edit this!! If it is corrupted,
5c6d59ee93d2 +editor open Claus Gittinger <cg@exept.de> parents: 7738 diff changeset	44	the MenuEditor may not be able to read the specification."
5c6d59ee93d2 +editor open Claus Gittinger <cg@exept.de> parents: 7738 diff changeset	45
5c6d59ee93d2 +editor open Claus Gittinger <cg@exept.de> parents: 7738 diff changeset	46	"
5c6d59ee93d2 +editor open Claus Gittinger <cg@exept.de> parents: 7738 diff changeset	47	MenuEditor new openOnClass:ColorInspectorView andSelector:#colorMenu
5c6d59ee93d2 +editor open Claus Gittinger <cg@exept.de> parents: 7738 diff changeset	48	(Menu new fromLiteralArrayEncoding:(ColorInspectorView colorMenu)) startUp
5c6d59ee93d2 +editor open Claus Gittinger <cg@exept.de> parents: 7738 diff changeset	49	"
5c6d59ee93d2 +editor open Claus Gittinger <cg@exept.de> parents: 7738 diff changeset	50
5c6d59ee93d2 +editor open Claus Gittinger <cg@exept.de> parents: 7738 diff changeset	51	<resource: #menu>
5c6d59ee93d2 +editor open Claus Gittinger <cg@exept.de> parents: 7738 diff changeset	52
5c6d59ee93d2 +editor open Claus Gittinger <cg@exept.de> parents: 7738 diff changeset	53	^
5c6d59ee93d2 +editor open Claus Gittinger <cg@exept.de> parents: 7738 diff changeset	54	#(Menu
5c6d59ee93d2 +editor open Claus Gittinger <cg@exept.de> parents: 7738 diff changeset	55	(
5c6d59ee93d2 +editor open Claus Gittinger <cg@exept.de> parents: 7738 diff changeset	56	(MenuItem
5c6d59ee93d2 +editor open Claus Gittinger <cg@exept.de> parents: 7738 diff changeset	57	label: 'Edit'
5c6d59ee93d2 +editor open Claus Gittinger <cg@exept.de> parents: 7738 diff changeset	58	itemValue: openColorEditor
5c6d59ee93d2 +editor open Claus Gittinger <cg@exept.de> parents: 7738 diff changeset	59	translateLabel: true
5c6d59ee93d2 +editor open Claus Gittinger <cg@exept.de> parents: 7738 diff changeset	60	)
5c6d59ee93d2 +editor open Claus Gittinger <cg@exept.de> parents: 7738 diff changeset	61	)
5c6d59ee93d2 +editor open Claus Gittinger <cg@exept.de> parents: 7738 diff changeset	62	nil
5c6d59ee93d2 +editor open Claus Gittinger <cg@exept.de> parents: 7738 diff changeset	63	nil
5c6d59ee93d2 +editor open Claus Gittinger <cg@exept.de> parents: 7738 diff changeset	64	)
5c6d59ee93d2 +editor open Claus Gittinger <cg@exept.de> parents: 7738 diff changeset	65	! !
5c6d59ee93d2 +editor open Claus Gittinger <cg@exept.de> parents: 7738 diff changeset	66
44 5f101bc4a0ca Initial revision claus parents: diff changeset	67	!ColorInspectorView methodsFor:'accessing'!
5f101bc4a0ca Initial revision claus parents: diff changeset	68
5f101bc4a0ca Initial revision claus parents: diff changeset	69	inspect:anObject
5f101bc4a0ca Initial revision claus parents: diff changeset	70	super inspect:anObject.
5f101bc4a0ca Initial revision claus parents: diff changeset	71	realized ifFalse:[^ self].
2271 0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	72
44 5f101bc4a0ca Initial revision claus parents: diff changeset	73	colorView viewBackground:anObject.
5f101bc4a0ca Initial revision claus parents: diff changeset	74	colorView clear
5f101bc4a0ca Initial revision claus parents: diff changeset	75	! !
5f101bc4a0ca Initial revision claus parents: diff changeset	76
5f101bc4a0ca Initial revision claus parents: diff changeset	77	!ColorInspectorView methodsFor:'initialization'!
5f101bc4a0ca Initial revision claus parents: diff changeset	78
5f101bc4a0ca Initial revision claus parents: diff changeset	79	initialize
5f101bc4a0ca Initial revision claus parents: diff changeset	80	\|newPanel sub\|
5f101bc4a0ca Initial revision claus parents: diff changeset	81
5f101bc4a0ca Initial revision claus parents: diff changeset	82	super initialize.
5f101bc4a0ca Initial revision claus parents: diff changeset	83
5f101bc4a0ca Initial revision claus parents: diff changeset	84	newPanel := VariableVerticalPanel in:self.
5f101bc4a0ca Initial revision claus parents: diff changeset	85	newPanel origin:0.0 @ 0.0 corner:1.0 @ 1.0.
5f101bc4a0ca Initial revision claus parents: diff changeset	86
5f101bc4a0ca Initial revision claus parents: diff changeset	87	sub := subViews first.
5f101bc4a0ca Initial revision claus parents: diff changeset	88	self removeSubView:sub.
5f101bc4a0ca Initial revision claus parents: diff changeset	89	sub origin:0.0@0.0 corner:1.0@0.8.
5f101bc4a0ca Initial revision claus parents: diff changeset	90	newPanel addSubView:sub.
5f101bc4a0ca Initial revision claus parents: diff changeset	91
5f101bc4a0ca Initial revision claus parents: diff changeset	92	colorView := View in:newPanel.
5f101bc4a0ca Initial revision claus parents: diff changeset	93	colorView origin:(0.0 @ 0.8) corner:(1.0 @ 1.0).
8156 5c6d59ee93d2 +editor open Claus Gittinger <cg@exept.de> parents: 7738 diff changeset	94	colorView
5c6d59ee93d2 +editor open Claus Gittinger <cg@exept.de> parents: 7738 diff changeset	95	menuHolder:(self class colorMenu);
5c6d59ee93d2 +editor open Claus Gittinger <cg@exept.de> parents: 7738 diff changeset	96	menuPerformer:self
44 5f101bc4a0ca Initial revision claus parents: diff changeset	97
5f101bc4a0ca Initial revision claus parents: diff changeset	98	"
5f101bc4a0ca Initial revision claus parents: diff changeset	99	ColorInspectorView inspect:(Color yellow)
5f101bc4a0ca Initial revision claus parents: diff changeset	100	ColorInspectorView inspect:(Color name:'brown') lightened)
5f101bc4a0ca Initial revision claus parents: diff changeset	101	"
5f101bc4a0ca Initial revision claus parents: diff changeset	102	! !
2236 257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	103
8156 5c6d59ee93d2 +editor open Claus Gittinger <cg@exept.de> parents: 7738 diff changeset	104	!ColorInspectorView methodsFor:'user actions'!
5c6d59ee93d2 +editor open Claus Gittinger <cg@exept.de> parents: 7738 diff changeset	105
5c6d59ee93d2 +editor open Claus Gittinger <cg@exept.de> parents: 7738 diff changeset	106	openColorEditor
5c6d59ee93d2 +editor open Claus Gittinger <cg@exept.de> parents: 7738 diff changeset	107	ColorEditDialog openOn:inspectedObject
5c6d59ee93d2 +editor open Claus Gittinger <cg@exept.de> parents: 7738 diff changeset	108	! !
5c6d59ee93d2 +editor open Claus Gittinger <cg@exept.de> parents: 7738 diff changeset	109
2236 257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	110	!ColorInspectorView class methodsFor:'documentation'!
257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	111
257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	112	version
8156 5c6d59ee93d2 +editor open Claus Gittinger <cg@exept.de> parents: 7738 diff changeset	113	^ '$Header: /cvs/stx/stx/libtool/ColorInspectorView.st,v 1.12 2008-05-30 09:05:30 cg Exp $'
2236 257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	114	! !

author	Claus Gittinger <cg@exept.de>
	Fri, 30 May 2008 11:05:30 +0200
changeset 8156	5c6d59ee93d2
parent 7738	c731a6d74f04
child 9704	0754368e0592
permissions	-rw-r--r--