hg/stx-libtool2: UISelectionPanel.st@05282b2363d4 (annotated)

93 6c3ff0721248 intitial checkin ca parents: diff changeset	1	"
182 5e0f65e92d95 update ca parents: 167 diff changeset	2	COPYRIGHT (c) 1997 by Claus Gittinger / eXept Software AG
5e0f65e92d95 update ca parents: 167 diff changeset	3	All Rights Reserved
5e0f65e92d95 update ca parents: 167 diff changeset	4
5e0f65e92d95 update ca parents: 167 diff changeset	5	This software is furnished under a license and may be used
5e0f65e92d95 update ca parents: 167 diff changeset	6	only in accordance with the terms of that license and with the
5e0f65e92d95 update ca parents: 167 diff changeset	7	inclusion of the above copyright notice. This software may not
5e0f65e92d95 update ca parents: 167 diff changeset	8	be provided or otherwise made available to, or used by, any
5e0f65e92d95 update ca parents: 167 diff changeset	9	other person. No title to or ownership of the software is
5e0f65e92d95 update ca parents: 167 diff changeset	10	hereby transferred.
5e0f65e92d95 update ca parents: 167 diff changeset	11	"
5e0f65e92d95 update ca parents: 167 diff changeset	12
5e0f65e92d95 update ca parents: 167 diff changeset	13
5e0f65e92d95 update ca parents: 167 diff changeset	14
5e0f65e92d95 update ca parents: 167 diff changeset	15	ApplicationModel subclass:#UISelectionPanel
5e0f65e92d95 update ca parents: 167 diff changeset	16	instanceVariableNames:'userClass userSpecs userLabels majorSelection clipBoardSpec'
5e0f65e92d95 update ca parents: 167 diff changeset	17	classVariableNames:'UserClass UserSpecs UserLabels'
5e0f65e92d95 update ca parents: 167 diff changeset	18	poolDictionaries:''
5e0f65e92d95 update ca parents: 167 diff changeset	19	category:'Interface-UIPainter'
5e0f65e92d95 update ca parents: 167 diff changeset	20	!
5e0f65e92d95 update ca parents: 167 diff changeset	21
387 8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	22	Object subclass:#UserDefinedGallery
207 a31cc933368a set user defined specification during initialization of class ca parents: 190 diff changeset	23	instanceVariableNames:''
387 8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	24	classVariableNames:'LabelList SelectorList HolderList NextUniqueNumber'
207 a31cc933368a set user defined specification during initialization of class ca parents: 190 diff changeset	25	poolDictionaries:''
a31cc933368a set user defined specification during initialization of class ca parents: 190 diff changeset	26	privateIn:UISelectionPanel
a31cc933368a set user defined specification during initialization of class ca parents: 190 diff changeset	27	!
a31cc933368a set user defined specification during initialization of class ca parents: 190 diff changeset	28
182 5e0f65e92d95 update ca parents: 167 diff changeset	29	!UISelectionPanel class methodsFor:'documentation'!
5e0f65e92d95 update ca parents: 167 diff changeset	30
5e0f65e92d95 update ca parents: 167 diff changeset	31	copyright
5e0f65e92d95 update ca parents: 167 diff changeset	32	"
5e0f65e92d95 update ca parents: 167 diff changeset	33	COPYRIGHT (c) 1997 by Claus Gittinger / eXept Software AG
93 6c3ff0721248 intitial checkin ca parents: diff changeset	34	All Rights Reserved
6c3ff0721248 intitial checkin ca parents: diff changeset	35
6c3ff0721248 intitial checkin ca parents: diff changeset	36	This software is furnished under a license and may be used
6c3ff0721248 intitial checkin ca parents: diff changeset	37	only in accordance with the terms of that license and with the
6c3ff0721248 intitial checkin ca parents: diff changeset	38	inclusion of the above copyright notice. This software may not
6c3ff0721248 intitial checkin ca parents: diff changeset	39	be provided or otherwise made available to, or used by, any
6c3ff0721248 intitial checkin ca parents: diff changeset	40	other person. No title to or ownership of the software is
6c3ff0721248 intitial checkin ca parents: diff changeset	41	hereby transferred.
6c3ff0721248 intitial checkin ca parents: diff changeset	42	"
6c3ff0721248 intitial checkin ca parents: diff changeset	43
6c3ff0721248 intitial checkin ca parents: diff changeset	44
6c3ff0721248 intitial checkin ca parents: diff changeset	45	!
6c3ff0721248 intitial checkin ca parents: diff changeset	46
6c3ff0721248 intitial checkin ca parents: diff changeset	47	documentation
6c3ff0721248 intitial checkin ca parents: diff changeset	48	"
6c3ff0721248 intitial checkin ca parents: diff changeset	49	implements a selection panel, keeping widgets which could be placed
6c3ff0721248 intitial checkin ca parents: diff changeset	50	into the UIPainter by drag & drop.
6c3ff0721248 intitial checkin ca parents: diff changeset	51
182 5e0f65e92d95 update ca parents: 167 diff changeset	52	[start with:]
5e0f65e92d95 update ca parents: 167 diff changeset	53	UISelectionPanel open
5e0f65e92d95 update ca parents: 167 diff changeset	54
93 6c3ff0721248 intitial checkin ca parents: diff changeset	55	[author:]
182 5e0f65e92d95 update ca parents: 167 diff changeset	56	Claus Gittinger
93 6c3ff0721248 intitial checkin ca parents: diff changeset	57	Claus Atzkern
6c3ff0721248 intitial checkin ca parents: diff changeset	58
6c3ff0721248 intitial checkin ca parents: diff changeset	59	[see also:]
6c3ff0721248 intitial checkin ca parents: diff changeset	60	TabView
182 5e0f65e92d95 update ca parents: 167 diff changeset	61	NoteBookView
5e0f65e92d95 update ca parents: 167 diff changeset	62	UIGalleryView
93 6c3ff0721248 intitial checkin ca parents: diff changeset	63	UIPainter
104 da9db8500b67 update: ca parents: 98 diff changeset	64
93 6c3ff0721248 intitial checkin ca parents: diff changeset	65	"
6c3ff0721248 intitial checkin ca parents: diff changeset	66
6c3ff0721248 intitial checkin ca parents: diff changeset	67	! !
6c3ff0721248 intitial checkin ca parents: diff changeset	68
207 a31cc933368a set user defined specification during initialization of class ca parents: 190 diff changeset	69	!UISelectionPanel class methodsFor:'initialization'!
a31cc933368a set user defined specification during initialization of class ca parents: 190 diff changeset	70
a31cc933368a set user defined specification during initialization of class ca parents: 190 diff changeset	71	initialize
a31cc933368a set user defined specification during initialization of class ca parents: 190 diff changeset	72	super initialize.
387 8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	73	UserClass := UISelectionPanel::UserDefinedGallery.
207 a31cc933368a set user defined specification during initialization of class ca parents: 190 diff changeset	74	UserSpecs := #listOfSelectors.
a31cc933368a set user defined specification during initialization of class ca parents: 190 diff changeset	75	UserLabels := #listOfLabels.
387 8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	76
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	77	"Modified: / 8.12.1997 / 18:53:06 / cg"
207 a31cc933368a set user defined specification during initialization of class ca parents: 190 diff changeset	78	! !
a31cc933368a set user defined specification during initialization of class ca parents: 190 diff changeset	79
182 5e0f65e92d95 update ca parents: 167 diff changeset	80	!UISelectionPanel class methodsFor:'accessing'!
93 6c3ff0721248 intitial checkin ca parents: diff changeset	81
182 5e0f65e92d95 update ca parents: 167 diff changeset	82	specifications
112 6fe6c4d1672e build with builder ca parents: 107 diff changeset	83
182 5e0f65e92d95 update ca parents: 167 diff changeset	84	^ #(
190 8110fbe94104 change standart to standard( it's english !) ?? ca parents: 189 diff changeset	85	#( 'Standards' #(
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	86	#('Buttons' standardButtons)
190 8110fbe94104 change standart to standard( it's english !) ?? ca parents: 189 diff changeset	87	#('Menus' standardMenus)
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	88	#('Text Views' standardTextViews)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	89	#('Lists' standardLists)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	90	#('Boxes' standardBoxes)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	91	#('Misc' standardMisc)
182 5e0f65e92d95 update ca parents: 167 diff changeset	92	)
5e0f65e92d95 update ca parents: 167 diff changeset	93	)
93 6c3ff0721248 intitial checkin ca parents: diff changeset	94
182 5e0f65e92d95 update ca parents: 167 diff changeset	95	#( 'Clip Board' #(
5e0f65e92d95 update ca parents: 167 diff changeset	96	#('Copy & Paste Buffer' clipBoardSpec)
5e0f65e92d95 update ca parents: 167 diff changeset	97	)
5e0f65e92d95 update ca parents: 167 diff changeset	98	)
135 8f4b6117ccaa new withDefault ca parents: 125 diff changeset	99
302 26cdfd3e1773 new component: SelectionInHierarchyView ca parents: 291 diff changeset	100	#( 'User Def.' #userDefined )
182 5e0f65e92d95 update ca parents: 167 diff changeset	101	)
387 8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	102	!
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	103
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	104	userClass
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	105	"return the class which provides the user defined gallery specs."
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	106
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	107	^ UserClass
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	108
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	109	"Created: / 5.12.1997 / 15:12:50 / cg"
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	110	!
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	111
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	112	userClass:aClass specSelector:aSpecAccessSelector labelSelector:aLabelListAccessSelector
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	113	"change the class which provides the user defined gallery specs."
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	114
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	115	UserClass := aClass.
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	116	UserSpecs := aSpecAccessSelector.
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	117	UserLabels := aLabelListAccessSelector.
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	118
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	119	"
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	120	UISelectionPanel
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	121	userClass:UISelectionPanel::VariableUserDefinedGallery
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	122	specSelector:#listOfSelectors
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	123	labelSelector:#listOfLabels
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	124	"
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	125
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	126	"Modified: / 5.12.1997 / 13:54:47 / cg"
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	127	"Created: / 5.12.1997 / 13:56:10 / cg"
93 6c3ff0721248 intitial checkin ca parents: diff changeset	128	! !
6c3ff0721248 intitial checkin ca parents: diff changeset	129
182 5e0f65e92d95 update ca parents: 167 diff changeset	130	!UISelectionPanel class methodsFor:'interface specification'!
93 6c3ff0721248 intitial checkin ca parents: diff changeset	131
182 5e0f65e92d95 update ca parents: 167 diff changeset	132	nameAndSelectorSpec
93 6c3ff0721248 intitial checkin ca parents: diff changeset	133	"this window spec was automatically generated by the ST/X UIPainter"
6c3ff0721248 intitial checkin ca parents: diff changeset	134
6c3ff0721248 intitial checkin ca parents: diff changeset	135	"do not manually edit this - the painter/builder may not be able to
6c3ff0721248 intitial checkin ca parents: diff changeset	136	handle the specification if its corrupted."
6c3ff0721248 intitial checkin ca parents: diff changeset	137
6c3ff0721248 intitial checkin ca parents: diff changeset	138	"
182 5e0f65e92d95 update ca parents: 167 diff changeset	139	UIPainter new openOnClass:UISelectionPanel andSelector:#nameAndSelectorSpec
5e0f65e92d95 update ca parents: 167 diff changeset	140	UISelectionPanel new openInterface:#nameAndSelectorSpec
5e0f65e92d95 update ca parents: 167 diff changeset	141	"
5e0f65e92d95 update ca parents: 167 diff changeset	142
5e0f65e92d95 update ca parents: 167 diff changeset	143	<resource: #canvas>
5e0f65e92d95 update ca parents: 167 diff changeset	144
5e0f65e92d95 update ca parents: 167 diff changeset	145	^
5e0f65e92d95 update ca parents: 167 diff changeset	146
5e0f65e92d95 update ca parents: 167 diff changeset	147	#(#FullSpec
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	148	#window:
182 5e0f65e92d95 update ca parents: 167 diff changeset	149	#(#WindowSpec
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	150	#name: 'uIPainterView'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	151	#layout: #(#LayoutFrame 110 0 366 0 424 0 581 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	152	#label: 'Painter'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	153	#min: #(#Point 10 10)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	154	#max: #(#Point 1280 1024)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	155	#bounds: #(#Rectangle 110 366 425 582)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	156	#usePreferredExtent: false
182 5e0f65e92d95 update ca parents: 167 diff changeset	157	)
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	158	#component:
182 5e0f65e92d95 update ca parents: 167 diff changeset	159	#(#SpecCollection
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	160	#collection:
182 5e0f65e92d95 update ca parents: 167 diff changeset	161	#(
5e0f65e92d95 update ca parents: 167 diff changeset	162	#(#LabelSpec
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	163	#name: 'title'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	164	#layout: #(#Point 5 10)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	165	#label: 'Class & selectors to access user specs:'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	166	#adjust: #left
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	167	#resizeForLabel: true
182 5e0f65e92d95 update ca parents: 167 diff changeset	168	)
5e0f65e92d95 update ca parents: 167 diff changeset	169	#(#LabelSpec
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	170	#name: 'classLabel'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	171	#layout: #(#AlignmentOrigin 68 0.11 51 0 1 0.5)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	172	#label: 'Class:'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	173	#adjust: #right
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	174	#resizeForLabel: true
182 5e0f65e92d95 update ca parents: 167 diff changeset	175	)
5e0f65e92d95 update ca parents: 167 diff changeset	176	#(#InputFieldSpec
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	177	#name: 'classField'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	178	#layout: #(#LayoutFrame 74 0.11 39 0 -5 1.0 61 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	179	#tabable: true
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	180	#model: #className
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	181	#type: #string
182 5e0f65e92d95 update ca parents: 167 diff changeset	182	)
5e0f65e92d95 update ca parents: 167 diff changeset	183	#(#LabelSpec
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	184	#name: 'labelsLabel'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	185	#layout: #(#AlignmentOrigin 68 0.11 74 0 1 0.5)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	186	#label: 'Labels:'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	187	#adjust: #right
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	188	#resizeForLabel: true
182 5e0f65e92d95 update ca parents: 167 diff changeset	189	)
5e0f65e92d95 update ca parents: 167 diff changeset	190	#(#InputFieldSpec
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	191	#name: 'labelsField'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	192	#layout: #(#LayoutFrame 74 0.11 64 0 -5 1.0 86 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	193	#tabable: true
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	194	#model: #labelsKey
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	195	#type: #symbolOrNil
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	196	)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	197	#(#LabelSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	198	#name: 'specsLabel'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	199	#layout: #(#AlignmentOrigin 68 0.11 99 0 1 0.5)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	200	#label: 'Specifications:'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	201	#adjust: #right
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	202	#resizeForLabel: true
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	203	)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	204	#(#InputFieldSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	205	#name: 'specsField'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	206	#layout: #(#LayoutFrame 74 0.11 89 0 -5 1.0 111 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	207	#tabable: true
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	208	#model: #specsKey
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	209	#type: #symbolOrNil
182 5e0f65e92d95 update ca parents: 167 diff changeset	210	)
5e0f65e92d95 update ca parents: 167 diff changeset	211	#(#HorizontalPanelViewSpec
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	212	#name: 'commitPanel'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	213	#layout: #(#LayoutFrame 0 0.0 -23 1.0 0 1.0 0 1.0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	214	#component:
182 5e0f65e92d95 update ca parents: 167 diff changeset	215	#(#SpecCollection
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	216	#collection:
182 5e0f65e92d95 update ca parents: 167 diff changeset	217	#(
5e0f65e92d95 update ca parents: 167 diff changeset	218	#(#ActionButtonSpec
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	219	#name: 'cancel'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	220	#label: 'cancel'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	221	#tabable: true
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	222	#model: #cancel
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	223	#extent: #(#Point 153 23)
182 5e0f65e92d95 update ca parents: 167 diff changeset	224	)
5e0f65e92d95 update ca parents: 167 diff changeset	225	#(#ActionButtonSpec
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	226	#name: 'accept'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	227	#label: 'ok'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	228	#tabable: true
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	229	#model: #accept
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	230	#isDefault: true
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	231	#extent: #(#Point 153 23)
182 5e0f65e92d95 update ca parents: 167 diff changeset	232	)
5e0f65e92d95 update ca parents: 167 diff changeset	233	)
5e0f65e92d95 update ca parents: 167 diff changeset	234	)
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	235	#horizontalLayout: #fitSpace
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	236	#verticalLayout: #fit
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	237	#horizontalSpace: 3
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	238	#verticalSpace: 3
182 5e0f65e92d95 update ca parents: 167 diff changeset	239	)
5e0f65e92d95 update ca parents: 167 diff changeset	240	#(#CheckBoxSpec
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	241	#name: 'updateDefaultResources'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	242	#layout: #(#Point 5 133)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	243	#model: #updateDefaultResources
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	244	#label: 'Update Default Resources'
182 5e0f65e92d95 update ca parents: 167 diff changeset	245	)
5e0f65e92d95 update ca parents: 167 diff changeset	246	)
5e0f65e92d95 update ca parents: 167 diff changeset	247	)
5e0f65e92d95 update ca parents: 167 diff changeset	248	)
5e0f65e92d95 update ca parents: 167 diff changeset	249	!
5e0f65e92d95 update ca parents: 167 diff changeset	250
5e0f65e92d95 update ca parents: 167 diff changeset	251	windowSpec
5e0f65e92d95 update ca parents: 167 diff changeset	252	"this window spec was automatically generated by the ST/X UIPainter"
5e0f65e92d95 update ca parents: 167 diff changeset	253
5e0f65e92d95 update ca parents: 167 diff changeset	254	"do not manually edit this - the painter/builder may not be able to
5e0f65e92d95 update ca parents: 167 diff changeset	255	handle the specification if its corrupted."
5e0f65e92d95 update ca parents: 167 diff changeset	256
5e0f65e92d95 update ca parents: 167 diff changeset	257	"
5e0f65e92d95 update ca parents: 167 diff changeset	258	UIPainter new openOnClass:UISelectionPanel andSelector:#windowSpec
5e0f65e92d95 update ca parents: 167 diff changeset	259	UISelectionPanel new openInterface:#windowSpec
5e0f65e92d95 update ca parents: 167 diff changeset	260	"
5e0f65e92d95 update ca parents: 167 diff changeset	261	"UISelectionPanel open"
5e0f65e92d95 update ca parents: 167 diff changeset	262
5e0f65e92d95 update ca parents: 167 diff changeset	263	<resource: #canvas>
5e0f65e92d95 update ca parents: 167 diff changeset	264
5e0f65e92d95 update ca parents: 167 diff changeset	265	^
5e0f65e92d95 update ca parents: 167 diff changeset	266
5e0f65e92d95 update ca parents: 167 diff changeset	267	#(#FullSpec
5e0f65e92d95 update ca parents: 167 diff changeset	268	#'window:'
5e0f65e92d95 update ca parents: 167 diff changeset	269	#(#WindowSpec
302 26cdfd3e1773 new component: SelectionInHierarchyView ca parents: 291 diff changeset	270	#'name:' 'Component Gallery'
26cdfd3e1773 new component: SelectionInHierarchyView ca parents: 291 diff changeset	271	#'layout:' #(#LayoutFrame 78 0 70 0 598 0 352 0)
182 5e0f65e92d95 update ca parents: 167 diff changeset	272	#'label:' 'Component Gallery'
302 26cdfd3e1773 new component: SelectionInHierarchyView ca parents: 291 diff changeset	273	#'min:' #(#Point 100 280)
26cdfd3e1773 new component: SelectionInHierarchyView ca parents: 291 diff changeset	274	#'max:' #(#Point 1160 870)
26cdfd3e1773 new component: SelectionInHierarchyView ca parents: 291 diff changeset	275	#'bounds:' #(#Rectangle 78 70 599 353)
182 5e0f65e92d95 update ca parents: 167 diff changeset	276	)
5e0f65e92d95 update ca parents: 167 diff changeset	277	#'component:'
5e0f65e92d95 update ca parents: 167 diff changeset	278	#(#SpecCollection
5e0f65e92d95 update ca parents: 167 diff changeset	279	#'collection:'
5e0f65e92d95 update ca parents: 167 diff changeset	280	#(
5e0f65e92d95 update ca parents: 167 diff changeset	281	#(#UIGalleryViewSpec
5e0f65e92d95 update ca parents: 167 diff changeset	282	#'name:' 'gallery'
5e0f65e92d95 update ca parents: 167 diff changeset	283	#'layout:' #(#LayoutFrame 0 0.0 0 0.0 -40 1.0 0 1.0)
5e0f65e92d95 update ca parents: 167 diff changeset	284	#'tabable:' true
5e0f65e92d95 update ca parents: 167 diff changeset	285	#'menu:' #galleryList
5e0f65e92d95 update ca parents: 167 diff changeset	286	#'style:'
5e0f65e92d95 update ca parents: 167 diff changeset	287	#(#FontDescription
5e0f65e92d95 update ca parents: 167 diff changeset	288	#helvetica #medium
5e0f65e92d95 update ca parents: 167 diff changeset	289	#roman #'10'
5e0f65e92d95 update ca parents: 167 diff changeset	290	)
5e0f65e92d95 update ca parents: 167 diff changeset	291	#'model:' #galleryModel
302 26cdfd3e1773 new component: SelectionInHierarchyView ca parents: 291 diff changeset	292	#'useIndex:' true
182 5e0f65e92d95 update ca parents: 167 diff changeset	293	#'minorKeys:' #minorKeys
5e0f65e92d95 update ca parents: 167 diff changeset	294	#'clientSpec:' #clientSpec
5e0f65e92d95 update ca parents: 167 diff changeset	295	#'raiseMenu:' #raiseMenu
5e0f65e92d95 update ca parents: 167 diff changeset	296	)
5e0f65e92d95 update ca parents: 167 diff changeset	297	#(#TabViewSpec
5e0f65e92d95 update ca parents: 167 diff changeset	298	#'name:' 'major'
5e0f65e92d95 update ca parents: 167 diff changeset	299	#'layout:' #(#LayoutFrame -40 1.0 30 0.0 0 1.0 0 1.0)
5e0f65e92d95 update ca parents: 167 diff changeset	300	#'menu:' #majorList
5e0f65e92d95 update ca parents: 167 diff changeset	301	#'style:'
5e0f65e92d95 update ca parents: 167 diff changeset	302	#(#FontDescription
5e0f65e92d95 update ca parents: 167 diff changeset	303	#helvetica #medium
5e0f65e92d95 update ca parents: 167 diff changeset	304	#roman #'10'
5e0f65e92d95 update ca parents: 167 diff changeset	305	)
5e0f65e92d95 update ca parents: 167 diff changeset	306	#'model:' #majorChannel
5e0f65e92d95 update ca parents: 167 diff changeset	307	#'direction:' #right
5e0f65e92d95 update ca parents: 167 diff changeset	308	#'useIndex:' true
5e0f65e92d95 update ca parents: 167 diff changeset	309	)
5e0f65e92d95 update ca parents: 167 diff changeset	310	)
5e0f65e92d95 update ca parents: 167 diff changeset	311	)
5e0f65e92d95 update ca parents: 167 diff changeset	312	)
5e0f65e92d95 update ca parents: 167 diff changeset	313	! !
5e0f65e92d95 update ca parents: 167 diff changeset	314
5e0f65e92d95 update ca parents: 167 diff changeset	315	!UISelectionPanel class methodsFor:'menus'!
5e0f65e92d95 update ca parents: 167 diff changeset	316
5e0f65e92d95 update ca parents: 167 diff changeset	317	menuSelected
359 6193ef5b6e74 checkin from browser Claus Gittinger <cg@exept.de> parents: 355 diff changeset	318
6193ef5b6e74 checkin from browser Claus Gittinger <cg@exept.de> parents: 355 diff changeset	319	<resource: #menu>
6193ef5b6e74 checkin from browser Claus Gittinger <cg@exept.de> parents: 355 diff changeset	320
182 5e0f65e92d95 update ca parents: 167 diff changeset	321	^ #(#Menu #(
5e0f65e92d95 update ca parents: 167 diff changeset	322	#(#MenuItem
5e0f65e92d95 update ca parents: 167 diff changeset	323	#'label:' 'copy'
5e0f65e92d95 update ca parents: 167 diff changeset	324	#'value:' #copy
5e0f65e92d95 update ca parents: 167 diff changeset	325	)
5e0f65e92d95 update ca parents: 167 diff changeset	326	#(#MenuItem
5e0f65e92d95 update ca parents: 167 diff changeset	327	#'label:' 'cut'
5e0f65e92d95 update ca parents: 167 diff changeset	328	#'value:' #cut
5e0f65e92d95 update ca parents: 167 diff changeset	329	)
5e0f65e92d95 update ca parents: 167 diff changeset	330	)
5e0f65e92d95 update ca parents: 167 diff changeset	331	nil
5e0f65e92d95 update ca parents: 167 diff changeset	332	nil
5e0f65e92d95 update ca parents: 167 diff changeset	333	)
5e0f65e92d95 update ca parents: 167 diff changeset	334
359 6193ef5b6e74 checkin from browser Claus Gittinger <cg@exept.de> parents: 355 diff changeset	335	"Modified: / 29.10.1997 / 03:20:30 / cg"
182 5e0f65e92d95 update ca parents: 167 diff changeset	336	!
5e0f65e92d95 update ca parents: 167 diff changeset	337
5e0f65e92d95 update ca parents: 167 diff changeset	338	menuUnselected
359 6193ef5b6e74 checkin from browser Claus Gittinger <cg@exept.de> parents: 355 diff changeset	339	<resource: #menu>
6193ef5b6e74 checkin from browser Claus Gittinger <cg@exept.de> parents: 355 diff changeset	340
182 5e0f65e92d95 update ca parents: 167 diff changeset	341	^ #(#Menu #(
5e0f65e92d95 update ca parents: 167 diff changeset	342	#(#MenuItem
5e0f65e92d95 update ca parents: 167 diff changeset	343	#'label:' 'paste'
5e0f65e92d95 update ca parents: 167 diff changeset	344	#'value:' #paste
5e0f65e92d95 update ca parents: 167 diff changeset	345	)
5e0f65e92d95 update ca parents: 167 diff changeset	346	)
5e0f65e92d95 update ca parents: 167 diff changeset	347	nil
5e0f65e92d95 update ca parents: 167 diff changeset	348	nil
5e0f65e92d95 update ca parents: 167 diff changeset	349	)
5e0f65e92d95 update ca parents: 167 diff changeset	350
359 6193ef5b6e74 checkin from browser Claus Gittinger <cg@exept.de> parents: 355 diff changeset	351	"Modified: / 29.10.1997 / 03:20:38 / cg"
182 5e0f65e92d95 update ca parents: 167 diff changeset	352	! !
5e0f65e92d95 update ca parents: 167 diff changeset	353
190 8110fbe94104 change standart to standard( it's english !) ?? ca parents: 189 diff changeset	354	!UISelectionPanel class methodsFor:'standard specifications'!
182 5e0f65e92d95 update ca parents: 167 diff changeset	355
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	356	standardBoxes
182 5e0f65e92d95 update ca parents: 167 diff changeset	357	"this window spec was automatically generated by the ST/X UIPainter"
5e0f65e92d95 update ca parents: 167 diff changeset	358
5e0f65e92d95 update ca parents: 167 diff changeset	359	"do not manually edit this - the painter/builder may not be able to
5e0f65e92d95 update ca parents: 167 diff changeset	360	handle the specification if its corrupted."
5e0f65e92d95 update ca parents: 167 diff changeset	361
5e0f65e92d95 update ca parents: 167 diff changeset	362	"
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	363	UIPainter new openOnClass:UISelectionPanel andSelector:#standardBoxes
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	364	UISelectionPanel new openInterface:#standardBoxes
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	365	"
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	366
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	367	<resource: #canvas>
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	368
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	369	^
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	370
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	371	#(#FullSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	372	#window:
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	373	#(#WindowSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	374	#name: 'Panels'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	375	#layout: #(#LayoutFrame 100 0 546 0 600 0 785 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	376	#label: 'Panels'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	377	#min: #(#Point 10 10)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	378	#max: #(#Point 1280 1024)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	379	#bounds: #(#Rectangle 100 546 601 786)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	380	#usePreferredExtent: false
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	381	)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	382	#component:
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	383	#(#SpecCollection
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	384	#collection:
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	385	#(
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	386	#(#ViewSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	387	#name: 'Box'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	388	#layout: #(#LayoutFrame 15 0 15 0 220 0 110 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	389	)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	390	#(#LabelSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	391	#name: 'ViewLabel'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	392	#layout: #(#AlignmentOrigin 18 0 17 0 0 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	393	#label: 'Box'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	394	#style: #(#FontDescription #helvetica #medium #roman #'10')
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	395	#adjust: #left
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	396	#resizeForLabel: true
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	397	#canUIDrag: false
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	398	)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	399	#(#LabelSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	400	#name: 'VPanelLabel'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	401	#layout: #(#LayoutFrame 15 0 116 0 220 0 139 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	402	#label: 'Variable Panels'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	403	#adjust: #left
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	404	#canUIDrag: false
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	405	)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	406	#(#VariableHorizontalPanelSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	407	#name: 'VariableHorizontalPanel'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	408	#layout: #(#LayoutFrame 15 0 140 0 110 0 230 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	409	#component:
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	410	#(#SpecCollection
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	411	#collection:
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	412	#(
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	413	#(#LabelSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	414	#name: 'label4'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	415	#label: 'A'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	416	#level: 2
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	417	#canUIDrag: false
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	418	)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	419	#(#LabelSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	420	#name: 'label5'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	421	#label: 'B'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	422	#level: 2
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	423	#canUIDrag: false
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	424	)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	425	)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	426	)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	427	#handles: #(#Any 0.5 1.0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	428	)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	429	#(#VariableVerticalPanelSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	430	#name: 'VariableVerticalPanel'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	431	#layout: #(#LayoutFrame 125 0 140 0 220 0 230 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	432	#component:
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	433	#(#SpecCollection
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	434	#collection:
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	435	#(
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	436	#(#LabelSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	437	#name: 'label9'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	438	#label: 'A'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	439	#level: 2
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	440	#canUIDrag: false
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	441	)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	442	#(#LabelSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	443	#name: 'label10'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	444	#label: 'B'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	445	#level: 2
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	446	#canUIDrag: false
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	447	)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	448	)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	449	)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	450	#handles: #(#Any 0.5 1.0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	451	)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	452	#(#FramedBoxSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	453	#name: 'FramedBox'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	454	#layout: #(#LayoutFrame 240 0 15 0 445 0 110 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	455	#label: 'FramedBox'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	456	#labelPosition: #topLeft
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	457	)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	458	#(#LabelSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	459	#name: 'PanelLabel'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	460	#layout: #(#LayoutFrame 240 0 116 0 445 0 139 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	461	#label: 'Panels'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	462	#adjust: #left
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	463	#canUIDrag: false
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	464	)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	465	#(#HorizontalPanelViewSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	466	#name: 'HorizontalPanelView'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	467	#layout: #(#LayoutFrame 240 0 140 0 324 0 230 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	468	#component:
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	469	#(#SpecCollection
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	470	#collection:
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	471	#(
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	472	#(#LabelSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	473	#name: 'label1'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	474	#label: 'A'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	475	#level: 2
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	476	#extent: #(#Point 23 23)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	477	#canUIDrag: false
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	478	)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	479	#(#LabelSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	480	#name: 'label2'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	481	#label: 'B'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	482	#level: 2
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	483	#extent: #(#Point 23 23)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	484	#canUIDrag: false
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	485	)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	486	#(#LabelSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	487	#name: 'label3'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	488	#label: 'C'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	489	#level: 2
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	490	#extent: #(#Point 23 23)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	491	#canUIDrag: false
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	492	)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	493	)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	494	)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	495	#horizontalLayout: #center
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	496	#verticalLayout: #center
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	497	#horizontalSpace: 3
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	498	#verticalSpace: 3
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	499	)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	500	#(#VerticalPanelViewSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	501	#name: 'VerticalPanelView'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	502	#layout: #(#LayoutFrame 332 0 140 0 379 0 230 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	503	#component:
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	504	#(#SpecCollection
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	505	#collection:
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	506	#(
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	507	#(#LabelSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	508	#name: 'label6'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	509	#label: 'A'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	510	#level: 2
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	511	#extent: #(#Point 23 23)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	512	#canUIDrag: false
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	513	)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	514	#(#LabelSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	515	#name: 'label7'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	516	#label: 'B'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	517	#level: 2
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	518	#extent: #(#Point 23 23)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	519	#canUIDrag: false
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	520	)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	521	#(#LabelSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	522	#name: 'label8'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	523	#label: 'C'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	524	#level: 2
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	525	#extent: #(#Point 23 23)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	526	#canUIDrag: false
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	527	)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	528	)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	529	)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	530	#horizontalLayout: #center
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	531	#verticalLayout: #center
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	532	#horizontalSpace: 3
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	533	#verticalSpace: 3
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	534	)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	535	#(#PanelViewSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	536	#name: 'PanelView'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	537	#layout: #(#LayoutFrame 387 0 140 0 445 0 230 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	538	#component:
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	539	#(#SpecCollection
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	540	#collection:
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	541	#(
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	542	#(#LabelSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	543	#name: 'label11'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	544	#label: 'A'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	545	#level: 2
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	546	#extent: #(#Point 23 23)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	547	#canUIDrag: false
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	548	)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	549	#(#LabelSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	550	#name: 'label12'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	551	#label: 'B'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	552	#level: 2
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	553	#extent: #(#Point 23 23)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	554	#canUIDrag: false
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	555	)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	556	#(#LabelSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	557	#name: 'label13'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	558	#label: 'C'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	559	#level: 2
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	560	#extent: #(#Point 23 23)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	561	#canUIDrag: false
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	562	)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	563	#(#LabelSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	564	#name: 'label14'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	565	#label: 'D'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	566	#level: 2
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	567	#extent: #(#Point 23 23)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	568	#canUIDrag: false
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	569	)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	570	#(#LabelSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	571	#name: 'label15'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	572	#label: 'E'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	573	#level: 2
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	574	#extent: #(#Point 23 23)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	575	#canUIDrag: false
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	576	)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	577	)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	578	)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	579	#horizontalLayout: #fitSpace
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	580	#verticalLayout: #fitSpace
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	581	#horizontalSpace: 3
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	582	#verticalSpace: 3
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	583	)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	584	)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	585	)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	586	)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	587	!
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	588
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	589	standardButtons
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	590	"this window spec was automatically generated by the ST/X UIPainter"
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	591
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	592	"do not manually edit this - the painter/builder may not be able to
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	593	handle the specification if its corrupted."
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	594
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	595	"
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	596	UIPainter new openOnClass:UISelectionPanel andSelector:#standardButtons
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	597	UISelectionPanel new openInterface:#standardButtons
93 6c3ff0721248 intitial checkin ca parents: diff changeset	598	"
6c3ff0721248 intitial checkin ca parents: diff changeset	599
6c3ff0721248 intitial checkin ca parents: diff changeset	600	<resource: #canvas>
6c3ff0721248 intitial checkin ca parents: diff changeset	601
6c3ff0721248 intitial checkin ca parents: diff changeset	602	^
147 060fc1ac8d82 * empty log message * ca parents: 143 diff changeset	603
93 6c3ff0721248 intitial checkin ca parents: diff changeset	604	#(#FullSpec
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	605	#window:
93 6c3ff0721248 intitial checkin ca parents: diff changeset	606	#(#WindowSpec
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	607	#name: 'Buttons'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	608	#layout: #(#LayoutFrame 100 0 546 0 578 0 745 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	609	#label: 'Buttons'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	610	#min: #(#Point 10 10)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	611	#max: #(#Point 1280 1024)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	612	#bounds: #(#Rectangle 100 546 579 746)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	613	#usePreferredExtent: false
93 6c3ff0721248 intitial checkin ca parents: diff changeset	614	)
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	615	#component:
93 6c3ff0721248 intitial checkin ca parents: diff changeset	616	#(#SpecCollection
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	617	#collection:
93 6c3ff0721248 intitial checkin ca parents: diff changeset	618	#(
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	619	#(#ActionButtonSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	620	#name: 'Button'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	621	#layout: #(#LayoutFrame 15 0 15 0 130 0 37 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	622	#activeHelpKey: #dss
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	623	#label: 'Button'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	624	)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	625	#(#ActionButtonSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	626	#name: 'Button - OK'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	627	#layout: #(#LayoutFrame 15 0 47 0 130 0 69 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	628	#label: 'OK'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	629	#model: #accept
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	630	)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	631	#(#ActionButtonSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	632	#name: 'Button - Cancel'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	633	#layout: #(#LayoutFrame 15 0 79 0 130 0 101 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	634	#label: 'Cancel'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	635	#model: #cancel
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	636	)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	637	#(#ActionButtonSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	638	#name: 'Button - Help'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	639	#layout: #(#LayoutFrame 15 0 111 0 130 0 133 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	640	#label: 'Help'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	641	#model: #help
93 6c3ff0721248 intitial checkin ca parents: diff changeset	642	)
6c3ff0721248 intitial checkin ca parents: diff changeset	643	#(#ActionButtonSpec
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	644	#name: 'Button - Close'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	645	#layout: #(#LayoutFrame 15 0 143 0 130 0 165 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	646	#label: 'Close'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	647	#model: #closeRequest
93 6c3ff0721248 intitial checkin ca parents: diff changeset	648	)
6c3ff0721248 intitial checkin ca parents: diff changeset	649	#(#RadioButtonSpec
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	650	#name: 'RadioButton'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	651	#layout: #(#LayoutFrame 151 0.0 15 0 266 0 37 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	652	#label: 'RadioButton'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	653	#isTriggerOnDown: true
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	654	#showLamp: true
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	655	#lampColor: #(#Color 100.0 100.0 0.0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	656	)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	657	#(#ButtonSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	658	#name: 'ModelButton'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	659	#layout: #(#LayoutFrame 151 0 47 0 266 0 69 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	660	#label: 'ModelButton'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	661	)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	662	#(#SliderSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	663	#name: 'Slider'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	664	#layout: #(#LayoutFrame 151 0 79 0 266 0 101 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	665	#orientation: #horizontal
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	666	#start: 0
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	667	#stop: 100
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	668	#step: 1
93 6c3ff0721248 intitial checkin ca parents: diff changeset	669	)
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	670	#(#LabelSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	671	#name: 'SliderLabel'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	672	#layout: #(#AlignmentOrigin 185 0 83 0 0 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	673	#label: 'Slider'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	674	#adjust: #left
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	675	#resizeForLabel: true
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	676	#canUIDrag: false
93 6c3ff0721248 intitial checkin ca parents: diff changeset	677	)
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	678	#(#LabelSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	679	#name: 'ThumbWheelLabel'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	680	#layout: #(#AlignmentOrigin 151 0 121 0 0 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	681	#label: 'ThumbWheel'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	682	#adjust: #left
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	683	#resizeForLabel: true
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	684	#canUIDrag: false
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	685	)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	686	#(#ThumbWheelSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	687	#name: 'ThumbWheel'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	688	#layout: #(#LayoutFrame 151 0 143 0 266 0 165 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	689	#orientation: #horizontal
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	690	#start: 0
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	691	#stop: 360
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	692	#step: 1
93 6c3ff0721248 intitial checkin ca parents: diff changeset	693	)
6c3ff0721248 intitial checkin ca parents: diff changeset	694	#(#ArrowButtonSpec
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	695	#name: 'ArrowButton - Up'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	696	#layout: #(#LayoutFrame 287 0 15 0 309 0 37 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	697	#isTriggerOnDown: true
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	698	#direction: #up
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	699	)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	700	#(#ArrowButtonSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	701	#name: 'ArrowButton - Down'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	702	#layout: #(#LayoutFrame 287 0 47 0 309 0 69 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	703	#isTriggerOnDown: true
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	704	#direction: #down
93 6c3ff0721248 intitial checkin ca parents: diff changeset	705	)
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	706	#(#ArrowButtonSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	707	#name: 'ArrowButton - Left'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	708	#layout: #(#LayoutFrame 287 0 79 0 309 0 101 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	709	#isTriggerOnDown: true
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	710	#direction: #left
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	711	)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	712	#(#ArrowButtonSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	713	#name: 'ArrowButton - Right'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	714	#layout: #(#LayoutFrame 287 0 111 0 309 0 133 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	715	#isTriggerOnDown: true
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	716	#direction: #right
93 6c3ff0721248 intitial checkin ca parents: diff changeset	717	)
6c3ff0721248 intitial checkin ca parents: diff changeset	718	#(#ToggleSpec
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	719	#name: 'Toggle'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	720	#layout: #(#LayoutFrame 330 0 15 0 445 0 37 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	721	#label: 'Toggle'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	722	#isTriggerOnDown: true
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	723	#showLamp: true
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	724	#lampColor: #(#Color 100.0 100.0 0.0)
93 6c3ff0721248 intitial checkin ca parents: diff changeset	725	)
6c3ff0721248 intitial checkin ca parents: diff changeset	726	#(#CheckBoxSpec
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	727	#name: 'CheckBox'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	728	#layout: #(#LayoutFrame 330 0 47 0 445 0 69 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	729	#label: 'CheckBox'
93 6c3ff0721248 intitial checkin ca parents: diff changeset	730	)
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	731	#(#CheckToggleSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	732	#name: 'CheckToggle'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	733	#layout: #(#LayoutFrame 330 0 79 0 352 0 101 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	734	#isTriggerOnDown: true
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	735	#showLamp: false
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	736	#lampColor: #(#Color 100.0 100.0 0.0)
105 23c7896c2e49 add new objects ca parents: 104 diff changeset	737	)
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	738	#(#LabelSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	739	#name: 'CheckToggleLabel'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	740	#layout: #(#AlignmentOrigin 358 0 84 0 0 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	741	#label: 'CheckToggle'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	742	#adjust: #left
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	743	#resizeForLabel: true
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	744	#canUIDrag: false
105 23c7896c2e49 add new objects ca parents: 104 diff changeset	745	)
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	746	#(#UpDownButtonSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	747	#name: 'UpDownButton'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	748	#layout: #(#LayoutFrame 330 0 111 0 354 0 127 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	749	#orientation: #horizontal
323 8b98ae257e5c added dismiss button Claus Gittinger <cg@exept.de> parents: 308 diff changeset	750	)
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	751	#(#LabelSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	752	#name: 'UpDownButtonLabel'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	753	#layout: #(#AlignmentOrigin 361 0 112 0 0 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	754	#label: 'UpDownButton'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	755	#adjust: #left
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	756	#resizeForLabel: true
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	757	#canUIDrag: false
531 ca500f8698eb added ModelButton Claus Gittinger <cg@exept.de> parents: 397 diff changeset	758	)
93 6c3ff0721248 intitial checkin ca parents: diff changeset	759	)
6c3ff0721248 intitial checkin ca parents: diff changeset	760	)
6c3ff0721248 intitial checkin ca parents: diff changeset	761	)
6c3ff0721248 intitial checkin ca parents: diff changeset	762	!
6c3ff0721248 intitial checkin ca parents: diff changeset	763
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	764	standardLists
142 75f927b856f6 update specs; remove color and default values ca parents: 139 diff changeset	765	"this window spec was automatically generated by the ST/X UIPainter"
75f927b856f6 update specs; remove color and default values ca parents: 139 diff changeset	766
75f927b856f6 update specs; remove color and default values ca parents: 139 diff changeset	767	"do not manually edit this - the painter/builder may not be able to
75f927b856f6 update specs; remove color and default values ca parents: 139 diff changeset	768	handle the specification if its corrupted."
75f927b856f6 update specs; remove color and default values ca parents: 139 diff changeset	769
75f927b856f6 update specs; remove color and default values ca parents: 139 diff changeset	770	"
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	771	UIPainter new openOnClass:UISelectionPanel andSelector:#standardLists
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	772	UISelectionPanel new openInterface:#standardLists
142 75f927b856f6 update specs; remove color and default values ca parents: 139 diff changeset	773	"
75f927b856f6 update specs; remove color and default values ca parents: 139 diff changeset	774
75f927b856f6 update specs; remove color and default values ca parents: 139 diff changeset	775	<resource: #canvas>
75f927b856f6 update specs; remove color and default values ca parents: 139 diff changeset	776
75f927b856f6 update specs; remove color and default values ca parents: 139 diff changeset	777	^
75f927b856f6 update specs; remove color and default values ca parents: 139 diff changeset	778
75f927b856f6 update specs; remove color and default values ca parents: 139 diff changeset	779	#(#FullSpec
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	780	#window:
142 75f927b856f6 update specs; remove color and default values ca parents: 139 diff changeset	781	#(#WindowSpec
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	782	#name: 'Lists'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	783	#layout: #(#LayoutFrame 73 0 202 0 542 0 444 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	784	#label: 'Lists'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	785	#min: #(#Point 10 10)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	786	#max: #(#Point 1280 1024)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	787	#bounds: #(#Rectangle 73 202 543 445)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	788	#usePreferredExtent: false
182 5e0f65e92d95 update ca parents: 167 diff changeset	789	)
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	790	#component:
182 5e0f65e92d95 update ca parents: 167 diff changeset	791	#(#SpecCollection
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	792	#collection:
182 5e0f65e92d95 update ca parents: 167 diff changeset	793	#(
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	794	#(#SelectionInTreeViewSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	795	#name: 'SelectionInTree'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	796	#layout: #(#LayoutFrame 15 0 15 0 220 0 110 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	797	#hasHorizontalScrollBar: true
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	798	#hasVerticalScrollBar: true
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	799	)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	800	#(#LabelSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	801	#name: 'SelectionInTreeLabel'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	802	#layout: #(#AlignmentOrigin 88 0 108 0 0 1)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	803	#label: 'SelectionInTreeView'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	804	#style: #(#FontDescription #helvetica #medium #roman #'10')
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	805	#adjust: #left
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	806	#resizeForLabel: true
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	807	#canUIDrag: false
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	808	)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	809	#(#FileSelectionTreeSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	810	#name: 'FileSelectionTree'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	811	#layout: #(#LayoutFrame 15 0 130 0 220 0 225 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	812	#hasHorizontalScrollBar: true
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	813	#hasVerticalScrollBar: true
182 5e0f65e92d95 update ca parents: 167 diff changeset	814	)
5e0f65e92d95 update ca parents: 167 diff changeset	815	#(#LabelSpec
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	816	#name: 'FileSelectionTreeLabel'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	817	#layout: #(#AlignmentOrigin 88 0 223 0 0 1)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	818	#label: 'FileSelectionTree'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	819	#style: #(#FontDescription #helvetica #medium #roman #'10')
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	820	#adjust: #left
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	821	#resizeForLabel: true
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	822	#canUIDrag: false
182 5e0f65e92d95 update ca parents: 167 diff changeset	823	)
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	824	#(#SequenceViewSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	825	#name: 'SelectionInList'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	826	#layout: #(#LayoutFrame 240 0 15 0 445 0 110 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	827	#hasHorizontalScrollBar: true
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	828	#hasVerticalScrollBar: true
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	829	#useIndex: false
182 5e0f65e92d95 update ca parents: 167 diff changeset	830	)
5e0f65e92d95 update ca parents: 167 diff changeset	831	#(#LabelSpec
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	832	#name: 'SelectionInListLabel'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	833	#layout: #(#AlignmentOrigin 313 0 108 0 0 1)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	834	#label: 'SelectionInListView'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	835	#style: #(#FontDescription #helvetica #medium #roman #'10')
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	836	#adjust: #left
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	837	#resizeForLabel: true
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	838	#canUIDrag: false
182 5e0f65e92d95 update ca parents: 167 diff changeset	839	)
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	840	#(#DataSetSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	841	#name: 'DataSetSpec'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	842	#layout: #(#LayoutFrame 240 0 130 0 445 0 225 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	843	#hasHorizontalScrollBar: true
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	844	#hasVerticalScrollBar: true
182 5e0f65e92d95 update ca parents: 167 diff changeset	845	)
5e0f65e92d95 update ca parents: 167 diff changeset	846	#(#LabelSpec
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	847	#name: 'DataSetSpecLabel'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	848	#layout: #(#AlignmentOrigin 313 0 223 0 0 1)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	849	#label: 'DataSetView'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	850	#style: #(#FontDescription #helvetica #medium #roman #'10')
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	851	#adjust: #left
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	852	#resizeForLabel: true
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	853	#canUIDrag: false
182 5e0f65e92d95 update ca parents: 167 diff changeset	854	)
5e0f65e92d95 update ca parents: 167 diff changeset	855	)
5e0f65e92d95 update ca parents: 167 diff changeset	856	)
5e0f65e92d95 update ca parents: 167 diff changeset	857	)
5e0f65e92d95 update ca parents: 167 diff changeset	858	!
5e0f65e92d95 update ca parents: 167 diff changeset	859
190 8110fbe94104 change standart to standard( it's english !) ?? ca parents: 189 diff changeset	860	standardMenus
182 5e0f65e92d95 update ca parents: 167 diff changeset	861	"this window spec was automatically generated by the ST/X UIPainter"
5e0f65e92d95 update ca parents: 167 diff changeset	862
5e0f65e92d95 update ca parents: 167 diff changeset	863	"do not manually edit this - the painter/builder may not be able to
5e0f65e92d95 update ca parents: 167 diff changeset	864	handle the specification if its corrupted."
5e0f65e92d95 update ca parents: 167 diff changeset	865
5e0f65e92d95 update ca parents: 167 diff changeset	866	"
302 26cdfd3e1773 new component: SelectionInHierarchyView ca parents: 291 diff changeset	867	UIPainter new openOnClass:UISelectionPanel andSelector:#standardMenus
26cdfd3e1773 new component: SelectionInHierarchyView ca parents: 291 diff changeset	868	UISelectionPanel new openInterface:#standardMenus
182 5e0f65e92d95 update ca parents: 167 diff changeset	869	"
5e0f65e92d95 update ca parents: 167 diff changeset	870
5e0f65e92d95 update ca parents: 167 diff changeset	871	<resource: #canvas>
5e0f65e92d95 update ca parents: 167 diff changeset	872
5e0f65e92d95 update ca parents: 167 diff changeset	873	^
302 26cdfd3e1773 new component: SelectionInHierarchyView ca parents: 291 diff changeset	874
182 5e0f65e92d95 update ca parents: 167 diff changeset	875	#(#FullSpec
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	876	#window:
182 5e0f65e92d95 update ca parents: 167 diff changeset	877	#(#WindowSpec
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	878	#name: 'Menus'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	879	#layout: #(#LayoutFrame 100 0 546 0 586 0 795 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	880	#label: 'Menus'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	881	#min: #(#Point 10 10)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	882	#max: #(#Point 1280 1024)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	883	#bounds: #(#Rectangle 100 546 587 796)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	884	#usePreferredExtent: false
142 75f927b856f6 update specs; remove color and default values ca parents: 139 diff changeset	885	)
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	886	#component:
142 75f927b856f6 update specs; remove color and default values ca parents: 139 diff changeset	887	#(#SpecCollection
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	888	#collection:
142 75f927b856f6 update specs; remove color and default values ca parents: 139 diff changeset	889	#(
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	890	#(#TabViewSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	891	#name: 'TabView'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	892	#layout: #(#LayoutFrame 15 0 15 0 155 0 51 0)
302 26cdfd3e1773 new component: SelectionInHierarchyView ca parents: 291 diff changeset	893	)
26cdfd3e1773 new component: SelectionInHierarchyView ca parents: 291 diff changeset	894	#(#LabelSpec
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	895	#name: 'TabLabel'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	896	#layout: #(#Point 16 37)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	897	#label: 'TabView'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	898	#style: #(#FontDescription #helvetica #medium #roman #'10')
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	899	#adjust: #left
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	900	#resizeForLabel: true
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	901	#canUIDrag: false
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	902	)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	903	#(#NoteBookViewSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	904	#name: 'NoteBookView'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	905	#layout: #(#LayoutFrame 15 0 58 0 155 0 150 0)
302 26cdfd3e1773 new component: SelectionInHierarchyView ca parents: 291 diff changeset	906	)
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	907	#(#LabelSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	908	#name: 'NoteBookLabel'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	909	#layout: #(#Point 16 136)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	910	#label: 'NoteBookView'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	911	#style: #(#FontDescription #helvetica #medium #roman #'10')
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	912	#adjust: #left
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	913	#resizeForLabel: true
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	914	#canUIDrag: false
302 26cdfd3e1773 new component: SelectionInHierarchyView ca parents: 291 diff changeset	915	)
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	916	#(#UIGalleryViewSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	917	#name: 'GalleryView'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	918	#layout: #(#LayoutFrame 165 0 15 0 305 0 150 0)
142 75f927b856f6 update specs; remove color and default values ca parents: 139 diff changeset	919	)
302 26cdfd3e1773 new component: SelectionInHierarchyView ca parents: 291 diff changeset	920	#(#LabelSpec
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	921	#name: 'GalleryLabel'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	922	#layout: #(#Point 166 136)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	923	#label: 'GalleryView'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	924	#style: #(#FontDescription #helvetica #medium #roman #'10')
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	925	#adjust: #left
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	926	#resizeForLabel: true
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	927	#canUIDrag: false
142 75f927b856f6 update specs; remove color and default values ca parents: 139 diff changeset	928	)
75f927b856f6 update specs; remove color and default values ca parents: 139 diff changeset	929	#(#MenuPanelSpec
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	930	#name: 'MenuPanel'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	931	#layout: #(#LayoutFrame 315 0 15 0 445 0 38 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	932	#menu: #menuPanelMenu
142 75f927b856f6 update specs; remove color and default values ca parents: 139 diff changeset	933	)
75f927b856f6 update specs; remove color and default values ca parents: 139 diff changeset	934	#(#LabelSpec
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	935	#name: 'MenuPanelLabel'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	936	#layout: #(#Point 317 24)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	937	#label: 'MenuPanel'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	938	#style: #(#FontDescription #helvetica #medium #roman #'10')
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	939	#adjust: #left
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	940	#resizeForLabel: true
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	941	#canUIDrag: false
302 26cdfd3e1773 new component: SelectionInHierarchyView ca parents: 291 diff changeset	942	)
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	943	#(#PopUpListSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	944	#name: 'PopUpList'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	945	#layout: #(#LayoutFrame 315 0 55 0 445 0 77 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	946	#label: 'PopUpList'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	947	#useIndex: false
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	948	)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	949	#(#ComboListSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	950	#name: 'ComboListView'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	951	#layout: #(#LayoutFrame 315 0 94 0 445 0 114 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	952	#useIndex: false
302 26cdfd3e1773 new component: SelectionInHierarchyView ca parents: 291 diff changeset	953	)
26cdfd3e1773 new component: SelectionInHierarchyView ca parents: 291 diff changeset	954	#(#LabelSpec
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	955	#name: 'ComboListLabel'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	956	#layout: #(#LayoutFrame 317 0 96 0 416 0 114 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	957	#label: 'ComboListView'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	958	#style: #(#FontDescription #helvetica #medium #roman #'10')
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	959	#adjust: #left
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	960	#resizeForLabel: true
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	961	#canUIDrag: false
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	962	)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	963	#(#ComboBoxSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	964	#name: 'ComboBoxView'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	965	#layout: #(#LayoutFrame 315 0 130 0 445 0 150 0)
302 26cdfd3e1773 new component: SelectionInHierarchyView ca parents: 291 diff changeset	966	)
26cdfd3e1773 new component: SelectionInHierarchyView ca parents: 291 diff changeset	967	#(#LabelSpec
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	968	#name: 'ComboBoxLabel'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	969	#layout: #(#LayoutFrame 317 0 132 0 423 0 150 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	970	#label: 'ComboBoxView'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	971	#style: #(#FontDescription #helvetica #medium #roman #'10')
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	972	#adjust: #left
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	973	#resizeForLabel: true
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	974	#canUIDrag: false
142 75f927b856f6 update specs; remove color and default values ca parents: 139 diff changeset	975	)
75f927b856f6 update specs; remove color and default values ca parents: 139 diff changeset	976	)
75f927b856f6 update specs; remove color and default values ca parents: 139 diff changeset	977	)
75f927b856f6 update specs; remove color and default values ca parents: 139 diff changeset	978	)
75f927b856f6 update specs; remove color and default values ca parents: 139 diff changeset	979	!
75f927b856f6 update specs; remove color and default values ca parents: 139 diff changeset	980
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	981	standardMisc
93 6c3ff0721248 intitial checkin ca parents: diff changeset	982	"this window spec was automatically generated by the ST/X UIPainter"
6c3ff0721248 intitial checkin ca parents: diff changeset	983
6c3ff0721248 intitial checkin ca parents: diff changeset	984	"do not manually edit this - the painter/builder may not be able to
6c3ff0721248 intitial checkin ca parents: diff changeset	985	handle the specification if its corrupted."
6c3ff0721248 intitial checkin ca parents: diff changeset	986
6c3ff0721248 intitial checkin ca parents: diff changeset	987	"
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	988	UIPainter new openOnClass:UISelectionPanel andSelector:#standardMisc
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	989	UISelectionPanel new openInterface:#standardMisc
93 6c3ff0721248 intitial checkin ca parents: diff changeset	990	"
6c3ff0721248 intitial checkin ca parents: diff changeset	991
6c3ff0721248 intitial checkin ca parents: diff changeset	992	<resource: #canvas>
6c3ff0721248 intitial checkin ca parents: diff changeset	993
6c3ff0721248 intitial checkin ca parents: diff changeset	994	^
182 5e0f65e92d95 update ca parents: 167 diff changeset	995
93 6c3ff0721248 intitial checkin ca parents: diff changeset	996	#(#FullSpec
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	997	#window:
93 6c3ff0721248 intitial checkin ca parents: diff changeset	998	#(#WindowSpec
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	999	#name: 'Sliders'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1000	#layout: #(#LayoutFrame 100 0 546 0 567 0 830 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1001	#label: 'Sliders'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1002	#min: #(#Point 10 10)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1003	#max: #(#Point 1280 1024)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1004	#bounds: #(#Rectangle 100 546 568 831)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1005	#usePreferredExtent: false
93 6c3ff0721248 intitial checkin ca parents: diff changeset	1006	)
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1007	#component:
93 6c3ff0721248 intitial checkin ca parents: diff changeset	1008	#(#SpecCollection
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1009	#collection:
93 6c3ff0721248 intitial checkin ca parents: diff changeset	1010	#(
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1011	#(#ArbitraryComponentSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1012	#name: 'ArbitraryComponent'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1013	#layout: #(#LayoutFrame 15 0 15 0 220 0 110 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1014	#hasBorder: false
93 6c3ff0721248 intitial checkin ca parents: diff changeset	1015	)
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1016	#(#LabelSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1017	#name: 'ArbitraryComponentLabel'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1018	#layout: #(#AlignmentOrigin 19 0 17 0 0 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1019	#label: 'ArbitraryComponent'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1020	#style: #(#FontDescription #helvetica #medium #roman #'10')
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1021	#adjust: #left
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1022	#resizeForLabel: true
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1023	#canUIDrag: false
93 6c3ff0721248 intitial checkin ca parents: diff changeset	1024	)
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1025	#(#SubCanvasSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1026	#name: 'SubCanvas'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1027	#layout: #(#LayoutFrame 15 0 130 0 220 0 221 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1028	#hasHorizontalScrollBar: true
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1029	#hasVerticalScrollBar: true
104 da9db8500b67 update: ca parents: 98 diff changeset	1030	)
302 26cdfd3e1773 new component: SelectionInHierarchyView ca parents: 291 diff changeset	1031	#(#LabelSpec
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1032	#name: 'subCanvasLabel'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1033	#layout: #(#AlignmentOrigin 43 0 134 0 0 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1034	#label: 'SubCanvas'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1035	#style: #(#FontDescription #helvetica #medium #roman #'10')
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1036	#adjust: #left
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1037	#resizeForLabel: true
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1038	#canUIDrag: false
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1039	)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1040	#(#UISubSpecification
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1041	#name: 'SubSpecification'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1042	#layout: #(#LayoutFrame 240 0 15 0 445 0 110 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1043	)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1044	#(#LabelSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1045	#name: 'SubSpecificationLabel'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1046	#layout: #(#Point 245 17)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1047	#label: 'SubSpecification'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1048	#style: #(#FontDescription #helvetica #medium #roman #'10')
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1049	#resizeForLabel: true
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1050	#canUIDrag: false
302 26cdfd3e1773 new component: SelectionInHierarchyView ca parents: 291 diff changeset	1051	)
26cdfd3e1773 new component: SelectionInHierarchyView ca parents: 291 diff changeset	1052	#(#LabelSpec
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1053	#name: 'ProgressIndicatorLabel'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1054	#layout: #(#AlignmentOrigin 240 0 133 0 0 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1055	#label: 'ProgressIndicator'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1056	#adjust: #left
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1057	#resizeForLabel: true
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1058	#canUIDrag: false
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1059	)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1060	#(#ProgressIndicatorSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1061	#name: 'Progress Indicator'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1062	#layout: #(#LayoutFrame 350 0 131 0 445 0 149 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1063	#showPercentage: true
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1064	)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1065	#(#LabelSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1066	#name: 'SeparatorLabel'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1067	#layout: #(#AlignmentOrigin 240 0 154 0 0 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1068	#label: 'Separator'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1069	#adjust: #left
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1070	#resizeForLabel: true
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1071	#canUIDrag: false
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1072	)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1073	#(#DividerSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1074	#name: 'Separator'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1075	#layout: #(#LayoutFrame 350 0 159 0 445 0 163 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1076	#orientation: #horizontal
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1077	)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1078	#(#LabelSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1079	#name: 'VisualRegionLabel'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1080	#layout: #(#AlignmentOrigin 240 0 184 0 0 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1081	#label: 'VisualRegion'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1082	#adjust: #left
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1083	#resizeForLabel: true
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1084	#canUIDrag: false
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1085	)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1086	#(#RegionSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1087	#name: 'VisualRegion'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1088	#layout: #(#LayoutFrame 350 0 172 0 445 0 217 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1089	#lineWidth: 2
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1090	#regionType: #ellipse
302 26cdfd3e1773 new component: SelectionInHierarchyView ca parents: 291 diff changeset	1091	)
93 6c3ff0721248 intitial checkin ca parents: diff changeset	1092	)
6c3ff0721248 intitial checkin ca parents: diff changeset	1093	)
6c3ff0721248 intitial checkin ca parents: diff changeset	1094	)
6c3ff0721248 intitial checkin ca parents: diff changeset	1095	!
6c3ff0721248 intitial checkin ca parents: diff changeset	1096
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1097	standardTextViews
93 6c3ff0721248 intitial checkin ca parents: diff changeset	1098	"this window spec was automatically generated by the ST/X UIPainter"
6c3ff0721248 intitial checkin ca parents: diff changeset	1099
6c3ff0721248 intitial checkin ca parents: diff changeset	1100	"do not manually edit this - the painter/builder may not be able to
6c3ff0721248 intitial checkin ca parents: diff changeset	1101	handle the specification if its corrupted."
6c3ff0721248 intitial checkin ca parents: diff changeset	1102
6c3ff0721248 intitial checkin ca parents: diff changeset	1103	"
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1104	UIPainter new openOnClass:UISelectionPanel andSelector:#standardTextViews
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1105	UISelectionPanel new openInterface:#standardTextViews
93 6c3ff0721248 intitial checkin ca parents: diff changeset	1106	"
6c3ff0721248 intitial checkin ca parents: diff changeset	1107
6c3ff0721248 intitial checkin ca parents: diff changeset	1108	<resource: #canvas>
6c3ff0721248 intitial checkin ca parents: diff changeset	1109
6c3ff0721248 intitial checkin ca parents: diff changeset	1110	^
302 26cdfd3e1773 new component: SelectionInHierarchyView ca parents: 291 diff changeset	1111
93 6c3ff0721248 intitial checkin ca parents: diff changeset	1112	#(#FullSpec
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1113	#window:
93 6c3ff0721248 intitial checkin ca parents: diff changeset	1114	#(#WindowSpec
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1115	#name: 'Text'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1116	#layout: #(#LayoutFrame 73 0 202 0 539 0 408 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1117	#label: 'Text'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1118	#min: #(#Point 10 10)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1119	#max: #(#Point 1280 1024)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1120	#bounds: #(#Rectangle 73 202 540 409)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1121	#usePreferredExtent: false
93 6c3ff0721248 intitial checkin ca parents: diff changeset	1122	)
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1123	#component:
93 6c3ff0721248 intitial checkin ca parents: diff changeset	1124	#(#SpecCollection
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1125	#collection:
93 6c3ff0721248 intitial checkin ca parents: diff changeset	1126	#(
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1127	#(#LabelSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1128	#name: 'EditTextLabel'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1129	#layout: #(#AlignmentOrigin 87 0 107 0 0 1)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1130	#label: 'TextView'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1131	#style: #(#FontDescription #helvetica #medium #roman #'10')
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1132	#adjust: #left
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1133	#resizeForLabel: true
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1134	#canUIDrag: false
150 9f88bc99e0af subCanvas ca parents: 147 diff changeset	1135	)
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1136	#(#TextEditorSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1137	#name: 'EditText'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1138	#layout: #(#LayoutFrame 15 0 15 0 220 0 110 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1139	#hasHorizontalScrollBar: true
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1140	#hasVerticalScrollBar: true
397 be1357e3bf7f checkin from browser ca parents: 387 diff changeset	1141	)
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1142	#(#HTMLViewSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1143	#name: 'HTMLView'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1144	#layout: #(#LayoutFrame 240 0 15 0 445 0 110 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1145	#hasHorizontalScrollBar: true
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1146	#hasVerticalScrollBar: true
139 dc64ad7c0267 update selection panel menus ca parents: 135 diff changeset	1147	)
302 26cdfd3e1773 new component: SelectionInHierarchyView ca parents: 291 diff changeset	1148	#(#LabelSpec
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1149	#name: 'HTMLViewLabel'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1150	#layout: #(#AlignmentOrigin 314 0 107 0 0 1)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1151	#label: 'HTMLView'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1152	#style: #(#FontDescription #helvetica #medium #roman #'10')
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1153	#adjust: #left
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1154	#resizeForLabel: true
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1155	#canUIDrag: false
139 dc64ad7c0267 update selection panel menus ca parents: 135 diff changeset	1156	)
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1157	#(#InputFieldSpec
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1158	#name: 'EditField'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1159	#layout: #(#LayoutFrame 15 0 125 0 220 0 147 0)
97 1887c994511b checkin from browser Claus Gittinger <cg@exept.de> parents: 94 diff changeset	1160	)
139 dc64ad7c0267 update selection panel menus ca parents: 135 diff changeset	1161	#(#LabelSpec
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1162	#name: 'EditFieldLabel'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1163	#layout: #(#LayoutFrame 87 0 127 0 147 0 147 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1164	#label: 'EditField'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1165	#style: #(#FontDescription #helvetica #medium #roman #'10')
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1166	#adjust: #left
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1167	#resizeForLabel: true
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1168	#canUIDrag: false
302 26cdfd3e1773 new component: SelectionInHierarchyView ca parents: 291 diff changeset	1169	)
139 dc64ad7c0267 update selection panel menus ca parents: 135 diff changeset	1170	#(#LabelSpec
658 05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1171	#name: 'Label'
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1172	#layout: #(#LayoutFrame 240 0 125 0 445 0 147 0)
05282b2363d4 some rearranges of the gallery tz parents: 598 diff changeset	1173	#label: 'Label'
147 060fc1ac8d82 * empty log message * ca parents: 143 diff changeset	1174	)
97 1887c994511b checkin from browser Claus Gittinger <cg@exept.de> parents: 94 diff changeset	1175	)
1887c994511b checkin from browser Claus Gittinger <cg@exept.de> parents: 94 diff changeset	1176	)
1887c994511b checkin from browser Claus Gittinger <cg@exept.de> parents: 94 diff changeset	1177	)
1887c994511b checkin from browser Claus Gittinger <cg@exept.de> parents: 94 diff changeset	1178	!
1887c994511b checkin from browser Claus Gittinger <cg@exept.de> parents: 94 diff changeset	1179
190 8110fbe94104 change standart to standard( it's english !) ?? ca parents: 189 diff changeset	1180	standardUserPanel
93 6c3ff0721248 intitial checkin ca parents: diff changeset	1181	"this window spec was automatically generated by the ST/X UIPainter"
6c3ff0721248 intitial checkin ca parents: diff changeset	1182
6c3ff0721248 intitial checkin ca parents: diff changeset	1183	"do not manually edit this - the painter/builder may not be able to
6c3ff0721248 intitial checkin ca parents: diff changeset	1184	handle the specification if its corrupted."
6c3ff0721248 intitial checkin ca parents: diff changeset	1185
6c3ff0721248 intitial checkin ca parents: diff changeset	1186	"
190 8110fbe94104 change standart to standard( it's english !) ?? ca parents: 189 diff changeset	1187	UIPainter new openOnClass:UISelectionPanel andSelector:#standardUserPanel
8110fbe94104 change standart to standard( it's english !) ?? ca parents: 189 diff changeset	1188	UISelectionPanel new openInterface:#standardUserPanel
182 5e0f65e92d95 update ca parents: 167 diff changeset	1189	"
5e0f65e92d95 update ca parents: 167 diff changeset	1190
5e0f65e92d95 update ca parents: 167 diff changeset	1191	<resource: #canvas>
5e0f65e92d95 update ca parents: 167 diff changeset	1192
5e0f65e92d95 update ca parents: 167 diff changeset	1193	^
5e0f65e92d95 update ca parents: 167 diff changeset	1194
5e0f65e92d95 update ca parents: 167 diff changeset	1195	#(#FullSpec
5e0f65e92d95 update ca parents: 167 diff changeset	1196	#'window:'
5e0f65e92d95 update ca parents: 167 diff changeset	1197	#(#WindowSpec
302 26cdfd3e1773 new component: SelectionInHierarchyView ca parents: 291 diff changeset	1198	#'name:' 'UserPanel'
182 5e0f65e92d95 update ca parents: 167 diff changeset	1199	#'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
302 26cdfd3e1773 new component: SelectionInHierarchyView ca parents: 291 diff changeset	1200	#'label:' 'UserPanel'
182 5e0f65e92d95 update ca parents: 167 diff changeset	1201	#'bounds:' #(#Rectangle 0 0 445 162)
5e0f65e92d95 update ca parents: 167 diff changeset	1202	)
5e0f65e92d95 update ca parents: 167 diff changeset	1203	#'component:'
5e0f65e92d95 update ca parents: 167 diff changeset	1204	#(#SpecCollection
5e0f65e92d95 update ca parents: 167 diff changeset	1205	#'collection:'
5e0f65e92d95 update ca parents: 167 diff changeset	1206	#(
5e0f65e92d95 update ca parents: 167 diff changeset	1207	#(#LabelSpec
5e0f65e92d95 update ca parents: 167 diff changeset	1208	#'name:' 'helpText'
5e0f65e92d95 update ca parents: 167 diff changeset	1209	#'layout:' #(#Point 10 0)
5e0f65e92d95 update ca parents: 167 diff changeset	1210	#'labelChannel:' #userDefinedHelpText
5e0f65e92d95 update ca parents: 167 diff changeset	1211	#'resizeForLabel:' true
5e0f65e92d95 update ca parents: 167 diff changeset	1212	#'canUIDrag:' false
5e0f65e92d95 update ca parents: 167 diff changeset	1213	)
5e0f65e92d95 update ca parents: 167 diff changeset	1214	)
5e0f65e92d95 update ca parents: 167 diff changeset	1215	)
5e0f65e92d95 update ca parents: 167 diff changeset	1216	)
93 6c3ff0721248 intitial checkin ca parents: diff changeset	1217	! !
6c3ff0721248 intitial checkin ca parents: diff changeset	1218
182 5e0f65e92d95 update ca parents: 167 diff changeset	1219	!UISelectionPanel methodsFor:'actions'!
5e0f65e92d95 update ca parents: 167 diff changeset	1220
5e0f65e92d95 update ca parents: 167 diff changeset	1221	defineClassAndSelector
5e0f65e92d95 update ca parents: 167 diff changeset	1222	\|bd cls sel lbl\|
5e0f65e92d95 update ca parents: 167 diff changeset	1223
5e0f65e92d95 update ca parents: 167 diff changeset	1224	bd := IdentityDictionary new.
5e0f65e92d95 update ca parents: 167 diff changeset	1225	bd at:#className put:( userClass asValue).
5e0f65e92d95 update ca parents: 167 diff changeset	1226	bd at:#specsKey put:( (userSpecs ? '') asValue).
5e0f65e92d95 update ca parents: 167 diff changeset	1227	bd at:#labelsKey put:( (userLabels ? '') asValue).
5e0f65e92d95 update ca parents: 167 diff changeset	1228	bd at:#updateDefaultResources put:(false asValue).
5e0f65e92d95 update ca parents: 167 diff changeset	1229
5e0f65e92d95 update ca parents: 167 diff changeset	1230	(self openDialogInterface:#nameAndSelectorSpec withBindings:bd) ifTrue:[
5e0f65e92d95 update ca parents: 167 diff changeset	1231	( (cls := (bd at:#className) value) notNil
5e0f65e92d95 update ca parents: 167 diff changeset	1232	and:[(sel := (bd at:#specsKey) value) notNil
5e0f65e92d95 update ca parents: 167 diff changeset	1233	and:[(lbl := (bd at:#labelsKey) value) notNil]]
5e0f65e92d95 update ca parents: 167 diff changeset	1234	) ifTrue:[
5e0f65e92d95 update ca parents: 167 diff changeset	1235	userClass := cls.
5e0f65e92d95 update ca parents: 167 diff changeset	1236	userSpecs := sel.
5e0f65e92d95 update ca parents: 167 diff changeset	1237	userLabels := lbl.
5e0f65e92d95 update ca parents: 167 diff changeset	1238
5e0f65e92d95 update ca parents: 167 diff changeset	1239	(bd at:#updateDefaultResources) value ifTrue:[
5e0f65e92d95 update ca parents: 167 diff changeset	1240	UserClass := userClass.
5e0f65e92d95 update ca parents: 167 diff changeset	1241	UserSpecs := userSpecs.
5e0f65e92d95 update ca parents: 167 diff changeset	1242	UserLabels := userLabels.
5e0f65e92d95 update ca parents: 167 diff changeset	1243	]
5e0f65e92d95 update ca parents: 167 diff changeset	1244	]
5e0f65e92d95 update ca parents: 167 diff changeset	1245	].
5e0f65e92d95 update ca parents: 167 diff changeset	1246	!
5e0f65e92d95 update ca parents: 167 diff changeset	1247
5e0f65e92d95 update ca parents: 167 diff changeset	1248	paste:something
5e0f65e92d95 update ca parents: 167 diff changeset	1249	"paste something at a point
5e0f65e92d95 update ca parents: 167 diff changeset	1250	"
5e0f65e92d95 update ca parents: 167 diff changeset	1251	\|coll specs point device gallery ext spec\|
5e0f65e92d95 update ca parents: 167 diff changeset	1252
5e0f65e92d95 update ca parents: 167 diff changeset	1253	clipBoardSpec isNil ifTrue:[
5e0f65e92d95 update ca parents: 167 diff changeset	1254	clipBoardSpec := SpecCollection new.
5e0f65e92d95 update ca parents: 167 diff changeset	1255	clipBoardSpec collection:(OrderedCollection new).
5e0f65e92d95 update ca parents: 167 diff changeset	1256	].
5e0f65e92d95 update ca parents: 167 diff changeset	1257	coll := clipBoardSpec collection.
5e0f65e92d95 update ca parents: 167 diff changeset	1258	gallery := self builder componentAt:#gallery.
5e0f65e92d95 update ca parents: 167 diff changeset	1259	device := gallery device.
5e0f65e92d95 update ca parents: 167 diff changeset	1260
5e0f65e92d95 update ca parents: 167 diff changeset	1261	point := device translatePoint:(device pointerPosition)
5e0f65e92d95 update ca parents: 167 diff changeset	1262	from:(device rootView id)
5e0f65e92d95 update ca parents: 167 diff changeset	1263	to:(gallery canvas id).
5e0f65e92d95 update ca parents: 167 diff changeset	1264
5e0f65e92d95 update ca parents: 167 diff changeset	1265	point y < 1 ifTrue:[point y:1].
5e0f65e92d95 update ca parents: 167 diff changeset	1266	ext := gallery extent - (10@10).
93 6c3ff0721248 intitial checkin ca parents: diff changeset	1267
182 5e0f65e92d95 update ca parents: 167 diff changeset	1268	(specs := something) isCollection ifFalse:[
5e0f65e92d95 update ca parents: 167 diff changeset	1269	specs := Array with:something
5e0f65e92d95 update ca parents: 167 diff changeset	1270	].
5e0f65e92d95 update ca parents: 167 diff changeset	1271
5e0f65e92d95 update ca parents: 167 diff changeset	1272	specs do:[:aSpec\|
5e0f65e92d95 update ca parents: 167 diff changeset	1273	point x > ext x ifTrue:[point x:1].
5e0f65e92d95 update ca parents: 167 diff changeset	1274	point y > ext y ifTrue:[point y:1].
5e0f65e92d95 update ca parents: 167 diff changeset	1275
5e0f65e92d95 update ca parents: 167 diff changeset	1276	spec := aSpec copy.
5e0f65e92d95 update ca parents: 167 diff changeset	1277	spec layout:(LayoutOrigin fromPoint:point).
5e0f65e92d95 update ca parents: 167 diff changeset	1278	coll add:spec.
5e0f65e92d95 update ca parents: 167 diff changeset	1279	point := point + (20@20).
5e0f65e92d95 update ca parents: 167 diff changeset	1280	].
5e0f65e92d95 update ca parents: 167 diff changeset	1281	gallery update.
5e0f65e92d95 update ca parents: 167 diff changeset	1282	!
5e0f65e92d95 update ca parents: 167 diff changeset	1283
5e0f65e92d95 update ca parents: 167 diff changeset	1284	raiseMenu
5e0f65e92d95 update ca parents: 167 diff changeset	1285	"can open menu
5e0f65e92d95 update ca parents: 167 diff changeset	1286	"
251 ea4577f6cc41 * empty log message * Claus Gittinger <cg@exept.de> parents: 244 diff changeset	1287	\|spec menu value paste\|
182 5e0f65e92d95 update ca parents: 167 diff changeset	1288
5e0f65e92d95 update ca parents: 167 diff changeset	1289	spec := self clientSpec value.
112 6fe6c4d1672e build with builder ca parents: 107 diff changeset	1290
182 5e0f65e92d95 update ca parents: 167 diff changeset	1291	spec notNil ifTrue:[
5e0f65e92d95 update ca parents: 167 diff changeset	1292	menu := self class menuSelected decodeAsLiteralArray.
5e0f65e92d95 update ca parents: 167 diff changeset	1293	self isClipBoard ifFalse:[
5e0f65e92d95 update ca parents: 167 diff changeset	1294	(menu someMenuItemWithValue:#cut) disable.
5e0f65e92d95 update ca parents: 167 diff changeset	1295	].
5e0f65e92d95 update ca parents: 167 diff changeset	1296
5e0f65e92d95 update ca parents: 167 diff changeset	1297	(value := menu startUp) == #cut ifTrue:[
5e0f65e92d95 update ca parents: 167 diff changeset	1298	clipBoardSpec collection remove:spec ifAbsent:nil.
5e0f65e92d95 update ca parents: 167 diff changeset	1299	(self builder componentAt:#gallery) update.
5e0f65e92d95 update ca parents: 167 diff changeset	1300	] ifFalse:[
5e0f65e92d95 update ca parents: 167 diff changeset	1301	value == #copy ifTrue:[
5e0f65e92d95 update ca parents: 167 diff changeset	1302	self window setSelection:spec
5e0f65e92d95 update ca parents: 167 diff changeset	1303	]
5e0f65e92d95 update ca parents: 167 diff changeset	1304	].
5e0f65e92d95 update ca parents: 167 diff changeset	1305	^ self
5e0f65e92d95 update ca parents: 167 diff changeset	1306	].
5e0f65e92d95 update ca parents: 167 diff changeset	1307
5e0f65e92d95 update ca parents: 167 diff changeset	1308	self isUserBoard ifTrue:[
5e0f65e92d95 update ca parents: 167 diff changeset	1309	^ self defineClassAndSelector
5e0f65e92d95 update ca parents: 167 diff changeset	1310	].
5e0f65e92d95 update ca parents: 167 diff changeset	1311
5e0f65e92d95 update ca parents: 167 diff changeset	1312	paste := self window getSelection.
5e0f65e92d95 update ca parents: 167 diff changeset	1313
5e0f65e92d95 update ca parents: 167 diff changeset	1314	(self canPaste:paste) ifTrue:[
5e0f65e92d95 update ca parents: 167 diff changeset	1315	menu := self class menuUnselected decodeAsLiteralArray.
5e0f65e92d95 update ca parents: 167 diff changeset	1316
5e0f65e92d95 update ca parents: 167 diff changeset	1317	(menu startUp) == #paste ifTrue:[
5e0f65e92d95 update ca parents: 167 diff changeset	1318	self paste:paste
5e0f65e92d95 update ca parents: 167 diff changeset	1319	]
5e0f65e92d95 update ca parents: 167 diff changeset	1320	].
112 6fe6c4d1672e build with builder ca parents: 107 diff changeset	1321	! !
6fe6c4d1672e build with builder ca parents: 107 diff changeset	1322
6fe6c4d1672e build with builder ca parents: 107 diff changeset	1323	!UISelectionPanel methodsFor:'aspects'!
6fe6c4d1672e build with builder ca parents: 107 diff changeset	1324
182 5e0f65e92d95 update ca parents: 167 diff changeset	1325	clientSpec
5e0f65e92d95 update ca parents: 167 diff changeset	1326	"automatically generated by UIPainter ..."
5e0f65e92d95 update ca parents: 167 diff changeset	1327
112 6fe6c4d1672e build with builder ca parents: 107 diff changeset	1328	\|holder\|
6fe6c4d1672e build with builder ca parents: 107 diff changeset	1329
182 5e0f65e92d95 update ca parents: 167 diff changeset	1330	(holder := builder bindingAt:#clientSpec) isNil ifTrue:[
5e0f65e92d95 update ca parents: 167 diff changeset	1331	builder aspectAt:#clientSpec put:(holder := ValueHolder new).
5e0f65e92d95 update ca parents: 167 diff changeset	1332	holder addDependent:self.
93 6c3ff0721248 intitial checkin ca parents: diff changeset	1333	].
112 6fe6c4d1672e build with builder ca parents: 107 diff changeset	1334	^ holder
93 6c3ff0721248 intitial checkin ca parents: diff changeset	1335	!
6c3ff0721248 intitial checkin ca parents: diff changeset	1336
182 5e0f65e92d95 update ca parents: 167 diff changeset	1337	clipBoardSpec
5e0f65e92d95 update ca parents: 167 diff changeset	1338	^ clipBoardSpec
5e0f65e92d95 update ca parents: 167 diff changeset	1339	!
5e0f65e92d95 update ca parents: 167 diff changeset	1340
5e0f65e92d95 update ca parents: 167 diff changeset	1341	galleryList
5e0f65e92d95 update ca parents: 167 diff changeset	1342	"automatically generated by UIPainter ..."
5e0f65e92d95 update ca parents: 167 diff changeset	1343
112 6fe6c4d1672e build with builder ca parents: 107 diff changeset	1344	\|holder\|
6fe6c4d1672e build with builder ca parents: 107 diff changeset	1345
182 5e0f65e92d95 update ca parents: 167 diff changeset	1346	(holder := builder bindingAt:#galleryList) isNil ifTrue:[
5e0f65e92d95 update ca parents: 167 diff changeset	1347	builder aspectAt:#galleryList put:(holder := ValueHolder new).
112 6fe6c4d1672e build with builder ca parents: 107 diff changeset	1348	].
6fe6c4d1672e build with builder ca parents: 107 diff changeset	1349	^ holder
182 5e0f65e92d95 update ca parents: 167 diff changeset	1350	!
112 6fe6c4d1672e build with builder ca parents: 107 diff changeset	1351
182 5e0f65e92d95 update ca parents: 167 diff changeset	1352	galleryModel
5e0f65e92d95 update ca parents: 167 diff changeset	1353	"automatically generated by UIPainter ..."
112 6fe6c4d1672e build with builder ca parents: 107 diff changeset	1354
182 5e0f65e92d95 update ca parents: 167 diff changeset	1355	\|holder\|
112 6fe6c4d1672e build with builder ca parents: 107 diff changeset	1356
182 5e0f65e92d95 update ca parents: 167 diff changeset	1357	(holder := builder bindingAt:#galleryModel) isNil ifTrue:[
5e0f65e92d95 update ca parents: 167 diff changeset	1358	builder aspectAt:#galleryModel put:(holder := ValueHolder new).
5e0f65e92d95 update ca parents: 167 diff changeset	1359	].
5e0f65e92d95 update ca parents: 167 diff changeset	1360	^ holder
112 6fe6c4d1672e build with builder ca parents: 107 diff changeset	1361	!
6fe6c4d1672e build with builder ca parents: 107 diff changeset	1362
182 5e0f65e92d95 update ca parents: 167 diff changeset	1363	majorChannel
5e0f65e92d95 update ca parents: 167 diff changeset	1364	"automatically generated by UIPainter ..."
112 6fe6c4d1672e build with builder ca parents: 107 diff changeset	1365
182 5e0f65e92d95 update ca parents: 167 diff changeset	1366	\|holder\|
5e0f65e92d95 update ca parents: 167 diff changeset	1367
5e0f65e92d95 update ca parents: 167 diff changeset	1368	(holder := builder bindingAt:#majorChannel) isNil ifTrue:[
5e0f65e92d95 update ca parents: 167 diff changeset	1369	holder := AspectAdaptor new subject:self; forAspect:#majorSelection.
5e0f65e92d95 update ca parents: 167 diff changeset	1370	builder aspectAt:#majorChannel put:holder.
139 dc64ad7c0267 update selection panel menus ca parents: 135 diff changeset	1371	].
182 5e0f65e92d95 update ca parents: 167 diff changeset	1372	^ holder
5e0f65e92d95 update ca parents: 167 diff changeset	1373	!
5e0f65e92d95 update ca parents: 167 diff changeset	1374
5e0f65e92d95 update ca parents: 167 diff changeset	1375	majorList
5e0f65e92d95 update ca parents: 167 diff changeset	1376	"automatically generated by UIPainter ...
5e0f65e92d95 update ca parents: 167 diff changeset	1377	"
5e0f65e92d95 update ca parents: 167 diff changeset	1378	^ self class specifications collect:[:el\| el first]
5e0f65e92d95 update ca parents: 167 diff changeset	1379	!
5e0f65e92d95 update ca parents: 167 diff changeset	1380
5e0f65e92d95 update ca parents: 167 diff changeset	1381	minorKeys
5e0f65e92d95 update ca parents: 167 diff changeset	1382	"automatically generated by UIPainter ..."
5e0f65e92d95 update ca parents: 167 diff changeset	1383
5e0f65e92d95 update ca parents: 167 diff changeset	1384	\|holder\|
5e0f65e92d95 update ca parents: 167 diff changeset	1385
5e0f65e92d95 update ca parents: 167 diff changeset	1386	(holder := builder bindingAt:#minorKeys) isNil ifTrue:[
5e0f65e92d95 update ca parents: 167 diff changeset	1387	builder aspectAt:#minorKeys put:(holder := ValueHolder new).
112 6fe6c4d1672e build with builder ca parents: 107 diff changeset	1388	].
182 5e0f65e92d95 update ca parents: 167 diff changeset	1389	^ holder
112 6fe6c4d1672e build with builder ca parents: 107 diff changeset	1390	! !
6fe6c4d1672e build with builder ca parents: 107 diff changeset	1391
182 5e0f65e92d95 update ca parents: 167 diff changeset	1392	!UISelectionPanel methodsFor:'change & update'!
112 6fe6c4d1672e build with builder ca parents: 107 diff changeset	1393
182 5e0f65e92d95 update ca parents: 167 diff changeset	1394	update:something with:aParameter from:changedObject
5e0f65e92d95 update ca parents: 167 diff changeset	1395	"one of my models changed its value
112 6fe6c4d1672e build with builder ca parents: 107 diff changeset	1396	"
302 26cdfd3e1773 new component: SelectionInHierarchyView ca parents: 291 diff changeset	1397	\|channel label topView\|
112 6fe6c4d1672e build with builder ca parents: 107 diff changeset	1398
182 5e0f65e92d95 update ca parents: 167 diff changeset	1399	(channel := self clientSpec) == changedObject ifTrue:[
302 26cdfd3e1773 new component: SelectionInHierarchyView ca parents: 291 diff changeset	1400	topView := builder window topView.
93 6c3ff0721248 intitial checkin ca parents: diff changeset	1401
302 26cdfd3e1773 new component: SelectionInHierarchyView ca parents: 291 diff changeset	1402	(label := channel value) notNil ifTrue:[
26cdfd3e1773 new component: SelectionInHierarchyView ca parents: 291 diff changeset	1403	topView label:label name, ' '.
182 5e0f65e92d95 update ca parents: 167 diff changeset	1404	] ifFalse:[
302 26cdfd3e1773 new component: SelectionInHierarchyView ca parents: 291 diff changeset	1405	topView label:'Component Gallery '
93 6c3ff0721248 intitial checkin ca parents: diff changeset	1406	]
6c3ff0721248 intitial checkin ca parents: diff changeset	1407	].
6c3ff0721248 intitial checkin ca parents: diff changeset	1408
182 5e0f65e92d95 update ca parents: 167 diff changeset	1409	super update:something with:aParameter from:changedObject.
112 6fe6c4d1672e build with builder ca parents: 107 diff changeset	1410
6fe6c4d1672e build with builder ca parents: 107 diff changeset	1411
6fe6c4d1672e build with builder ca parents: 107 diff changeset	1412	! !
6fe6c4d1672e build with builder ca parents: 107 diff changeset	1413
182 5e0f65e92d95 update ca parents: 167 diff changeset	1414	!UISelectionPanel methodsFor:'drag & drop'!
112 6fe6c4d1672e build with builder ca parents: 107 diff changeset	1415
182 5e0f65e92d95 update ca parents: 167 diff changeset	1416	canDrop:something in:aComponent
5e0f65e92d95 update ca parents: 167 diff changeset	1417	^ self canPaste:(something collect:[:el\| el theObject ]).
112 6fe6c4d1672e build with builder ca parents: 107 diff changeset	1418	!
6fe6c4d1672e build with builder ca parents: 107 diff changeset	1419
182 5e0f65e92d95 update ca parents: 167 diff changeset	1420	drop:something in:aComponent at:aPoint
5e0f65e92d95 update ca parents: 167 diff changeset	1421
5e0f65e92d95 update ca parents: 167 diff changeset	1422	\|spc top\|
5e0f65e92d95 update ca parents: 167 diff changeset	1423
5e0f65e92d95 update ca parents: 167 diff changeset	1424	top := DragAndDropManager dragOriginatorQuerySignal raise topView.
5e0f65e92d95 update ca parents: 167 diff changeset	1425
5e0f65e92d95 update ca parents: 167 diff changeset	1426	top == aComponent topView ifTrue:[
5e0f65e92d95 update ca parents: 167 diff changeset	1427	spc := self clientSpec value.
5e0f65e92d95 update ca parents: 167 diff changeset	1428	spc isNil ifTrue:[^ self].
5e0f65e92d95 update ca parents: 167 diff changeset	1429
5e0f65e92d95 update ca parents: 167 diff changeset	1430	(clipBoardSpec collection remove:spc ifAbsent:nil) isNil ifTrue:[
5e0f65e92d95 update ca parents: 167 diff changeset	1431	^ self
5e0f65e92d95 update ca parents: 167 diff changeset	1432	].
5e0f65e92d95 update ca parents: 167 diff changeset	1433	] ifFalse:[
5e0f65e92d95 update ca parents: 167 diff changeset	1434	spc := something collect:[:el\| el theObject].
5e0f65e92d95 update ca parents: 167 diff changeset	1435	].
5e0f65e92d95 update ca parents: 167 diff changeset	1436	self paste:spc.
5e0f65e92d95 update ca parents: 167 diff changeset	1437	! !
5e0f65e92d95 update ca parents: 167 diff changeset	1438
5e0f65e92d95 update ca parents: 167 diff changeset	1439	!UISelectionPanel methodsFor:'queries'!
5e0f65e92d95 update ca parents: 167 diff changeset	1440
5e0f65e92d95 update ca parents: 167 diff changeset	1441	canPaste:something
5e0f65e92d95 update ca parents: 167 diff changeset	1442	"returns true if something could be paste
112 6fe6c4d1672e build with builder ca parents: 107 diff changeset	1443	"
182 5e0f65e92d95 update ca parents: 167 diff changeset	1444	(self isClipBoard and:[something notNil]) ifTrue:[
5e0f65e92d95 update ca parents: 167 diff changeset	1445	something isCollection ifTrue:[
5e0f65e92d95 update ca parents: 167 diff changeset	1446	something notEmpty ifTrue:[
5e0f65e92d95 update ca parents: 167 diff changeset	1447	^ (something at:1) isKindOf:UISpecification
5e0f65e92d95 update ca parents: 167 diff changeset	1448	]
5e0f65e92d95 update ca parents: 167 diff changeset	1449	] ifFalse:[
5e0f65e92d95 update ca parents: 167 diff changeset	1450	^ something isKindOf:UISpecification
5e0f65e92d95 update ca parents: 167 diff changeset	1451	]
5e0f65e92d95 update ca parents: 167 diff changeset	1452	].
5e0f65e92d95 update ca parents: 167 diff changeset	1453	^ false
112 6fe6c4d1672e build with builder ca parents: 107 diff changeset	1454
6fe6c4d1672e build with builder ca parents: 107 diff changeset	1455	!
6fe6c4d1672e build with builder ca parents: 107 diff changeset	1456
182 5e0f65e92d95 update ca parents: 167 diff changeset	1457	isClipBoard
5e0f65e92d95 update ca parents: 167 diff changeset	1458	"returns true if current view is clip board
5e0f65e92d95 update ca parents: 167 diff changeset	1459	"
291 1fd3867c08cc an empty selection now is specified by 0 ca parents: 251 diff changeset	1460	majorSelection ~~ 0 ifTrue:[
182 5e0f65e92d95 update ca parents: 167 diff changeset	1461	^ (self majorList at:majorSelection) startsWith:'Clip'
5e0f65e92d95 update ca parents: 167 diff changeset	1462	].
5e0f65e92d95 update ca parents: 167 diff changeset	1463	^ false
5e0f65e92d95 update ca parents: 167 diff changeset	1464	!
5e0f65e92d95 update ca parents: 167 diff changeset	1465
5e0f65e92d95 update ca parents: 167 diff changeset	1466	isUserBoard
5e0f65e92d95 update ca parents: 167 diff changeset	1467	"returns true if current view is clip board
112 6fe6c4d1672e build with builder ca parents: 107 diff changeset	1468	"
291 1fd3867c08cc an empty selection now is specified by 0 ca parents: 251 diff changeset	1469	majorSelection ~~ 0 ifTrue:[
182 5e0f65e92d95 update ca parents: 167 diff changeset	1470	^ (self majorList at:majorSelection) startsWith:'User'
5e0f65e92d95 update ca parents: 167 diff changeset	1471	].
5e0f65e92d95 update ca parents: 167 diff changeset	1472	^ false
5e0f65e92d95 update ca parents: 167 diff changeset	1473	! !
5e0f65e92d95 update ca parents: 167 diff changeset	1474
5e0f65e92d95 update ca parents: 167 diff changeset	1475	!UISelectionPanel methodsFor:'selection'!
5e0f65e92d95 update ca parents: 167 diff changeset	1476
5e0f65e92d95 update ca parents: 167 diff changeset	1477	majorSelection
291 1fd3867c08cc an empty selection now is specified by 0 ca parents: 251 diff changeset	1478	^ majorSelection ? 0
182 5e0f65e92d95 update ca parents: 167 diff changeset	1479	!
5e0f65e92d95 update ca parents: 167 diff changeset	1480
5e0f65e92d95 update ca parents: 167 diff changeset	1481	majorSelection:aSelection
5e0f65e92d95 update ca parents: 167 diff changeset	1482	\|spec channel\|
112 6fe6c4d1672e build with builder ca parents: 107 diff changeset	1483
291 1fd3867c08cc an empty selection now is specified by 0 ca parents: 251 diff changeset	1484	(majorSelection == aSelection or:[aSelection == 0]) ifTrue:[
182 5e0f65e92d95 update ca parents: 167 diff changeset	1485	^ self
167 01cbd385f878 added new specification: ca parents: 150 diff changeset	1486	].
182 5e0f65e92d95 update ca parents: 167 diff changeset	1487	(self builder componentAt:#gallery) builder:nil.
5e0f65e92d95 update ca parents: 167 diff changeset	1488	majorSelection := aSelection.
5e0f65e92d95 update ca parents: 167 diff changeset	1489	spec := ((self class specifications) at:aSelection) last.
5e0f65e92d95 update ca parents: 167 diff changeset	1490
5e0f65e92d95 update ca parents: 167 diff changeset	1491	spec isSymbol ifFalse:[
5e0f65e92d95 update ca parents: 167 diff changeset	1492	self galleryList value:(spec collect:[:a\| a first]).
5e0f65e92d95 update ca parents: 167 diff changeset	1493	self minorKeys value:(spec collect:[:a\| a last]).
5e0f65e92d95 update ca parents: 167 diff changeset	1494	] ifTrue:[
5e0f65e92d95 update ca parents: 167 diff changeset	1495	self perform:spec
5e0f65e92d95 update ca parents: 167 diff changeset	1496	].
5e0f65e92d95 update ca parents: 167 diff changeset	1497	channel := self galleryModel.
5e0f65e92d95 update ca parents: 167 diff changeset	1498
5e0f65e92d95 update ca parents: 167 diff changeset	1499	channel value notNil ifTrue:[
5e0f65e92d95 update ca parents: 167 diff changeset	1500	channel setValue:nil
5e0f65e92d95 update ca parents: 167 diff changeset	1501	].
5e0f65e92d95 update ca parents: 167 diff changeset	1502	channel value:1.
112 6fe6c4d1672e build with builder ca parents: 107 diff changeset	1503
6fe6c4d1672e build with builder ca parents: 107 diff changeset	1504	! !
6fe6c4d1672e build with builder ca parents: 107 diff changeset	1505
182 5e0f65e92d95 update ca parents: 167 diff changeset	1506	!UISelectionPanel methodsFor:'startup / release'!
112 6fe6c4d1672e build with builder ca parents: 107 diff changeset	1507
182 5e0f65e92d95 update ca parents: 167 diff changeset	1508	allButOpenInterface:aSpec
5e0f65e92d95 update ca parents: 167 diff changeset	1509	"setup default values
5e0f65e92d95 update ca parents: 167 diff changeset	1510	"
5e0f65e92d95 update ca parents: 167 diff changeset	1511	userClass := UserClass.
5e0f65e92d95 update ca parents: 167 diff changeset	1512	userSpecs := UserSpecs.
5e0f65e92d95 update ca parents: 167 diff changeset	1513	userLabels := UserLabels.
598 fba415c8cf52 care for return value of allButOpenInterface: Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1514	^ super allButOpenInterface:aSpec.
fba415c8cf52 care for return value of allButOpenInterface: Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1515
fba415c8cf52 care for return value of allButOpenInterface: Claus Gittinger <cg@exept.de> parents: 531 diff changeset	1516	"Modified: / 5.2.1998 / 20:12:15 / cg"
182 5e0f65e92d95 update ca parents: 167 diff changeset	1517	!
5e0f65e92d95 update ca parents: 167 diff changeset	1518
5e0f65e92d95 update ca parents: 167 diff changeset	1519	closeRequest
5e0f65e92d95 update ca parents: 167 diff changeset	1520	\|sav\|
112 6fe6c4d1672e build with builder ca parents: 107 diff changeset	1521
182 5e0f65e92d95 update ca parents: 167 diff changeset	1522	(sav := masterApplication) notNil ifTrue:[
5e0f65e92d95 update ca parents: 167 diff changeset	1523	masterApplication := nil.
244 b70597d2a39b do not send #closeRequest to nil. Claus Gittinger <cg@exept.de> parents: 216 diff changeset	1524	sav closeRequestFor:(self window).
182 5e0f65e92d95 update ca parents: 167 diff changeset	1525	masterApplication := sav.
5e0f65e92d95 update ca parents: 167 diff changeset	1526	] ifFalse:[
5e0f65e92d95 update ca parents: 167 diff changeset	1527	super closeRequest.
5e0f65e92d95 update ca parents: 167 diff changeset	1528	]
244 b70597d2a39b do not send #closeRequest to nil. Claus Gittinger <cg@exept.de> parents: 216 diff changeset	1529
b70597d2a39b do not send #closeRequest to nil. Claus Gittinger <cg@exept.de> parents: 216 diff changeset	1530	"Modified: 28.7.1997 / 09:44:40 / cg"
182 5e0f65e92d95 update ca parents: 167 diff changeset	1531	!
112 6fe6c4d1672e build with builder ca parents: 107 diff changeset	1532
291 1fd3867c08cc an empty selection now is specified by 0 ca parents: 251 diff changeset	1533	initialize
1fd3867c08cc an empty selection now is specified by 0 ca parents: 251 diff changeset	1534	super initialize.
1fd3867c08cc an empty selection now is specified by 0 ca parents: 251 diff changeset	1535	majorSelection := 0.
1fd3867c08cc an empty selection now is specified by 0 ca parents: 251 diff changeset	1536	!
1fd3867c08cc an empty selection now is specified by 0 ca parents: 251 diff changeset	1537
182 5e0f65e92d95 update ca parents: 167 diff changeset	1538	openWindow
5e0f65e92d95 update ca parents: 167 diff changeset	1539	"setup default values
5e0f65e92d95 update ca parents: 167 diff changeset	1540	"
5e0f65e92d95 update ca parents: 167 diff changeset	1541	super openWindow.
5e0f65e92d95 update ca parents: 167 diff changeset	1542	"/ self window waitForExpose.
5e0f65e92d95 update ca parents: 167 diff changeset	1543	Delay waitForSeconds:1.
5e0f65e92d95 update ca parents: 167 diff changeset	1544	self majorChannel value:1.
112 6fe6c4d1672e build with builder ca parents: 107 diff changeset	1545	! !
6fe6c4d1672e build with builder ca parents: 107 diff changeset	1546
182 5e0f65e92d95 update ca parents: 167 diff changeset	1547	!UISelectionPanel methodsFor:'user defined'!
5e0f65e92d95 update ca parents: 167 diff changeset	1548
5e0f65e92d95 update ca parents: 167 diff changeset	1549	userDefined
5e0f65e92d95 update ca parents: 167 diff changeset	1550	\|cls lbl sel builder\|
329 7661f4d15ead add: ca parents: 324 diff changeset	1551
7661f4d15ead add: ca parents: 324 diff changeset	1552	cls := self resolveName:userClass.
7661f4d15ead add: ca parents: 324 diff changeset	1553
7661f4d15ead add: ca parents: 324 diff changeset	1554	(cls notNil and:[(cls respondsTo:userLabels)]) ifTrue:[
7661f4d15ead add: ca parents: 324 diff changeset	1555	lbl := cls perform:userLabels.
7661f4d15ead add: ca parents: 324 diff changeset	1556	sel := Array new:(lbl size) withAll:#userDefinedSpec.
7661f4d15ead add: ca parents: 324 diff changeset	1557	self galleryList value:lbl.
7661f4d15ead add: ca parents: 324 diff changeset	1558	self minorKeys value:sel.
7661f4d15ead add: ca parents: 324 diff changeset	1559	] ifFalse:[
397 be1357e3bf7f checkin from browser ca parents: 387 diff changeset	1560	builder := UIBuilder new isEditing:true.
be1357e3bf7f checkin from browser ca parents: 387 diff changeset	1561
329 7661f4d15ead add: ca parents: 324 diff changeset	1562	builder application:self.
7661f4d15ead add: ca parents: 324 diff changeset	1563	(self builder componentAt:#gallery) builder:builder.
7661f4d15ead add: ca parents: 324 diff changeset	1564	self galleryList value:#( '???' ).
7661f4d15ead add: ca parents: 324 diff changeset	1565	self minorKeys value:#( standardUserPanel ).
7661f4d15ead add: ca parents: 324 diff changeset	1566	]
182 5e0f65e92d95 update ca parents: 167 diff changeset	1567	!
147 060fc1ac8d82 * empty log message * ca parents: 143 diff changeset	1568
182 5e0f65e92d95 update ca parents: 167 diff changeset	1569	userDefinedHelpText
5e0f65e92d95 update ca parents: 167 diff changeset	1570
5e0f65e92d95 update ca parents: 167 diff changeset	1571	^ '
5e0f65e92d95 update ca parents: 167 diff changeset	1572	no user defined specifications are configured yet. To assign
5e0f65e92d95 update ca parents: 167 diff changeset	1573	user defined specifications to the gallery press the middle
5e0f65e92d95 update ca parents: 167 diff changeset	1574	button of your mouse to open a dialog.
5e0f65e92d95 update ca parents: 167 diff changeset	1575	'
5e0f65e92d95 update ca parents: 167 diff changeset	1576	!
5e0f65e92d95 update ca parents: 167 diff changeset	1577
5e0f65e92d95 update ca parents: 167 diff changeset	1578	userDefinedSpec
5e0f65e92d95 update ca parents: 167 diff changeset	1579	\|cls spc idx\|
93 6c3ff0721248 intitial checkin ca parents: diff changeset	1580
329 7661f4d15ead add: ca parents: 324 diff changeset	1581	cls := self resolveName:userClass.
182 5e0f65e92d95 update ca parents: 167 diff changeset	1582
329 7661f4d15ead add: ca parents: 324 diff changeset	1583	(cls notNil and:[(cls respondsTo:userSpecs)]) ifTrue:[
7661f4d15ead add: ca parents: 324 diff changeset	1584	spc := cls perform:userSpecs.
7661f4d15ead add: ca parents: 324 diff changeset	1585	idx := self galleryModel value.
7661f4d15ead add: ca parents: 324 diff changeset	1586
7661f4d15ead add: ca parents: 324 diff changeset	1587	idx <= spc size ifTrue:[
7661f4d15ead add: ca parents: 324 diff changeset	1588	spc := spc at:idx.
7661f4d15ead add: ca parents: 324 diff changeset	1589	(cls respondsTo:spc) ifTrue:[
7661f4d15ead add: ca parents: 324 diff changeset	1590	^ cls perform:spc
147 060fc1ac8d82 * empty log message * ca parents: 143 diff changeset	1591	]
93 6c3ff0721248 intitial checkin ca parents: diff changeset	1592	]
6c3ff0721248 intitial checkin ca parents: diff changeset	1593	].
147 060fc1ac8d82 * empty log message * ca parents: 143 diff changeset	1594	^ nil
93 6c3ff0721248 intitial checkin ca parents: diff changeset	1595	! !
6c3ff0721248 intitial checkin ca parents: diff changeset	1596
387 8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1597	!UISelectionPanel::UserDefinedGallery class methodsFor:'class initialization'!
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1598
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1599	initialize
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1600	"initialize my default user-def from the superclasses specs.
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1601	I.e. provide a clocks entry"
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1602
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1603	LabelList := self defaultListOfLabels asOrderedCollection.
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1604	SelectorList := self defaultListOfSelectors asOrderedCollection.
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1605	HolderList := OrderedCollection new grow:(SelectorList size).
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1606	NextUniqueNumber := 1.
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1607
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1608	UISelectionPanel
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1609	userClass:self
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1610	specSelector:#listOfSelectors
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1611	labelSelector:#listOfLabels.
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1612
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1613	"
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1614	self initialize
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1615	"
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1616
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1617	"Modified: / 5.12.1997 / 14:25:22 / cg"
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1618	"Created: / 8.12.1997 / 18:49:42 / cg"
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1619	! !
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1620
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1621	!UISelectionPanel::UserDefinedGallery class methodsFor:'defaults'!
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1622
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1623	defaultListOfLabels
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1624	^ #( 'clocks' )
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1625
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1626	"Created: / 8.12.1997 / 18:50:06 / cg"
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1627	!
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1628
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1629	defaultListOfSelectors
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1630	^ #( clocksSpec )
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1631
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1632	"Modified: / 5.12.1997 / 14:03:55 / cg"
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1633	"Created: / 8.12.1997 / 18:50:21 / cg"
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1634	! !
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1635
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1636	!UISelectionPanel::UserDefinedGallery class methodsFor:'documentation'!
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1637
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1638	copyright
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1639	"
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1640	COPYRIGHT (c) 1997 by eXept Software AG
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1641	All Rights Reserved
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1642
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1643	This software is furnished under a license and may be used
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1644	only in accordance with the terms of that license and with the
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1645	inclusion of the above copyright notice. This software may not
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1646	be provided or otherwise made available to, or used by, any
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1647	other person. No title to or ownership of the software is
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1648	hereby transferred.
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1649	"
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1650
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1651
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1652
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1653	!
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1654
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1655	documentation
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1656	"
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1657	The standard user-defined selectionPanel entry.
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1658	Here, a single item named 'clocks' is provided, containing
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1659	an analog and digital clock.
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1660	This is a dump example; the actual user-defined panel may be
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1661	extended dynamically.
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1662
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1663	Frameworks which provide additional widgets may dynamically
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1664	add more entries, by sending #addUserSpecHolder:label:
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1665	or #removeUserSpecWithLabel:.
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1666	Typically, this is done when a framework is loaded, by one of the
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1667	frameworks class-initialization methods.
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1668
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1669	[start with:]
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1670	UISelectionPanel open
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1671
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1672	[author:]
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1673	Claus Gittinger
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1674	Claus Atzkern
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1675
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1676	[see also:]
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1677	TabView
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1678	NoteBookView
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1679	UIGalleryView
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1680	UIPainter
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1681
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1682	"
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1683
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1684
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1685	! !
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1686
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1687	!UISelectionPanel::UserDefinedGallery class methodsFor:'installation / deinstallation'!
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1688
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1689	addUserSpecHolder:aValueHolder label:aLabelString
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1690	"add a new entry with the given label.
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1691	The specHolder is typically either a spec, a valueHolder or a block.
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1692	In any case, it should return a valid spec from the #value message.
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1693	This spec is installed under that label."
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1694
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1695	\|syntheticSelector idx\|
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1696
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1697	syntheticSelector := ('userSpec' , NextUniqueNumber printString) asSymbol.
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1698	NextUniqueNumber := NextUniqueNumber + 1.
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1699
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1700	idx := LabelList indexOf:aLabelString.
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1701	idx ~~ 0 ifTrue:[
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1702	SelectorList at:idx put:syntheticSelector.
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1703	HolderList at:idx put:aValueHolder
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1704	] ifFalse:[
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1705	LabelList addLast:aLabelString.
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1706	SelectorList addLast:syntheticSelector.
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1707	HolderList addLast:aValueHolder
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1708	]
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1709
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1710	"Modified: / 5.12.1997 / 14:13:17 / cg"
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1711	"Created: / 8.12.1997 / 18:50:55 / cg"
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1712	!
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1713
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1714	removeUserSpecWithLabel:aLabelString
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1715	"remove the spec which was previously installed under the given label"
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1716
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1717	\|idx\|
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1718
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1719	idx := LabelList indexOf:aLabelString.
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1720	idx ~~ 0 ifTrue:[
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1721	LabelList removeIndex:idx.
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1722	SelectorList removeIndex:idx.
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1723	HolderList removeIndex:idx
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1724	].
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1725
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1726	"Modified: / 5.12.1997 / 14:13:45 / cg"
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1727	"Created: / 8.12.1997 / 18:51:03 / cg"
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1728	! !
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1729
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1730	!UISelectionPanel::UserDefinedGallery class methodsFor:'user defined gallery'!
207 a31cc933368a set user defined specification during initialization of class ca parents: 190 diff changeset	1731
a31cc933368a set user defined specification during initialization of class ca parents: 190 diff changeset	1732	clocksSpec
a31cc933368a set user defined specification during initialization of class ca parents: 190 diff changeset	1733	"this window spec was automatically generated by the ST/X UIPainter"
a31cc933368a set user defined specification during initialization of class ca parents: 190 diff changeset	1734
a31cc933368a set user defined specification during initialization of class ca parents: 190 diff changeset	1735	"do not manually edit this - the painter/builder may not be able to
a31cc933368a set user defined specification during initialization of class ca parents: 190 diff changeset	1736	handle the specification if its corrupted."
a31cc933368a set user defined specification during initialization of class ca parents: 190 diff changeset	1737
a31cc933368a set user defined specification during initialization of class ca parents: 190 diff changeset	1738	"
a31cc933368a set user defined specification during initialization of class ca parents: 190 diff changeset	1739	UIPainter new openOnClass:UISelectionPanel::ExampleUserDefinedGallery andSelector:#clocksSpec
a31cc933368a set user defined specification during initialization of class ca parents: 190 diff changeset	1740	UISelectionPanel::ExampleUserDefinedGallery new openInterface:#clocksSpec
a31cc933368a set user defined specification during initialization of class ca parents: 190 diff changeset	1741	"
a31cc933368a set user defined specification during initialization of class ca parents: 190 diff changeset	1742
a31cc933368a set user defined specification during initialization of class ca parents: 190 diff changeset	1743	<resource: #canvas>
a31cc933368a set user defined specification during initialization of class ca parents: 190 diff changeset	1744
a31cc933368a set user defined specification during initialization of class ca parents: 190 diff changeset	1745	^
a31cc933368a set user defined specification during initialization of class ca parents: 190 diff changeset	1746
a31cc933368a set user defined specification during initialization of class ca parents: 190 diff changeset	1747	#(#FullSpec
a31cc933368a set user defined specification during initialization of class ca parents: 190 diff changeset	1748	#'window:'
a31cc933368a set user defined specification during initialization of class ca parents: 190 diff changeset	1749	#(#WindowSpec
324 2898d6c12330 checkin from browser Claus Gittinger <cg@exept.de> parents: 323 diff changeset	1750	#'name:' 'Interface Builder'
2898d6c12330 checkin from browser Claus Gittinger <cg@exept.de> parents: 323 diff changeset	1751	#'layout:' #(#LayoutFrame 22 0 236 0 401 0 506 0)
207 a31cc933368a set user defined specification during initialization of class ca parents: 190 diff changeset	1752	#'label:' 'Interface Builder'
324 2898d6c12330 checkin from browser Claus Gittinger <cg@exept.de> parents: 323 diff changeset	1753	#'min:' #(#Point 10 10)
2898d6c12330 checkin from browser Claus Gittinger <cg@exept.de> parents: 323 diff changeset	1754	#'max:' #(#Point 1280 1024)
2898d6c12330 checkin from browser Claus Gittinger <cg@exept.de> parents: 323 diff changeset	1755	#'bounds:' #(#Rectangle 22 236 402 507)
207 a31cc933368a set user defined specification during initialization of class ca parents: 190 diff changeset	1756	)
a31cc933368a set user defined specification during initialization of class ca parents: 190 diff changeset	1757	#'component:'
a31cc933368a set user defined specification during initialization of class ca parents: 190 diff changeset	1758	#(#SpecCollection
a31cc933368a set user defined specification during initialization of class ca parents: 190 diff changeset	1759	#'collection:'
a31cc933368a set user defined specification during initialization of class ca parents: 190 diff changeset	1760	#(
a31cc933368a set user defined specification during initialization of class ca parents: 190 diff changeset	1761	#(#ArbitraryComponentSpec
324 2898d6c12330 checkin from browser Claus Gittinger <cg@exept.de> parents: 323 diff changeset	1762	#'name:' 'ClockView'
207 a31cc933368a set user defined specification during initialization of class ca parents: 190 diff changeset	1763	#'layout:' #(#LayoutFrame 11 0 11 0 125 0 123 0)
a31cc933368a set user defined specification during initialization of class ca parents: 190 diff changeset	1764	#'component:' #ClockView
a31cc933368a set user defined specification during initialization of class ca parents: 190 diff changeset	1765	#'hasBorder:' false
a31cc933368a set user defined specification during initialization of class ca parents: 190 diff changeset	1766	)
a31cc933368a set user defined specification during initialization of class ca parents: 190 diff changeset	1767	#(#ArbitraryComponentSpec
324 2898d6c12330 checkin from browser Claus Gittinger <cg@exept.de> parents: 323 diff changeset	1768	#'name:' 'DigitalClockView'
2898d6c12330 checkin from browser Claus Gittinger <cg@exept.de> parents: 323 diff changeset	1769	#'layout:' #(#LayoutOrigin 136 0 11 0)
207 a31cc933368a set user defined specification during initialization of class ca parents: 190 diff changeset	1770	#'component:' #DigitalClockView
a31cc933368a set user defined specification during initialization of class ca parents: 190 diff changeset	1771	#'hasBorder:' false
a31cc933368a set user defined specification during initialization of class ca parents: 190 diff changeset	1772	)
a31cc933368a set user defined specification during initialization of class ca parents: 190 diff changeset	1773	)
a31cc933368a set user defined specification during initialization of class ca parents: 190 diff changeset	1774	)
a31cc933368a set user defined specification during initialization of class ca parents: 190 diff changeset	1775	)
324 2898d6c12330 checkin from browser Claus Gittinger <cg@exept.de> parents: 323 diff changeset	1776
387 8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1777	"Modified: / 4.10.1997 / 15:12:27 / cg"
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1778	"Created: / 8.12.1997 / 18:40:22 / cg"
207 a31cc933368a set user defined specification during initialization of class ca parents: 190 diff changeset	1779	!
a31cc933368a set user defined specification during initialization of class ca parents: 190 diff changeset	1780
a31cc933368a set user defined specification during initialization of class ca parents: 190 diff changeset	1781	listOfLabels
387 8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1782	^ LabelList
207 a31cc933368a set user defined specification during initialization of class ca parents: 190 diff changeset	1783
387 8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1784	"Created: / 5.12.1997 / 13:43:03 / cg"
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1785	"Modified: / 8.12.1997 / 18:51:20 / cg"
207 a31cc933368a set user defined specification during initialization of class ca parents: 190 diff changeset	1786	!
a31cc933368a set user defined specification during initialization of class ca parents: 190 diff changeset	1787
a31cc933368a set user defined specification during initialization of class ca parents: 190 diff changeset	1788	listOfSelectors
387 8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1789	^ SelectorList
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1790
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1791	"Created: / 5.12.1997 / 13:43:13 / cg"
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1792	"Modified: / 8.12.1997 / 18:51:28 / cg"
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1793	! !
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1794
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1795	!UISelectionPanel::UserDefinedGallery class methodsFor:'user spec access'!
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1796
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1797	doesNotUnderstand:aMessage
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1798	"catch queries for a userSpec"
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1799
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1800	\|sel idx\|
207 a31cc933368a set user defined specification during initialization of class ca parents: 190 diff changeset	1801
387 8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1802	((sel := aMessage selector) startsWith:'userSpec') ifTrue:[
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1803	idx := SelectorList indexOf:sel.
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1804	idx ~~ 0 ifTrue:[
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1805	^ (HolderList at:idx) value
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1806	]
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1807	].
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1808	^ super doesNotUnderstand:aMessage
207 a31cc933368a set user defined specification during initialization of class ca parents: 190 diff changeset	1809
387 8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1810	"Modified: / 5.12.1997 / 14:23:24 / cg"
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1811	"Created: / 8.12.1997 / 18:51:50 / cg"
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1812	!
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1813
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1814	respondsTo:aSelector
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1815	"catch queries for a userSpec"
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1816
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1817	\|idx\|
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1818
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1819	(aSelector startsWith:'userSpec') ifTrue:[
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1820	idx := Number fromString:(aSelector copyFrom:9).
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1821	idx := SelectorList indexOf:aSelector.
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1822	idx ~~ 0 ifTrue:[^ true].
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1823	].
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1824	^ super respondsTo:aSelector
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1825
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1826	"Modified: / 5.12.1997 / 14:19:55 / cg"
8fa6afe1b929 allow dynamic change of user defined selectionPanel Claus Gittinger <cg@exept.de> parents: 359 diff changeset	1827	"Created: / 8.12.1997 / 18:51:57 / cg"
207 a31cc933368a set user defined specification during initialization of class ca parents: 190 diff changeset	1828	! !
a31cc933368a set user defined specification during initialization of class ca parents: 190 diff changeset	1829
93 6c3ff0721248 intitial checkin ca parents: diff changeset	1830	!UISelectionPanel class methodsFor:'documentation'!
6c3ff0721248 intitial checkin ca parents: diff changeset	1831
6c3ff0721248 intitial checkin ca parents: diff changeset	1832	version
6c3ff0721248 intitial checkin ca parents: diff changeset	1833	^ '$Header$'
6c3ff0721248 intitial checkin ca parents: diff changeset	1834	! !
207 a31cc933368a set user defined specification during initialization of class ca parents: 190 diff changeset	1835	UISelectionPanel initialize!

author	tz
	Sat, 21 Feb 1998 23:07:41 +0100
changeset 658	05282b2363d4
parent 598	fba415c8cf52
child 659	b86448fe2605
permissions	-rw-r--r--