hg/stx-libtool: Tools__BrowserList.st@2547928ef35d (annotated)

14107 bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1	"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2	COPYRIGHT (c) 2004 by eXept Software AG
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	3	All Rights Reserved
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	4
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	5	This software is furnished under a license and may be used
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	6	only in accordance with the terms of that license and with the
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	7	inclusion of the above copyright notice. This software may not
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	8	be provided or otherwise made available to, or used by, any
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	9	other person. No title to or ownership of the software is
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10	hereby transferred.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	11	"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	12	"{ Package: 'stx:libtool' }"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	13
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	14	"{ NameSpace: Tools }"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	15
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	16	NavigatorModel subclass:#BrowserList
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	17	instanceVariableNames:'menuHolder inGeneratorHolder outGeneratorHolder
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	18	selectionChangeCondition immediateUpdate doubleClickChannel
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	19	filter updateTrigger forceGeneratorTrigger hideUnloadedClasses
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	20	showClassPackages selectionHolder packageFilter nameSpaceFilter
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	21	organizerMode slaveMode listValid pseudoListLabelHolder icons
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	22	sortBy autoSelect showAllClassesInNameSpaceOrganisation
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	23	nameFilter showCoverageInformation searchHandler
15153 40ad54a567ac class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 15131 diff changeset	24	autoUpdateOnChange loadInProgress'
14107 bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	25	classVariableNames:'SynchronousUpdate Icons'
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	26	poolDictionaries:''
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	27	category:'Interface-Browsers-New'
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	28	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	29
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	30	Object subclass:#SearchHandler
14164 e638a1c10eef Fix for bug #12: In-place search in class category list is broken Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14107 diff changeset	31	instanceVariableNames:'listView listViewVisualBlock listViewSelectedVisualBlock
e638a1c10eef Fix for bug #12: In-place search in class category list is broken Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14107 diff changeset	32	listHolder listSelectionHolder searchField searchWindow
14196 88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	33	searchHolder nextDelegate'
14107 bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	34	classVariableNames:''
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	35	poolDictionaries:''
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	36	privateIn:BrowserList
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	37	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	38
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	39	!BrowserList class methodsFor:'documentation'!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	40
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	41	copyright
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	42	"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	43	COPYRIGHT (c) 2004 by eXept Software AG
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	44	All Rights Reserved
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	45
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	46	This software is furnished under a license and may be used
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	47	only in accordance with the terms of that license and with the
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	48	inclusion of the above copyright notice. This software may not
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	49	be provided or otherwise made available to, or used by, any
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	50	other person. No title to or ownership of the software is
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	51	hereby transferred.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	52	"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	53	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	54
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	55	documentation
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	56	"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	57	embeddable application displaying the class-categories.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	58	Provides an outputGenerator, which enumerates the classes in
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	59	the selected categories.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	60
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	61	[author:]
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	62	Claus Gittinger (cg@exept.de)
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	63
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	64	[instance variables:]
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	65	can someone please write a few words here...
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	66
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	67	menuHolder
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	68	inGeneratorHolder
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	69	outGeneratorHolder
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	70	selectionChangeCondition
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	71	immediateUpdate
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	72	doubleClickChannel
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	73	filter a filterblock by the one who embedds this
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	74	updateTrigger
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	75	forceGeneratorTrigger
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	76	hideUnloadedClasses
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	77	showClassPackages
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	78	selectionHolder
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	79	packageFilter
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	80	nameSpaceFilter
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	81	organizerMode
14913 e34b7e77efbb class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14883 diff changeset	82	slaveMode I am just following passively (used for hidden
e34b7e77efbb class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14883 diff changeset	83	organized lists (for example: package list, while hidden
e34b7e77efbb class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14883 diff changeset	84	when another mode is active, to prevent it from sending
e34b7e77efbb class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14883 diff changeset	85	out change requests etc.)
14107 bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	86	listValid
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	87	pseudoListLabelHolder
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	88	icons
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	89	sortBy
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	90	autoSelect
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	91	showAllClassesInNameSpaceOrganisation
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	92	nameFilter a string or glob pattern (from the user, if a GUI for that is present)
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	93	"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	94	! !
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	95
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	96	!BrowserList class methodsFor:'image specs'!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	97
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	98	checkedIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	99	"This resource specification was automatically generated
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	100	by the ImageEditor of ST/X."
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	101
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	102	"Do not manually edit this!! If it is corrupted,
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	103	the ImageEditor may not be able to read the specification."
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	104
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	105	"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	106	self checkedIcon inspect
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	107	ImageEditor openOnClass:self andSelector:#checkedIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	108	Icon flushCachedIcons
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	109	"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	110
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	111	<resource: #image>
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	112
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	113	^ MenuPanel iconIndicationOn
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	114
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	115	"/ ^Icon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	116	"/ constantNamed:#'Tools::HierarchicalPackageFilterList::PackageItem class checkedIcon'
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	117	"/ ifAbsentPut:[(Depth1Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@C?<O?0??C?<O?0??C?<O?07?C?<O?0??@@@@@@b') ; colorMapFromArray:#[0 0 0 33 161 33]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	118	"/?????<@C0@O@D<@30GOH8<7C38OG@<HC0@O@@?????<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	119	"/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	120	"/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; yourself); yourself]
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	121
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	122	"Created: / 06-11-2008 / 16:32:46 / Jan Vrany <vranyj1@fel.cvut.cz>"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	123	"Modified: / 04-12-2011 / 15:35:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	124	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	125
14756 a11ea9a13dac Fixes in LintRuleList. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14611 diff changeset	126	checkedIconDisabled
a11ea9a13dac Fixes in LintRuleList. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14611 diff changeset	127	"This resource specification was automatically generated
a11ea9a13dac Fixes in LintRuleList. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14611 diff changeset	128	by the ImageEditor of ST/X."
a11ea9a13dac Fixes in LintRuleList. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14611 diff changeset	129
a11ea9a13dac Fixes in LintRuleList. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14611 diff changeset	130	"Do not manually edit this!! If it is corrupted,
a11ea9a13dac Fixes in LintRuleList. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14611 diff changeset	131	the ImageEditor may not be able to read the specification."
a11ea9a13dac Fixes in LintRuleList. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14611 diff changeset	132
a11ea9a13dac Fixes in LintRuleList. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14611 diff changeset	133	"
a11ea9a13dac Fixes in LintRuleList. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14611 diff changeset	134	self checkedIcon inspect
a11ea9a13dac Fixes in LintRuleList. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14611 diff changeset	135	ImageEditor openOnClass:self andSelector:#checkedIcon
a11ea9a13dac Fixes in LintRuleList. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14611 diff changeset	136	Icon flushCachedIcons
a11ea9a13dac Fixes in LintRuleList. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14611 diff changeset	137	"
a11ea9a13dac Fixes in LintRuleList. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14611 diff changeset	138
a11ea9a13dac Fixes in LintRuleList. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14611 diff changeset	139	<resource: #image>
a11ea9a13dac Fixes in LintRuleList. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14611 diff changeset	140
a11ea9a13dac Fixes in LintRuleList. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14611 diff changeset	141	^ MenuPanel iconIndicationDisabledOn
a11ea9a13dac Fixes in LintRuleList. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14611 diff changeset	142
a11ea9a13dac Fixes in LintRuleList. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14611 diff changeset	143	"/ ^Icon
a11ea9a13dac Fixes in LintRuleList. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14611 diff changeset	144	"/ constantNamed:#'Tools::HierarchicalPackageFilterList::PackageItem class checkedIcon'
a11ea9a13dac Fixes in LintRuleList. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14611 diff changeset	145	"/ ifAbsentPut:[(Depth1Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@C?<O?0??C?<O?0??C?<O?07?C?<O?0??@@@@@@b') ; colorMapFromArray:#[0 0 0 33 161 33]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
a11ea9a13dac Fixes in LintRuleList. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14611 diff changeset	146	"/?????<@C0@O@D<@30GOH8<7C38OG@<HC0@O@@?????<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
a11ea9a13dac Fixes in LintRuleList. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14611 diff changeset	147	"/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
a11ea9a13dac Fixes in LintRuleList. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14611 diff changeset	148	"/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; yourself); yourself]
a11ea9a13dac Fixes in LintRuleList. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14611 diff changeset	149
a11ea9a13dac Fixes in LintRuleList. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14611 diff changeset	150	"Created: / 08-10-2014 / 22:53:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
a11ea9a13dac Fixes in LintRuleList. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14611 diff changeset	151	!
a11ea9a13dac Fixes in LintRuleList. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14611 diff changeset	152
14107 bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	153	nameSpaceIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	154	^ SystemBrowser nameSpaceIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	155	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	156
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	157	packageIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	158	^ SystemBrowser packageIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	159	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	160
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	161	padLockBlueMiniIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	162	^ SystemBrowser padLockBlueMiniIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	163	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	164
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	165	padLockGrayMiniIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	166	^ SystemBrowser padLockGrayMiniIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	167	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	168
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	169	padLockGreenMiniIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	170	^ SystemBrowser padLockGreenMiniIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	171	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	172
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	173	padLockRedMiniIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	174	^ SystemBrowser padLockRedMiniIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	175	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	176
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	177	programImageIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	178	^ SystemBrowser programImageIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	179	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	180
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	181	protectedMethod
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	182	^ self padLockRedMiniIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	183	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	184
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	185	redLockIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	186	^ SystemBrowser redLockIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	187	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	188
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	189	uncheckedIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	190	"This resource specification was automatically generated
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	191	by the ImageEditor of ST/X."
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	192
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	193	"Do not manually edit this!! If it is corrupted,
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	194	the ImageEditor may not be able to read the specification."
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	195
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	196	"
15306 2547928ef35d class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 15265 diff changeset	197	self uncheckedIcon inspect
2547928ef35d class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 15265 diff changeset	198	ImageEditor openOnClass:self andSelector:#uncheckedIcon
14107 bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	199	Icon flushCachedIcons
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	200	"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	201
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	202	<resource: #image>
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	203
15306 2547928ef35d class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 15265 diff changeset	204	^Icon
2547928ef35d class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 15265 diff changeset	205	constantNamed:'Tools::BrowserList uncheckedIcon'
2547928ef35d class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 15265 diff changeset	206	ifAbsentPut:[(Depth8Image new) width:13; height:13; bits:(ByteArray fromPackedString:'
2547928ef35d class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 15265 diff changeset	207	G!!8^G!!8^G!!8^G!!8^G!!8,KB0,KB0,KB0,KA8^KA@PDA@PDCT)HR0^G"0PJ"(J \QLR4,G!!8,DB(@RX3E TUKA8^KA@4L <1F"8CHB0^G"00DQ$[@2\SD0$,
2547928ef35d class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 15265 diff changeset	208	G!!8,IQXW@"LLC@0_KA8^K@8\H!!LLKAH,K20^G"0XH!!LTKB (JBP,G!!8,J04@A@ JA ,]KA8^KB0,KB0,KB0,KB0^G!!8^G!!8^G!!8^G!!8^G @a') ; colorMapFromArray:#[219 219 220 205 209 214 234 234 234 232 232 232 224 225 225 226 227 228 235 236 236 208 211 216 230 231 231 212 213 214 234 235 235 235 235 236 242 242 242 212 212 213 188 191 194 212 215 219 174 179 185 213 216 220 245 245 245 237 237 237 240 240 240 198 199 200 221 223 225 228 229 229 194 196 198 218 220 223 225 226 227 224 225 227 227 228 229 233 233 234 142 143 143 220 221 222 204 205 205 187 190 193 233 233 233 239 239 239 230 230 230 184 187 191 210 213 218 236 236 236 246 246 246 180 185 189 203 207 213 202 203 204 244 244 244 193 195 197 229 230 230 225 226 226 178 183 188 219 221 223 208 212 217 216 219 222 205 209 215 175 180 186]; yourself]
14756 a11ea9a13dac Fixes in LintRuleList. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14611 diff changeset	209	!
a11ea9a13dac Fixes in LintRuleList. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14611 diff changeset	210
a11ea9a13dac Fixes in LintRuleList. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14611 diff changeset	211	uncheckedIconDisabled
a11ea9a13dac Fixes in LintRuleList. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14611 diff changeset	212	"This resource specification was automatically generated
a11ea9a13dac Fixes in LintRuleList. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14611 diff changeset	213	by the ImageEditor of ST/X."
a11ea9a13dac Fixes in LintRuleList. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14611 diff changeset	214
a11ea9a13dac Fixes in LintRuleList. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14611 diff changeset	215	"Do not manually edit this!! If it is corrupted,
a11ea9a13dac Fixes in LintRuleList. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14611 diff changeset	216	the ImageEditor may not be able to read the specification."
a11ea9a13dac Fixes in LintRuleList. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14611 diff changeset	217
a11ea9a13dac Fixes in LintRuleList. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14611 diff changeset	218	"
15306 2547928ef35d class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 15265 diff changeset	219	self uncheckedIconDisabled inspect
2547928ef35d class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 15265 diff changeset	220	ImageEditor openOnClass:self andSelector:#uncheckedIconDisabled
14756 a11ea9a13dac Fixes in LintRuleList. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14611 diff changeset	221	Icon flushCachedIcons
a11ea9a13dac Fixes in LintRuleList. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14611 diff changeset	222	"
a11ea9a13dac Fixes in LintRuleList. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14611 diff changeset	223
a11ea9a13dac Fixes in LintRuleList. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14611 diff changeset	224	<resource: #image>
a11ea9a13dac Fixes in LintRuleList. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14611 diff changeset	225
15306 2547928ef35d class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 15265 diff changeset	226	^Icon
2547928ef35d class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 15265 diff changeset	227	constantNamed:'Tools::BrowserList uncheckedIconDisabled'
2547928ef35d class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 15265 diff changeset	228	ifAbsentPut:[(Depth8Image new) width:13; height:13; bits:(ByteArray fromPackedString:'
2547928ef35d class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 15265 diff changeset	229	LC@0LC@0LC@0LC@0LC@GA0\GA0\GA0\GA3@0A2H"H"H"H!!@DL0\0L@\"APTEAQ #C@ GLC@GH TED D]JAX''A3@0A2HOCRDLK@$TL \0L@\KH2,-E@H%IQ(G
2547928ef35d class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 15265 diff changeset	230	LC@G@B )D3T^G!!81A3@0A2@.MBT^A2PGB \0L@\*MBT&A0LC@08GLC@GA!!<QEQ$[E10/A3@0A0\GA0\GA0\GA0\0LC@0LC@0LC@0LC@0L@@a') ; colorMapFromArray:#[184 187 191 210 213 218 236 236 236 246 246 246 180 185 189 203 207 213 202 203 204 244 244 244 193 195 197 229 230 230 225 226 226 178 183 188 219 221 223 208 212 217 230 230 230 205 209 215 175 180 186 219 219 220 205 209 214 234 234 234 232 232 232 224 225 225 226 227 228 235 236 236 208 211 216 230 231 231 212 213 214 234 235 235 235 235 236 216 219 222 242 242 242 212 212 213 188 191 194 212 215 219 174 179 185 213 216 220 245 245 245 237 237 237 240 240 240 198 199 200 221 223 225 228 229 229 194 196 198 218 220 223 225 226 227 224 225 227 227 228 229 233 233 234 142 143 143 220 221 222 204 205 205 187 190 193 233 233 233 239 239 239]; yourself]
14107 bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	231	! !
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	232
15156 16300775133c class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 15153 diff changeset	233	!BrowserList class methodsFor:'queries'!
16300775133c class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 15153 diff changeset	234
16300775133c class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 15153 diff changeset	235	isAbstract
16300775133c class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 15153 diff changeset	236	^ self == Tools::BrowserList
16300775133c class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 15153 diff changeset	237	! !
16300775133c class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 15153 diff changeset	238
14107 bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	239	!BrowserList methodsFor:'accessing'!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	240
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	241	nameFilter:something
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	242	nameFilter := something.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	243	! !
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	244
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	245	!BrowserList methodsFor:'aspects'!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	246
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	247	autoUpdateOnChange
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	248	"automatic update of the list, when the system changes.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	249	For some (slow) search lists (such as string-search), autoupdate is
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	250	disabled as it would otherwise make the browser unusable.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	251	Those lists need an explicit menu-update action."
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	252
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	253	^ autoUpdateOnChange ? true.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	254
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	255	"Modified: / 24-02-2000 / 23:57:13 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	256	"Created: / 15-05-2012 / 11:16:07 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	257	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	258
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	259	autoUpdateOnChange: aBoolean
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	260	"automatic update of the list, when the system changes.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	261	For some (slow) search lists (such as string-search), autoupdate is
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	262	disabled as it would otherwise make the browser unusable.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	263	Those lists need an explicit menu-update action."
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	264
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	265	autoUpdateOnChange := aBoolean
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	266
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	267	"Modified: / 24-02-2000 / 23:57:13 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	268	"Created: / 15-05-2012 / 11:17:18 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	269	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	270
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	271	defaultSlaveModeValue
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	272	^ nil.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	273
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	274	"Created: / 25.2.2000 / 22:36:40 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	275	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	276
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	277	doubleClickChannel
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	278	doubleClickChannel isNil ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	279	doubleClickChannel := TriggerValue new.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	280	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	281	^ doubleClickChannel.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	282
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	283	"Modified: / 31.1.2000 / 00:42:44 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	284	"Created: / 5.2.2000 / 22:38:32 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	285	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	286
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	287	doubleClickChannel:aChannel
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	288	doubleClickChannel := aChannel
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	289	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	290
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	291	filter:aValueHolder
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	292	filter notNil ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	293	filter removeDependent:self
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	294	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	295	filter := aValueHolder.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	296	filter notNil ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	297	filter addDependent:self
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	298	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	299
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	300	"Modified: / 4.2.2000 / 23:29:30 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	301	"Created: / 5.2.2000 / 13:42:12 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	302	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	303
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	304	forceGeneratorTrigger
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	305	forceGeneratorTrigger isNil ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	306	forceGeneratorTrigger := TriggerValue new.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	307	forceGeneratorTrigger addDependent:self.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	308	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	309	^ forceGeneratorTrigger.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	310
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	311	"Modified: / 18.2.2000 / 02:02:52 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	312	"Created: / 18.2.2000 / 02:46:40 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	313	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	314
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	315	forceGeneratorTrigger:aTriggerValue
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	316	forceGeneratorTrigger notNil ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	317	forceGeneratorTrigger removeDependent:self
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	318	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	319	forceGeneratorTrigger := aTriggerValue.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	320	forceGeneratorTrigger notNil ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	321	forceGeneratorTrigger addDependent:self
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	322	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	323
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	324	"Modified: / 4.2.2000 / 23:29:30 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	325	"Created: / 18.2.2000 / 02:46:52 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	326	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	327
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	328	hideUnloadedClasses
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	329	hideUnloadedClasses isNil ifTrue:[
15265 5758c44359cd class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 15222 diff changeset	330	hideUnloadedClasses := ValueHolder with:false.
5758c44359cd class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 15222 diff changeset	331	hideUnloadedClasses addDependent:self.
14107 bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	332	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	333	^ hideUnloadedClasses.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	334
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	335	"Modified: / 18.2.2000 / 02:02:52 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	336	"Created: / 18.2.2000 / 17:36:30 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	337	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	338
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	339	hideUnloadedClasses:aValueHolder
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	340	hideUnloadedClasses notNil ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	341	hideUnloadedClasses removeDependent:self
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	342	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	343	hideUnloadedClasses := aValueHolder.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	344	hideUnloadedClasses notNil ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	345	hideUnloadedClasses addDependent:self
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	346	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	347
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	348	"Modified: / 4.2.2000 / 23:29:30 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	349	"Created: / 18.2.2000 / 17:46:36 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	350	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	351
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	352	menuHolder
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	353	^ menuHolder
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	354
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	355	"Created: / 5.2.2000 / 13:42:06 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	356	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	357
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	358	menuHolder:aValueHolder
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	359	menuHolder := aValueHolder.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	360
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	361	"Created: / 5.2.2000 / 13:42:06 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	362	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	363
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	364	nameSpaceFilter
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	365	nameSpaceFilter isNil ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	366	nameSpaceFilter := ValueHolder new.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	367	nameSpaceFilter addDependent:self.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	368	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	369	^ nameSpaceFilter.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	370
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	371	"Modified: / 24.2.2000 / 23:57:13 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	372	"Created: / 18.8.2000 / 14:18:56 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	373	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	374
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	375	nameSpaceFilter:aValueHolder
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	376	nameSpaceFilter notNil ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	377	nameSpaceFilter removeDependent:self
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	378	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	379	nameSpaceFilter := aValueHolder.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	380	nameSpaceFilter notNil ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	381	nameSpaceFilter addDependent:self
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	382	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	383
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	384	"Modified: / 24.2.2000 / 23:56:22 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	385	"Created: / 18.8.2000 / 14:19:06 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	386	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	387
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	388	organizerMode
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	389	organizerMode isNil ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	390	organizerMode := OrganizerCanvas organizerModeCategory asValue.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	391	organizerMode addDependent:self.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	392	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	393	^ organizerMode
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	394
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	395	"Modified: / 31.1.2000 / 00:51:06 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	396	"Created: / 25.2.2000 / 22:36:15 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	397	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	398
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	399	organizerMode:aValueHolder
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	400	organizerMode notNil ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	401	organizerMode removeDependent:self
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	402	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	403	organizerMode := aValueHolder.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	404	organizerMode notNil ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	405	organizerMode addDependent:self
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	406	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	407
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	408	"Modified: / 4.2.2000 / 23:34:28 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	409	"Created: / 25.2.2000 / 22:36:28 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	410	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	411
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	412	packageFilter
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	413	packageFilter isNil ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	414	packageFilter := ValueHolder new.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	415	packageFilter addDependent:self.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	416
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	417	"/ debug-check only
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	418	"/ packageFilter onChangeEvaluate:[packageFilter value isValueModel ifTrue:[self halt:'debug halt']].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	419	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	420	^ packageFilter.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	421
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	422	"Modified: / 18.8.2000 / 19:26:36 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	423	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	424
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	425	packageFilter:aValueHolder
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	426	packageFilter notNil ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	427	packageFilter removeDependent:self
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	428	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	429	packageFilter := aValueHolder.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	430	packageFilter notNil ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	431	packageFilter addDependent:self.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	432
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	433	"/ debug-check only
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	434	"/ packageFilter onChangeEvaluate:[packageFilter value isValueModel ifTrue:[self halt:'debug halt']].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	435	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	436
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	437	"Modified: / 18.8.2000 / 19:26:40 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	438	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	439
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	440	pseudoListLabelHolder
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	441	pseudoListLabelHolder isNil ifTrue:[
15265 5758c44359cd class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 15222 diff changeset	442	pseudoListLabelHolder := ValueHolder with:''.
14107 bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	443	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	444	^ pseudoListLabelHolder
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	445	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	446
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	447	selectionChangeCondition:aBlockOrValueHolder
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	448	selectionChangeCondition := aBlockOrValueHolder
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	449	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	450
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	451	selectionHolder
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	452	selectionHolder isNil ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	453	selectionHolder := ValueHolder new.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	454	selectionHolder addDependent:self
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	455	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	456	^ selectionHolder.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	457
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	458	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	459
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	460	selectionHolder:aValueHolder
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	461	\|prevSelection\|
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	462
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	463	prevSelection := selectionHolder value ? #().
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	464
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	465	selectionHolder notNil ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	466	selectionHolder removeDependent:self
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	467	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	468	selectionHolder := aValueHolder.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	469	selectionHolder notNil ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	470	selectionHolder addDependent:self
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	471	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	472	(selectionHolder value ? #()) ~= prevSelection ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	473	"/ update
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	474	self update:#value with:nil from:selectionHolder
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	475	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	476
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	477
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	478	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	479
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	480	showAllClassesInNameSpaceOrganisation
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	481	^[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	482	\|holder\|
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	483
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	484	showAllClassesInNameSpaceOrganisation notNil ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	485	holder := showAllClassesInNameSpaceOrganisation
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	486	] ifFalse:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	487	masterApplication notNil ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	488	holder := masterApplication perform:#showAllClassesInNameSpaceOrganisation ifNotUnderstood:nil.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	489	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	490	holder notNil ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	491	holder addDependent:self.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	492	] ifFalse:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	493	showAllClassesInNameSpaceOrganisation isNil ifTrue:[
15265 5758c44359cd class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 15222 diff changeset	494	showAllClassesInNameSpaceOrganisation := ValueHolder with:false.
14107 bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	495	showAllClassesInNameSpaceOrganisation addDependent:self.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	496	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	497	holder := showAllClassesInNameSpaceOrganisation.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	498	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	499	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	500	holder value
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	501	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	502
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	503	"Created: / 05-03-2007 / 16:47:03 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	504	"Modified: / 04-07-2011 / 21:49:10 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	505	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	506
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	507	showAllClassesInNameSpaceOrganisation:aValueHolder
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	508	showAllClassesInNameSpaceOrganisation notNil ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	509	showAllClassesInNameSpaceOrganisation removeDependent:self
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	510	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	511	showAllClassesInNameSpaceOrganisation := aValueHolder.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	512	showAllClassesInNameSpaceOrganisation notNil ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	513	showAllClassesInNameSpaceOrganisation addDependent:self
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	514	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	515
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	516	"Created: / 05-03-2007 / 16:47:13 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	517	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	518
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	519	showClassPackages
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	520	showClassPackages isNil ifTrue:[
15265 5758c44359cd class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 15222 diff changeset	521	showClassPackages := ValueHolder with:false.
5758c44359cd class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 15222 diff changeset	522	showClassPackages addDependent:self.
14107 bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	523	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	524	^ showClassPackages.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	525
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	526	"Modified: / 18.2.2000 / 02:02:52 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	527	"Created: / 18.2.2000 / 17:36:30 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	528	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	529
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	530	showClassPackages:aValueHolder
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	531	showClassPackages notNil ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	532	showClassPackages removeDependent:self
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	533	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	534	showClassPackages := aValueHolder.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	535	showClassPackages notNil ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	536	showClassPackages addDependent:self
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	537	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	538	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	539
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	540	showCoverageInformation
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	541	showCoverageInformation isNil ifTrue:[
15265 5758c44359cd class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 15222 diff changeset	542	showCoverageInformation := ValueHolder with:false.
14107 bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	543	showCoverageInformation addDependent:self.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	544	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	545	^ showCoverageInformation.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	546
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	547	"Created: / 27-04-2010 / 16:13:16 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	548	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	549
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	550	showCoverageInformation:aValueHolder
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	551	showCoverageInformation notNil ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	552	showCoverageInformation removeDependent:self
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	553	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	554	showCoverageInformation := aValueHolder.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	555	showCoverageInformation notNil ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	556	showCoverageInformation addDependent:self
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	557	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	558
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	559	"Created: / 27-04-2010 / 16:13:20 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	560	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	561
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	562	slaveMode
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	563	slaveMode isNil ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	564	slaveMode := self defaultSlaveModeValue asValue.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	565	slaveMode addDependent:self.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	566	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	567	^ slaveMode.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	568
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	569	"Created: / 25.2.2000 / 22:36:40 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	570	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	571
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	572	slaveMode:aValueHolder
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	573	\|prev\|
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	574
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	575	slaveMode notNil ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	576	slaveMode removeDependent:self.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	577	prev := slaveMode value.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	578	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	579	slaveMode := aValueHolder.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	580	slaveMode notNil ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	581	slaveMode addDependent:self
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	582	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	583	prev ~~ slaveMode value ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	584	(prev isNil and:[slaveMode value]) ifFalse:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	585	self update:#value with:nil from:slaveMode.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	586	]
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	587	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	588	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	589
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	590	sortBy
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	591	sortBy isNil ifTrue:[
15265 5758c44359cd class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 15222 diff changeset	592	sortBy := ValueHolder with:nil.
5758c44359cd class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 15222 diff changeset	593	sortBy addDependent:self.
14107 bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	594	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	595	^ sortBy.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	596
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	597	"Created: / 25.2.2000 / 22:36:40 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	598	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	599
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	600	sortBy:aValueHolder
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	601	\|prev\|
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	602
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	603	prev := sortBy value.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	604	sortBy notNil ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	605	sortBy removeDependent:self
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	606	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	607	sortBy := aValueHolder.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	608	sortBy notNil ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	609	sortBy addDependent:self
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	610	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	611	prev ~~ sortBy value ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	612	self update:#value with:nil from:sortBy.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	613	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	614
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	615	"Modified: / 4.2.2000 / 23:29:30 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	616	"Created: / 5.2.2000 / 13:42:12 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	617	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	618
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	619	updateTrigger
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	620	updateTrigger isNil ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	621	updateTrigger := TriggerValue new.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	622	updateTrigger addDependent:self.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	623	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	624	^ updateTrigger.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	625
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	626	"Created: / 18.2.2000 / 01:59:58 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	627	"Modified: / 18.2.2000 / 02:02:52 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	628	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	629
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	630	updateTrigger:aTriggerValue
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	631	updateTrigger notNil ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	632	updateTrigger removeDependent:self
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	633	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	634	updateTrigger := aTriggerValue.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	635	updateTrigger notNil ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	636	updateTrigger addDependent:self
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	637	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	638
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	639	"Modified: / 4.2.2000 / 23:29:30 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	640	"Created: / 18.2.2000 / 02:03:15 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	641	! !
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	642
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	643	!BrowserList methodsFor:'change & update'!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	644
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	645	applicationIsActive
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	646	"true if I am the active view"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	647
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	648	\|wg activeView\|
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	649
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	650	(wg := self windowGroup) isNil ifTrue:[ ^ true ]. "/ I am being initialized
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	651	self device isNil ifTrue:[ ^ true ]. "/ I am being initialized
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	652
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	653	(activeView := self device activeView) isNil ifTrue:[ "Transcript showCR:'nil active'." ^ false ].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	654	"/Transcript showCR:'active view: ',(activeView printString).
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	655	"/Transcript showCR:'active wg: ',(activeView windowGroup printString).
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	656	"/Transcript showCR:'my wg: ',wg printString.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	657	^ activeView windowGroup == wg
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	658	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	659
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	660	delayedUpdate:something with:aParameter from:changedObject
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	661
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	662	"/ if any of my subclasses want those, they should look for them.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	663	changedObject == environment ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	664	(something == #Language or:[something == #LanguageTerritory]) ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	665	^ self
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	666	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	667	something == #organization ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	668	^ self
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	669	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	670	something == #classDefinition ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	671	^ self
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	672	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	673	something == #classVariables ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	674	^ self
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	675	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	676	something == #methodTrap ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	677	^ self
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	678	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	679	something == #methodInClassRemoved ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	680	^ self.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	681	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	682	something == #methodDictionary ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	683	^ self
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	684	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	685	something == #newClass ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	686	^ self
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	687	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	688	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	689
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	690	changedObject == slaveMode ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	691	slaveMode value ~~ true ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	692	listValid ~~ true ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	693	self updateList.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	694	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	695	self updateOutputGenerator.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	696	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	697	^ self.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	698	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	699
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	700	changedObject == selectionHolder ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	701	listValid ifFalse:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	702	self updateList.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	703	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	704	^ self selectionChanged
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	705	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	706
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	707	changedObject == forceGeneratorTrigger ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	708	self updateOutputGenerator.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	709	^ self.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	710	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	711
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	712	changedObject == hideUnloadedClasses ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	713	self invalidateList.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	714	slaveMode value ~~ true ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	715	self updateOutputGenerator.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	716	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	717	^ self.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	718	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	719
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	720	changedObject == updateTrigger ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	721	self enqueueDelayedUpdateList.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	722	^ self
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	723	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	724
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	725	changedObject == inGeneratorHolder ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	726	self invalidateList.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	727	^ self
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	728	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	729
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	730	"/ changedObject == outGeneratorHolder ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	731	"/ self enqueueDelayedUpdateList.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	732	"/ ^ self
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	733	"/ ].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	734
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	735	changedObject == packageFilter ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	736	self invalidateList.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	737	^ self
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	738	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	739	changedObject == nameSpaceFilter ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	740	self invalidateList.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	741	^ self
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	742	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	743
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	744	changedObject == organizerMode ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	745	^ self
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	746	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	747
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	748	self invalidateList.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	749	^ self
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	750
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	751	"Created: / 05-02-2000 / 13:42:06 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	752	"Modified: / 18-08-2000 / 14:19:24 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	753	"Modified (format): / 25-02-2014 / 10:02:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	754	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	755
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	756	enqueueDelayedUpdateList
14853 144e3fcd651e class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14756 diff changeset	757	self setListValid:false.
14107 bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	758
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	759	(NewSystemBrowser synchronousUpdate == true
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	760	or:[ immediateUpdate value == true ])
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	761	ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	762	self updateList.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	763	^ self.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	764	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	765
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	766	(self applicationIsActive) ifTrue:[
15131 0956f3bf4f29 class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14913 diff changeset	767	self enqueueMessage:#updateList for:self arguments:nil
14107 bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	768	] ifFalse:[
15131 0956f3bf4f29 class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14913 diff changeset	769	self enqueueMessage:#updateListInBackground for:self arguments:nil
14107 bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	770	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	771
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	772	"Modified: / 05-06-2012 / 23:38:18 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	773	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	774
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	775	enqueueDelayedUpdateOutputGenerator
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	776	(NewSystemBrowser synchronousUpdate == true
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	777	or:[ immediateUpdate value == true ])
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	778	ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	779	self updateOutputGenerator.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	780	^ self.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	781	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	782	"/ listValid := false.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	783	self enqueueMessage:#updateOutputGenerator for:self arguments:#()
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	784	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	785
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	786	environmentChanged
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	787	super environmentChanged.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	788	self updateList.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	789
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	790	"Created: / 24-02-2014 / 10:20:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	791	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	792
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	793	forceReselect
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	794	\|selectionHolder prevSelection\|
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	795
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	796	selectionHolder := self selectionHolder.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	797	prevSelection := selectionHolder value.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	798
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	799	selectionHolder class == ValueHolder ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	800	selectionHolder changed:#value with:prevSelection.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	801	] ifFalse:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	802	selectionHolder setValue:nil.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	803	selectionHolder value:prevSelection.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	804	]
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	805	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	806
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	807	forceSelectionClear
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	808	self selectionHolder setValue:nil
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	809	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	810
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	811	forceUpdateList
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	812	"/ \|listView\|
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	813	"/
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	814	"/ listView := builder componentAt:#List.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	815	"/ listView notNil ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	816	"/ listView list:#()
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	817	"/ ].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	818	self updateList
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	819	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	820
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	821	immediateUpdate:aBooleanOrBooleanHolder
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	822	immediateUpdate := aBooleanOrBooleanHolder
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	823
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	824	"Created: / 13.2.2000 / 22:26:06 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	825	"Modified: / 13.2.2000 / 22:28:09 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	826	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	827
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	828	prioDelayedUpdate:something with:aParameter from:changedObject
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	829	Processor activeProcess withLowerPriorityDo:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	830	self delayedUpdate:something with:aParameter from:changedObject
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	831	]
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	832	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	833
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	834	selectionChangeAllowed
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	835	selectionChangeCondition isNil ifTrue:[^ true].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	836	selectionChangeCondition isBlock ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	837	selectionChangeCondition numArgs == 1 ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	838	^ selectionChangeCondition value:self
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	839	]
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	840	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	841	^ selectionChangeCondition value
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	842	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	843
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	844	selectionChanged
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	845	slaveMode value ~~ true ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	846	self enqueueDelayedUpdateOutputGenerator
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	847	"/ self updateOutputGenerator.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	848	]
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	849
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	850	"Modified: / 4.2.2000 / 15:49:23 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	851	"Created: / 5.2.2000 / 13:42:07 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	852	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	853
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	854	selectionChangedByClick
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	855
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	856	"Created: / 25.2.2000 / 21:19:25 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	857	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	858
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	859	syncDelayedUpdateList
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	860	\|sensor\|
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	861
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	862	sensor := self window sensor.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	863	sensor isNil ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	864	^ self
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	865	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	866
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	867	"/
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	868	"/ if an update is in the queue, process it.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	869	"/
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	870	(sensor
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	871	hasEvent:#updateList
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	872	for:self
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	873	withArguments:#()
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	874	) ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	875	sensor flushEventsFor:self withType:#updateList.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	876	self updateList.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	877	^ self
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	878	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	879	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	880
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	881	update:something with:aParameter from:changedObject
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	882
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	883	changedObject == environmentHolder ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	884	self environmentChanged.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	885	^ self.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	886	].
15222 0d92944a4a35 class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 15156 diff changeset	887	(changedObject == Smalltalk) ifTrue:[
0d92944a4a35 class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 15156 diff changeset	888	something == #preLoad ifTrue:[
0d92944a4a35 class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 15156 diff changeset	889	loadInProgress := true.
0d92944a4a35 class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 15156 diff changeset	890	^ self.
0d92944a4a35 class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 15156 diff changeset	891	].
0d92944a4a35 class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 15156 diff changeset	892	something == #postLoad ifTrue:[
0d92944a4a35 class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 15156 diff changeset	893	"/ must check, as it could be nested...
0d92944a4a35 class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 15156 diff changeset	894	LoadInProgressQuery query ifFalse:[
0d92944a4a35 class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 15156 diff changeset	895	loadInProgress := false.
0d92944a4a35 class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 15156 diff changeset	896	].
0d92944a4a35 class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 15156 diff changeset	897	^ self.
0d92944a4a35 class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 15156 diff changeset	898	].
0d92944a4a35 class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 15156 diff changeset	899	].
14107 bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	900
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	901	(NewSystemBrowser synchronousUpdate == true
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	902	or:[ immediateUpdate value == true ])
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	903	ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	904	self delayedUpdate:something with:aParameter from:changedObject.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	905	^ self.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	906	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	907
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	908	"/ changedObject == selectionHolder ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	909	"/ listValid ifFalse:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	910	"/ self inSlaveMode ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	911	"/ ^ self
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	912	"/ ]
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	913	"/ ]
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	914	"/ ].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	915
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	916	changedObject == inGeneratorHolder ifTrue:[
14853 144e3fcd651e class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14756 diff changeset	917	self setListValid:false.
14883 5801d0b84a04 class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14874 diff changeset	918	"/ if not shown, this will be done when opened.
5801d0b84a04 class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14874 diff changeset	919	"/ if shown, it will be done in delayedUpdate.
5801d0b84a04 class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14874 diff changeset	920	"/ self invalidateList. "/ setListValid:false.
14107 bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	921	].
14866 04818f13ca78 class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14853 diff changeset	922
14870 43f285d96311 class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14866 diff changeset	923	self window isNil ifTrue:[
43f285d96311 class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14866 diff changeset	924	^ self
43f285d96311 class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14866 diff changeset	925	].
14866 04818f13ca78 class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14853 diff changeset	926	self window sensor userEventCount > 100 ifTrue:[
04818f13ca78 class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14853 diff changeset	927	listValid ifTrue:[
04818f13ca78 class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14853 diff changeset	928	"/ enqueue a full update.
04818f13ca78 class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14853 diff changeset	929	self setListValid:false.
04818f13ca78 class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14853 diff changeset	930	self enqueueMessage:#updateList for:self arguments:nil.
04818f13ca78 class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14853 diff changeset	931	].
04818f13ca78 class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14853 diff changeset	932	^ self
04818f13ca78 class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14853 diff changeset	933	].
04818f13ca78 class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14853 diff changeset	934
14107 bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	935	self enqueueDelayedUpdate:something with:aParameter from:changedObject.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	936
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	937	"Created: / 05-02-2000 / 13:42:07 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	938	"Modified: / 13-11-2001 / 11:30:19 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	939	"Modified: / 25-02-2014 / 09:05:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	940	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	941
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	942	updateListInBackground
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	943	self executeInBackground:[self updateList]
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	944	! !
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	945
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	946	!BrowserList methodsFor:'drag & drop'!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	947
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	948	canDrop: aDropContext
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	949	^ self canDropContext: aDropContext
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	950
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	951	"Created: / 03-07-2007 / 15:59:06 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	952	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	953
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	954	doDrop: aDropContext
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	955	^ self doDropContext: aDropContext
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	956
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	957	"Created: / 03-07-2007 / 15:59:33 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	958	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	959
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	960	dropClassFiles:files
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	961	files do:[:fn \|
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	962	(Dialog confirm:(resources string:'FileIn %1 ?' with:fn baseName allBold)) ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	963	environment fileIn:fn logged:true.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	964	]
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	965	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	966
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	967	"Created: / 17-10-2006 / 18:24:36 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	968	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	969
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	970	objectsAreClassFiles:objects
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	971	(objects conform:[:anObject \| anObject isFilename]) ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	972	\|files\|
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	973
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	974	files := objects.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	975	^ files conform:[:aFilename \| aFilename exists
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	976	and:[ aFilename suffix = 'st'
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	977	and:[ aFilename isRegularFile ]]]
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	978	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	979	^ false
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	980
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	981	"Created: / 17-10-2006 / 18:25:40 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	982	! !
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	983
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	984	!BrowserList methodsFor:'generators'!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	985
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	986	inGeneratorHolder
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	987	^ inGeneratorHolder
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	988
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	989	"Created: / 5.2.2000 / 13:42:07 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	990	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	991
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	992	inGeneratorHolder:aConditionBlockHolder
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	993	\|prevHolder\|
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	994
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	995	(prevHolder := inGeneratorHolder) notNil ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	996	inGeneratorHolder removeDependent:self
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	997	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	998	inGeneratorHolder := aConditionBlockHolder.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	999	inGeneratorHolder notNil ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1000	inGeneratorHolder addDependent:self
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1001	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1002	(prevHolder notNil or:[inGeneratorHolder notNil]) ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1003	true "self window shown" ifFalse:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1004	"/ self enqueueDelayedUpdateList - will be done anyway, when shown
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1005	] ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1006	(prevHolder value isNil and:[ inGeneratorHolder value isEmptyOrNil])
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1007	ifFalse:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1008	self update:#value with:nil from:inGeneratorHolder
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1009	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1010	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1011	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1012
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1013	"Modified: / 12-03-2007 / 11:31:23 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1014	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1015
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1016	makeGenerator
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1017	self subclassResponsibility
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1018
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1019	"Created: / 5.2.2000 / 13:42:07 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1020	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1021
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1022	outGeneratorHolder
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1023	outGeneratorHolder isNil ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1024	outGeneratorHolder := ValueHolder new
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1025	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1026	^ outGeneratorHolder
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1027
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1028	"Modified: / 4.2.2000 / 17:17:16 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1029	"Created: / 5.2.2000 / 13:42:07 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1030	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1031
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1032	outGeneratorHolder:aConditionBlockHolder
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1033	outGeneratorHolder := aConditionBlockHolder.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1034
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1035	"Created: / 5.2.2000 / 13:42:08 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1036	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1037
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1038	updateOutputGenerator
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1039	"create a generator which enumerates my elements,
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1040	and place it into the outputGenerator holder"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1041
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1042	self outGeneratorHolder value: self makeGenerator.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1043
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1044	"Modified: / 4.2.2000 / 17:16:34 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1045	"Created: / 5.2.2000 / 13:42:08 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1046	! !
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1047
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1048	!BrowserList methodsFor:'icons'!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1049
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1050	abstractMethodIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1051	"answer an icon to mark abstract methods"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1052
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1053	^ self fetchIcon:#abstractMethod selector:#abstractMethodIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1054	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1055
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1056	breakPointedIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1057	"answer an icon to mark breakPointed methods"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1058	<resource: #obsolete>
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1059
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1060	^ self lineBreakPointedIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1061
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1062	"Modified: / 05-03-2014 / 10:29:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1063	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1064
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1065	canvasIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1066	"answer an icon to mark canvas spec methods"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1067
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1068	^ self fetchIcon:#canvas selector:#canvasIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1069
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1070	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1071
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1072	deprecatedMethodIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1073	^ self fetchIcon:#deprecatedMethodIcon selector:#deprecatedMethodIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1074	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1075
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1076	fetchIcon:name selector:fetchSelector
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1077	"answer an icon to mark methods"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1078
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1079	icons isNil ifTrue:[icons := IdentityDictionary new].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1080
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1081	^ icons at:name ifAbsentPut:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1082	\|icn fh h\|
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1083
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1084	icn := (SystemBrowser perform:fetchSelector) onDevice:device.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1085	h := icn height.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1086	h > (fh := SelectionInListView defaultFont heightOn:device) ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1087	icn := icn magnifiedBy:(fh / h)
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1088	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1089	icn onDevice:device
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1090	]
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1091	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1092
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1093	fileImageIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1094	"answer an icon to mark file-image spec methods"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1095
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1096	^ self fetchIcon:#fileImage selector:#fileImageIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1097	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1098
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1099	fullBreakPointedIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1100	"answer an icon to mark breakPointed methods"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1101
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1102	^ self fetchIcon:#fullBreakPointedIcon selector:#fullBreakPointedIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1103
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1104	"Created: / 05-03-2014 / 10:18:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1105	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1106
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1107	helpIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1108	"answer an icon to mark help spec methods"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1109
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1110	^ self fetchIcon:#help selector:#helpIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1111
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1112	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1113
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1114	hierarchicalListIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1115	"answer an icon to mark hierarchicalList spec methods"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1116
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1117	^ self fetchIcon:#hierarchicalList selector:#hierarchicalListIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1118
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1119	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1120
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1121	ignoredMethodIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1122	"answer an icon to mark ignored methods"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1123
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1124	^ self fetchIcon:#ignoredMethod selector:#ignoredMethodIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1125	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1126
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1127	imageIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1128	"answer an icon to mark image spec methods"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1129
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1130	^ self fetchIcon:#image selector:#imageIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1131	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1132
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1133	instrumentationIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1134	"answer an icon to mark instrumented methods"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1135
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1136	"/ ^ self fetchIcon:#watch selector:#watchIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1137	^ self fetchIcon:#instrumentation selector:#instrumentationIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1138	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1139
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1140	lineBreakPointedIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1141	"answer an icon to mark breakPointed methods"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1142
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1143	^ self fetchIcon:#lineBreakPointedIcon selector:#lineBreakPointedIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1144
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1145	"Created: / 05-03-2014 / 10:18:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1146	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1147
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1148	menuIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1149	"answer an icon to mark menu spec methods"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1150
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1151	^ self fetchIcon:#menu selector:#menuIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1152
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1153	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1154
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1155	methodEmptyInheritedIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1156	^ self fetchIcon:#methodEmptyInherited selector:#methodEmptyInheritedIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1157	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1158
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1159	methodInheritedFromAboveAndRedefinedBelowIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1160	^ self fetchIcon:#methodInheritedFromAboveAndRedefinedBelow selector:#methodInheritedFromAboveAndRedefinedBelowIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1161	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1162
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1163	methodInheritedFromAboveIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1164	^ self fetchIcon:#methodInheritedFromAbove selector:#methodInheritedFromAboveIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1165	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1166
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1167	methodIsSubclassResponsibilityAndRedefinedBelowIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1168	^ self fetchIcon:#methodIsSubclassResponsibilityAndRedefinedBelowIcon selector:#methodIsSubclassResponsibilityAndRedefinedBelowIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1169	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1170
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1171	methodIsSubclassResponsibilityIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1172	^ self fetchIcon:#methodIsSubclassResponsibilityIcon selector:#methodIsSubclassResponsibilityIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1173	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1174
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1175	methodRedefinedBelowIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1176	^ self fetchIcon:#methodRedefinedBelow selector:#methodRedefinedBelowIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1177	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1178
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1179	privateMethodIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1180	"answer an icon to mark private methods"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1181
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1182	^ self fetchIcon:#privateMethod selector:#privateMethodIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1183	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1184
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1185	programImageIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1186	"answer an icon to mark image spec methods"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1187
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1188	^ self fetchIcon:#programImage selector:#programImageIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1189	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1190
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1191	programMenuIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1192	"answer an icon to mark program generated menu methods"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1193
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1194	^ self fetchIcon:#programMenu selector:#programMenuIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1195
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1196	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1197
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1198	protectedMethodIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1199	"answer an icon to mark protected methods"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1200
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1201	^ self fetchIcon:#protectedMethod selector:#protectedMethodIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1202	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1203
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1204	stopIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1205	"answer an icon to mark breakPointed methods"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1206	<resource: #obsolete>
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1207
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1208	^ self fullBreakPointedIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1209
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1210	"Modified: / 05-03-2014 / 10:29:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1211	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1212
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1213	tabListIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1214	"answer an icon to mark tabList spec methods"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1215
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1216	^ self fetchIcon:#tabList selector:#tabListIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1217
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1218	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1219
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1220	tableColumnsIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1221	"answer an icon to mark tableColumns spec methods"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1222
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1223	^ self fetchIcon:#tableColumns selector:#tableColumnsIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1224
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1225	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1226
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1227	timeIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1228	"answer an icon to mark timed methods"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1229
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1230	^ self fetchIcon:#time selector:#timeIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1231
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1232	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1233
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1234	traceIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1235	"answer an icon to mark traced methods"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1236
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1237	"/ ^ self fetchIcon:#watch selector:#watchIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1238	^ self fetchIcon:#trace selector:#traceIcon
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1239	! !
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1240
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1241	!BrowserList methodsFor:'initialize-release'!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1242
14853 144e3fcd651e class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14756 diff changeset	1243	commonPostBuild
144e3fcd651e class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14756 diff changeset	1244	\|list\|
144e3fcd651e class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14756 diff changeset	1245
144e3fcd651e class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14756 diff changeset	1246	self inSlaveMode ifFalse:[
144e3fcd651e class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14756 diff changeset	1247	"//// listValid ifFalse:[self enqueueDelayedUpdateList "updateList"].
144e3fcd651e class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14756 diff changeset	1248	"/ self setListValid:false. -- wrong, iff the view has already created a valid list in its initialize
144e3fcd651e class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14756 diff changeset	1249	] ifTrue:[
144e3fcd651e class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14756 diff changeset	1250	"/ self setListValid:false. -- wrong, iff the view has already created a valid list in its initialize
144e3fcd651e class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14756 diff changeset	1251	"//// self enqueueDelayedUpdateList.
144e3fcd651e class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14756 diff changeset	1252	"//// self invalidateList
144e3fcd651e class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14756 diff changeset	1253	].
144e3fcd651e class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14756 diff changeset	1254
144e3fcd651e class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14756 diff changeset	1255	self makeDependent.
144e3fcd651e class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14756 diff changeset	1256
144e3fcd651e class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14756 diff changeset	1257	list := builder componentAt:#List.
144e3fcd651e class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14756 diff changeset	1258	list notNil ifTrue:[
144e3fcd651e class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14756 diff changeset	1259	list selectConditionBlock:[:item \| self selectionChangeAllowed].
144e3fcd651e class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14756 diff changeset	1260	list ignoreReselect:false.
144e3fcd651e class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14756 diff changeset	1261	].
144e3fcd651e class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14756 diff changeset	1262
144e3fcd651e class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14756 diff changeset	1263	UserPreferences current useInPlaceSearchInBrowserLists ifTrue:[
144e3fcd651e class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14756 diff changeset	1264	self supportsSearch ifTrue:[
144e3fcd651e class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14756 diff changeset	1265	list notNil ifTrue:[
144e3fcd651e class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14756 diff changeset	1266	searchHandler := SearchHandler for: list
144e3fcd651e class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14756 diff changeset	1267	] ifFalse:[
144e3fcd651e class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14756 diff changeset	1268	self breakPoint: #jv info: 'Should support search but list is nil. Wrong spec?'
144e3fcd651e class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14756 diff changeset	1269	].
144e3fcd651e class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14756 diff changeset	1270	]
144e3fcd651e class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14756 diff changeset	1271	]
144e3fcd651e class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14756 diff changeset	1272
144e3fcd651e class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14756 diff changeset	1273	"Modified: / 28-07-2011 / 09:39:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
144e3fcd651e class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14756 diff changeset	1274	!
144e3fcd651e class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14756 diff changeset	1275
144e3fcd651e class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14756 diff changeset	1276	commonPostOpen
144e3fcd651e class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14756 diff changeset	1277	super commonPostOpen.
144e3fcd651e class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14756 diff changeset	1278	listValid ifFalse:[
14870 43f285d96311 class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14866 diff changeset	1279	self breakPoint:#cg.
43f285d96311 class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14866 diff changeset	1280	self enqueueDelayedUpdateList.
14853 144e3fcd651e class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14756 diff changeset	1281	].
144e3fcd651e class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14756 diff changeset	1282	!
144e3fcd651e class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14756 diff changeset	1283
14107 bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1284	initialize
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1285	listValid := false.
15153 40ad54a567ac class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 15131 diff changeset	1286	loadInProgress := false.
14107 bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1287	super initialize.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1288	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1289
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1290	release
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1291	self makeIndependent.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1292	super release.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1293
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1294	filter removeDependent:self.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1295	forceGeneratorTrigger removeDependent:self.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1296	hideUnloadedClasses removeDependent:self.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1297	inGeneratorHolder removeDependent:self.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1298	nameSpaceFilter removeDependent:self.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1299	organizerMode removeDependent:self.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1300	packageFilter removeDependent:self.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1301	selectionHolder removeDependent:self.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1302	showClassPackages removeDependent:self.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1303	slaveMode removeDependent:self.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1304	sortBy removeDependent:self.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1305	updateTrigger removeDependent:self.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1306
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1307	"Created: / 5.2.2000 / 13:42:09 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1308	"Modified: / 13.2.2000 / 23:32:23 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1309	! !
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1310
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1311	!BrowserList methodsFor:'misc'!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1312
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1313	invalidateList
14853 144e3fcd651e class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14756 diff changeset	1314	self setListValid:false.
14107 bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1315	slaveMode value ~~ true ifTrue:[
14853 144e3fcd651e class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14756 diff changeset	1316	self enqueueDelayedUpdateList.
14107 bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1317	]
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1318	! !
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1319
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1320	!BrowserList methodsFor:'private'!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1321
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1322	browserNameList
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1323	self subclassResponsibility
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1324	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1325
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1326	classesToProcessForClasses:classes withVisibility:visibility
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1327	"for methodCategory and methodList, depending on the setting
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1328	of visibility (allButObject, includeAllSupers or class only),
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1329	return a combined hull set of classes for a given set."
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1330
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1331	\|classesToProcess classesToProcessInOrder\|
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1332
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1333	visibility isNil ifTrue:[^classes].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1334	visibility == #class ifTrue:[^classes].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1335
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1336	classesToProcess := IdentitySet new.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1337	classesToProcessInOrder := OrderedCollection new.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1338	classes notNil ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1339	classes do:[:eachClass \|
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1340	\|withAllSupers\|
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1341
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1342	withAllSupers := eachClass withAllSuperclasses.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1343	visibility == #allButObject ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1344	eachClass isMeta ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1345	withAllSupers removeAllFoundIn:(Object class withAllSuperclasses)
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1346	] ifFalse:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1347	withAllSupers remove:Object ifAbsent:nil
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1348	]
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1349	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1350	withAllSupers do:[:each \|
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1351	(classesToProcess includes:each) ifFalse:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1352	classesToProcess add:each.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1353	classesToProcessInOrder add:each.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1354	]
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1355	]
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1356	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1357	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1358	^ classesToProcessInOrder
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1359
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1360	"Modified (comment): / 06-07-2011 / 11:21:16 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1361	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1362
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1363	colorize:aString with:emphasis
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1364	^ aString asText emphasisAllAdd:emphasis
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1365
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1366	"Created: / 27-04-2010 / 15:36:34 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1367	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1368
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1369	colorizeForChangedCode:someString
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1370	^ someString asText emphasisAllAdd:(UserPreferences current emphasisForChangedCode)
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1371
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1372	"Created: / 31.10.2001 / 10:17:56 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1373	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1374
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1375	colorizeForChangedCodeInSmallTeam:someString
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1376	^ someString asText emphasisAllAdd:(UserPreferences current emphasisForChangedCodeInSmallTeam)
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1377
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1378	"Created: / 10-11-2006 / 16:53:53 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1379	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1380
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1381	colorizeForDifferentPackage:someString
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1382	^ someString asText emphasisAllAdd:(UserPreferences current emphasisForDifferentPackage)
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1383	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1384
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1385	colorizeForInstrumentedFullyCoveredCode:someString
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1386	^ self colorize:someString with:(UserPreferences current emphasisForInstrumentedFullyCoveredCode)
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1387
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1388	"Created: / 27-04-2010 / 13:01:24 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1389	"Modified: / 27-04-2010 / 15:36:49 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1390	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1391
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1392	colorizeForInstrumentedNeverCalledCode:someString
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1393	^ self colorize:someString with:(UserPreferences current emphasisForInstrumentedNeverCalledCode)
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1394
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1395	"Created: / 27-04-2010 / 12:59:56 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1396	"Modified: / 27-04-2010 / 15:37:02 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1397	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1398
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1399	colorizeForInstrumentedPartiallyCoveredCode:someString
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1400	^ self colorize:someString with:(UserPreferences current emphasisForInstrumentedPartiallyCoveredCode)
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1401
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1402	"Created: / 27-04-2010 / 13:01:31 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1403	"Modified: / 27-04-2010 / 15:37:06 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1404	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1405
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1406	colorizeGrey:someString
14611 83ca36ad464e class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14464 diff changeset	1407	^ someString asText emphasisAllAdd:(#color->Color darkGray)
14107 bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1408	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1409
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1410	emphasizeForChangedCode:someString
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1411	^ self colorizeForChangedCode:someString
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1412
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1413	"Modified: / 31.10.2001 / 10:18:57 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1414	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1415
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1416	emphasizeForDifferentPackage:someString
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1417	^ self colorizeForDifferentPackage:(' [' , (' ' , someString , ' ') "allItalic" , ']')
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1418
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1419	"Modified: / 31.10.2001 / 10:13:35 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1420	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1421
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1422	executeInBackground:aBlock
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1423	"used to update when I do not have the focus (i.e. being iconified or non-active).
14874 c37b8057253c class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14870 diff changeset	1424	Run aBlock at userBackgroundPrio, but go back to normal prio, if I get the focus"
14107 bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1425
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1426	\|activeProcess watcher done\|
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1427
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1428	activeProcess := Processor activeProcess.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1429
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1430	done := false.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1431
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1432	watcher :=
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1433	[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1434	\|wg\|
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1435
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1436	[done] whileFalse:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1437	Delay waitForSeconds:0.2.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1438	self applicationIsActive ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1439	activeProcess priority:(Processor userSchedulingPriority).
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1440	done := true.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1441	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1442	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1443	] fork.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1444
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1445	[
14378 f72e7478174e class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14196 diff changeset	1446	activeProcess withPriority:(Processor userBackgroundPriority) to:(Processor activePriority) do:aBlock
14107 bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1447	] ensure:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1448	done := true.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1449	watcher terminate
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1450	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1451	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1452
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1453	inSlaveMode
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1454	^ (self slaveMode value == true)
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1455	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1456
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1457	inSlaveModeOrInvisible
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1458	(self slaveMode value == true) ifTrue:[^ true].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1459	"/ self slaveMode value isNil ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1460	"/ self window shown ifFalse:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1461	"/ ^ true
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1462	"/ ].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1463	"/ ].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1464	^ false
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1465	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1466
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1467	isClass:aClass shownWithNameSpaceFilter:nameSpaceFilter
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1468	\|nsName\|
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1469
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1470	nameSpaceFilter isNil ifTrue:[^ true].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1471	nsName := aClass topNameSpace name.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1472
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1473	(nameSpaceFilter includes:nsName) ifTrue:[^ true].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1474	(nameSpaceFilter contains:[:ns \| nsName startsWith:(ns , '::')]) ifTrue:[^ true].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1475	^ false
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1476	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1477
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1478	isClass:aClass shownWithPackageFilter:packageFilter
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1479	\|classPackage\|
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1480
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1481	packageFilter isNil ifTrue:[^ true].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1482	classPackage := aClass package.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1483	(packageFilter includes:classPackage) ifTrue:[^ true].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1484	(packageFilter includes:self class nameListEntryForChanged) ifTrue:[^ true].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1485
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1486	aClass instAndClassSelectorsAndMethodsDo:[:sel :mthd \|
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1487	\|mthdPackage\|
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1488
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1489	mthdPackage := mthd package.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1490	mthdPackage ~~ classPackage ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1491	(packageFilter includes:mthdPackage) ifTrue:[^ true].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1492	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1493	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1494	^ false
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1495
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1496	"Modified: / 11-08-2006 / 15:15:28 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1497	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1498
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1499	makeDependent
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1500	self subclassResponsibility
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1501
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1502	"Created: / 5.2.2000 / 13:42:08 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1503	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1504
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1505	makeIndependent
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1506	self subclassResponsibility
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1507
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1508	"Created: / 5.2.2000 / 13:42:08 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1509	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1510
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1511	releaseAsSubCanvas
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1512	self makeIndependent.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1513	super releaseAsSubCanvas.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1514
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1515	"Created: / 13.2.2000 / 23:11:29 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1516	"Modified: / 13.2.2000 / 23:32:29 / cg"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1517	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1518
14853 144e3fcd651e class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14756 diff changeset	1519	setListValid:aBoolean
144e3fcd651e class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14756 diff changeset	1520	listValid := aBoolean
144e3fcd651e class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14756 diff changeset	1521	!
144e3fcd651e class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 14756 diff changeset	1522
14107 bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1523	updateList
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1524	self subclassResponsibility.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1525	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1526
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1527	updateListFor:newList
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1528	"update the browsers list in a way which avoids scrolls
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1529	and flicker; returns true, if the newList is the same."
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1530
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1531	\|"oldListSize newListSize" sameContents sameStrings oldEntry browserNameList
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1532	"firstDifferentFromBeginning firstDifferentFromEnd" listView prevMode sav\|
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1533
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1534	browserNameList := self browserNameList value.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1535	sameContents := sameStrings := (newList size == browserNameList size).
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1536
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1537	sameContents ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1538	newList with:browserNameList do:[:newLine :oldLine \|
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1539	sameStrings ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1540	sameStrings := ((newLine ? '') = (oldLine ? '')).
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1541	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1542	sameContents ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1543	((newLine ? '') sameStringAndEmphasisAs:(oldLine ? '')) ifFalse:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1544	sameContents := false
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1545	]
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1546	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1547	]
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1548	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1549
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1550	listView := builder componentAt:#List.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1551	listView isNil ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1552	"/ called early during setup ...
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1553	browserNameList contents:newList.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1554	^ sameContents.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1555	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1556
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1557	sameContents ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1558	^ sameContents
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1559	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1560	sameStrings ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1561	newList keysAndValuesDo:[:lineNr :line \|
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1562	oldEntry := browserNameList at:lineNr.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1563	(oldEntry sameStringAndEmphasisAs:line) ifFalse:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1564	browserNameList at:lineNr put:line.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1565	]
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1566	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1567	^ sameContents
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1568	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1569
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1570	listView := listView scrolledView.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1571	listView isNil ifTrue:[^ false].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1572	prevMode := listView scrollWhenUpdating.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1573	listView scrollWhenUpdating:nil.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1574
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1575	[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1576	"/ dont want to be called if selection is changed by selListView
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1577	sav := listView action.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1578	listView action:nil.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1579	browserNameList contents:newList.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1580	] ensure:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1581	listView action:sav.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1582	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1583
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1584	listView scrollWhenUpdating:prevMode.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1585	^ sameContents.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1586
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1587	"/ oldListSize := browserNameList size.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1588	"/ newListSize := newList size.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1589	"/ newListSize == 0 ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1590	"/ oldListSize == 0 ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1591	"/ ^ true "/ same
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1592	"/ ].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1593	"/ browserNameList removeAll.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1594	"/ ^ false "/ not same
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1595	"/ ].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1596	"/
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1597	"/ oldListSize == 0 ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1598	"/ browserNameList contents:newList.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1599	"/ ^ false. "/ not same
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1600	"/ ].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1601	"/
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1602	"/ (newListSize between:(oldListSize-1) and:(oldListSize+1)) ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1603	"/ "/ individually exchange changed lines, to avoid flicker.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1604	"/ "/ the old code was: self browserNameList value:newList
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1605	"/ "/ but if only a single method is changed (or an instrumentation icon changes),
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1606	"/ "/ this results in avoidable flicker.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1607	"/
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1608	"/ newListSize > oldListSize ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1609	"/ "/ an entry seems to be added
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1610	"/ "/ try to find it.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1611	"/ firstDifferentFromBeginning := 1.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1612	"/
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1613	"/ [firstDifferentFromBeginning <= oldListSize
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1614	"/ and:[(newList at:firstDifferentFromBeginning) sameStringAndEmphasisAs: (browserNameList at:firstDifferentFromBeginning)]]
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1615	"/ whileTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1616	"/ firstDifferentFromBeginning := firstDifferentFromBeginning + 1.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1617	"/ ].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1618	"/ firstDifferentFromEnd := newListSize.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1619	"/ [firstDifferentFromEnd >= 1
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1620	"/ and:[(newList at:firstDifferentFromEnd) sameStringAndEmphasisAs: (browserNameList at:firstDifferentFromEnd-1)]]
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1621	"/ whileTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1622	"/ firstDifferentFromEnd := firstDifferentFromEnd - 1.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1623	"/ ].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1624	"/ (firstDifferentFromEnd - firstDifferentFromBeginning) > (newList size // 10) ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1625	"/ "/ too many differences - exchange the list en-bloque
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1626	"/ browserNameList contents:newList.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1627	"/ ^ false. "/ not same
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1628	"/ ].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1629	"/ "/ entries from firstDifferentFromBeginning to firstDifferentFromEnd in newList are different
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1630	"/
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1631	"/ (firstDifferentFromEnd - firstDifferentFromBeginning + 1 "number of different items") == (newListSize - oldListSize) ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1632	"/ "/ for now, only handle single-added-item case
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1633	"/ firstDifferentFromEnd ~~ firstDifferentFromBeginning ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1634	"/ self halt
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1635	"/ ].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1636	"/
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1637	"/ "/ item at firstDifferentFromBeginning has been inserted.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1638	"/ browserNameList add:(newList at:firstDifferentFromBeginning) beforeIndex:firstDifferentFromEnd.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1639	"/ ^ false "/ not the same
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1640	"/ ].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1641	"/ ] ifFalse:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1642	"/ newListSize < oldListSize ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1643	"/ "/ an entry seems to be removed
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1644	"/ "/ try to find it.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1645	"/ firstDifferentFromBeginning := 1.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1646	"/
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1647	"/ [firstDifferentFromBeginning <= newListSize
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1648	"/ and:[(newList at:firstDifferentFromBeginning) sameStringAndEmphasisAs: (browserNameList at:firstDifferentFromBeginning)]]
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1649	"/ whileTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1650	"/ firstDifferentFromBeginning := firstDifferentFromBeginning + 1.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1651	"/ ].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1652	"/ firstDifferentFromEnd := newListSize.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1653	"/ [firstDifferentFromEnd >= 1
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1654	"/ and:[(newList at:firstDifferentFromEnd) sameStringAndEmphasisAs: (browserNameList at:firstDifferentFromEnd+1)]]
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1655	"/ whileTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1656	"/ firstDifferentFromEnd := firstDifferentFromEnd - 1.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1657	"/ ].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1658	"/ (firstDifferentFromEnd - firstDifferentFromBeginning) > (newList size // 10) ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1659	"/ "/ too many differences - exchange the list en-bloque
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1660	"/ browserNameList contents:newList.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1661	"/ ^ false. "/ not same
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1662	"/ ].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1663	"/ "/ entries from firstDifferentFromBeginning to firstDifferentFromEnd in newList are different
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1664	"/
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1665	"/ (firstDifferentFromBeginning - firstDifferentFromEnd) == (oldListSize - newListSize) ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1666	"/ "/ for now, only handle single-removed-item case
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1667	"/ firstDifferentFromEnd ~~ (firstDifferentFromBeginning-1) ifTrue:[self halt].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1668	"/
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1669	"/ "/ item at firstDifferentFromBeginning has been removed.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1670	"/ browserNameList removeFromIndex:firstDifferentFromBeginning toIndex:firstDifferentFromBeginning.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1671	"/ ^ false "/ not the same
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1672	"/ ].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1673	"/ ]
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1674	"/ ].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1675	"/
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1676	"/ sameContents := true.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1677	"/ newList keysAndValuesDo:[:lineNr :line \|
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1678	"/ lineNr > browserNameList size ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1679	"/ browserNameList add:line.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1680	"/ sameContents := false.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1681	"/ ] ifFalse:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1682	"/ oldEntry := browserNameList at:lineNr.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1683	"/ (oldEntry ~= line
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1684	"/ or:[(oldEntry sameStringAndEmphasisAs:line) not]) ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1685	"/ browserNameList at:lineNr put:line.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1686	"/ sameContents := false.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1687	"/ ]
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1688	"/ ]
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1689	"/ ].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1690	"/ newList size < browserNameList size ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1691	"/ browserNameList removeFromIndex:(newList size + 1) toIndex:(browserNameList size).
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1692	"/ sameContents := false.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1693	"/ ].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1694	"/ ^ sameContents
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1695	"/ ].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1696	"/
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1697	"/ browserNameList contents:newList.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1698	"/ ^ false "/ not the same
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1699	! !
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1700
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1701	!BrowserList methodsFor:'queries'!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1702
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1703	supportsSearch
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1704
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1705	^true
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1706
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1707	"Created: / 27-07-2011 / 20:31:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1708	! !
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1709
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1710	!BrowserList methodsFor:'setup'!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1711
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1712	autoSelect:aBoolean
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1713	autoSelect := aBoolean.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1714	! !
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1715
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1716	!BrowserList::SearchHandler class methodsFor:'instance creation'!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1717
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1718	for: aView
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1719
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1720	^self new initializeFor: aView.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1721
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1722	"Created: / 27-07-2011 / 20:30:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1723	! !
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1724
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1725	!BrowserList::SearchHandler methodsFor:'event handling'!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1726
14196 88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1727	buttonMotion:button x:x y:y view:aView
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1728	nextDelegate notNil ifTrue:[
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1729	^ (nextDelegate respondsTo: #buttonMotion:x:y:view:)
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1730	and:[nextDelegate buttonMotion:button x:x y:y view:aView]
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1731	].
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1732	^false
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1733
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1734	"Created: / 10-04-2014 / 11:43:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1735	!
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1736
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1737	buttonPress:button x:x y:y view:aView
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1738	nextDelegate notNil ifTrue:[
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1739	^ (nextDelegate respondsTo: #buttonPress:x:y:view:)
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1740	and:[nextDelegate buttonPress:button x:x y:y view:aView]
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1741	].
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1742	^false
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1743
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1744	"Created: / 10-04-2014 / 11:43:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1745	!
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1746
14107 bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1747	keyPress:key x:x y:y view:aView
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1748	<resource: #keyboard (#Escape #Accept #Return #CursorUp #CursorDown)>
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1749
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1750	\| v \|
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1751
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1752	aView == listView ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1753
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1754	"Forward the event to the view under pointer.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1755	Therefore, the seach is started only iff the
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1756	pointer points to the list. Based on experience,
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1757	this improves usability because: does not require
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1758	to click in the list to focus it (which may change
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1759	the selection)"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1760	(v := aView windowGroup pointerView) ~~ aView ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1761	v notNil ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1762	aView windowGroup focusView: v.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1763	v sensor keyPress:key x:x y:y view:v.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1764	^self.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1765	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1766	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1767
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1768	searchWindow isNil ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1769	key isCharacter ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1770	searchHolder setValue: key asString.
14196 88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1771	self startSearch.
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1772	^ self
14107 bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1773	]
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1774	] ifFalse:[
14196 88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1775	key == #Escape ifTrue:[self stopSearch. ^ self].
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1776	key == #Accept ifTrue:[self stopSearch. ^ self].
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1777	key == #Return ifTrue:[self stopSearch. ^ self].
14107 bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1778	]
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1779	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1780
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1781	aView == searchField ifTrue:[
14196 88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1782	key == #Escape ifTrue:[self stopSearch. ^ self].
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1783	key == #Accept ifTrue:[self stopSearch. ^ self].
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1784	key == #Return ifTrue:[self stopSearch. ^ self].
14107 bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1785	(key == #CursorUp or:[key == #CursorDown]) ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1786	listView sensor setCtrlDown: false.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1787	listView sensor setShiftDown: false.
14196 88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1788	listView keyPress:key x:x y:y.
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1789	^ self
14107 bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1790	].
14196 88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1791	].
14107 bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1792
14196 88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1793	nextDelegate notNil ifTrue:[
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1794	^ (nextDelegate respondsTo: #keyPress:x:y:view:)
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1795	and:[nextDelegate keyPress:key x:x y:y view:aView]
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1796	].
14107 bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1797
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1798	"Created: / 27-07-2011 / 20:39:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
14196 88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1799	"Modified: / 10-04-2014 / 11:44:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1800	!
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1801
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1802	keyRelease:key x:x y:y view:aView
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1803	nextDelegate notNil ifTrue:[
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1804	^ (nextDelegate respondsTo: #keyRelease:x:y:view:)
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1805	and:[nextDelegate keyRelease:key x:x y:y view:aView]
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1806	].
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1807	^false
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1808
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1809	"Created: / 10-04-2014 / 11:41:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
14107 bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1810	! !
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1811
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1812	!BrowserList::SearchHandler methodsFor:'event handling-queries'!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1813
14196 88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1814	handlesButtonMotion:something inView:aView
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1815	"I am not interested in button events"
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1816
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1817	nextDelegate notNil ifTrue:[
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1818	^ (nextDelegate respondsTo: #handlesButtonMotion:inView:)
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1819	and:[nextDelegate handlesButtonMotion:something inView:aView]
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1820	].
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1821	^false
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1822
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1823	"Modified: / 10-04-2014 / 11:40:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1824	!
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1825
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1826	handlesButtonPress:something inView:aView
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1827	"I am not interested in button events"
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1828
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1829	nextDelegate notNil ifTrue:[
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1830	^ (nextDelegate respondsTo: #handlesButtonPress:inView:)
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1831	and:[nextDelegate handlesButtonPress:something inView:aView]
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1832	].
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1833	^false
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1834
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1835	"Modified: / 10-04-2014 / 11:40:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1836	!
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1837
14107 bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1838	handlesKeyPress:key inView:aView
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1839	<resource: #keyboard (#Escape #Accept #Return #CursorUp #CursorDown)>
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1840
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1841	aView == listView ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1842	key isCharacter ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1843	^true
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1844	]
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1845	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1846	aView == searchField ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1847	(#(#Escape #Accept #Return #CursorUp #CursorDown) includes: key) ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1848	^true
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1849	]
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1850	].
14196 88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1851
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1852	nextDelegate notNil ifTrue:[
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1853	^ (nextDelegate respondsTo: #handlesKeyPress:inView:)
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1854	and:[nextDelegate handlesKeyPress:key inView:aView]
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1855	].
14107 bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1856	^false
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1857
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1858	"Created: / 27-07-2011 / 20:39:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
14196 88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1859	"Modified: / 10-04-2014 / 11:39:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1860	!
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1861
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1862	handlesKeyRelease:key inView:aView
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1863	"this is the query from the sensor to ask me if I would like to
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1864	get a keyRelease event for key from aView. Return true, if I want so,
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1865	false otherwise."
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1866
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1867	nextDelegate notNil ifTrue:[
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1868	^ (nextDelegate respondsTo: #handlesKeyRelease:inView:)
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1869	and:[nextDelegate handlesKeyRelease:key inView:aView]
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1870	].
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1871	^false
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1872
88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1873	"Modified: / 10-04-2014 / 11:40:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
14107 bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1874	! !
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1875
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1876	!BrowserList::SearchHandler methodsFor:'initialization'!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1877
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1878	initializeFor: aView
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1879
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1880	aView isScrollWrapper ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1881	listView := aView scrolledView
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1882	] ifFalse:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1883	listView := aView.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1884	].
14196 88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1885	nextDelegate := listView delegate.
14107 bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1886	listView delegate: self.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1887	searchHolder := ValueHolder with: nil.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1888	searchHolder onChangeSend: #updateList to: self.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1889
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1890	"Created: / 27-07-2011 / 20:32:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
14196 88445b43e752 Fixed SearchHandler to delegate to next event handler (delegate) if any. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14164 diff changeset	1891	"Modified: / 10-04-2014 / 11:36:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
14107 bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1892	! !
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1893
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1894	!BrowserList::SearchHandler methodsFor:'private'!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1895
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1896	absoluteLeftOfListView
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1897
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1898	\| absoluteLeft view \|
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1899	absoluteLeft := 1.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1900	view := listView.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1901	[ view notNil ] whileTrue:
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1902	[absoluteLeft := absoluteLeft + view left - 2.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1903	view := view superView].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1904	^absoluteLeft
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1905
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1906	"Created: / 08-08-2009 / 22:30:07 / Jan Vrany <vranyj1@fel.cvut.cz>"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1907	"Created: / 27-07-2011 / 21:54:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1908	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1909
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1910	absoluteTopOfListView
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1911
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1912	\| absoluteTop view \|
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1913	absoluteTop := 1.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1914	view := listView.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1915	[ view notNil ] whileTrue:
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1916	[absoluteTop := absoluteTop + view top - 1.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1917	view := view superView].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1918	^absoluteTop
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1919
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1920	"Created: / 08-08-2009 / 22:30:16 / Jan Vrany <vranyj1@fel.cvut.cz>"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1921	"Created: / 27-07-2011 / 21:54:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1922	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1923
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1924	filter
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1925
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1926	\| pattern \|
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1927	pattern := StringPattern fromString: searchHolder value.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1928
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1929	^[:entry :relax\|
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1930	pattern match: entry asString trimSeparators relax: relax
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1931	]
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1932
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1933	"Created: / 27-07-2011 / 22:18:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1934	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1935
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1936	hideSearchWindow
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1937
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1938	searchWindow
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1939	ifNotNil:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1940	searchWindow destroy.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1941	searchWindow := nil.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1942	searchField := nil.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1943	]
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1944
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1945	"Created: / 27-07-2011 / 21:38:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1946	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1947
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1948	restoreList
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1949
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1950	self updateSelection.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1951	listView listHolder: listHolder.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1952	listSelectionHolder notNil ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1953	listView model: listSelectionHolder.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1954	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1955	listSelectionHolder changed: #value
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1956
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1957	"Created: / 27-07-2011 / 22:14:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1958	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1959
14164 e638a1c10eef Fix for bug #12: In-place search in class category list is broken Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14107 diff changeset	1960	restoreListViewProperties
e638a1c10eef Fix for bug #12: In-place search in class category list is broken Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14107 diff changeset	1961
e638a1c10eef Fix for bug #12: In-place search in class category list is broken Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14107 diff changeset	1962	listView visualBlock: listViewVisualBlock.
e638a1c10eef Fix for bug #12: In-place search in class category list is broken Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14107 diff changeset	1963	listView selectedVisualBlock: listViewSelectedVisualBlock.
e638a1c10eef Fix for bug #12: In-place search in class category list is broken Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14107 diff changeset	1964
e638a1c10eef Fix for bug #12: In-place search in class category list is broken Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14107 diff changeset	1965	"Created: / 26-03-2014 / 09:50:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e638a1c10eef Fix for bug #12: In-place search in class category list is broken Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14107 diff changeset	1966	!
e638a1c10eef Fix for bug #12: In-place search in class category list is broken Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14107 diff changeset	1967
14107 bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1968	saveList
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1969
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1970	listHolder := listView listHolder.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1971	listSelectionHolder := listView model.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1972
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1973	"Created: / 27-07-2011 / 22:14:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1974	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1975
14164 e638a1c10eef Fix for bug #12: In-place search in class category list is broken Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14107 diff changeset	1976	saveListViewProperties
e638a1c10eef Fix for bug #12: In-place search in class category list is broken Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14107 diff changeset	1977
e638a1c10eef Fix for bug #12: In-place search in class category list is broken Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14107 diff changeset	1978	listViewVisualBlock := listView visualBlock.
e638a1c10eef Fix for bug #12: In-place search in class category list is broken Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14107 diff changeset	1979	listViewSelectedVisualBlock := listView selectedVisualBlock.
e638a1c10eef Fix for bug #12: In-place search in class category list is broken Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14107 diff changeset	1980
e638a1c10eef Fix for bug #12: In-place search in class category list is broken Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14107 diff changeset	1981	listView visualBlock: nil.
e638a1c10eef Fix for bug #12: In-place search in class category list is broken Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14107 diff changeset	1982	listView selectedVisualBlock: nil.
e638a1c10eef Fix for bug #12: In-place search in class category list is broken Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14107 diff changeset	1983
e638a1c10eef Fix for bug #12: In-place search in class category list is broken Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14107 diff changeset	1984	"Created: / 26-03-2014 / 09:50:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e638a1c10eef Fix for bug #12: In-place search in class category list is broken Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14107 diff changeset	1985	!
e638a1c10eef Fix for bug #12: In-place search in class category list is broken Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14107 diff changeset	1986
14107 bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1987	showSearchWindow
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1988
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1989	searchWindow := StandardSystemView new
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1990	bePopUpView;
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1991	beSlave;
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1992	origin:(self absoluteLeftOfListView + 5" - optionsView textStartLeft")
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1993	@ (self absoluteTopOfListView + listView height + 1 + 5)
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1994	extent:(listView width + 0"((optionsView textStartLeft) * 2)") @ (listView font height * 1.5) ceiling.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1995
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1996	searchField := (EditField
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1997	origin: 0.0@0.0
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1998	corner: 1.0@1.0
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1999	in: searchWindow)
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2000	model: searchHolder;
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2001	immediateAccept: true;
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2002	delegate: self;
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2003	yourself.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2004
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2005	searchWindow openModal.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2006
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2007	"Created: / 27-07-2011 / 21:37:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2008	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2009
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2010	startSearch
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2011
14164 e638a1c10eef Fix for bug #12: In-place search in class category list is broken Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14107 diff changeset	2012	self saveListViewProperties.
14107 bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2013	self saveList.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2014	self updateList.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2015	self showSearchWindow.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2016
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2017	"Created: / 27-07-2011 / 21:37:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
14164 e638a1c10eef Fix for bug #12: In-place search in class category list is broken Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14107 diff changeset	2018	"Modified: / 26-03-2014 / 09:50:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
14107 bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2019	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2020
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2021	stopSearch
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2022
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2023	self hideSearchWindow.
14164 e638a1c10eef Fix for bug #12: In-place search in class category list is broken Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14107 diff changeset	2024	self restoreListViewProperties.
14107 bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2025	self restoreList.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2026
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2027	"Created: / 27-07-2011 / 21:37:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
14164 e638a1c10eef Fix for bug #12: In-place search in class category list is broken Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14107 diff changeset	2028	"Modified: / 26-03-2014 / 09:50:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
14107 bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2029	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2030
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2031	updateList
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2032
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2033	\| filter filteredList \|
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2034	filter := self filter.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2035
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2036	filteredList := listHolder value select:[:each\|filter value: each value: 1].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2037	filteredList isEmpty ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2038	filteredList := listHolder value select:[:each\|filter value: each value: 2].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2039	filteredList isEmpty ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2040	filteredList := listHolder value select:[:each\|filter value: each value: 3].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2041	]].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2042
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2043
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2044	listView listHolder == listHolder ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2045	listView listHolder: (ValueHolder with: filteredList)
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2046	] ifFalse:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2047	listView listHolder value: filteredList.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2048	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2049	listView model == listSelectionHolder ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2050	listView model: ValueHolder new.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2051	listView model onChangeSend: #updateSelection to: self.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2052	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2053	filteredList size == 1 ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2054	listView selection: 1
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2055	]
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2056
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2057	"Created: / 27-07-2011 / 22:18:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2058	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2059
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2060	updateSelection
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2061
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2062	\| sel \|
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2063
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2064	listSelectionHolder isNil ifTrue:[^self].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2065
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2066	sel := listView selection.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2067	sel notNil ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2068	sel isInteger ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2069	sel := listHolder identityIndexOf: (listView list at: sel)
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2070	] ifFalse:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2071	sel := sel collect:[:each\|listHolder value identityIndexOf: (listView list at: each)]
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2072	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2073	] ifFalse:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2074	listView multipleSelectOk ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2075	sel := #()
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2076	]
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2077	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2078	listView useIndex ifFalse:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2079	sel isInteger ifTrue:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2080	sel := listHolder value at: sel
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2081	] ifFalse:[
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2082	sel := sel collect:[:each\|listHolder value at: each].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2083	]
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2084	].
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2085
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2086
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2087	listSelectionHolder value: sel.
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2088
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2089	"Created: / 02-08-2011 / 09:08:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2090	! !
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2091
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2092	!BrowserList class methodsFor:'documentation'!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2093
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2094	version
15306 2547928ef35d class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 15265 diff changeset	2095	^ '$Header: /cvs/stx/stx/libtool/Tools__BrowserList.st,v 1.82 2015-02-16 14:45:14 cg Exp $'
14107 bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2096	!
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2097
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2098	version_CVS
15306 2547928ef35d class: Tools::BrowserList Claus Gittinger <cg@exept.de> parents: 15265 diff changeset	2099	^ '$Header: /cvs/stx/stx/libtool/Tools__BrowserList.st,v 1.82 2015-02-16 14:45:14 cg Exp $'
14107 bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2100	! !
bc79299d3e73 Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2101

author	Claus Gittinger <cg@exept.de>
	Mon, 16 Feb 2015 15:45:14 +0100
changeset 15306	2547928ef35d
parent 15265	5758c44359cd
child 15307	7b3a2007c009
permissions	-rw-r--r--