hg/stx-libtool2: Tools__ViewTreeApplication.st@7d83538ca900 (annotated)

3753 eb97ded9cc8e #OTHER by exept Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	1	"{ Encoding: utf8 }"
eb97ded9cc8e #OTHER by exept Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	2
2748 76f6fd319918 added: #copyright Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	3	"
76f6fd319918 added: #copyright Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	4	COPYRIGHT (c) 2007 by eXept Software AG
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	5	All Rights Reserved
2748 76f6fd319918 added: #copyright Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	6
76f6fd319918 added: #copyright Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	7	This software is furnished under a license and may be used
76f6fd319918 added: #copyright Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	8	only in accordance with the terms of that license and with the
76f6fd319918 added: #copyright Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	9	inclusion of the above copyright notice. This software may not
76f6fd319918 added: #copyright Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	10	be provided or otherwise made available to, or used by, any
76f6fd319918 added: #copyright Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	11	other person. No title to or ownership of the software is
76f6fd319918 added: #copyright Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	12	hereby transferred.
76f6fd319918 added: #copyright Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	13	"
2177 87bb1815460b initial checkin ca parents: diff changeset	14	"{ Package: 'stx:libtool2' }"
87bb1815460b initial checkin ca parents: diff changeset	15
87bb1815460b initial checkin ca parents: diff changeset	16	"{ NameSpace: Tools }"
87bb1815460b initial checkin ca parents: diff changeset	17
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	18	ToolApplicationModel subclass:#ViewTreeInspectorApplication
2177 87bb1815460b initial checkin ca parents: diff changeset	19	instanceVariableNames:'model treeView hasSingleSelectionHolder clickedItem clickedPoint
2770 9322aee00ea0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2762 diff changeset	20	motionAction process followFocusChannel showNamesHolder
3124 1973e28a2c75 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3123 diff changeset	21	inspectorView inspectorModeIndexHolder path
3302 413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	22	isCatchingEventsChannel browser'
2177 87bb1815460b initial checkin ca parents: diff changeset	23	classVariableNames:''
87bb1815460b initial checkin ca parents: diff changeset	24	poolDictionaries:''
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	25	category:'Interface-Smalltalk'
2177 87bb1815460b initial checkin ca parents: diff changeset	26	!
87bb1815460b initial checkin ca parents: diff changeset	27
87bb1815460b initial checkin ca parents: diff changeset	28	Object subclass:#MenuDesc
87bb1815460b initial checkin ca parents: diff changeset	29	instanceVariableNames:'title value action'
87bb1815460b initial checkin ca parents: diff changeset	30	classVariableNames:''
87bb1815460b initial checkin ca parents: diff changeset	31	poolDictionaries:''
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	32	privateIn:ViewTreeInspectorApplication
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	33	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	34
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	35	HierarchicalItem subclass:#ViewTreeItem
3456 4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	36	instanceVariableNames:'widget menuItem isDrawnShown exists xOffsetAdditionalName'
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	37	classVariableNames:'HandleExtent'
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	38	poolDictionaries:''
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	39	privateIn:ViewTreeInspectorApplication
2177 87bb1815460b initial checkin ca parents: diff changeset	40	!
87bb1815460b initial checkin ca parents: diff changeset	41
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	42	ValueModel subclass:#ViewTreeModel
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	43	instanceVariableNames:'lockSema selectedSuperItems selection hiddenLevel listOfItems
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	44	inputEventAction mappedViewAction beforeSelectionChangedAction
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	45	icons timedUpdateTask selectOnClickHolder testModeChannel
2978 a952dfdb1b6a class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 2888 diff changeset	46	hasTargetWidgetChannel catchEvents'
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	47	classVariableNames:''
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	48	poolDictionaries:''
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	49	privateIn:ViewTreeInspectorApplication
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	50	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	51
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	52	HierarchicalList subclass:#ItemList
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	53	instanceVariableNames:'treeModel eventHook eventHookInitialized showWidgetNames'
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	54	classVariableNames:''
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	55	poolDictionaries:''
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	56	privateIn:ViewTreeInspectorApplication::ViewTreeModel
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	57	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	58
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	59	!ViewTreeInspectorApplication class methodsFor:'documentation'!
2177 87bb1815460b initial checkin ca parents: diff changeset	60
2748 76f6fd319918 added: #copyright Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	61	copyright
76f6fd319918 added: #copyright Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	62	"
76f6fd319918 added: #copyright Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	63	COPYRIGHT (c) 2007 by eXept Software AG
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	64	All Rights Reserved
2748 76f6fd319918 added: #copyright Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	65
76f6fd319918 added: #copyright Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	66	This software is furnished under a license and may be used
76f6fd319918 added: #copyright Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	67	only in accordance with the terms of that license and with the
76f6fd319918 added: #copyright Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	68	inclusion of the above copyright notice. This software may not
76f6fd319918 added: #copyright Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	69	be provided or otherwise made available to, or used by, any
76f6fd319918 added: #copyright Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	70	other person. No title to or ownership of the software is
76f6fd319918 added: #copyright Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	71	hereby transferred.
76f6fd319918 added: #copyright Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	72	"
76f6fd319918 added: #copyright Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	73	!
76f6fd319918 added: #copyright Claus Gittinger <cg@exept.de> parents: 2747 diff changeset	74
2177 87bb1815460b initial checkin ca parents: diff changeset	75	documentation
87bb1815460b initial checkin ca parents: diff changeset	76	"
87bb1815460b initial checkin ca parents: diff changeset	77	Small application showing a ViewTreeModel use.
87bb1815460b initial checkin ca parents: diff changeset	78
87bb1815460b initial checkin ca parents: diff changeset	79	It displays a hierarchical list of a selected TopView and
87bb1815460b initial checkin ca parents: diff changeset	80	all its contained subViews.
87bb1815460b initial checkin ca parents: diff changeset	81	Useful to have a look at subcomponents - to see how views
87bb1815460b initial checkin ca parents: diff changeset	82	are structured.
87bb1815460b initial checkin ca parents: diff changeset	83
87bb1815460b initial checkin ca parents: diff changeset	84
87bb1815460b initial checkin ca parents: diff changeset	85	[Instance variables:]
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	86	model <ViewTreeModel> the used ViewTreeModel
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	87	clickedItem <ViewTreeItem> item under the clickedPoint (motion action)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	88	clickedPoint <Point> point where the motion action started from.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	89	motionAction <Action> (oneArg-) action called durring buttonMotion.
2177 87bb1815460b initial checkin ca parents: diff changeset	90
87bb1815460b initial checkin ca parents: diff changeset	91
87bb1815460b initial checkin ca parents: diff changeset	92	[author:]
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	93	Claus Atzkern
2177 87bb1815460b initial checkin ca parents: diff changeset	94
87bb1815460b initial checkin ca parents: diff changeset	95	[see also:]
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	96	ViewTreeModel
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	97	ViewTreeItem
2177 87bb1815460b initial checkin ca parents: diff changeset	98	"
87bb1815460b initial checkin ca parents: diff changeset	99	! !
87bb1815460b initial checkin ca parents: diff changeset	100
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	101	!ViewTreeInspectorApplication class methodsFor:'initialization'!
2177 87bb1815460b initial checkin ca parents: diff changeset	102
87bb1815460b initial checkin ca parents: diff changeset	103	initialize
87bb1815460b initial checkin ca parents: diff changeset	104	"add myself to the launcher menu
87bb1815460b initial checkin ca parents: diff changeset	105	"
87bb1815460b initial checkin ca parents: diff changeset	106	self installInLauncher.
87bb1815460b initial checkin ca parents: diff changeset	107	!
87bb1815460b initial checkin ca parents: diff changeset	108
87bb1815460b initial checkin ca parents: diff changeset	109	installInLauncher
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	110	"add myself to the launcher menu"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	111
2177 87bb1815460b initial checkin ca parents: diff changeset	112	\|menuItem icon\|
87bb1815460b initial checkin ca parents: diff changeset	113
87bb1815460b initial checkin ca parents: diff changeset	114	NewLauncher isNil ifTrue:[^ self].
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	115	"/ cg - disabled. the icon is too ugly.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	116	^ self.
2177 87bb1815460b initial checkin ca parents: diff changeset	117
3341 2089a2debb66 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3319 diff changeset	118	"/ icon := ToolbarIconLibrary inspectLocals20x20Icon magnifiedTo:28@28.
2089a2debb66 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3319 diff changeset	119	"/
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	120	"/ menuItem := MenuItem new
3341 2089a2debb66 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3319 diff changeset	121	"/ label: 'View Tree Inspector';
2089a2debb66 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3319 diff changeset	122	"/ value: [ ViewTreeInspectorApplication open];
2089a2debb66 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3319 diff changeset	123	"/ isButton: true;
2089a2debb66 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3319 diff changeset	124	"/ icon: icon;
2089a2debb66 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3319 diff changeset	125	"/ nameKey: #viewInspect.
2089a2debb66 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3319 diff changeset	126	"/
2089a2debb66 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3319 diff changeset	127	"/ menuItem startGroup:#right.
2089a2debb66 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3319 diff changeset	128	"/ NewLauncher addMenuItem:menuItem in:'toolbar'
2089a2debb66 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3319 diff changeset	129	"/ position:#( #before #help)
2089a2debb66 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3319 diff changeset	130	"/ space:false.
2089a2debb66 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3319 diff changeset	131
2089a2debb66 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3319 diff changeset	132	"
2089a2debb66 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3319 diff changeset	133	self installInLauncher
2089a2debb66 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3319 diff changeset	134	self removeFromLauncher
2089a2debb66 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3319 diff changeset	135	"
2177 87bb1815460b initial checkin ca parents: diff changeset	136	!
87bb1815460b initial checkin ca parents: diff changeset	137
87bb1815460b initial checkin ca parents: diff changeset	138	postAutoload
87bb1815460b initial checkin ca parents: diff changeset	139	"add myself to the launcher menu
87bb1815460b initial checkin ca parents: diff changeset	140	"
87bb1815460b initial checkin ca parents: diff changeset	141	self installInLauncher.
87bb1815460b initial checkin ca parents: diff changeset	142	"
87bb1815460b initial checkin ca parents: diff changeset	143	self installInLauncher
87bb1815460b initial checkin ca parents: diff changeset	144	self removeFromLauncher
87bb1815460b initial checkin ca parents: diff changeset	145	"
87bb1815460b initial checkin ca parents: diff changeset	146	!
87bb1815460b initial checkin ca parents: diff changeset	147
87bb1815460b initial checkin ca parents: diff changeset	148	removeFromLauncher
87bb1815460b initial checkin ca parents: diff changeset	149	"remove myself from the launcher menu
87bb1815460b initial checkin ca parents: diff changeset	150	"
87bb1815460b initial checkin ca parents: diff changeset	151	NewLauncher isNil ifTrue:[^ self].
87bb1815460b initial checkin ca parents: diff changeset	152	NewLauncher removeUserTool:#viewInspect
87bb1815460b initial checkin ca parents: diff changeset	153
87bb1815460b initial checkin ca parents: diff changeset	154	"
87bb1815460b initial checkin ca parents: diff changeset	155	self installInLauncher
87bb1815460b initial checkin ca parents: diff changeset	156	self removeFromLauncher
87bb1815460b initial checkin ca parents: diff changeset	157	"
87bb1815460b initial checkin ca parents: diff changeset	158	!
87bb1815460b initial checkin ca parents: diff changeset	159
87bb1815460b initial checkin ca parents: diff changeset	160	unload
87bb1815460b initial checkin ca parents: diff changeset	161	"class is about to be unloaded - remove myself from the launcher menu
87bb1815460b initial checkin ca parents: diff changeset	162	"
87bb1815460b initial checkin ca parents: diff changeset	163	self removeFromLauncher.
87bb1815460b initial checkin ca parents: diff changeset	164	super unload.
87bb1815460b initial checkin ca parents: diff changeset	165	! !
87bb1815460b initial checkin ca parents: diff changeset	166
3070 648aad0e3777 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3049 diff changeset	167	!ViewTreeInspectorApplication class methodsFor:'help specs'!
648aad0e3777 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3049 diff changeset	168
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	169	helpSpec
3070 648aad0e3777 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3049 diff changeset	170	<resource: #help>
648aad0e3777 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3049 diff changeset	171
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	172	^super helpSpec addPairsFrom:#(
3070 648aad0e3777 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3049 diff changeset	173
3186 80a20e5881a5 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3185 diff changeset	174	#doRedraw
80a20e5881a5 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3185 diff changeset	175	'Force the application to redraw its windows'
80a20e5881a5 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3185 diff changeset	176
3070 648aad0e3777 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3049 diff changeset	177	#doUncatchEvents
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	178	'Release picked view and uncatch events\(currently locked for widget selection)'
3070 648aad0e3777 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3049 diff changeset	179
648aad0e3777 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3049 diff changeset	180	#doCatchEvents
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	181	'Lock view and catch events for widget selection\(currently unlocked)'
3070 648aad0e3777 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3049 diff changeset	182
3186 80a20e5881a5 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3185 diff changeset	183	#doInspectApplication
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	184	'Inspect the selected view''s application'
3186 80a20e5881a5 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3185 diff changeset	185
80a20e5881a5 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3185 diff changeset	186	#doBrowseApplication
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	187	'Browse the selected view''s application'
3186 80a20e5881a5 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3185 diff changeset	188
80a20e5881a5 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3185 diff changeset	189	#doPickView
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	190	'Pick a widget with the mouse and inspect its view hierarchy'
3186 80a20e5881a5 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3185 diff changeset	191
3070 648aad0e3777 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3049 diff changeset	192	)
648aad0e3777 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3049 diff changeset	193	! !
648aad0e3777 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3049 diff changeset	194
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	195	!ViewTreeInspectorApplication class methodsFor:'image specs'!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	196
2759 d9a8fc3f0dc7 added: Claus Gittinger <cg@exept.de> parents: 2758 diff changeset	197	crossHairIcon
3824 7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	198	<resource: #programImage>
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	199
3185 3592ea3afb9e class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3184 diff changeset	200	^ ToolbarIconLibrary bigCrossHairIcon
2759 d9a8fc3f0dc7 added: Claus Gittinger <cg@exept.de> parents: 2758 diff changeset	201	!
d9a8fc3f0dc7 added: Claus Gittinger <cg@exept.de> parents: 2758 diff changeset	202
3824 7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	203	defaultIcon
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	204	<resource: #programImage>
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	205
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	206	^ ToolbarIconLibrary viewInspect22x22Icon
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	207	!
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	208
3070 648aad0e3777 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3049 diff changeset	209	lockViewIcon
648aad0e3777 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3049 diff changeset	210	"This resource specification was automatically generated
648aad0e3777 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3049 diff changeset	211	by the ImageEditor of ST/X."
648aad0e3777 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3049 diff changeset	212
648aad0e3777 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3049 diff changeset	213	"Do not manually edit this!! If it is corrupted,
648aad0e3777 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3049 diff changeset	214	the ImageEditor may not be able to read the specification."
648aad0e3777 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3049 diff changeset	215
648aad0e3777 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3049 diff changeset	216	"
648aad0e3777 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3049 diff changeset	217	self lockViewIcon inspect
648aad0e3777 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3049 diff changeset	218	ImageEditor openOnClass:self andSelector:#lockViewIcon
648aad0e3777 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3049 diff changeset	219	Icon flushCachedIcons
648aad0e3777 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3049 diff changeset	220	"
648aad0e3777 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3049 diff changeset	221
648aad0e3777 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3049 diff changeset	222	<resource: #image>
648aad0e3777 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3049 diff changeset	223
648aad0e3777 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3049 diff changeset	224	^Icon
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	225	constantNamed:'Tools::ViewTreeInspectorApplication lockViewIcon'
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	226	ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3070 648aad0e3777 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3049 diff changeset	227	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
648aad0e3777 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3049 diff changeset	228	@@@@@@@@@@@@@@A8^G!!7O3ACP5*P@@A8^G @@@@@@@@@@@A8^@@@OE0/!!P0S#0@@^G @@@@@@@@@@@B (@D''D#48"1.CX5H@(J@@@@@@@@@@@@B (B(>SAT"
648aad0e3777 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3049 diff changeset	229	''%!!/P7,@(J@@@@@@@@@@@@@%IB0#M"H%IRTQV5P@IRT@@@@@@@@@@@ANSX:U]PANS$8:T80@S$8@@@@@@@@@@@AN&UYWK(EYQ@\FUPQHXT8@@@@@@@@@@@AN
648aad0e3777 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3049 diff changeset	230	HC2!!TVY:Y#-%I*IKMD8@@@@@@@@@@@A$\@83XBEG%).GGX _!!&P@@@@@@@@@@@AO[P5+ &(WPYN@["!!E\$<@@@@@@@@@@@B_F''FQPAXX_!!&TGH4HB9<@@@@@
648aad0e3777 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3049 diff changeset	231	@@@@@@B_%3HCJ7=BKPU,Q)01B9<@@@@@@@@@@@@PBP8T_F!!''JPI)_Y"D&!!@@@@@@@@@@@@@$B)I9TGXO''WQIWQ93W0@@@@@@@@@@@@@$"U=JR$)JR$)JR$)_
648aad0e3777 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3049 diff changeset	232	"P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
648aad0e3777 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3049 diff changeset	233	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[132 141 152 147 150 154 250 223 1 246 214 0 205 172 133 238 195 0 213 180 146 217 186 150 188 136 0 206 151 0 183 125 9 208 208 202 196 204 214 255 255 210 255 255 219 210 178 65 242 242 235 106 112 117 96 107 126 250 255 255 255 241 0 154 154 151 255 227 0 67 35 0 52 17 0 253 211 0 208 159 0 167 178 193 222 168 0 248 231 45 208 174 26 199 152 26 225 184 36 255 249 75 220 220 215 77 88 108 241 241 235 245 245 239 255 250 109 242 249 255 255 255 142 255 237 1 142 148 162 242 212 1 143 154 176 174 133 0 222 189 144 169 179 192 177 184 193 184 129 0 255 255 194 253 241 60 210 210 205 214 214 209 77 83 92 230 230 225 98 106 114 243 243 238 117 117 114 255 252 115 255 255 255 115 123 147 130 140 156 152 156 159 241 210 0 53 18 0 151 116 0 162 170 184 218 187 150 193 143 4 220 165 0 206 188 46 181 130 21 204 173 44 206 206 201 208 167 44 72 84 108 240 240 234 244 244 238 243 243 237 212 182 79 255 255 126 131 135 141 119 133 159 132 141 163 195 162 126 219 188 133 218 185 135 180 180 176 221 190 150 175 181 191 176 183 196 181 189 201 202 170 38 209 209 204 207 207 202 251 241 74 229 229 224 238 238 233 226 234 245 244 244 237 255 251 113 255 255 124 255 241 2 255 234 3 249 219 0 255 249 29 252 243 30 227 181 0 212 165 5 222 170 0 173 179 194 216 171 19 255 255 198 208 208 203 156 90 7 206 175 50 91 91 95 211 180 71 242 242 237 246 246 241 212 182 80 255 255 123 129 137 152 255 239 8 251 223 0 59 25 0 251 215 0 228 183 0 222 191 149 249 238 43 177 186 197 187 129 0 186 194 206 209 209 203 249 238 67 255 255 211 226 226 221 235 235 229 100 103 111 76 93 127 255 255 112 88 104 139 130 135 148 149 155 158 247 218 0 224 194 126 255 217 0 228 184 0 13 30 68 161 138 32 204 152 0 255 255 53 206 155 18 207 207 201 255 250 72 255 255 82 209 176 59 232 232 227 243 243 236 245 245 240 255 255 115 255 255 251]; mask:((Depth1Image new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@G8@@O<@@_>@@^^@@\N@@\N@@?? @?? @?? @?? @?? @?? @?? @?? @_?@@@@@@@@@@@@@@@@@@@@@') ; yourself); yourself]
648aad0e3777 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3049 diff changeset	234	!
648aad0e3777 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3049 diff changeset	235
3000 7b530cc76688 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 2978 diff changeset	236	releaseViewIcon
7b530cc76688 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 2978 diff changeset	237	"This resource specification was automatically generated
7b530cc76688 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 2978 diff changeset	238	by the ImageEditor of ST/X."
7b530cc76688 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 2978 diff changeset	239
7b530cc76688 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 2978 diff changeset	240	"Do not manually edit this!! If it is corrupted,
7b530cc76688 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 2978 diff changeset	241	the ImageEditor may not be able to read the specification."
7b530cc76688 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 2978 diff changeset	242
7b530cc76688 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 2978 diff changeset	243	"
7b530cc76688 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 2978 diff changeset	244	self releaseViewIcon inspect
7b530cc76688 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 2978 diff changeset	245	ImageEditor openOnClass:self andSelector:#releaseViewIcon
7b530cc76688 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 2978 diff changeset	246	Icon flushCachedIcons
7b530cc76688 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 2978 diff changeset	247	"
7b530cc76688 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 2978 diff changeset	248	<resource: #image>
7b530cc76688 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 2978 diff changeset	249
7b530cc76688 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 2978 diff changeset	250	^Icon
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	251	constantNamed:'Tools::ViewTreeInspectorApplication releaseViewIcon'
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	252	ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3000 7b530cc76688 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 2978 diff changeset	253	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
7b530cc76688 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 2978 diff changeset	254	@@@@@@@@@@@@@@A8^G!!7O3ACP5*P@@A8^G @@@@@@@@@@@A8^@@@OE0/!!P0S#0@@^G @@@@@@@@@@@B (@@''D#48"1.CX5H@(J@@@@@@@@@@@@B (@@@@@@"
7b530cc76688 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 2978 diff changeset	255	''%!!/P7,@(J@@@@@@@@@@@@@%I@@@@BH%IRTQV5P@IRT@@@@@@@@@@@ANSP@@@@ANS$8:T80@S$8@@@@@@@@@@@AN&UYWK(EYQ@\FUPQHXT8@@@@@@@@@@@AN
7b530cc76688 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 2978 diff changeset	256	HC2!!TVY:Y#-%I*IKMD8@@@@@@@@@@@A$\@83XBEG%).GGX _!!&P@@@@@@@@@@@AO[P5+ &(WPYN@["!!E\$<@@@@@@@@@@@B_F''FQPAXX_!!&TGH4HB9<@@@@@
7b530cc76688 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 2978 diff changeset	257	@@@@@@B_%3HCJ7=BKPU,Q)01B9<@@@@@@@@@@@@PBP8T_F!!''JPI)_Y"D&!!@@@@@@@@@@@@@$B)I9TGXO''WQIWQ93W0@@@@@@@@@@@@@$"U=JR$)JR$)JR$)_
7b530cc76688 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 2978 diff changeset	258	"P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
7b530cc76688 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 2978 diff changeset	259	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[132 141 152 147 150 154 250 223 1 246 214 0 205 172 133 238 195 0 213 180 146 217 186 150 188 136 0 206 151 0 183 125 9 208 208 202 196 204 214 255 255 210 255 255 219 210 178 65 242 242 235 106 112 117 96 107 126 250 255 255 255 241 0 154 154 151 255 227 0 67 35 0 52 17 0 253 211 0 208 159 0 167 178 193 222 168 0 248 231 45 208 174 26 199 152 26 225 184 36 255 249 75 220 220 215 77 88 108 241 241 235 245 245 239 255 250 109 242 249 255 255 255 142 255 237 1 142 148 162 242 212 1 143 154 176 174 133 0 222 189 144 169 179 192 177 184 193 184 129 0 255 255 194 253 241 60 210 210 205 214 214 209 77 83 92 230 230 225 98 106 114 243 243 238 117 117 114 255 252 115 255 255 255 115 123 147 130 140 156 152 156 159 241 210 0 53 18 0 151 116 0 162 170 184 218 187 150 193 143 4 220 165 0 206 188 46 181 130 21 204 173 44 206 206 201 208 167 44 72 84 108 240 240 234 244 244 238 243 243 237 212 182 79 255 255 126 131 135 141 119 133 159 132 141 163 195 162 126 219 188 133 218 185 135 180 180 176 221 190 150 175 181 191 176 183 196 181 189 201 202 170 38 209 209 204 207 207 202 251 241 74 229 229 224 238 238 233 226 234 245 244 244 237 255 251 113 255 255 124 255 241 2 255 234 3 249 219 0 255 249 29 252 243 30 227 181 0 212 165 5 222 170 0 173 179 194 216 171 19 255 255 198 208 208 203 156 90 7 206 175 50 91 91 95 211 180 71 242 242 237 246 246 241 212 182 80 255 255 123 129 137 152 255 239 8 251 223 0 59 25 0 251 215 0 228 183 0 222 191 149 249 238 43 177 186 197 187 129 0 186 194 206 209 209 203 249 238 67 255 255 211 226 226 221 235 235 229 100 103 111 76 93 127 255 255 112 88 104 139 130 135 148 149 155 158 247 218 0 224 194 126 255 217 0 228 184 0 13 30 68 161 138 32 204 152 0 255 255 53 206 155 18 207 207 201 255 250 72 255 255 82 209 176 59 232 232 227 243 243 236 245 245 240 255 255 115 255 255 251]; mask:((Depth1Image new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@G8@@O<@@O>@@@^@@@N@@@N@@?? @?? @?? @?? @?? @?? @?? @?? @_?@@@@@@@@@@@@@@@@@@@@@') ; yourself); yourself]
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	260	! !
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	261
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	262	!ViewTreeInspectorApplication class methodsFor:'interface specs'!
2177 87bb1815460b initial checkin ca parents: diff changeset	263
87bb1815460b initial checkin ca parents: diff changeset	264	windowSpec
87bb1815460b initial checkin ca parents: diff changeset	265	"This resource specification was automatically generated
87bb1815460b initial checkin ca parents: diff changeset	266	by the UIPainter of ST/X."
87bb1815460b initial checkin ca parents: diff changeset	267
87bb1815460b initial checkin ca parents: diff changeset	268	"Do not manually edit this!! If it is corrupted,
87bb1815460b initial checkin ca parents: diff changeset	269	the UIPainter may not be able to read the specification."
87bb1815460b initial checkin ca parents: diff changeset	270
87bb1815460b initial checkin ca parents: diff changeset	271	"
2757 6c83d6b487b2 changed: Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	272	UIPainter new openOnClass:Tools::ViewTreeInspectorApplication andSelector:#windowSpec
6c83d6b487b2 changed: Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	273	Tools::ViewTreeInspectorApplication new openInterface:#windowSpec
6c83d6b487b2 changed: Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	274	Tools::ViewTreeInspectorApplication open
2177 87bb1815460b initial checkin ca parents: diff changeset	275	"
87bb1815460b initial checkin ca parents: diff changeset	276
87bb1815460b initial checkin ca parents: diff changeset	277	<resource: #canvas>
87bb1815460b initial checkin ca parents: diff changeset	278
3824 7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	279	^
3037 876c28de42da class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3034 diff changeset	280	#(FullSpec
876c28de42da class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3034 diff changeset	281	name: windowSpec
3824 7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	282	uuid: 'aebcdd46-3384-11b2-a28b-00d861a3d4eb'
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	283	window:
3037 876c28de42da class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3034 diff changeset	284	(WindowSpec
3824 7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	285	label: 'View Tree Inspector'
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	286	name: 'View Tree Inspector'
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	287	uuid: 'aebcdfb2-3384-11b2-a28b-00d861a3d4eb'
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	288	min: (Point 10 10) max: (Point 1024 9999) bounds: (Rectangle 0 0 693 643) menu: menu
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	289	icon: defaultIcon
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	290	) component:
3037 876c28de42da class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3034 diff changeset	291	(SpecCollection
3824 7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	292	collection: (
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	293	(MenuPanelSpec
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	294	name: 'toolbarMenu'
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	295	layout: (LayoutFrame 0 0.0 0 0 0 1.0 40 0) uuid: 'aebce2fa-3384-11b2-a28b-00d861a3d4eb'
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	296	menu: toolbarMenu
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	297	textDefault: true
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	298	)
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	299	(VariableVerticalPanelSpec
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	300	name: 'VariableVerticalPanel1'
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	301	layout: (LayoutFrame 0 0.0 40 0.0 0 1.0 0 1.0) uuid: 'aebce480-3384-11b2-a28b-00d861a3d4eb'
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	302	component:
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	303	(SpecCollection
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	304	collection: (
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	305	(ViewSpec
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	306	name: 'PathAndListPane'
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	307	uuid: 'aebce5e8-3384-11b2-a28b-00d861a3d4eb'
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	308	component:
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	309	(SpecCollection
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	310	collection: (
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	311	(ViewSpec
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	312	name: 'PathPane'
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	313	layout: (LayoutFrame 0 0 0 0 0 1 25 0) uuid: 'aebce67e-3384-11b2-a28b-00d861a3d4eb'
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	314	component:
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	315	(SpecCollection
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	316	collection: (
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	317	(InputFieldSpec
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	318	name: 'Path'
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	319	layout: (LayoutFrame 0 0 0 0 0 1 0 1) uuid: 'aebce6ec-3384-11b2-a28b-00d861a3d4eb'
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	320	model: path
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	321	acceptOnReturn: true
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	322	acceptOnTab: true
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	323	acceptOnPointerLeave: true
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	324	emptyFieldReplacementText: 'No View Selected'
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	325	)
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	326	)
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	327	)
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	328	)
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	329	(HierarchicalListViewSpec
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	330	name: 'List'
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	331	layout: (LayoutFrame 0 0 25 0 0 1 0 1) uuid: 'aebce8e0-3384-11b2-a28b-00d861a3d4eb'
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	332	level: 1
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	333	model: model
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	334	menu: middleButtonMenu
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	335	hasHorizontalScrollBar: true
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	336	hasVerticalScrollBar: true
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	337	miniScrollerHorizontal: true
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	338	miniScrollerVertical: false
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	339	listModel: listOfItems
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	340	multipleSelectOk: true
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	341	useIndex: false
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	342	highlightMode: label
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	343	showLeftIndicators: false
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	344	indicatorSelector: indicatorClicked:
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	345	useDefaultIcons: false
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	346	postBuildCallback: postBuildTree:
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	347	)
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	348	)
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	349	)
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	350	)
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	351	(ViewSpec
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	352	name: 'Box2'
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	353	uuid: 'aebceb6a-3384-11b2-a28b-00d861a3d4eb'
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	354	component:
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	355	(SpecCollection
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	356	collection: (
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	357	(TabViewSpec
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	358	name: 'TabHeader1'
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	359	layout: (LayoutFrame 0 0.0 0 0 0 1.0 25 0) uuid: 'aebcebe2-3384-11b2-a28b-00d861a3d4eb'
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	360	model: inspectorModeIndexHolder
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	361	menu: inspectorModes
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	362	useIndex: true
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	363	translateLabel: true
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	364	)
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	365	(SubCanvasSpec
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	366	name: 'Browser'
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	367	layout: (LayoutFrame 0 0 26 0 0 1 0 1) uuid: 'aebced36-3384-11b2-a28b-00d861a3d4eb'
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	368	visibilityChannel: browserVisibleHolder
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	369	hasHorizontalScrollBar: true
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	370	hasVerticalScrollBar: true
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	371	majorKey: #'Tools::NewSystemBrowser'
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	372	minorKey: singleClassWithoutVariableListBrowserSpec
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	373	createNewApplication: true
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	374	createNewBuilder: true
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	375	postBuildCallback: postBuildBrowserCanvas:
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	376	)
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	377	(ViewSpec
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	378	name: 'Inspector'
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	379	layout: (LayoutFrame 0 0 26 0 0 1 0 1) uuid: 'aebceec6-3384-11b2-a28b-00d861a3d4eb'
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	380	visibilityChannel: inspectorVisibleHolder
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	381	viewClassName: 'InspectorView'
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	382	postBuildCallback: postBuildInspectorView:
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	383	)
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	384	)
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	385	)
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	386	)
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	387	)
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	388	) handles: (Any 0.5 1.0)
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	389	)
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	390	)
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	391	)
7d83538ca900 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3806 diff changeset	392	)
2177 87bb1815460b initial checkin ca parents: diff changeset	393	! !
87bb1815460b initial checkin ca parents: diff changeset	394
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	395	!ViewTreeInspectorApplication class methodsFor:'menu specs'!
2177 87bb1815460b initial checkin ca parents: diff changeset	396
87bb1815460b initial checkin ca parents: diff changeset	397	menu
87bb1815460b initial checkin ca parents: diff changeset	398	"This resource specification was automatically generated
87bb1815460b initial checkin ca parents: diff changeset	399	by the MenuEditor of ST/X."
87bb1815460b initial checkin ca parents: diff changeset	400
87bb1815460b initial checkin ca parents: diff changeset	401	"Do not manually edit this!! If it is corrupted,
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	402	the MenuEditor may not be able to read the specification."
2177 87bb1815460b initial checkin ca parents: diff changeset	403
2978 a952dfdb1b6a class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 2888 diff changeset	404
2177 87bb1815460b initial checkin ca parents: diff changeset	405	"
2978 a952dfdb1b6a class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 2888 diff changeset	406	MenuEditor new openOnClass:Tools::ViewTreeInspectorApplication andSelector:#menu
a952dfdb1b6a class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 2888 diff changeset	407	(Menu new fromLiteralArrayEncoding:(Tools::ViewTreeInspectorApplication menu)) startUp
2177 87bb1815460b initial checkin ca parents: diff changeset	408	"
87bb1815460b initial checkin ca parents: diff changeset	409
87bb1815460b initial checkin ca parents: diff changeset	410	<resource: #menu>
87bb1815460b initial checkin ca parents: diff changeset	411
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	412	^
2177 87bb1815460b initial checkin ca parents: diff changeset	413	#(Menu
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	414	(
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	415	(MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	416	label: 'File'
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	417	submenu:
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	418	(Menu
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	419	(
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	420	(MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	421	label: 'Pick a View'
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	422	itemValue: doPickView
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	423	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	424	(MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	425	enabled: hasTargetWidgetChannel
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	426	label: 'Release Picked View'
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	427	itemValue: doUnpick
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	428	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	429	(MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	430	label: '-'
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	431	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	432	(MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	433	label: 'Settings'
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	434	submenu:
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	435	(Menu
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	436	(
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	437	(MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	438	label: 'Test Mode'
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	439	hideMenuOnActivated: false
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	440	indication: testModeChannel
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	441	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	442	(MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	443	enabled: testModeChannel
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	444	label: 'Follow Focus'
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	445	hideMenuOnActivated: false
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	446	indication: followFocusChannel
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	447	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	448	(MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	449	label: '-'
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	450	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	451	(MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	452	label: 'Select on Click'
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	453	hideMenuOnActivated: false
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	454	indication: selectOnClickHolder
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	455	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	456	(MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	457	label: '-'
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	458	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	459	(MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	460	label: 'Show Name of Widgets'
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	461	hideMenuOnActivated: false
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	462	indication: showNamesHolder
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	463	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	464	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	465	nil
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	466	nil
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	467	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	468	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	469	(MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	470	label: '-'
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	471	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	472	(MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	473	label: 'Exit'
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	474	itemValue: closeRequest
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	475	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	476	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	477	nil
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	478	nil
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	479	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	480	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	481	(MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	482	enabled: hasSingleSelectionHolder
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	483	label: 'Selection'
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	484	submenuChannel: middleButtonMenu
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	485	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	486	(MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	487	label: 'Widget'
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	488	submenu:
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	489	(Menu
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	490	(
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	491	(MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	492	enabled: hasSingleSelectionHolder
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	493	label: 'Browse'
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	494	itemValue: doBrowse:
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	495	argument: view
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	496	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	497	(MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	498	enabled: hasSingleSelectionHolder
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	499	label: 'Inspect'
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	500	itemValue: doInspect:
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	501	argument: view
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	502	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	503	(MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	504	label: '-'
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	505	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	506	(MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	507	enabled: hasTargetWidgetChannel
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	508	label: 'All Components'
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	509	startGroup: right
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	510	submenuChannel: submenuComponents:
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	511	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	512	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	513	nil
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	514	nil
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	515	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	516	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	517	(MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	518	label: 'Application'
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	519	submenu:
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	520	(Menu
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	521	(
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	522	(MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	523	label: 'Redraw'
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	524	itemValue: doRedraw
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	525	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	526	(MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	527	label: '-'
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	528	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	529	(MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	530	enabled: hasSingleSelectionHolder
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	531	label: 'Browse'
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	532	itemValue: doBrowse:
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	533	argument: application
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	534	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	535	(MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	536	enabled: hasSingleSelectionHolder
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	537	label: 'Inspect'
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	538	itemValue: doInspect:
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	539	argument: application
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	540	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	541	(MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	542	label: '-'
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	543	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	544	(MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	545	enabled: canBrowseWindowSpecMethod
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	546	label: 'Browse Window Spec Method'
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	547	itemValue: doBrowseWindowSpecMethod
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	548	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	549	(MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	550	enabled: canEditWindowSpec
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	551	label: 'Edit Window Spec'
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	552	itemValue: doEditWindowSpec
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	553	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	554	(MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	555	label: '-'
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	556	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	557	(MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	558	enabled: hasTargetWidgetChannel
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	559	label: 'All Applications'
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	560	submenuChannel: submenuApplications:
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	561	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	562	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	563	nil
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	564	nil
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	565	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	566	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	567	(MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	568	label: 'Process'
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	569	submenu:
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	570	(Menu
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	571	(
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	572	(MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	573	enabled: hasSingleSelectionHolder
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	574	label: 'Debug'
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	575	itemValue: doDebugProcess
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	576	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	577	(MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	578	enabled: hasSingleSelectionHolder
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	579	label: 'Inspect'
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	580	itemValue: doInspect:
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	581	argument: process
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	582	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	583	(MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	584	label: '-'
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	585	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	586	(MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	587	label: 'Open Process Monitor'
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	588	itemValue: doOpenProcessMonitor
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	589	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	590	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	591	nil
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	592	nil
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	593	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	594	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	595	(MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	596	label: 'Help'
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	597	startGroup: conditionalRight
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	598	submenu:
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	599	(Menu
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	600	(
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	601	(MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	602	label: 'Documentation'
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	603	itemValue: openDocumentation
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	604	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	605	(MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	606	label: '-'
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	607	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	608	(MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	609	label: 'About this Application...'
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	610	itemValue: openAboutThisApplication
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	611	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	612	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	613	nil
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	614	nil
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	615	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	616	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	617	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	618	nil
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	619	nil
2177 87bb1815460b initial checkin ca parents: diff changeset	620	)
87bb1815460b initial checkin ca parents: diff changeset	621	!
87bb1815460b initial checkin ca parents: diff changeset	622
87bb1815460b initial checkin ca parents: diff changeset	623	middleButtonMenu
87bb1815460b initial checkin ca parents: diff changeset	624	"This resource specification was automatically generated
87bb1815460b initial checkin ca parents: diff changeset	625	by the MenuEditor of ST/X."
87bb1815460b initial checkin ca parents: diff changeset	626
87bb1815460b initial checkin ca parents: diff changeset	627	"Do not manually edit this!! If it is corrupted,
87bb1815460b initial checkin ca parents: diff changeset	628	the MenuEditor may not be able to read the specification."
87bb1815460b initial checkin ca parents: diff changeset	629
3213 33e1f779fa15 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3210 diff changeset	630
2177 87bb1815460b initial checkin ca parents: diff changeset	631	"
3213 33e1f779fa15 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3210 diff changeset	632	MenuEditor new openOnClass:Tools::ViewTreeInspectorApplication andSelector:#middleButtonMenu
33e1f779fa15 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3210 diff changeset	633	(Menu new fromLiteralArrayEncoding:(Tools::ViewTreeInspectorApplication middleButtonMenu)) startUp
2177 87bb1815460b initial checkin ca parents: diff changeset	634	"
87bb1815460b initial checkin ca parents: diff changeset	635
87bb1815460b initial checkin ca parents: diff changeset	636	<resource: #menu>
87bb1815460b initial checkin ca parents: diff changeset	637
3752 24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	638	^
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	639	#(Menu
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	640	(MenuItem
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	641	label: 'Browse'
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	642	nameKey: BrowseMenu
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	643	submenu:
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	644	(Menu
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	645	(MenuItem
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	646	label: 'View Class (Widget)'
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	647	itemValue: doBrowse:
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	648	argument: view
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	649	)
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	650	(MenuItem
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	651	label: 'Model Class'
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	652	itemValue: doBrowse:
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	653	isVisible: hasModel
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	654	argument: model
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	655	)
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	656	(MenuItem
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	657	label: 'Application Class'
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	658	itemValue: doBrowse:
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	659	isVisible: hasApplication
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	660	argument: application
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	661	)
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	662	(MenuItem
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	663	enabled: hasMasterApplication
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	664	label: 'Master Application Class'
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	665	itemValue: doBrowse:
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	666	isVisible: hasApplication
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	667	argument: masterApplication
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	668	)
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	669	(MenuItem
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	670	label: 'Controller Class'
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	671	itemValue: doBrowse:
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	672	isVisible: hasController
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	673	argument: controller
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	674	)
3628 dae68c3b50a6 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3574 diff changeset	675	)
3752 24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	676	)
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	677	(MenuItem
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	678	label: 'Inspect'
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	679	nameKey: InspectMenu
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	680	submenu:
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	681	(Menu
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	682	(MenuItem
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	683	label: 'View (Widget)'
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	684	itemValue: doInspect:
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	685	argument: view
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	686	)
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	687	(MenuItem
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	688	label: 'Model'
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	689	itemValue: doInspect:
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	690	isVisible: hasModel
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	691	argument: model
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	692	)
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	693	(MenuItem
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	694	label: 'Application'
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	695	itemValue: doInspect:
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	696	isVisible: hasApplication
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	697	argument: application
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	698	)
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	699	(MenuItem
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	700	enabled: hasMasterApplication
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	701	label: 'Master Application'
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	702	itemValue: doInspect:
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	703	isVisible: hasApplication
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	704	argument: masterApplication
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	705	)
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	706	(MenuItem
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	707	label: 'Window Group'
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	708	itemValue: doInspect:
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	709	argument: group
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	710	)
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	711	(MenuItem
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	712	label: 'Controller'
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	713	itemValue: doInspect:
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	714	isVisible: hasController
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	715	argument: controller
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	716	)
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	717	)
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	718	)
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	719	(MenuItem
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	720	label: '-'
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	721	)
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	722	(MenuItem
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	723	label: 'Edit Language Resources'
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	724	itemValue: doEditLanguageResources
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	725	)
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	726	(MenuItem
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	727	label: '-'
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	728	)
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	729	(MenuItem
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	730	label: 'Flash'
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	731	itemValue: doFlash
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	732	)
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	733	(MenuItem
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	734	label: '-'
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	735	)
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	736	(MenuItem
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	737	label: 'Destroy View'
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	738	itemValue: doDestroy
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	739	labelImage: (ResourceRetriever ToolbarIconLibrary erase16x16Icon 'Destroy View')
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	740	)
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	741	(MenuItem
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	742	label: '-'
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	743	)
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	744	(MenuItem
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	745	label: 'Geometry'
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	746	submenuChannel: submenuGeometry:
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	747	keepLinkedMenu: true
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	748	)
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	749	(MenuItem
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	750	label: 'Interface'
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	751	submenuChannel: submenuInterface:
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	752	keepLinkedMenu: true
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	753	)
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	754	(MenuItem
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	755	label: 'Visibility'
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	756	submenuChannel: submenuVisibility:
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	757	keepLinkedMenu: true
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	758	)
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	759	(MenuItem
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	760	label: 'Presentation'
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	761	submenuChannel: submenuPresentation:
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	762	keepLinkedMenu: true
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	763	)
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	764	(MenuItem
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	765	label: 'Instance Variables'
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	766	submenuChannel: submenuInspector:
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	767	keepLinkedMenu: true
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	768	)
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	769	(MenuItem
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	770	label: '='
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	771	)
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	772	(MenuItem
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	773	label: ''
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	774	)
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	775	(MenuItem
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	776	enabled: selectedComponentHasChildren
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	777	label: 'Applications'
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	778	nameKey: single
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	779	submenuChannel: submenuApplications:
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	780	keepLinkedMenu: true
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	781	)
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	782	(MenuItem
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	783	enabled: selectedComponentHasChildren
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	784	label: 'Components'
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	785	nameKey: single
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	786	submenuChannel: submenuComponents:
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	787	keepLinkedMenu: true
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	788	)
24695ab8fa75 #UI_ENHANCEMENT by exept Claus Gittinger <cg@exept.de> parents: 3748 diff changeset	789	)
2177 87bb1815460b initial checkin ca parents: diff changeset	790	!
87bb1815460b initial checkin ca parents: diff changeset	791
3456 4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	792	middleButtonMenuForMenuItems
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	793	"This resource specification was automatically generated
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	794	by the MenuEditor of ST/X."
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	795
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	796	"Do not manually edit this!! If it is corrupted,
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	797	the MenuEditor may not be able to read the specification."
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	798
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	799
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	800	"
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	801	MenuEditor new openOnClass:Tools::ViewTreeInspectorApplication andSelector:#middleButtonMenu
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	802	(Menu new fromLiteralArrayEncoding:(Tools::ViewTreeInspectorApplication middleButtonMenu)) startUp
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	803	"
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	804
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	805	<resource: #menu>
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	806
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	807	^
3456 4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	808	#(Menu
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	809	(
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	810	(MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	811	label: 'Browse Menu Item''s Class'
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	812	itemValue: doBrowse:
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	813	argument: menuItem
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	814	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	815	(MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	816	label: '-'
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	817	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	818	(MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	819	label: 'Inspect Menu Item'
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	820	itemValue: doInspect:
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	821	argument: menuItem
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	822	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	823	(MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	824	label: '-'
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	825	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	826	(MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	827	label: 'Interface'
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	828	submenuChannel: submenuMenuItemInterface:
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	829	keepLinkedMenu: true
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	830	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	831	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	832	nil
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	833	nil
3456 4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	834	)
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	835
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	836	"Created: / 16-08-2017 / 13:48:49 / cg"
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	837	!
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	838
2177 87bb1815460b initial checkin ca parents: diff changeset	839	toolbarMenu
87bb1815460b initial checkin ca parents: diff changeset	840	"This resource specification was automatically generated
87bb1815460b initial checkin ca parents: diff changeset	841	by the MenuEditor of ST/X."
87bb1815460b initial checkin ca parents: diff changeset	842
87bb1815460b initial checkin ca parents: diff changeset	843	"Do not manually edit this!! If it is corrupted,
87bb1815460b initial checkin ca parents: diff changeset	844	the MenuEditor may not be able to read the specification."
87bb1815460b initial checkin ca parents: diff changeset	845
2978 a952dfdb1b6a class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 2888 diff changeset	846
2177 87bb1815460b initial checkin ca parents: diff changeset	847	"
2757 6c83d6b487b2 changed: Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	848	MenuEditor new openOnClass:Tools::ViewTreeInspectorApplication andSelector:#toolbarMenu
6c83d6b487b2 changed: Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	849	(Menu new fromLiteralArrayEncoding:(Tools::ViewTreeInspectorApplication toolbarMenu)) startUp
2177 87bb1815460b initial checkin ca parents: diff changeset	850	"
87bb1815460b initial checkin ca parents: diff changeset	851
87bb1815460b initial checkin ca parents: diff changeset	852	<resource: #menu>
87bb1815460b initial checkin ca parents: diff changeset	853
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	854	^
2177 87bb1815460b initial checkin ca parents: diff changeset	855	#(Menu
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	856	(
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	857	(MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	858	enabled: hasTargetWidgetChannel
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	859	label: 'Redraw'
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	860	itemValue: doRedraw
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	861	isButton: true
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	862	labelImage: (ResourceRetriever ToolbarIconLibrary reloadIcon)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	863	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	864	(MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	865	label: '-'
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	866	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	867	(MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	868	label: 'Pick a View and Catch Events'
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	869	itemValue: doPickView
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	870	translateLabel: false
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	871	isButton: true
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	872	hideMenuOnActivated: false
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	873	labelImage: (ResourceRetriever ToolbarIconLibrary pickWindowIcon)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	874	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	875	(MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	876	enabled: hasTargetWidgetChannel
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	877	isVisible: isNotCatchingEventsChannel
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	878	label: 'Catch Events of Picked View'
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	879	activeHelpKey: doCatchEvents
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	880	itemValue: doCatchEvents
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	881	nameKey: doCatchEvents
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	882	isButton: true
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	883	labelImage: (ResourceRetriever nil releaseViewIcon)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	884	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	885	(MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	886	enabled: hasTargetWidgetChannel
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	887	isVisible: isCatchingEventsChannel
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	888	label: 'Release Picked View and Uncatch Events'
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	889	activeHelpKey: doUncatchEvents
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	890	itemValue: doUncatchEvents
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	891	nameKey: doUncatchEvents
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	892	isButton: true
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	893	labelImage: (ResourceRetriever nil lockViewIcon)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	894	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	895	(MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	896	label: '-'
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	897	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	898	(MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	899	activeHelpKey: doBrowseApplication
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	900	enabled: hasSingleSelectionHolder
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	901	label: 'Browse Application'
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	902	itemValue: doBrowse:
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	903	translateLabel: false
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	904	isButton: true
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	905	hideMenuOnActivated: false
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	906	labelImage: (ResourceRetriever ToolbarIconLibrary systemBrowser24x24Icon2)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	907	argument: application
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	908	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	909	(MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	910	activeHelpKey: doInspectApplication
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	911	enabled: hasSingleSelectionHolder
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	912	label: 'Inspect Application'
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	913	itemValue: doInspect:
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	914	translateLabel: false
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	915	isButton: true
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	916	hideMenuOnActivated: false
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	917	labelImage: (ResourceRetriever ToolbarIconLibrary inspect22x24Icon)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	918	argument: application
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	919	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	920	)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	921	nil
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	922	nil
2177 87bb1815460b initial checkin ca parents: diff changeset	923	)
87bb1815460b initial checkin ca parents: diff changeset	924	! !
87bb1815460b initial checkin ca parents: diff changeset	925
2747 717a0dcc710d added: #openInPickMode Claus Gittinger <cg@exept.de> parents: 2744 diff changeset	926	!ViewTreeInspectorApplication class methodsFor:'startup'!
717a0dcc710d added: #openInPickMode Claus Gittinger <cg@exept.de> parents: 2744 diff changeset	927
717a0dcc710d added: #openInPickMode Claus Gittinger <cg@exept.de> parents: 2744 diff changeset	928	openInPickMode
717a0dcc710d added: #openInPickMode Claus Gittinger <cg@exept.de> parents: 2744 diff changeset	929	\|app\|
717a0dcc710d added: #openInPickMode Claus Gittinger <cg@exept.de> parents: 2744 diff changeset	930
717a0dcc710d added: #openInPickMode Claus Gittinger <cg@exept.de> parents: 2744 diff changeset	931	app := self new.
717a0dcc710d added: #openInPickMode Claus Gittinger <cg@exept.de> parents: 2744 diff changeset	932	app open.
2762 0c66aa3bfdff added: Claus Gittinger <cg@exept.de> parents: 2759 diff changeset	933	app doPickView.
3124 1973e28a2c75 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3123 diff changeset	934	^ app
1973e28a2c75 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3123 diff changeset	935	!
1973e28a2c75 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3123 diff changeset	936
1973e28a2c75 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3123 diff changeset	937	openInPickModeAndRelease
1973e28a2c75 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3123 diff changeset	938	"release the pick-lock after picking"
1973e28a2c75 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3123 diff changeset	939
1973e28a2c75 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3123 diff changeset	940	\|app\|
1973e28a2c75 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3123 diff changeset	941
1973e28a2c75 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3123 diff changeset	942	app := self openInPickMode.
1973e28a2c75 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3123 diff changeset	943	app doUncatchEvents.
1973e28a2c75 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3123 diff changeset	944	^ app
3014 05208490cea6 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3000 diff changeset	945	!
05208490cea6 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3000 diff changeset	946
05208490cea6 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3000 diff changeset	947	openOn:aView
05208490cea6 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3000 diff changeset	948	"show a particular window's topView hierarchy,
05208490cea6 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3000 diff changeset	949	select the given view"
05208490cea6 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3000 diff changeset	950
05208490cea6 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3000 diff changeset	951	\|app\|
05208490cea6 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3000 diff changeset	952
05208490cea6 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3000 diff changeset	953	app := self new.
05208490cea6 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3000 diff changeset	954	app open.
05208490cea6 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3000 diff changeset	955	app showWindow:aView.
3124 1973e28a2c75 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3123 diff changeset	956	^ app
2747 717a0dcc710d added: #openInPickMode Claus Gittinger <cg@exept.de> parents: 2744 diff changeset	957	! !
717a0dcc710d added: #openInPickMode Claus Gittinger <cg@exept.de> parents: 2744 diff changeset	958
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	959	!ViewTreeInspectorApplication methodsFor:'actions'!
2177 87bb1815460b initial checkin ca parents: diff changeset	960
87bb1815460b initial checkin ca parents: diff changeset	961	indicatorClicked:anIndex
87bb1815460b initial checkin ca parents: diff changeset	962	\|item sensor\|
87bb1815460b initial checkin ca parents: diff changeset	963
87bb1815460b initial checkin ca parents: diff changeset	964	item := model listOfItems at:anIndex ifAbsent:nil.
87bb1815460b initial checkin ca parents: diff changeset	965
87bb1815460b initial checkin ca parents: diff changeset	966	item notNil ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	967	( (sensor := self window sensor) notNil
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	968	and:[(sensor ctrlDown or:[sensor shiftDown])]
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	969	) ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	970	item recursiveToggleExpand
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	971	] ifFalse:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	972	item toggleExpand
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	973	]
2177 87bb1815460b initial checkin ca parents: diff changeset	974	].
87bb1815460b initial checkin ca parents: diff changeset	975	! !
87bb1815460b initial checkin ca parents: diff changeset	976
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	977	!ViewTreeInspectorApplication methodsFor:'aspects'!
2177 87bb1815460b initial checkin ca parents: diff changeset	978
3302 413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	979	browserVisibleHolder
413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	980	"what is shown in the inspector:
413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	981	1->Widget
413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	982	2->Application
413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	983	3->WindowGroup
413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	984	4->Sensor
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	985	5->Model
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	986	6->Widget Class
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	987	7->Application Class
3302 413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	988	"
413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	989
413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	990	^ BlockValue
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	991	with:[:v \| self inspectorMode == #widgetClass or:[self inspectorMode == #applicationClass] ]
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	992	argument:self inspectorModeIndexHolder
3302 413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	993	!
413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	994
3174 cd45c49a0d63 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	995	canBrowseWindowSpecMethod
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	996	^ self hasSingleSelectionHolder value and:[ self windowSpecMethodOfSelection notNil ]
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	997	!
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	998
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	999	canEditWindowSpec
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	1000	^ self hasSingleSelectionHolder value and:[ self windowSpecMethodOfSelection notNil ]
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	1001	!
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	1002
2177 87bb1815460b initial checkin ca parents: diff changeset	1003	followFocusChannel
2455 93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1004	"boolean holder, which indicates whether selection changed dependend on the focus view"
93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1005
2177 87bb1815460b initial checkin ca parents: diff changeset	1006	^ followFocusChannel
87bb1815460b initial checkin ca parents: diff changeset	1007	!
87bb1815460b initial checkin ca parents: diff changeset	1008
87bb1815460b initial checkin ca parents: diff changeset	1009	hasSingleSelectionHolder
2455 93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1010	"boolean holder, true if one item is selected"
93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1011
2177 87bb1815460b initial checkin ca parents: diff changeset	1012	^ hasSingleSelectionHolder
87bb1815460b initial checkin ca parents: diff changeset	1013	!
87bb1815460b initial checkin ca parents: diff changeset	1014
2455 93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1015	hasTargetWidgetChannel
93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1016	"answer the channel which is set to true if a target widget exists"
93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1017
93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1018	^ model hasTargetWidgetChannel
93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1019	!
93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1020
3037 876c28de42da class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3034 diff changeset	1021	inspectorMode
3049 292d06e8b7ae class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3040 diff changeset	1022	"what is shown in the inspector:
3037 876c28de42da class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3034 diff changeset	1023	1->widget
3049 292d06e8b7ae class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3040 diff changeset	1024	2->application
292d06e8b7ae class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3040 diff changeset	1025	3->WindowGroup
292d06e8b7ae class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3040 diff changeset	1026	4->Sensor
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1027	5->Model
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1028	6->Widget Class
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1029	7->Application Class
3574 ea4dce86360d #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3573 diff changeset	1030	8 -> Resources
3049 292d06e8b7ae class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3040 diff changeset	1031	"
292d06e8b7ae class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3040 diff changeset	1032
3302 413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	1033	\|mode\|
413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	1034	mode := inspectorModeIndexHolder value.
3573 fc569c283368 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	1035	^ #( widget application group sensor model widgetClass applicationClass resources) at:mode ifAbsent:#widget
3037 876c28de42da class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3034 diff changeset	1036
876c28de42da class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3034 diff changeset	1037	"Created: / 30-07-2013 / 07:44:59 / cg"
3574 ea4dce86360d #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3573 diff changeset	1038	"Modified (comment): / 17-07-2018 / 09:27:13 / Claus Gittinger"
3037 876c28de42da class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3034 diff changeset	1039	!
876c28de42da class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3034 diff changeset	1040
876c28de42da class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3034 diff changeset	1041	inspectorModeIndexHolder
3049 292d06e8b7ae class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3040 diff changeset	1042	"what is shown in the inspector:
292d06e8b7ae class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3040 diff changeset	1043	1->Widget
292d06e8b7ae class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3040 diff changeset	1044	2->Application
292d06e8b7ae class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3040 diff changeset	1045	3->WindowGroup
292d06e8b7ae class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3040 diff changeset	1046	4->Sensor
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1047	5->Model
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1048	6->Widget Class
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1049	7->Application Class
3573 fc569c283368 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	1050	8->Resources
3049 292d06e8b7ae class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3040 diff changeset	1051	"
3037 876c28de42da class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3034 diff changeset	1052
876c28de42da class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3034 diff changeset	1053	^ inspectorModeIndexHolder
876c28de42da class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3034 diff changeset	1054
876c28de42da class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3034 diff changeset	1055	"Created: / 30-07-2013 / 07:44:07 / cg"
3573 fc569c283368 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	1056	"Modified (comment): / 17-07-2018 / 08:46:12 / Claus Gittinger"
3037 876c28de42da class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3034 diff changeset	1057	!
876c28de42da class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3034 diff changeset	1058
876c28de42da class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3034 diff changeset	1059	inspectorModes
3302 413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	1060	"/ labels of tabs
3573 fc569c283368 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	1061	^ #('Widget' 'Application' 'WindowGroup' 'Sensor' 'Model' 'Widget Class' 'App Class' 'Resources')
3037 876c28de42da class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3034 diff changeset	1062
876c28de42da class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3034 diff changeset	1063	"Created: / 30-07-2013 / 09:42:16 / cg"
3573 fc569c283368 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	1064	"Modified: / 17-07-2018 / 08:45:56 / Claus Gittinger"
3037 876c28de42da class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3034 diff changeset	1065	!
876c28de42da class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3034 diff changeset	1066
3302 413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	1067	inspectorVisibleHolder
413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	1068	"what is shown in the inspector:
413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	1069	1->Widget
413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	1070	2->Application
413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	1071	3->WindowGroup
413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	1072	4->Sensor
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1073	5->Model
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1074	6->Widget Class
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1075	7->Application Class
3302 413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	1076	"
413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	1077
413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	1078	^ BlockValue
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1079	with:[:v \| v not ]
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1080	argument:self browserVisibleHolder
3302 413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	1081	!
413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	1082
3124 1973e28a2c75 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3123 diff changeset	1083	isCatchingEventsChannel
1973e28a2c75 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3123 diff changeset	1084	^ isCatchingEventsChannel
1973e28a2c75 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3123 diff changeset	1085	!
1973e28a2c75 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3123 diff changeset	1086
1973e28a2c75 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3123 diff changeset	1087	isNotCatchingEventsChannel
1973e28a2c75 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3123 diff changeset	1088	^ BlockValue forLogicalNot:self isCatchingEventsChannel
1973e28a2c75 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3123 diff changeset	1089	!
1973e28a2c75 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3123 diff changeset	1090
2177 87bb1815460b initial checkin ca parents: diff changeset	1091	listOfItems
2455 93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1092	"returns the hierarchical list of items"
93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1093
2177 87bb1815460b initial checkin ca parents: diff changeset	1094	^ model listOfItems
87bb1815460b initial checkin ca parents: diff changeset	1095	!
87bb1815460b initial checkin ca parents: diff changeset	1096
87bb1815460b initial checkin ca parents: diff changeset	1097	model
2455 93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1098	"returns my selection model, a ViewTreeModel"
93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1099
2177 87bb1815460b initial checkin ca parents: diff changeset	1100	^ model
87bb1815460b initial checkin ca parents: diff changeset	1101	!
87bb1815460b initial checkin ca parents: diff changeset	1102
3112 80453ab62df9 Added field that shows XPath like path to selected widged. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3105 diff changeset	1103	path
80453ab62df9 Added field that shows XPath like path to selected widged. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3105 diff changeset	1104	<resource: #uiAspect>
80453ab62df9 Added field that shows XPath like path to selected widged. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3105 diff changeset	1105
80453ab62df9 Added field that shows XPath like path to selected widged. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3105 diff changeset	1106	path isNil ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1107	path := PluggableAdaptor
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1108	on: self model
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1109	getter:[ :model \| model path ]
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1110	setter:[ :model :newValue \| ]
3112 80453ab62df9 Added field that shows XPath like path to selected widged. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3105 diff changeset	1111	].
80453ab62df9 Added field that shows XPath like path to selected widged. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3105 diff changeset	1112	^ path.
80453ab62df9 Added field that shows XPath like path to selected widged. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3105 diff changeset	1113
80453ab62df9 Added field that shows XPath like path to selected widged. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3105 diff changeset	1114	"Modified: / 19-05-2014 / 18:40:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
80453ab62df9 Added field that shows XPath like path to selected widged. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3105 diff changeset	1115	!
80453ab62df9 Added field that shows XPath like path to selected widged. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3105 diff changeset	1116
2177 87bb1815460b initial checkin ca parents: diff changeset	1117	selectOnClickHolder
2455 93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1118	"boolean holder, which indicates whether the selection will change on click"
93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1119
2177 87bb1815460b initial checkin ca parents: diff changeset	1120	^ model selectOnClickHolder
87bb1815460b initial checkin ca parents: diff changeset	1121	!
87bb1815460b initial checkin ca parents: diff changeset	1122
2451 cbda60900ced * empty log message * ca parents: 2177 diff changeset	1123	showNamesHolder
cbda60900ced * empty log message * ca parents: 2177 diff changeset	1124	"boolean holder, which indicates whether application names or widget names
2455 93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1125	as additional text are shown for the items"
93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1126
2451 cbda60900ced * empty log message * ca parents: 2177 diff changeset	1127	^ showNamesHolder
cbda60900ced * empty log message * ca parents: 2177 diff changeset	1128	!
cbda60900ced * empty log message * ca parents: 2177 diff changeset	1129
2177 87bb1815460b initial checkin ca parents: diff changeset	1130	testModeChannel
2455 93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1131	"answer a boolean channel which describes the behaviour how to process
93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1132	events on the target view.
93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1133
93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1134	false: all input events are eaten and the selection is shown on the target view.
93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1135	true: no input events are eaten and no selection is shown on the target view."
93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1136
93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1137	^ model testModeChannel
3174 cd45c49a0d63 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	1138	!
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	1139
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	1140	windowSpecMethodOfSelection
3302 413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	1141	\|item view app nonMeta meta masterApp
413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	1142	spec builder specSelector implementors\|
3174 cd45c49a0d63 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	1143
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	1144	item := model selectedItem.
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1145	item isNil ifTrue:[^ nil].
3174 cd45c49a0d63 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	1146
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	1147	view := item widget.
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1148	view isNil ifTrue:[^ nil].
3174 cd45c49a0d63 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	1149
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	1150	app := view application.
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1151	app isNil ifTrue:[^ nil].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1152
3174 cd45c49a0d63 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	1153	builder := app builder.
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1154	builder isNil ifTrue:[^ nil].
3174 cd45c49a0d63 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	1155
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	1156	spec := builder spec.
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	1157	spec isNil ifTrue:[^ nil].
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	1158
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	1159	specSelector := spec name.
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	1160	specSelector isNil ifTrue:[^ nil].
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	1161
3302 413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	1162	((nonMeta := app class theNonMetaclass) canUnderstand:specSelector) ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1163	^ nonMeta lookupMethodFor:specSelector.
3174 cd45c49a0d63 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	1164	].
3302 413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	1165	((meta := app class theMetaclass) canUnderstand:specSelector) ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1166	^ meta lookupMethodFor:specSelector.
3174 cd45c49a0d63 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	1167	].
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	1168
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	1169	"/ maybe a simple dialog given a spec
3302 413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	1170	(masterApp := app masterApplication) notNil ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1171	((nonMeta := masterApp class theNonMetaclass) canUnderstand:specSelector) ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1172	^ nonMeta lookupMethodFor:specSelector.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1173	].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1174	((meta := masterApp class theMetaclass) canUnderstand:specSelector) ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1175	^ meta lookupMethodFor:specSelector.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1176	].
3174 cd45c49a0d63 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	1177	].
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	1178
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	1179	implementors := Smalltalk allImplementorsOf: specSelector.
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	1180	implementors size == 1 ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1181	^ implementors first compiledMethodAt:specSelector.
3174 cd45c49a0d63 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	1182	].
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	1183
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	1184	^ nil
2177 87bb1815460b initial checkin ca parents: diff changeset	1185	! !
87bb1815460b initial checkin ca parents: diff changeset	1186
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	1187	!ViewTreeInspectorApplication methodsFor:'change & update'!
2177 87bb1815460b initial checkin ca parents: diff changeset	1188
3037 876c28de42da class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3034 diff changeset	1189	inspectorModeIndexHolderChanged
876c28de42da class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3034 diff changeset	1190	self updateInspector
876c28de42da class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3034 diff changeset	1191
876c28de42da class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3034 diff changeset	1192	"Created: / 30-07-2013 / 09:21:51 / cg"
876c28de42da class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3034 diff changeset	1193	!
876c28de42da class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3034 diff changeset	1194
2177 87bb1815460b initial checkin ca parents: diff changeset	1195	selectionChanged
87bb1815460b initial checkin ca parents: diff changeset	1196	\|info view item\|
87bb1815460b initial checkin ca parents: diff changeset	1197
87bb1815460b initial checkin ca parents: diff changeset	1198	item := model selectedItem.
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1199	item notNil ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1200	\|state\|
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1201
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1202	view := item widget.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1203	view isNil ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1204	info := '%1 [%2]' bindWith:(item menuItem label asString)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1205	with:(item menuItem value asString).
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1206	] ifFalse:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1207	view id isNil ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1208	state := 'no ID'.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1209	] ifFalse:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1210	view shown ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1211	state := 'visible'.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1212	] ifFalse:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1213	state := 'invisible'
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1214	].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1215	].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1216	info := '%1 [%2] - %3' bindWith:(view class name)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1217	with:(view name ? '') with:state allBold.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1218	]
2177 87bb1815460b initial checkin ca parents: diff changeset	1219	] ifFalse:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1220	info := ''
2177 87bb1815460b initial checkin ca parents: diff changeset	1221	].
87bb1815460b initial checkin ca parents: diff changeset	1222	hasSingleSelectionHolder value:(view notNil).
3037 876c28de42da class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3034 diff changeset	1223	self updateInspector
876c28de42da class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3034 diff changeset	1224
3456 4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	1225	"Modified: / 16-08-2017 / 13:44:59 / cg"
2177 87bb1815460b initial checkin ca parents: diff changeset	1226	!
87bb1815460b initial checkin ca parents: diff changeset	1227
87bb1815460b initial checkin ca parents: diff changeset	1228	update:something with:someArgument from:aModel
2454 4867f3e9dd43 * empty log message * ca parents: 2451 diff changeset	1229	\|oldSelection\|
4867f3e9dd43 * empty log message * ca parents: 2451 diff changeset	1230
2451 cbda60900ced * empty log message * ca parents: 2177 diff changeset	1231	aModel == showNamesHolder ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1232	oldSelection := model selectedItem.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1233	model selectedItem:nil.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1234	self listOfItems showWidgetNames:(aModel value).
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1235	model selectedItem:oldSelection.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1236	^ self
2451 cbda60900ced * empty log message * ca parents: 2177 diff changeset	1237	].
2458 64d8f3c973b3 * empty log message * ca parents: 2455 diff changeset	1238
64d8f3c973b3 * empty log message * ca parents: 2455 diff changeset	1239	aModel == model ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1240	self selectionChanged.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1241	^ self
2458 64d8f3c973b3 * empty log message * ca parents: 2455 diff changeset	1242	].
64d8f3c973b3 * empty log message * ca parents: 2455 diff changeset	1243
2177 87bb1815460b initial checkin ca parents: diff changeset	1244	super update:something with:someArgument from:aModel.
3037 876c28de42da class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3034 diff changeset	1245	!
876c28de42da class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3034 diff changeset	1246
3302 413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	1247	updateBrowser
413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	1248	\|cls widget\|
413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	1249
413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	1250	widget := self selectedView.
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1251
3302 413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	1252	"/ update the browser
413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	1253	self inspectorMode == #widgetClass ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1254	cls := widget class.
3302 413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	1255	] ifFalse:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1256	cls := widget application class
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1257	].
3302 413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	1258	browser switchToClass:cls selector:nil.
413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	1259	!
413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	1260
3037 876c28de42da class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3034 diff changeset	1261	updateInspector
3302 413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	1262	\|view mode obj\|
3037 876c28de42da class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3034 diff changeset	1263
876c28de42da class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3034 diff changeset	1264	view := self selectedView.
3302 413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	1265	mode := self inspectorMode.
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1266
3302 413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	1267	((mode == #widgetClass) or:[(mode == #applicationClass)]) ifTrue:[
3573 fc569c283368 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	1268	"/ update the browser
fc569c283368 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	1269	view notNil ifTrue:[
fc569c283368 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	1270	self updateBrowser.
fc569c283368 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	1271	].
fc569c283368 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	1272	^ self.
3302 413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	1273	].
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1274
3302 413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	1275	(view isNil or:[mode == #widget]) ifTrue:[
3573 fc569c283368 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	1276	obj := view.
3302 413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	1277	] ifFalse:[ (mode == #group) ifTrue:[
3573 fc569c283368 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	1278	obj := view windowGroup
3302 413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	1279	] ifFalse:[ (mode == #sensor) ifTrue:[
3573 fc569c283368 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	1280	obj := view sensor
3302 413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	1281	] ifFalse:[ (mode == #model) ifTrue:[
3573 fc569c283368 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	1282	obj := view model
fc569c283368 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	1283	] ifFalse:[ (mode == #resources) ifTrue:[
fc569c283368 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	1284	obj := view resources
3037 876c28de42da class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3034 diff changeset	1285	] ifFalse:[
3573 fc569c283368 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	1286	obj := view application.
fc569c283368 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	1287	]]]]].
3037 876c28de42da class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3034 diff changeset	1288	inspectorView inspect:obj.
876c28de42da class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3034 diff changeset	1289	inspectorView headLineLabel:(obj class nameWithoutPrefix)
876c28de42da class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3034 diff changeset	1290
876c28de42da class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3034 diff changeset	1291	"Created: / 30-07-2013 / 09:21:16 / cg"
3573 fc569c283368 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3568 diff changeset	1292	"Modified: / 17-07-2018 / 08:46:40 / Claus Gittinger"
2177 87bb1815460b initial checkin ca parents: diff changeset	1293	! !
87bb1815460b initial checkin ca parents: diff changeset	1294
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	1295	!ViewTreeInspectorApplication methodsFor:'event processing'!
2177 87bb1815460b initial checkin ca parents: diff changeset	1296
87bb1815460b initial checkin ca parents: diff changeset	1297	processButtonMotionEvent:ev
2455 93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1298	\|click rootView\|
93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1299
93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1300	motionAction isNil ifTrue:[^ self].
2177 87bb1815460b initial checkin ca parents: diff changeset	1301
2455 93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1302	(rootView := model rootView) isNil ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1303	clickedItem := motionAction := nil.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1304	^ self
2455 93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1305	].
2177 87bb1815460b initial checkin ca parents: diff changeset	1306
2455 93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1307	click := rootView device
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1308	translatePoint:((ev x)@ (ev y))
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1309	fromView:(ev view)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1310	toView:rootView.
2455 93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1311
93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1312	click = clickedPoint ifFalse:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1313	(clickedItem isNil or:[(click dist:clickedPoint) > 5.0]) ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1314	motionAction value:click
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1315	]
2177 87bb1815460b initial checkin ca parents: diff changeset	1316	].
87bb1815460b initial checkin ca parents: diff changeset	1317	!
87bb1815460b initial checkin ca parents: diff changeset	1318
87bb1815460b initial checkin ca parents: diff changeset	1319	processButtonPressEvent:ev
2455 93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1320	\|rootView sensor lastRectangle\|
93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1321
93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1322	rootView := model rootView.
2177 87bb1815460b initial checkin ca parents: diff changeset	1323	sensor := model rootView sensor.
87bb1815460b initial checkin ca parents: diff changeset	1324	clickedItem := model listOfItems detectItemRespondsToView:(ev view).
87bb1815460b initial checkin ca parents: diff changeset	1325
87bb1815460b initial checkin ca parents: diff changeset	1326	(sensor ctrlDown or:[sensor shiftDown]) ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1327	clickedItem notNil ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1328	self selectOnClickHolder value ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1329	model toggleSelectItem:clickedItem
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1330	].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1331	].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1332	clickedItem := motionAction := nil.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1333	^ self
2455 93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1334	].
2177 87bb1815460b initial checkin ca parents: diff changeset	1335
2455 93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1336	clickedPoint := rootView device translatePoint:((ev x)@ (ev y)) fromView:(ev view) toView:rootView.
93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1337	lastRectangle := nil.
2177 87bb1815460b initial checkin ca parents: diff changeset	1338
2455 93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1339	motionAction :=[:p\|
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1340	rootView := model rootView device rootView.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1341	rootView := model rootView.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1342	clickedItem := nil.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1343
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1344	rootView xoring:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1345	lastRectangle notNil ifTrue:[ rootView displayRectangle:lastRectangle ]
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1346	ifFalse:[ rootView clippedByChildren:false ].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1347
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1348	p isNil ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1349	rootView clippedByChildren:true.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1350	motionAction := nil.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1351	] ifFalse:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1352	lastRectangle := Rectangle origin:(clickedPoint min:p) corner:(clickedPoint max:p).
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1353	rootView displayRectangle:lastRectangle.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1354	].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1355	rootView flush.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1356	].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1357	lastRectangle
2455 93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1358	].
2177 87bb1815460b initial checkin ca parents: diff changeset	1359	!
87bb1815460b initial checkin ca parents: diff changeset	1360
87bb1815460b initial checkin ca parents: diff changeset	1361	processButtonReleaseEvent:anEvent
87bb1815460b initial checkin ca parents: diff changeset	1362	\|rootView rectangle newItems widget origin\|
87bb1815460b initial checkin ca parents: diff changeset	1363
2455 93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1364	(rootView := model rootView) isNil ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1365	clickedItem := motionAction := nil.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1366	^ self
2455 93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1367	].
2177 87bb1815460b initial checkin ca parents: diff changeset	1368	motionAction isNil ifTrue:[ ^ self ].
87bb1815460b initial checkin ca parents: diff changeset	1369	clickedItem notNil ifTrue:[ ^ model selectItem:clickedItem ].
87bb1815460b initial checkin ca parents: diff changeset	1370
2455 93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1371	rectangle := motionAction value:nil.
93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1372	rectangle isNil ifTrue:[^ self].
93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1373
93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1374	newItems := OrderedCollection new.
2177 87bb1815460b initial checkin ca parents: diff changeset	1375
2455 93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1376	model rootItem recursiveDo:[:anItem\|
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1377	widget := anItem widget.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1378	widget notNil ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1379	origin := widget originRelativeTo:rootView.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1380
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1381	(rectangle containsRect:(Rectangle origin:origin extent:(widget extent))) ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1382	newItems add:anItem.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1383	]
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1384	].
2177 87bb1815460b initial checkin ca parents: diff changeset	1385	].
2455 93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1386	model value:newItems.
3500 51cbdcf5b2cb #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 3457 diff changeset	1387
51cbdcf5b2cb #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 3457 diff changeset	1388	"Modified: / 11-11-2017 / 17:24:59 / cg"
2177 87bb1815460b initial checkin ca parents: diff changeset	1389	!
87bb1815460b initial checkin ca parents: diff changeset	1390
87bb1815460b initial checkin ca parents: diff changeset	1391	processEvent:anEvent
87bb1815460b initial checkin ca parents: diff changeset	1392	\|button menu\|
87bb1815460b initial checkin ca parents: diff changeset	1393
2758 c61fe917957a comment/format in:8 methods Claus Gittinger <cg@exept.de> parents: 2757 diff changeset	1394	anEvent isKeyPressEvent ifTrue:[ self processKeyPressEvent:anEvent. ^ self ].
2177 87bb1815460b initial checkin ca parents: diff changeset	1395	anEvent isButtonEvent ifFalse:[ ^ self ].
87bb1815460b initial checkin ca parents: diff changeset	1396
87bb1815460b initial checkin ca parents: diff changeset	1397	button := anEvent button.
87bb1815460b initial checkin ca parents: diff changeset	1398
87bb1815460b initial checkin ca parents: diff changeset	1399	(button == 2 or:[button == #menu]) ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1400	motionAction isNil ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1401	anEvent isButtonPressEvent ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1402	self selectOnClickHolder value ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1403	menu := self middleButtonMenu value.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1404	menu notNil ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1405	menu := MenuPanel
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1406	menu:(Menu new fromLiteralArrayEncoding:menu)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1407	receiver:self.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1408	menu startUp.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1409	]
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1410	].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1411	].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1412	clickedItem := nil.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1413	].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1414	^ self
2177 87bb1815460b initial checkin ca parents: diff changeset	1415	].
87bb1815460b initial checkin ca parents: diff changeset	1416
2758 c61fe917957a comment/format in:8 methods Claus Gittinger <cg@exept.de> parents: 2757 diff changeset	1417	anEvent isButtonPressEvent ifTrue:[ self processButtonPressEvent:anEvent. ^ self ].
c61fe917957a comment/format in:8 methods Claus Gittinger <cg@exept.de> parents: 2757 diff changeset	1418	anEvent isButtonMotionEvent ifTrue:[ self processButtonMotionEvent:anEvent. ^ self ].
2177 87bb1815460b initial checkin ca parents: diff changeset	1419
87bb1815460b initial checkin ca parents: diff changeset	1420	anEvent isButtonReleaseEvent ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1421	self selectOnClickHolder value ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1422	self processButtonReleaseEvent:anEvent
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1423	].
2177 87bb1815460b initial checkin ca parents: diff changeset	1424	].
87bb1815460b initial checkin ca parents: diff changeset	1425	clickedItem := motionAction := nil.
87bb1815460b initial checkin ca parents: diff changeset	1426
87bb1815460b initial checkin ca parents: diff changeset	1427	anEvent type == #'buttonMultiPress:x:y:' ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1428	self selectOnClickHolder value ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1429	self doInspect:#view.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1430	].
2177 87bb1815460b initial checkin ca parents: diff changeset	1431	].
87bb1815460b initial checkin ca parents: diff changeset	1432	!
87bb1815460b initial checkin ca parents: diff changeset	1433
87bb1815460b initial checkin ca parents: diff changeset	1434	processKeyPressEvent:anEvent
87bb1815460b initial checkin ca parents: diff changeset	1435	\|item prnt idx key max next\|
87bb1815460b initial checkin ca parents: diff changeset	1436
87bb1815460b initial checkin ca parents: diff changeset	1437	key := anEvent key.
87bb1815460b initial checkin ca parents: diff changeset	1438	key isSymbol ifFalse:[^ self].
87bb1815460b initial checkin ca parents: diff changeset	1439
87bb1815460b initial checkin ca parents: diff changeset	1440	key == #Delete ifTrue:[ ^ self doDestroy ].
87bb1815460b initial checkin ca parents: diff changeset	1441	key == #InspectIt ifTrue:[ ^ self doInspect:#view ].
87bb1815460b initial checkin ca parents: diff changeset	1442
87bb1815460b initial checkin ca parents: diff changeset	1443	( key == #CursorUp
87bb1815460b initial checkin ca parents: diff changeset	1444	or:[key == #CursorDown
87bb1815460b initial checkin ca parents: diff changeset	1445	or:[key == #CursorLeft
87bb1815460b initial checkin ca parents: diff changeset	1446	or:[key == #CursorRight]]]
87bb1815460b initial checkin ca parents: diff changeset	1447	) ifFalse:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1448	^ self
2177 87bb1815460b initial checkin ca parents: diff changeset	1449	].
87bb1815460b initial checkin ca parents: diff changeset	1450	item := model selectedItem.
87bb1815460b initial checkin ca parents: diff changeset	1451
87bb1815460b initial checkin ca parents: diff changeset	1452	item isNil ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1453	^ model selectedItem:(model first ? model rootItem)
2177 87bb1815460b initial checkin ca parents: diff changeset	1454	].
87bb1815460b initial checkin ca parents: diff changeset	1455
87bb1815460b initial checkin ca parents: diff changeset	1456	prnt := item parent.
87bb1815460b initial checkin ca parents: diff changeset	1457	prnt isNil ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1458	"/ is the root item
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1459	(key == #CursorUp or:[key == #CursorLeft]) ifTrue:[item := model listOfItems last]
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1460	ifFalse:[item := item at:1 ifAbsent:item].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1461
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1462	^ model selectedItem:item
2177 87bb1815460b initial checkin ca parents: diff changeset	1463	].
87bb1815460b initial checkin ca parents: diff changeset	1464	key == #CursorLeft ifTrue:[ ^ model selectedItem:prnt ].
87bb1815460b initial checkin ca parents: diff changeset	1465
87bb1815460b initial checkin ca parents: diff changeset	1466	key == #CursorRight ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1467	next := item at:1 ifAbsent:nil.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1468	next notNil ifTrue:[ model selectedItem:next ].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1469	^ self
2177 87bb1815460b initial checkin ca parents: diff changeset	1470	].
87bb1815460b initial checkin ca parents: diff changeset	1471
87bb1815460b initial checkin ca parents: diff changeset	1472	max := prnt size.
87bb1815460b initial checkin ca parents: diff changeset	1473
87bb1815460b initial checkin ca parents: diff changeset	1474	key == #CursorUp ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1475	idx := prnt identityIndexOf:item.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1476	idx == 1 ifTrue:[idx := max + 1].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1477	model selectedItem:(prnt at:idx - 1).
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1478	^ self.
2177 87bb1815460b initial checkin ca parents: diff changeset	1479	].
87bb1815460b initial checkin ca parents: diff changeset	1480
87bb1815460b initial checkin ca parents: diff changeset	1481	key == #CursorDown ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1482	idx := prnt identityIndexOf:item.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1483	idx == max ifTrue:[idx := 0].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1484	model selectedItem:(prnt at:idx + 1).
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1485	^ self.
2177 87bb1815460b initial checkin ca parents: diff changeset	1486	].
87bb1815460b initial checkin ca parents: diff changeset	1487	!
87bb1815460b initial checkin ca parents: diff changeset	1488
87bb1815460b initial checkin ca parents: diff changeset	1489	processMappedView:aView
87bb1815460b initial checkin ca parents: diff changeset	1490	\|parent anchor\|
87bb1815460b initial checkin ca parents: diff changeset	1491
87bb1815460b initial checkin ca parents: diff changeset	1492	parent := self listOfItems detectItemRespondsToView:aView.
87bb1815460b initial checkin ca parents: diff changeset	1493	parent isNil ifTrue:[ ^ self ].
87bb1815460b initial checkin ca parents: diff changeset	1494
87bb1815460b initial checkin ca parents: diff changeset	1495	NotFoundSignal handle:[:ex\|
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1496	"contained subvies used by spec are not yet created;
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1497	thus we have to wait until last used subview is build
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1498	"
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1499	anchor := nil.
2177 87bb1815460b initial checkin ca parents: diff changeset	1500	] do:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1501	anchor := parent class buildViewsFrom:(parent widget).
2177 87bb1815460b initial checkin ca parents: diff changeset	1502	].
87bb1815460b initial checkin ca parents: diff changeset	1503	anchor notNil ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1504	parent updateFromChildren:anchor children.
2177 87bb1815460b initial checkin ca parents: diff changeset	1505	].
87bb1815460b initial checkin ca parents: diff changeset	1506	! !
87bb1815460b initial checkin ca parents: diff changeset	1507
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	1508	!ViewTreeInspectorApplication methodsFor:'initialization & release'!
2177 87bb1815460b initial checkin ca parents: diff changeset	1509
87bb1815460b initial checkin ca parents: diff changeset	1510	closeDownViews
2455 93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1511	"release the grapped application"
93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1512
2177 87bb1815460b initial checkin ca parents: diff changeset	1513	process := nil.
87bb1815460b initial checkin ca parents: diff changeset	1514	super closeDownViews.
87bb1815460b initial checkin ca parents: diff changeset	1515	self doUnpick.
87bb1815460b initial checkin ca parents: diff changeset	1516	!
87bb1815460b initial checkin ca parents: diff changeset	1517
87bb1815460b initial checkin ca parents: diff changeset	1518	initialize
2455 93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1519	"setup my model and channels"
93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1520
2177 87bb1815460b initial checkin ca parents: diff changeset	1521	super initialize.
87bb1815460b initial checkin ca parents: diff changeset	1522
87bb1815460b initial checkin ca parents: diff changeset	1523	hasSingleSelectionHolder := false asValue.
87bb1815460b initial checkin ca parents: diff changeset	1524	followFocusChannel := false asValue.
3124 1973e28a2c75 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3123 diff changeset	1525	isCatchingEventsChannel := false asValue.
3037 876c28de42da class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3034 diff changeset	1526	inspectorModeIndexHolder := 1 asValue.
876c28de42da class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3034 diff changeset	1527	inspectorModeIndexHolder onChangeSend:#inspectorModeIndexHolderChanged to:self.
2177 87bb1815460b initial checkin ca parents: diff changeset	1528
87bb1815460b initial checkin ca parents: diff changeset	1529	model := ViewTreeModel new.
87bb1815460b initial checkin ca parents: diff changeset	1530	model inputEventAction:[:ev\| self processEvent:ev ].
87bb1815460b initial checkin ca parents: diff changeset	1531	model mappedViewAction:[:vw\| self processMappedView:vw ].
87bb1815460b initial checkin ca parents: diff changeset	1532	model application:self.
2458 64d8f3c973b3 * empty log message * ca parents: 2455 diff changeset	1533	model addDependent:self.
64d8f3c973b3 * empty log message * ca parents: 2455 diff changeset	1534
2177 87bb1815460b initial checkin ca parents: diff changeset	1535
2451 cbda60900ced * empty log message * ca parents: 2177 diff changeset	1536	showNamesHolder := false asValue.
cbda60900ced * empty log message * ca parents: 2177 diff changeset	1537	showNamesHolder addDependent:self.
3037 876c28de42da class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3034 diff changeset	1538
876c28de42da class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3034 diff changeset	1539	"Modified: / 30-07-2013 / 09:20:08 / cg"
2177 87bb1815460b initial checkin ca parents: diff changeset	1540	!
87bb1815460b initial checkin ca parents: diff changeset	1541
3302 413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	1542	postBuildBrowserCanvas:aSubCanvas
413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	1543	browser := aSubCanvas application.
413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	1544
413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	1545	"/ browser navigationState meta onChangeEvaluate:(self updateBrowser).
413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	1546	"/ self updateBrowser.
413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	1547	!
413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	1548
2770 9322aee00ea0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2762 diff changeset	1549	postBuildInspectorView:anInspector
9322aee00ea0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2762 diff changeset	1550	inspectorView := anInspector.
9322aee00ea0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2762 diff changeset	1551	!
9322aee00ea0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2762 diff changeset	1552
2177 87bb1815460b initial checkin ca parents: diff changeset	1553	postBuildTree:aTree
87bb1815460b initial checkin ca parents: diff changeset	1554	treeView := aTree scrolledView.
3105 b33e0b8e6038 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3104 diff changeset	1555	"/ treeView hasConstantHeight:true.
3104 59230707e466 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3079 diff changeset	1556	!
59230707e466 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3079 diff changeset	1557
59230707e466 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3079 diff changeset	1558	release
59230707e466 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3079 diff changeset	1559	"release the grapped application"
59230707e466 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3079 diff changeset	1560
59230707e466 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3079 diff changeset	1561	super release.
59230707e466 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3079 diff changeset	1562	self doUnpick.
2177 87bb1815460b initial checkin ca parents: diff changeset	1563	! !
87bb1815460b initial checkin ca parents: diff changeset	1564
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	1565	!ViewTreeInspectorApplication methodsFor:'menu queries'!
2177 87bb1815460b initial checkin ca parents: diff changeset	1566
87bb1815460b initial checkin ca parents: diff changeset	1567	hasApplication
2455 93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1568	"returns true if the current selected view has an application"
93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1569
2177 87bb1815460b initial checkin ca parents: diff changeset	1570	\|view\|
87bb1815460b initial checkin ca parents: diff changeset	1571
87bb1815460b initial checkin ca parents: diff changeset	1572	view := self selectedView.
3628 dae68c3b50a6 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3574 diff changeset	1573	^ (view notNil and:[view application notNil])
dae68c3b50a6 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3574 diff changeset	1574
dae68c3b50a6 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3574 diff changeset	1575	"Modified (format): / 30-10-2018 / 16:20:26 / Claus Gittinger"
2177 87bb1815460b initial checkin ca parents: diff changeset	1576	!
87bb1815460b initial checkin ca parents: diff changeset	1577
87bb1815460b initial checkin ca parents: diff changeset	1578	hasController
87bb1815460b initial checkin ca parents: diff changeset	1579	"returns true if the current selected item's view has a controller
2455 93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1580	other than nil or the view itself"
93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1581
2177 87bb1815460b initial checkin ca parents: diff changeset	1582	\|view controller\|
87bb1815460b initial checkin ca parents: diff changeset	1583
87bb1815460b initial checkin ca parents: diff changeset	1584	view := self selectedView.
87bb1815460b initial checkin ca parents: diff changeset	1585
87bb1815460b initial checkin ca parents: diff changeset	1586	view notNil ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1587	controller := view controller.
2177 87bb1815460b initial checkin ca parents: diff changeset	1588	^ (controller notNil and:[controller ~~ view])
87bb1815460b initial checkin ca parents: diff changeset	1589	].
87bb1815460b initial checkin ca parents: diff changeset	1590	^ false
87bb1815460b initial checkin ca parents: diff changeset	1591	!
87bb1815460b initial checkin ca parents: diff changeset	1592
3628 dae68c3b50a6 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3574 diff changeset	1593	hasMasterApplication
dae68c3b50a6 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3574 diff changeset	1594	"returns true if the current selected view has an application"
dae68c3b50a6 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3574 diff changeset	1595
dae68c3b50a6 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3574 diff changeset	1596	\|view\|
dae68c3b50a6 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3574 diff changeset	1597
dae68c3b50a6 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3574 diff changeset	1598	view := self selectedView.
dae68c3b50a6 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3574 diff changeset	1599	^ (view notNil
dae68c3b50a6 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3574 diff changeset	1600	and:[view application notNil
dae68c3b50a6 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3574 diff changeset	1601	and:[view application masterApplication notNil]])
dae68c3b50a6 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3574 diff changeset	1602
dae68c3b50a6 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3574 diff changeset	1603	"Created: / 30-10-2018 / 16:20:23 / Claus Gittinger"
dae68c3b50a6 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3574 diff changeset	1604	!
dae68c3b50a6 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3574 diff changeset	1605
2177 87bb1815460b initial checkin ca parents: diff changeset	1606	hasModel
2455 93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1607	"returns true if the current selected view has a model"
93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1608
2177 87bb1815460b initial checkin ca parents: diff changeset	1609	\|view\|
87bb1815460b initial checkin ca parents: diff changeset	1610
87bb1815460b initial checkin ca parents: diff changeset	1611	view := self selectedView.
87bb1815460b initial checkin ca parents: diff changeset	1612	^ (view notNil and:[view model notNil])
87bb1815460b initial checkin ca parents: diff changeset	1613	! !
87bb1815460b initial checkin ca parents: diff changeset	1614
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	1615	!ViewTreeInspectorApplication methodsFor:'menu specs'!
2177 87bb1815460b initial checkin ca parents: diff changeset	1616
87bb1815460b initial checkin ca parents: diff changeset	1617	middleButtonMenu
3551 94a23bbd725b #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 3532 diff changeset	1618	"returns the middleButton menu for the single selected view tree item or nil"
2455 93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1619
3660 4b4a427f8976 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3658 diff changeset	1620	<resource: #programMenu >
4b4a427f8976 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3658 diff changeset	1621
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1622	^ [
3551 94a23bbd725b #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 3532 diff changeset	1623	\|viewTreeItem\|
94a23bbd725b #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 3532 diff changeset	1624
94a23bbd725b #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 3532 diff changeset	1625	(viewTreeItem := model selectedItem) notNil ifTrue:[
94a23bbd725b #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 3532 diff changeset	1626	viewTreeItem isView ifTrue:[
94a23bbd725b #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 3532 diff changeset	1627	self class middleButtonMenu
94a23bbd725b #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 3532 diff changeset	1628	] ifFalse:[
94a23bbd725b #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 3532 diff changeset	1629	self class middleButtonMenuForMenuItems
94a23bbd725b #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 3532 diff changeset	1630	].
94a23bbd725b #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 3532 diff changeset	1631	] ifFalse:[
94a23bbd725b #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 3532 diff changeset	1632	nil
94a23bbd725b #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 3532 diff changeset	1633	]
2177 87bb1815460b initial checkin ca parents: diff changeset	1634	]
3456 4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	1635
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	1636	"Modified: / 16-08-2017 / 13:48:31 / cg"
3660 4b4a427f8976 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3658 diff changeset	1637	"Modified: / 02-05-2019 / 22:39:49 / Claus Gittinger"
2177 87bb1815460b initial checkin ca parents: diff changeset	1638	!
87bb1815460b initial checkin ca parents: diff changeset	1639
87bb1815460b initial checkin ca parents: diff changeset	1640	submenuApplications:aMenu
87bb1815460b initial checkin ca parents: diff changeset	1641	\|applications menu item list addBlock\|
87bb1815460b initial checkin ca parents: diff changeset	1642
87bb1815460b initial checkin ca parents: diff changeset	1643	item := aMenu selection nameKey == #single ifTrue:[model selectedItem]
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1644	ifFalse:[model rootItem].
2177 87bb1815460b initial checkin ca parents: diff changeset	1645	item isNil ifTrue:[^ nil].
87bb1815460b initial checkin ca parents: diff changeset	1646
87bb1815460b initial checkin ca parents: diff changeset	1647	applications := IdentityDictionary new.
87bb1815460b initial checkin ca parents: diff changeset	1648
87bb1815460b initial checkin ca parents: diff changeset	1649	addBlock := [:el\| \|cls ctr\|
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1650	cls := self resolveApplicationClassFor:el.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1651
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1652	cls notNil ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1653	ctr := applications at:cls ifAbsent:0.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1654	applications at:cls put:(ctr + 1).
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1655	].
2177 87bb1815460b initial checkin ca parents: diff changeset	1656	].
87bb1815460b initial checkin ca parents: diff changeset	1657	item recursiveDo:addBlock.
87bb1815460b initial checkin ca parents: diff changeset	1658	addBlock value:item.
87bb1815460b initial checkin ca parents: diff changeset	1659
87bb1815460b initial checkin ca parents: diff changeset	1660	applications isEmpty ifTrue:[^ nil ].
87bb1815460b initial checkin ca parents: diff changeset	1661	list := SortedCollection sortBlock:[:a :b\| a title < b title ].
87bb1815460b initial checkin ca parents: diff changeset	1662
87bb1815460b initial checkin ca parents: diff changeset	1663	applications keysAndValuesDo:[:cls :ctr\|
87bb1815460b initial checkin ca parents: diff changeset	1664	list add:(MenuDesc title:(cls name)
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1665	value:(ctr printString)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1666	action:[self doSelectNextOfApplicationClass:cls startingIn:item]
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1667	).
2177 87bb1815460b initial checkin ca parents: diff changeset	1668	].
87bb1815460b initial checkin ca parents: diff changeset	1669
87bb1815460b initial checkin ca parents: diff changeset	1670	menu := MenuDesc buildFromList:list onGC:aMenu.
87bb1815460b initial checkin ca parents: diff changeset	1671	menu do:[:el\|
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1672	el hideMenuOnActivated:false
2177 87bb1815460b initial checkin ca parents: diff changeset	1673	].
87bb1815460b initial checkin ca parents: diff changeset	1674	^ menu
87bb1815460b initial checkin ca parents: diff changeset	1675	!
87bb1815460b initial checkin ca parents: diff changeset	1676
87bb1815460b initial checkin ca parents: diff changeset	1677	submenuComponents:aMenu
87bb1815460b initial checkin ca parents: diff changeset	1678	\|widgets list total menu item\|
87bb1815460b initial checkin ca parents: diff changeset	1679
87bb1815460b initial checkin ca parents: diff changeset	1680	item := aMenu selection nameKey == #single ifTrue:[model selectedItem]
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1681	ifFalse:[model rootItem].
2177 87bb1815460b initial checkin ca parents: diff changeset	1682	item isNil ifTrue:[^ nil].
87bb1815460b initial checkin ca parents: diff changeset	1683
87bb1815460b initial checkin ca parents: diff changeset	1684	widgets := IdentityDictionary new.
87bb1815460b initial checkin ca parents: diff changeset	1685	total := 0.
87bb1815460b initial checkin ca parents: diff changeset	1686
87bb1815460b initial checkin ca parents: diff changeset	1687	item recursiveDo:[:el\| \|cls ctr\|
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1688	cls := el widget.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1689
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1690	cls notNil ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1691	cls := cls class.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1692	ctr := widgets at:cls ifAbsent:0.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1693	widgets at:cls put:(ctr + 1).
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1694	total := total + 1.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1695	].
2177 87bb1815460b initial checkin ca parents: diff changeset	1696	].
87bb1815460b initial checkin ca parents: diff changeset	1697	total == 0 ifTrue:[^ nil].
87bb1815460b initial checkin ca parents: diff changeset	1698	list := SortedCollection sortBlock:[:a :b\| a title < b title ].
87bb1815460b initial checkin ca parents: diff changeset	1699
87bb1815460b initial checkin ca parents: diff changeset	1700	widgets keysAndValuesDo:[:cls :ctr\|
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1701	list add:(MenuDesc title:(cls name)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1702	value:(ctr printString)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1703	action:[self doSelectNextOfClass:cls startingIn:item]
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1704	).
2177 87bb1815460b initial checkin ca parents: diff changeset	1705	].
87bb1815460b initial checkin ca parents: diff changeset	1706	list := list asOrderedCollection.
87bb1815460b initial checkin ca parents: diff changeset	1707	list add:(MenuDesc separator).
87bb1815460b initial checkin ca parents: diff changeset	1708	list add:(MenuDesc title:'Total' value:(total printString)).
87bb1815460b initial checkin ca parents: diff changeset	1709	menu := MenuDesc buildFromList:list onGC:aMenu.
87bb1815460b initial checkin ca parents: diff changeset	1710	menu do:[:el\|
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1711	el hideMenuOnActivated:false
2177 87bb1815460b initial checkin ca parents: diff changeset	1712	].
87bb1815460b initial checkin ca parents: diff changeset	1713	^ menu
87bb1815460b initial checkin ca parents: diff changeset	1714	!
87bb1815460b initial checkin ca parents: diff changeset	1715
87bb1815460b initial checkin ca parents: diff changeset	1716	submenuGeometry:aMenu
2455 93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1717	"builds and returns the geometry submenu"
93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1718
2177 87bb1815460b initial checkin ca parents: diff changeset	1719	\|view point inst list x y\|
87bb1815460b initial checkin ca parents: diff changeset	1720
87bb1815460b initial checkin ca parents: diff changeset	1721	view := self selectedView.
87bb1815460b initial checkin ca parents: diff changeset	1722	view isNil ifTrue:[^ nil].
87bb1815460b initial checkin ca parents: diff changeset	1723
87bb1815460b initial checkin ca parents: diff changeset	1724	list := OrderedCollection new.
87bb1815460b initial checkin ca parents: diff changeset	1725
87bb1815460b initial checkin ca parents: diff changeset	1726	"/ origin
87bb1815460b initial checkin ca parents: diff changeset	1727	point := view relativeOrigin.
87bb1815460b initial checkin ca parents: diff changeset	1728	point isNil ifTrue:[ point := view origin ].
87bb1815460b initial checkin ca parents: diff changeset	1729
87bb1815460b initial checkin ca parents: diff changeset	1730	x := view left.
87bb1815460b initial checkin ca parents: diff changeset	1731	y := view top.
87bb1815460b initial checkin ca parents: diff changeset	1732
87bb1815460b initial checkin ca parents: diff changeset	1733	(x == point x and:[y == point y]) ifTrue:[ inst := point ]
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1734	ifFalse:[ inst := '%1 --> (%2@%3)' bindWith:point with:x with:y ].
2177 87bb1815460b initial checkin ca parents: diff changeset	1735
87bb1815460b initial checkin ca parents: diff changeset	1736	list add:(MenuDesc title:'origin' value:inst).
87bb1815460b initial checkin ca parents: diff changeset	1737
87bb1815460b initial checkin ca parents: diff changeset	1738	"/ corner
87bb1815460b initial checkin ca parents: diff changeset	1739	point := view relativeCorner.
87bb1815460b initial checkin ca parents: diff changeset	1740	point isNil ifTrue:[ point := view corner ].
87bb1815460b initial checkin ca parents: diff changeset	1741
87bb1815460b initial checkin ca parents: diff changeset	1742	x := view right.
87bb1815460b initial checkin ca parents: diff changeset	1743	y := view bottom.
87bb1815460b initial checkin ca parents: diff changeset	1744
87bb1815460b initial checkin ca parents: diff changeset	1745	(x == point x and:[y == point y]) ifTrue:[ inst := point ]
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1746	ifFalse:[ inst := '%1 --> (%2@%3)' bindWith:point with:x with:y ].
2177 87bb1815460b initial checkin ca parents: diff changeset	1747
87bb1815460b initial checkin ca parents: diff changeset	1748	list add:(MenuDesc title:'corner' value:inst).
87bb1815460b initial checkin ca parents: diff changeset	1749
87bb1815460b initial checkin ca parents: diff changeset	1750	"/ extent
87bb1815460b initial checkin ca parents: diff changeset	1751	(point := view relativeExtent) isNil ifTrue:[point := view extent].
87bb1815460b initial checkin ca parents: diff changeset	1752	list add:(MenuDesc title:'extent' value:point).
87bb1815460b initial checkin ca parents: diff changeset	1753
87bb1815460b initial checkin ca parents: diff changeset	1754	"/ preferred extent
87bb1815460b initial checkin ca parents: diff changeset	1755	list add:(MenuDesc title:'pref. extent' value:(view preferredExtent)).
87bb1815460b initial checkin ca parents: diff changeset	1756	list add:(MenuDesc separator).
87bb1815460b initial checkin ca parents: diff changeset	1757
87bb1815460b initial checkin ca parents: diff changeset	1758	"/ view insets
87bb1815460b initial checkin ca parents: diff changeset	1759	inst := 'l:%1 r:%2 t:%3 b:%4' bindWith:(view leftInset)
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1760	with:(view rightInset)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1761	with:(view topInset)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1762	with:(view bottomInset).
2177 87bb1815460b initial checkin ca parents: diff changeset	1763
87bb1815460b initial checkin ca parents: diff changeset	1764	list add:(MenuDesc title:'insets' value:inst).
87bb1815460b initial checkin ca parents: diff changeset	1765	list add:(MenuDesc title:'borderWidth' value:(view borderWidth)).
87bb1815460b initial checkin ca parents: diff changeset	1766	list add:(MenuDesc title:'level' value:(view level)).
87bb1815460b initial checkin ca parents: diff changeset	1767	list add:(MenuDesc separator).
87bb1815460b initial checkin ca parents: diff changeset	1768
87bb1815460b initial checkin ca parents: diff changeset	1769	(inst := view layout) notNil ifTrue:[ inst := inst displayString ].
87bb1815460b initial checkin ca parents: diff changeset	1770	list add:(MenuDesc title:'layout' value:inst).
87bb1815460b initial checkin ca parents: diff changeset	1771
87bb1815460b initial checkin ca parents: diff changeset	1772	(inst := view transformation) notNil ifTrue:[ inst := inst displayString ].
87bb1815460b initial checkin ca parents: diff changeset	1773	list add:(MenuDesc title:'transformation' value:inst).
87bb1815460b initial checkin ca parents: diff changeset	1774
3183 cd02c3731897 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3174 diff changeset	1775	(view isKindOf:Label) ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1776	list add:(MenuDesc separator).
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1777	(inst := view adjust) notNil ifTrue:[ inst := inst displayString ].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1778	list add:(MenuDesc title:'adjust' value:inst).
3183 cd02c3731897 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3174 diff changeset	1779	].
cd02c3731897 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3174 diff changeset	1780	(view isKindOf:PanelView) ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1781	list add:(MenuDesc separator).
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1782	(inst := view horizontalLayout ) notNil ifTrue:[ inst := inst displayString ].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1783	list add:(MenuDesc title:'horizontalLayout' value:inst).
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1784	(inst := view verticalLayout ) notNil ifTrue:[ inst := inst displayString ].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1785	list add:(MenuDesc title:'verticalLayout' value:inst).
3183 cd02c3731897 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3174 diff changeset	1786	].
cd02c3731897 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3174 diff changeset	1787
cd02c3731897 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3174 diff changeset	1788	^ MenuDesc buildFromList:list onGC:aMenu
2177 87bb1815460b initial checkin ca parents: diff changeset	1789	!
87bb1815460b initial checkin ca parents: diff changeset	1790
87bb1815460b initial checkin ca parents: diff changeset	1791	submenuInspector:aMenu
2455 93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1792	"builds and returns the inspector submenu"
93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1793
3040 b62c4b71910c class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3037 diff changeset	1794	\|view list n names label value indices\|
2177 87bb1815460b initial checkin ca parents: diff changeset	1795
87bb1815460b initial checkin ca parents: diff changeset	1796	view := self selectedView.
87bb1815460b initial checkin ca parents: diff changeset	1797	view isNil ifTrue:[^ nil].
87bb1815460b initial checkin ca parents: diff changeset	1798
87bb1815460b initial checkin ca parents: diff changeset	1799	n := view class instSize.
87bb1815460b initial checkin ca parents: diff changeset	1800	n > 0 ifFalse:[^ nil ].
87bb1815460b initial checkin ca parents: diff changeset	1801
87bb1815460b initial checkin ca parents: diff changeset	1802	list := OrderedCollection new:n.
87bb1815460b initial checkin ca parents: diff changeset	1803	names := view class allInstVarNames.
3040 b62c4b71910c class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3037 diff changeset	1804	indices := (1 to:names size) asArray.
b62c4b71910c class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3037 diff changeset	1805	names sortWith:indices.
2177 87bb1815460b initial checkin ca parents: diff changeset	1806
87bb1815460b initial checkin ca parents: diff changeset	1807	1 to:n do:[:i\| \|action\|
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1808	label := (names at:i) printString.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1809	value := view instVarAt:(indices at:i).
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1810	value isNil ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1811	value := '------'.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1812	action := nil.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1813	] ifFalse:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1814	value := value displayString contractAtEndTo:40.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1815	action := [(view instVarAt:i) inspect].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1816	].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1817	list add:(MenuDesc title:label value:value action:action).
2177 87bb1815460b initial checkin ca parents: diff changeset	1818	].
87bb1815460b initial checkin ca parents: diff changeset	1819
87bb1815460b initial checkin ca parents: diff changeset	1820	^ MenuDesc buildFromList:list onGC:aMenu
3040 b62c4b71910c class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3037 diff changeset	1821
b62c4b71910c class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3037 diff changeset	1822	"Modified: / 31-07-2013 / 13:12:52 / cg"
2177 87bb1815460b initial checkin ca parents: diff changeset	1823	!
87bb1815460b initial checkin ca parents: diff changeset	1824
87bb1815460b initial checkin ca parents: diff changeset	1825	submenuInterface:aMenu
2455 93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1826	"builds and returns the interface submenu"
93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1827
2177 87bb1815460b initial checkin ca parents: diff changeset	1828	\|view label inst value list\|
87bb1815460b initial checkin ca parents: diff changeset	1829
87bb1815460b initial checkin ca parents: diff changeset	1830	view := self selectedView.
87bb1815460b initial checkin ca parents: diff changeset	1831	view isNil ifTrue:[^ nil].
87bb1815460b initial checkin ca parents: diff changeset	1832
87bb1815460b initial checkin ca parents: diff changeset	1833	list := OrderedCollection new.
87bb1815460b initial checkin ca parents: diff changeset	1834
87bb1815460b initial checkin ca parents: diff changeset	1835	inst := view controller.
87bb1815460b initial checkin ca parents: diff changeset	1836	value := nil.
87bb1815460b initial checkin ca parents: diff changeset	1837
87bb1815460b initial checkin ca parents: diff changeset	1838	inst isNil ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1839	label := nil
2177 87bb1815460b initial checkin ca parents: diff changeset	1840	] ifFalse:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1841	inst == view ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1842	label := '== view itself'
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1843	] ifFalse:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1844	label := inst displayString.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1845	value := [view controller inspect].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1846	].
2177 87bb1815460b initial checkin ca parents: diff changeset	1847	].
87bb1815460b initial checkin ca parents: diff changeset	1848	list add:(MenuDesc title:'controller' value:label action:value).
87bb1815460b initial checkin ca parents: diff changeset	1849
87bb1815460b initial checkin ca parents: diff changeset	1850	inst := view delegate.
87bb1815460b initial checkin ca parents: diff changeset	1851	inst notNil ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1852	list add:(MenuDesc title:'delegate' value:(inst displayString) action:[ view delegate inspect ]).
2177 87bb1815460b initial checkin ca parents: diff changeset	1853	].
87bb1815460b initial checkin ca parents: diff changeset	1854
87bb1815460b initial checkin ca parents: diff changeset	1855	inst := view application.
87bb1815460b initial checkin ca parents: diff changeset	1856
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1857	inst notNil ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1858	\|topAppl\|
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1859
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1860	list add:(MenuDesc title:'application' value:inst action:[ view application inspect ]).
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1861
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1862	topAppl := inst topApplication.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1863
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1864	(topAppl notNil and:[topAppl ~~ inst]) ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1865	list add:(MenuDesc title:'topApplication' value:topAppl action:[ inst topApplication inspect ]).
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1866	].
2177 87bb1815460b initial checkin ca parents: diff changeset	1867	].
87bb1815460b initial checkin ca parents: diff changeset	1868	list add:(MenuDesc separator).
87bb1815460b initial checkin ca parents: diff changeset	1869
2888 9adfb8a84696 added: Claus Gittinger <cg@exept.de> parents: 2779 diff changeset	1870	(view respondsTo:#'model') ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1871	inst := view model.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1872
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1873	inst isNil
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1874	ifTrue:[ label := value := nil ]
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1875	ifFalse:[ label := inst displayString.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1876	label := label,(self aspectLabelFor:inst inApplicationOf:view).
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1877	value := [ view model inspect ].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1878	].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1879
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1880	list add:(MenuDesc title:'model' value:label action:value).
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1881
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1882	(inst notNil and:[view respondsTo:#modelInterface]) ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1883	view modelInterface keysAndValuesDo:[:key : val\|
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1884	val isNil ifTrue:[ label := nil ]
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1885	ifFalse:[ label := val displayString ].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1886
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1887	list add:(MenuDesc title:(' - ', key) value:label ).
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1888	]
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1889	].
2177 87bb1815460b initial checkin ca parents: diff changeset	1890	].
87bb1815460b initial checkin ca parents: diff changeset	1891
87bb1815460b initial checkin ca parents: diff changeset	1892	(view respondsTo:#enableChannel) ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1893	inst := view enableChannel.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1894
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1895	inst isNil ifTrue:[ label := value := nil ]
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1896	ifFalse:[ label := inst displayString.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1897	label := label,(self aspectLabelFor:inst inApplicationOf:view).
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1898	value := [ view enableChannel inspect ].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1899	].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1900
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1901	list add:(MenuDesc title:'enableChannel' value:label action:value).
2177 87bb1815460b initial checkin ca parents: diff changeset	1902	].
87bb1815460b initial checkin ca parents: diff changeset	1903
2888 9adfb8a84696 added: Claus Gittinger <cg@exept.de> parents: 2779 diff changeset	1904	#( #action #pressAction #releaseAction ) do:[:actionSelector \|
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1905	(view respondsTo:actionSelector) ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1906	inst := view perform:actionSelector.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1907
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1908	inst isNil
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1909	ifTrue:[ label := value := nil ]
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1910	ifFalse:[ label := inst displayString.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1911	value := [ (view perform:actionSelector) inspect ].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1912	].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1913
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1914	list add:(MenuDesc title:actionSelector"'action'" value:label action:value).
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1915	].
2779 10fef360ad85 changed: #submenuInterface: Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	1916	].
10fef360ad85 changed: #submenuInterface: Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	1917
2177 87bb1815460b initial checkin ca parents: diff changeset	1918	list last isSeparator ifFalse:[ list add:(MenuDesc separator) ].
87bb1815460b initial checkin ca parents: diff changeset	1919
87bb1815460b initial checkin ca parents: diff changeset	1920	(view respondsTo:#listHolder) ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1921	inst := view listHolder.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1922
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1923	inst isNil ifTrue:[ label := value := nil ]
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1924	ifFalse:[ label := inst class printString.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1925	label := label,(self aspectLabelFor:inst inApplicationOf:view).
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1926	value := [ view listHolder inspect ].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1927	].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1928	list add:(MenuDesc title:'listHolder' value:label action:value).
2177 87bb1815460b initial checkin ca parents: diff changeset	1929	].
87bb1815460b initial checkin ca parents: diff changeset	1930
87bb1815460b initial checkin ca parents: diff changeset	1931	(view respondsTo:#list) ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1932	inst := view list.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1933
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1934	inst isNil ifTrue:[ label := value := nil ]
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1935	ifFalse:[ label := '%1 [%2]' bindWith:(inst class printString) with:(inst size).
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1936	label := label,(self aspectLabelFor:inst inApplicationOf:view).
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1937	value := [ view list inspect ].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1938	].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1939
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1940	list add:(MenuDesc title:'list' value:label action:value).
2177 87bb1815460b initial checkin ca parents: diff changeset	1941	].
87bb1815460b initial checkin ca parents: diff changeset	1942
87bb1815460b initial checkin ca parents: diff changeset	1943	list last isSeparator ifTrue:[ list removeLast ].
2888 9adfb8a84696 added: Claus Gittinger <cg@exept.de> parents: 2779 diff changeset	1944	^ MenuDesc buildFromList:list onGC:aMenu
9adfb8a84696 added: Claus Gittinger <cg@exept.de> parents: 2779 diff changeset	1945
3040 b62c4b71910c class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3037 diff changeset	1946	"Modified: / 31-07-2013 / 13:09:55 / cg"
2177 87bb1815460b initial checkin ca parents: diff changeset	1947	!
87bb1815460b initial checkin ca parents: diff changeset	1948
3456 4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	1949	submenuMenuItemInterface:aMenu
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	1950	"builds and returns the menuItem interface submenu"
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	1951
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	1952	\|item list\|
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	1953
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	1954	item := self selectedMenuItem.
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	1955	item isNil ifTrue:[^ nil].
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	1956
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	1957	list := OrderedCollection new.
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	1958
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1959	list add:(MenuDesc
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1960	title:'itemValue'
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1961	value:(item itemValue)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1962	action:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1963	UserPreferences systemBrowserClass
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1964	browseImplementorsOf:item itemValue
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	1965	]).
3456 4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	1966
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	1967	^ MenuDesc buildFromList:list onGC:aMenu
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	1968
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	1969	"Created: / 16-08-2017 / 13:51:05 / cg"
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	1970	!
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	1971
3692 b8a662f98f30 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3689 diff changeset	1972	submenuPresentation:aMenu
b8a662f98f30 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3689 diff changeset	1973	"builds and returns the presentation submenu"
b8a662f98f30 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3689 diff changeset	1974
b8a662f98f30 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3689 diff changeset	1975	\|view list\|
b8a662f98f30 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3689 diff changeset	1976
b8a662f98f30 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3689 diff changeset	1977	view := self selectedView.
b8a662f98f30 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3689 diff changeset	1978	view isNil ifTrue:[^ nil].
b8a662f98f30 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3689 diff changeset	1979
b8a662f98f30 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3689 diff changeset	1980	list := OrderedCollection new.
b8a662f98f30 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3689 diff changeset	1981
3693 1b69c8dcdfe0 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3692 diff changeset	1982	list add:(MenuDesc title:'fgColor' value:(view foregroundColor displayString)).
1b69c8dcdfe0 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3692 diff changeset	1983	list add:(MenuDesc title:'bgColor' value:(view backgroundColor displayString)).
1b69c8dcdfe0 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3692 diff changeset	1984	list add:(MenuDesc title:'viewBG' value:(view viewBackground displayString)).
3692 b8a662f98f30 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3689 diff changeset	1985
b8a662f98f30 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3689 diff changeset	1986	list add:(MenuDesc separator).
b8a662f98f30 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3689 diff changeset	1987
b8a662f98f30 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3689 diff changeset	1988	list add:(MenuDesc title:'font' value:(view font printString)).
b8a662f98f30 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3689 diff changeset	1989
b8a662f98f30 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3689 diff changeset	1990	^ MenuDesc buildFromList:list onGC:aMenu
b8a662f98f30 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3689 diff changeset	1991
b8a662f98f30 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3689 diff changeset	1992	"Created: / 18-07-2019 / 12:23:42 / Claus Gittinger"
b8a662f98f30 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3689 diff changeset	1993	!
b8a662f98f30 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3689 diff changeset	1994
2177 87bb1815460b initial checkin ca parents: diff changeset	1995	submenuVisibility:aMenu
2455 93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1996	"builds and returns the geometry submenu"
93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	1997
2177 87bb1815460b initial checkin ca parents: diff changeset	1998	\|view list value\|
87bb1815460b initial checkin ca parents: diff changeset	1999
87bb1815460b initial checkin ca parents: diff changeset	2000	view := self selectedView.
87bb1815460b initial checkin ca parents: diff changeset	2001	view isNil ifTrue:[^ nil].
87bb1815460b initial checkin ca parents: diff changeset	2002
87bb1815460b initial checkin ca parents: diff changeset	2003	list := OrderedCollection new.
87bb1815460b initial checkin ca parents: diff changeset	2004
3692 b8a662f98f30 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3689 diff changeset	2005	list add:(MenuDesc title:'device' value:(view device printString) action:[view device inspect]).
2177 87bb1815460b initial checkin ca parents: diff changeset	2006	list add:(MenuDesc title:'drawableId' value:(view id)).
3692 b8a662f98f30 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3689 diff changeset	2007	list add:(MenuDesc title:'gcId' value:(view gcId) action:[view graphicsContext inspect]).
2177 87bb1815460b initial checkin ca parents: diff changeset	2008
87bb1815460b initial checkin ca parents: diff changeset	2009	list add:(MenuDesc separator).
87bb1815460b initial checkin ca parents: diff changeset	2010
87bb1815460b initial checkin ca parents: diff changeset	2011	list add:(MenuDesc title:'shown' value:(view shown)).
87bb1815460b initial checkin ca parents: diff changeset	2012	list add:(MenuDesc title:'realized' value:(view realized)).
87bb1815460b initial checkin ca parents: diff changeset	2013
87bb1815460b initial checkin ca parents: diff changeset	2014	list add:(MenuDesc separator).
87bb1815460b initial checkin ca parents: diff changeset	2015
87bb1815460b initial checkin ca parents: diff changeset	2016	list add:(MenuDesc title:'hiddenOnRealize' value:(view isHiddenOnRealize)).
87bb1815460b initial checkin ca parents: diff changeset	2017
87bb1815460b initial checkin ca parents: diff changeset	2018	(value := view visibilityChannel) isNil ifTrue:[
3692 b8a662f98f30 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3689 diff changeset	2019	list add:(MenuDesc title:'visibilityChannel' value:'------').
2177 87bb1815460b initial checkin ca parents: diff changeset	2020	] ifFalse:[
3692 b8a662f98f30 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3689 diff changeset	2021	list add:(MenuDesc title:'visibilityChannel'
b8a662f98f30 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3689 diff changeset	2022	value:(value displayString)
b8a662f98f30 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3689 diff changeset	2023	action:[view visibilityChannel inspect]).
2177 87bb1815460b initial checkin ca parents: diff changeset	2024	].
87bb1815460b initial checkin ca parents: diff changeset	2025
2758 c61fe917957a comment/format in:8 methods Claus Gittinger <cg@exept.de> parents: 2757 diff changeset	2026	^ MenuDesc buildFromList:list onGC:aMenu
3692 b8a662f98f30 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3689 diff changeset	2027
b8a662f98f30 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3689 diff changeset	2028	"Modified: / 18-07-2019 / 12:25:39 / Claus Gittinger"
2177 87bb1815460b initial checkin ca parents: diff changeset	2029	! !
87bb1815460b initial checkin ca parents: diff changeset	2030
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2031	!ViewTreeInspectorApplication methodsFor:'private'!
2177 87bb1815460b initial checkin ca parents: diff changeset	2032
2888 9adfb8a84696 added: Claus Gittinger <cg@exept.de> parents: 2779 diff changeset	2033	aspectLabelFor:aModel inApplicationOf:aView
9adfb8a84696 added: Claus Gittinger <cg@exept.de> parents: 2779 diff changeset	2034	\|app\|
9adfb8a84696 added: Claus Gittinger <cg@exept.de> parents: 2779 diff changeset	2035
9adfb8a84696 added: Claus Gittinger <cg@exept.de> parents: 2779 diff changeset	2036	aModel isNil ifTrue:[^ ''].
9adfb8a84696 added: Claus Gittinger <cg@exept.de> parents: 2779 diff changeset	2037	aView isNil ifTrue:[^ ''].
9adfb8a84696 added: Claus Gittinger <cg@exept.de> parents: 2779 diff changeset	2038	(app := aView application) isNil ifTrue:[^ ''].
9adfb8a84696 added: Claus Gittinger <cg@exept.de> parents: 2779 diff changeset	2039	app builder bindings keysAndValuesDo:[:aspect :value \|
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2040	value == aModel ifTrue:[^ ' [aspect: ',aspect,']'].
2888 9adfb8a84696 added: Claus Gittinger <cg@exept.de> parents: 2779 diff changeset	2041	].
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2042	app class allInstVarNames do:[:nm \|
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2043	(app instVarNamed:nm) == aModel ifTrue:[^ ' [instvar: ',nm,']']
2888 9adfb8a84696 added: Claus Gittinger <cg@exept.de> parents: 2779 diff changeset	2044	].
9adfb8a84696 added: Claus Gittinger <cg@exept.de> parents: 2779 diff changeset	2045
9adfb8a84696 added: Claus Gittinger <cg@exept.de> parents: 2779 diff changeset	2046	^ ''
9adfb8a84696 added: Claus Gittinger <cg@exept.de> parents: 2779 diff changeset	2047
9adfb8a84696 added: Claus Gittinger <cg@exept.de> parents: 2779 diff changeset	2048	"Created: / 27-04-2012 / 14:22:09 / cg"
9adfb8a84696 added: Claus Gittinger <cg@exept.de> parents: 2779 diff changeset	2049	!
9adfb8a84696 added: Claus Gittinger <cg@exept.de> parents: 2779 diff changeset	2050
2177 87bb1815460b initial checkin ca parents: diff changeset	2051	selectFocusView
2762 0c66aa3bfdff added: Claus Gittinger <cg@exept.de> parents: 2759 diff changeset	2052	\|rootView focusView\|
2177 87bb1815460b initial checkin ca parents: diff changeset	2053
87bb1815460b initial checkin ca parents: diff changeset	2054	rootView := model rootView.
87bb1815460b initial checkin ca parents: diff changeset	2055
87bb1815460b initial checkin ca parents: diff changeset	2056	(rootView notNil and:[rootView shown]) ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2057	focusView := rootView windowGroup focusView.
2177 87bb1815460b initial checkin ca parents: diff changeset	2058	].
87bb1815460b initial checkin ca parents: diff changeset	2059	focusView isNil ifTrue:[^ self ].
87bb1815460b initial checkin ca parents: diff changeset	2060
2762 0c66aa3bfdff added: Claus Gittinger <cg@exept.de> parents: 2759 diff changeset	2061	self selectView:focusView
0c66aa3bfdff added: Claus Gittinger <cg@exept.de> parents: 2759 diff changeset	2062	!
0c66aa3bfdff added: Claus Gittinger <cg@exept.de> parents: 2759 diff changeset	2063
0c66aa3bfdff added: Claus Gittinger <cg@exept.de> parents: 2759 diff changeset	2064	selectView:aView
0c66aa3bfdff added: Claus Gittinger <cg@exept.de> parents: 2759 diff changeset	2065	\|currentItem viewItem\|
0c66aa3bfdff added: Claus Gittinger <cg@exept.de> parents: 2759 diff changeset	2066
0c66aa3bfdff added: Claus Gittinger <cg@exept.de> parents: 2759 diff changeset	2067	currentItem := model selectedItem.
0c66aa3bfdff added: Claus Gittinger <cg@exept.de> parents: 2759 diff changeset	2068
0c66aa3bfdff added: Claus Gittinger <cg@exept.de> parents: 2759 diff changeset	2069	(currentItem notNil and:[currentItem widget == aView]) ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2070	^ self
2177 87bb1815460b initial checkin ca parents: diff changeset	2071	].
2762 0c66aa3bfdff added: Claus Gittinger <cg@exept.de> parents: 2759 diff changeset	2072	viewItem := model listOfItems recursiveDetect:[:el\| el widget == aView ].
0c66aa3bfdff added: Claus Gittinger <cg@exept.de> parents: 2759 diff changeset	2073
0c66aa3bfdff added: Claus Gittinger <cg@exept.de> parents: 2759 diff changeset	2074	viewItem notNil ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2075	model selectItem:viewItem.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2076	].
2177 87bb1815460b initial checkin ca parents: diff changeset	2077	!
87bb1815460b initial checkin ca parents: diff changeset	2078
87bb1815460b initial checkin ca parents: diff changeset	2079	setRootItem:aRootItemOrNil
87bb1815460b initial checkin ca parents: diff changeset	2080	\|theProcess\|
87bb1815460b initial checkin ca parents: diff changeset	2081
87bb1815460b initial checkin ca parents: diff changeset	2082	aRootItemOrNil isNil ifTrue:[
3658 18137fdc0f76 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3628 diff changeset	2083	process := nil.
2177 87bb1815460b initial checkin ca parents: diff changeset	2084	] ifFalse:[
3658 18137fdc0f76 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3628 diff changeset	2085	"/ expand tree to level 3
18137fdc0f76 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3628 diff changeset	2086	aRootItemOrNil do:[:aRootChild\|
18137fdc0f76 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3628 diff changeset	2087	aRootChild do:[:aSubChild\| aSubChild expand ].
18137fdc0f76 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3628 diff changeset	2088	aRootChild expand.
18137fdc0f76 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3628 diff changeset	2089	].
18137fdc0f76 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3628 diff changeset	2090	aRootItemOrNil expand.
18137fdc0f76 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3628 diff changeset	2091
18137fdc0f76 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3628 diff changeset	2092	process isNil ifTrue:[
18137fdc0f76 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3628 diff changeset	2093	"/ the focusFollower process terminates itself, when process is not longer theProcess
18137fdc0f76 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3628 diff changeset	2094	theProcess := process :=
18137fdc0f76 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3628 diff changeset	2095	Process
18137fdc0f76 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3628 diff changeset	2096	for:[
18137fdc0f76 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3628 diff changeset	2097	\|update testModeChannel\|
18137fdc0f76 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3628 diff changeset	2098
18137fdc0f76 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3628 diff changeset	2099	update := false.
18137fdc0f76 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3628 diff changeset	2100	testModeChannel := model testModeChannel.
18137fdc0f76 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3628 diff changeset	2101
18137fdc0f76 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3628 diff changeset	2102	[process == theProcess] whileTrue:[
18137fdc0f76 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3628 diff changeset	2103	Delay waitForSeconds:0.5.
18137fdc0f76 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3628 diff changeset	2104
18137fdc0f76 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3628 diff changeset	2105	(treeView notNil and:[process == theProcess and:[treeView shown]]) ifTrue:[
18137fdc0f76 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3628 diff changeset	2106	(testModeChannel value == true and:[followFocusChannel value == true]) ifTrue:[
18137fdc0f76 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3628 diff changeset	2107	self selectFocusView.
18137fdc0f76 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3628 diff changeset	2108	].
18137fdc0f76 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3628 diff changeset	2109	update ifTrue:[
18137fdc0f76 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3628 diff changeset	2110	self updateShownStatus.
18137fdc0f76 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3628 diff changeset	2111	].
18137fdc0f76 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3628 diff changeset	2112	update := update not.
18137fdc0f76 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3628 diff changeset	2113	].
18137fdc0f76 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3628 diff changeset	2114	].
18137fdc0f76 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3628 diff changeset	2115	]
18137fdc0f76 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3628 diff changeset	2116	priority:(Processor userSchedulingPriority).
18137fdc0f76 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3628 diff changeset	2117	theProcess name:'ViewTreeInspector - Focus Follower'.
18137fdc0f76 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3628 diff changeset	2118	theProcess resume.
18137fdc0f76 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3628 diff changeset	2119	].
2177 87bb1815460b initial checkin ca parents: diff changeset	2120	].
87bb1815460b initial checkin ca parents: diff changeset	2121	model rootItem:aRootItemOrNil.
3034 862cd32dc02f class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3017 diff changeset	2122
862cd32dc02f class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3017 diff changeset	2123	"Modified: / 25-07-2013 / 12:03:44 / cg"
3658 18137fdc0f76 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3628 diff changeset	2124	"Modified (format): / 30-04-2019 / 22:32:23 / Claus Gittinger"
2177 87bb1815460b initial checkin ca parents: diff changeset	2125	!
87bb1815460b initial checkin ca parents: diff changeset	2126
87bb1815460b initial checkin ca parents: diff changeset	2127	updateShownStatus
87bb1815460b initial checkin ca parents: diff changeset	2128	\|rootItem min max visState listIdx visY0 visY1 height damage\|
87bb1815460b initial checkin ca parents: diff changeset	2129
87bb1815460b initial checkin ca parents: diff changeset	2130	rootItem := model rootItem.
87bb1815460b initial checkin ca parents: diff changeset	2131	(rootItem notNil and:[rootItem widget shown]) ifFalse:[^ self].
87bb1815460b initial checkin ca parents: diff changeset	2132
87bb1815460b initial checkin ca parents: diff changeset	2133	max := 0.
87bb1815460b initial checkin ca parents: diff changeset	2134	min := 9999999.
87bb1815460b initial checkin ca parents: diff changeset	2135
87bb1815460b initial checkin ca parents: diff changeset	2136	rootItem recursiveEachVisibleItemDo:[:anItem\|
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2137	anItem widget notNil ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2138	visState := (anItem widget shown).
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2139
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2140	visState ~~ anItem isDrawnShown ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2141	anItem isDrawnShown:visState.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2142	listIdx := treeView identityIndexOf:anItem.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2143
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2144	listIdx > 0 ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2145	max := max max:listIdx.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2146	min := min min:listIdx.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2147	].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2148	].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2149	].
2177 87bb1815460b initial checkin ca parents: diff changeset	2150	].
87bb1815460b initial checkin ca parents: diff changeset	2151	max < min ifTrue:[^ self].
87bb1815460b initial checkin ca parents: diff changeset	2152	max := max + 1.
87bb1815460b initial checkin ca parents: diff changeset	2153
87bb1815460b initial checkin ca parents: diff changeset	2154	visY0 := (treeView yVisibleOfLine:min) max:0.
87bb1815460b initial checkin ca parents: diff changeset	2155	visY1 := (treeView yVisibleOfLine:max) min:(treeView height).
87bb1815460b initial checkin ca parents: diff changeset	2156	height := visY1 - visY0.
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2157
2177 87bb1815460b initial checkin ca parents: diff changeset	2158	height > 2 ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2159	treeView shown ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2160	damage := Rectangle left:0 top:visY0 width:(treeView width) height:height.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2161	treeView invalidateDeviceRectangle:damage repairNow:false.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2162	].
2177 87bb1815460b initial checkin ca parents: diff changeset	2163	].
3456 4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2164
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2165	"Modified: / 16-08-2017 / 12:29:15 / cg"
2177 87bb1815460b initial checkin ca parents: diff changeset	2166	! !
87bb1815460b initial checkin ca parents: diff changeset	2167
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2168	!ViewTreeInspectorApplication methodsFor:'selection'!
2177 87bb1815460b initial checkin ca parents: diff changeset	2169
3456 4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2170	selectedMenuItem
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2171	"answer the selected menuItem or nil"
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2172
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2173	\|item\|
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2174
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2175	item := model selectedItem.
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2176	item notNil ifTrue:[ ^ item menuItem ].
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2177	^ nil
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2178
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2179	"Created: / 16-08-2017 / 13:50:35 / cg"
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2180	!
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2181
2177 87bb1815460b initial checkin ca parents: diff changeset	2182	selectedView
2455 93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	2183	"answer the selected view or nil"
93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	2184
2177 87bb1815460b initial checkin ca parents: diff changeset	2185	\|item\|
87bb1815460b initial checkin ca parents: diff changeset	2186
87bb1815460b initial checkin ca parents: diff changeset	2187	item := model selectedItem.
87bb1815460b initial checkin ca parents: diff changeset	2188	item notNil ifTrue:[ ^ item widget ].
3457 3f3ea99e8af5 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3456 diff changeset	2189	^ nil
3f3ea99e8af5 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3456 diff changeset	2190
3f3ea99e8af5 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3456 diff changeset	2191	"Modified (format): / 16-08-2017 / 13:57:30 / cg"
2177 87bb1815460b initial checkin ca parents: diff changeset	2192	! !
87bb1815460b initial checkin ca parents: diff changeset	2193
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2194	!ViewTreeInspectorApplication methodsFor:'testing'!
2177 87bb1815460b initial checkin ca parents: diff changeset	2195
87bb1815460b initial checkin ca parents: diff changeset	2196	resolveApplicationClassFor:aTreeItem
87bb1815460b initial checkin ca parents: diff changeset	2197	aTreeItem isApplicationClass ifTrue:[
87bb1815460b initial checkin ca parents: diff changeset	2198	^ aTreeItem applicationClass
87bb1815460b initial checkin ca parents: diff changeset	2199	].
87bb1815460b initial checkin ca parents: diff changeset	2200	^ nil
87bb1815460b initial checkin ca parents: diff changeset	2201	!
87bb1815460b initial checkin ca parents: diff changeset	2202
87bb1815460b initial checkin ca parents: diff changeset	2203	selectedComponentHasChildren
87bb1815460b initial checkin ca parents: diff changeset	2204	\|item\|
87bb1815460b initial checkin ca parents: diff changeset	2205
87bb1815460b initial checkin ca parents: diff changeset	2206	item := model selectedItem.
87bb1815460b initial checkin ca parents: diff changeset	2207	^ (item notNil and:[item hasChildren])
87bb1815460b initial checkin ca parents: diff changeset	2208	! !
87bb1815460b initial checkin ca parents: diff changeset	2209
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2210	!ViewTreeInspectorApplication methodsFor:'user operations'!
2177 87bb1815460b initial checkin ca parents: diff changeset	2211
87bb1815460b initial checkin ca parents: diff changeset	2212	doBrowse:what
87bb1815460b initial checkin ca parents: diff changeset	2213	"open browser on:
3628 dae68c3b50a6 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3574 diff changeset	2214	#view browse class
dae68c3b50a6 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3574 diff changeset	2215	#model browse model class
dae68c3b50a6 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3574 diff changeset	2216	#application browse application class
dae68c3b50a6 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3574 diff changeset	2217	#masterApplication browse master application class
dae68c3b50a6 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3574 diff changeset	2218	#controller browse controller class
2177 87bb1815460b initial checkin ca parents: diff changeset	2219	"
3167 95025cd0fbce class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3141 diff changeset	2220	\|inst\|
95025cd0fbce class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3141 diff changeset	2221
95025cd0fbce class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3141 diff changeset	2222	(inst := self objectToInspectOrBrowse:what) isNil ifTrue:[^ self].
95025cd0fbce class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3141 diff changeset	2223	inst class browserClass openInClass:(inst class) selector:nil
3049 292d06e8b7ae class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3040 diff changeset	2224
292d06e8b7ae class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3040 diff changeset	2225	"Modified: / 28-08-2013 / 23:57:42 / cg"
3628 dae68c3b50a6 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3574 diff changeset	2226	"Modified (comment): / 30-10-2018 / 16:21:25 / Claus Gittinger"
2177 87bb1815460b initial checkin ca parents: diff changeset	2227	!
87bb1815460b initial checkin ca parents: diff changeset	2228
3174 cd45c49a0d63 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	2229	doBrowseWindowSpecMethod
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	2230	\|mthd\|
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	2231
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	2232	mthd := self windowSpecMethodOfSelection.
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	2233	NewSystemBrowser openInClass:mthd mclass selector:mthd selector
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	2234	!
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	2235
3124 1973e28a2c75 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3123 diff changeset	2236	doCatchEvents
1973e28a2c75 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3123 diff changeset	2237	model catchEvents:true.
1973e28a2c75 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3123 diff changeset	2238	isCatchingEventsChannel value:true.
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2239	"/ ((builder componentAt:'toolbarMenu') itemAt:#doUncatchEvents)
3124 1973e28a2c75 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3123 diff changeset	2240	"/ enabled:true;
1973e28a2c75 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3123 diff changeset	2241	"/ label:(self class releaseViewIcon);
1973e28a2c75 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3123 diff changeset	2242	"/ activeHelpKey:#doUncatchEvents.
1973e28a2c75 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3123 diff changeset	2243	!
1973e28a2c75 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3123 diff changeset	2244
3171 16cec0f0e3b4 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3169 diff changeset	2245	doDebugProcess
16cec0f0e3b4 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3169 diff changeset	2246	"open debugger on the window process"
16cec0f0e3b4 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3169 diff changeset	2247
16cec0f0e3b4 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3169 diff changeset	2248	\|view\|
16cec0f0e3b4 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3169 diff changeset	2249
16cec0f0e3b4 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3169 diff changeset	2250	view := self selectedView.
16cec0f0e3b4 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3169 diff changeset	2251	view isNil ifTrue:[^ nil].
16cec0f0e3b4 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3169 diff changeset	2252
16cec0f0e3b4 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3169 diff changeset	2253	Debugger openOn:view windowGroup process
16cec0f0e3b4 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3169 diff changeset	2254	!
16cec0f0e3b4 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3169 diff changeset	2255
2177 87bb1815460b initial checkin ca parents: diff changeset	2256	doDestroy
2455 93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	2257	"destroy the current selected view"
93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	2258
2177 87bb1815460b initial checkin ca parents: diff changeset	2259	\|item parent\|
87bb1815460b initial checkin ca parents: diff changeset	2260
87bb1815460b initial checkin ca parents: diff changeset	2261	item := model selectedItem.
87bb1815460b initial checkin ca parents: diff changeset	2262	item isNil ifTrue:[ ^ self].
87bb1815460b initial checkin ca parents: diff changeset	2263
87bb1815460b initial checkin ca parents: diff changeset	2264	parent := item parent.
87bb1815460b initial checkin ca parents: diff changeset	2265
87bb1815460b initial checkin ca parents: diff changeset	2266	parent isNil ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2267	"/ the root
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2268	model withSelectionHiddenDo:[item deleteAll].
2177 87bb1815460b initial checkin ca parents: diff changeset	2269	^ self
87bb1815460b initial checkin ca parents: diff changeset	2270	].
87bb1815460b initial checkin ca parents: diff changeset	2271
87bb1815460b initial checkin ca parents: diff changeset	2272	model withSelectionHiddenDo:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2273	\|idx nsel\|
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2274
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2275	idx := parent identityIndexOf:item.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2276
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2277	idx == parent size ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2278	nsel := parent at:(idx - 1) ifAbsent:parent
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2279	] ifFalse:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2280	nsel := parent at:(idx + 1)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2281	].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2282	model setValue:nil.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2283	item delete.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2284
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2285	parent isLayoutContainer ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2286	parent widget sizeChanged:nil
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2287	].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2288	model value:nsel.
2177 87bb1815460b initial checkin ca parents: diff changeset	2289	].
87bb1815460b initial checkin ca parents: diff changeset	2290	!
87bb1815460b initial checkin ca parents: diff changeset	2291
3628 dae68c3b50a6 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3574 diff changeset	2292	doEditLanguageResources
dae68c3b50a6 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3574 diff changeset	2293	"open language editor on the application's resources:
dae68c3b50a6 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3574 diff changeset	2294	"
dae68c3b50a6 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3574 diff changeset	2295	\|inst\|
dae68c3b50a6 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3574 diff changeset	2296
dae68c3b50a6 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3574 diff changeset	2297	(inst := self objectToInspectOrBrowse:#application) isNil ifTrue:[^ self].
dae68c3b50a6 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3574 diff changeset	2298	Tools::InternationalLanguageTranslationEditor
dae68c3b50a6 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3574 diff changeset	2299	openOnPackage:inst class package
dae68c3b50a6 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3574 diff changeset	2300
dae68c3b50a6 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3574 diff changeset	2301	"Created: / 30-10-2018 / 16:26:17 / Claus Gittinger"
dae68c3b50a6 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3574 diff changeset	2302	!
dae68c3b50a6 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3574 diff changeset	2303
3174 cd45c49a0d63 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	2304	doEditWindowSpec
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	2305	\|mthd\|
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	2306
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	2307	mthd := self windowSpecMethodOfSelection.
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	2308	UIPainter openOnClass:mthd mclass andSelector:mthd selector
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	2309	!
cd45c49a0d63 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	2310
2177 87bb1815460b initial checkin ca parents: diff changeset	2311	doFlash
2455 93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	2312	"flash the selected view"
93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	2313
2177 87bb1815460b initial checkin ca parents: diff changeset	2314	\|view\|
87bb1815460b initial checkin ca parents: diff changeset	2315
87bb1815460b initial checkin ca parents: diff changeset	2316	view := self selectedView.
87bb1815460b initial checkin ca parents: diff changeset	2317	view isNil ifTrue:[ ^ self].
87bb1815460b initial checkin ca parents: diff changeset	2318
87bb1815460b initial checkin ca parents: diff changeset	2319	view shown ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2320	model withSelectionHiddenDo:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2321	view perform:#flash ifNotUnderstood:nil.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2322	].
2177 87bb1815460b initial checkin ca parents: diff changeset	2323	].
87bb1815460b initial checkin ca parents: diff changeset	2324	!
87bb1815460b initial checkin ca parents: diff changeset	2325
87bb1815460b initial checkin ca parents: diff changeset	2326	doInspect:what
87bb1815460b initial checkin ca parents: diff changeset	2327	"open inspector on:
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2328	#view inspect class
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2329	#group inspect windowGroup
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2330	#model inspect model
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2331	#application inspect application
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2332	#controller inspect controller
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2333	#process inspect application's process
2177 87bb1815460b initial checkin ca parents: diff changeset	2334	"
3167 95025cd0fbce class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3141 diff changeset	2335
2177 87bb1815460b initial checkin ca parents: diff changeset	2336	\|inst\|
87bb1815460b initial checkin ca parents: diff changeset	2337
3167 95025cd0fbce class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3141 diff changeset	2338	(inst := self objectToInspectOrBrowse:what) isNil ifTrue:[^ self].
95025cd0fbce class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3141 diff changeset	2339	inst inspect.
3049 292d06e8b7ae class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3040 diff changeset	2340
292d06e8b7ae class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3040 diff changeset	2341	"Modified: / 28-08-2013 / 23:58:27 / cg"
2177 87bb1815460b initial checkin ca parents: diff changeset	2342	!
87bb1815460b initial checkin ca parents: diff changeset	2343
3034 862cd32dc02f class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3017 diff changeset	2344	doOpenProcessMonitor
862cd32dc02f class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3017 diff changeset	2345	(ProcessMonitorV2 ? ProcessMonitor) open
862cd32dc02f class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3017 diff changeset	2346
862cd32dc02f class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3017 diff changeset	2347	"Created: / 25-07-2013 / 12:34:23 / cg"
862cd32dc02f class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3017 diff changeset	2348	!
862cd32dc02f class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3017 diff changeset	2349
2762 0c66aa3bfdff added: Claus Gittinger <cg@exept.de> parents: 2759 diff changeset	2350	doPickView
2455 93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	2351	"pick a window's topView"
93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	2352
2762 0c66aa3bfdff added: Claus Gittinger <cg@exept.de> parents: 2759 diff changeset	2353	\|screen clickedView topWindow cursor\|
2177 87bb1815460b initial checkin ca parents: diff changeset	2354
87bb1815460b initial checkin ca parents: diff changeset	2355	self doUnpick.
87bb1815460b initial checkin ca parents: diff changeset	2356
2759 d9a8fc3f0dc7 added: Claus Gittinger <cg@exept.de> parents: 2758 diff changeset	2357	cursor := Cursor fromImage:(self class crossHairIcon).
d9a8fc3f0dc7 added: Claus Gittinger <cg@exept.de> parents: 2758 diff changeset	2358
d9a8fc3f0dc7 added: Claus Gittinger <cg@exept.de> parents: 2758 diff changeset	2359	screen := Screen current.
2762 0c66aa3bfdff added: Claus Gittinger <cg@exept.de> parents: 2759 diff changeset	2360	clickedView := screen viewFromPoint:(screen pointFromUserShowing:cursor).
0c66aa3bfdff added: Claus Gittinger <cg@exept.de> parents: 2759 diff changeset	2361	clickedView isNil ifTrue:[^ self].
0c66aa3bfdff added: Claus Gittinger <cg@exept.de> parents: 2759 diff changeset	2362
0c66aa3bfdff added: Claus Gittinger <cg@exept.de> parents: 2759 diff changeset	2363	topWindow := clickedView topView.
0c66aa3bfdff added: Claus Gittinger <cg@exept.de> parents: 2759 diff changeset	2364
0c66aa3bfdff added: Claus Gittinger <cg@exept.de> parents: 2759 diff changeset	2365	( topWindow == Screen current rootView
0c66aa3bfdff added: Claus Gittinger <cg@exept.de> parents: 2759 diff changeset	2366	or:[topWindow == self window topView]
2177 87bb1815460b initial checkin ca parents: diff changeset	2367	) ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2368	^ self
2177 87bb1815460b initial checkin ca parents: diff changeset	2369	].
2978 a952dfdb1b6a class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 2888 diff changeset	2370
3070 648aad0e3777 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3049 diff changeset	2371	self showWindow:clickedView.
2177 87bb1815460b initial checkin ca parents: diff changeset	2372	!
87bb1815460b initial checkin ca parents: diff changeset	2373
2978 a952dfdb1b6a class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 2888 diff changeset	2374	doRedraw
a952dfdb1b6a class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 2888 diff changeset	2375	"redraw the app"
a952dfdb1b6a class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 2888 diff changeset	2376
3456 4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2377	\|rootView\|
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2378
3456 4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2379	(rootView := model rootView) notNil ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2380	rootView withAllSubViewsDo:[:v \| v "redraw; "invalidate].
3124 1973e28a2c75 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3123 diff changeset	2381	]
3456 4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2382
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2383	"Modified: / 16-08-2017 / 12:02:11 / cg"
2978 a952dfdb1b6a class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 2888 diff changeset	2384	!
a952dfdb1b6a class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 2888 diff changeset	2385
3168 894c517d8696 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3167 diff changeset	2386	doSelectNextElementStartingIn:anItem forWhich:aBlock
2177 87bb1815460b initial checkin ca parents: diff changeset	2387	\|startItem firstFound searchNext\|
87bb1815460b initial checkin ca parents: diff changeset	2388
87bb1815460b initial checkin ca parents: diff changeset	2389	startItem := model last.
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2390	searchNext := startItem notNil.
2177 87bb1815460b initial checkin ca parents: diff changeset	2391	firstFound := nil.
87bb1815460b initial checkin ca parents: diff changeset	2392
87bb1815460b initial checkin ca parents: diff changeset	2393	anItem recursiveDo:[:el\|
3525 5df4da794cd2 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 3524 diff changeset	2394	el == startItem ifTrue:[
5df4da794cd2 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 3524 diff changeset	2395	searchNext := false
5df4da794cd2 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 3524 diff changeset	2396	] ifFalse:[
5df4da794cd2 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 3524 diff changeset	2397	(aBlock value:el) ifTrue:[
5df4da794cd2 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 3524 diff changeset	2398	searchNext ifFalse:[^ model selectItem:el].
5df4da794cd2 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 3524 diff changeset	2399
5df4da794cd2 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 3524 diff changeset	2400	firstFound isNil ifTrue:[
5df4da794cd2 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 3524 diff changeset	2401	firstFound := el
5df4da794cd2 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 3524 diff changeset	2402	]
5df4da794cd2 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 3524 diff changeset	2403	]
5df4da794cd2 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 3524 diff changeset	2404	]
2177 87bb1815460b initial checkin ca parents: diff changeset	2405	].
87bb1815460b initial checkin ca parents: diff changeset	2406	firstFound notNil ifTrue:[
3525 5df4da794cd2 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 3524 diff changeset	2407	self beepInEditor.
5df4da794cd2 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 3524 diff changeset	2408	model selectItem:firstFound
2177 87bb1815460b initial checkin ca parents: diff changeset	2409	].
87bb1815460b initial checkin ca parents: diff changeset	2410	!
87bb1815460b initial checkin ca parents: diff changeset	2411
3168 894c517d8696 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3167 diff changeset	2412	doSelectNextOfApplicationClass:aClass startingIn:anItem
894c517d8696 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3167 diff changeset	2413	self doSelectNextElementStartingIn:anItem forWhich:[:el \| (self resolveApplicationClassFor:el) == aClass].
894c517d8696 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3167 diff changeset	2414	!
894c517d8696 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3167 diff changeset	2415
2177 87bb1815460b initial checkin ca parents: diff changeset	2416	doSelectNextOfClass:aClass startingIn:anItem
3168 894c517d8696 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3167 diff changeset	2417	self doSelectNextElementStartingIn:anItem forWhich:[:el \| el widget class == aClass].
2177 87bb1815460b initial checkin ca parents: diff changeset	2418	!
87bb1815460b initial checkin ca parents: diff changeset	2419
2978 a952dfdb1b6a class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 2888 diff changeset	2420	doUncatchEvents
3124 1973e28a2c75 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3123 diff changeset	2421	"release the inspected window (no longer catch its events)"
1973e28a2c75 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3123 diff changeset	2422
2978 a952dfdb1b6a class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 2888 diff changeset	2423	model catchEvents:false.
3124 1973e28a2c75 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3123 diff changeset	2424	isCatchingEventsChannel value:false.
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2425	"/ ((builder componentAt:'toolbarMenu') itemAt:#doUncatchEvents)
3124 1973e28a2c75 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3123 diff changeset	2426	"/ label:(self class releaseViewIcon);
1973e28a2c75 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3123 diff changeset	2427	"/ enabled:false;
1973e28a2c75 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3123 diff changeset	2428	"/ activeHelpKey:#doCatchEvents.
2978 a952dfdb1b6a class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 2888 diff changeset	2429	self doRedraw
a952dfdb1b6a class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 2888 diff changeset	2430	!
a952dfdb1b6a class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 2888 diff changeset	2431
2177 87bb1815460b initial checkin ca parents: diff changeset	2432	doUnpick
2455 93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	2433	"release current picked window and contained subwindows"
93aaf62a6b95 remove colors from window spec & rework ca parents: 2454 diff changeset	2434
2177 87bb1815460b initial checkin ca parents: diff changeset	2435	self setRootItem:nil.
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2436	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2437
3167 95025cd0fbce class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3141 diff changeset	2438	objectToInspectOrBrowse:what
95025cd0fbce class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3141 diff changeset	2439	"return one of:
3628 dae68c3b50a6 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3574 diff changeset	2440	#view for inspect/browse view/widget
dae68c3b50a6 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3574 diff changeset	2441	#group for inspect/browse windowGroup
dae68c3b50a6 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3574 diff changeset	2442	#model for inspect/browse model
dae68c3b50a6 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3574 diff changeset	2443	#application for inspect/browse application
dae68c3b50a6 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3574 diff changeset	2444	#masterApplication for inspect/browse master application
dae68c3b50a6 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3574 diff changeset	2445	#controller for inspect/browse controller
dae68c3b50a6 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3574 diff changeset	2446	#process for inspect/browse application's process
dae68c3b50a6 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3574 diff changeset	2447	#widgetClass for inspect/browse widget's class
dae68c3b50a6 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3574 diff changeset	2448	#menuItem for inspect/browse menuItem
3167 95025cd0fbce class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3141 diff changeset	2449	"
3302 413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	2450	\|view\|
3167 95025cd0fbce class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3141 diff changeset	2451
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2452	what == #menuItem ifTrue:[
3628 dae68c3b50a6 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3574 diff changeset	2453	^ model selectedItem menuItem
3457 3f3ea99e8af5 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3456 diff changeset	2454	].
3f3ea99e8af5 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3456 diff changeset	2455
3167 95025cd0fbce class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3141 diff changeset	2456	view := self selectedView.
95025cd0fbce class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3141 diff changeset	2457	view isNil ifTrue:[^ nil].
95025cd0fbce class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3141 diff changeset	2458
3302 413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	2459	what == #group ifTrue:[ ^ view windowGroup ].
413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	2460	what == #model ifTrue:[ ^ view model ].
413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	2461	what == #controller ifTrue:[ ^ view controller ].
413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	2462	what == #process ifTrue:[ ^ view windowGroup process ].
413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	2463	what == #sensor ifTrue:[ ^ view sensor ].
413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	2464	what == #application ifTrue:[ ^ view application ? view topView ].
3628 dae68c3b50a6 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3574 diff changeset	2465	what == #masterApplication ifTrue:[ ^ view application masterApplication ].
3302 413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	2466	what == #applicationClass ifTrue:[ ^ view application ? view topView ].
413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	2467
413a225308d1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	2468	^ view
3167 95025cd0fbce class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3141 diff changeset	2469
3457 3f3ea99e8af5 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3456 diff changeset	2470	"Modified: / 16-08-2017 / 13:57:36 / cg"
3628 dae68c3b50a6 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3574 diff changeset	2471	"Modified: / 30-10-2018 / 16:22:13 / Claus Gittinger"
3167 95025cd0fbce class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3141 diff changeset	2472	!
95025cd0fbce class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3141 diff changeset	2473
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2474	openDocumentation
3806 17b4f413d051 #OTHER by exept Claus Gittinger <cg@exept.de> parents: 3753 diff changeset	2475	"Called when <F1> is pressed"
17b4f413d051 #OTHER by exept Claus Gittinger <cg@exept.de> parents: 3753 diff changeset	2476
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2477	HTMLDocumentView openFullOnDocumentationFile:'tools/misc/TOP.html#VIEWTREEINSPECTOR'
3014 05208490cea6 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3000 diff changeset	2478	!
05208490cea6 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3000 diff changeset	2479
05208490cea6 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3000 diff changeset	2480	showWindow:aView
05208490cea6 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3000 diff changeset	2481	"show a particular window's topView hierarchy,
05208490cea6 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3000 diff changeset	2482	select the given view"
05208490cea6 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3000 diff changeset	2483
05208490cea6 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3000 diff changeset	2484	\| topWindow \|
05208490cea6 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3000 diff changeset	2485
05208490cea6 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3000 diff changeset	2486	topWindow := aView topView.
05208490cea6 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3000 diff changeset	2487
3124 1973e28a2c75 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3123 diff changeset	2488	self doCatchEvents.
3014 05208490cea6 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3000 diff changeset	2489	self setRootItem:(ViewTreeItem buildViewsFrom:topWindow).
05208490cea6 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3000 diff changeset	2490	self selectView:aView.
2177 87bb1815460b initial checkin ca parents: diff changeset	2491	! !
87bb1815460b initial checkin ca parents: diff changeset	2492
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2493	!ViewTreeInspectorApplication::MenuDesc class methodsFor:'building'!
2177 87bb1815460b initial checkin ca parents: diff changeset	2494
87bb1815460b initial checkin ca parents: diff changeset	2495	buildFromList:aList onGC:aMenu
87bb1815460b initial checkin ca parents: diff changeset	2496	\|tabSpec menu w menuPanel\|
87bb1815460b initial checkin ca parents: diff changeset	2497
87bb1815460b initial checkin ca parents: diff changeset	2498	w := 0.
87bb1815460b initial checkin ca parents: diff changeset	2499	aList do:[:el\| w := w max:(el widthOn:aMenu) ].
87bb1815460b initial checkin ca parents: diff changeset	2500
87bb1815460b initial checkin ca parents: diff changeset	2501	tabSpec := TabulatorSpecification new.
87bb1815460b initial checkin ca parents: diff changeset	2502	tabSpec unit:#pixel.
87bb1815460b initial checkin ca parents: diff changeset	2503	tabSpec positions:#(0 1.5 ).
87bb1815460b initial checkin ca parents: diff changeset	2504	tabSpec align:#(#left #left).
87bb1815460b initial checkin ca parents: diff changeset	2505
87bb1815460b initial checkin ca parents: diff changeset	2506	w := w + 15.
87bb1815460b initial checkin ca parents: diff changeset	2507	tabSpec positions:(Array with:0 with:w).
87bb1815460b initial checkin ca parents: diff changeset	2508
87bb1815460b initial checkin ca parents: diff changeset	2509	menu := Menu new.
87bb1815460b initial checkin ca parents: diff changeset	2510
87bb1815460b initial checkin ca parents: diff changeset	2511	aList do:[:el\|
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2512	menu addItem:(el asMenuItemWithTabulatorSpecification:tabSpec).
2177 87bb1815460b initial checkin ca parents: diff changeset	2513	].
87bb1815460b initial checkin ca parents: diff changeset	2514	menuPanel := MenuPanel menu:menu.
87bb1815460b initial checkin ca parents: diff changeset	2515	^ menuPanel
87bb1815460b initial checkin ca parents: diff changeset	2516	! !
87bb1815460b initial checkin ca parents: diff changeset	2517
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2518	!ViewTreeInspectorApplication::MenuDesc class methodsFor:'instance creation'!
2177 87bb1815460b initial checkin ca parents: diff changeset	2519
87bb1815460b initial checkin ca parents: diff changeset	2520	separator
87bb1815460b initial checkin ca parents: diff changeset	2521	^ self new
87bb1815460b initial checkin ca parents: diff changeset	2522	!
87bb1815460b initial checkin ca parents: diff changeset	2523
87bb1815460b initial checkin ca parents: diff changeset	2524	title:aTitle value:aValue
87bb1815460b initial checkin ca parents: diff changeset	2525	^ self title:aTitle value:aValue action:nil
87bb1815460b initial checkin ca parents: diff changeset	2526	!
87bb1815460b initial checkin ca parents: diff changeset	2527
87bb1815460b initial checkin ca parents: diff changeset	2528	title:aTitle value:aValue action:anAction
87bb1815460b initial checkin ca parents: diff changeset	2529	^ self new title:aTitle value:aValue action:anAction
87bb1815460b initial checkin ca parents: diff changeset	2530	! !
87bb1815460b initial checkin ca parents: diff changeset	2531
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2532	!ViewTreeInspectorApplication::MenuDesc methodsFor:'accessing'!
2177 87bb1815460b initial checkin ca parents: diff changeset	2533
87bb1815460b initial checkin ca parents: diff changeset	2534	title
87bb1815460b initial checkin ca parents: diff changeset	2535	^ title
87bb1815460b initial checkin ca parents: diff changeset	2536	! !
87bb1815460b initial checkin ca parents: diff changeset	2537
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2538	!ViewTreeInspectorApplication::MenuDesc methodsFor:'building'!
2177 87bb1815460b initial checkin ca parents: diff changeset	2539
87bb1815460b initial checkin ca parents: diff changeset	2540	asMenuItemWithTabulatorSpecification:aTabSpec
87bb1815460b initial checkin ca parents: diff changeset	2541	\|array\|
87bb1815460b initial checkin ca parents: diff changeset	2542
87bb1815460b initial checkin ca parents: diff changeset	2543	title isNil ifTrue:[ ^ MenuItem label:value ]. "/ separator
87bb1815460b initial checkin ca parents: diff changeset	2544
87bb1815460b initial checkin ca parents: diff changeset	2545	array := Array with:(title, ':') with:'------'.
87bb1815460b initial checkin ca parents: diff changeset	2546
87bb1815460b initial checkin ca parents: diff changeset	2547	value notNil ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2548	array at:2 put:(value printString, ' ')
2177 87bb1815460b initial checkin ca parents: diff changeset	2549	].
87bb1815460b initial checkin ca parents: diff changeset	2550
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2551	^ MenuItem
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2552	label:(MultiColListEntry fromStrings:array tabulatorSpecification:aTabSpec)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2553	value:action
2177 87bb1815460b initial checkin ca parents: diff changeset	2554	! !
87bb1815460b initial checkin ca parents: diff changeset	2555
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2556	!ViewTreeInspectorApplication::MenuDesc methodsFor:'instance creation'!
2177 87bb1815460b initial checkin ca parents: diff changeset	2557
87bb1815460b initial checkin ca parents: diff changeset	2558	title:aTitle value:aValue action:anAction
87bb1815460b initial checkin ca parents: diff changeset	2559	"test for separator
87bb1815460b initial checkin ca parents: diff changeset	2560	"
87bb1815460b initial checkin ca parents: diff changeset	2561	title := aTitle withoutSeparators.
87bb1815460b initial checkin ca parents: diff changeset	2562	action := anAction.
87bb1815460b initial checkin ca parents: diff changeset	2563
87bb1815460b initial checkin ca parents: diff changeset	2564	aValue notNil ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2565	value := aValue printString.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2566
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2567	value size > 70 ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2568	value := value copyFrom:1 to:70.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2569	value := value, '...'
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2570	]
2177 87bb1815460b initial checkin ca parents: diff changeset	2571	].
87bb1815460b initial checkin ca parents: diff changeset	2572	! !
87bb1815460b initial checkin ca parents: diff changeset	2573
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2574	!ViewTreeInspectorApplication::MenuDesc methodsFor:'queries'!
2177 87bb1815460b initial checkin ca parents: diff changeset	2575
87bb1815460b initial checkin ca parents: diff changeset	2576	isSeparator
87bb1815460b initial checkin ca parents: diff changeset	2577	^ title isNil
87bb1815460b initial checkin ca parents: diff changeset	2578	!
87bb1815460b initial checkin ca parents: diff changeset	2579
87bb1815460b initial checkin ca parents: diff changeset	2580	widthOn:aGC
87bb1815460b initial checkin ca parents: diff changeset	2581	title isNil ifTrue:[^ 5]. "/ separator
2758 c61fe917957a comment/format in:8 methods Claus Gittinger <cg@exept.de> parents: 2757 diff changeset	2582	^ title widthOn:aGC
2177 87bb1815460b initial checkin ca parents: diff changeset	2583	! !
87bb1815460b initial checkin ca parents: diff changeset	2584
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2585	!ViewTreeInspectorApplication::ViewTreeItem class methodsFor:'building'!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2586
3456 4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2587	buildMenuItemsFrom:aMenuItem
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2588	"build the items starting from a source menu item;
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2589	returns the anchor.
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2590	"
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2591	\|item subMenu subItems\|
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2592
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2593	aMenuItem isNil ifTrue:[^ nil].
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2594
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2595	item := self forMenuItem:aMenuItem.
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2596	subItems := OrderedCollection new.
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2597	(subMenu := aMenuItem submenuOrNil) notNil ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2598	subMenu items do:[:eachMenuItem \|
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2599	subItems add:(self buildMenuItemsFrom:eachMenuItem)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2600	].
3456 4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2601	].
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2602	item children:subItems.
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2603	^ item
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2604
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2605	"Created: / 16-08-2017 / 12:23:02 / cg"
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2606	!
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2607
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2608	buildViewsFrom:aView
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2609	"build the items starting from a source view;
3456 4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2610	returns the anchor.
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2611	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2612	\|item subViews subItems\|
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2613
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2614	aView isNil ifTrue:[^ nil].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2615
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2616	item := self forView:aView.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2617	subViews := aView subViews.
3456 4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2618	subItems := OrderedCollection new.
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2619
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2620	subViews notEmptyOrNil ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2621	subViews do:[:aSubView\|
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2622	subItems add:(self buildViewsFrom:aSubView).
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2623	].
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2624	].
3456 4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2625
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2626	(aView isKindOf:MenuPanel) ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2627	(aView items ? #()) do:[:eachMenuItem \|
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2628	subItems add:(self buildMenuItemsFrom:eachMenuItem)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2629	].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2630	].
3456 4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2631	item children:subItems.
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2632
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2633	^ item
3456 4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2634
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2635	"Modified: / 16-08-2017 / 12:43:35 / cg"
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2636	! !
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2637
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2638	!ViewTreeInspectorApplication::ViewTreeItem class methodsFor:'documentation'!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2639
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2640	documentation
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2641	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2642	ViewTreeItems represants a pickable object within a ViewTreeModel.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2643	The class is used to build up the hierarchical tree.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2644
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2645	[Instance variables:]
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2646	widget <View> the widget represented by the item
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2647	spec <UISpecification> the UISpecification or nil
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2648
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2649	[Class variables:]
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2650	HandleExtent <Point> keeps the extent of a handle
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2651
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2652
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2653	[author:]
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2654	Claus Atzkern
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2655
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2656	[see also:]
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2657	HierarchicalItem
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2658	ViewTreeModel
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2659	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2660	!
2177 87bb1815460b initial checkin ca parents: diff changeset	2661
87bb1815460b initial checkin ca parents: diff changeset	2662	version
87bb1815460b initial checkin ca parents: diff changeset	2663	^ '$Header$'
87bb1815460b initial checkin ca parents: diff changeset	2664	! !
87bb1815460b initial checkin ca parents: diff changeset	2665
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2666	!ViewTreeInspectorApplication::ViewTreeItem class methodsFor:'initialization'!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2667
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2668	initialize
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2669	"set the extent of the Handle
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2670	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2671	HandleExtent := 6@6.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2672	! !
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2673
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2674	!ViewTreeInspectorApplication::ViewTreeItem class methodsFor:'instance creation'!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2675
3456 4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2676	forMenuItem:aMenuItem
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2677	\|item\|
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2678
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2679	item := self basicNew initialize.
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2680	item forMenuItem:aMenuItem.
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2681	^ item
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2682
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2683	"Created: / 16-08-2017 / 12:07:55 / cg"
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2684	!
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2685
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2686	forView:aView
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2687	\|item\|
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2688
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2689	item := self basicNew initialize.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2690	item forView:aView.
3456 4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2691	^ item
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2692
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2693	"Modified (format): / 16-08-2017 / 12:07:40 / cg"
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2694	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2695
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2696	new
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2697	self error:'not allowed'.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2698	^ nil
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2699	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2700
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2701	on:aView withSpec:aSpec
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2702	\|item\|
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2703
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2704	item := self basicNew initialize.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2705	item on:aView withSpec:aSpec.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2706	^ item
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2707	! !
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2708
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2709	!ViewTreeInspectorApplication::ViewTreeItem methodsFor:'accessing'!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2710
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2711	applicationClass
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2712	\|appl\|
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2713
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2714	widget notNil ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2715	appl := widget application.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2716	appl notNil ifTrue:[^ appl class ].
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2717	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2718	^ nil
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2719	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2720
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2721	isDrawnShown
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2722	"returns true if the last display operations was done during the widget was shown
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2723	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2724	^ isDrawnShown
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2725	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2726
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2727	isDrawnShown:aBoolean
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2728	isDrawnShown := aBoolean.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2729	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2730
3551 94a23bbd725b #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 3532 diff changeset	2731	isMenuItem
94a23bbd725b #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 3532 diff changeset	2732	^ menuItem notNil
94a23bbd725b #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 3532 diff changeset	2733	!
94a23bbd725b #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 3532 diff changeset	2734
3456 4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2735	menuItem
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2736	^ menuItem
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2737	!
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2738
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2739	parent:aParent
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2740	super parent:aParent.
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2741
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2742	"Created: / 16-08-2017 / 12:40:26 / cg"
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2743	!
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2744
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2745	rootView
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2746	"returns the widget assigned to the root or nil
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2747	"
3216 41118d54b47c class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3213 diff changeset	2748	parent isNil ifTrue:[^ nil].
41118d54b47c class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3213 diff changeset	2749
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2750	^ parent rootView
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2751	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2752
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2753	specClass
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2754	"returns the spec-class assigned to the item
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2755	"
3456 4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2756	widget isNil ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2757	^ MenuPanelSpec
3456 4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2758	].
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2759	^ widget specClass
3456 4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2760
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2761	"Modified (format): / 16-08-2017 / 12:31:36 / cg"
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2762	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2763
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2764	treeModel
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2765	"returns the assigned treeModel, an instance of ViewTreeModel
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2766	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2767	^ parent treeModel
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2768	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2769
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2770	widget
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2771	"returns the widget assigned to the item
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2772	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2773	^ widget
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2774	! !
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2775
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2776	!ViewTreeInspectorApplication::ViewTreeItem methodsFor:'accessing layout'!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2777
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2778	boundsRelativeToRoot
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2779	"returns the bounds relative to the root widget
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2780	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2781	^ self originRelativeToRoot extent:(widget extent)
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2782	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2783
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2784	cornerRelativeToRoot
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2785	"returns the corner relative to the root widget
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2786	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2787	^ self originRelativeToRoot + (widget extent)
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2788	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2789
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2790	extent
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2791	"returns the extent of the widget
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2792	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2793	^ widget extent
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2794	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2795
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2796	layoutType
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2797	"returns the type of layout assigned to the wiget; nil if the
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2798	superView cannot resize its sub widgets
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2799	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2800	\|layout specClass superView\|
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2801
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2802	(superView := widget superView) isNil ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2803	^ #Extent
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2804	].
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2805
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2806	specClass := superView specClass.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2807
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2808	(specClass notNil and:[specClass isLayoutContainer]) ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2809	^ specClass canResizeSubComponents ifTrue:[#Extent] ifFalse:[nil]
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2810	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2811
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2812	(layout := widget geometryLayout) isNil ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2813	^ #Extent
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2814	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2815
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2816	layout isLayout ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2817	layout isLayoutFrame ifTrue:[ ^ #LayoutFrame ].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2818	layout isAlignmentOrigin ifTrue:[ ^ #AlignmentOrigin ].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2819	layout isLayoutOrigin ifTrue:[ ^ #LayoutOrigin ].
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2820	] ifFalse:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2821	layout isRectangle ifTrue:[ ^ #Rectangle ].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2822	layout isPoint ifTrue:[ ^ #Point ].
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2823
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2824	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2825	Transcript showCR:'UNSUPPORTRD LAYOUT: ', layout printString.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2826	^ nil
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2827	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2828
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2829	originRelativeToRoot
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2830	"returns the origin relative to the root widget
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2831	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2832	^ widget originRelativeTo:(self rootView)
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2833	! !
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2834
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2835	!ViewTreeInspectorApplication::ViewTreeItem methodsFor:'accessing optimize'!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2836
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2837	children
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2838	"redefined: optimize
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2839	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2840	^ children
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2841	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2842
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2843	hasChildren
3456 4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2844	"not only a query; also builds"
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2845
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2846	\|subViews list item subMenu\|
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2847
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2848	children isNil ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2849	isExpanded := false.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2850
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2851	list := OrderedCollection new.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2852
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2853	"/ it's either a widget or a menuItem
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2854	widget notNil ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2855	subViews := widget subViews.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2856	subViews notEmptyOrNil ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2857	subViews do:[:aSubView\|
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2858	item := self class buildViewsFrom:aSubView.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2859	item parent:self.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2860	list add:item.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2861	].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2862	].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2863	].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2864
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2865	menuItem notNil ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2866	(subMenu := menuItem submenuOrNil) notNil ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2867	subMenu items do:[:aSubItem\|
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2868	item := self class buildMenuItemsFrom:aSubItem.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2869	item parent:self.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2870	list add:item.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2871	].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2872	].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2873	].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2874	children := list.
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2875	].
3456 4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2876	^ children notEmpty
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2877
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2878	"Modified: / 16-08-2017 / 12:27:23 / cg"
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2879	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2880
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2881	size
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2882	"redefined: returns list of children
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2883	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2884	^ children size
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2885	! !
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2886
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2887	!ViewTreeInspectorApplication::ViewTreeItem methodsFor:'displaying'!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2888
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2889	additionalLabelForItem:anItem
3017 d971763e5d03 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3014 diff changeset	2890	"answer an additional label for an Item"
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2891
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2892	parent notNil ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2893	^ parent additionalLabelForItem:anItem
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2894	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2895	^ nil
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2896	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2897
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2898	displayIcon:anIcon atX:x y:y on:aGC
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2899	\|x0 y0 y1 w\|
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2900
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2901	super displayIcon:anIcon atX:x y:y on:aGC.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2902
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2903	self exists ifFalse:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2904	aGC paint:(Color red).
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2905
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2906	y0 := y + 1.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2907	y1 := y + anIcon height - 2.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2908
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2909	x0 := x - 1.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2910	w := anIcon width.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2911
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2912	2 timesRepeat:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2913	aGC displayLineFromX:x0 y:y0 toX:(x0 + w) y:y1.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2914	aGC displayLineFromX:x0 y:y1 toX:(x0 + w) y:y0.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2915	x0 := x0 + 1.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2916	].
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2917	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2918	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2919
3184 7ff3f8fb0b79 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3183 diff changeset	2920	displayOn:aGC x:x y:y h:h isHighlightedAsSelected:isHighlightedAsSelected
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2921	\|labelHeight additionalName label isValidAndShown\|
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2922
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2923	label := self label.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2924	label isEmptyOrNil ifTrue:[^ self].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2925
3456 4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2926	widget isNil ifTrue:[
3674 693d13243c07 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	2927	isValidAndShown := true.
3456 4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2928	] ifFalse:[
3674 693d13243c07 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	2929	widget id isNil ifTrue:[
693d13243c07 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	2930	isDrawnShown := false.
693d13243c07 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	2931
693d13243c07 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	2932	self exists ifFalse:[
693d13243c07 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	2933	xOffsetAdditionalName := nil.
693d13243c07 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	2934	].
693d13243c07 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	2935	isValidAndShown := false.
693d13243c07 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	2936	] ifFalse:[
693d13243c07 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	2937	isValidAndShown := widget shown.
693d13243c07 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	2938	].
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2939	].
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2940
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2941	isValidAndShown ifFalse:[
3753 eb97ded9cc8e #OTHER by exept Claus Gittinger <cg@exept.de> parents: 3752 diff changeset	2942	label := label allItalic allGray.
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2943	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2944
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2945	labelHeight := self heightOn:aGC.
3184 7ff3f8fb0b79 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3183 diff changeset	2946	self displayLabel:label h:labelHeight on:aGC x:x y:y h:h isHighlightedAsSelected:isHighlightedAsSelected.
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2947
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2948	xOffsetAdditionalName notNil ifTrue:[
3674 693d13243c07 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	2949	additionalName := self additionalLabelForItem:self.
693d13243c07 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	2950
693d13243c07 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	2951	additionalName notNil ifTrue:[
693d13243c07 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	2952	self displayLabel:additionalName
693d13243c07 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	2953	h:labelHeight on:aGC
693d13243c07 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	2954	x:(x + xOffsetAdditionalName) y:y
693d13243c07 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	2955	h:h.
693d13243c07 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	2956	] ifFalse:[
693d13243c07 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	2957	xOffsetAdditionalName := nil.
693d13243c07 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	2958	].
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2959	].
3456 4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2960
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	2961	"Modified (format): / 16-08-2017 / 12:57:39 / cg"
3674 693d13243c07 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 3667 diff changeset	2962	"Modified: / 07-06-2019 / 22:14:30 / Claus Gittinger"
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2963	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2964
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2965	recursiveAdditionalNameBehaviourChanged
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2966	width := xOffsetAdditionalName := nil.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2967
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2968	children notNil ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2969	children do:[:each\| each recursiveAdditionalNameBehaviourChanged ]
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2970	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2971	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2972
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2973	widthOn:aGC
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2974	"return the width of the receiver, if it is to be displayed on aGC
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2975	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2976	\|additionalName\|
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2977
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2978	width isNil ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2979	width := self widthOf:(self label) on:aGC.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2980	width := width + 2.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2981
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2982	additionalName := self additionalLabelForItem:self.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2983
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2984	additionalName notNil ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2985	xOffsetAdditionalName := width + 10.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2986	width := xOffsetAdditionalName + (self widthOf:additionalName on:aGC).
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2987	width := width + 2.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2988	] ifFalse:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2989	xOffsetAdditionalName := nil.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	2990	].
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2991	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2992	^ width
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2993	! !
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2994
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2995	!ViewTreeInspectorApplication::ViewTreeItem methodsFor:'enumerating'!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2996
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2997	handlesDo:aTwoArgAction
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2998	"evaluate the two arg block on each handle; the arguments to the block is
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	2999	the rectangle relative to the rootView and the handle type which is
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3000	set to nil if not resizeable.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3001
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3002	TYPES: type position( X - Y )
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3003	-------------------------
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3004	#LT Left - Top
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3005	#LC Left - Center
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3006	#LB Left - Bottom
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3007	#CT Center - Top
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3008	#CB Center - Bottom
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3009	#RT Right - Top
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3010	#RC Right - Center
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3011	#RB Right - Bottom
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3012
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3013	nil handle not pickable
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3014	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3015	\|type relOrg relCrn maxExt rootView w h
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3016	xL "{ Class:SmallInteger }"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3017	xC "{ Class:SmallInteger }"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3018	xR "{ Class:SmallInteger }"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3019	yT "{ Class:SmallInteger }"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3020	yC "{ Class:SmallInteger }"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3021	yB "{ Class:SmallInteger }"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3022	\|
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3023	rootView := self rootView.
3217 af9fd0c681e0 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3216 diff changeset	3024	rootView isNil ifTrue:[^ self ].
af9fd0c681e0 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3216 diff changeset	3025
3456 4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	3026	widget isNil ifTrue:[^ self].
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	3027
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3028	relOrg := widget originRelativeTo:rootView.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3029	relOrg isNil ifTrue:[ ^ self ]. "/ widget destroyed
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3030
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3031	relOrg := relOrg - (HandleExtent // 2).
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3032	relCrn := relOrg + widget extent.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3033	maxExt := rootView extent - HandleExtent.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3034
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3035	xL := relOrg x max:0.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3036	xR := relCrn x min:(maxExt x).
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3037	xC := xR + xL // 2.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3038
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3039	yT := relOrg y max:0.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3040	yB := relCrn y min:(maxExt y).
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3041	yC := yB + yT // 2.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3042
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3043	type := self layoutType.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3044	w := HandleExtent x.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3045	h := HandleExtent y.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3046
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3047	(type == #LayoutFrame or:[type == #Rectangle]) ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3048	aTwoArgAction value:(Rectangle left:xL top:yT width:w height:h) value:#LT.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3049	aTwoArgAction value:(Rectangle left:xL top:yC width:w height:h) value:#LC.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3050	aTwoArgAction value:(Rectangle left:xL top:yB width:w height:h) value:#LB.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3051	aTwoArgAction value:(Rectangle left:xC top:yT width:w height:h) value:#CT.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3052	aTwoArgAction value:(Rectangle left:xC top:yB width:w height:h) value:#CB.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3053	aTwoArgAction value:(Rectangle left:xR top:yT width:w height:h) value:#RT.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3054	aTwoArgAction value:(Rectangle left:xR top:yC width:w height:h) value:#RC.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3055	aTwoArgAction value:(Rectangle left:xR top:yB width:w height:h) value:#RB.
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3056	^ self
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3057	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3058
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3059	aTwoArgAction value:(Rectangle left:xL top:yT width:w height:h) value:nil.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3060	aTwoArgAction value:(Rectangle left:xL top:yB width:w height:h) value:nil.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3061	aTwoArgAction value:(Rectangle left:xR top:yT width:w height:h) value:nil.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3062
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3063	type == #Extent ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3064	aTwoArgAction value:(Rectangle left:xC top:yB width:w height:h) value:#CB.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3065	aTwoArgAction value:(Rectangle left:xR top:yC width:w height:h) value:#RC.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3066	aTwoArgAction value:(Rectangle left:xR top:yB width:w height:h) value:#RB.
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3067	^ self
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3068	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3069	aTwoArgAction value:(Rectangle left:xR top:yB width:w height:h) value:nil.
3456 4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	3070
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	3071	"Modified: / 16-08-2017 / 13:04:27 / cg"
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3072	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3073
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3074	recursiveEachVisibleItemDo:anOneArgBlock
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3075	"recursive evaluate the block on each child which is visible
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3076	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3077	(isExpanded and:[children size > 0]) ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3078	children do:[:aChild\|
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3079	anOneArgBlock value:aChild.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3080	aChild recursiveEachVisibleItemDo:anOneArgBlock.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3081	]
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3082	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3083	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3084
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3085	subViewsDo:aOneArgBlock
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3086	"evaluate aBlock for all subviews other than InputView's
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3087	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3088	\|subViews\|
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3089
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3090	subViews := widget subViews.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3091
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3092	subViews notNil ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3093	subViews do:aOneArgBlock
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3094	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3095	! !
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3096
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3097	!ViewTreeInspectorApplication::ViewTreeItem methodsFor:'initialization'!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3098
3456 4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	3099	forMenuItem:aMenuItem
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	3100	menuItem := aMenuItem.
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	3101
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	3102	"Created: / 16-08-2017 / 12:08:50 / cg"
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	3103	!
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	3104
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3105	forView:aView
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3106	widget := aView.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3107	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3108
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3109	initialize
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3110	"setup default attributes
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3111	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3112	super initialize.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3113	isDrawnShown := false.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3114	isExpanded := false.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3115	children := OrderedCollection new.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3116	! !
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3117
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3118	!ViewTreeInspectorApplication::ViewTreeItem methodsFor:'operations delete'!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3119
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3120	delete
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3121	"delete self and all contained items; the assigned views are destroyed
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3122	in case of rootView, only the children are deleted
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3123	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3124	parent isHierarchicalItem ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3125	self criticalDo:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3126	parent remove:self.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3127	widget destroy.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3128	]
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3129	] ifFalse:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3130	self deleteAll
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3131	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3132	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3133
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3134	deleteAll
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3135	"delete all contained items; the assigned views are destroyed
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3136	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3137	children size == 0 ifTrue:[^ self].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3138
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3139	self criticalDo:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3140	self nonCriticalDo:[:el\| el widget destroy ].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3141	self removeAll
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3142	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3143	! !
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3144
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3145	!ViewTreeInspectorApplication::ViewTreeItem methodsFor:'operations layout'!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3146
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3147	asLayoutFrame
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3148	"convert the layout of the widget to a LayoutFrame;
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3149	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3150	\|extent layout newLyt lftFrc lftOff topFrc topOff\|
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3151
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3152	layout := widget geometryLayout.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3153
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3154	layout isNil ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3155	^ widget bounds asLayout
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3156	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3157
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3158	layout isLayout ifFalse:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3159	layout isRectangle ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3160	^ LayoutFrame leftOffset:(layout left) rightOffset:(layout right)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3161	topOffset:(layout top) bottomOffset:(layout bottom)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3162	].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3163	layout isPoint ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3164	extent := widget extent.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3165	^ LayoutFrame leftOffset:(layout x) rightOffset:(layout x + extent x)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3166	topOffset:(layout y) bottomOffset:(layout y + extent y)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3167	].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3168
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3169	Transcript showCR:'UNSUPPORTRD LAYOUT: ', layout printString.
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3170	^ nil
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3171	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3172
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3173	layout isLayoutFrame ifTrue:[ ^ layout copy ].
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3174
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3175	lftFrc := layout leftFraction.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3176	lftOff := layout leftOffset.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3177	topFrc := layout topFraction.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3178	topOff := layout topOffset.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3179	extent := widget extent.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3180
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3181	newLyt := LayoutFrame leftFraction:lftFrc offset:lftOff
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3182	rightFraction:lftFrc offset:(lftOff + extent x)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3183	topFraction:topFrc offset:topOff
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3184	bottomFraction:topFrc offset:(topOff + extent y).
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3185
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3186	( layout isAlignmentOrigin
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3187	and:[(layout leftAlignmentFraction ~= 0 or:[layout topAlignmentFraction ~= 0])]
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3188	) ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3189	\|svRc prBd dlta\|
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3190
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3191	svRc := widget superView viewRectangle.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3192	prBd := widget preferredBounds.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3193
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3194	dlta := ( ((layout rectangleRelativeTo:svRc preferred:prBd) corner)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3195	- ((newLyt rectangleRelativeTo:svRc preferred:prBd) corner)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3196	) rounded.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3197
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3198	newLyt leftOffset:(lftOff + dlta x).
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3199	newLyt rightOffset:(lftOff + extent x + dlta x).
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3200	newLyt topOffset:(topOff + dlta y).
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3201	newLyt bottomOffset:(topOff + extent y + dlta y).
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3202	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3203	^ newLyt
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3204	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3205
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3206	moveLeft:l top:t
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3207	"move the widget n pixele left and right
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3208	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3209	\|layout\|
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3210
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3211	self isMoveable ifFalse:[ ^ self ].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3212
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3213	(layout := widget geometryLayout) isNil ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3214	"Extent"
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3215	widget origin:(widget origin + (l@t)).
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3216	^ self
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3217	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3218
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3219	layout := layout copy.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3220
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3221	layout isLayout ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3222	layout leftOffset:(layout leftOffset + l)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3223	topOffset:(layout topOffset + t).
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3224
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3225	layout isLayoutFrame ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3226	layout rightOffset:(layout rightOffset + l).
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3227	layout bottomOffset:(layout bottomOffset + t).
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3228	]
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3229
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3230	] ifFalse:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3231	layout isRectangle ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3232	layout setLeft:(layout left + l).
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3233	layout setTop:(layout top + t).
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3234	] ifFalse:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3235	layout isPoint ifFalse:[^ self].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3236	layout x:(layout x + l) y:(layout y + t).
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3237	]
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3238	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3239	widget geometryLayout:layout.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3240	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3241
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3242	resizeLeft:l top:t right:r bottom:b
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3243	"resize the widget measured in pixels
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3244	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3245	\|layout\|
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3246
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3247	self isResizeable ifFalse:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3248	^ self
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3249	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3250
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3251	(layout := widget geometryLayout) isNil ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3252	"Extent"
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3253	(r == l and:[b == t]) ifFalse:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3254	widget extent:(widget computeExtent + ((r-l) @ (b-t))).
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3255	].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3256	^ self
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3257	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3258
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3259	layout isLayout ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3260	layout := layout copy.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3261
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3262	layout leftOffset:(layout leftOffset + l)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3263	topOffset:(layout topOffset + t).
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3264
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3265	layout isLayoutFrame ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3266	layout bottomOffset:(layout bottomOffset + b).
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3267	layout rightOffset:(layout rightOffset + r).
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3268	]
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3269	] ifFalse:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3270	layout isRectangle ifFalse:[^ self].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3271	layout := layout copy.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3272
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3273	layout left:(layout left + l)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3274	right:(layout right + r)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3275	top:(layout top + t)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3276	bottom:(layout bottom + b).
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3277	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3278	widget geometryLayout:layout.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3279	! !
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3280
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3281	!ViewTreeInspectorApplication::ViewTreeItem methodsFor:'operations update'!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3282
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3283	updateChildren
3209 c13a1f4f4ccb class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3186 diff changeset	3284	\|queue\|
c13a1f4f4ccb class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3186 diff changeset	3285
3532 12b7b904b5e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 3525 diff changeset	3286	queue := OrderedCollection with:self.
3209 c13a1f4f4ccb class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3186 diff changeset	3287
c13a1f4f4ccb class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3186 diff changeset	3288	self criticalDo:[
3532 12b7b904b5e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 3525 diff changeset	3289	[queue notEmpty] whileTrue:[
12b7b904b5e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 3525 diff changeset	3290	\|toRemove elProcessed\|
12b7b904b5e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 3525 diff changeset	3291
12b7b904b5e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 3525 diff changeset	3292	elProcessed := queue removeFirst.
12b7b904b5e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 3525 diff changeset	3293	toRemove := nil.
12b7b904b5e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 3525 diff changeset	3294	elProcessed nonCriticalDo:[:el\|
12b7b904b5e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 3525 diff changeset	3295	el exists ifTrue:[
12b7b904b5e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 3525 diff changeset	3296	queue add:el.
12b7b904b5e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 3525 diff changeset	3297	] ifFalse:[
12b7b904b5e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 3525 diff changeset	3298	toRemove isNil ifTrue:[toRemove := OrderedCollection new].
12b7b904b5e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 3525 diff changeset	3299	toRemove add:el.
12b7b904b5e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 3525 diff changeset	3300	]
12b7b904b5e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 3525 diff changeset	3301	].
12b7b904b5e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 3525 diff changeset	3302	toRemove notNil ifTrue:[
12b7b904b5e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 3525 diff changeset	3303	toRemove do:[:el\| elProcessed remove:el ].
12b7b904b5e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 3525 diff changeset	3304	].
12b7b904b5e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 3525 diff changeset	3305	].
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3306	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3307	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3308
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3309	updateFromChildren:mergedList
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3310	"update my children against the list of items derived from
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3311	the merged list.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3312	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3313
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3314	mergedList size == 0 ifTrue:[ ^ self removeAll ].
3747 92077573d5c4 #QUALITY by exept Claus Gittinger <cg@exept.de> parents: 3746 diff changeset	3315	children size == 0 ifTrue:[ self addAll:mergedList. ^mergedList ].
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3316
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3317	self criticalDo:[
3747 92077573d5c4 #QUALITY by exept Claus Gittinger <cg@exept.de> parents: 3746 diff changeset	3318	self nonCriticalDo:[:el\| \|wdg\|
92077573d5c4 #QUALITY by exept Claus Gittinger <cg@exept.de> parents: 3746 diff changeset	3319	wdg := el widget.
92077573d5c4 #QUALITY by exept Claus Gittinger <cg@exept.de> parents: 3746 diff changeset	3320	mergedList detect:[:e2\| e2 widget == wdg ] ifNone:[ self remove:el ].
92077573d5c4 #QUALITY by exept Claus Gittinger <cg@exept.de> parents: 3746 diff changeset	3321	].
92077573d5c4 #QUALITY by exept Claus Gittinger <cg@exept.de> parents: 3746 diff changeset	3322
92077573d5c4 #QUALITY by exept Claus Gittinger <cg@exept.de> parents: 3746 diff changeset	3323	mergedList keysAndValuesDo:[:i :el\| \|wdg e2\|
92077573d5c4 #QUALITY by exept Claus Gittinger <cg@exept.de> parents: 3746 diff changeset	3324	wdg := el widget.
92077573d5c4 #QUALITY by exept Claus Gittinger <cg@exept.de> parents: 3746 diff changeset	3325
92077573d5c4 #QUALITY by exept Claus Gittinger <cg@exept.de> parents: 3746 diff changeset	3326	e2 := self at:i ifAbsent:nil.
92077573d5c4 #QUALITY by exept Claus Gittinger <cg@exept.de> parents: 3746 diff changeset	3327
92077573d5c4 #QUALITY by exept Claus Gittinger <cg@exept.de> parents: 3746 diff changeset	3328	(e2 isNil or:[e2 widget ~~ wdg]) ifTrue:[
92077573d5c4 #QUALITY by exept Claus Gittinger <cg@exept.de> parents: 3746 diff changeset	3329	self add:el beforeIndex:i
92077573d5c4 #QUALITY by exept Claus Gittinger <cg@exept.de> parents: 3746 diff changeset	3330	]
92077573d5c4 #QUALITY by exept Claus Gittinger <cg@exept.de> parents: 3746 diff changeset	3331	]
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3332	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3333	! !
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3334
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3335	!ViewTreeInspectorApplication::ViewTreeItem methodsFor:'printing & storing'!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3336
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3337	icon
3456 4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	3338	"get the icon used for presentation"
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	3339
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3340	\|specClass model\|
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3341
3456 4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	3342	menuItem notNil ifTrue:[
3667 0b24b3e8c949 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3660 diff changeset	3343	menuItem isSeparator ifTrue:[
0b24b3e8c949 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3660 diff changeset	3344	(parent widget perform:#isVerticalLayout ifNotUnderstood:[^ DividerSpec icon]) ifTrue:[
0b24b3e8c949 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3660 diff changeset	3345	^ DividerSpec horizontalIcon.
0b24b3e8c949 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3660 diff changeset	3346	].
0b24b3e8c949 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3660 diff changeset	3347	^ DividerSpec verticalIcon.
0b24b3e8c949 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3660 diff changeset	3348	].
0b24b3e8c949 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3660 diff changeset	3349	menuItem label isImage ifTrue:[
0b24b3e8c949 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3660 diff changeset	3350	^ menuItem label magnifiedTo:20@20.
0b24b3e8c949 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3660 diff changeset	3351	].
3456 4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	3352	].
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3353
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3354	specClass := self specClass.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3355	specClass isNil ifTrue:[^ nil].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3356
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3357	model := self treeModel.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3358	model notNil ifTrue:[
3667 0b24b3e8c949 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3660 diff changeset	3359	^ model iconAt:specClass ifNonePut:[specClass icon]
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3360	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3361	^ specClass icon
3456 4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	3362
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	3363	"Modified: / 16-08-2017 / 13:00:35 / cg"
3667 0b24b3e8c949 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3660 diff changeset	3364	"Modified: / 27-05-2019 / 13:27:28 / Claus Gittinger"
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3365	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3366
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3367	label
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3368	"get the label used for presentation
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3369	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3370	^ self string
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3371	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3372
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3373	printOn:aStream
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3374	"append a a printed representation of the item to aStream
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3375	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3376	aStream nextPutAll:(self string)
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3377	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3378
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3379	string
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3380	"get the string
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3381	"
3456 4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	3382	widget isNil ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3383	^ menuItem class name
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3384	].
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3385	^ widget class name.
3456 4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	3386
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	3387	"Modified: / 16-08-2017 / 13:45:39 / cg"
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3388	! !
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3389
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3390	!ViewTreeInspectorApplication::ViewTreeItem methodsFor:'queries'!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3391
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3392	canChangeLayout
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3393	"returns true if the layout of the widget can be changed and the
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3394	layout is not organized by its superView
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3395	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3396	^ self isResizeable
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3397	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3398
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3399	canResizeSubComponents
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3400	"returns true if the widget can resize its sub components
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3401	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3402	\|specClass\|
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3403
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3404	specClass := self specClass.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3405
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3406	specClass notNil ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3407	^ specClass canResizeSubComponents
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3408	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3409	^ false
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3410	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3411
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3412	exists
3456 4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	3413	widget isNil ifTrue:[^ menuItem notNil].
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3414	widget id notNil ifTrue:[^ true ].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3415
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3416	exists ~~ false ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3417	exists := false.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3418
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3419	widget superView notNil ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3420	(parent isHierarchicalItem and:[parent exists]) ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3421	exists := (parent widget subViews includesIdentical:widget).
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3422	].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3423	].
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3424	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3425	^ exists
3456 4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	3426
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	3427	"Modified: / 16-08-2017 / 12:47:50 / cg"
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3428	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3429
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3430	isApplicationClass
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3431	\|cls\|
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3432
3551 94a23bbd725b #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 3532 diff changeset	3433	widget isNil ifTrue:[^ false].
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3434	cls := widget class.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3435
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3436	^ ( cls == ApplicationSubView
3551 94a23bbd725b #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 3532 diff changeset	3437	or:[cls == ApplicationWindow
94a23bbd725b #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 3532 diff changeset	3438	or:[cls == SubCanvas]]
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3439	)
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3440	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3441
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3442	isSelected
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3443	\|model\|
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3444
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3445	model := self treeModel.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3446	model notNil ifTrue:[^ model isSelected:self].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3447	^ false
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3448	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3449
3551 94a23bbd725b #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 3532 diff changeset	3450	isView
94a23bbd725b #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 3532 diff changeset	3451	^ widget notNil
94a23bbd725b #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 3532 diff changeset	3452	!
94a23bbd725b #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 3532 diff changeset	3453
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3454	supportsSubComponents
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3455	"returns true if the widget supports sub components
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3456	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3457	\|specClass\|
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3458
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3459	widget isScrollWrapper ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3460	^ false
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3461	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3462	specClass := self specClass.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3463
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3464	specClass notNil ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3465	^ specClass supportsSubComponents
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3466	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3467	^ false
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3468	! !
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3469
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3470	!ViewTreeInspectorApplication::ViewTreeItem methodsFor:'testing'!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3471
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3472	isInLayoutContainer
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3473	"returns true if the widget is in a layout container
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3474	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3475	\|sv specClass\|
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3476
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3477	sv := widget superView.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3478
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3479	sv notNil ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3480	specClass := sv specClass.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3481
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3482	specClass notNil ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3483	^ specClass isLayoutContainer
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3484	].
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3485	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3486	^ false
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3487	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3488
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3489	isLayoutContainer
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3490	"answer whether corresponding view instances of the spec class can contain
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3491	(and arrange) other view
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3492	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3493	\|specClass\|
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3494
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3495	specClass := self specClass.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3496
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3497	specClass notNil ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3498	^ specClass isLayoutContainer
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3499	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3500	^ false
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3501	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3502
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3503	isMoveable
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3504	"returns true if the widget is not in a layout container
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3505	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3506	self isInLayoutContainer ifFalse:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3507	^ widget superView notNil
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3508	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3509	^ false
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3510	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3511
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3512	isResizeable
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3513	"returns true if the widget is resizeable
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3514	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3515	\|sv specClass\|
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3516
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3517	sv := widget superView.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3518
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3519	sv notNil ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3520	specClass := sv specClass.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3521
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3522	specClass notNil ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3523	^ specClass canResizeSubComponents
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3524	].
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3525	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3526	^ false
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3527	! !
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3528
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3529	!ViewTreeInspectorApplication::ViewTreeModel class methodsFor:'documentation'!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3530
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3531	documentation
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3532	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3533	Instances of ViewTreeModel can be used as model on a View and all
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3534	it contained subviews for a HierarchicalListView.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3535	The model keeps two values, the hierarchical representation of the views
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3536	and subviews (ViewTreeItems) and the selection, a list of selected ViewTreeItems's.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3537	It shows the selected items highlighted.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3538
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3539
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3540	[Instance variables:]
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3541	lockSema <Semaphore> lock selection notifications and redraws
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3542
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3543	testModeChannel <ValueHolder> true, than running in test mode.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3544
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3545	hasTargetWidgetChannel <ValueHolder> true, than any target view is grapped
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3546
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3547	selection <Sequence or nil> selected items or nil
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3548
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3549	hiddenLevel <Integer> internal use; redrawing the selection
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3550	only is done if the counter is 0.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3551
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3552	listOfItems <HierarchicalList> hiearchical list build from existing items.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3553
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3554	selectedSuperItems <Sequence> list of selected super items; items selected
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3555	but not contained in another selected item.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3556
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3557	inputEventAction <Action> called for each InputEvent
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3558
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3559	mappedViewAction <Action> called for a new mapped view which
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3560	can not be found in the current item list.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3561
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3562	beforeSelectionChangedAction <Action> called before the selection changed
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3563
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3564	[author:]
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3565	Claus Atzkern
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3566
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3567	[see also:]
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3568	ViewTreeItem
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3569	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3570	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3571
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3572	examples
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3573	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3574	example 1: pick any window and show views and contained views
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3575	[exBegin]
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3576	\|top sel model panel\|
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3577
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3578	model := ViewTreeModel new.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3579	top := StandardSystemView new; extent:440@400.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3580	sel := ScrollableView for:HierarchicalListView miniScroller:true origin:0.0@0.0 corner:1.0@1.0 in:top.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3581	sel bottomInset:24.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3582
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3583	panel := HorizontalPanelView origin:0.0@1.0 corner:1.0@1.0 in:top.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3584	panel topInset:-24.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3585	panel horizontalLayout:#fitSpace.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3586
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3587	Button label:'Exit' action:[model rootItem:nil. top destroy] in:panel.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3588	Button label:'Pick Views' action:[ \|win\|
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3589	( (win := Screen current viewFromUser) notNil
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3590	and:[(win := win topView) ~~ Screen current rootView
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3591	and:[win ~~ top]]
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3592	) ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3593	model rootItem:(ViewTreeItem buildViewsFrom:win)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3594	] ifFalse:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3595	model rootItem:nil
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3596	]
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3597	] in:panel.
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3598
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3599	sel multipleSelectOk:true.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3600	sel list:model listOfItems.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3601	sel model:model.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3602	sel useIndex:false.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3603
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3604	sel doubleClickAction:[:i\| \|el\|
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3605	el := model listOfItems at:i.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3606	el spec notNil ifTrue:[ el spec inspect ] ifFalse:[ el widget inspect ]
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3607	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3608	sel indicatorAction:[:i\| (model listOfItems at:i) toggleExpand ].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3609
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3610	model inputEventAction:[:anEvent\| \|item\|
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3611	anEvent isButtonEvent ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3612	anEvent isButtonPressEvent ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3613	model selectedItem:(model listOfItems detectItemRespondsToView:(anEvent view)).
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3614	] ifFalse:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3615	anEvent type == #'buttonMultiPress:x:y:' ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3616	(item := model selectedItem) notNil ifTrue:[item widget inspect]
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3617	]
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3618	]
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3619	]
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3620	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3621
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3622	top openAndWait.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3623	[[top shown] whileTrue:[Delay waitForSeconds:0.5]. model rootItem:nil] forkAt:8
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3624
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3625	[exEnd]
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3626	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3627	! !
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3628
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3629	!ViewTreeInspectorApplication::ViewTreeModel methodsFor:'accessing'!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3630
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3631	application:anApplication
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3632	listOfItems application:anApplication.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3633	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3634
2978 a952dfdb1b6a class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 2888 diff changeset	3635	catchEvents:aBoolean
a952dfdb1b6a class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 2888 diff changeset	3636	catchEvents := aBoolean.
a952dfdb1b6a class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 2888 diff changeset	3637	aBoolean ifFalse:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3638	self redrawUnselected:selection andLock:false checkTestMode:false.
2978 a952dfdb1b6a class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 2888 diff changeset	3639	].
a952dfdb1b6a class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 2888 diff changeset	3640	!
a952dfdb1b6a class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 2888 diff changeset	3641
3112 80453ab62df9 Added field that shows XPath like path to selected widged. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3105 diff changeset	3642	path
80453ab62df9 Added field that shows XPath like path to selected widged. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3105 diff changeset	3643	"Return a XPath like path to this item"
80453ab62df9 Added field that shows XPath like path to selected widged. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3105 diff changeset	3644
80453ab62df9 Added field that shows XPath like path to selected widged. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3105 diff changeset	3645	\| view views\|
80453ab62df9 Added field that shows XPath like path to selected widged. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3105 diff changeset	3646
80453ab62df9 Added field that shows XPath like path to selected widged. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3105 diff changeset	3647	selection isNil ifTrue:[ ^ nil ].
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3648	selection isCollection ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3649	selection size ~~ 1 ifTrue:[ ^ nil ].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3650	view := selection anElement widget.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3651	] ifFalse:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3652	view := selection widget.
3112 80453ab62df9 Added field that shows XPath like path to selected widged. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3105 diff changeset	3653	].
3456 4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	3654	view isNil ifTrue:[^ nil].
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3655
3112 80453ab62df9 Added field that shows XPath like path to selected widged. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3105 diff changeset	3656	views := OrderedCollection new.
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3657	[ view notNil ] whileTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3658	views add: view.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3659	view := view superView.
3112 80453ab62df9 Added field that shows XPath like path to selected widged. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3105 diff changeset	3660	].
80453ab62df9 Added field that shows XPath like path to selected widged. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3105 diff changeset	3661	views removeLast.
80453ab62df9 Added field that shows XPath like path to selected widged. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3105 diff changeset	3662	^ String streamContents:[ :s\|
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3663	views reverseDo:[:each \|
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3664	s nextPutAll:'/'.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3665	s nextPutAll: each name asString "storeString".
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3666	].
3112 80453ab62df9 Added field that shows XPath like path to selected widged. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3105 diff changeset	3667	]
80453ab62df9 Added field that shows XPath like path to selected widged. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3105 diff changeset	3668
80453ab62df9 Added field that shows XPath like path to selected widged. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3105 diff changeset	3669	"Created: / 19-05-2014 / 18:15:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3456 4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	3670	"Modified: / 16-08-2017 / 13:03:47 / cg"
3112 80453ab62df9 Added field that shows XPath like path to selected widged. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3105 diff changeset	3671	!
80453ab62df9 Added field that shows XPath like path to selected widged. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3105 diff changeset	3672
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3673	rootItem
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3674	"get the rootItem the event viewer is established on
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3675	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3676	^ listOfItems root
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3677	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3678
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3679	rootItem:anItem
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3680	"set the rootItem the event viewer is established on
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3681	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3682	\|expanded\|
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3683
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3684	timedUpdateTask := nil.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3685	self deselect.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3686
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3687	lockSema critical:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3688	anItem notNil ifTrue:[ expanded := anItem isExpanded ]
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3689	ifFalse:[ expanded := false ].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3690
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3691	self value:nil.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3692	listOfItems root:anItem.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3693
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3694	anItem notNil ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3695	timedUpdateTask := Process for:[ self timedUpdateTaskCycle ] priority:8.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3696	timedUpdateTask name:'Update'.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3697	timedUpdateTask resume.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3698	].
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3699	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3700
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3701	(expanded and:[anItem notNil]) ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3702	anItem expand
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3703	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3704	^ anItem
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3705	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3706
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3707	rootView
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3708	"get the top widget the event viewer is established on, a View
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3709	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3710	^ listOfItems rootView
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3711	! !
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3712
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3713	!ViewTreeInspectorApplication::ViewTreeModel methodsFor:'accessing actions'!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3714
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3715	beforeSelectionChangedAction
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3716	"none argument action which is called before
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3717	the selection changed
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3718	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3719	^ beforeSelectionChangedAction
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3720	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3721
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3722	beforeSelectionChangedAction:aNoneArgBlock
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3723	"none argument action which is called before
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3724	the selection changed
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3725	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3726	beforeSelectionChangedAction := aNoneArgBlock.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3727	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3728
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3729	inputEventAction
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3730	"called for each input event; the argument to the action is the WindowEvent
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3731	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3732	^ inputEventAction
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3733	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3734
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3735	inputEventAction:aOneArgActionTheEvent
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3736	"called for each input event; the argument to the action is the WindowEvent
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3737	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3738	inputEventAction := aOneArgActionTheEvent.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3739	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3740
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3741	mappedViewAction
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3742	"called for a new mapped view which can not be found
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3743	in the current item list
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3744	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3745	^ mappedViewAction
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3746	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3747
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3748	mappedViewAction:aOneArgBlockTheMappedView
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3749	"called for a new mapped view which can not be found
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3750	in the current item list
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3751	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3752	mappedViewAction := aOneArgBlockTheMappedView
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3753	! !
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3754
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3755	!ViewTreeInspectorApplication::ViewTreeModel methodsFor:'accessing look'!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3756
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3757	iconAt:aKey ifNonePut:aNoneArgBlock
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3758	\|icon view\|
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3759
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3760	icon := icons at:aKey ifAbsent:nil.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3761	icon notNil ifTrue:[^ icon].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3762
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3763	icon := aNoneArgBlock value.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3764	icon isNil ifTrue:[^ nil].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3765
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3766	view := self rootView.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3767	view isNil ifTrue:[^ icon].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3768
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3769	icon := icon copy onDevice:(view device).
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3770	icon isImage ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3771	icon clearMaskedPixels.
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3772	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3773	icons at:aKey put:icon.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3774	^ icon
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3775	! !
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3776
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3777	!ViewTreeInspectorApplication::ViewTreeModel methodsFor:'accessing visibility'!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3778
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3779	signalHiddenLevel
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3780	"show the selection if signaled; increments hiddenLevel
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3781	see: #waitHiddenLevel
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3782	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3783	(hiddenLevel := hiddenLevel - 1) < 1 ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3784	hiddenLevel := 0.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3785	self invalidateSelection.
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3786	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3787	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3788
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3789	waitHiddenLevel
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3790	"hide the selection until signaled; increments hiddenLevel
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3791	see: #signalHiddenLevel
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3792	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3793	self redrawUnselected:selection andLock:true
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3794	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3795
3453 01e6b207c1b4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 3398 diff changeset	3796	withSelectionHiddenDo:aZeroArgumentBlock
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3797	"apply block with selection hidden
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3798	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3799
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3800	[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3801	self waitHiddenLevel.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3802	aZeroArgumentBlock value
3453 01e6b207c1b4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 3398 diff changeset	3803	] ensure:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3804	self signalHiddenLevel.
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3805	].
3453 01e6b207c1b4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 3398 diff changeset	3806
01e6b207c1b4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 3398 diff changeset	3807	"Modified (format): / 17-07-2017 / 10:44:01 / cg"
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3808	! !
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3809
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3810	!ViewTreeInspectorApplication::ViewTreeModel methodsFor:'aspects'!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3811
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3812	hasTargetWidgetChannel
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3813	"answer the channel which is set to true if a target widget exists"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3814
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3815	^ hasTargetWidgetChannel
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3816	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3817
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3818	listOfItems
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3819	"hiearchical list build from existing items"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3820
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3821	^ listOfItems
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3822	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3823
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3824	selectOnClickHolder
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3825	"boolean holder, which indicates whether the selection will change on click
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3826	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3827	^ selectOnClickHolder
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3828	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3829
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3830	testModeChannel
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3831	"answer a boolean channel which describes the behaviour how to process
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3832	events on the target view.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3833
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3834	false: all input events are eaten and the selection is shown on the target view.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3835	true: no input events are eaten and no selection is shown on the target view."
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3836
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3837	^ testModeChannel
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3838	! !
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3839
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3840	!ViewTreeInspectorApplication::ViewTreeModel methodsFor:'change & update'!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3841
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3842	targetWidgetChanged
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3843	hasTargetWidgetChannel value:(self rootItem notNil).
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3844	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3845
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3846	timedUpdateTaskCycle
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3847	\|view myTaskId\|
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3848
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3849	myTaskId := timedUpdateTask.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3850
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3851	listOfItems root notNil ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3852	view := listOfItems root widget.
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3853	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3854
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3855	[ view notNil ] whileTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3856	Delay waitForSeconds:0.5.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3857
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3858	(myTaskId == timedUpdateTask and:[view id notNil]) ifFalse:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3859	view := nil.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3860	] ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3861	(view sensor hasUserEvent:#updateChildren for:self) ifFalse:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3862	view sensor pushUserEvent:#updateChildren for:self.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3863	].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3864	].
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3865	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3866	timedUpdateTask == myTaskId ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3867	timedUpdateTask := nil.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3868	listOfItems root:nil.
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3869	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3870	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3871
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3872	update:something with:someArgument from:aModel
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3873
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3874	aModel == testModeChannel ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3875	(hiddenLevel == 0 and:[selection size > 0]) ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3876	testModeChannel value ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3877	self redrawUnselected:selection andLock:false checkTestMode:false.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3878	] ifFalse:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3879	self invalidateSelection.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3880	].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3881	].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3882	^ self
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3883	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3884	super update:something with:someArgument from:aModel.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3885	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3886
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3887	updateChildren
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3888	\|rootItem\|
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3889
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3890	rootItem := listOfItems root.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3891	rootItem isNil ifTrue:[^ self].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3892
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3893	rootItem exists ifFalse:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3894	listOfItems root:nil.
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3895	] ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3896	rootItem updateChildren.
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3897	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3898	! !
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3899
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3900	!ViewTreeInspectorApplication::ViewTreeModel methodsFor:'event processing'!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3901
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3902	processEvent:anEvent
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3903	"catch and process all WindowEvents for the rootComponent and its contained
2757 6c83d6b487b2 changed: Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	3904	widgets; redraw selection in case of damage...
6c83d6b487b2 changed: Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	3905	return true, if the event was eaten"
6c83d6b487b2 changed: Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	3906
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3907	\|evView item rootView testMode\|
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3908
2978 a952dfdb1b6a class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 2888 diff changeset	3909	catchEvents ifFalse:[^ false].
a952dfdb1b6a class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 2888 diff changeset	3910
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3911	evView := anEvent view.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3912	evView isNil ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3913	(anEvent isMessageSendEvent not or:[anEvent receiver ~~ self]) ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3914	^ false
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3915	].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3916	anEvent value.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3917	^ true.
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3918	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3919	rootView := listOfItems rootView.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3920	rootView isNil ifTrue:[ ^ false ].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3921
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3922	anEvent isConfigureEvent ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3923	hiddenLevel == 0 ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3924	self redrawUnselected:selection andLock:false.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3925	].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3926	^ false
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3927	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3928
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3929	"/ check whether view is contained within the rootView
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3930	(evView == rootView or:[evView isComponentOf:rootView]) ifFalse:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3931	^ false
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3932	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3933
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3934	anEvent isInputEvent ifFalse:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3935	anEvent isDamage ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3936	hiddenLevel == 0 ifTrue:[self invalidateSelection].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3937	^ false
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3938	].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3939
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3940	anEvent isMapEvent ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3941	mappedViewAction notNil ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3942	item := listOfItems recursiveDetect:[:el\| el widget == evView].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3943	item isNil ifTrue:[ mappedViewAction value:evView ]
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3944	].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3945	^ false
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3946	].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3947
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3948	anEvent type == #terminate ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3949	item := listOfItems recursiveDetect:[:el\| el widget == evView].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3950	item notNil ifTrue:[ self processTerminateForItem:item ].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3951	^ false
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3952	].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3953	^ false
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3954	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3955	testMode := testModeChannel value.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3956
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3957	anEvent isFocusEvent ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3958	evView == rootView ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3959	self invalidateSelection
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3960	].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3961	^ testMode not.
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3962	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3963	anEvent isPointerEnterLeaveEvent ifTrue:[ ^ testMode not ].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3964
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3965	testMode ifFalse:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3966	inputEventAction notNil ifTrue:[ inputEventAction value:anEvent ].
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3967	] ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3968	anEvent isButtonPressEvent ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3969	selectOnClickHolder value ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3970	self selectItem:(listOfItems detectItemRespondsToView:evView).
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3971	].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3972	]
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3973	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3974
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3975	(hiddenLevel ~~ 0 and:[anEvent isButtonReleaseEvent]) ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3976	hiddenLevel := 1.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	3977	self signalHiddenLevel.
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3978	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3979
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3980	^ testMode not
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3981	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3982
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3983	processTerminateForItem:anItem
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3984	"received terminate for an item
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3985	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3986	anItem remove.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3987	! !
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3988
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3989	!ViewTreeInspectorApplication::ViewTreeModel methodsFor:'initialization'!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3990
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3991	initialize
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3992	"setup the default attributes
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3993	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3994	super initialize.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3995
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3996	hiddenLevel := 0.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3997	lockSema := RecursionLock new.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3998	listOfItems := ItemList new on:self.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	3999	selectedSuperItems := #().
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4000	icons := IdentityDictionary new.
2978 a952dfdb1b6a class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 2888 diff changeset	4001	catchEvents := true.
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4002
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4003	hasTargetWidgetChannel := false asValue.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4004	selectOnClickHolder := true asValue.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4005
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4006	testModeChannel := false asValue.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4007	testModeChannel addDependent:self.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4008	! !
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4009
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4010	!ViewTreeInspectorApplication::ViewTreeModel methodsFor:'private selection'!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4011
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4012	invalidateSelection
3319 97fd83492529 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3302 diff changeset	4013	"invalidate (force async redraw) the current selection
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4014	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4015	\|topView\|
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4016
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4017	testModeChannel value ifTrue:[ ^ self ]. "/ test whether running testMode
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4018
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4019	( hiddenLevel == 0
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4020	and:[selection notNil
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4021	and:[(topView := listOfItems rootView) notNil
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4022	and:[topView shown]]]
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4023	) ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4024	topView sensor pushUserEvent:#redrawSelection for:self withArguments:#()
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4025	]
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4026	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4027
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4028	recursiveRepair:theDamages startIn:aView relativeTo:aRootView
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4029	"repair all views and contained views, which intersects the damage.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4030	!!!! all damages repaired are removed from the list of damages !!!!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4031	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4032	\|color relOrg damage subViews repaired
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4033	bwWidth "{ Class:SmallInteger }"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4034	x "{ Class:SmallInteger }"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4035	y "{ Class:SmallInteger }"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4036	w "{ Class:SmallInteger }"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4037	h "{ Class:SmallInteger }"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4038	relOrgX "{ Class:SmallInteger }"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4039	relOrgY "{ Class:SmallInteger }"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4040	width "{ Class:SmallInteger }"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4041	height "{ Class:SmallInteger }"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4042	size "{ Class:SmallInteger }"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4043	\|
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4044	(aView shown and:[theDamages notEmpty]) ifFalse:[ ^ self ].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4045
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4046	subViews := aView subViews.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4047
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4048	subViews size ~~ 0 ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4049	subViews reverseDo:[:v\| self recursiveRepair:theDamages startIn:v relativeTo:aRootView ].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4050	theDamages isEmpty ifTrue:[ ^ self ].
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4051	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4052
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4053	relOrg := aView originRelativeTo:aRootView.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4054	bwWidth := aView borderWidth.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4055	size := theDamages size.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4056
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4057	"/ compute relative origin starting from border left@top
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4058	relOrgX := relOrg x - bwWidth.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4059	relOrgY := relOrg y - bwWidth.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4060	width := aView width + bwWidth + bwWidth.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4061	height := aView height + bwWidth + bwWidth.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4062
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4063	size to:1 by:-1 do:[:anIndex\|
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4064	repaired := damage := theDamages at:anIndex.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4065
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4066	"/ compute the rectangle into the view
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4067	y := damage top - relOrgY.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4068	x := damage left - relOrgX.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4069	w := damage width.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4070	h := damage height.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4071
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4072	x < 0 ifTrue:[ w := w + x. x := 0. repaired := nil ].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4073	y < 0 ifTrue:[ h := h + y. y := 0. repaired := nil ].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4074	x + w > width ifTrue:[ w := width - x. repaired := nil ].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4075	y + h > height ifTrue:[ h := height - y. repaired := nil ].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4076
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4077	(w > 0 and:[h > 0]) ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4078	bwWidth ~~ 0 ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4079	color isNil ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4080	"/ must force redraw of border
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4081	color := aView borderColor.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4082	aView borderColor:(Color colorId:1).
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4083	aView borderColor:color.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4084	].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4085	w := w - bwWidth.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4086	h := h - bwWidth.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4087
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4088	(x := x - bwWidth) < 0 ifTrue:[w := w + x. x := 0].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4089	(y := y - bwWidth) < 0 ifTrue:[h := h + y. y := 0].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4090
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4091	h > 0 ifFalse:[w := 0]. "/ later testing on width only
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4092	].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4093
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4094	w > 0 ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4095	aView clearRectangleX:x y:y width:w height:h.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4096	aView exposeX:x y:y width:w height:h
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4097	].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4098	repaired notNil ifTrue:[ theDamages removeFromIndex:anIndex toIndex:anIndex ].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4099	]
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4100	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4101	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4102
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4103	redrawSelection
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4104	"redraw all items selected
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4105	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4106	\|topView size\|
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4107
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4108	testModeChannel value ifTrue:[ ^ self ]. "/ test whether running testMode
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4109
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4110	( hiddenLevel == 0
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4111	and:[(size := selection size) > 0
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4112	and:[(topView := listOfItems rootView) notNil
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4113	and:[topView shown
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4114	and:[(topView sensor hasEvent:#redrawSelection for:self) not]]]]
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4115	) ifFalse:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4116	^ self
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4117	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4118
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4119	lockSema critical:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4120	\|list\|
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4121
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4122	list := selection.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4123
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4124	list size > 0 ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4125	topView paint:(Color black).
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4126	topView clippedByChildren:false.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4127
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4128	list keysAndValuesReverseDo:[:anIndex :anItem\|
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4129	(anIndex == 1 and:[size > 1]) ifTrue:[ topView paint:(Color red) ].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4130
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4131	anItem handlesDo:[:aRect :what\|
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4132	what isNil ifTrue:[topView displayRectangle:aRect]
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4133	ifFalse:[topView fillRectangle:aRect]
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4134	]
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4135	].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4136	topView clippedByChildren:true.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4137	].
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4138	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4139	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4140
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4141	redrawUnselected:aList andLock:doLock
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4142	"redraw all items unselected; if doLock is true, the hiddenLevel
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4143	is incremented and thus the select mechanism is locked.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4144	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4145	self redrawUnselected:aList andLock:doLock checkTestMode:true.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4146	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4147
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4148	redrawUnselected:aList andLock:doLock checkTestMode:checkTestMode
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4149	"redraw all items unselected; if doLock is true, the hiddenLevel
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4150	is incremented and thus the select mechanism is locked.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4151	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4152	\|rootView damages subViews x y w h\|
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4153
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4154	doLock ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4155	hiddenLevel := hiddenLevel + 1.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4156	hiddenLevel ~~ 1 ifTrue:[^ self].
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4157	] ifFalse:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4158	hiddenLevel ~~ 0 ifTrue:[^ self].
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4159	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4160	checkTestMode ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4161	testModeChannel value ifTrue:[ ^ self ]. "/ test whether running testMode
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4162	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4163
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4164	( aList size ~~ 0
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4165	and:[(rootView := listOfItems rootView) notNil
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4166	and:[rootView shown]]
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4167	) ifFalse:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4168	^ self
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4169	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4170
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4171	lockSema critical:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4172	damages := OrderedCollection new:(8 * aList size).
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4173
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4174	aList do:[:item\|
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4175	item handlesDo:[:handle :what\|
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4176	damages reverseDo:[:el\|
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4177	(el intersects:handle) ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4178	damages removeIdentical:el.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4179
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4180	handle left:(handle left min:el left)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4181	right:(handle right max:el right)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4182	top:(handle top min:el top)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4183	bottom:(handle bottom max:el bottom)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4184	]
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4185	].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4186	damages add:handle
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4187	]
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4188	].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4189
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4190	damages do:[:el\|
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4191	x := el left.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4192	y := el top.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4193	w := el width.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4194	h := el height.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4195
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4196	rootView clearRectangleX:x y:y width:w height:h.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4197	rootView exposeX:x y:y width:w height:h.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4198	].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4199
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4200	(subViews := rootView subViews) notNil ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4201	subViews reverseDo:[:v\| self recursiveRepair:damages startIn:v relativeTo:rootView ].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4202	].
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4203	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4204	! !
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4205
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4206	!ViewTreeInspectorApplication::ViewTreeModel methodsFor:'queries'!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4207
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4208	isInTestMode
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4209	"answer false, all input events are eaten and the selection is shown on the target view.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4210	answer true, no input events are eaten and no selection is shown on the target view."
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4211
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4212	^ testModeChannel value
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4213	! !
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4214
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4215	!ViewTreeInspectorApplication::ViewTreeModel methodsFor:'selection accessing'!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4216
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4217	at:anIndex
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4218	"returns the selected item at an index or nil
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4219	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4220	selection notNil ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4221	^ selection at:anIndex ifAbsent:nil
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4222	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4223	^ nil
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4224	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4225
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4226	at:anIndex ifAbsent:aBlock
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4227	"returns the selected item at an index or the result of the block
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4228	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4229	selection notNil ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4230	^ selection at:anIndex ifAbsent:aBlock
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4231	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4232	^ aBlock value
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4233	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4234
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4235	first
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4236	"returns the first selected item or nil
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4237	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4238	^ self at:1
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4239	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4240
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4241	last
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4242	"returns the last selected item or nil
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4243	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4244	^ selection notNil ifTrue:[selection last] ifFalse:[nil]
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4245	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4246
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4247	selectedItem
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4248	"returns the single selected item or nil (size ~~ 1 nil is returned)
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4249	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4250	^ selection size == 1 ifTrue:[selection at:1] ifFalse:[nil]
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4251	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4252
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4253	selectedSuperItems
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4254	"returs the list of selected superItems; items selected
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4255	but not contained in another selected item.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4256	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4257	^ selectedSuperItems
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4258	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4259
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4260	size
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4261	"returns the number of items selected
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4262	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4263	^ selection size
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4264	! !
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4265
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4266	!ViewTreeInspectorApplication::ViewTreeModel methodsFor:'selection adding & removing'!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4267
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4268	add:item
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4269	"add an item to the current selection
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4270	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4271	\|newSelect\|
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4272
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4273	item isNil ifTrue:[^ item].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4274
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4275	lockSema critical:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4276	selection isNil ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4277	newSelect := Array with:item.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4278	] ifFalse:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4279	(self includes:item) ifFalse:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4280	newSelect := selection copyWith:item
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4281	]
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4282	].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4283
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4284	newSelect size ~~ selection size ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4285	item makeVisible.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4286	self value:newSelect
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4287	]
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4288	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4289	^ item
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4290	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4291
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4292	addAll:aCollectionOfItems
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4293	"add a collection of items to the current selection
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4294	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4295	\|newSelect\|
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4296
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4297	aCollectionOfItems size == 0 ifTrue:[ ^ aCollectionOfItems ].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4298
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4299	lockSema critical:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4300	selection isNil ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4301	newSelect := Array withAll:aCollectionOfItems.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4302	] ifFalse:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4303	newSelect := OrderedCollection withAll:selection.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4304
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4305	aCollectionOfItems do:[:el\|
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4306	(selection includesIdentical:el) ifFalse:[newSelect add:el]
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4307	].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4308	].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4309	self value:newSelect.
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4310	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4311	^ aCollectionOfItems
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4312	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4313
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4314	deselect
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4315	"clear the selection
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4316	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4317	self value:nil.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4318	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4319
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4320	remove:item
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4321	"remove the item from the current selection
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4322	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4323	\|newSelect\|
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4324
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4325	item isNil ifTrue:[^ nil].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4326
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4327	lockSema critical:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4328	(selection notNil and:[selection includesIdentical:item]) ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4329	selection size == 1 ifTrue:[ newSelect := nil ]
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4330	ifFalse:[ newSelect := selection copyWithout:item ].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4331
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4332	self value:newSelect
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4333	].
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4334	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4335	^ item
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4336	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4337
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4338	removeAll
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4339	"clear the selection
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4340	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4341	self deselect.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4342	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4343
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4344	removeAll:loItems
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4345	"remove all items of the collection from the current selection
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4346	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4347	\|newSelect\|
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4348
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4349	selection isNil ifTrue:[ ^ loItems ].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4350	loItems size == 0 ifTrue:[ ^ loItems ].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4351
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4352	lockSema critical:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4353	selection notNil ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4354	newSelect := selection select:[:el\| (loItems includesIdentical:el) not ].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4355	self value:newSelect.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4356	]
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4357	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4358	^ loItems
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4359	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4360
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4361	selectAll
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4362	"select all items
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4363	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4364	\|root newSelection\|
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4365
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4366	root := listOfItems root.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4367
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4368	root isNil ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4369	newSelection := nil
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4370	] ifFalse:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4371	newSelection := OrderedCollection new.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4372	root recursiveDo:[:el\| newSelection add:el ].
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4373	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4374	self value:newSelection.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4375	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4376
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4377	selectItem:anItem
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4378	"set the current selection to the item
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4379	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4380	self value:anItem
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4381	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4382
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4383	selectRootItem
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4384	"set the current selection to the root item
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4385	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4386	self value:(self rootItem).
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4387	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4388
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4389	selectedItem:anItem
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4390	"set the current selection to the item
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4391	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4392	self selectItem:anItem.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4393	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4394
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4395	toggleSelectItem:anItem
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4396	"toggle selection-state of the item; add or remove the item from the
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4397	current selection.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4398	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4399	anItem notNil ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4400	(self includes:anItem) ifTrue:[self remove:anItem]
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4401	ifFalse:[self add:anItem]
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4402	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4403	^ anItem
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4404	! !
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4405
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4406	!ViewTreeInspectorApplication::ViewTreeModel methodsFor:'selection enumerating'!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4407
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4408	collect:aBlock
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4409	"for each element in the selection, evaluate the argument, aBlock
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4410	and return a new collection with the results
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4411	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4412	\|res\|
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4413
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4414	res := OrderedCollection new.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4415	self do:[:el\| res add:(aBlock value:el)].
3746 0bfa90576a61 #BUGFIX by exept Claus Gittinger <cg@exept.de> parents: 3745 diff changeset	4416	^ res
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4417	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4418
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4419	do:aOneArgBlock
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4420	"evaluate the argument, aBlock for each item in the selection
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4421	"
3398 9c87da351c9c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	4422	\|keptSelection\|
9c87da351c9c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	4423
9c87da351c9c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	4424	"/ the selection may change at any time (may it?)
3748 aa07806d6a5a #BUGFIX by exept Claus Gittinger <cg@exept.de> parents: 3747 diff changeset	4425	(keptSelection := selection) notNil ifTrue:[
aa07806d6a5a #BUGFIX by exept Claus Gittinger <cg@exept.de> parents: 3747 diff changeset	4426	keptSelection do:aOneArgBlock
aa07806d6a5a #BUGFIX by exept Claus Gittinger <cg@exept.de> parents: 3747 diff changeset	4427	].
3398 9c87da351c9c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	4428
9c87da351c9c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	4429	"Modified (format): / 12-02-2017 / 11:53:23 / cg"
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4430	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4431
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4432	from:start do:aOneArgBlock
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4433	"evaluate the argument, aBlock for the items starting at index start
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4434	"
3398 9c87da351c9c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	4435	\|keptSelection\|
9c87da351c9c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	4436
9c87da351c9c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	4437	"/ the selection may change at any time (may it?)
3748 aa07806d6a5a #BUGFIX by exept Claus Gittinger <cg@exept.de> parents: 3747 diff changeset	4438	(keptSelection := selection) notNil ifTrue:[
aa07806d6a5a #BUGFIX by exept Claus Gittinger <cg@exept.de> parents: 3747 diff changeset	4439	"/ but if so, then start may no longer be valid here??
aa07806d6a5a #BUGFIX by exept Claus Gittinger <cg@exept.de> parents: 3747 diff changeset	4440	keptSelection from:start do:aOneArgBlock
aa07806d6a5a #BUGFIX by exept Claus Gittinger <cg@exept.de> parents: 3747 diff changeset	4441	].
3398 9c87da351c9c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	4442
9c87da351c9c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	4443	"Modified (comment): / 12-02-2017 / 11:52:57 / cg"
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4444	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4445
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4446	from:start to:stop do:aOneArgBlock
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4447	"evaluate the argument, aBlock for the items with index start to
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4448	stop in the selection.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4449	"
3398 9c87da351c9c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	4450	\|keptSelection\|
9c87da351c9c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	4451
9c87da351c9c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	4452	"/ the selection may change at any time (may it?)
3748 aa07806d6a5a #BUGFIX by exept Claus Gittinger <cg@exept.de> parents: 3747 diff changeset	4453	(keptSelection := selection) notNil ifTrue:[
aa07806d6a5a #BUGFIX by exept Claus Gittinger <cg@exept.de> parents: 3747 diff changeset	4454	"/ but if so, then start and stop may no longer be valid here??
aa07806d6a5a #BUGFIX by exept Claus Gittinger <cg@exept.de> parents: 3747 diff changeset	4455	keptSelection from:start to:stop do:aOneArgBlock
aa07806d6a5a #BUGFIX by exept Claus Gittinger <cg@exept.de> parents: 3747 diff changeset	4456	].
3398 9c87da351c9c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	4457
9c87da351c9c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	4458	"Modified (comment): / 12-02-2017 / 11:52:25 / cg"
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4459	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4460
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4461	reverseDo:aOneArgBlock
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4462	"evaluate the argument, aBlock for each item in the selection
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4463	"
3398 9c87da351c9c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	4464	\|keptSelection\|
9c87da351c9c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	4465
9c87da351c9c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	4466	"/ the selection may change at any time (may it?)
3748 aa07806d6a5a #BUGFIX by exept Claus Gittinger <cg@exept.de> parents: 3747 diff changeset	4467	(keptSelection := selection) notNil ifTrue:[
aa07806d6a5a #BUGFIX by exept Claus Gittinger <cg@exept.de> parents: 3747 diff changeset	4468	keptSelection reverseDo:aOneArgBlock
aa07806d6a5a #BUGFIX by exept Claus Gittinger <cg@exept.de> parents: 3747 diff changeset	4469	].
3398 9c87da351c9c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	4470
9c87da351c9c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	4471	"Modified: / 12-02-2017 / 11:50:02 / cg"
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4472	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4473
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4474	select:aBlock
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4475	"return a new collection with all elements from the selection, for which
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4476	the argument aBlock evaluates to true.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4477	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4478	\|res\|
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4479
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4480	res := OrderedCollection new.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4481	self do:[:el\| (aBlock value:el) ifTrue:[res add:el] ].
3746 0bfa90576a61 #BUGFIX by exept Claus Gittinger <cg@exept.de> parents: 3745 diff changeset	4482	^ res
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4483	! !
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4484
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4485	!ViewTreeInspectorApplication::ViewTreeModel methodsFor:'selection protocol'!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4486
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4487	changed:aParameter with:oldSelection
3568 5004640f2a10 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	4488	"update the visibility status of the current selection
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4489	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4490	\|unselected rootView rootItem selSize\|
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4491
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4492	selSize := selection size.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4493
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4494	selSize == 0 ifTrue:[
3568 5004640f2a10 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	4495	selectedSuperItems := #().
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4496	] ifFalse:[
3568 5004640f2a10 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	4497	selSize == 1 ifTrue:[
5004640f2a10 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	4498	selectedSuperItems := Array with:(selection at:1).
5004640f2a10 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	4499	] ifFalse:[
5004640f2a10 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	4500	rootItem := listOfItems root.
5004640f2a10 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	4501
5004640f2a10 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	4502	(selection includesIdentical:rootItem) ifTrue:[
5004640f2a10 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	4503	selectedSuperItems := Array with:rootItem.
5004640f2a10 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	4504	] ifFalse:[
5004640f2a10 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	4505	selectedSuperItems := OrderedCollection new:selSize.
5004640f2a10 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	4506
5004640f2a10 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	4507	selection do:[:anItem\|
5004640f2a10 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	4508	anItem parentsDetect:[:el\| selection includesIdentical:el ]
5004640f2a10 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	4509	ifNone:[ selectedSuperItems add:anItem ].
5004640f2a10 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	4510	].
5004640f2a10 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	4511	]
5004640f2a10 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	4512	]
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4513	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4514
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4515	( hiddenLevel == 0
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4516	and:[(rootView := listOfItems rootView) notNil
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4517	and:[rootView shown]]
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4518	) ifTrue:[
3568 5004640f2a10 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	4519	selSize == 0 ifTrue:[
5004640f2a10 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	4520	"/ must redraw the old selection unselected
5004640f2a10 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	4521	self redrawUnselected:oldSelection andLock:false
5004640f2a10 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	4522	] ifFalse:[
5004640f2a10 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	4523	self invalidateSelection.
5004640f2a10 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	4524
5004640f2a10 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	4525	oldSelection size ~~ 0 ifTrue:[
5004640f2a10 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	4526	"/ must redraw all elements no longer in the selection
5004640f2a10 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	4527	unselected := oldSelection select:[:el\| (selection includesIdentical:el) not ].
5004640f2a10 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	4528	self redrawUnselected:unselected andLock:false.
5004640f2a10 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	4529	]
5004640f2a10 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	4530	]
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4531	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4532	super changed:aParameter with:oldSelection.
3568 5004640f2a10 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	4533
5004640f2a10 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	4534	"Modified (comment): / 29-06-2018 / 08:25:36 / Claus Gittinger"
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4535	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4536
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4537	setValue:aNewSelection
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4538	"set the selection without notifying
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4539	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4540	\|newSelect idx\|
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4541
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4542	newSelect := nil.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4543
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4544	aNewSelection notNil ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4545	lockSema critical:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4546	aNewSelection isCollection ifFalse:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4547	(selection size == 1 and:[selection first == aNewSelection]) ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4548	newSelect := selection
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4549	] ifFalse:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4550	newSelect := Array with:aNewSelection.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4551	]
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4552	] ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4553	aNewSelection notEmpty ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4554	aNewSelection size ~~ selection size ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4555	newSelect := aNewSelection copy.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4556	] ifFalse:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4557	idx := selection findFirst:[:el\| (aNewSelection includesIdentical:el) not ].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4558
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4559	idx ~~ 0 ifTrue:[newSelect := aNewSelection copy]
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4560	ifFalse:[newSelect := selection ].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4561	]
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4562	]
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4563	]
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4564	].
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4565	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4566	newSelect ~~ selection ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4567	beforeSelectionChangedAction value.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4568	selection := newSelect.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4569	selection notNil ifTrue:[selection do:[:el\| el makeVisible]]
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4570	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4571	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4572
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4573	triggerValue:aValue
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4574	"set my value & send change notifications to my dependents.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4575	Send the change message even if the value didn't change.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4576	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4577	\|oldSelection\|
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4578
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4579	lockSema critical:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4580	oldSelection := selection.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4581	self setValue:aValue.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4582	self changed:#value with:oldSelection
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4583	]
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4584	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4585
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4586	value
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4587	"returns the current selection
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4588	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4589	^ selection ? #()
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4590	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4591
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4592	value:aValue
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4593	"change the current selection and send change notifications to my
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4594	dependents if it changed.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4595	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4596	\|oldSelection\|
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4597
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4598	lockSema critical:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4599	oldSelection := selection.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4600	self setValue:aValue.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4601
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4602	oldSelection == selection ifFalse:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4603	self changed:#value with:oldSelection
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4604	]
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4605	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4606	! !
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4607
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4608	!ViewTreeInspectorApplication::ViewTreeModel methodsFor:'selection searching'!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4609
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4610	detect:aBlock
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4611	"evaluate the argument, aBlock for each item in the selection until
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4612	the block returns true; in this case return the element which caused
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4613	the true evaluation.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4614	If none of the evaluations returns true, an error is raised
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4615	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4616	^ self detect:aBlock ifNone:[self errorNotFound]
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4617	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4618
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4619	detect:aBlock ifNone:exceptionBlock
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4620	"evaluate the argument, aBlock for each item in the selection until the
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4621	block returns true; in this case return the element which caused the
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4622	true evaluation.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4623	If none of the evaluations returns true, the result of the evaluation
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4624	of the exceptionBlock is returned
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4625	"
3398 9c87da351c9c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	4626	\|keptSelection\|
9c87da351c9c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	4627
9c87da351c9c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	4628	"/ the selection may change at any time (may it?)
9c87da351c9c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	4629	(keptSelection := selection) isNil ifTrue:[ ^ exceptionBlock value ].
9c87da351c9c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	4630	^ keptSelection detect:aBlock ifNone:exceptionBlock
9c87da351c9c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	4631
9c87da351c9c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	4632	"Modified (format): / 12-02-2017 / 11:54:13 / cg"
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4633	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4634
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4635	detectLast:aBlock
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4636	"evaluate the argument, aBlock for each item in the selection until
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4637	the block returns true; in this case return the element which caused
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4638	the true evaluation. The items are processed in reverse order.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4639	If none of the evaluations returns true, an error is raised
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4640	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4641	^ self detectLast:aBlock ifNone:[self errorNotFound]
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4642	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4643
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4644	detectLast:aBlock ifNone:exceptionBlock
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4645	"evaluate the argument, aBlock for each item in the selection until
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4646	the block returns true; in this case return the element which caused
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4647	the true evaluation. The items are processed in reverse order.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4648	If none of the evaluations returns true, the result of the evaluation
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4649	of the exceptionBlock is returned
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4650	"
3398 9c87da351c9c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	4651	\|keptSelection\|
9c87da351c9c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	4652
9c87da351c9c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	4653	"/ the selection may change at any time (may it?)
9c87da351c9c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	4654	(keptSelection := selection) isNil ifTrue:[ ^ exceptionBlock value ].
9c87da351c9c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	4655	^ keptSelection detectLast:aBlock ifNone:exceptionBlock
9c87da351c9c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	4656
9c87da351c9c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	4657	"Modified (format): / 12-02-2017 / 11:53:49 / cg"
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4658	! !
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4659
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4660	!ViewTreeInspectorApplication::ViewTreeModel methodsFor:'selection testing'!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4661
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4662	includes:anItem
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4663	"returns true if the item is in the current selection
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4664	"
3398 9c87da351c9c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	4665	\|keptSelection\|
9c87da351c9c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	4666
9c87da351c9c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	4667	"/ the selection may change at any time (may it?)
9c87da351c9c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	4668	(keptSelection := selection) isNil ifTrue:[^ false].
9c87da351c9c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	4669	^ keptSelection includesIdentical:anItem
9c87da351c9c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	4670
9c87da351c9c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	4671	"Modified: / 12-02-2017 / 11:51:34 / cg"
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4672	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4673
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4674	includesAll:aCollection
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4675	"return true, if all items of the collection are included in the current selection
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4676	"
3398 9c87da351c9c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	4677	\|keptSelection\|
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4678
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4679	aCollection size ~~ 0 ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4680	"/ the selection may change at any time (may it?)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4681	(keptSelection := selection) isNil ifTrue:[ ^ false ].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4682
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4683	^ aCollection contains:[:el\| (keptSelection includesIdentical:el)]
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4684	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4685	^ true
3398 9c87da351c9c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	4686
9c87da351c9c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	4687	"Modified (format): / 12-02-2017 / 11:51:14 / cg"
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4688	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4689
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4690	includesAny:aCollection
3398 9c87da351c9c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	4691	"return true, if any item of the collection is in the current selection
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4692	"
3398 9c87da351c9c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	4693	\|keptSelection\|
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4694
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4695	aCollection notNil ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4696	"/ the selection may change at any time (may it?)
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4697	(keptSelection := selection) notNil ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4698	^ aCollection contains:[:el\| (keptSelection includesIdentical:el)]
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4699	]
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4700	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4701	^ false
3398 9c87da351c9c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	4702
9c87da351c9c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 3383 diff changeset	4703	"Modified (format): / 12-02-2017 / 11:50:26 / cg"
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4704	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4705
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4706	includesIdentical:anItem
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4707	"returns true if the item is in the current selection
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4708	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4709	^ self includes:anItem
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4710	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4711
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4712	isEmpty
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4713	"returns true if the current selection is empty
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4714	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4715	^ selection size == 0
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4716	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4717
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4718	isSelected:anItem
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4719	"returns true if the item is in the current selection
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4720	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4721	^ self includes:anItem
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4722	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4723
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4724	notEmpty
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4725	"returns true if the current selection is not empty
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4726	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4727	^ selection size ~~ 0
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4728	! !
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4729
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4730	!ViewTreeInspectorApplication::ViewTreeModel::ItemList class methodsFor:'documentation'!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4731
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4732	documentation
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4733	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4734	Kind of HierarchicalList class which contains all the visible
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4735	ViewTreeItem's and the root, the anchor of the hierarchical list.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4736
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4737	[Instance variables:]
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4738	treeModel <ViewTreeModel> all events are delegated to
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4739	eventHook <BlockValue> save and resore the pre/post -EventHook
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4740
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4741
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4742	[author:]
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4743	Claus Atzkern
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4744
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4745	[see also:]
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4746	HierarchicalList
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4747	ViewTreeModel
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4748	ViewTreeItem
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4749	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4750	! !
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4751
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4752	!ViewTreeInspectorApplication::ViewTreeModel::ItemList methodsFor:'accessing'!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4753
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4754	root:theRoot
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4755	"set the root item; delegate events to my treeModel
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4756	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4757	\|rootView\|
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4758
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4759	theRoot == root ifTrue:[^ self].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4760
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4761	rootView := self rootView.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4762	super root:theRoot.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4763
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4764	rootView notNil ifTrue:[ \|wgrp\|
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4765	wgrp := rootView windowGroup.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4766
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4767	wgrp notNil ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4768	wgrp removePreEventHook:treeModel.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4769	wgrp removePostEventHook:self.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4770	].
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4771	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4772
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4773	super root:theRoot.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4774	rootView := self rootView.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4775
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4776	rootView notNil ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4777	"must setup a task because there might not exist a windowGroup at the moment
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4778	"
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4779	[ \|wgrp\|
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4780
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4781	[rootView == self rootView] whileTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4782	wgrp := rootView windowGroup.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4783	wgrp notNil ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4784	rootView := nil.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4785	wgrp addPreEventHook:treeModel.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4786	wgrp addPostEventHook:self.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4787	] ifFalse:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4788	Delay waitForMilliseconds:100.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4789	].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4790	].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4791
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4792	] forkAt:(Processor userSchedulingPriority + 2).
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4793	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4794	treeModel notNil ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4795	treeModel targetWidgetChanged.
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4796	].
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4797
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4798	^ root.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4799	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4800
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4801	rootView
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4802	"returns the widget assigned to the root or nil
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4803	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4804	^ root notNil ifTrue:[root widget] ifFalse:[nil]
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4805	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4806
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4807	treeModel
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4808	"returne the treeModel, a ViewTreeModel
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4809	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4810	^ treeModel
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4811	! !
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4812
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4813	!ViewTreeInspectorApplication::ViewTreeModel::ItemList methodsFor:'accessing look'!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4814
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4815	additionalLabelForItem:anItem
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4816	"answer the additional lable for an item or nil"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4817
3667 0b24b3e8c949 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3660 diff changeset	4818	\|widget l applClass applClassName key label\|
3017 d971763e5d03 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3014 diff changeset	4819
2762 0c66aa3bfdff added: Claus Gittinger <cg@exept.de> parents: 2759 diff changeset	4820	l := nil.
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4821	showWidgetNames == true ifTrue:[
3667 0b24b3e8c949 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3660 diff changeset	4822	(widget := anItem widget) notNil ifTrue:[
0b24b3e8c949 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3660 diff changeset	4823	l := '"', widget name, '"'
0b24b3e8c949 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3660 diff changeset	4824	] ifFalse:[
0b24b3e8c949 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3660 diff changeset	4825	"/ a menuItem
0b24b3e8c949 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3660 diff changeset	4826	anItem menuItem isSeparator ifTrue:[
0b24b3e8c949 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3660 diff changeset	4827	] ifFalse:[
0b24b3e8c949 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3660 diff changeset	4828	label := anItem menuItem label.
0b24b3e8c949 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3660 diff changeset	4829	label isImage ifTrue:[
0b24b3e8c949 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3660 diff changeset	4830	l := ''
0b24b3e8c949 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3660 diff changeset	4831	] ifFalse:[
0b24b3e8c949 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3660 diff changeset	4832	l := '"', label asString, '"'
0b24b3e8c949 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3660 diff changeset	4833	].
0b24b3e8c949 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3660 diff changeset	4834	l := l , ' value: ',anItem menuItem itemValue printString.
0b24b3e8c949 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3660 diff changeset	4835	].
0b24b3e8c949 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3660 diff changeset	4836	].
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4837	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4838
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4839	anItem isApplicationClass ifTrue:[
3667 0b24b3e8c949 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3660 diff changeset	4840	applClass := anItem applicationClass.
0b24b3e8c949 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3660 diff changeset	4841	applClass notNil ifTrue:[
0b24b3e8c949 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3660 diff changeset	4842	applClassName := '[', applClass name allBold, ']'.
0b24b3e8c949 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3660 diff changeset	4843	l := (l isNil ifTrue:[''] ifFalse:[l , ' ']) , applClassName
0b24b3e8c949 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3660 diff changeset	4844	].
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4845	].
3017 d971763e5d03 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3014 diff changeset	4846
d971763e5d03 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3014 diff changeset	4847	application notNil ifTrue:[
3667 0b24b3e8c949 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3660 diff changeset	4848	key := application builder namedComponents keyAtValue:widget ifAbsent:nil.
0b24b3e8c949 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3660 diff changeset	4849	key notNil ifTrue:[
0b24b3e8c949 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3660 diff changeset	4850	l := l , ' #',key
0b24b3e8c949 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3660 diff changeset	4851	].
3017 d971763e5d03 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3014 diff changeset	4852	].
d971763e5d03 class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 3014 diff changeset	4853
2762 0c66aa3bfdff added: Claus Gittinger <cg@exept.de> parents: 2759 diff changeset	4854	^ l
3456 4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	4855
4d4297bad4fa #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3453 diff changeset	4856	"Modified: / 16-08-2017 / 12:47:12 / cg"
3667 0b24b3e8c949 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 3660 diff changeset	4857	"Modified: / 27-05-2019 / 13:19:35 / Claus Gittinger"
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4858	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4859
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4860	showWidgetNames
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4861	"answer true if the additional text is the widget name
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4862	otherwise the name of the application"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4863
2762 0c66aa3bfdff added: Claus Gittinger <cg@exept.de> parents: 2759 diff changeset	4864	^ showWidgetNames ? true
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4865	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4866
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4867	showWidgetNames:aBoolean
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4868	"set true if the additional text is the widget name
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4869	otherwise the name of the application"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4870
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4871	self showWidgetNames == aBoolean ifFalse:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4872	showWidgetNames := aBoolean.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4873
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4874	root notNil ifTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4875	root recursiveAdditionalNameBehaviourChanged.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4876	self changed.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4877	].
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4878	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4879	! !
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4880
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4881	!ViewTreeInspectorApplication::ViewTreeModel::ItemList methodsFor:'event processing'!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4882
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4883	processEvent:anEvent
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4884	"post process event
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4885	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4886	^ treeModel isInTestMode not
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4887	! !
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4888
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4889	!ViewTreeInspectorApplication::ViewTreeModel::ItemList methodsFor:'instance creation'!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4890
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4891	on:aModel
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4892	"set the model, a ViewTreeModel
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4893	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4894	treeModel := aModel.
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4895	showRoot := true.
2762 0c66aa3bfdff added: Claus Gittinger <cg@exept.de> parents: 2759 diff changeset	4896	"/ showWidgetNames := false.
0c66aa3bfdff added: Claus Gittinger <cg@exept.de> parents: 2759 diff changeset	4897	showWidgetNames := true.
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4898	! !
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4899
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4900	!ViewTreeInspectorApplication::ViewTreeModel::ItemList methodsFor:'searching'!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4901
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4902	detectItemRespondsToView:aView
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4903	"returns the bottom-most item which contains the view
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4904	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4905	\|view item topView\|
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4906
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4907	root notNil ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4908	view := aView.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4909	topView := root widget.
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4910
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4911	[ view notNil ] whileTrue:[
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4912	topView == view ifTrue:[^ root].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4913	item := root recursiveDetect:[:el\| el widget == view ].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4914	item notNil ifTrue:[^ item].
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4915	view := view superView
366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4916	]
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4917	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4918	^ nil
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4919	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4920
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4921	recursiveDetect:aOneOrgBlock
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4922	"recursive find the first child, for which evaluation
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4923	of the block returns true; if none nil is returned
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4924	"
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4925	root notNil ifTrue:[
3524 366f04fbfb23 flyByHelpSpec -> helpSpec Claus Gittinger <cg@exept.de> parents: 3500 diff changeset	4926	(aOneOrgBlock value:root) ifTrue:[ ^ root ].
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4927	^ root recursiveDetect:aOneOrgBlock
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4928	].
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4929	^ nil
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4930	! !
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4931
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4932	!ViewTreeInspectorApplication class methodsFor:'documentation'!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4933
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4934	version
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4935	^ '$Header$'
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4936	!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4937
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4938	version_CVS
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4939	^ '$Header$'
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4940	! !
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4941
2978 a952dfdb1b6a class: Tools::ViewTreeInspectorApplication Claus Gittinger <cg@exept.de> parents: 2888 diff changeset	4942
2744 5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4943	ViewTreeInspectorApplication initialize!
5bee95e91ffd * empty log message * Claus Gittinger <cg@exept.de> parents: 2458 diff changeset	4944	ViewTreeInspectorApplication::ViewTreeItem initialize!

author	Claus Gittinger <cg@exept.de>
	Thu, 12 Dec 2019 15:20:06 +0100
changeset 3824	7d83538ca900
parent 3806	17b4f413d051
child 3827	d4de0de1a991
permissions	-rw-r--r--