hg/stx-libtool: Tools__TagsBrowser.st@f6df57c6dbfb (annotated)

9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1	"
14484 ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	2	COPYRIGHT (c) 2002 by eXept Software AG
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	3	All Rights Reserved
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	4
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	5	This software is furnished under a license and may be used
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	6	only in accordance with the terms of that license and with the
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	7	inclusion of the above copyright notice. This software may not
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	8	be provided or otherwise made available to, or used by, any
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	9	other person. No title to or ownership of the software is
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	10	hereby transferred.
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	11	"
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	12	"{ Package: 'stx:libtool' }"
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	13
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	14	"{ NameSpace: Tools }"
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	15
9907 b296c82b6bfd class definition Claus Gittinger <cg@exept.de> parents: 9892 diff changeset	16	ApplicationModel subclass:#TagsBrowser
10435 309c101e7386 added:5 methods Claus Gittinger <cg@exept.de> parents: 10055 diff changeset	17	instanceVariableNames:'editedFileHolder commonAspects tagView tagList action tagsMenu
13632 970c41229951 x Claus Gittinger <cg@exept.de> parents: 13630 diff changeset	18	menus tagsValid tagListGenerator'
10435 309c101e7386 added:5 methods Claus Gittinger <cg@exept.de> parents: 10055 diff changeset	19	classVariableNames:''
309c101e7386 added:5 methods Claus Gittinger <cg@exept.de> parents: 10055 diff changeset	20	poolDictionaries:''
309c101e7386 added:5 methods Claus Gittinger <cg@exept.de> parents: 10055 diff changeset	21	category:'Interface-Tools-File-Tags'
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	22	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	23
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	24	SelectionInListModelView subclass:#TagView
14561 10dc9b99ef00 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14546 diff changeset	25	instanceVariableNames:'application process fileName tagLineNr itemHeight'
10435 309c101e7386 added:5 methods Claus Gittinger <cg@exept.de> parents: 10055 diff changeset	26	classVariableNames:'TypeInset'
309c101e7386 added:5 methods Claus Gittinger <cg@exept.de> parents: 10055 diff changeset	27	poolDictionaries:''
309c101e7386 added:5 methods Claus Gittinger <cg@exept.de> parents: 10055 diff changeset	28	privateIn:TagsBrowser
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	29	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	30
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	31	!TagsBrowser class methodsFor:'documentation'!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	32
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	33	copyright
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	34	"
14484 ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	35	COPYRIGHT (c) 2002 by eXept Software AG
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	36	All Rights Reserved
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	37
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	38	This software is furnished under a license and may be used
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	39	only in accordance with the terms of that license and with the
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	40	inclusion of the above copyright notice. This software may not
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	41	be provided or otherwise made available to, or used by, any
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	42	other person. No title to or ownership of the software is
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	43	hereby transferred.
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	44
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	45
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	46	"
9919 676098f9a014 added: #documentation Claus Gittinger <cg@exept.de> parents: 9916 diff changeset	47	!
676098f9a014 added: #documentation Claus Gittinger <cg@exept.de> parents: 9916 diff changeset	48
676098f9a014 added: #documentation Claus Gittinger <cg@exept.de> parents: 9916 diff changeset	49	documentation
676098f9a014 added: #documentation Claus Gittinger <cg@exept.de> parents: 9916 diff changeset	50	"
676098f9a014 added: #documentation Claus Gittinger <cg@exept.de> parents: 9916 diff changeset	51	a simple tag-support view, which can be plugged into another (file) application
676098f9a014 added: #documentation Claus Gittinger <cg@exept.de> parents: 9916 diff changeset	52	for indexing.
676098f9a014 added: #documentation Claus Gittinger <cg@exept.de> parents: 9916 diff changeset	53	Supports a bunch of languages somehow, but none really perfect.
676098f9a014 added: #documentation Claus Gittinger <cg@exept.de> parents: 9916 diff changeset	54	Uses ctags if present, if not, has naive fallback tag generation support.
676098f9a014 added: #documentation Claus Gittinger <cg@exept.de> parents: 9916 diff changeset	55
10055 88034a467573 changed: #documentation Claus Gittinger <cg@exept.de> parents: 9943 diff changeset	56	Good enough for me, doing occasional work in other languages (of course, is not able
88034a467573 changed: #documentation Claus Gittinger <cg@exept.de> parents: 9943 diff changeset	57	to compete with a specialized editor tools loke notepad++, emacs or similar.
9919 676098f9a014 added: #documentation Claus Gittinger <cg@exept.de> parents: 9916 diff changeset	58	"
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	59	! !
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	60
10763 f0ea0a752590 added: Claus Gittinger <cg@exept.de> parents: 10759 diff changeset	61	!TagsBrowser class methodsFor:'help specs'!
f0ea0a752590 added: Claus Gittinger <cg@exept.de> parents: 10759 diff changeset	62
17916 1791b257e437 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17812 diff changeset	63	helpSpec
1791b257e437 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17812 diff changeset	64	^ super helpSpec addPairsFrom:#(
10763 f0ea0a752590 added: Claus Gittinger <cg@exept.de> parents: 10759 diff changeset	65
10769 6a2725c1eb35 changed: #flyByHelpSpec Claus Gittinger <cg@exept.de> parents: 10768 diff changeset	66	#updateTagList
6a2725c1eb35 changed: #flyByHelpSpec Claus Gittinger <cg@exept.de> parents: 10768 diff changeset	67	'Update (regenerate) the tag list'
6a2725c1eb35 changed: #flyByHelpSpec Claus Gittinger <cg@exept.de> parents: 10768 diff changeset	68
10763 f0ea0a752590 added: Claus Gittinger <cg@exept.de> parents: 10759 diff changeset	69	#sortByName
f0ea0a752590 added: Claus Gittinger <cg@exept.de> parents: 10759 diff changeset	70	'Sort by name (ignoring case and leading underscores)'
f0ea0a752590 added: Claus Gittinger <cg@exept.de> parents: 10759 diff changeset	71
f0ea0a752590 added: Claus Gittinger <cg@exept.de> parents: 10759 diff changeset	72	#sortByLineNumber
f0ea0a752590 added: Claus Gittinger <cg@exept.de> parents: 10759 diff changeset	73	'Sort by line number'
f0ea0a752590 added: Claus Gittinger <cg@exept.de> parents: 10759 diff changeset	74
f0ea0a752590 added: Claus Gittinger <cg@exept.de> parents: 10759 diff changeset	75	#functionsOnly
14563 61b8b5928152 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14561 diff changeset	76	'Show only Functions (see popup menu for more options)'
14544 fe117e846d33 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14543 diff changeset	77
fe117e846d33 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14543 diff changeset	78	#structsOnly
14563 61b8b5928152 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14561 diff changeset	79	'Show only Structures (see popup menu for more options)'
10763 f0ea0a752590 added: Claus Gittinger <cg@exept.de> parents: 10759 diff changeset	80
11721 a0857582353c added tagfilter Claus Gittinger <cg@exept.de> parents: 11503 diff changeset	81	#toggleTagFilter
14563 61b8b5928152 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14561 diff changeset	82	'Toggle name filter to show only tags which match a pattern'
11721 a0857582353c added tagfilter Claus Gittinger <cg@exept.de> parents: 11503 diff changeset	83
a0857582353c added tagfilter Claus Gittinger <cg@exept.de> parents: 11503 diff changeset	84	#tagFilter
14563 61b8b5928152 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14561 diff changeset	85	'Pattern to filter tags by name.\Multiple OR-patterns are separated by ";"'
11721 a0857582353c added tagfilter Claus Gittinger <cg@exept.de> parents: 11503 diff changeset	86
10763 f0ea0a752590 added: Claus Gittinger <cg@exept.de> parents: 10759 diff changeset	87	)
f0ea0a752590 added: Claus Gittinger <cg@exept.de> parents: 10759 diff changeset	88
f0ea0a752590 added: Claus Gittinger <cg@exept.de> parents: 10759 diff changeset	89	"Created: / 06-10-2011 / 12:04:51 / cg"
f0ea0a752590 added: Claus Gittinger <cg@exept.de> parents: 10759 diff changeset	90	! !
f0ea0a752590 added: Claus Gittinger <cg@exept.de> parents: 10759 diff changeset	91
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	92	!TagsBrowser class methodsFor:'interface specs'!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	93
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	94	windowSpec
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	95	"This resource specification was automatically generated
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	96	by the UIPainter of ST/X."
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	97
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	98	"Do not manually edit this!! If it is corrupted,
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	99	the UIPainter may not be able to read the specification."
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	100
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	101	"
9916 0c3fe1fa42c6 fixes for reusability in cc browser Claus Gittinger <cg@exept.de> parents: 9908 diff changeset	102	UIPainter new openOnClass:Tools::TagsBrowser andSelector:#windowSpec
0c3fe1fa42c6 fixes for reusability in cc browser Claus Gittinger <cg@exept.de> parents: 9908 diff changeset	103	Tools::TagsBrowser new openInterface:#windowSpec
0c3fe1fa42c6 fixes for reusability in cc browser Claus Gittinger <cg@exept.de> parents: 9908 diff changeset	104	Tools::TagsBrowser open
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	105	"
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	106
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	107	<resource: #canvas>
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	108
14543 779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	109	^
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	110	#(FullSpec
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	111	name: windowSpec
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	112	window:
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	113	(WindowSpec
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	114	label: 'TagsBrowser'
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	115	name: 'TagsBrowser'
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	116	min: (Point 10 10)
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	117	bounds: (Rectangle 0 0 300 337)
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	118	)
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	119	component:
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	120	(SpecCollection
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	121	collection: (
15248 8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	122	(VerticalPanelViewSpec
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	123	name: 'VerticalPanel1'
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	124	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	125	horizontalLayout: fit
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	126	verticalLayout: topFit
14543 779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	127	horizontalSpace: 3
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	128	verticalSpace: 3
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	129	elementsChangeSize: true
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	130	component:
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	131	(SpecCollection
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	132	collection: (
15248 8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	133	(HorizontalPanelViewSpec
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	134	name: 'TagToolbarHorizontalPanel'
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	135	horizontalLayout: leftFit
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	136	verticalLayout: center
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	137	horizontalSpace: 3
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	138	verticalSpace: 3
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	139	ignoreInvisibleComponents: false
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	140	elementsChangeSize: true
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	141	component:
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	142	(SpecCollection
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	143	collection: (
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	144	(MenuPanelSpec
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	145	name: 'ToolBar1'
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	146	level: 0
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	147	menu: toolBarMenu
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	148	extent: (Point 196 30)
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	149	usePreferredWidth: true
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	150	textDefault: true
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	151	useDynamicPreferredWidth: true
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	152	)
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	153	)
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	154
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	155	)
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	156	extent: (Point 300 30)
14543 779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	157	)
15248 8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	158	(HorizontalPanelViewSpec
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	159	name: 'TagFilterPanel'
14543 779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	160	visibilityChannel: tagFilterFieldVisibleHolder
15248 8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	161	horizontalLayout: leftFit
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	162	verticalLayout: center
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	163	horizontalSpace: 3
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	164	verticalSpace: 3
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	165	ignoreInvisibleComponents: false
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	166	elementsChangeSize: true
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	167	component:
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	168	(SpecCollection
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	169	collection: (
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	170	(LabelSpec
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	171	label: 'Filter:'
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	172	name: 'Label1'
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	173	translateLabel: true
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	174	resizeForLabel: true
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	175	adjust: left
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	176	useDefaultExtent: true
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	177	)
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	178	(InputFieldSpec
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	179	name: 'TagFilterInputField'
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	180	activeHelpKey: tagFilter
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	181	model: tagFilterPatternHolder
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	182	immediateAccept: true
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	183	acceptOnReturn: true
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	184	acceptOnTab: true
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	185	acceptOnPointerLeave: true
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	186	extent: (Point 254 22)
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	187	)
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	188	)
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	189
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	190	)
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	191	extent: (Point 300 30)
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	192	)
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	193	(ArbitraryComponentSpec
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	194	name: 'Browser'
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	195	level: -1
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	196	menu: middleButtonMenu
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	197	hasHorizontalScrollBar: true
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	198	hasVerticalScrollBar: true
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	199	miniScrollerHorizontal: true
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	200	miniScrollerVertical: false
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	201	hasBorder: false
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	202	component: tagView
8374dee8a360 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14633 diff changeset	203	extent: (Point 300 271)
14543 779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	204	)
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	205	)
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	206
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	207	)
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	208	)
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	209	)
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	210
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	211	)
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	212	)
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	213	! !
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	214
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	215	!TagsBrowser class methodsFor:'menu specs'!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	216
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	217	assemblerMenuSlice
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	218	"This resource specification was automatically generated
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	219	by the MenuEditor of ST/X."
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	220
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	221	"Do not manually edit this!! If it is corrupted,
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	222	the MenuEditor may not be able to read the specification."
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	223
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	224	"
9920 43b6275db7eb tags Claus Gittinger <cg@exept.de> parents: 9919 diff changeset	225	MenuEditor new openOnClass:Tools::TagsBrowser andSelector:#assemblerMenuSlice
43b6275db7eb tags Claus Gittinger <cg@exept.de> parents: 9919 diff changeset	226	(Menu new fromLiteralArrayEncoding:(Tools::TagsBrowser assemblerMenuSlice)) startUp
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	227	"
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	228
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	229	<resource: #menu>
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	230
14484 ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	231	^
9920 43b6275db7eb tags Claus Gittinger <cg@exept.de> parents: 9919 diff changeset	232	#(Menu
14484 ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	233	(
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	234	(MenuItem
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	235	label: '-'
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	236	isVisible: editedFileHasAssemblerSuffix
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	237	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	238	(MenuItem
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	239	enabled: tagTypesPresentHolder
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	240	label: 'Hide Local Labels (Style1: Starting with ".")'
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	241	translateLabel: true
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	242	isVisible: editedFileHasAssemblerSuffix
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	243	hideMenuOnActivated: false
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	244	indication: hideLocalLabels:
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	245	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	246	(MenuItem
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	247	enabled: tagTypesPresentHolder
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	248	label: 'Hide Local Labels (Style2: Not Starting with "_")'
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	249	translateLabel: true
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	250	isVisible: editedFileHasAssemblerSuffix
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	251	hideMenuOnActivated: false
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	252	indication: hideLocalLabels2:
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	253	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	254	(MenuItem
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	255	enabled: tagTypesPresentHolder
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	256	label: 'Hide Local Labels (Style3: "L[0-9]+")'
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	257	translateLabel: true
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	258	isVisible: editedFileHasAssemblerSuffix
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	259	hideMenuOnActivated: false
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	260	indication: hideLocalLabels3:
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	261	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	262	(MenuItem
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	263	enabled: tagTypesPresentHolder
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	264	label: 'Hide Data Labels'
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	265	translateLabel: true
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	266	isVisible: editedFileHasAssemblerSuffix
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	267	hideMenuOnActivated: false
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	268	indication: hideDataLabels:
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	269	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	270	(MenuItem
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	271	enabled: tagTypesPresentHolder
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	272	label: 'Hide Text Labels'
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	273	translateLabel: true
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	274	isVisible: editedFileHasAssemblerSuffix
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	275	hideMenuOnActivated: false
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	276	indication: hideTextLabels:
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	277	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	278	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	279	nil
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	280	nil
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	281	)
11465 b00c879602f1 localLabels2 Claus Gittinger <cg@exept.de> parents: 11437 diff changeset	282
11503 7105b74e84c3 added: Claus Gittinger <cg@exept.de> parents: 11498 diff changeset	283	"Modified: / 13-05-2012 / 11:26:28 / cg"
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	284	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	285
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	286	cMenuSlice
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	287	"This resource specification was automatically generated
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	288	by the MenuEditor of ST/X."
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	289
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	290	"Do not manually edit this!! If it is corrupted,
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	291	the MenuEditor may not be able to read the specification."
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	292
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	293	"
9920 43b6275db7eb tags Claus Gittinger <cg@exept.de> parents: 9919 diff changeset	294	MenuEditor new openOnClass:Tools::TagsBrowser andSelector:#cMenuSlice
43b6275db7eb tags Claus Gittinger <cg@exept.de> parents: 9919 diff changeset	295	(Menu new fromLiteralArrayEncoding:(Tools::TagsBrowser cMenuSlice)) startUp
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	296	"
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	297
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	298	<resource: #menu>
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	299
14484 ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	300	^
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	301	#(Menu
14484 ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	302	(
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	303	(MenuItem
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	304	label: '-'
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	305	isVisible: editedFileHasCSuffix
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	306	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	307	(MenuItem
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	308	enabled: tagTypesPresentHolder
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	309	label: 'Classes, Functions && Variables Only'
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	310	translateLabel: true
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	311	isVisible: editedFileHasCSuffix
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	312	indication: classesFunctionsAndVariablesOnly:
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	313	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	314	(MenuItem
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	315	enabled: tagTypesPresentHolder
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	316	label: 'Classes Only'
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	317	translateLabel: true
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	318	isVisible: editedFileHasCSuffix
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	319	indication: classesOnly:
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	320	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	321	(MenuItem
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	322	enabled: tagTypesPresentHolder
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	323	label: 'Functions Only'
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	324	translateLabel: true
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	325	isVisible: editedFileHasCSuffix
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	326	indication: functionsOnly:
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	327	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	328	(MenuItem
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	329	enabled: tagTypesPresentHolder
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	330	label: 'Variables Only'
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	331	translateLabel: true
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	332	isVisible: editedFileHasCSuffix
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	333	indication: variablesOnly:
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	334	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	335	(MenuItem
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	336	enabled: tagTypesPresentHolder
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	337	label: 'Types Only'
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	338	translateLabel: true
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	339	isVisible: editedFileHasCSuffix
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	340	indication: typesOnly:
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	341	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	342	(MenuItem
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	343	enabled: tagTypesPresentHolder
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	344	label: 'Structs Only'
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	345	translateLabel: true
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	346	isVisible: editedFileHasCSuffix
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	347	indication: structsOnly:
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	348	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	349	(MenuItem
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	350	enabled: tagTypesPresentHolder
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	351	label: 'Defines Only'
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	352	translateLabel: true
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	353	isVisible: editedFileHasCSuffix
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	354	indication: definesOnly:
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	355	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	356	(MenuItem
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	357	label: '-'
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	358	isVisible: editedFileHasCSuffix
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	359	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	360	(MenuItem
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	361	enabled: tagTypesPresentHolder
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	362	label: 'Hide Classes'
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	363	translateLabel: true
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	364	isVisible: editedFileHasCSuffix
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	365	hideMenuOnActivated: false
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	366	indication: hideClasses:
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	367	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	368	(MenuItem
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	369	enabled: tagTypesPresentHolder
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	370	label: 'Hide Functions'
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	371	translateLabel: true
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	372	isVisible: editedFileHasCSuffix
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	373	hideMenuOnActivated: false
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	374	indication: hideFunctions:
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	375	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	376	(MenuItem
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	377	enabled: tagTypesPresentHolder
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	378	label: 'Hide Variables'
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	379	translateLabel: true
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	380	isVisible: editedFileHasCSuffix
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	381	hideMenuOnActivated: false
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	382	indication: hideVariables:
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	383	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	384	(MenuItem
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	385	enabled: tagTypesPresentHolder
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	386	label: 'Hide Typedefs'
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	387	translateLabel: true
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	388	isVisible: editedFileHasCSuffix
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	389	hideMenuOnActivated: false
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	390	indication: hideTypedefs:
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	391	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	392	(MenuItem
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	393	enabled: tagTypesPresentHolder
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	394	label: 'Hide Structures'
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	395	translateLabel: true
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	396	isVisible: editedFileHasCSuffix
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	397	hideMenuOnActivated: false
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	398	indication: hideStructures:
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	399	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	400	(MenuItem
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	401	enabled: tagTypesPresentHolder
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	402	label: 'Hide Struct Members'
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	403	translateLabel: true
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	404	isVisible: editedFileHasCSuffix
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	405	hideMenuOnActivated: false
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	406	indication: hideStructMembers:
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	407	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	408	(MenuItem
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	409	enabled: tagTypesPresentHolder
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	410	label: 'Hide Defines'
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	411	translateLabel: true
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	412	isVisible: editedFileHasCSuffix
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	413	hideMenuOnActivated: false
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	414	indication: hideDefines:
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	415	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	416	(MenuItem
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	417	enabled: tagTypesPresentHolder
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	418	label: 'Hide Labels'
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	419	translateLabel: true
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	420	isVisible: editedFileHasCSuffix
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	421	hideMenuOnActivated: false
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	422	indication: hideLabels:
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	423	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	424	(MenuItem
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	425	label: '-'
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	426	isVisible: editedFileHasCSuffix
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	427	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	428	(MenuItem
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	429	enabled: tagTypesPresentHolder
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	430	label: 'Hide Static'
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	431	translateLabel: true
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	432	isVisible: editedFileHasCSuffix
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	433	hideMenuOnActivated: false
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	434	indication: hideStatic:
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	435	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	436	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	437	nil
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	438	nil
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	439	)
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	440	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	441
11761 0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	442	dartMenuSlice
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	443	"This resource specification was automatically generated
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	444	by the MenuEditor of ST/X."
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	445
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	446	"Do not manually edit this!! If it is corrupted,
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	447	the MenuEditor may not be able to read the specification."
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	448
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	449	"
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	450	MenuEditor new openOnClass:Tools::TagsBrowser andSelector:#javaMenuSlice
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	451	(Menu new fromLiteralArrayEncoding:(Tools::TagsBrowser javaMenuSlice)) startUp
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	452	"
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	453
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	454	<resource: #menu>
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	455
14484 ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	456	^
11761 0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	457	#(Menu
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	458	(
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	459	(MenuItem
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	460	label: '-'
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	461	isVisible: editedFileHasDartSuffix
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	462	)
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	463	(MenuItem
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	464	enabled: tagTypesPresentHolder
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	465	label: 'Classes Only'
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	466	translateLabel: true
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	467	isVisible: editedFileHasDartSuffix
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	468	indication: classesOnly:
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	469	)
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	470	(MenuItem
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	471	enabled: tagTypesPresentHolder
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	472	label: 'Methods Only'
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	473	translateLabel: true
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	474	isVisible: editedFileHasDartSuffix
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	475	indication: methodsOnly:
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	476	)
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	477	(MenuItem
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	478	enabled: tagTypesPresentHolder
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	479	label: 'Classes && Methods Only'
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	480	translateLabel: true
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	481	isVisible: editedFileHasDartSuffix
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	482	indication: classesAndMethodsOnly:
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	483	)
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	484	(MenuItem
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	485	label: '-'
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	486	isVisible: editedFileHasDartSuffix
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	487	)
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	488	(MenuItem
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	489	enabled: tagTypesPresentHolder
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	490	label: 'Hide Packages'
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	491	translateLabel: true
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	492	isVisible: false "editedFileHasDartSuffix"
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	493	hideMenuOnActivated: false
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	494	indication: hidePackages:
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	495	)
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	496	(MenuItem
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	497	enabled: tagTypesPresentHolder
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	498	label: 'Hide Classes'
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	499	translateLabel: true
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	500	isVisible: editedFileHasDartSuffix
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	501	hideMenuOnActivated: false
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	502	indication: hideClasses:
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	503	)
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	504	(MenuItem
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	505	enabled: tagTypesPresentHolder
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	506	label: 'Hide Interfaces'
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	507	translateLabel: true
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	508	isVisible: editedFileHasDartSuffix
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	509	hideMenuOnActivated: false
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	510	indication: hideInterfaces:
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	511	)
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	512	(MenuItem
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	513	enabled: tagTypesPresentHolder
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	514	label: 'Hide Methods'
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	515	translateLabel: true
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	516	isVisible: editedFileHasDartSuffix
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	517	hideMenuOnActivated: false
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	518	indication: hideMethods:
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	519	)
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	520	(MenuItem
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	521	enabled: tagTypesPresentHolder
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	522	label: 'Hide Fields'
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	523	translateLabel: true
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	524	isVisible: editedFileHasDartSuffix
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	525	hideMenuOnActivated: false
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	526	indication: hideFields:
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	527	)
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	528	)
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	529	nil
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	530	nil
11761 0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	531	)
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	532
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	533	"Modified: / 22-06-2017 / 10:52:06 / cg"
11761 0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	534	!
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	535
14578 758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	536	htmlMenuSlice
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	537	"This resource specification was automatically generated
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	538	by the MenuEditor of ST/X."
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	539
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	540	"Do not manually edit this!! If it is corrupted,
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	541	the MenuEditor may not be able to read the specification."
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	542
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	543	"
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	544	MenuEditor new openOnClass:Tools::TagsBrowser andSelector:#lispMenuSlice
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	545	(Menu new fromLiteralArrayEncoding:(Tools::TagsBrowser lispMenuSlice)) startUp
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	546	"
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	547
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	548	<resource: #menu>
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	549
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	550	^
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	551	#(Menu
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	552	(
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	553	(MenuItem
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	554	label: '-'
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	555	isVisible: editedFileHasHtmlSuffix
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	556	)
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	557	(MenuItem
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	558	enabled: tagTypesPresentHolder
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	559	label: 'Anchors Only'
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	560	translateLabel: true
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	561	isVisible: editedFileHasHtmlSuffix
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	562	indication: anchorsOnly:
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	563	)
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	564	(MenuItem
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	565	enabled: tagTypesPresentHolder
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	566	label: 'Headlines Only'
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	567	translateLabel: true
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	568	isVisible: editedFileHasHtmlSuffix
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	569	indication: headlinesOnly:
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	570	)
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	571	)
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	572	nil
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	573	nil
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	574	)
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	575	!
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	576
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	577	javaMenuSlice
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	578	"This resource specification was automatically generated
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	579	by the MenuEditor of ST/X."
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	580
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	581	"Do not manually edit this!! If it is corrupted,
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	582	the MenuEditor may not be able to read the specification."
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	583
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	584	"
9920 43b6275db7eb tags Claus Gittinger <cg@exept.de> parents: 9919 diff changeset	585	MenuEditor new openOnClass:Tools::TagsBrowser andSelector:#javaMenuSlice
43b6275db7eb tags Claus Gittinger <cg@exept.de> parents: 9919 diff changeset	586	(Menu new fromLiteralArrayEncoding:(Tools::TagsBrowser javaMenuSlice)) startUp
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	587	"
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	588
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	589	<resource: #menu>
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	590
14484 ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	591	^
9920 43b6275db7eb tags Claus Gittinger <cg@exept.de> parents: 9919 diff changeset	592	#(Menu
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	593	(
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	594	(MenuItem
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	595	label: '-'
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	596	isVisible: editedFileHasJavaSuffix
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	597	)
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	598	(MenuItem
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	599	enabled: tagTypesPresentHolder
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	600	label: 'Classes Only'
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	601	translateLabel: true
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	602	isVisible: editedFileHasJavaSuffix
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	603	indication: classesOnly:
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	604	)
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	605	(MenuItem
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	606	enabled: tagTypesPresentHolder
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	607	label: 'Methods OnLy'
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	608	translateLabel: true
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	609	isVisible: editedFileHasJavaSuffix
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	610	indication: methodsOnly:
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	611	)
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	612	(MenuItem
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	613	enabled: tagTypesPresentHolder
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	614	label: 'Classes && Methods Only'
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	615	translateLabel: true
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	616	isVisible: editedFileHasJavaSuffix
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	617	indication: classesAndMethodsOnly:
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	618	)
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	619	(MenuItem
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	620	label: '-'
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	621	isVisible: editedFileHasJavaSuffix
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	622	)
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	623	(MenuItem
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	624	enabled: tagTypesPresentHolder
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	625	label: 'Hide Packages'
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	626	translateLabel: true
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	627	isVisible: editedFileHasJavaSuffix
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	628	hideMenuOnActivated: false
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	629	indication: hidePackages:
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	630	)
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	631	(MenuItem
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	632	enabled: tagTypesPresentHolder
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	633	label: 'Hide Classes'
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	634	translateLabel: true
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	635	isVisible: editedFileHasJavaSuffix
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	636	hideMenuOnActivated: false
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	637	indication: hideClasses:
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	638	)
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	639	(MenuItem
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	640	enabled: tagTypesPresentHolder
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	641	label: 'Hide Methods'
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	642	translateLabel: true
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	643	isVisible: editedFileHasJavaSuffix
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	644	hideMenuOnActivated: false
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	645	indication: hideMethods:
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	646	)
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	647	(MenuItem
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	648	enabled: tagTypesPresentHolder
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	649	label: 'Hide Fields'
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	650	translateLabel: true
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	651	isVisible: editedFileHasJavaSuffix
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	652	hideMenuOnActivated: false
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	653	indication: hideFields:
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	654	)
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	655	)
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	656	nil
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	657	nil
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	658	)
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	659
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	660	"Modified: / 22-06-2017 / 10:52:30 / cg"
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	661	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	662
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	663	javaScriptMenuSlice
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	664	"This resource specification was automatically generated
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	665	by the MenuEditor of ST/X."
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	666
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	667	"Do not manually edit this!! If it is corrupted,
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	668	the MenuEditor may not be able to read the specification."
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	669
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	670	"
9920 43b6275db7eb tags Claus Gittinger <cg@exept.de> parents: 9919 diff changeset	671	MenuEditor new openOnClass:Tools::TagsBrowser andSelector:#javaScriptMenuSlice
43b6275db7eb tags Claus Gittinger <cg@exept.de> parents: 9919 diff changeset	672	(Menu new fromLiteralArrayEncoding:(Tools::TagsBrowser javaScriptMenuSlice)) startUp
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	673	"
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	674
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	675	<resource: #menu>
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	676
14484 ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	677	^
9920 43b6275db7eb tags Claus Gittinger <cg@exept.de> parents: 9919 diff changeset	678	#(Menu
14484 ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	679	(
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	680	(MenuItem
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	681	label: '-'
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	682	isVisible: editedFileHasJavaScriptSuffix
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	683	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	684	(MenuItem
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	685	enabled: tagTypesPresentHolder
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	686	label: 'Functions Only'
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	687	translateLabel: true
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	688	isVisible: editedFileHasJavaScriptSuffix
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	689	hideMenuOnActivated: false
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	690	indication: functionsOnly:
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	691	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	692	(MenuItem
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	693	enabled: tagTypesPresentHolder
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	694	label: 'Variables Only'
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	695	translateLabel: true
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	696	isVisible: editedFileHasJavaScriptSuffix
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	697	hideMenuOnActivated: false
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	698	indication: variablesOnly:
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	699	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	700	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	701	nil
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	702	nil
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	703	)
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	704	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	705
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	706	lispMenuSlice
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	707	"This resource specification was automatically generated
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	708	by the MenuEditor of ST/X."
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	709
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	710	"Do not manually edit this!! If it is corrupted,
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	711	the MenuEditor may not be able to read the specification."
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	712
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	713	"
9920 43b6275db7eb tags Claus Gittinger <cg@exept.de> parents: 9919 diff changeset	714	MenuEditor new openOnClass:Tools::TagsBrowser andSelector:#lispMenuSlice
43b6275db7eb tags Claus Gittinger <cg@exept.de> parents: 9919 diff changeset	715	(Menu new fromLiteralArrayEncoding:(Tools::TagsBrowser lispMenuSlice)) startUp
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	716	"
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	717
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	718	<resource: #menu>
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	719
14484 ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	720	^
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	721	#(Menu
14484 ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	722	(
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	723	(MenuItem
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	724	label: '-'
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	725	isVisible: editedFileHasLispSuffix
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	726	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	727	(MenuItem
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	728	enabled: tagTypesPresentHolder
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	729	label: 'Documentation Only'
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	730	translateLabel: true
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	731	isVisible: editedFileHasLispSuffix
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	732	indication: documentationOnly:
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	733	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	734	(MenuItem
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	735	enabled: tagTypesPresentHolder
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	736	label: 'Classes Only'
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	737	translateLabel: true
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	738	isVisible: editedFileHasLispSuffix
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	739	indication: classesOnly:
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	740	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	741	(MenuItem
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	742	enabled: tagTypesPresentHolder
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	743	label: 'Methods Only'
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	744	translateLabel: true
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	745	isVisible: editedFileHasLispSuffix
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	746	indication: methodsOnly:
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	747	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	748	(MenuItem
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	749	enabled: tagTypesPresentHolder
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	750	label: 'Functions Only'
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	751	translateLabel: true
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	752	isVisible: editedFileHasLispSuffix
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	753	indication: functionsOnly:
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	754	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	755	(MenuItem
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	756	enabled: tagTypesPresentHolder
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	757	label: 'Variables Only'
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	758	translateLabel: true
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	759	isVisible: editedFileHasLispSuffix
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	760	indication: variablesOnly:
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	761	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	762	(MenuItem
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	763	enabled: tagTypesPresentHolder
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	764	label: 'Macros Only'
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	765	translateLabel: true
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	766	isVisible: editedFileHasLispSuffix
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	767	indication: macrosOnly:
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	768	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	769	(MenuItem
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	770	label: '-'
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	771	isVisible: editedFileHasLispSuffix
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	772	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	773	(MenuItem
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	774	enabled: tagTypesPresentHolder
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	775	label: 'Hide Documentation'
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	776	translateLabel: true
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	777	isVisible: editedFileHasLispSuffix
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	778	hideMenuOnActivated: false
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	779	indication: hideDocumentation:
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	780	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	781	(MenuItem
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	782	enabled: tagTypesPresentHolder
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	783	label: 'Hide Classes'
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	784	translateLabel: true
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	785	isVisible: editedFileHasLispSuffix
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	786	hideMenuOnActivated: false
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	787	indication: hideClasses:
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	788	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	789	(MenuItem
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	790	enabled: tagTypesPresentHolder
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	791	label: 'Hide Methods'
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	792	translateLabel: true
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	793	isVisible: editedFileHasLispSuffix
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	794	hideMenuOnActivated: false
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	795	indication: hideLispMethods:
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	796	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	797	(MenuItem
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	798	enabled: tagTypesPresentHolder
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	799	label: 'Hide Functions'
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	800	translateLabel: true
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	801	isVisible: editedFileHasLispSuffix
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	802	hideMenuOnActivated: false
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	803	indication: hideFunctions:
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	804	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	805	(MenuItem
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	806	enabled: tagTypesPresentHolder
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	807	label: 'Hide Variables'
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	808	translateLabel: true
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	809	isVisible: editedFileHasLispSuffix
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	810	hideMenuOnActivated: false
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	811	indication: hideVariables:
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	812	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	813	(MenuItem
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	814	enabled: tagTypesPresentHolder
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	815	label: 'Hide Macros'
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	816	translateLabel: true
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	817	isVisible: editedFileHasLispSuffix
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	818	hideMenuOnActivated: false
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	819	indication: hideLispMacros:
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	820	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	821	(MenuItem
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	822	enabled: tagTypesPresentHolder
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	823	label: 'Hide Constants'
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	824	translateLabel: true
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	825	isVisible: editedFileHasLispSuffix
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	826	hideMenuOnActivated: false
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	827	indication: hideLispConstants:
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	828	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	829	(MenuItem
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	830	enabled: tagTypesPresentHolder
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	831	label: 'Hide Evaluations'
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	832	translateLabel: true
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	833	isVisible: editedFileHasLispSuffix
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	834	hideMenuOnActivated: false
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	835	indication: hideLispEvaluations:
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	836	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	837	(MenuItem
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	838	enabled: tagTypesPresentHolder
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	839	label: 'Hide Structs'
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	840	translateLabel: true
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	841	isVisible: editedFileHasLispSuffix
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	842	hideMenuOnActivated: false
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	843	indication: hideStructures:
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	844	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	845	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	846	nil
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	847	nil
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	848	)
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	849	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	850
14348 eca3fa14add6 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13963 diff changeset	851	luaMenuSlice
eca3fa14add6 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13963 diff changeset	852	"This resource specification was automatically generated
eca3fa14add6 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13963 diff changeset	853	by the MenuEditor of ST/X."
eca3fa14add6 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13963 diff changeset	854
eca3fa14add6 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13963 diff changeset	855	"Do not manually edit this!! If it is corrupted,
eca3fa14add6 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13963 diff changeset	856	the MenuEditor may not be able to read the specification."
eca3fa14add6 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13963 diff changeset	857
eca3fa14add6 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13963 diff changeset	858	"
eca3fa14add6 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13963 diff changeset	859	MenuEditor new openOnClass:Tools::TagsBrowser andSelector:#javaScriptMenuSlice
eca3fa14add6 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13963 diff changeset	860	(Menu new fromLiteralArrayEncoding:(Tools::TagsBrowser javaScriptMenuSlice)) startUp
eca3fa14add6 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13963 diff changeset	861	"
eca3fa14add6 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13963 diff changeset	862
eca3fa14add6 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13963 diff changeset	863	<resource: #menu>
eca3fa14add6 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13963 diff changeset	864
14484 ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	865	^
14348 eca3fa14add6 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13963 diff changeset	866	#(Menu
14484 ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	867	(
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	868	(MenuItem
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	869	label: '-'
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	870	isVisible: editedFileHasLuaSuffix
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	871	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	872	(MenuItem
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	873	enabled: tagTypesPresentHolder
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	874	label: 'Functions Only'
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	875	translateLabel: true
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	876	isVisible: editedFileHasLuaSuffix
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	877	hideMenuOnActivated: false
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	878	indication: functionsOnly:
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	879	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	880	(MenuItem
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	881	enabled: tagTypesPresentHolder
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	882	label: 'Variables Only'
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	883	translateLabel: true
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	884	isVisible: editedFileHasLuaSuffix
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	885	hideMenuOnActivated: false
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	886	indication: variablesOnly:
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	887	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	888	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	889	nil
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	890	nil
14348 eca3fa14add6 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13963 diff changeset	891	)
eca3fa14add6 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13963 diff changeset	892	!
eca3fa14add6 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13963 diff changeset	893
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	894	makefileMenuSlice
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	895	"This resource specification was automatically generated
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	896	by the MenuEditor of ST/X."
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	897
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	898	"Do not manually edit this!! If it is corrupted,
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	899	the MenuEditor may not be able to read the specification."
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	900
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	901	"
9920 43b6275db7eb tags Claus Gittinger <cg@exept.de> parents: 9919 diff changeset	902	MenuEditor new openOnClass:Tools::TagsBrowser andSelector:#makefileMenuSlice
43b6275db7eb tags Claus Gittinger <cg@exept.de> parents: 9919 diff changeset	903	(Menu new fromLiteralArrayEncoding:(Tools::TagsBrowser makefileMenuSlice)) startUp
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	904	"
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	905
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	906	<resource: #menu>
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	907
14484 ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	908	^
9920 43b6275db7eb tags Claus Gittinger <cg@exept.de> parents: 9919 diff changeset	909	#(Menu
14484 ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	910	(
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	911	(MenuItem
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	912	label: '-'
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	913	isVisible: editedFileIsMakefile
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	914	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	915	(MenuItem
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	916	enabled: tagTypesPresentHolder
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	917	label: 'Targets Only'
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	918	translateLabel: true
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	919	isVisible: editedFileIsMakefile
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	920	hideMenuOnActivated: false
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	921	indication: targetsOnly:
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	922	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	923	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	924	nil
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	925	nil
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	926	)
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	927	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	928
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	929	middleButtonMenu
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	930	"This resource specification was automatically generated
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	931	by the MenuEditor of ST/X."
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	932
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	933	"Do not manually edit this!! If it is corrupted,
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	934	the MenuEditor may not be able to read the specification."
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	935
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	936	"
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	937	MenuEditor new openOnClass:CBrowser::TagsBrowser andSelector:#middleButtonMenu
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	938	(Menu new fromLiteralArrayEncoding:(CBrowser::TagsBrowser middleButtonMenu)) startUp
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	939	"
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	940
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	941	<resource: #menu>
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	942
14484 ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	943	^
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	944	#(Menu
14578 758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	945	(
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	946	(MenuItem
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	947	enabled: tagTypesPresentHolder
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	948	label: 'Group by Type'
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	949	translateLabel: true
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	950	indication: groupedByType:
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	951	)
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	952	(MenuItem
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	953	label: '-'
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	954	)
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	955	(MenuItem
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	956	label: 'Sort by Name'
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	957	translateLabel: true
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	958	indication: sortedByName:
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	959	)
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	960	(MenuItem
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	961	label: 'Sort by Name Ignoring Case'
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	962	translateLabel: true
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	963	indication: sortedByNameIgnoringCase:
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	964	)
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	965	(MenuItem
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	966	label: 'Sort by Name (Ignore Leading Underscores)'
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	967	translateLabel: true
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	968	indication: sortedByNameIgnoringLeadingUnderscores:
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	969	)
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	970	(MenuItem
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	971	label: 'Sort by Name (Ignore Leading Underscores and Case)'
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	972	translateLabel: true
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	973	indication: sortedByNameIgnoringLeadingUnderscoresAndCase:
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	974	)
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	975	(MenuItem
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	976	label: 'Sort by Line Number'
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	977	translateLabel: true
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	978	indication: sortedByLineNumber:
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	979	)
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	980	(MenuItem
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	981	label: 'C Menu Slice'
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	982	translateLabel: true
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	983	submenuChannel: cMenuSlice
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	984	isMenuSlice: true
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	985	)
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	986	(MenuItem
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	987	label: 'Smalltalk Menu Slice'
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	988	translateLabel: true
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	989	submenuChannel: smalltalkMenuSlice
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	990	isMenuSlice: true
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	991	)
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	992	(MenuItem
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	993	label: 'Java Menu Slice'
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	994	translateLabel: true
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	995	submenuChannel: javaMenuSlice
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	996	isMenuSlice: true
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	997	)
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	998	(MenuItem
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	999	label: 'JavaScript Menu Slice'
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1000	translateLabel: true
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1001	submenuChannel: javaScriptMenuSlice
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1002	isMenuSlice: true
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1003	)
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1004	(MenuItem
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1005	label: 'Dart Menu Slice'
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1006	translateLabel: true
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1007	submenuChannel: dartMenuSlice
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1008	isMenuSlice: true
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1009	)
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1010	(MenuItem
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1011	label: 'TCL Menu Slice'
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1012	translateLabel: true
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1013	submenuChannel: tclMenuSlice
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1014	isMenuSlice: true
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1015	)
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1016	(MenuItem
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1017	label: 'Assembler Menu Slice'
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1018	translateLabel: true
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1019	submenuChannel: assemblerMenuSlice
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1020	isMenuSlice: true
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1021	)
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1022	(MenuItem
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1023	label: 'Lisp Menu Slice'
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1024	translateLabel: true
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1025	submenuChannel: lispMenuSlice
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1026	isMenuSlice: true
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1027	)
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1028	(MenuItem
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1029	label: 'Lua Menu Slice'
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1030	translateLabel: true
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1031	submenuChannel: luaMenuSlice
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1032	isMenuSlice: true
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1033	)
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1034	(MenuItem
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1035	label: 'Python Menu Slice'
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1036	translateLabel: true
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1037	submenuChannel: pythonMenuSlice
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1038	isMenuSlice: true
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1039	isVisible: editedFileHasPythonSuffix
14578 758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1040	)
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1041	(MenuItem
16281 cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1042	label: 'ObjC Menu Slice'
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1043	translateLabel: true
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1044	submenuChannel: objcMenuSlice
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1045	isMenuSlice: true
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1046	)
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1047	(MenuItem
14578 758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1048	label: 'OZ Menu Slice'
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1049	translateLabel: true
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1050	submenuChannel: ozMenuSlice
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1051	isMenuSlice: true
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1052	)
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1053	(MenuItem
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1054	label: 'Makefile Menu Slice'
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1055	translateLabel: true
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1056	submenuChannel: makefileMenuSlice
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1057	isMenuSlice: true
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1058	)
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1059	(MenuItem
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1060	label: 'HTML Menu Slice'
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1061	translateLabel: true
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1062	submenuChannel: htmlMenuSlice
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1063	isMenuSlice: true
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1064	)
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1065	(MenuItem
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1066	label: '-'
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1067	)
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1068	(MenuItem
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1069	label: 'Update'
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1070	itemValue: updateTagList
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1071	translateLabel: true
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1072	)
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1073	)
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1074	nil
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1075	nil
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1076	)
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1077
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1078	"Modified: / 22-06-2017 / 11:25:17 / cg"
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1079	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1080
16281 cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1081	objcMenuSlice
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1082	"This resource specification was automatically generated
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1083	by the MenuEditor of ST/X."
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1084
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1085	"Do not manually edit this!! If it is corrupted,
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1086	the MenuEditor may not be able to read the specification."
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1087
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1088	"
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1089	MenuEditor new openOnClass:Tools::TagsBrowser andSelector:#objcMenuSlice
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1090	(Menu new fromLiteralArrayEncoding:(Tools::TagsBrowser objcMenuSlice)) startUp
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1091	"
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1092
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1093	<resource: #menu>
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1094
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1095	^
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1096	#(Menu
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1097	(
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1098	(MenuItem
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1099	label: '-'
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1100	isVisible: editedFileHasObjcSuffix
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1101	)
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1102	(MenuItem
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1103	enabled: tagTypesPresentHolder
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1104	label: 'Hide Classes'
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1105	translateLabel: true
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1106	isVisible: editedFileHasObjcSuffix
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1107	hideMenuOnActivated: false
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1108	indication: hideObjcClasses:
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1109	)
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1110	(MenuItem
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1111	enabled: tagTypesPresentHolder
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1112	label: 'Hide Methods'
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1113	translateLabel: true
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1114	isVisible: editedFileHasObjcSuffix
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1115	hideMenuOnActivated: false
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1116	indication: hideObjcMethods:
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1117	)
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1118	)
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1119	nil
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1120	nil
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1121	)
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1122	!
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1123
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1124	ozMenuSlice
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1125	"This resource specification was automatically generated
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1126	by the MenuEditor of ST/X."
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1127
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1128	"Do not manually edit this!! If it is corrupted,
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1129	the MenuEditor may not be able to read the specification."
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1130
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1131	"
9920 43b6275db7eb tags Claus Gittinger <cg@exept.de> parents: 9919 diff changeset	1132	MenuEditor new openOnClass:Tools::TagsBrowser andSelector:#ozMenuSlice
43b6275db7eb tags Claus Gittinger <cg@exept.de> parents: 9919 diff changeset	1133	(Menu new fromLiteralArrayEncoding:(Tools::TagsBrowser ozMenuSlice)) startUp
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1134	"
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1135
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1136	<resource: #menu>
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1137
14484 ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1138	^
9920 43b6275db7eb tags Claus Gittinger <cg@exept.de> parents: 9919 diff changeset	1139	#(Menu
14484 ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1140	(
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1141	(MenuItem
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1142	label: '-'
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1143	isVisible: editedFileHasOzSuffix
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1144	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1145	(MenuItem
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1146	enabled: tagTypesPresentHolder
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1147	label: 'Hide Classes'
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1148	translateLabel: true
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1149	isVisible: editedFileHasOzSuffix
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1150	hideMenuOnActivated: false
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1151	indication: hideOzClasses:
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1152	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1153	(MenuItem
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1154	enabled: tagTypesPresentHolder
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1155	label: 'Hide Methods'
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1156	translateLabel: true
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1157	isVisible: editedFileHasOzSuffix
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1158	hideMenuOnActivated: false
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1159	indication: hideOzMethods:
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1160	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1161	(MenuItem
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1162	enabled: tagTypesPresentHolder
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1163	label: 'Hide Functions'
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1164	translateLabel: true
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1165	isVisible: editedFileHasOzSuffix
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1166	hideMenuOnActivated: false
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1167	indication: hideOzFunctions:
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1168	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1169	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1170	nil
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1171	nil
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1172	)
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1173	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1174
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1175	pythonMenuSlice
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1176	"This resource specification was automatically generated
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1177	by the MenuEditor of ST/X."
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1178
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1179	"Do not manually edit this!! If it is corrupted,
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1180	the MenuEditor may not be able to read the specification."
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1181
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1182	"
9920 43b6275db7eb tags Claus Gittinger <cg@exept.de> parents: 9919 diff changeset	1183	MenuEditor new openOnClass:Tools::TagsBrowser andSelector:#pythonMenuSlice
43b6275db7eb tags Claus Gittinger <cg@exept.de> parents: 9919 diff changeset	1184	(Menu new fromLiteralArrayEncoding:(Tools::TagsBrowser pythonMenuSlice)) startUp
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1185	"
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1186
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1187	<resource: #menu>
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1188
14484 ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1189	^
9920 43b6275db7eb tags Claus Gittinger <cg@exept.de> parents: 9919 diff changeset	1190	#(Menu
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1191	(
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1192	(MenuItem
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1193	label: '-'
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1194	"/ isVisible: editedFileHasPythonSuffix
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1195	)
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1196	(MenuItem
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1197	enabled: tagTypesPresentHolder
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1198	label: 'Classes Only'
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1199	translateLabel: true
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1200	"/ isVisible: editedFileHasPythonSuffix
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1201	indication: classesOnly:
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1202	)
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1203	(MenuItem
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1204	enabled: tagTypesPresentHolder
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1205	label: 'Methods Only'
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1206	translateLabel: true
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1207	"/ isVisible: editedFileHasPythonSuffix
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1208	indication: methodsOnly:
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1209	)
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1210	(MenuItem
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1211	enabled: tagTypesPresentHolder
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1212	label: 'Functions Only'
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1213	translateLabel: true
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1214	"/ isVisible: editedFileHasPythonSuffix
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1215	indication: functionsOnly:
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1216	)
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1217	(MenuItem
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1218	label: '-'
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1219	"/ isVisible: editedFileHasPythonSuffix
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1220	)
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1221	(MenuItem
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1222	enabled: tagTypesPresentHolder
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1223	label: 'Hide Classes'
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1224	translateLabel: true
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1225	isVisible: editedFileHasPythonSuffix
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1226	hideMenuOnActivated: false
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1227	indication: hideClasses:
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1228	)
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1229	(MenuItem
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1230	enabled: tagTypesPresentHolder
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1231	label: 'Hide Methods'
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1232	translateLabel: true
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1233	isVisible: editedFileHasPythonSuffix
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1234	hideMenuOnActivated: false
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1235	indication: hideMethods:
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1236	)
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1237	(MenuItem
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1238	enabled: tagTypesPresentHolder
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1239	label: 'Hide Functions'
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1240	translateLabel: true
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1241	isVisible: editedFileHasPythonSuffix
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1242	hideMenuOnActivated: false
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1243	indication: hideFunctions:
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1244	)
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1245	)
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1246	nil
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1247	nil
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1248	)
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1249
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1250	"Modified: / 22-06-2017 / 11:26:02 / cg"
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1251	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1252
11761 0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	1253	smalltalkMenuSlice
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	1254	"This resource specification was automatically generated
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	1255	by the MenuEditor of ST/X."
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	1256
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	1257	"Do not manually edit this!! If it is corrupted,
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	1258	the MenuEditor may not be able to read the specification."
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	1259
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	1260	"
16281 cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1261	MenuEditor new openOnClass:Tools::TagsBrowser andSelector:#smalltalkMenuSlice
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1262	(Menu new fromLiteralArrayEncoding:(Tools::TagsBrowser smalltalkMenuSlice)) startUp
11761 0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	1263	"
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	1264
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	1265	<resource: #menu>
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	1266
14484 ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1267	^
11761 0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	1268	#(Menu
16281 cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1269	(
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1270	(MenuItem
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1271	label: '-'
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1272	isVisible: editedFileHasSmalltalkSuffix
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1273	)
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1274	(MenuItem
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1275	enabled: tagTypesPresentHolder
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1276	label: 'Hide Classes'
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1277	translateLabel: true
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1278	isVisible: editedFileHasSmalltalkSuffix
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1279	hideMenuOnActivated: false
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1280	indication: hideClasses:
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1281	)
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1282	(MenuItem
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1283	enabled: tagTypesPresentHolder
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1284	label: 'Hide Methods'
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1285	translateLabel: true
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1286	isVisible: editedFileHasSmalltalkSuffix
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1287	hideMenuOnActivated: false
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1288	indication: hideMethods:
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1289	)
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1290	)
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1291	nil
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	1292	nil
11761 0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	1293	)
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	1294
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	1295	"Created: / 21-08-2012 / 20:59:28 / cg"
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	1296	!
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	1297
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1298	tclMenuSlice
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1299	"This resource specification was automatically generated
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1300	by the MenuEditor of ST/X."
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1301
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1302	"Do not manually edit this!! If it is corrupted,
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1303	the MenuEditor may not be able to read the specification."
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1304
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1305	"
9920 43b6275db7eb tags Claus Gittinger <cg@exept.de> parents: 9919 diff changeset	1306	MenuEditor new openOnClass:Tools::TagsBrowser andSelector:#tclMenuSlice
43b6275db7eb tags Claus Gittinger <cg@exept.de> parents: 9919 diff changeset	1307	(Menu new fromLiteralArrayEncoding:(Tools::TagsBrowser tclMenuSlice)) startUp
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1308	"
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1309
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1310	<resource: #menu>
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1311
14484 ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1312	^
9920 43b6275db7eb tags Claus Gittinger <cg@exept.de> parents: 9919 diff changeset	1313	#(Menu
14484 ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1314	(
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1315	(MenuItem
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1316	label: '-'
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1317	isVisible: editedFileHasTCLSuffix
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1318	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1319	(MenuItem
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1320	enabled: tagTypesPresentHolder
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1321	label: 'Hide Variables'
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1322	translateLabel: true
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1323	isVisible: editedFileHasTCLSuffix
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1324	hideMenuOnActivated: false
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1325	indication: hideVariables:
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1326	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1327	)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1328	nil
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1329	nil
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1330	)
9942 0ca0b92c24f2 added: #toolBarMenu Claus Gittinger <cg@exept.de> parents: 9920 diff changeset	1331	!
0ca0b92c24f2 added: #toolBarMenu Claus Gittinger <cg@exept.de> parents: 9920 diff changeset	1332
0ca0b92c24f2 added: #toolBarMenu Claus Gittinger <cg@exept.de> parents: 9920 diff changeset	1333	toolBarMenu
0ca0b92c24f2 added: #toolBarMenu Claus Gittinger <cg@exept.de> parents: 9920 diff changeset	1334	"This resource specification was automatically generated
0ca0b92c24f2 added: #toolBarMenu Claus Gittinger <cg@exept.de> parents: 9920 diff changeset	1335	by the MenuEditor of ST/X."
0ca0b92c24f2 added: #toolBarMenu Claus Gittinger <cg@exept.de> parents: 9920 diff changeset	1336
0ca0b92c24f2 added: #toolBarMenu Claus Gittinger <cg@exept.de> parents: 9920 diff changeset	1337	"Do not manually edit this!! If it is corrupted,
0ca0b92c24f2 added: #toolBarMenu Claus Gittinger <cg@exept.de> parents: 9920 diff changeset	1338	the MenuEditor may not be able to read the specification."
0ca0b92c24f2 added: #toolBarMenu Claus Gittinger <cg@exept.de> parents: 9920 diff changeset	1339
10763 f0ea0a752590 added: Claus Gittinger <cg@exept.de> parents: 10759 diff changeset	1340
9942 0ca0b92c24f2 added: #toolBarMenu Claus Gittinger <cg@exept.de> parents: 9920 diff changeset	1341	"
0ca0b92c24f2 added: #toolBarMenu Claus Gittinger <cg@exept.de> parents: 9920 diff changeset	1342	MenuEditor new openOnClass:Tools::TagsBrowser andSelector:#toolBarMenu
0ca0b92c24f2 added: #toolBarMenu Claus Gittinger <cg@exept.de> parents: 9920 diff changeset	1343	(Menu new fromLiteralArrayEncoding:(Tools::TagsBrowser toolBarMenu)) startUp
0ca0b92c24f2 added: #toolBarMenu Claus Gittinger <cg@exept.de> parents: 9920 diff changeset	1344	"
0ca0b92c24f2 added: #toolBarMenu Claus Gittinger <cg@exept.de> parents: 9920 diff changeset	1345
0ca0b92c24f2 added: #toolBarMenu Claus Gittinger <cg@exept.de> parents: 9920 diff changeset	1346	<resource: #menu>
0ca0b92c24f2 added: #toolBarMenu Claus Gittinger <cg@exept.de> parents: 9920 diff changeset	1347
14543 779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	1348	^
9942 0ca0b92c24f2 added: #toolBarMenu Claus Gittinger <cg@exept.de> parents: 9920 diff changeset	1349	#(Menu
14543 779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	1350	(
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	1351	(MenuItem
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	1352	activeHelpKey: updateTagList
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	1353	label: 'updateTagList'
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	1354	itemValue: updateTagList
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	1355	isButton: true
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	1356	labelImage: (ResourceRetriever ToolbarIconLibrary reloadIcon)
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	1357	)
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	1358	(MenuItem
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	1359	label: '-'
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	1360	)
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	1361	(MenuItem
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	1362	activeHelpKey: sortByName
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	1363	label: 'SortByName'
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	1364	itemValue: sortByName
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	1365	isButton: true
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	1366	indication: sortIsByName
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	1367	labelImage: (ResourceRetriever ToolbarIconLibrary sortByName16x16Icon)
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	1368	)
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	1369	(MenuItem
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	1370	activeHelpKey: sortByLineNumber
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	1371	label: 'SortByLineNumber'
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	1372	itemValue: sortByLineNumber
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	1373	isButton: true
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	1374	indication: sortIsByLineNumber
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	1375	labelImage: (ResourceRetriever ToolbarIconLibrary sortByLineNumber16x16Icon)
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	1376	)
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	1377	(MenuItem
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	1378	label: '-'
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	1379	)
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	1380	(MenuItem
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	1381	activeHelpKey: functionsOnly
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	1382	label: 'FunctionsOnly'
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	1383	itemValue: functionsOnly:
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	1384	isButton: true
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	1385	indication: functionsOnlyHolder
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	1386	labelImage: (ResourceRetriever ToolbarIconLibrary functionsOnly16x16Icon)
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	1387	)
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	1388	(MenuItem
14544 fe117e846d33 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14543 diff changeset	1389	activeHelpKey: structsOnly
14543 779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	1390	label: 'StructsOnly'
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	1391	itemValue: structsOnly:
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	1392	isButton: true
14544 fe117e846d33 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14543 diff changeset	1393	isVisible: structsOnlyVisibleHolder
14543 779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	1394	indication: structsOnlyHolder
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	1395	labelImage: (ResourceRetriever ToolbarIconLibrary structsOnly16x16Icon)
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	1396	)
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	1397	(MenuItem
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	1398	activeHelpKey: toggleTagFilter
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	1399	label: 'TagFilter'
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	1400	isButton: true
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	1401	indication: tagFilterFieldVisibleHolder
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	1402	labelImage: (ResourceRetriever ToolbarIconLibrary filter16x16Icon)
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	1403	)
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	1404	)
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	1405	nil
779a760b08a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14526 diff changeset	1406	nil
9942 0ca0b92c24f2 added: #toolBarMenu Claus Gittinger <cg@exept.de> parents: 9920 diff changeset	1407	)
11721 a0857582353c added tagfilter Claus Gittinger <cg@exept.de> parents: 11503 diff changeset	1408	! !
10772 dfd552cb7068 changed: #toolBarMenu Claus Gittinger <cg@exept.de> parents: 10769 diff changeset	1409
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1410	!TagsBrowser methodsFor:'accessing'!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1411
9907 b296c82b6bfd class definition Claus Gittinger <cg@exept.de> parents: 9892 diff changeset	1412	editedFile
b296c82b6bfd class definition Claus Gittinger <cg@exept.de> parents: 9892 diff changeset	1413	^ self editedFileHolder value
b296c82b6bfd class definition Claus Gittinger <cg@exept.de> parents: 9892 diff changeset	1414
b296c82b6bfd class definition Claus Gittinger <cg@exept.de> parents: 9892 diff changeset	1415	"Created: / 06-05-2011 / 13:56:20 / cg"
b296c82b6bfd class definition Claus Gittinger <cg@exept.de> parents: 9892 diff changeset	1416	!
b296c82b6bfd class definition Claus Gittinger <cg@exept.de> parents: 9892 diff changeset	1417
9916 0c3fe1fa42c6 fixes for reusability in cc browser Claus Gittinger <cg@exept.de> parents: 9908 diff changeset	1418	editedFile:aFilename
0c3fe1fa42c6 fixes for reusability in cc browser Claus Gittinger <cg@exept.de> parents: 9908 diff changeset	1419	self editedFileHolder value:aFilename
0c3fe1fa42c6 fixes for reusability in cc browser Claus Gittinger <cg@exept.de> parents: 9908 diff changeset	1420
0c3fe1fa42c6 fixes for reusability in cc browser Claus Gittinger <cg@exept.de> parents: 9908 diff changeset	1421	"Created: / 07-05-2011 / 14:48:58 / cg"
0c3fe1fa42c6 fixes for reusability in cc browser Claus Gittinger <cg@exept.de> parents: 9908 diff changeset	1422	!
0c3fe1fa42c6 fixes for reusability in cc browser Claus Gittinger <cg@exept.de> parents: 9908 diff changeset	1423
9907 b296c82b6bfd class definition Claus Gittinger <cg@exept.de> parents: 9892 diff changeset	1424	editedFileHolder
b296c82b6bfd class definition Claus Gittinger <cg@exept.de> parents: 9892 diff changeset	1425	"gets the holder, which keeps the current edited file
b296c82b6bfd class definition Claus Gittinger <cg@exept.de> parents: 9892 diff changeset	1426	"
9916 0c3fe1fa42c6 fixes for reusability in cc browser Claus Gittinger <cg@exept.de> parents: 9908 diff changeset	1427	editedFileHolder isNil ifTrue:[
14484 ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1428	editedFileHolder := nil asValue.
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1429	editedFileHolder addDependent:self.
9916 0c3fe1fa42c6 fixes for reusability in cc browser Claus Gittinger <cg@exept.de> parents: 9908 diff changeset	1430	].
0c3fe1fa42c6 fixes for reusability in cc browser Claus Gittinger <cg@exept.de> parents: 9908 diff changeset	1431	^ editedFileHolder.
9907 b296c82b6bfd class definition Claus Gittinger <cg@exept.de> parents: 9892 diff changeset	1432
b296c82b6bfd class definition Claus Gittinger <cg@exept.de> parents: 9892 diff changeset	1433	"Created: / 06-05-2011 / 13:52:39 / cg"
9916 0c3fe1fa42c6 fixes for reusability in cc browser Claus Gittinger <cg@exept.de> parents: 9908 diff changeset	1434	"Modified: / 07-05-2011 / 10:15:30 / cg"
0c3fe1fa42c6 fixes for reusability in cc browser Claus Gittinger <cg@exept.de> parents: 9908 diff changeset	1435	!
0c3fe1fa42c6 fixes for reusability in cc browser Claus Gittinger <cg@exept.de> parents: 9908 diff changeset	1436
0c3fe1fa42c6 fixes for reusability in cc browser Claus Gittinger <cg@exept.de> parents: 9908 diff changeset	1437	editedFileHolder:aHolder
0c3fe1fa42c6 fixes for reusability in cc browser Claus Gittinger <cg@exept.de> parents: 9908 diff changeset	1438	"gets the holder, which keeps the current edited file
0c3fe1fa42c6 fixes for reusability in cc browser Claus Gittinger <cg@exept.de> parents: 9908 diff changeset	1439	"
0c3fe1fa42c6 fixes for reusability in cc browser Claus Gittinger <cg@exept.de> parents: 9908 diff changeset	1440	editedFileHolder notNil ifTrue:[
14484 ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1441	editedFileHolder removeDependent:self.
9916 0c3fe1fa42c6 fixes for reusability in cc browser Claus Gittinger <cg@exept.de> parents: 9908 diff changeset	1442	].
0c3fe1fa42c6 fixes for reusability in cc browser Claus Gittinger <cg@exept.de> parents: 9908 diff changeset	1443	editedFileHolder := aHolder.
0c3fe1fa42c6 fixes for reusability in cc browser Claus Gittinger <cg@exept.de> parents: 9908 diff changeset	1444	editedFileHolder notNil ifTrue:[
14484 ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1445	editedFileHolder addDependent:self.
9916 0c3fe1fa42c6 fixes for reusability in cc browser Claus Gittinger <cg@exept.de> parents: 9908 diff changeset	1446	].
0c3fe1fa42c6 fixes for reusability in cc browser Claus Gittinger <cg@exept.de> parents: 9908 diff changeset	1447
0c3fe1fa42c6 fixes for reusability in cc browser Claus Gittinger <cg@exept.de> parents: 9908 diff changeset	1448	"Created: / 07-05-2011 / 10:16:18 / cg"
9907 b296c82b6bfd class definition Claus Gittinger <cg@exept.de> parents: 9892 diff changeset	1449	!
b296c82b6bfd class definition Claus Gittinger <cg@exept.de> parents: 9892 diff changeset	1450
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1451	filter:aString
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1452	tagView filter:aString.
9907 b296c82b6bfd class definition Claus Gittinger <cg@exept.de> parents: 9892 diff changeset	1453	!
b296c82b6bfd class definition Claus Gittinger <cg@exept.de> parents: 9892 diff changeset	1454
16047 0f42991fe9ac #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 15897 diff changeset	1455	tagsMenu:aMenuOrNil
0f42991fe9ac #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 15897 diff changeset	1456	"set the menu to be shown in the tag list"
0f42991fe9ac #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 15897 diff changeset	1457
0f42991fe9ac #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 15897 diff changeset	1458	tagsMenu := aMenuOrNil.
13630 b913e73d593c class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13354 diff changeset	1459	!
b913e73d593c class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13354 diff changeset	1460
14484 ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1461	tagsValid
13341 4de6468037a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13310 diff changeset	1462	^ tagsValid ? false
4de6468037a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13310 diff changeset	1463	!
4de6468037a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13310 diff changeset	1464
9916 0c3fe1fa42c6 fixes for reusability in cc browser Claus Gittinger <cg@exept.de> parents: 9908 diff changeset	1465	tempDirectory
0c3fe1fa42c6 fixes for reusability in cc browser Claus Gittinger <cg@exept.de> parents: 9908 diff changeset	1466	commonAspects notNil ifTrue:[
14484 ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1467	^ commonAspects tempDirectory
9916 0c3fe1fa42c6 fixes for reusability in cc browser Claus Gittinger <cg@exept.de> parents: 9908 diff changeset	1468	].
0c3fe1fa42c6 fixes for reusability in cc browser Claus Gittinger <cg@exept.de> parents: 9908 diff changeset	1469	^ Filename tempDirectory
9907 b296c82b6bfd class definition Claus Gittinger <cg@exept.de> parents: 9892 diff changeset	1470
9916 0c3fe1fa42c6 fixes for reusability in cc browser Claus Gittinger <cg@exept.de> parents: 9908 diff changeset	1471	"Created: / 07-05-2011 / 15:42:44 / cg"
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1472	! !
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1473
17812 bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1474	!TagsBrowser methodsFor:'accessing presentation aspects'!
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1475
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1476	groupedByType
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1477	^ tagList groupedByType
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1478
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1479	"Created: / 05-05-2011 / 14:51:29 / cg"
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1480	!
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1481
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1482	groupedByType:aBool
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1483	tagList groupedByType:aBool
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1484
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1485	"Created: / 05-05-2011 / 14:51:33 / cg"
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1486	!
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1487
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1488	sorted
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1489	^ tagList sorted
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1490	!
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1491
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1492	sorted:aBool
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1493	tagList sorted:aBool
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1494	!
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1495
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1496	sortedByLineNumber
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1497	^ tagList sortedByLineNumber
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1498	!
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1499
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1500	sortedByLineNumber:aBool
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1501	tagList sortedByLineNumber:aBool
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1502	!
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1503
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1504	sortedByName
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1505	^ tagList sortedByName
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1506	!
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1507
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1508	sortedByName:aBool
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1509	tagList sortedByName:aBool
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1510	!
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1511
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1512	sortedByNameIgnoringCase
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1513	^ tagList sortedByNameIgnoringCase
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1514	!
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1515
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1516	sortedByNameIgnoringCase:aBool
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1517	tagList sortedByNameIgnoringCase:aBool
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1518	!
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1519
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1520	sortedByNameIgnoringLeadingUnderscores
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1521	^ tagList sortedByNameIgnoringLeadingUnderscores
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1522	!
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1523
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1524	sortedByNameIgnoringLeadingUnderscores:aBool
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1525	tagList sortedByNameIgnoringLeadingUnderscores:aBool
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1526	!
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1527
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1528	sortedByNameIgnoringLeadingUnderscoresAndCase
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1529	^ tagList sortedByNameIgnoringLeadingUnderscoresAndCase
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1530	!
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1531
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1532	sortedByNameIgnoringLeadingUnderscoresAndCase:aBool
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1533	tagList sortedByNameIgnoringLeadingUnderscoresAndCase:aBool
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1534	!
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1535
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1536	sortedByType
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1537	^ tagList sortedByType
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1538	!
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1539
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1540	sortedByType:aBool
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1541	tagList sortedByType:aBool
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1542	! !
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1543
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1544	!TagsBrowser methodsFor:'accessing-behavior'!
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1545
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1546	action:aOneArgBlock
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1547	"set the action, which is called with the selected tag,
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1548	if the user selects one"
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1549
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1550	action := aOneArgBlock.
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1551
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1552	"Modified: / 23-06-2011 / 16:36:59 / cg"
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1553	! !
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1554
bb5ec83cf869 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17553 diff changeset	1555	!TagsBrowser methodsFor:'accessing-filters'!
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1556
14578 758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1557	anchorsOnly
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1558	^ tagList anchorsOnly
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1559	!
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1560
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1561	anchorsOnly:aBool
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1562	"/ aBool ifTrue:[
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1563	"/ tagList hideAnchors:false.
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1564	"/ ].
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1565	tagList anchorsOnly:aBool.
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1566	self updateTagList
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1567
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1568	"Created: / 08-05-2011 / 10:51:03 / cg"
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1569	!
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1570
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1571	classesAndFunctionsOnly
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1572	^ tagList classesAndFunctionsOnly
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1573
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1574	"Created: / 22-06-2017 / 10:31:51 / cg"
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1575	!
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1576
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1577	classesAndFunctionsOnly:aBool
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1578	aBool ifTrue:[
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1579	tagList hideClasses:false.
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1580	tagList hideFunctions:false.
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1581	].
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1582	tagList classesAndFunctionsOnly:aBool.
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1583	self updateTagList
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1584
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1585	"Created: / 22-06-2017 / 10:31:59 / cg"
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1586	!
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1587
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1588	classesAndMethodsOnly
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1589	^ tagList classesAndMethodsOnly
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1590
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1591	"Created: / 22-06-2017 / 10:31:35 / cg"
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1592	!
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1593
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1594	classesAndMethodsOnly:aBool
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1595	aBool ifTrue:[
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1596	tagList hideClasses:false.
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1597	tagList hideMethods:false.
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1598	].
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1599	tagList classesAndMethodsOnly:aBool.
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1600	self updateTagList
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1601
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1602	"Created: / 22-06-2017 / 10:31:22 / cg"
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1603	!
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1604
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1605	classesFunctionsAndVariablesOnly
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1606	^ tagList classesFunctionsAndVariablesOnly
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1607	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1608
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1609	classesFunctionsAndVariablesOnly:aBool
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1610	aBool ifTrue:[
14484 ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1611	tagList hideClasses:false.
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1612	tagList hideFunctions:false.
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1613	tagList hideVariables:false.
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1614	].
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1615	tagList classesFunctionsAndVariablesOnly:aBool.
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1616	self updateTagList
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1617
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1618	"Modified: / 05-05-2011 / 15:33:13 / cg"
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1619	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1620
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1621	classesOnly
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1622	^ tagList classesOnly
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1623	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1624
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1625	classesOnly:aBool
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1626	aBool ifTrue:[
14484 ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1627	tagList hideClasses:false.
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1628	].
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1629	tagList classesOnly:aBool.
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1630	self updateTagList
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1631
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1632	"Modified: / 05-05-2011 / 15:33:07 / cg"
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1633	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1634
13076 254581d2fafc class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 12956 diff changeset	1635	dartClassesAndMethodsOnly
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1636	^ self classesAndMethodsOnly
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1637	"/ ^ tagList dartClassesAndMethodsOnly
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1638
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1639	"Modified: / 22-06-2017 / 10:30:13 / cg"
13076 254581d2fafc class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 12956 diff changeset	1640	!
254581d2fafc class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 12956 diff changeset	1641
254581d2fafc class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 12956 diff changeset	1642	dartClassesAndMethodsOnly:aBool
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1643	self classesAndMethodsOnly:aBool
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1644	"/ aBool ifTrue:[
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1645	"/ tagList hideDartClasses:false.
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1646	"/ tagList hideDartMethods:false.
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1647	"/ ].
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1648	"/ tagList dartClassesAndMethodsOnly:aBool.
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1649	"/ self updateTagList
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1650
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1651	"Modified: / 22-06-2017 / 10:30:25 / cg"
13076 254581d2fafc class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 12956 diff changeset	1652	!
254581d2fafc class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 12956 diff changeset	1653
11761 0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	1654	dartClassesOnly
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1655	^ self classesOnly
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1656	"/ ^ tagList dartClassesOnly
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1657
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1658	"Modified: / 22-06-2017 / 10:32:35 / cg"
11761 0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	1659	!
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	1660
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	1661	dartClassesOnly:aBool
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1662	self classesOnly:aBool
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1663	"/ aBool ifTrue:[
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1664	"/ tagList hideDartClasses:false.
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1665	"/ ].
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1666	"/ tagList dartClassesOnly:aBool.
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1667	"/ self updateTagList
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1668
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1669	"Modified: / 22-06-2017 / 10:32:26 / cg"
11761 0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	1670	!
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	1671
13076 254581d2fafc class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 12956 diff changeset	1672	dartMethodsOnly
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1673	^ self methodsOnly
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1674	"/ ^ tagList dartMethodsOnly
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1675
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1676	"Modified: / 22-06-2017 / 10:32:44 / cg"
13076 254581d2fafc class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 12956 diff changeset	1677	!
254581d2fafc class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 12956 diff changeset	1678
254581d2fafc class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 12956 diff changeset	1679	dartMethodsOnly:aBool
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1680	self methodsOnly:aBool
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1681	"/ aBool ifTrue:[
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1682	"/ tagList hideDartMethods:false.
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1683	"/ ].
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1684	"/ tagList dartMethodsOnly:aBool.
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1685	"/ self updateTagList
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1686
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1687	"Modified: / 22-06-2017 / 10:32:59 / cg"
13076 254581d2fafc class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 12956 diff changeset	1688	!
254581d2fafc class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 12956 diff changeset	1689
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1690	definesOnly
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1691	^ tagList definesOnly
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1692	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1693
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1694	definesOnly:aBool
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1695	aBool ifTrue:[
14484 ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1696	tagList hideDefines:false.
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1697	].
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1698	tagList definesOnly:aBool.
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1699	self updateTagList
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1700	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1701
9920 43b6275db7eb tags Claus Gittinger <cg@exept.de> parents: 9919 diff changeset	1702	documentationOnly
43b6275db7eb tags Claus Gittinger <cg@exept.de> parents: 9919 diff changeset	1703	^ tagList documentationOnly
43b6275db7eb tags Claus Gittinger <cg@exept.de> parents: 9919 diff changeset	1704
43b6275db7eb tags Claus Gittinger <cg@exept.de> parents: 9919 diff changeset	1705	"Created: / 08-05-2011 / 10:50:52 / cg"
43b6275db7eb tags Claus Gittinger <cg@exept.de> parents: 9919 diff changeset	1706	!
43b6275db7eb tags Claus Gittinger <cg@exept.de> parents: 9919 diff changeset	1707
43b6275db7eb tags Claus Gittinger <cg@exept.de> parents: 9919 diff changeset	1708	documentationOnly:aBool
43b6275db7eb tags Claus Gittinger <cg@exept.de> parents: 9919 diff changeset	1709	aBool ifTrue:[
14484 ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1710	tagList hideDocumentation:false.
9920 43b6275db7eb tags Claus Gittinger <cg@exept.de> parents: 9919 diff changeset	1711	].
43b6275db7eb tags Claus Gittinger <cg@exept.de> parents: 9919 diff changeset	1712	tagList documentationOnly:aBool.
43b6275db7eb tags Claus Gittinger <cg@exept.de> parents: 9919 diff changeset	1713	self updateTagList
43b6275db7eb tags Claus Gittinger <cg@exept.de> parents: 9919 diff changeset	1714
43b6275db7eb tags Claus Gittinger <cg@exept.de> parents: 9919 diff changeset	1715	"Created: / 08-05-2011 / 10:51:03 / cg"
43b6275db7eb tags Claus Gittinger <cg@exept.de> parents: 9919 diff changeset	1716	!
43b6275db7eb tags Claus Gittinger <cg@exept.de> parents: 9919 diff changeset	1717
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1718	functionsAndVariablesOnly
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1719	^ tagList functionsAndVariablesOnly
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1720	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1721
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1722	functionsAndVariablesOnly:aBool
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1723	aBool ifTrue:[
14484 ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1724	tagList hideFunctions:false.
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	1725	tagList hideVariables:false.
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1726	].
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1727	tagList functionsAndVariablesOnly:aBool.
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1728	self updateTagList
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1729	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1730
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1731	functionsOnly
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1732	^ tagList functionsOnly
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1733	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1734
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1735	functionsOnly:aBool
10766 eaaed81115db added: Claus Gittinger <cg@exept.de> parents: 10765 diff changeset	1736	self functionsOnlyHolder value:aBool.
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1737	aBool ifTrue:[
14544 fe117e846d33 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14543 diff changeset	1738	self structsOnlyHolder value:false.
fe117e846d33 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14543 diff changeset	1739	tagList hideFunctions:false.
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1740	].
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1741	tagList functionsOnly:aBool.
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1742	self updateTagList
10766 eaaed81115db added: Claus Gittinger <cg@exept.de> parents: 10765 diff changeset	1743
eaaed81115db added: Claus Gittinger <cg@exept.de> parents: 10765 diff changeset	1744	"Modified: / 06-10-2011 / 14:03:45 / cg"
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1745	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1746
14578 758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1747	headlinesOnly
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1748	^ tagList headlinesOnly
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1749	!
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1750
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1751	headlinesOnly:aBool
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1752	"/ aBool ifTrue:[
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1753	"/ tagList hideDocumentation:false.
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1754	"/ ].
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1755	tagList headlinesOnly:aBool.
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1756	self updateTagList
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1757	!
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	1758
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1759	hideClasses
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1760	^ tagList hideClasses
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1761	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1762
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1763	hideClasses:aBool
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1764	tagList hideClasses:aBool.
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1765	self updateTagList
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1766	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1767
11761 0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	1768	hideDartClasses
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1769	^ self hideClasses
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1770	"/ ^ tagList hideDartClasses
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1771
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1772	"Modified: / 22-06-2017 / 10:55:36 / cg"
11761 0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	1773	!
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	1774
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	1775	hideDartClasses:aBool
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1776	self hideClasses:aBool
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1777	"/ tagList hideDartClasses:aBool.
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1778	"/ self updateTagList
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1779
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1780	"Modified: / 22-06-2017 / 10:55:48 / cg"
11761 0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	1781	!
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	1782
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	1783	hideDartFields
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1784	^ self hideFields
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1785	"/ ^ tagList hideDartFields
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1786
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1787	"Modified: / 22-06-2017 / 10:57:09 / cg"
11761 0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	1788	!
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	1789
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	1790	hideDartFields:aBool
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1791	self hideFields:aBool
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1792	"/ tagList hideDartFields:aBool.
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1793	"/ self updateTagList
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1794
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1795	"Modified: / 22-06-2017 / 11:17:11 / cg"
11761 0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	1796	!
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	1797
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	1798	hideDartInterfaces
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1799	^ self hideInterfaces
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1800	"/ ^ tagList hideDartInterfaces
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1801
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1802	"Modified: / 22-06-2017 / 11:16:29 / cg"
11761 0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	1803	!
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	1804
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	1805	hideDartInterfaces:aBool
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1806	self hideInterfaces:aBool
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1807	"/ tagList hideDartInterfaces:aBool.
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1808	"/ self updateTagList
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1809
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1810	"Modified: / 22-06-2017 / 11:17:00 / cg"
11761 0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	1811	!
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	1812
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	1813	hideDartMethods
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1814	^ self hideMethods
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1815	"/ ^ tagList hideDartMethods
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1816
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1817	"Modified: / 22-06-2017 / 11:16:10 / cg"
11761 0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	1818	!
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	1819
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	1820	hideDartMethods:aBool
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1821	self hideMethods:aBool
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1822	"/ tagList hideDartMethods:aBool.
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1823	"/ self updateTagList
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1824
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1825	"Modified: / 22-06-2017 / 11:16:02 / cg"
11761 0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	1826	!
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	1827
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	1828	hideDartPackages
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1829	^ self hidePackages
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1830	"/ ^ tagList hideDartPackages
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1831
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1832	"Modified: / 22-06-2017 / 11:07:19 / cg"
11761 0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	1833	!
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	1834
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	1835	hideDartPackages:aBool
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1836	self hidePackages:aBool
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1837	"/ tagList hideDartPackages:aBool.
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1838	"/ self updateTagList
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1839
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1840	"Modified: / 22-06-2017 / 11:07:41 / cg"
11761 0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	1841	!
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	1842
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1843	hideDataLabels
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1844	^ tagList hideDataLabels
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1845	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1846
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1847	hideDataLabels:aBool
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1848	tagList hideDataLabels:aBool.
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1849	self updateTagList
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1850	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1851
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1852	hideDefines
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1853	^ tagList hideDefines
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1854	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1855
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1856	hideDefines:aBool
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1857	tagList hideDefines:aBool.
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1858	self updateTagList
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1859	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1860
9920 43b6275db7eb tags Claus Gittinger <cg@exept.de> parents: 9919 diff changeset	1861	hideDocumentation
43b6275db7eb tags Claus Gittinger <cg@exept.de> parents: 9919 diff changeset	1862	^ tagList hideDocumentation
43b6275db7eb tags Claus Gittinger <cg@exept.de> parents: 9919 diff changeset	1863
43b6275db7eb tags Claus Gittinger <cg@exept.de> parents: 9919 diff changeset	1864	"Created: / 08-05-2011 / 10:56:45 / cg"
43b6275db7eb tags Claus Gittinger <cg@exept.de> parents: 9919 diff changeset	1865	!
43b6275db7eb tags Claus Gittinger <cg@exept.de> parents: 9919 diff changeset	1866
43b6275db7eb tags Claus Gittinger <cg@exept.de> parents: 9919 diff changeset	1867	hideDocumentation:aBool
43b6275db7eb tags Claus Gittinger <cg@exept.de> parents: 9919 diff changeset	1868	tagList hideDocumentation:aBool.
43b6275db7eb tags Claus Gittinger <cg@exept.de> parents: 9919 diff changeset	1869	self updateTagList
43b6275db7eb tags Claus Gittinger <cg@exept.de> parents: 9919 diff changeset	1870
43b6275db7eb tags Claus Gittinger <cg@exept.de> parents: 9919 diff changeset	1871	"Created: / 08-05-2011 / 10:56:49 / cg"
43b6275db7eb tags Claus Gittinger <cg@exept.de> parents: 9919 diff changeset	1872	!
43b6275db7eb tags Claus Gittinger <cg@exept.de> parents: 9919 diff changeset	1873
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1874	hideFields
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1875	^ tagList hideFields
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1876
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1877	"Created: / 22-06-2017 / 10:57:19 / cg"
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1878	!
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1879
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1880	hideFields:aBool
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1881	tagList hideFields:aBool.
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1882	self updateTagList
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1883
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1884	"Created: / 22-06-2017 / 10:57:25 / cg"
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1885	!
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1886
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1887	hideFunctionProtoTypes
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1888	^ tagList hideFunctionProtoTypes
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1889	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1890
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1891	hideFunctionProtoTypes:aBool
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1892	tagList hideFunctionProtoTypes:aBool.
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1893	self updateTagList
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1894	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1895
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1896	hideFunctions
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1897	^ tagList hideFunctions
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1898	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1899
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1900	hideFunctions:aBool
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1901	tagList hideFunctions:aBool.
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1902	self updateTagList
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1903	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1904
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1905	hideInterfaces
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1906	^ tagList hideInterfaces
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1907
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1908	"Created: / 22-06-2017 / 11:16:37 / cg"
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1909	!
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1910
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1911	hideInterfaces:aBool
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1912	tagList hideInterfaces:aBool.
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1913	self updateTagList
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1914
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1915	"Created: / 22-06-2017 / 11:16:46 / cg"
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1916	!
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1917
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1918	hideJavaClasses
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1919	^ self hideClasses
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1920	"/ ^ tagList hideJavaClasses
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1921
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1922	"Modified: / 22-06-2017 / 10:56:53 / cg"
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1923	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1924
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1925	hideJavaClasses:aBool
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1926	self hideClasses:aBool
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1927	"/ tagList hideJavaClasses:aBool.
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1928	"/ self updateTagList
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1929
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1930	"Modified: / 22-06-2017 / 10:55:56 / cg"
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1931	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1932
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1933	hideJavaFields
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1934	^ self hideFields
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1935	"/ ^ tagList hideJavaFields
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1936
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1937	"Modified: / 22-06-2017 / 11:13:01 / cg"
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1938	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1939
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1940	hideJavaFields:aBool
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1941	self hideFields:aBool
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1942	"/ tagList hideJavaFields:aBool.
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1943	"/ self updateTagList
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1944
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1945	"Modified: / 22-06-2017 / 11:13:13 / cg"
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1946	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1947
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1948	hideJavaInterfaces
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1949	^ self hideInterfaces
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1950	"/ ^ tagList hideJavaInterfaces
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1951
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1952	"Modified: / 22-06-2017 / 11:12:50 / cg"
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1953	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1954
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1955	hideJavaInterfaces:aBool
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1956	self hideInterfaces:aBool
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1957	"/ tagList hideJavaInterfaces:aBool.
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1958	"/ self updateTagList
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1959
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1960	"Modified: / 22-06-2017 / 11:12:40 / cg"
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1961	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1962
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1963	hideJavaMethods
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1964	^ self hideMethods
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1965	"/ ^ tagList hideJavaMethods
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1966
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1967	"Modified: / 22-06-2017 / 11:12:12 / cg"
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1968	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1969
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1970	hideJavaMethods:aBool
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1971	self hideMethods:aBool
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1972	"/ tagList hideJavaMethods:aBool.
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1973	"/ self updateTagList
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1974
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1975	"Modified: / 22-06-2017 / 11:12:29 / cg"
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1976	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1977
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1978	hideJavaPackages
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1979	^ self hidePackages
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1980	"/ ^ tagList hideJavaPackages
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1981
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1982	"Modified: / 22-06-2017 / 11:07:32 / cg"
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1983	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1984
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1985	hideJavaPackages:aBool
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1986	self hidePackages:aBool
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1987	"/ tagList hideJavaPackages:aBool.
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1988	"/ self updateTagList
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1989
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	1990	"Modified: / 22-06-2017 / 11:07:49 / cg"
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1991	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1992
14386 0b937549b731 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	1993	hideLabels
0b937549b731 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	1994	^ tagList hideLabels
0b937549b731 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	1995	!
0b937549b731 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	1996
0b937549b731 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	1997	hideLabels:aBool
0b937549b731 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	1998	tagList hideLabels:aBool.
0b937549b731 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	1999	self updateTagList
0b937549b731 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	2000	!
0b937549b731 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	2001
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2002	hideLispConstants
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2003	^ tagList hideLispConstants
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2004	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2005
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2006	hideLispConstants:aBool
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2007	tagList hideLispConstants:aBool.
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2008	self updateTagList
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2009	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2010
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2011	hideLispEvaluations
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2012	^ tagList hideLispEvaluations
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2013	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2014
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2015	hideLispEvaluations:aBool
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2016	tagList hideLispEvaluations:aBool.
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2017	self updateTagList
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2018	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2019
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2020	hideLispMacros
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2021	^ tagList hideLispMacros
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2022	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2023
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2024	hideLispMacros:aBool
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2025	tagList hideLispMacros:aBool.
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2026	self updateTagList
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2027	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2028
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2029	hideLispMethods
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2030	^ tagList hideLispMethods
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2031	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2032
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2033	hideLispMethods:aBool
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2034	tagList hideLispMethods:aBool.
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2035	self updateTagList
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2036	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2037
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2038	hideLocalLabels
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2039	^ tagList hideLocalLabels
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2040	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2041
11465 b00c879602f1 localLabels2 Claus Gittinger <cg@exept.de> parents: 11437 diff changeset	2042	hideLocalLabels2
b00c879602f1 localLabels2 Claus Gittinger <cg@exept.de> parents: 11437 diff changeset	2043	^ tagList hideLocalLabels2
b00c879602f1 localLabels2 Claus Gittinger <cg@exept.de> parents: 11437 diff changeset	2044
b00c879602f1 localLabels2 Claus Gittinger <cg@exept.de> parents: 11437 diff changeset	2045	"Created: / 24-03-2012 / 23:23:43 / cg"
b00c879602f1 localLabels2 Claus Gittinger <cg@exept.de> parents: 11437 diff changeset	2046	!
b00c879602f1 localLabels2 Claus Gittinger <cg@exept.de> parents: 11437 diff changeset	2047
b00c879602f1 localLabels2 Claus Gittinger <cg@exept.de> parents: 11437 diff changeset	2048	hideLocalLabels2:aBool
b00c879602f1 localLabels2 Claus Gittinger <cg@exept.de> parents: 11437 diff changeset	2049	tagList hideLocalLabels2:aBool.
b00c879602f1 localLabels2 Claus Gittinger <cg@exept.de> parents: 11437 diff changeset	2050	self updateTagList
b00c879602f1 localLabels2 Claus Gittinger <cg@exept.de> parents: 11437 diff changeset	2051
b00c879602f1 localLabels2 Claus Gittinger <cg@exept.de> parents: 11437 diff changeset	2052	"Created: / 24-03-2012 / 23:23:26 / cg"
b00c879602f1 localLabels2 Claus Gittinger <cg@exept.de> parents: 11437 diff changeset	2053	!
b00c879602f1 localLabels2 Claus Gittinger <cg@exept.de> parents: 11437 diff changeset	2054
11503 7105b74e84c3 added: Claus Gittinger <cg@exept.de> parents: 11498 diff changeset	2055	hideLocalLabels3
7105b74e84c3 added: Claus Gittinger <cg@exept.de> parents: 11498 diff changeset	2056	^ tagList hideLocalLabels3
7105b74e84c3 added: Claus Gittinger <cg@exept.de> parents: 11498 diff changeset	2057
7105b74e84c3 added: Claus Gittinger <cg@exept.de> parents: 11498 diff changeset	2058	"Created: / 13-05-2012 / 11:09:54 / cg"
7105b74e84c3 added: Claus Gittinger <cg@exept.de> parents: 11498 diff changeset	2059	!
7105b74e84c3 added: Claus Gittinger <cg@exept.de> parents: 11498 diff changeset	2060
7105b74e84c3 added: Claus Gittinger <cg@exept.de> parents: 11498 diff changeset	2061	hideLocalLabels3:aBool
7105b74e84c3 added: Claus Gittinger <cg@exept.de> parents: 11498 diff changeset	2062	tagList hideLocalLabels3:aBool.
7105b74e84c3 added: Claus Gittinger <cg@exept.de> parents: 11498 diff changeset	2063	self updateTagList
7105b74e84c3 added: Claus Gittinger <cg@exept.de> parents: 11498 diff changeset	2064
7105b74e84c3 added: Claus Gittinger <cg@exept.de> parents: 11498 diff changeset	2065	"Created: / 13-05-2012 / 11:10:01 / cg"
7105b74e84c3 added: Claus Gittinger <cg@exept.de> parents: 11498 diff changeset	2066	!
7105b74e84c3 added: Claus Gittinger <cg@exept.de> parents: 11498 diff changeset	2067
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2068	hideLocalLabels:aBool
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2069	tagList hideLocalLabels:aBool.
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2070	self updateTagList
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2071	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2072
14348 eca3fa14add6 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13963 diff changeset	2073	hideLuaFunctions
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2074	^ self hideFunctions
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2075	"/ ^ tagList hideLuaFunctions
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2076
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2077	"Modified: / 22-06-2017 / 11:13:30 / cg"
14348 eca3fa14add6 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13963 diff changeset	2078	!
eca3fa14add6 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13963 diff changeset	2079
eca3fa14add6 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13963 diff changeset	2080	hideLuaFunctions:aBool
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2081	self hideFunctions:aBool
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2082	"/ tagList hideLuaFunctions:aBool.
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2083	"/ self updateTagList
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2084
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2085	"Modified: / 22-06-2017 / 11:13:40 / cg"
14348 eca3fa14add6 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13963 diff changeset	2086	!
eca3fa14add6 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13963 diff changeset	2087
eca3fa14add6 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13963 diff changeset	2088	hideLuaVariables
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2089	^ self hideVariables
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2090	"/ ^ tagList hideLuaVariables
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2091
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2092	"Modified: / 22-06-2017 / 11:13:53 / cg"
14348 eca3fa14add6 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13963 diff changeset	2093	!
eca3fa14add6 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13963 diff changeset	2094
eca3fa14add6 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13963 diff changeset	2095	hideLuaVariables:aBool
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2096	self hideVariables:aBool
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2097	"/ tagList hideLuaVariables:aBool.
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2098	"/ self updateTagList
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2099
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2100	"Modified: / 22-06-2017 / 11:14:02 / cg"
14348 eca3fa14add6 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13963 diff changeset	2101	!
eca3fa14add6 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13963 diff changeset	2102
11761 0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	2103	hideMethods
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	2104	^ tagList hideMethods
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	2105
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	2106	"Created: / 21-08-2012 / 21:02:54 / cg"
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	2107	!
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	2108
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	2109	hideMethods:aBool
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	2110	tagList hideMethods:aBool.
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	2111	self updateTagList
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	2112
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	2113	"Created: / 21-08-2012 / 21:01:45 / cg"
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	2114	!
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	2115
16281 cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	2116	hideObjcClasses
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2117	^ self hideClasses
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2118	"/ ^ tagList hideObjcClasses
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2119
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2120	"Modified: / 22-06-2017 / 10:56:47 / cg"
16281 cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	2121	!
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	2122
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	2123	hideObjcClasses:aBool
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2124	self hideClasses:aBool
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2125	"/ tagList hideObjcClasses:aBool.
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2126	"/ self updateTagList
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2127
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2128	"Modified: / 22-06-2017 / 10:56:07 / cg"
16281 cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	2129	!
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	2130
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2131	hideOzClasses
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2132	^ self hideClasses
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2133	"/ ^ tagList hideOzClasses
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2134
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2135	"Modified: / 22-06-2017 / 10:56:44 / cg"
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2136	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2137
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2138	hideOzClasses:aBool
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2139	self hideClasses:aBool
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2140	"/ tagList hideOzClasses:aBool.
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2141	"/ self updateTagList
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2142
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2143	"Modified: / 22-06-2017 / 10:56:14 / cg"
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2144	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2145
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2146	hideOzFunctions
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2147	^ self hideFunctions
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2148	"/ ^ tagList hideOzFunctions
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2149
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2150	"Modified: / 22-06-2017 / 11:14:15 / cg"
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2151	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2152
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2153	hideOzFunctions:aBool
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2154	self hideFunctions:aBool
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2155	"/ tagList hideOzFunctions:aBool.
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2156	"/ self updateTagList
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2157
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2158	"Modified: / 22-06-2017 / 11:14:30 / cg"
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2159	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2160
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2161	hideOzMethods
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2162	^ self hideMethods
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2163	"/ ^ tagList hideOzMethods
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2164
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2165	"Modified: / 22-06-2017 / 11:14:42 / cg"
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2166	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2167
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2168	hideOzMethods:aBool
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2169	self hideMethods:aBool
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2170	"/ tagList hideOzMethods:aBool.
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2171	"/ self updateTagList
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2172
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2173	"Modified: / 22-06-2017 / 11:14:52 / cg"
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2174	!
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2175
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2176	hidePackages
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2177	^ tagList hidePackages
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2178
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2179	"Created: / 22-06-2017 / 10:55:00 / cg"
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2180	!
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2181
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2182	hidePackages:aBool
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2183	tagList hidePackages:aBool.
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2184	self updateTagList
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2185
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2186	"Created: / 22-06-2017 / 10:55:21 / cg"
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2187	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2188
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2189	hidePythonClasses
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2190	^ self hideClasses
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2191	"/ ^ tagList hidePythonClasses
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2192
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2193	"Modified: / 22-06-2017 / 10:56:37 / cg"
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2194	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2195
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2196	hidePythonClasses:aBool
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2197	self hideClasses:aBool
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2198	"/ tagList hidePythonClasses:aBool.
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2199	"/ self updateTagList
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2200
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2201	"Modified: / 22-06-2017 / 10:56:21 / cg"
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2202	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2203
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2204	hidePythonFunctions
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2205	^ self hideFunctions
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2206	"/ ^ tagList hidePythonFunctions
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2207
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2208	"Modified: / 22-06-2017 / 11:15:00 / cg"
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2209	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2210
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2211	hidePythonFunctions:aBool
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2212	self hideFunctions:aBool
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2213	"/ tagList hidePythonFunctions:aBool.
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2214	"/ self updateTagList
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2215
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2216	"Modified: / 22-06-2017 / 11:15:11 / cg"
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2217	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2218
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2219	hidePythonMethods
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2220	^ self hideMethods
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2221	"/ ^ tagList hidePythonMethods
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2222
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2223	"Modified: / 22-06-2017 / 11:15:19 / cg"
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2224	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2225
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2226	hidePythonMethods:aBool
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2227	self hideMethods:aBool
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2228	"/ tagList hidePythonMethods:aBool.
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2229	"/ self updateTagList
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2230
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2231	"Modified: / 22-06-2017 / 11:15:28 / cg"
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2232	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2233
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2234	hideStatic
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2235	^ tagList hideStatic
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2236	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2237
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2238	hideStatic:aBool
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2239	tagList hideStatic:aBool.
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2240	self updateTagList
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2241	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2242
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2243	hideStructMembers
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2244	^ tagList hideStructMembers
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2245	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2246
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2247	hideStructMembers:aBool
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2248	tagList hideStructMembers:aBool.
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2249	self updateTagList
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2250	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2251
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2252	hideStructures
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2253	^ tagList hideStructures
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2254	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2255
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2256	hideStructures:aBool
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2257	tagList hideStructures:aBool.
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2258	self updateTagList
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2259	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2260
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2261	hideTextLabels
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2262	^ tagList hideTextLabels
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2263	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2264
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2265	hideTextLabels:aBool
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2266	tagList hideTextLabels:aBool.
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2267	self updateTagList
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2268	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2269
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2270	hideTypedefs
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2271	^ tagList hideTypedefs
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2272	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2273
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2274	hideTypedefs:aBool
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2275	tagList hideTypedefs:aBool.
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2276	self updateTagList
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2277	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2278
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2279	hideVariables
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2280	^ tagList hideVariables
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2281	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2282
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2283	hideVariables:aBool
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2284	tagList hideVariables:aBool.
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2285	self updateTagList
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2286	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2287
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2288	javaClassesAndMethodsOnly
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2289	^ self classesAndMethodsOnly
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2290	"/ ^ tagList javaClassesAndMethodsOnly
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2291
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2292	"Modified: / 22-06-2017 / 10:28:30 / cg"
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2293	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2294
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2295	javaClassesAndMethodsOnly:aBool
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2296	self classesAndMethodsOnly:aBool
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2297	"/ aBool ifTrue:[
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2298	"/ tagList hideJavaClasses:false.
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2299	"/ tagList hideJavaMethods:false.
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2300	"/ ].
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2301	"/ tagList javaClassesAndMethodsOnly:aBool.
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2302	"/ self updateTagList
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2303
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2304	"Modified: / 22-06-2017 / 10:26:00 / cg"
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2305	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2306
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2307	javaClassesOnly
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2308	^ self classesOnly
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2309	"/ ^ tagList javaClassesOnly
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2310
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2311	"Modified: / 22-06-2017 / 10:28:23 / cg"
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2312	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2313
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2314	javaClassesOnly:aBool
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2315	self classesOnly:aBool
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2316	"/ aBool ifTrue:[
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2317	"/ tagList hideJavaClasses:false.
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2318	"/ ].
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2319	"/ tagList javaClassesOnly:aBool.
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2320	"/ self updateTagList
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2321
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2322	"Modified: / 22-06-2017 / 10:28:17 / cg"
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2323	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2324
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2325	javaMethodsOnly
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2326	^ self methodsOnly
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2327	"/ ^ tagList javaMethodsOnly
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2328
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2329	"Modified: / 22-06-2017 / 10:28:54 / cg"
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2330	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2331
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2332	javaMethodsOnly:aBool
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2333	self methodsOnly:aBool
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2334	"/ aBool ifTrue:[
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2335	"/ tagList hideJavaMethods:false.
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2336	"/ ].
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2337	"/ tagList javaMethodsOnly:aBool.
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2338	"/ self updateTagList
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2339
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2340	"Modified: / 22-06-2017 / 10:29:05 / cg"
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2341	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2342
14348 eca3fa14add6 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13963 diff changeset	2343	luaFunctionsOnly
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2344	^ self functionsOnly
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2345	"/ ^ tagList luaFunctionsOnly
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2346
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2347	"Modified: / 22-06-2017 / 10:29:22 / cg"
14348 eca3fa14add6 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13963 diff changeset	2348	!
eca3fa14add6 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13963 diff changeset	2349
eca3fa14add6 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13963 diff changeset	2350	luaFunctionsOnly:aBool
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2351	self functionsOnly:aBool
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2352	"/ aBool ifTrue:[
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2353	"/ tagList hideLuaFunctions:false.
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2354	"/ ].
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2355	"/ tagList luaFunctionsOnly:aBool.
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2356	"/ self updateTagList
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2357
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2358	"Modified: / 22-06-2017 / 10:29:33 / cg"
14348 eca3fa14add6 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13963 diff changeset	2359	!
eca3fa14add6 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13963 diff changeset	2360
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2361	macrosOnly
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2362	^ tagList macrosOnly
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2363
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2364	"Created: / 07-06-2010 / 12:08:42 / cg"
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2365	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2366
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2367	macrosOnly:aBool
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2368	aBool ifTrue:[
14484 ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	2369	tagList hideLispMacros:false.
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2370	].
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2371	tagList macrosOnly:aBool.
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2372	self updateTagList
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2373
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2374	"Created: / 07-06-2010 / 12:09:08 / cg"
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2375	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2376
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2377	methodsOnly
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2378	^ tagList methodsOnly
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2379
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2380	"Created: / 07-06-2010 / 12:11:55 / cg"
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2381	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2382
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2383	methodsOnly:aBool
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2384	aBool ifTrue:[
14484 ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	2385	tagList hideLispMethods:false.
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2386	].
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2387	tagList methodsOnly:aBool.
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2388	self updateTagList
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2389
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2390	"Created: / 07-06-2010 / 12:12:03 / cg"
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2391	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2392
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2393	pythonClassesOnly
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2394	^ self classesOnly
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2395	"/ ^ tagList pythonClassesOnly
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2396
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2397	"Modified: / 22-06-2017 / 10:33:33 / cg"
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2398	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2399
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2400	pythonClassesOnly:aBool
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2401	self classesOnly:aBool
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2402	"/ aBool ifTrue:[
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2403	"/ tagList hidePythonClasses:false.
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2404	"/ ].
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2405	"/ tagList pythonClassesOnly:aBool.
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2406	"/ self updateTagList
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2407
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2408	"Modified: / 22-06-2017 / 10:33:44 / cg"
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2409	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2410
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2411	pythonFunctionsOnly
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2412	^ self functionsOnly
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2413	"/ ^ tagList pythonFunctionsOnly
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2414
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2415	"Modified: / 22-06-2017 / 10:29:53 / cg"
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2416	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2417
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2418	pythonFunctionsOnly:aBool
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2419	self functionsOnly:aBool
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2420	"/ aBool ifTrue:[
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2421	"/ tagList hidePythonFunctions:false.
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2422	"/ ].
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2423	"/ tagList pythonFunctionsOnly:aBool.
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2424	"/ self updateTagList
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2425
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2426	"Modified: / 22-06-2017 / 10:29:44 / cg"
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2427	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2428
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2429	pythonMethodsOnly
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2430	^ self methodsOnly
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2431	"/ ^ tagList pythonMethodsOnly
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2432
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2433	"Modified: / 22-06-2017 / 10:33:58 / cg"
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2434	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2435
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2436	pythonMethodsOnly:aBool
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2437	self methodsOnly:aBool
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2438	"/ aBool ifTrue:[
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2439	"/ tagList hidePythonMethods:false.
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2440	"/ ].
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2441	"/ tagList pythonMethodsOnly:aBool.
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2442	"/ self updateTagList
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2443
d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2444	"Modified: / 22-06-2017 / 10:34:11 / cg"
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2445	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2446
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2447	structsOnly
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2448	^ tagList structsOnly
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2449
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2450	"Created: / 25-06-2010 / 10:54:46 / cg"
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2451	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2452
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2453	structsOnly:aBool
14544 fe117e846d33 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14543 diff changeset	2454	self structsOnlyHolder value:aBool.
fe117e846d33 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14543 diff changeset	2455	aBool ifTrue:[
fe117e846d33 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14543 diff changeset	2456	self functionsOnlyHolder value:false.
fe117e846d33 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14543 diff changeset	2457	tagList hideStructures:false.
fe117e846d33 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14543 diff changeset	2458	].
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2459	tagList structsOnly:aBool.
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2460	self updateTagList
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2461	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2462
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2463	tagTypesPresent
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2464	^ tagList tagTypesPresent
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2465	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2466
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2467	tagTypesPresentHolder
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2468	^ [ self tagTypesPresent ]
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2469	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2470
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2471	targetsOnly
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2472	^ tagList targetsOnly
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2473	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2474
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2475	targetsOnly:aBool
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2476	tagList targetsOnly:aBool.
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2477	self updateTagList
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2478	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2479
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2480	typesOnly
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2481	^ tagList typesOnly
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2482	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2483
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2484	typesOnly:aBool
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2485	aBool ifTrue:[
14484 ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	2486	tagList hideTypedefs:false.
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2487	].
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2488	tagList typesOnly:aBool.
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2489	self updateTagList
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2490	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2491
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2492	variablesOnly
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2493	^ tagList variablesOnly
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2494	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2495
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2496	variablesOnly:aBool
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2497	aBool ifTrue:[
14484 ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	2498	tagList hideVariables:false.
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2499	].
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2500	tagList variablesOnly:aBool.
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2501	self updateTagList
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2502
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2503	"Modified: / 05-05-2011 / 15:33:18 / cg"
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2504	! !
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2505
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2506	!TagsBrowser methodsFor:'aspects'!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2507
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2508	editedFileHasAssemblerSuffix
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2509	^builder booleanValueAspectFor: #editedFileHasAssemblerSuffix
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2510
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2511
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2512	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2513
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2514	editedFileHasCSuffix
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2515	^builder booleanValueAspectFor: #editedFileHasCSuffix
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2516
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2517
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2518	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2519
11761 0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	2520	editedFileHasDartSuffix
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	2521	^builder booleanValueAspectFor: #editedFileHasDartSuffix
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	2522	!
0813e34ffc3b added:17 methods Claus Gittinger <cg@exept.de> parents: 11753 diff changeset	2523
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2524	editedFileHasEiffelSuffix
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2525	^builder booleanValueAspectFor: #editedFileHasEiffelSuffix
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2526
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2527
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2528	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2529
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2530	editedFileHasFortranSuffix
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2531	^builder booleanValueAspectFor: #editedFileHasFortranSuffix
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2532
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2533
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2534	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2535
14578 758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	2536	editedFileHasHtmlSuffix
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	2537	^builder booleanValueAspectFor: #editedFileHasHtmlSuffix
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	2538	!
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	2539
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2540	editedFileHasJavaScriptSuffix
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2541	^builder booleanValueAspectFor: #editedFileHasJavaScriptSuffix
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2542
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2543	"Created: / 28-06-2010 / 13:09:15 / cg"
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2544	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2545
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2546	editedFileHasJavaSuffix
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2547	^builder booleanValueAspectFor: #editedFileHasJavaSuffix
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2548
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2549
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2550	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2551
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2552	editedFileHasLispSuffix
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2553	^builder booleanValueAspectFor: #editedFileHasLispSuffix
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2554
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2555
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2556	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2557
14348 eca3fa14add6 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13963 diff changeset	2558	editedFileHasLuaSuffix
eca3fa14add6 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13963 diff changeset	2559	^builder booleanValueAspectFor: #editedFileHasLuaSuffix
eca3fa14add6 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13963 diff changeset	2560	!
eca3fa14add6 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13963 diff changeset	2561
16281 cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	2562	editedFileHasObjcSuffix
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	2563	^builder booleanValueAspectFor: #editedFileHasObjcSuffix
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	2564	!
cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	2565
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2566	editedFileHasOzSuffix
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2567	^builder booleanValueAspectFor: #editedFileHasOzSuffix
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2568	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2569
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2570	editedFileHasPythonSuffix
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2571	^builder booleanValueAspectFor: #editedFileHasPythonSuffix
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2572
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2573
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2574	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2575
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2576	editedFileHasRubySuffix
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2577	^builder booleanValueAspectFor: #editedFileHasRubySuffix
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2578	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2579
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2580	editedFileHasSmalltalkSuffix
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2581	^builder booleanValueAspectFor: #editedFileHasSmalltalkSuffix
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2582
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2583
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2584	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2585
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2586	editedFileHasTCLSuffix
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2587	^builder booleanValueAspectFor: #editedFileHasTCLSuffix
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2588
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2589
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2590	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2591
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2592	editedFileIsMakefile
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2593	^builder booleanValueAspectFor: #editedFileIsMakefile
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2594	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2595
10763 f0ea0a752590 added: Claus Gittinger <cg@exept.de> parents: 10759 diff changeset	2596	functionsOnlyHolder
f0ea0a752590 added: Claus Gittinger <cg@exept.de> parents: 10759 diff changeset	2597	^ builder booleanValueAspectFor: #functionsOnly
f0ea0a752590 added: Claus Gittinger <cg@exept.de> parents: 10759 diff changeset	2598
f0ea0a752590 added: Claus Gittinger <cg@exept.de> parents: 10759 diff changeset	2599	"Created: / 06-10-2011 / 12:19:23 / cg"
f0ea0a752590 added: Claus Gittinger <cg@exept.de> parents: 10759 diff changeset	2600	!
f0ea0a752590 added: Claus Gittinger <cg@exept.de> parents: 10759 diff changeset	2601
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2602	remoteCtagsModel
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2603
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2604	\|holder\|
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2605
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2606	(holder := builder bindingAt:#remoteCtagsModel) isNil ifTrue:[
14484 ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	2607	holder := false asValue.
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	2608	builder aspectAt:#remoteCtagsModel put:holder.
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2609	].
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2610	^ holder.
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2611	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2612
10435 309c101e7386 added:5 methods Claus Gittinger <cg@exept.de> parents: 10055 diff changeset	2613	sortIsByLineNumber
309c101e7386 added:5 methods Claus Gittinger <cg@exept.de> parents: 10055 diff changeset	2614	^ builder booleanValueAspectFor: #sortIsByLineNumber
309c101e7386 added:5 methods Claus Gittinger <cg@exept.de> parents: 10055 diff changeset	2615
309c101e7386 added:5 methods Claus Gittinger <cg@exept.de> parents: 10055 diff changeset	2616	"Created: / 03-08-2011 / 11:17:48 / cg"
309c101e7386 added:5 methods Claus Gittinger <cg@exept.de> parents: 10055 diff changeset	2617	!
309c101e7386 added:5 methods Claus Gittinger <cg@exept.de> parents: 10055 diff changeset	2618
309c101e7386 added:5 methods Claus Gittinger <cg@exept.de> parents: 10055 diff changeset	2619	sortIsByName
309c101e7386 added:5 methods Claus Gittinger <cg@exept.de> parents: 10055 diff changeset	2620	^ builder booleanValueAspectFor: #sortIsByName
309c101e7386 added:5 methods Claus Gittinger <cg@exept.de> parents: 10055 diff changeset	2621
309c101e7386 added:5 methods Claus Gittinger <cg@exept.de> parents: 10055 diff changeset	2622	"Created: / 03-08-2011 / 11:17:52 / cg"
309c101e7386 added:5 methods Claus Gittinger <cg@exept.de> parents: 10055 diff changeset	2623	!
309c101e7386 added:5 methods Claus Gittinger <cg@exept.de> parents: 10055 diff changeset	2624
14544 fe117e846d33 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14543 diff changeset	2625	structsOnlyHolder
fe117e846d33 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14543 diff changeset	2626	^ builder booleanValueAspectFor: #structsOnly
fe117e846d33 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14543 diff changeset	2627	!
fe117e846d33 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14543 diff changeset	2628
fe117e846d33 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14543 diff changeset	2629	structsOnlyVisibleHolder
fe117e846d33 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14543 diff changeset	2630	^ builder booleanValueAspectFor: #structsOnlyVisible
fe117e846d33 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14543 diff changeset	2631	!
fe117e846d33 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14543 diff changeset	2632
11721 a0857582353c added tagfilter Claus Gittinger <cg@exept.de> parents: 11503 diff changeset	2633	tagFilterFieldVisibleHolder
a0857582353c added tagfilter Claus Gittinger <cg@exept.de> parents: 11503 diff changeset	2634	\|holder\|
a0857582353c added tagfilter Claus Gittinger <cg@exept.de> parents: 11503 diff changeset	2635
a0857582353c added tagfilter Claus Gittinger <cg@exept.de> parents: 11503 diff changeset	2636	(holder := builder bindingAt:#tagFilterFieldVisibleHolder) isNil ifTrue:[
14484 ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	2637	holder := false asValue.
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	2638	builder aspectAt:#tagFilterFieldVisibleHolder put:holder.
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	2639	holder onChangeSend:#tagFilterVisibilityChanged to:self.
11721 a0857582353c added tagfilter Claus Gittinger <cg@exept.de> parents: 11503 diff changeset	2640	].
a0857582353c added tagfilter Claus Gittinger <cg@exept.de> parents: 11503 diff changeset	2641	^ holder.
a0857582353c added tagfilter Claus Gittinger <cg@exept.de> parents: 11503 diff changeset	2642
a0857582353c added tagfilter Claus Gittinger <cg@exept.de> parents: 11503 diff changeset	2643	"Created: / 01-08-2012 / 10:52:48 / cg"
a0857582353c added tagfilter Claus Gittinger <cg@exept.de> parents: 11503 diff changeset	2644	!
a0857582353c added tagfilter Claus Gittinger <cg@exept.de> parents: 11503 diff changeset	2645
a0857582353c added tagfilter Claus Gittinger <cg@exept.de> parents: 11503 diff changeset	2646	tagFilterPatternHolder
a0857582353c added tagfilter Claus Gittinger <cg@exept.de> parents: 11503 diff changeset	2647	\|holder\|
a0857582353c added tagfilter Claus Gittinger <cg@exept.de> parents: 11503 diff changeset	2648
a0857582353c added tagfilter Claus Gittinger <cg@exept.de> parents: 11503 diff changeset	2649	(holder := builder bindingAt:#tagFilterPatternHolder) isNil ifTrue:[
14484 ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	2650	holder := '' asValue.
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	2651	builder aspectAt:#tagFilterPatternHolder put:holder.
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	2652	holder onChangeSend:#tagFilterChanged to:self.
11721 a0857582353c added tagfilter Claus Gittinger <cg@exept.de> parents: 11503 diff changeset	2653	].
a0857582353c added tagfilter Claus Gittinger <cg@exept.de> parents: 11503 diff changeset	2654	^ holder.
a0857582353c added tagfilter Claus Gittinger <cg@exept.de> parents: 11503 diff changeset	2655
a0857582353c added tagfilter Claus Gittinger <cg@exept.de> parents: 11503 diff changeset	2656	"Created: / 01-08-2012 / 16:43:26 / cg"
a0857582353c added tagfilter Claus Gittinger <cg@exept.de> parents: 11503 diff changeset	2657	!
a0857582353c added tagfilter Claus Gittinger <cg@exept.de> parents: 11503 diff changeset	2658
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2659	tagList
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2660	"returns the tagList
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2661	"
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2662	^ tagList
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2663	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2664
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2665	tagView
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2666	"returns the widget which shows the tags
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2667	"
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2668	^ tagView
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2669	! !
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2670
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2671	!TagsBrowser methodsFor:'change & update'!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2672
9916 0c3fe1fa42c6 fixes for reusability in cc browser Claus Gittinger <cg@exept.de> parents: 9908 diff changeset	2673	delayedEditedFileChanged
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2674	"called when the current editing file has changed.
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2675	Update the valueHolders which keep track of the edited files type (i.e. language)
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2676	"
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2677
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2678	self updateFileTypeHolders.
14480 8d6d843b0fa4 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14427 diff changeset	2679	tagsValid ifFalse:[
14484 ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	2680	self updateTagList.
13341 4de6468037a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13310 diff changeset	2681	].
9916 0c3fe1fa42c6 fixes for reusability in cc browser Claus Gittinger <cg@exept.de> parents: 9908 diff changeset	2682
0c3fe1fa42c6 fixes for reusability in cc browser Claus Gittinger <cg@exept.de> parents: 9908 diff changeset	2683	"Created: / 07-05-2011 / 15:36:52 / cg"
0c3fe1fa42c6 fixes for reusability in cc browser Claus Gittinger <cg@exept.de> parents: 9908 diff changeset	2684	!
0c3fe1fa42c6 fixes for reusability in cc browser Claus Gittinger <cg@exept.de> parents: 9908 diff changeset	2685
0c3fe1fa42c6 fixes for reusability in cc browser Claus Gittinger <cg@exept.de> parents: 9908 diff changeset	2686	editedFileChanged
13341 4de6468037a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13310 diff changeset	2687	tagsValid := false.
9916 0c3fe1fa42c6 fixes for reusability in cc browser Claus Gittinger <cg@exept.de> parents: 9908 diff changeset	2688	self enqueueDelayedAction:[self delayedEditedFileChanged].
0c3fe1fa42c6 fixes for reusability in cc browser Claus Gittinger <cg@exept.de> parents: 9908 diff changeset	2689
0c3fe1fa42c6 fixes for reusability in cc browser Claus Gittinger <cg@exept.de> parents: 9908 diff changeset	2690	"Modified: / 07-05-2011 / 15:37:00 / cg"
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2691	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2692
11721 a0857582353c added tagfilter Claus Gittinger <cg@exept.de> parents: 11503 diff changeset	2693	tagFilterChanged
a0857582353c added tagfilter Claus Gittinger <cg@exept.de> parents: 11503 diff changeset	2694	tagList filter:(self tagFilterPatternHolder value)
a0857582353c added tagfilter Claus Gittinger <cg@exept.de> parents: 11503 diff changeset	2695
a0857582353c added tagfilter Claus Gittinger <cg@exept.de> parents: 11503 diff changeset	2696	"Created: / 01-08-2012 / 16:44:54 / cg"
a0857582353c added tagfilter Claus Gittinger <cg@exept.de> parents: 11503 diff changeset	2697	!
a0857582353c added tagfilter Claus Gittinger <cg@exept.de> parents: 11503 diff changeset	2698
a0857582353c added tagfilter Claus Gittinger <cg@exept.de> parents: 11503 diff changeset	2699	tagFilterVisibilityChanged
a0857582353c added tagfilter Claus Gittinger <cg@exept.de> parents: 11503 diff changeset	2700	self tagFilterFieldVisibleHolder value ifTrue:[
14484 ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	2701	"/ self windowGroup
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	2702	"/ focusView:(self builder componentAt:#TagFilterInputField)
11721 a0857582353c added tagfilter Claus Gittinger <cg@exept.de> parents: 11503 diff changeset	2703	"/ byTab:true.
18697 11dcae786558 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18641 diff changeset	2704	self enqueueMessage:#assignFocusToTagFilterInputField.
11721 a0857582353c added tagfilter Claus Gittinger <cg@exept.de> parents: 11503 diff changeset	2705	].
a0857582353c added tagfilter Claus Gittinger <cg@exept.de> parents: 11503 diff changeset	2706
a0857582353c added tagfilter Claus Gittinger <cg@exept.de> parents: 11503 diff changeset	2707	"Created: / 01-08-2012 / 17:00:27 / cg"
18697 11dcae786558 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18641 diff changeset	2708	"Modified: / 16-03-2019 / 14:17:39 / Claus Gittinger"
11721 a0857582353c added tagfilter Claus Gittinger <cg@exept.de> parents: 11503 diff changeset	2709	!
a0857582353c added tagfilter Claus Gittinger <cg@exept.de> parents: 11503 diff changeset	2710
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2711	update:something with:aparameter from:changedObject
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2712	changedObject == self editedFileHolder ifTrue:[
14484 ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	2713	tagList removeAll.
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	2714	self editedFileChanged.
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	2715	^ self
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2716	].
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2717	super update:something with:aparameter from:changedObject
9916 0c3fe1fa42c6 fixes for reusability in cc browser Claus Gittinger <cg@exept.de> parents: 9908 diff changeset	2718
11721 a0857582353c added tagfilter Claus Gittinger <cg@exept.de> parents: 11503 diff changeset	2719	"Modified: / 01-08-2012 / 16:58:30 / cg"
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2720	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2721
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2722	updateFileTypeHolders
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2723	"called when the current editing file has changed.
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2724	Update the valueHolders which keep track of the edited files type (i.e. language)
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2725	"
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2726
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2727	\|edFile mime\|
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2728
14386 0b937549b731 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14364 diff changeset	2729	edFile := self editedFile.
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2730
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2731	mime := TagList tagMimeTypeForFile:edFile.
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2732
14544 fe117e846d33 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14543 diff changeset	2733	"/ valueHolder mime(s)
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2734	#(
18113 37239b35dde3 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18080 diff changeset	2735	(editedFileHasJavaSuffix ('text/java' 'application/x-java-source'))
14544 fe117e846d33 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14543 diff changeset	2736	(editedFileHasJavaScriptSuffix ('text/javaScript' 'text/javascript' 'application/x-javascript' 'application/x-javascript-source') )
18113 37239b35dde3 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18080 diff changeset	2737	(editedFileHasDartSuffix ('text/dart' 'application/x-dart' 'application/x-dart-source') )
37239b35dde3 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18080 diff changeset	2738	(editedFileHasCSuffix ('text/c' 'application/x-c-source' 'text/cpp' 'application/x-cpp-source'))
37239b35dde3 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18080 diff changeset	2739	(editedFileHasEiffelSuffix ('text/eiffel' 'application/x-eiffel-source'))
14544 fe117e846d33 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14543 diff changeset	2740	(editedFileHasFortranSuffix ('text/fortran' 'application/x-fortran-source'))
18113 37239b35dde3 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18080 diff changeset	2741	(editedFileHasPythonSuffix ('text/python' 'application/x-python-source'))
16281 cbc89f67739a #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16047 diff changeset	2742	(editedFileHasObjcSuffix ('text/objcsrc' 'application/x-objcsrc'))
18113 37239b35dde3 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18080 diff changeset	2743	(editedFileHasOzSuffix ('text/oz' 'application/x-oz-source'))
37239b35dde3 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18080 diff changeset	2744	(editedFileHasLuaSuffix ('text/lua' 'application/x-lua-source'))
37239b35dde3 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18080 diff changeset	2745	(editedFileHasLispSuffix ('text/lisp' 'text/lisp-arc' 'text/scheme' 'application/x-lisp-source' 'application/x-scheme-source') )
14544 fe117e846d33 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14543 diff changeset	2746	(editedFileHasSmalltalkSuffix ('text/smalltalk' 'application/x-smalltalk-source'))
18113 37239b35dde3 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18080 diff changeset	2747	(editedFileHasTCLSuffix ('text/tcl' 'application/x-tcl-source') )
37239b35dde3 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18080 diff changeset	2748	(editedFileHasAssemblerSuffix ('text/asm' 'application/x-assembler-source'))
14544 fe117e846d33 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14543 diff changeset	2749	(editedFileIsMakefile 'text/make')
18113 37239b35dde3 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18080 diff changeset	2750	(editedFileHasRubySuffix ('text/ruby' 'application/x-ruby-source'))
37239b35dde3 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18080 diff changeset	2751	"/ (editedFileHasErlangSuffix ('text/erlang' 'application/x-erlang-source'))
14578 758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	2752	(editedFileHasHtmlSuffix ('text/html' ))
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2753	) pairsDo:[:holderName :mimeTypeOrTypes \|
14544 fe117e846d33 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14543 diff changeset	2754	\|holder\|
fe117e846d33 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14543 diff changeset	2755
fe117e846d33 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14543 diff changeset	2756	holder := self perform:holderName.
fe117e846d33 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14543 diff changeset	2757	mimeTypeOrTypes isString ifTrue:[
fe117e846d33 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14543 diff changeset	2758	holder value:(mime = mimeTypeOrTypes)
fe117e846d33 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14543 diff changeset	2759	] ifFalse:[
fe117e846d33 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14543 diff changeset	2760	holder value:(mimeTypeOrTypes includes:mime)
fe117e846d33 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14543 diff changeset	2761	].
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2762	].
14544 fe117e846d33 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14543 diff changeset	2763	self structsOnlyVisibleHolder value:(self editedFileHasCSuffix value).
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2764
17553 d265f39fa2a2 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17537 diff changeset	2765	"Modified (comment): / 22-06-2017 / 11:29:52 / cg"
9943 09e234e9fa8e changed: #updateForLine: Claus Gittinger <cg@exept.de> parents: 9942 diff changeset	2766	!
09e234e9fa8e changed: #updateForLine: Claus Gittinger <cg@exept.de> parents: 9942 diff changeset	2767
09e234e9fa8e changed: #updateForLine: Claus Gittinger <cg@exept.de> parents: 9942 diff changeset	2768	updateForLine:lineNr
09e234e9fa8e changed: #updateForLine: Claus Gittinger <cg@exept.de> parents: 9942 diff changeset	2769	"/ highlight the tag for a particular line in the edittext
09e234e9fa8e changed: #updateForLine: Claus Gittinger <cg@exept.de> parents: 9942 diff changeset	2770	"/ called via a hook via the masterapp from the editView...
09e234e9fa8e changed: #updateForLine: Claus Gittinger <cg@exept.de> parents: 9942 diff changeset	2771
14480 8d6d843b0fa4 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14427 diff changeset	2772	self updateForLine:lineNr filtering:nil
8d6d843b0fa4 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14427 diff changeset	2773	!
8d6d843b0fa4 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14427 diff changeset	2774
8d6d843b0fa4 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14427 diff changeset	2775	updateForLine:lineNr filtering:tagFilterOrNil
8d6d843b0fa4 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14427 diff changeset	2776	"highlight the tag for a particular line in the edittext
8d6d843b0fa4 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14427 diff changeset	2777	called via a hook via the masterapp from the editView...
8d6d843b0fa4 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14427 diff changeset	2778	The filter can be used eg. to find only function tags
8d6d843b0fa4 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14427 diff changeset	2779	(i.e. to ignore case and goto labels in C)"
8d6d843b0fa4 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14427 diff changeset	2780
9943 09e234e9fa8e changed: #updateForLine: Claus Gittinger <cg@exept.de> parents: 9942 diff changeset	2781	\|bestTag\|
09e234e9fa8e changed: #updateForLine: Claus Gittinger <cg@exept.de> parents: 9942 diff changeset	2782
14480 8d6d843b0fa4 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14427 diff changeset	2783	bestTag := tagList bestTagForLine:lineNr filtering:tagFilterOrNil.
9943 09e234e9fa8e changed: #updateForLine: Claus Gittinger <cg@exept.de> parents: 9942 diff changeset	2784	bestTag notNil ifTrue:[
14484 ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	2785	tagView setSelection:(tagList identityIndexOf:bestTag).
9943 09e234e9fa8e changed: #updateForLine: Claus Gittinger <cg@exept.de> parents: 9942 diff changeset	2786	] ifFalse:[
14484 ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	2787	"/ remember line in case the tag-list is being generated
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	2788	tagView tagLineNr:lineNr
9943 09e234e9fa8e changed: #updateForLine: Claus Gittinger <cg@exept.de> parents: 9942 diff changeset	2789	].
09e234e9fa8e changed: #updateForLine: Claus Gittinger <cg@exept.de> parents: 9942 diff changeset	2790
09e234e9fa8e changed: #updateForLine: Claus Gittinger <cg@exept.de> parents: 9942 diff changeset	2791	"Modified: / 23-06-2011 / 17:28:26 / cg"
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2792	! !
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2793
9916 0c3fe1fa42c6 fixes for reusability in cc browser Claus Gittinger <cg@exept.de> parents: 9908 diff changeset	2794	!TagsBrowser methodsFor:'hooks for ccbrowser'!
0c3fe1fa42c6 fixes for reusability in cc browser Claus Gittinger <cg@exept.de> parents: 9908 diff changeset	2795
0c3fe1fa42c6 fixes for reusability in cc browser Claus Gittinger <cg@exept.de> parents: 9908 diff changeset	2796	buildTarget
0c3fe1fa42c6 fixes for reusability in cc browser Claus Gittinger <cg@exept.de> parents: 9908 diff changeset	2797	commonAspects notNil ifTrue:[
14484 ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	2798	^ commonAspects buildTarget
9916 0c3fe1fa42c6 fixes for reusability in cc browser Claus Gittinger <cg@exept.de> parents: 9908 diff changeset	2799	].
0c3fe1fa42c6 fixes for reusability in cc browser Claus Gittinger <cg@exept.de> parents: 9908 diff changeset	2800	^ nil
0c3fe1fa42c6 fixes for reusability in cc browser Claus Gittinger <cg@exept.de> parents: 9908 diff changeset	2801
0c3fe1fa42c6 fixes for reusability in cc browser Claus Gittinger <cg@exept.de> parents: 9908 diff changeset	2802	"Created: / 07-05-2011 / 15:38:20 / cg"
13341 4de6468037a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13310 diff changeset	2803	!
4de6468037a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13310 diff changeset	2804
4de6468037a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13310 diff changeset	2805	tagForFunction:functionName
4de6468037a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13310 diff changeset	2806	^ tagList tagForFunction:functionName
15772 fd21f08c74ff class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 15248 diff changeset	2807	!
fd21f08c74ff class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 15248 diff changeset	2808
15786 80cc641e54df class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 15772 diff changeset	2809	tagForMacro:typeName
80cc641e54df class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 15772 diff changeset	2810	^ tagList tagForMacro:typeName
80cc641e54df class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 15772 diff changeset	2811	!
80cc641e54df class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 15772 diff changeset	2812
15772 fd21f08c74ff class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 15248 diff changeset	2813	tagForType:typeName
fd21f08c74ff class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 15248 diff changeset	2814	^ tagList tagForType:typeName
9916 0c3fe1fa42c6 fixes for reusability in cc browser Claus Gittinger <cg@exept.de> parents: 9908 diff changeset	2815	! !
0c3fe1fa42c6 fixes for reusability in cc browser Claus Gittinger <cg@exept.de> parents: 9908 diff changeset	2816
13632 970c41229951 x Claus Gittinger <cg@exept.de> parents: 13630 diff changeset	2817	!TagsBrowser methodsFor:'hooks for embedding'!
970c41229951 x Claus Gittinger <cg@exept.de> parents: 13630 diff changeset	2818
970c41229951 x Claus Gittinger <cg@exept.de> parents: 13630 diff changeset	2819	tagListGenerator:aBlockOrValueHolder
970c41229951 x Claus Gittinger <cg@exept.de> parents: 13630 diff changeset	2820	"to use a tagsBrowser as a component in another application,
970c41229951 x Claus Gittinger <cg@exept.de> parents: 13630 diff changeset	2821	this hook allows for the tag list to be provided by that application.
970c41229951 x Claus Gittinger <cg@exept.de> parents: 13630 diff changeset	2822	If non-nil, it will be evaluated to generate the tagList instead of
970c41229951 x Claus Gittinger <cg@exept.de> parents: 13630 diff changeset	2823	reading the tags from the editedFile"
970c41229951 x Claus Gittinger <cg@exept.de> parents: 13630 diff changeset	2824
970c41229951 x Claus Gittinger <cg@exept.de> parents: 13630 diff changeset	2825	tagListGenerator := aBlockOrValueHolder.
970c41229951 x Claus Gittinger <cg@exept.de> parents: 13630 diff changeset	2826	! !
970c41229951 x Claus Gittinger <cg@exept.de> parents: 13630 diff changeset	2827
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2828	!TagsBrowser methodsFor:'menu actions'!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2829
10766 eaaed81115db added: Claus Gittinger <cg@exept.de> parents: 10765 diff changeset	2830	keepingSelectionDo:aBlock
eaaed81115db added: Claus Gittinger <cg@exept.de> parents: 10765 diff changeset	2831	\|oldSelection oldLabel\|
eaaed81115db added: Claus Gittinger <cg@exept.de> parents: 10765 diff changeset	2832
eaaed81115db added: Claus Gittinger <cg@exept.de> parents: 10765 diff changeset	2833	oldSelection := tagView selectionValue.
eaaed81115db added: Claus Gittinger <cg@exept.de> parents: 10765 diff changeset	2834	aBlock value.
eaaed81115db added: Claus Gittinger <cg@exept.de> parents: 10765 diff changeset	2835
14484 ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	2836	oldSelection notNil ifTrue:[
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	2837	oldLabel := oldSelection label.
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	2838	tagView
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	2839	selectElementForWhich:[:el \| el label = oldLabel]
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	2840	ifAbsent:[self halt:'ouch - no such label'].
10766 eaaed81115db added: Claus Gittinger <cg@exept.de> parents: 10765 diff changeset	2841	].
eaaed81115db added: Claus Gittinger <cg@exept.de> parents: 10765 diff changeset	2842
eaaed81115db added: Claus Gittinger <cg@exept.de> parents: 10765 diff changeset	2843	"Created: / 06-10-2011 / 13:41:57 / cg"
eaaed81115db added: Claus Gittinger <cg@exept.de> parents: 10765 diff changeset	2844	!
eaaed81115db added: Claus Gittinger <cg@exept.de> parents: 10765 diff changeset	2845
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2846	middleButtonMenu
18753 ed2954913df7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18697 diff changeset	2847	<resource: #programMenu >
ed2954913df7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18697 diff changeset	2848
14484 ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	2849	^ [
18641 fcccf2b93a1c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18113 diff changeset	2850	\|menu suffix file item\|
fcccf2b93a1c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18113 diff changeset	2851
fcccf2b93a1c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18113 diff changeset	2852	tagsMenu notNil ifTrue:[
fcccf2b93a1c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18113 diff changeset	2853	tagsMenu
fcccf2b93a1c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18113 diff changeset	2854	] ifFalse:[
fcccf2b93a1c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18113 diff changeset	2855	menus isNil ifTrue:[
fcccf2b93a1c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18113 diff changeset	2856	menus := IdentityDictionary new.
fcccf2b93a1c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18113 diff changeset	2857	].
fcccf2b93a1c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18113 diff changeset	2858
fcccf2b93a1c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18113 diff changeset	2859	menu := nil.
fcccf2b93a1c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18113 diff changeset	2860
fcccf2b93a1c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18113 diff changeset	2861	(file := self editedFile) notNil ifTrue:[
fcccf2b93a1c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18113 diff changeset	2862	(tagList supportsFile:file) ifTrue:[
fcccf2b93a1c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18113 diff changeset	2863	menu := menus
fcccf2b93a1c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18113 diff changeset	2864	at:#exists
fcccf2b93a1c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18113 diff changeset	2865	ifAbsentPut:[
fcccf2b93a1c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18113 diff changeset	2866	menu := self class middleButtonMenu decodeAsLiteralArray.
fcccf2b93a1c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18113 diff changeset	2867	menu receiver:self.
fcccf2b93a1c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18113 diff changeset	2868	menu findGuiResourcesIn:self.
fcccf2b93a1c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18113 diff changeset	2869	menu
fcccf2b93a1c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18113 diff changeset	2870	].
fcccf2b93a1c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18113 diff changeset	2871	menu := MenuPanel menu:menu receiver:self.
fcccf2b93a1c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18113 diff changeset	2872	] ifFalse:[
fcccf2b93a1c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18113 diff changeset	2873	suffix := file suffix.
fcccf2b93a1c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18113 diff changeset	2874
fcccf2b93a1c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18113 diff changeset	2875	suffix size ~~ 0 ifTrue:[
fcccf2b93a1c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18113 diff changeset	2876	menu := menus at:#new ifAbsentPut:[
fcccf2b93a1c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18113 diff changeset	2877	menu := Menu new.
fcccf2b93a1c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18113 diff changeset	2878	item := MenuItem label:('assign ', (Text string:suffix emphasis:#underline), ' to:').
fcccf2b93a1c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18113 diff changeset	2879	item enabled:false.
fcccf2b93a1c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18113 diff changeset	2880	menu addItem:item.
fcccf2b93a1c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18113 diff changeset	2881	menu addItem:(MenuItem separator).
fcccf2b93a1c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18113 diff changeset	2882
fcccf2b93a1c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18113 diff changeset	2883	tagList class tagsSuffixes keysAndValuesDo:[:aKey :aValue\|
fcccf2b93a1c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18113 diff changeset	2884	item := MenuItem label:(' - ', aKey )
fcccf2b93a1c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18113 diff changeset	2885	itemValue:[ \|list\|
fcccf2b93a1c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18113 diff changeset	2886	list := aValue asOrderedCollection.
fcccf2b93a1c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18113 diff changeset	2887	list add:(suffix asLowercase).
fcccf2b93a1c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18113 diff changeset	2888	tagList class tagsSuffixes at:aKey put:list.
fcccf2b93a1c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18113 diff changeset	2889	self editedFileChanged.
fcccf2b93a1c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18113 diff changeset	2890	].
fcccf2b93a1c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18113 diff changeset	2891	menu addItem:item.
fcccf2b93a1c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18113 diff changeset	2892	].
fcccf2b93a1c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18113 diff changeset	2893	menu
fcccf2b93a1c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18113 diff changeset	2894	].
fcccf2b93a1c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18113 diff changeset	2895
fcccf2b93a1c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18113 diff changeset	2896	]
fcccf2b93a1c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18113 diff changeset	2897	].
fcccf2b93a1c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18113 diff changeset	2898	].
fcccf2b93a1c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18113 diff changeset	2899	menu
fcccf2b93a1c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18113 diff changeset	2900	]
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2901	]
11780 a578d7513705 changed: #middleButtonMenu Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	2902
a578d7513705 changed: #middleButtonMenu Claus Gittinger <cg@exept.de> parents: 11761 diff changeset	2903	"Modified: / 08-09-2012 / 19:51:03 / cg"
18753 ed2954913df7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18697 diff changeset	2904	"Modified: / 02-05-2019 / 22:39:43 / Claus Gittinger"
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2905	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2906
10435 309c101e7386 added:5 methods Claus Gittinger <cg@exept.de> parents: 10055 diff changeset	2907	sortByLineNumber
10766 eaaed81115db added: Claus Gittinger <cg@exept.de> parents: 10765 diff changeset	2908	self keepingSelectionDo:[
14484 ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	2909	tagList sortedByLineNumber:true.
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	2910	self sortIsByName value:false.
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	2911	self sortIsByLineNumber value:true.
10766 eaaed81115db added: Claus Gittinger <cg@exept.de> parents: 10765 diff changeset	2912	]
10435 309c101e7386 added:5 methods Claus Gittinger <cg@exept.de> parents: 10055 diff changeset	2913
309c101e7386 added:5 methods Claus Gittinger <cg@exept.de> parents: 10055 diff changeset	2914	"Created: / 03-08-2011 / 11:04:51 / cg"
309c101e7386 added:5 methods Claus Gittinger <cg@exept.de> parents: 10055 diff changeset	2915	!
309c101e7386 added:5 methods Claus Gittinger <cg@exept.de> parents: 10055 diff changeset	2916
309c101e7386 added:5 methods Claus Gittinger <cg@exept.de> parents: 10055 diff changeset	2917	sortByName
10766 eaaed81115db added: Claus Gittinger <cg@exept.de> parents: 10765 diff changeset	2918	self keepingSelectionDo:[
14484 ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	2919	tagList sortedByNameIgnoringLeadingUnderscoresAndCase: "sortedByName:" true.
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	2920	self sortIsByLineNumber value:false.
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	2921	self sortIsByName value:true.
10766 eaaed81115db added: Claus Gittinger <cg@exept.de> parents: 10765 diff changeset	2922	].
10435 309c101e7386 added:5 methods Claus Gittinger <cg@exept.de> parents: 10055 diff changeset	2923
309c101e7386 added:5 methods Claus Gittinger <cg@exept.de> parents: 10055 diff changeset	2924	"Created: / 03-08-2011 / 11:04:37 / cg"
309c101e7386 added:5 methods Claus Gittinger <cg@exept.de> parents: 10055 diff changeset	2925	!
309c101e7386 added:5 methods Claus Gittinger <cg@exept.de> parents: 10055 diff changeset	2926
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2927	updateTagList
13341 4de6468037a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13310 diff changeset	2928	"regenerate tags
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2929	"
9916 0c3fe1fa42c6 fixes for reusability in cc browser Claus Gittinger <cg@exept.de> parents: 9908 diff changeset	2930
10766 eaaed81115db added: Claus Gittinger <cg@exept.de> parents: 10765 diff changeset	2931	\|file target oldSelection\|
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2932
13632 970c41229951 x Claus Gittinger <cg@exept.de> parents: 13630 diff changeset	2933	tagListGenerator notNil ifTrue:[
14578 758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	2934	tagList setRawList:(tagListGenerator value).
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	2935	"/ tagView list:(tagListGenerator value).
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	2936	tagsValid := true.
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	2937	^ self.
13632 970c41229951 x Claus Gittinger <cg@exept.de> parents: 13630 diff changeset	2938	].
970c41229951 x Claus Gittinger <cg@exept.de> parents: 13630 diff changeset	2939
13341 4de6468037a1 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13310 diff changeset	2940	tagsValid := false.
9916 0c3fe1fa42c6 fixes for reusability in cc browser Claus Gittinger <cg@exept.de> parents: 9908 diff changeset	2941	(true "(self tagsVisibilityHolder value == true)"
14578 758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	2942	and:[(file := self editedFile) notNil
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	2943	and:[tagList supportsFile:file]]
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2944	) ifTrue:[
14578 758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	2945	(target := self buildTarget) notNil ifTrue:[
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	2946	(target isRemote and:[self tagsRemoteHolder value]) ifFalse:[
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	2947	target := nil
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	2948	]
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	2949	].
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	2950	oldSelection := tagView selectionValue.
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	2951	(tagView generateTagsFor:file onTarget:target
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	2952	finally:[
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	2953	\|tagsForLabel oldLabel bestTag\|
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	2954
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	2955	oldSelection notNil ifTrue:[
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	2956	oldLabel := oldSelection label.
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	2957	tagsForLabel := tagView elementsForWhich:[:el \| el label = oldLabel].
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	2958	"/ only reselect, if there is exactly one
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	2959	tagsForLabel size == 1 ifTrue:[
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	2960	tagView selectElement:tagsForLabel first
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	2961	].
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	2962	"/ tagView
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	2963	"/ selectElementForWhich:[:el \| el label = oldLabel]
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	2964	"/ ifAbsent:["ok, if previous tag is filtered away" "self halt"].
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	2965	].
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	2966	tagsValid := true.
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	2967	]
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	2968	) ifFalse:[
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	2969	"/ did not start a background tag job
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	2970	tagsValid := true. "/ to avoid waiting forever
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	2971	].
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2972	] ifFalse:[
14578 758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	2973	tagView stopGeneratingTags.
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	2974	tagView clearList.
758b72c5c89b html tag menu Claus Gittinger <cg@exept.de> parents: 14563 diff changeset	2975	tagsValid := true.
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2976	].
9916 0c3fe1fa42c6 fixes for reusability in cc browser Claus Gittinger <cg@exept.de> parents: 9908 diff changeset	2977
10969 665814cad40d changed: #updateTagList Claus Gittinger <cg@exept.de> parents: 10965 diff changeset	2978	"Modified: / 07-12-2011 / 11:13:18 / cg"
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2979	! !
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2980
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2981	!TagsBrowser methodsFor:'startup & release'!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2982
14484 ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	2983	assignFocusToTagFilterInputField
13076 254581d2fafc class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 12956 diff changeset	2984	(self builder componentAt:#TagFilterInputField) requestFocus.
254581d2fafc class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 12956 diff changeset	2985	"/ (self builder componentAt:#TagFilterInputField) takeFocus
254581d2fafc class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 12956 diff changeset	2986
254581d2fafc class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 12956 diff changeset	2987	"Created: / 02-08-2012 / 22:00:45 / cg"
254581d2fafc class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 12956 diff changeset	2988	!
254581d2fafc class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 12956 diff changeset	2989
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2990	cloneWith:anApplication
9916 0c3fe1fa42c6 fixes for reusability in cc browser Claus Gittinger <cg@exept.de> parents: 9908 diff changeset	2991	"/ \|browser\|
0c3fe1fa42c6 fixes for reusability in cc browser Claus Gittinger <cg@exept.de> parents: 9908 diff changeset	2992	"/
0c3fe1fa42c6 fixes for reusability in cc browser Claus Gittinger <cg@exept.de> parents: 9908 diff changeset	2993	"/ (browser := anApplication tagsBrowser) notNil ifTrue:[
0c3fe1fa42c6 fixes for reusability in cc browser Claus Gittinger <cg@exept.de> parents: 9908 diff changeset	2994	"/ self tagsVisibilityHolder value:(browser tagsVisibilityHolder value)
0c3fe1fa42c6 fixes for reusability in cc browser Claus Gittinger <cg@exept.de> parents: 9908 diff changeset	2995	"/ ]
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2996
9916 0c3fe1fa42c6 fixes for reusability in cc browser Claus Gittinger <cg@exept.de> parents: 9908 diff changeset	2997	"Modified: / 07-05-2011 / 11:54:48 / cg"
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2998	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2999
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3000	initialize
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3001	super initialize.
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3002
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3003	tagList := TagList new.
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3004	tagView := TagView new.
14480 8d6d843b0fa4 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14427 diff changeset	3005	tagsValid := false.
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3006
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3007	tagView application:self.
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3008	tagView list:tagList.
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3009
10965 c24875a2489d added: #tagListSelectionChangedTo: Claus Gittinger <cg@exept.de> parents: 10841 diff changeset	3010	tagView action:[:i\| self tagListSelectionChangedTo:i].
10435 309c101e7386 added:5 methods Claus Gittinger <cg@exept.de> parents: 10055 diff changeset	3011
10965 c24875a2489d added: #tagListSelectionChangedTo: Claus Gittinger <cg@exept.de> parents: 10841 diff changeset	3012	"Modified: / 06-12-2011 / 14:57:06 / cg"
10435 309c101e7386 added:5 methods Claus Gittinger <cg@exept.de> parents: 10055 diff changeset	3013	!
309c101e7386 added:5 methods Claus Gittinger <cg@exept.de> parents: 10055 diff changeset	3014
309c101e7386 added:5 methods Claus Gittinger <cg@exept.de> parents: 10055 diff changeset	3015	postBuildWith:aBuilder
309c101e7386 added:5 methods Claus Gittinger <cg@exept.de> parents: 10055 diff changeset	3016	super postBuildWith:aBuilder.
309c101e7386 added:5 methods Claus Gittinger <cg@exept.de> parents: 10055 diff changeset	3017
309c101e7386 added:5 methods Claus Gittinger <cg@exept.de> parents: 10055 diff changeset	3018	self sortIsByName value:true.
309c101e7386 added:5 methods Claus Gittinger <cg@exept.de> parents: 10055 diff changeset	3019
309c101e7386 added:5 methods Claus Gittinger <cg@exept.de> parents: 10055 diff changeset	3020	"Created: / 03-08-2011 / 11:19:44 / cg"
10965 c24875a2489d added: #tagListSelectionChangedTo: Claus Gittinger <cg@exept.de> parents: 10841 diff changeset	3021	!
c24875a2489d added: #tagListSelectionChangedTo: Claus Gittinger <cg@exept.de> parents: 10841 diff changeset	3022
c24875a2489d added: #tagListSelectionChangedTo: Claus Gittinger <cg@exept.de> parents: 10841 diff changeset	3023	tagListSelectionChangedTo:idx
c24875a2489d added: #tagListSelectionChangedTo: Claus Gittinger <cg@exept.de> parents: 10841 diff changeset	3024	\|tag\|
c24875a2489d added: #tagListSelectionChangedTo: Claus Gittinger <cg@exept.de> parents: 10841 diff changeset	3025
c24875a2489d added: #tagListSelectionChangedTo: Claus Gittinger <cg@exept.de> parents: 10841 diff changeset	3026	action notNil ifTrue:[
14484 ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	3027	tagList isEmpty ifTrue:[
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	3028	tagList := tagView list
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	3029	].
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	3030	tag := tagList at:idx ifAbsent:nil.
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	3031	tag notNil ifTrue:[ action value:tag ].
10965 c24875a2489d added: #tagListSelectionChangedTo: Claus Gittinger <cg@exept.de> parents: 10841 diff changeset	3032	]
c24875a2489d added: #tagListSelectionChangedTo: Claus Gittinger <cg@exept.de> parents: 10841 diff changeset	3033
c24875a2489d added: #tagListSelectionChangedTo: Claus Gittinger <cg@exept.de> parents: 10841 diff changeset	3034	"Modified: / 03-08-2011 / 11:19:49 / cg"
c24875a2489d added: #tagListSelectionChangedTo: Claus Gittinger <cg@exept.de> parents: 10841 diff changeset	3035	"Created: / 06-12-2011 / 14:57:26 / cg"
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3036	! !
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3037
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3038	!TagsBrowser::TagView methodsFor:'accessing'!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3039
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3040	application
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3041	"returns my application, the TagsBrowser
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3042	"
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3043	^ application
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3044	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3045
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3046	application:theTagsBrowser
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3047	"set my application, the TagsBrowser
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3048	"
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3049	application := theTagsBrowser.
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3050	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3051
12068 639cac07052e class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 11780 diff changeset	3052	clearList
639cac07052e class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 11780 diff changeset	3053	self list:nil
639cac07052e class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 11780 diff changeset	3054	!
639cac07052e class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 11780 diff changeset	3055
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3056	filter:aString
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3057	list filter:aString.
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3058	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3059
13354 a3bb8a555567 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13341 diff changeset	3060	list:aList
13664 c11682792269 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13632 diff changeset	3061	(aList isNil or:[aList isKindOf:Tools::TagList]) ifFalse:[self halt].
13354 a3bb8a555567 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13341 diff changeset	3062	super list:aList.
a3bb8a555567 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13341 diff changeset	3063	!
a3bb8a555567 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13341 diff changeset	3064
13664 c11682792269 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13632 diff changeset	3065	newDefaultList
c11682792269 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13632 diff changeset	3066	^ TagList new
c11682792269 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13632 diff changeset	3067	!
c11682792269 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13632 diff changeset	3068
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3069	tagLineNr:lineNr
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3070	"remember line nr for which a tag should be highlighted.
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3071	(will set my selection late, when the taglist is available"
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3072
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3073	tagLineNr := lineNr
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3074	! !
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3075
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3076	!TagsBrowser::TagView methodsFor:'drawing'!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3077
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3078	drawLabelAt:anIndex x:x y:y h:h
16858 3927e2daa8c4 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 16512 diff changeset	3079	"draw the label at position x/y without clearing the background"
3927e2daa8c4 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 16512 diff changeset	3080
14526 a60031f581d2 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14484 diff changeset	3081	\|item label typeIdentifier font
13302 43e8996fe190 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13076 diff changeset	3082	y0 widthOfTypeIdentifier inset inSelection lineNrString\|
43e8996fe190 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13076 diff changeset	3083
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3084	item := list at:anIndex ifAbsent:nil.
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3085	item isNil ifTrue:[^ self].
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3086
14526 a60031f581d2 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14484 diff changeset	3087	font := gc font.
a60031f581d2 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14484 diff changeset	3088
14353 b690f9da0bfd class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14348 diff changeset	3089	label := item printString ? ''.
13302 43e8996fe190 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13076 diff changeset	3090	(inSelection := self isInSelection:anIndex) ifTrue:[
14633 95ab76df272c class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14609 diff changeset	3091	self hasFocus ifTrue:[
17255 463d817e4eef #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16858 diff changeset	3092	gc paint:hilightFgColor on:hilightBgColor.
14633 95ab76df272c class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14609 diff changeset	3093	] ifFalse:[
17255 463d817e4eef #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16858 diff changeset	3094	gc paint:hilightFgColorNoFocus on:hilightBgColorNoFocus
14633 95ab76df272c class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14609 diff changeset	3095	].
14526 a60031f581d2 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14484 diff changeset	3096	label := label string. "/ to avoid printing blue on blue
13302 43e8996fe190 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13076 diff changeset	3097	] ifFalse:[
17255 463d817e4eef #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16858 diff changeset	3098	gc paint:fgColor on:bgColor.
13302 43e8996fe190 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13076 diff changeset	3099	].
43e8996fe190 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13076 diff changeset	3100
43e8996fe190 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13076 diff changeset	3101	lineNrString := ' [ %1 ]' bindWith:item lineNumber.
43e8996fe190 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13076 diff changeset	3102	inSelection ifFalse:[
16512 9d06c889f22f #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16281 diff changeset	3103	lineNrString := lineNrString withColor:Color darkGray.
13302 43e8996fe190 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13076 diff changeset	3104	].
43e8996fe190 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13076 diff changeset	3105	label := label asText , lineNrString.
43e8996fe190 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13076 diff changeset	3106
14526 a60031f581d2 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14484 diff changeset	3107	y0 := y - (((font height) + 1 - h) // 2) + font ascent.
13302 43e8996fe190 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13076 diff changeset	3108
43e8996fe190 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13076 diff changeset	3109	typeIdentifier := item typeIdentifierInList.
43e8996fe190 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13076 diff changeset	3110	typeIdentifier isNil ifTrue:[
14526 a60031f581d2 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14484 diff changeset	3111	widthOfTypeIdentifier := 0
13302 43e8996fe190 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13076 diff changeset	3112	] ifFalse:[
17537 f85a96e09ab6 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17255 diff changeset	3113	typeIdentifier := typeIdentifier allBold.
16858 3927e2daa8c4 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 16512 diff changeset	3114	typeIdentifier displayOn:gc x:x y:y0.
3927e2daa8c4 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 16512 diff changeset	3115	widthOfTypeIdentifier := (typeIdentifier widthOn:gc) + font width "... of a space".
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3116	].
13302 43e8996fe190 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13076 diff changeset	3117	inset := TypeInset max:widthOfTypeIdentifier.
43e8996fe190 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13076 diff changeset	3118
16858 3927e2daa8c4 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 16512 diff changeset	3119	label displayOn:gc x:(x + inset) y:y0
10759 fc048c9b54cb added: #flyByHelpSpec Claus Gittinger <cg@exept.de> parents: 10435 diff changeset	3120
14546 7c54bb39884a Fix in displayOn: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14544 diff changeset	3121	"Modified: / 23-06-2014 / 21:23:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
17537 f85a96e09ab6 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17255 diff changeset	3122	"Modified: / 20-06-2017 / 08:18:21 / cg"
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3123	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3124
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3125	drawSelectionFrameAt:lnNr x:x w:w
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3126	"draw the background and foreground of the selection frame
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3127	at a lineNr.
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3128	"
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3129	\|item
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3130	x0 "{ Class:SmallInteger }"
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3131	x1 "{ Class: SmallInteger }"
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3132	y0 "{ Class:SmallInteger }"
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3133	y1 "{ Class:SmallInteger }"
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3134	hL "{ Class:SmallInteger }"
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3135	wL "{ Class:SmallInteger }"
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3136	\|
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3137	(item := list at:lnNr ifAbsent:nil) isNil ifTrue:[
14633 95ab76df272c class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14609 diff changeset	3138	"/ list might change during drawing; item no longer visible
95ab76df272c class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14609 diff changeset	3139	^ self
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3140	].
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3141
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3142	"/ CLEAR THE BACKGROUND
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3143
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3144	y0 := self yVisibleOfLine:lnNr.
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3145	y1 := self yVisibleOfLine:(lnNr + 1).
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3146	hL := y1 - y0.
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3147
13302 43e8996fe190 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13076 diff changeset	3148	x0 := textStartLeft - viewOrigin x "+ TypeInset - 4".
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3149	x1 := (self widthOfContents - viewOrigin x) max:(width - margin).
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3150	wL := x1 - x0.
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3151
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3152	wL > 0 ifFalse:[^ self].
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3153
17255 463d817e4eef #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16858 diff changeset	3154	gc paint:(self hasFocus ifTrue:[hilightBgColor] ifFalse:[hilightBgColorNoFocus]).
463d817e4eef #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16858 diff changeset	3155	gc fillRectangleX:x0 y:y0 width:wL height:hL.
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3156
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3157	"/ DRAW THE FRAME
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3158
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3159	hilightFrameColor notNil ifTrue:[
14633 95ab76df272c class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14609 diff changeset	3160	hilightLevel == 0 ifTrue:[
17255 463d817e4eef #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16858 diff changeset	3161	gc paint:hilightFrameColor.
463d817e4eef #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16858 diff changeset	3162	gc displayRectangleX:x0 y:y0 width:wL height:hL.
463d817e4eef #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16858 diff changeset	3163	^ self.
14633 95ab76df272c class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14609 diff changeset	3164	]
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3165	] ifFalse:[
14633 95ab76df272c class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14609 diff changeset	3166	hilightStyle == #motif ifTrue:[
17255 463d817e4eef #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16858 diff changeset	3167	gc paint:bgColor.
14633 95ab76df272c class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14609 diff changeset	3168	y1 := y0 + 1.
17255 463d817e4eef #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16858 diff changeset	3169	gc displayRectangleX:x0 + 1 y:y1 width:wL - 2 height:hL - 2.
14633 95ab76df272c class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14609 diff changeset	3170	]
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3171	].
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3172
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3173	hilightLevel ~~ 0 ifTrue:[
14633 95ab76df272c class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14609 diff changeset	3174	"/ draw edge
95ab76df272c class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14609 diff changeset	3175	self drawEdgesForX:x0 y:y0 width:wL height:hL level:hilightLevel.
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3176	]
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3177	! !
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3178
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3179	!TagsBrowser::TagView methodsFor:'generating tags'!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3180
10766 eaaed81115db added: Claus Gittinger <cg@exept.de> parents: 10765 diff changeset	3181	generateTagsFor:aFile onTarget:aTarget finally:aBlock
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3182	"generate tags for a file (optionally on a remote target)
13632 970c41229951 x Claus Gittinger <cg@exept.de> parents: 13630 diff changeset	3183	return true, if a background job for generation has been started"
970c41229951 x Claus Gittinger <cg@exept.de> parents: 13630 diff changeset	3184
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3185	\|tagFile\|
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3186
13632 970c41229951 x Claus Gittinger <cg@exept.de> parents: 13630 diff changeset	3187	"/ ugly hack to suppress generation if the taglist is externally provided
13664 c11682792269 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13632 diff changeset	3188	(list isKindOf:Tools::TagList) ifFalse:[
14484 ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	3189	^ false
13664 c11682792269 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13632 diff changeset	3190	].
12741 15a374e650d0 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 12436 diff changeset	3191
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3192	Tag autoload.
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3193
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3194	self stopGeneratingTags.
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3195
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3196	aFile isNil ifTrue:[
14484 ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	3197	^ false
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3198	].
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3199	fileName := aFile asFilename.
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3200
9916 0c3fe1fa42c6 fixes for reusability in cc browser Claus Gittinger <cg@exept.de> parents: 9908 diff changeset	3201	"/ (tagFile := application changes backupFor:fileName) isNil ifTrue:[
14484 ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	3202	tagFile := fileName.
9916 0c3fe1fa42c6 fixes for reusability in cc browser Claus Gittinger <cg@exept.de> parents: 9908 diff changeset	3203	"/ ].
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3204
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3205	process := [
14484 ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	3206	[
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	3207	Error handle:[:ex\|
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	3208	Transcript show:'TagGenerator error caught:'; showCR:ex errorString.
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	3209	ex suspendedContext fullPrintAllOn:Transcript.
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	3210	(Dialog
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	3211	confirm:(resources stringWithCRs:'Error encountered while generating tags:\\ %1\\Debug ?' with:ex description)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	3212	yesLabel:'Debug'
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	3213	) ifTrue:[
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	3214	ex reject
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	3215	].
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	3216	] do:[
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	3217	\|bestTag\|
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	3218
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	3219	self enabled:false.
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	3220	list add:nil.
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	3221	list add:(Tag label:('Generating Tags ...' allBold) pattern:nil).
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	3222	"/ list filter:filter.
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	3223	list sortedByName:(application sortIsByName value).
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	3224
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	3225	list
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	3226	fromFile:tagFile
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	3227	in:(application tempDirectory)
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	3228	onTarget:aTarget.
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	3229
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	3230	tagLineNr notNil ifTrue:[
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	3231	bestTag := list bestTagForLine:tagLineNr.
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	3232	bestTag notNil ifTrue:[
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	3233	self setSelection:(list identityIndexOf:bestTag).
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	3234	].
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	3235	tagLineNr := nil
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	3236	].
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	3237	aBlock value.
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	3238	]
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	3239	] ensure:[
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	3240	process := nil.
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	3241	self enabled:true.
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	3242	].
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3243	] forkAt:4.
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3244
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3245	process priorityRange:(4 to:8).
13354 a3bb8a555567 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13341 diff changeset	3246	^ true.
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3247
10766 eaaed81115db added: Claus Gittinger <cg@exept.de> parents: 10765 diff changeset	3248	"Created: / 06-10-2011 / 13:56:18 / cg"
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3249	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3250
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3251	stopGeneratingTags
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3252	"stop the process which generates the tags
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3253	"
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3254	\|task\|
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3255
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3256	(task := process) notNil ifTrue:[
14484 ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	3257	process := nil.
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	3258
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	3259	Exception handle:[:ex\|
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	3260	Transcript showCR:('caught exception during tag-process termination: ',ex description).
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	3261	] do:[
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	3262	task terminateWithAllSubprocessesInGroup.
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	3263	task waitUntilTerminated.
ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	3264	]
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3265	].
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3266	fileName := nil.
10766 eaaed81115db added: Claus Gittinger <cg@exept.de> parents: 10765 diff changeset	3267	"/ list removeAll.
eaaed81115db added: Claus Gittinger <cg@exept.de> parents: 10765 diff changeset	3268
eaaed81115db added: Claus Gittinger <cg@exept.de> parents: 10765 diff changeset	3269	"Modified (comment): / 06-10-2011 / 14:01:30 / cg"
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3270	! !
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3271
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3272	!TagsBrowser::TagView methodsFor:'initialize & release'!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3273
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3274	destroy
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3275	self stopGeneratingTags.
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3276	super destroy.
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3277	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3278
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3279	initialize
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3280
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3281	TypeInset := 16.
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3282
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3283	super initialize.
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3284	highlightMode := #line.
14561 10dc9b99ef00 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14546 diff changeset	3285	itemHeight := gc font height.
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3286	! !
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3287
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3288	!TagsBrowser::TagView methodsFor:'protocol'!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3289
14484 ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	3290	heightOfLineAt:aLineNr
13302 43e8996fe190 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13076 diff changeset	3291	"returns the total height for a line at an index (including lineSpacing)"
14484 ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	3292
14563 61b8b5928152 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14561 diff changeset	3293	^ lineSpacing + itemHeight
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3294	!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3295
14484 ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	3296	widthOfWidestLineBetween:firstLine and:lastLine
15897 e0b814830832 #BUGFIX Claus Gittinger <cg@exept.de> parents: 15786 diff changeset	3297	"return the width in pixels of the widest line in a range.
e0b814830832 #BUGFIX Claus Gittinger <cg@exept.de> parents: 15786 diff changeset	3298	- used to optimize scrolling, by limiting the scrolled area;
e0b814830832 #BUGFIX Claus Gittinger <cg@exept.de> parents: 15786 diff changeset	3299	not for scrollbar or other width related stuff which should be exact."
14484 ca909db9a8db * empty log message * Claus Gittinger <cg@exept.de> parents: 14480 diff changeset	3300
13302 43e8996fe190 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 13076 diff changeset	3301	^ TypeInset + (super widthOfWidestLineBetween:firstLine and:lastLine)
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3302	! !
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3303
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3304	!TagsBrowser class methodsFor:'documentation'!
7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3305
10763 f0ea0a752590 added: Claus Gittinger <cg@exept.de> parents: 10759 diff changeset	3306	version
15772 fd21f08c74ff class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 15248 diff changeset	3307	^ '$Header$'
10763 f0ea0a752590 added: Claus Gittinger <cg@exept.de> parents: 10759 diff changeset	3308	!
f0ea0a752590 added: Claus Gittinger <cg@exept.de> parents: 10759 diff changeset	3309
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3310	version_CVS
15772 fd21f08c74ff class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 15248 diff changeset	3311	^ '$Header$'
10055 88034a467573 changed: #documentation Claus Gittinger <cg@exept.de> parents: 9943 diff changeset	3312	!
88034a467573 changed: #documentation Claus Gittinger <cg@exept.de> parents: 9943 diff changeset	3313
88034a467573 changed: #documentation Claus Gittinger <cg@exept.de> parents: 9943 diff changeset	3314	version_SVN
15772 fd21f08c74ff class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 15248 diff changeset	3315	^ '$Id$'
9892 7f096221cee0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3316	! !
14526 a60031f581d2 class: Tools::TagsBrowser Claus Gittinger <cg@exept.de> parents: 14484 diff changeset	3317

author	Claus Gittinger <cg@exept.de>
	Wed, 05 Jun 2019 14:16:59 +0200
changeset 18805	f6df57c6dbfb
parent 18753	ed2954913df7
child 19291	017eaf208581
permissions	-rw-r--r--