hg/stx-libtool2: Tools__ObjectModuleInformation.st@ceb6bb9078db (annotated)

2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1	"{ Package: 'stx:libtool2' }"
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3	"{ NameSpace: Tools }"
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	4
2184 1ffb97ee0a55 * empty log message * Claus Gittinger <cg@exept.de> parents: 2183 diff changeset	5	ToolApplicationModel subclass:#ObjectModuleInformation
1ffb97ee0a55 * empty log message * Claus Gittinger <cg@exept.de> parents: 2183 diff changeset	6	instanceVariableNames:'readOnly listOfModuleNames selectedModuleIndexHolder allModules
2183 517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	7	objectHandles showOthers showCObjects showBuiltIn showMethods
2253 a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	8	showClassLibs table1VisibleHolder table2VisibleHolder
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	9	selectedInfoIndexHolder canBrowseSelectedModule
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	10	canUnloadSelectedModule classNamesShown classInfoShown
2618 441ede629ea8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	11	vmInfoShown canUnloadSelectedModulesPackage
2619 09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	12	canBrowseSelectedModulesExtensions canUnloadSelectedDLL'
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	13	classVariableNames:''
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	14	poolDictionaries:''
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	15	category:'Monitors-ST/X'
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	16	!
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	17
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	18	Object subclass:#InfoRow
2183 517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	19	instanceVariableNames:'name version date value'
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	20	classVariableNames:''
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	21	poolDictionaries:''
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	22	privateIn:ObjectModuleInformation
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	23	!
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	24
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	25	!ObjectModuleInformation class methodsFor:'documentation'!
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	26
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	27	documentation
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	28	"
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	29	Shows the modules (dll's) of ST/X.
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	30	Both builtIn modules, and dynamically loaded modules are listed.
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	31
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	32	[author:]
2253 a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	33	Claus Gittinger
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	34	"
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	35	!
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	36
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	37	examples
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	38	"
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	39	Starting the application:
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	40	[exBegin]
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	41	ObjectModuleInformation open
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	42
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	43	[exEnd]
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	44	"
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	45	! !
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	46
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	47	!ObjectModuleInformation class methodsFor:'info'!
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	48
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	49	defaultLabel
2183 517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	50	^ 'Object Module Info'
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	51
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	52	"Created: / 05-10-2007 / 11:56:59 / cg"
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	53	! !
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	54
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	55	!ObjectModuleInformation class methodsFor:'interface specs'!
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	56
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	57	windowSpec
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	58	"This resource specification was automatically generated
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	59	by the UIPainter of ST/X."
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	60
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	61	"Do not manually edit this!! If it is corrupted,
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	62	the UIPainter may not be able to read the specification."
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	63
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	64	"
2183 517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	65	UIPainter new openOnClass:Tools::ObjectModuleInformation andSelector:#windowSpec
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	66	Tools::ObjectModuleInformation new openInterface:#windowSpec
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	67	Tools::ObjectModuleInformation open
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	68	"
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	69
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	70	<resource: #canvas>
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	71
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	72	^
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	73	#(FullSpec
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	74	name: windowSpec
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	75	window:
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	76	(WindowSpec
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	77	label: 'ST/X Module & Version Information'
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	78	name: 'ST/X Module & Version Information'
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	79	min: (Point 0 0)
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	80	bounds: (Rectangle 0 0 505 567)
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	81	menu: mainMenu
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	82	)
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	83	component:
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	84	(SpecCollection
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	85	collection: (
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	86	(MenuPanelSpec
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	87	name: 'ToolBar1'
2616 01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	88	layout: (LayoutFrame 0 0 0 0 0 1 40 0)
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	89	menu: toolbarMenu
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	90	textDefault: true
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	91	)
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	92	(VariableVerticalPanelSpec
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	93	name: 'VariableVerticalPanel1'
2616 01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	94	layout: (LayoutFrame 0 0 40 0 0 1 0 1)
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	95	component:
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	96	(SpecCollection
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	97	collection: (
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	98	(SequenceViewSpec
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	99	name: 'List1'
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	100	model: selectedModuleIndexHolder
2253 a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	101	menu: moduleMenu
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	102	hasHorizontalScrollBar: true
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	103	hasVerticalScrollBar: true
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	104	useIndex: true
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	105	sequenceList: listOfModuleNames
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	106	)
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	107	(ViewSpec
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	108	name: 'Box1'
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	109	component:
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	110	(SpecCollection
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	111	collection: (
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	112	(LabelSpec
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	113	name: 'Label1'
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	114	layout: (LayoutFrame 0 0 0 0 0 1 30 0)
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	115	translateLabel: true
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	116	labelChannel: middleLabelHolder
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	117	adjust: left
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	118	)
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	119	(DataSetSpec
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	120	name: 'Table1'
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	121	layout: (LayoutFrame 0 0 30 0 0 1 0 1)
2183 517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	122	visibilityChannel: table1VisibleHolder
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	123	model: selectedInfoIndexHolder
2253 a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	124	menu: moduleItemMenu
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	125	hasHorizontalScrollBar: true
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	126	hasVerticalScrollBar: true
2183 517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	127	dataList: infoTable1ListHolder
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	128	columnHolder: tableColumns
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	129	separatorOneDColor: (Color 66.999313344015 66.999313344015 66.999313344015)
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	130	)
2183 517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	131	(DataSetSpec
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	132	name: 'Table2'
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	133	layout: (LayoutFrame 0 0 30 0 0 1 0 1)
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	134	initiallyInvisible: true
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	135	visibilityChannel: table2VisibleHolder
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	136	model: selectedInfoIndexHolder
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	137	hasHorizontalScrollBar: true
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	138	hasVerticalScrollBar: true
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	139	dataList: infoTable2ListHolder
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	140	columnHolder: tableColumnsForSingleInfo
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	141	separatorOneDColor: (Color 66.999313344015 66.999313344015 66.999313344015)
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	142	)
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	143	)
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	144
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	145	)
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	146	)
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	147	)
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	148
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	149	)
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	150	handles: (Any 0.35195530726257 1.0)
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	151	)
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	152	)
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	153
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	154	)
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	155	)
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	156	! !
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	157
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	158	!ObjectModuleInformation class methodsFor:'menu specs'!
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	159
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	160	mainMenu
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	161	"This resource specification was automatically generated
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	162	by the MenuEditor of ST/X."
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	163
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	164	"Do not manually edit this!! If it is corrupted,
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	165	the MenuEditor may not be able to read the specification."
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	166
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	167	"
2183 517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	168	MenuEditor new openOnClass:Tools::ObjectModuleInformation andSelector:#mainMenu
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	169	(Menu new fromLiteralArrayEncoding:(Tools::ObjectModuleInformation mainMenu)) startUp
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	170	"
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	171
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	172	<resource: #menu>
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	173
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	174	^
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	175	#(Menu
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	176	(
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	177	(MenuItem
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	178	label: 'File'
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	179	translateLabel: true
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	180	submenu:
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	181	(Menu
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	182	(
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	183	(MenuItem
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	184	label: 'Exit'
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	185	itemValue: closeRequest
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	186	translateLabel: true
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	187	)
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	188	)
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	189	nil
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	190	nil
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	191	)
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	192	)
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	193	(MenuItem
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	194	label: 'View'
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	195	translateLabel: true
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	196	submenu:
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	197	(Menu
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	198	(
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	199	(MenuItem
2619 09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	200	label: 'Dynamically Loaded ClassLibraries Only'
2842 ed699545a9e7 added: #inspectSelectedObject Stefan Vogel <sv@exept.de> parents: 2788 diff changeset	201	itemValue: showOnlyDynamicallyLoadedClassLibraries
2619 09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	202	translateLabel: true
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	203	hideMenuOnActivated: false
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	204	)
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	205	(MenuItem
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	206	label: '-'
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	207	)
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	208	(MenuItem
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	209	label: 'Builtin'
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	210	translateLabel: true
2183 517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	211	hideMenuOnActivated: false
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	212	indication: showBuiltIn
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	213	)
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	214	(MenuItem
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	215	label: 'Class Libraries'
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	216	translateLabel: true
2183 517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	217	hideMenuOnActivated: false
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	218	indication: showClassLibs
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	219	)
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	220	(MenuItem
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	221	label: 'Methods'
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	222	translateLabel: true
2183 517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	223	hideMenuOnActivated: false
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	224	indication: showMethods
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	225	)
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	226	(MenuItem
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	227	label: 'C-Objects'
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	228	translateLabel: true
2183 517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	229	hideMenuOnActivated: false
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	230	indication: showCObjects
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	231	)
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	232	(MenuItem
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	233	label: 'Others'
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	234	translateLabel: true
2183 517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	235	hideMenuOnActivated: false
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	236	indication: showOthers
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	237	)
2403 11c5c82a852c changed #menuUpdateModuleList Claus Gittinger <cg@exept.de> parents: 2402 diff changeset	238	(MenuItem
11c5c82a852c changed #menuUpdateModuleList Claus Gittinger <cg@exept.de> parents: 2402 diff changeset	239	label: '-'
11c5c82a852c changed #menuUpdateModuleList Claus Gittinger <cg@exept.de> parents: 2402 diff changeset	240	)
11c5c82a852c changed #menuUpdateModuleList Claus Gittinger <cg@exept.de> parents: 2402 diff changeset	241	(MenuItem
11c5c82a852c changed #menuUpdateModuleList Claus Gittinger <cg@exept.de> parents: 2402 diff changeset	242	label: 'Update'
11c5c82a852c changed #menuUpdateModuleList Claus Gittinger <cg@exept.de> parents: 2402 diff changeset	243	itemValue: menuUpdateModuleList
11c5c82a852c changed #menuUpdateModuleList Claus Gittinger <cg@exept.de> parents: 2402 diff changeset	244	translateLabel: true
11c5c82a852c changed #menuUpdateModuleList Claus Gittinger <cg@exept.de> parents: 2402 diff changeset	245	)
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	246	)
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	247	nil
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	248	nil
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	249	)
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	250	)
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	251	(MenuItem
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	252	label: 'Module'
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	253	translateLabel: true
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	254	submenu:
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	255	(Menu
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	256	(
2403 11c5c82a852c changed #menuUpdateModuleList Claus Gittinger <cg@exept.de> parents: 2402 diff changeset	257	(MenuItem
11c5c82a852c changed #menuUpdateModuleList Claus Gittinger <cg@exept.de> parents: 2402 diff changeset	258	enabled: canBrowseSelectedModule
11c5c82a852c changed #menuUpdateModuleList Claus Gittinger <cg@exept.de> parents: 2402 diff changeset	259	label: 'Browse'
11c5c82a852c changed #menuUpdateModuleList Claus Gittinger <cg@exept.de> parents: 2402 diff changeset	260	itemValue: browseModule
11c5c82a852c changed #menuUpdateModuleList Claus Gittinger <cg@exept.de> parents: 2402 diff changeset	261	translateLabel: true
11c5c82a852c changed #menuUpdateModuleList Claus Gittinger <cg@exept.de> parents: 2402 diff changeset	262	)
11c5c82a852c changed #menuUpdateModuleList Claus Gittinger <cg@exept.de> parents: 2402 diff changeset	263	(MenuItem
2619 09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	264	enabled: canBrowseSelectedModulesExtensions
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	265	label: 'Browse Extensions'
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	266	itemValue: browseModuleExtensions
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	267	translateLabel: true
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	268	)
2842 ed699545a9e7 added: #inspectSelectedObject Stefan Vogel <sv@exept.de> parents: 2788 diff changeset	269	(MenuItem
ed699545a9e7 added: #inspectSelectedObject Stefan Vogel <sv@exept.de> parents: 2788 diff changeset	270	enabled: canBrowseSelectedModulesProjectDefinition
ed699545a9e7 added: #inspectSelectedObject Stefan Vogel <sv@exept.de> parents: 2788 diff changeset	271	label: 'Browse ProjectDefinition'
ed699545a9e7 added: #inspectSelectedObject Stefan Vogel <sv@exept.de> parents: 2788 diff changeset	272	itemValue: browseModulesProjectDefinition
ed699545a9e7 added: #inspectSelectedObject Stefan Vogel <sv@exept.de> parents: 2788 diff changeset	273	translateLabel: true
ed699545a9e7 added: #inspectSelectedObject Stefan Vogel <sv@exept.de> parents: 2788 diff changeset	274	)
ed699545a9e7 added: #inspectSelectedObject Stefan Vogel <sv@exept.de> parents: 2788 diff changeset	275	(MenuItem
ed699545a9e7 added: #inspectSelectedObject Stefan Vogel <sv@exept.de> parents: 2788 diff changeset	276	label: 'Find a Class...'
ed699545a9e7 added: #inspectSelectedObject Stefan Vogel <sv@exept.de> parents: 2788 diff changeset	277	itemValue: findClass
ed699545a9e7 added: #inspectSelectedObject Stefan Vogel <sv@exept.de> parents: 2788 diff changeset	278	translateLabel: true
ed699545a9e7 added: #inspectSelectedObject Stefan Vogel <sv@exept.de> parents: 2788 diff changeset	279	)
2619 09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	280	(MenuItem
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	281	label: '-'
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	282	)
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	283	(MenuItem
2253 a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	284	enabled: canCopyClassNameList
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	285	label: 'Copy Version Info to Clipboard'
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	286	itemValue: copyClassOrVMNameList
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	287	translateLabel: true
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	288	)
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	289	(MenuItem
2253 a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	290	label: '-'
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	291	)
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	292	(MenuItem
2619 09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	293	label: 'Load Package...'
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	294	itemValue: loadPackage
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	295	translateLabel: true
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	296	)
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	297	(MenuItem
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	298	label: '-'
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	299	)
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	300	(MenuItem
2616 01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	301	enabled: canUnloadSelectedModulesPackage
2619 09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	302	label: 'Unload Package...'
2616 01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	303	itemValue: unloadSelectedModulesPackage
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	304	translateLabel: true
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	305	)
2403 11c5c82a852c changed #menuUpdateModuleList Claus Gittinger <cg@exept.de> parents: 2402 diff changeset	306	(MenuItem
2619 09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	307	enabled: canUnloadSelectedDLL
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	308	label: 'Remove Classes && Unload DLL...'
2403 11c5c82a852c changed #menuUpdateModuleList Claus Gittinger <cg@exept.de> parents: 2402 diff changeset	309	itemValue: unloadSelectedModuleAndRemoveClasses
11c5c82a852c changed #menuUpdateModuleList Claus Gittinger <cg@exept.de> parents: 2402 diff changeset	310	translateLabel: true
11c5c82a852c changed #menuUpdateModuleList Claus Gittinger <cg@exept.de> parents: 2402 diff changeset	311	)
2616 01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	312	(MenuItem
01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	313	enabled: canUnloadSelectedModule
2619 09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	314	label: 'Unload DLL...'
2616 01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	315	itemValue: unloadSelectedModule
01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	316	translateLabel: true
01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	317	)
2842 ed699545a9e7 added: #inspectSelectedObject Stefan Vogel <sv@exept.de> parents: 2788 diff changeset	318	(MenuItem
ed699545a9e7 added: #inspectSelectedObject Stefan Vogel <sv@exept.de> parents: 2788 diff changeset	319	label: 'Inspect'
ed699545a9e7 added: #inspectSelectedObject Stefan Vogel <sv@exept.de> parents: 2788 diff changeset	320	itemValue: inspectSelectedObject
ed699545a9e7 added: #inspectSelectedObject Stefan Vogel <sv@exept.de> parents: 2788 diff changeset	321	translateLabel: true
ed699545a9e7 added: #inspectSelectedObject Stefan Vogel <sv@exept.de> parents: 2788 diff changeset	322	)
ed699545a9e7 added: #inspectSelectedObject Stefan Vogel <sv@exept.de> parents: 2788 diff changeset	323	(MenuItem
ed699545a9e7 added: #inspectSelectedObject Stefan Vogel <sv@exept.de> parents: 2788 diff changeset	324	label: '-'
ed699545a9e7 added: #inspectSelectedObject Stefan Vogel <sv@exept.de> parents: 2788 diff changeset	325	)
ed699545a9e7 added: #inspectSelectedObject Stefan Vogel <sv@exept.de> parents: 2788 diff changeset	326	(MenuItem
ed699545a9e7 added: #inspectSelectedObject Stefan Vogel <sv@exept.de> parents: 2788 diff changeset	327	label: 'Update'
ed699545a9e7 added: #inspectSelectedObject Stefan Vogel <sv@exept.de> parents: 2788 diff changeset	328	itemValue: menuUpdateModuleList
ed699545a9e7 added: #inspectSelectedObject Stefan Vogel <sv@exept.de> parents: 2788 diff changeset	329	translateLabel: true
ed699545a9e7 added: #inspectSelectedObject Stefan Vogel <sv@exept.de> parents: 2788 diff changeset	330	)
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	331	)
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	332	nil
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	333	nil
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	334	)
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	335	)
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	336	(MenuItem
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	337	label: 'Help'
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	338	translateLabel: true
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	339	startGroup: conditionalRight
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	340	submenu:
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	341	(Menu
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	342	(
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	343	(MenuItem
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	344	label: 'Documentation'
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	345	itemValue: openDocumentation
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	346	translateLabel: true
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	347	)
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	348	(MenuItem
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	349	label: '-'
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	350	)
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	351	(MenuItem
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	352	label: 'About this Application...'
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	353	itemValue: openAboutThisApplication
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	354	translateLabel: true
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	355	)
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	356	)
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	357	nil
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	358	nil
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	359	)
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	360	)
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	361	)
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	362	nil
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	363	nil
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	364	)
2253 a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	365	!
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	366
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	367	moduleItemMenu
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	368	"This resource specification was automatically generated
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	369	by the MenuEditor of ST/X."
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	370
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	371	"Do not manually edit this!! If it is corrupted,
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	372	the MenuEditor may not be able to read the specification."
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	373
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	374	"
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	375	MenuEditor new openOnClass:Tools::ObjectModuleInformation andSelector:#moduleItemMenu
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	376	(Menu new fromLiteralArrayEncoding:(Tools::ObjectModuleInformation moduleItemMenu)) startUp
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	377	"
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	378
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	379	<resource: #menu>
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	380
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	381	^
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	382	#(Menu
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	383	(
2842 ed699545a9e7 added: #inspectSelectedObject Stefan Vogel <sv@exept.de> parents: 2788 diff changeset	384	(MenuItem
2253 a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	385	enabled: canBrowseSelectedClass
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	386	label: 'Browse'
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	387	itemValue: browseClass
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	388	translateLabel: true
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	389	)
2842 ed699545a9e7 added: #inspectSelectedObject Stefan Vogel <sv@exept.de> parents: 2788 diff changeset	390	(MenuItem
2253 a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	391	label: '-'
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	392	)
2842 ed699545a9e7 added: #inspectSelectedObject Stefan Vogel <sv@exept.de> parents: 2788 diff changeset	393	(MenuItem
2253 a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	394	enabled: canCopyClassNameList
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	395	label: 'Copy Version Info to Clipboard'
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	396	itemValue: copyClassOrVMNameList
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	397	translateLabel: true
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	398	)
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	399	)
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	400	nil
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	401	nil
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	402	)
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	403	!
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	404
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	405	moduleMenu
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	406	"This resource specification was automatically generated
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	407	by the MenuEditor of ST/X."
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	408
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	409	"Do not manually edit this!! If it is corrupted,
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	410	the MenuEditor may not be able to read the specification."
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	411
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	412	"
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	413	MenuEditor new openOnClass:Tools::ObjectModuleInformation andSelector:#moduleMenu
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	414	(Menu new fromLiteralArrayEncoding:(Tools::ObjectModuleInformation moduleMenu)) startUp
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	415	"
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	416
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	417	<resource: #menu>
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	418
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	419	^
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	420	#(Menu
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	421	(
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	422	(MenuItem
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	423	enabled: canBrowseSelectedModule
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	424	label: 'Browse'
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	425	itemValue: browseModule
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	426	translateLabel: true
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	427	)
2618 441ede629ea8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	428	(MenuItem
441ede629ea8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	429	enabled: canBrowseSelectedModulesExtensions
441ede629ea8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	430	label: 'Browse Extensions'
441ede629ea8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	431	itemValue: browseModuleExtensions
441ede629ea8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	432	translateLabel: true
441ede629ea8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	433	)
2619 09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	434	(MenuItem
2763 c36ead4db5bc added: Claus Gittinger <cg@exept.de> parents: 2739 diff changeset	435	enabled: canBrowseSelectedModulesProjectDefinition
c36ead4db5bc added: Claus Gittinger <cg@exept.de> parents: 2739 diff changeset	436	label: 'Browse ProjectDefinition'
c36ead4db5bc added: Claus Gittinger <cg@exept.de> parents: 2739 diff changeset	437	itemValue: browseModulesProjectDefinition
c36ead4db5bc added: Claus Gittinger <cg@exept.de> parents: 2739 diff changeset	438	translateLabel: true
c36ead4db5bc added: Claus Gittinger <cg@exept.de> parents: 2739 diff changeset	439	)
c36ead4db5bc added: Claus Gittinger <cg@exept.de> parents: 2739 diff changeset	440	(MenuItem
2623 6e7e1b2b961f added: #findClass Claus Gittinger <cg@exept.de> parents: 2620 diff changeset	441	label: 'Find a Class...'
6e7e1b2b961f added: #findClass Claus Gittinger <cg@exept.de> parents: 2620 diff changeset	442	itemValue: findClass
6e7e1b2b961f added: #findClass Claus Gittinger <cg@exept.de> parents: 2620 diff changeset	443	translateLabel: true
6e7e1b2b961f added: #findClass Claus Gittinger <cg@exept.de> parents: 2620 diff changeset	444	)
6e7e1b2b961f added: #findClass Claus Gittinger <cg@exept.de> parents: 2620 diff changeset	445	(MenuItem
2619 09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	446	label: '-'
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	447	)
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	448	(MenuItem
2253 a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	449	enabled: canCopyClassNameList
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	450	label: 'Copy Version Info to Clipboard'
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	451	itemValue: copyClassOrVMNameList
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	452	translateLabel: true
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	453	)
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	454	(MenuItem
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	455	label: '-'
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	456	)
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	457	(MenuItem
2616 01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	458	enabled: canUnloadSelectedModulesPackage
2619 09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	459	label: 'Unload Package...'
2616 01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	460	itemValue: unloadSelectedModulesPackage
01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	461	translateLabel: true
01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	462	)
01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	463	(MenuItem
2253 a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	464	enabled: canUnloadSelectedModule
2619 09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	465	label: 'Remove Classes && Unload DLL...'
2253 a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	466	itemValue: unloadSelectedModuleAndRemoveClasses
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	467	translateLabel: true
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	468	)
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	469	(MenuItem
2619 09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	470	enabled: canUnloadSelectedDLL
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	471	label: 'Unload DLL...'
2253 a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	472	itemValue: unloadSelectedModule
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	473	translateLabel: true
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	474	)
2619 09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	475	(MenuItem
2842 ed699545a9e7 added: #inspectSelectedObject Stefan Vogel <sv@exept.de> parents: 2788 diff changeset	476	label: 'Inspect'
ed699545a9e7 added: #inspectSelectedObject Stefan Vogel <sv@exept.de> parents: 2788 diff changeset	477	itemValue: inspectSelectedObject
ed699545a9e7 added: #inspectSelectedObject Stefan Vogel <sv@exept.de> parents: 2788 diff changeset	478	translateLabel: true
ed699545a9e7 added: #inspectSelectedObject Stefan Vogel <sv@exept.de> parents: 2788 diff changeset	479	)
ed699545a9e7 added: #inspectSelectedObject Stefan Vogel <sv@exept.de> parents: 2788 diff changeset	480	(MenuItem
2619 09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	481	label: '-'
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	482	)
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	483	(MenuItem
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	484	label: 'Update'
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	485	itemValue: menuUpdateModuleList
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	486	translateLabel: true
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	487	)
2253 a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	488	)
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	489	nil
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	490	nil
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	491	)
2616 01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	492	!
01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	493
01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	494	toolbarMenu
01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	495	"This resource specification was automatically generated
01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	496	by the MenuEditor of ST/X."
01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	497
01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	498	"Do not manually edit this!! If it is corrupted,
01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	499	the MenuEditor may not be able to read the specification."
01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	500
01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	501	"
01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	502	MenuEditor new openOnClass:Tools::ObjectModuleInformation andSelector:#toolbarMenu
01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	503	(Menu new fromLiteralArrayEncoding:(Tools::ObjectModuleInformation toolbarMenu)) startUp
01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	504	"
01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	505
01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	506	<resource: #menu>
01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	507
01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	508	^
01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	509	#(Menu
01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	510	(
01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	511	(MenuItem
2620 fccbd77a9409 added: #selectedObjectHandle Claus Gittinger <cg@exept.de> parents: 2619 diff changeset	512	label: 'Update'
fccbd77a9409 added: #selectedObjectHandle Claus Gittinger <cg@exept.de> parents: 2619 diff changeset	513	itemValue: menuUpdateModuleList
fccbd77a9409 added: #selectedObjectHandle Claus Gittinger <cg@exept.de> parents: 2619 diff changeset	514	translateLabel: true
fccbd77a9409 added: #selectedObjectHandle Claus Gittinger <cg@exept.de> parents: 2619 diff changeset	515	isButton: true
fccbd77a9409 added: #selectedObjectHandle Claus Gittinger <cg@exept.de> parents: 2619 diff changeset	516	labelImage: (ResourceRetriever ToolbarIconLibrary reloadIcon)
fccbd77a9409 added: #selectedObjectHandle Claus Gittinger <cg@exept.de> parents: 2619 diff changeset	517	)
fccbd77a9409 added: #selectedObjectHandle Claus Gittinger <cg@exept.de> parents: 2619 diff changeset	518	(MenuItem
fccbd77a9409 added: #selectedObjectHandle Claus Gittinger <cg@exept.de> parents: 2619 diff changeset	519	label: '-'
fccbd77a9409 added: #selectedObjectHandle Claus Gittinger <cg@exept.de> parents: 2619 diff changeset	520	)
fccbd77a9409 added: #selectedObjectHandle Claus Gittinger <cg@exept.de> parents: 2619 diff changeset	521	(MenuItem
2616 01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	522	enabled: canBrowseSelectedModule
2617 060a35c37056 changed: #toolbarMenu Claus Gittinger <cg@exept.de> parents: 2616 diff changeset	523	label: 'Browse the Selected Module''s Classes'
2616 01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	524	itemValue: browseModule
01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	525	translateLabel: true
01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	526	isButton: true
2618 441ede629ea8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	527	labelImage: (ResourceRetriever ToolbarIconLibrary startSystemBrowserIcon)
441ede629ea8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	528	)
441ede629ea8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	529	(MenuItem
441ede629ea8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	530	enabled: canBrowseSelectedModulesExtensions
441ede629ea8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	531	label: 'Browse the Selected Module''s Extensions'
441ede629ea8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	532	itemValue: browseModuleExtensions
441ede629ea8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	533	translateLabel: true
441ede629ea8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	534	isButton: true
441ede629ea8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	535	labelImage: (ResourceRetriever ToolbarIconLibrary browseClassExtensionsIcon)
2616 01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	536	)
01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	537	)
01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	538	nil
01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	539	nil
01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	540	)
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	541	! !
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	542
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	543	!ObjectModuleInformation class methodsFor:'tableColumns specs'!
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	544
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	545	tableColumns
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	546	"This resource specification was automatically generated
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	547	by the DataSetBuilder of ST/X."
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	548
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	549	"Do not manually edit this!! If it is corrupted,
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	550	the DataSetBuilder may not be able to read the specification."
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	551
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	552	"
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	553	DataSetBuilder new openOnClass:ObjectModuleInformation andSelector:#tableColumns
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	554	"
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	555
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	556	<resource: #tableColumns>
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	557
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	558	^#(
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	559	(DataSetColumnSpec
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	560	label: 'Name'
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	561	activeHelpKey: ''
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	562	labelButtonType: Button
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	563	width: 0.5
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	564	model: name
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	565	canSelect: false
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	566	)
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	567	(DataSetColumnSpec
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	568	label: 'Version'
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	569	activeHelpKey: ''
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	570	labelButtonType: Button
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	571	model: version
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	572	canSelect: false
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	573	)
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	574	(DataSetColumnSpec
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	575	label: 'Date'
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	576	activeHelpKey: ''
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	577	labelButtonType: Button
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	578	model: date
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	579	canSelect: false
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	580	)
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	581	)
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	582
2183 517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	583	!
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	584
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	585	tableColumnsForSingleInfo
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	586	"This resource specification was automatically generated
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	587	by the DataSetBuilder of ST/X."
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	588
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	589	"Do not manually edit this!! If it is corrupted,
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	590	the DataSetBuilder may not be able to read the specification."
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	591
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	592	"
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	593	DataSetBuilder new openOnClass:Tools::ObjectModuleInformation andSelector:#tableColumnsForSingleInfo
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	594	"
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	595
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	596	<resource: #tableColumns>
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	597
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	598	^#(
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	599	(DataSetColumnSpec
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	600	label: ''
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	601	activeHelpKey: ''
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	602	labelButtonType: None
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	603	width: 0.3
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	604	model: name
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	605	canSelect: false
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	606	)
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	607	(DataSetColumnSpec
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	608	label: ''
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	609	activeHelpKey: ''
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	610	labelButtonType: None
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	611	model: value
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	612	canSelect: false
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	613	)
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	614	)
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	615
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	616	! !
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	617
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	618	!ObjectModuleInformation methodsFor:'aspects'!
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	619
2253 a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	620	canBrowseSelectedClass
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	621	^ [classNamesShown notEmptyOrNil
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	622	and:[ self selectedInfoIndex notNil
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	623	and:[ self selectedInfoIndex ~~ 0 ]]]
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	624
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	625	"Modified: / 05-10-2007 / 10:51:39 / cg"
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	626	!
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	627
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	628	canBrowseSelectedModule
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	629	canBrowseSelectedModule isNil ifTrue:[
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	630	canBrowseSelectedModule := false asValue
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	631	].
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	632	^ canBrowseSelectedModule.
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	633
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	634	"Modified: / 05-10-2007 / 10:51:39 / cg"
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	635	!
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	636
2618 441ede629ea8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	637	canBrowseSelectedModulesExtensions
441ede629ea8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	638	canBrowseSelectedModulesExtensions isNil ifTrue:[
441ede629ea8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	639	canBrowseSelectedModulesExtensions := false asValue
441ede629ea8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	640	].
441ede629ea8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	641	^ canBrowseSelectedModulesExtensions.
441ede629ea8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	642
441ede629ea8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	643	"Modified: / 05-10-2007 / 10:51:39 / cg"
441ede629ea8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	644	!
441ede629ea8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	645
2763 c36ead4db5bc added: Claus Gittinger <cg@exept.de> parents: 2739 diff changeset	646	canBrowseSelectedModulesProjectDefinition
c36ead4db5bc added: Claus Gittinger <cg@exept.de> parents: 2739 diff changeset	647	^ [ self projectDefinitionClassOfSelectedModule notNil ]
c36ead4db5bc added: Claus Gittinger <cg@exept.de> parents: 2739 diff changeset	648	!
c36ead4db5bc added: Claus Gittinger <cg@exept.de> parents: 2739 diff changeset	649
2253 a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	650	canCopyClassNameList
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	651	^ [table1VisibleHolder value
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	652	and:[classInfoShown notEmptyOrNil or:[vmInfoShown notEmptyOrNil] ]]
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	653
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	654	"Modified: / 05-10-2007 / 10:51:39 / cg"
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	655	!
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	656
2619 09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	657	canUnloadSelectedDLL
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	658	canUnloadSelectedDLL isNil ifTrue:[
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	659	canUnloadSelectedDLL := false asValue
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	660	].
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	661	^ canUnloadSelectedDLL.
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	662
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	663	"Modified: / 05-10-2007 / 10:51:39 / cg"
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	664	!
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	665
2253 a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	666	canUnloadSelectedModule
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	667	canUnloadSelectedModule isNil ifTrue:[
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	668	canUnloadSelectedModule := false asValue
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	669	].
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	670	^ canUnloadSelectedModule.
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	671
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	672	"Modified: / 05-10-2007 / 10:51:39 / cg"
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	673	!
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	674
2616 01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	675	canUnloadSelectedModulesPackage
01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	676	canUnloadSelectedModulesPackage isNil ifTrue:[
01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	677	canUnloadSelectedModulesPackage := false asValue
01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	678	].
01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	679	^ canUnloadSelectedModulesPackage.
01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	680	!
01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	681
2183 517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	682	infoTable1ListHolder
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	683	^ builder valueAspectFor:#'infoTable1ListHolder' initialValue:#()
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	684
2183 517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	685	"Created: / 05-10-2007 / 12:48:06 / cg"
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	686	!
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	687
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	688	infoTable2ListHolder
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	689	^ builder valueAspectFor:#'infoTable2ListHolder' initialValue:#()
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	690
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	691	"Created: / 05-10-2007 / 12:48:10 / cg"
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	692	!
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	693
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	694	listOfModuleNames
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	695	listOfModuleNames isNil ifTrue:[
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	696	listOfModuleNames := List new.
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	697	].
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	698	^ listOfModuleNames.
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	699
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	700	"Modified: / 05-10-2007 / 10:49:19 / cg"
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	701	!
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	702
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	703	middleLabelHolder
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	704	^ builder valueAspectFor:#'middleLabelHolder' initialValue:''
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	705
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	706	"Created: / 05-10-2007 / 11:05:08 / cg"
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	707	!
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	708
2184 1ffb97ee0a55 * empty log message * Claus Gittinger <cg@exept.de> parents: 2183 diff changeset	709	notReadOnly
1ffb97ee0a55 * empty log message * Claus Gittinger <cg@exept.de> parents: 2183 diff changeset	710	^ self readOnly not
1ffb97ee0a55 * empty log message * Claus Gittinger <cg@exept.de> parents: 2183 diff changeset	711
1ffb97ee0a55 * empty log message * Claus Gittinger <cg@exept.de> parents: 2183 diff changeset	712	"Created: / 05-10-2007 / 13:06:00 / cg"
1ffb97ee0a55 * empty log message * Claus Gittinger <cg@exept.de> parents: 2183 diff changeset	713	!
1ffb97ee0a55 * empty log message * Claus Gittinger <cg@exept.de> parents: 2183 diff changeset	714
1ffb97ee0a55 * empty log message * Claus Gittinger <cg@exept.de> parents: 2183 diff changeset	715	readOnly
1ffb97ee0a55 * empty log message * Claus Gittinger <cg@exept.de> parents: 2183 diff changeset	716	^ readOnly ? false
1ffb97ee0a55 * empty log message * Claus Gittinger <cg@exept.de> parents: 2183 diff changeset	717
1ffb97ee0a55 * empty log message * Claus Gittinger <cg@exept.de> parents: 2183 diff changeset	718	"Created: / 05-10-2007 / 13:05:51 / cg"
1ffb97ee0a55 * empty log message * Claus Gittinger <cg@exept.de> parents: 2183 diff changeset	719	!
1ffb97ee0a55 * empty log message * Claus Gittinger <cg@exept.de> parents: 2183 diff changeset	720
2253 a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	721	readOnly:aBoolean
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	722	readOnly := aBoolean
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	723
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	724	"Created: / 05-10-2007 / 13:05:51 / cg"
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	725	!
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	726
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	727	selectedInfoIndex
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	728	\|sel\|
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	729
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	730	sel := self selectedInfoIndexHolder value.
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	731	^ sel
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	732	!
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	733
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	734	selectedInfoIndexHolder
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	735	selectedInfoIndexHolder isNil ifTrue:[
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	736	selectedInfoIndexHolder := ValueHolder new.
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	737	selectedInfoIndexHolder onChangeSend:#selectedInfoIndexChanged to:self.
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	738	].
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	739	^ selectedInfoIndexHolder.
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	740
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	741	"Modified: / 05-10-2007 / 10:51:39 / cg"
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	742	!
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	743
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	744	selectedModuleIndex
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	745	\|sel\|
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	746
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	747	sel := self selectedModuleIndexHolder value.
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	748	^ sel
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	749	!
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	750
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	751	selectedModuleIndexHolder
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	752	selectedModuleIndexHolder isNil ifTrue:[
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	753	selectedModuleIndexHolder := ValueHolder new.
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	754	selectedModuleIndexHolder onChangeSend:#selectedModuleIndexChanged to:self.
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	755	].
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	756	^ selectedModuleIndexHolder.
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	757
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	758	"Modified: / 05-10-2007 / 10:51:39 / cg"
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	759	!
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	760
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	761	showBuiltIn
2183 517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	762	showBuiltIn isNil ifTrue:[
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	763	showBuiltIn := true asValue.
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	764	showBuiltIn onChangeSend:#filterChanged to:self.
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	765	].
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	766	^ showBuiltIn
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	767
2183 517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	768	"Modified: / 05-10-2007 / 12:43:23 / cg"
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	769	!
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	770
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	771	showCObjects
2183 517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	772	showCObjects isNil ifTrue:[
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	773	showCObjects := true asValue.
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	774	showCObjects onChangeSend:#filterChanged to:self.
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	775	].
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	776	^ showCObjects
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	777
2183 517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	778	"Modified: / 05-10-2007 / 12:43:16 / cg"
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	779	!
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	780
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	781	showClassLibs
2183 517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	782	showClassLibs isNil ifTrue:[
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	783	showClassLibs := true asValue.
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	784	showClassLibs onChangeSend:#filterChanged to:self.
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	785	].
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	786	^ showClassLibs
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	787
2183 517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	788	"Modified: / 05-10-2007 / 12:43:10 / cg"
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	789	!
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	790
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	791	showMethods
2183 517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	792	showMethods isNil ifTrue:[
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	793	showMethods := true asValue.
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	794	showMethods onChangeSend:#filterChanged to:self.
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	795	].
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	796	^ showMethods
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	797
2183 517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	798	"Modified: / 05-10-2007 / 12:43:02 / cg"
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	799	!
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	800
2619 09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	801	showOnlyDynamicallyLoadedClassLibraries
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	802	self showBuiltIn value:false withoutNotifying:self.
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	803	self showCObjects value:false withoutNotifying:self.
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	804	self showMethods value:false withoutNotifying:self.
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	805	self showOthers value:false withoutNotifying:self.
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	806	self showClassLibs value:true withoutNotifying:self.
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	807	self filterChanged.
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	808	!
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	809
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	810	showOthers
2183 517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	811	showOthers isNil ifTrue:[
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	812	showOthers := true asValue.
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	813	showOthers onChangeSend:#filterChanged to:self.
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	814	].
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	815	^ showOthers
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	816
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	817	"Modified: / 05-10-2007 / 12:42:54 / cg"
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	818	!
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	819
2183 517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	820	table1VisibleHolder
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	821	table1VisibleHolder isNil ifTrue:[
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	822	table1VisibleHolder := true asValue.
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	823	].
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	824	^ table1VisibleHolder.
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	825
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	826	"Modified: / 05-10-2007 / 12:53:05 / cg"
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	827	!
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	828
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	829	table2VisibleHolder
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	830	table2VisibleHolder isNil ifTrue:[
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	831	table2VisibleHolder := false asValue.
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	832	].
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	833	^ table2VisibleHolder.
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	834
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	835	"Modified: / 05-10-2007 / 12:53:14 / cg"
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	836	! !
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	837
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	838	!ObjectModuleInformation methodsFor:'change & update'!
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	839
2618 441ede629ea8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	840	isExtensionName:nm
441ede629ea8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	841	^ (nm endsWith:'_extensions')
441ede629ea8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	842	!
441ede629ea8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	843
2253 a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	844	selectedInfoIndexChanged
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	845	!
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	846
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	847	selectedModule
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	848	\|sel\|
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	849
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	850	sel := self selectedModuleIndex.
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	851	sel isNil ifTrue:[^ nil].
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	852	^ objectHandles at:sel.
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	853	!
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	854
2253 a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	855	selectedModuleIndexChanged
2620 fccbd77a9409 added: #selectedObjectHandle Claus Gittinger <cg@exept.de> parents: 2619 diff changeset	856	\| info \|
2253 a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	857
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	858	info := self selectedModuleInfo.
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	859
2619 09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	860	self canBrowseSelectedModule value:false.
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	861	self canBrowseSelectedModulesExtensions value:false.
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	862	self canUnloadSelectedDLL value:false.
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	863	self canUnloadSelectedModule value:false.
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	864	self canUnloadSelectedModulesPackage value:false.
2253 a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	865
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	866	classNamesShown := nil.
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	867	classInfoShown := nil.
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	868	vmInfoShown := nil.
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	869
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	870	info isNil ifTrue:[
2620 fccbd77a9409 added: #selectedObjectHandle Claus Gittinger <cg@exept.de> parents: 2619 diff changeset	871	"/ selected a cObject or unknown
2253 a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	872	self showInfoForNonClassLib:(self selectedModuleIndex).
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	873	^ self.
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	874	].
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	875	info == #VM ifTrue:[
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	876	"/ selected the pseudo entry for the VM itself
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	877	self showInfoForVM.
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	878	^ self.
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	879	].
2618 441ede629ea8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	880
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	881	"/ selected a class-library package
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	882	self showInfoForClassLib:info.
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	883
2183 517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	884	"Modified: / 05-10-2007 / 12:56:13 / cg"
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	885	!
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	886
2253 a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	887	selectedModuleInfo
2620 fccbd77a9409 added: #selectedObjectHandle Claus Gittinger <cg@exept.de> parents: 2619 diff changeset	888	\|sel\|
2253 a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	889
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	890	sel := self selectedModuleIndex.
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	891	sel notNil ifTrue:[
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	892	(self showClassLibs value or:[self showBuiltIn value]) ifTrue:[
2620 fccbd77a9409 added: #selectedObjectHandle Claus Gittinger <cg@exept.de> parents: 2619 diff changeset	893	^ allModules at:sel ifAbsent:nil.
2253 a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	894	].
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	895	].
2620 fccbd77a9409 added: #selectedObjectHandle Claus Gittinger <cg@exept.de> parents: 2619 diff changeset	896	^ nil
fccbd77a9409 added: #selectedObjectHandle Claus Gittinger <cg@exept.de> parents: 2619 diff changeset	897	!
fccbd77a9409 added: #selectedObjectHandle Claus Gittinger <cg@exept.de> parents: 2619 diff changeset	898
fccbd77a9409 added: #selectedObjectHandle Claus Gittinger <cg@exept.de> parents: 2619 diff changeset	899	selectedObjectHandle
fccbd77a9409 added: #selectedObjectHandle Claus Gittinger <cg@exept.de> parents: 2619 diff changeset	900	\|sel\|
fccbd77a9409 added: #selectedObjectHandle Claus Gittinger <cg@exept.de> parents: 2619 diff changeset	901
fccbd77a9409 added: #selectedObjectHandle Claus Gittinger <cg@exept.de> parents: 2619 diff changeset	902	sel := self selectedModuleIndex.
fccbd77a9409 added: #selectedObjectHandle Claus Gittinger <cg@exept.de> parents: 2619 diff changeset	903	sel isNil ifTrue:[^ nil].
fccbd77a9409 added: #selectedObjectHandle Claus Gittinger <cg@exept.de> parents: 2619 diff changeset	904	^ objectHandles at:sel.
2253 a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	905	!
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	906
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	907	showInfoForClassLib:info
2788 5ea743a4ac48 changed: Stefan Vogel <sv@exept.de> parents: 2787 diff changeset	908	"selected a lib-package; fill bottom list with class-info"
5ea743a4ac48 changed: Stefan Vogel <sv@exept.de> parents: 2787 diff changeset	909
5ea743a4ac48 changed: Stefan Vogel <sv@exept.de> parents: 2787 diff changeset	910	\|rows projectDefinitionClass mgr canUnload canUnloadPackage\|
2616 01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	911
2788 5ea743a4ac48 changed: Stefan Vogel <sv@exept.de> parents: 2787 diff changeset	912	self middleLabelHolder value:'Components:'.
5ea743a4ac48 changed: Stefan Vogel <sv@exept.de> parents: 2787 diff changeset	913
5ea743a4ac48 changed: Stefan Vogel <sv@exept.de> parents: 2787 diff changeset	914	projectDefinitionClass := self selectedModulesProjectDefinitionClass.
2619 09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	915
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	916	self canBrowseSelectedModule value:true.
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	917
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	918	self canBrowseSelectedModulesExtensions
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	919	value:(info classNames contains:[:nm \| self isExtensionName:nm]).
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	920
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	921	canUnload := info dynamic and:[self readOnly not].
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	922	self canUnloadSelectedModule value:canUnload.
2788 5ea743a4ac48 changed: Stefan Vogel <sv@exept.de> parents: 2787 diff changeset	923	canUnloadPackage := canUnload
5ea743a4ac48 changed: Stefan Vogel <sv@exept.de> parents: 2787 diff changeset	924	and:[projectDefinitionClass notNil
5ea743a4ac48 changed: Stefan Vogel <sv@exept.de> parents: 2787 diff changeset	925	and:[projectDefinitionClass projectIsLoaded]].
2619 09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	926	self canUnloadSelectedModulesPackage value:canUnloadPackage.
2616 01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	927
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	928
2402 5db801ca0e35 item selection index fixed. Claus Gittinger <cg@exept.de> parents: 2343 diff changeset	929	classNamesShown := self shownClassNamesFor:info.
2788 5ea743a4ac48 changed: Stefan Vogel <sv@exept.de> parents: 2787 diff changeset	930	rows := classNamesShown collect:[:eachClassName \|
2860 5788b9c7c19b changed: #showInfoForClassLib: Claus Gittinger <cg@exept.de> parents: 2842 diff changeset	931	\|cls entry rev binRev listEntry revisionInfo versionString dateString\|
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	932
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	933	listEntry := InfoRow new.
2788 5ea743a4ac48 changed: Stefan Vogel <sv@exept.de> parents: 2787 diff changeset	934	listEntry name:eachClassName.
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	935
2788 5ea743a4ac48 changed: Stefan Vogel <sv@exept.de> parents: 2787 diff changeset	936	cls := Smalltalk classNamed:eachClassName.
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	937	cls isNil ifTrue:[
2788 5ea743a4ac48 changed: Stefan Vogel <sv@exept.de> parents: 2787 diff changeset	938	(self isExtensionName:eachClassName) ifTrue:[
5ea743a4ac48 changed: Stefan Vogel <sv@exept.de> parents: 2787 diff changeset	939	projectDefinitionClass notNil ifTrue:[
2957 299bc0925dab class: Tools::ObjectModuleInformation Claus Gittinger <cg@exept.de> parents: 2860 diff changeset	940	mgr := projectDefinitionClass sourceCodeManager ? SourceCodeManager ? CVSSourceCodeManager.
2788 5ea743a4ac48 changed: Stefan Vogel <sv@exept.de> parents: 2787 diff changeset	941	versionString := projectDefinitionClass perform:(mgr nameOfVersionMethodForExtensions) ifNotUnderstood:nil.
2616 01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	942	versionString notNil ifTrue:[
01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	943	versionString := '(bin: ',(mgr revisionInfoFromString:versionString) revision,')'.
01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	944	]
01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	945	].
2788 5ea743a4ac48 changed: Stefan Vogel <sv@exept.de> parents: 2787 diff changeset	946	] ifFalse:[
5ea743a4ac48 changed: Stefan Vogel <sv@exept.de> parents: 2787 diff changeset	947	versionString := '(class removed)'.
2616 01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	948	].
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	949	] ifFalse:[
2860 5788b9c7c19b changed: #showInfoForClassLib: Claus Gittinger <cg@exept.de> parents: 2842 diff changeset	950	binRev := cls binaryRevision.
5788b9c7c19b changed: #showInfoForClassLib: Claus Gittinger <cg@exept.de> parents: 2842 diff changeset	951	binRev notNil ifTrue:[
2788 5ea743a4ac48 changed: Stefan Vogel <sv@exept.de> parents: 2787 diff changeset	952	cls isLoaded ifTrue:[
2860 5788b9c7c19b changed: #showInfoForClassLib: Claus Gittinger <cg@exept.de> parents: 2842 diff changeset	953	entry :='(bin: ' , binRev.
2788 5ea743a4ac48 changed: Stefan Vogel <sv@exept.de> parents: 2787 diff changeset	954	] ifFalse:[
2860 5788b9c7c19b changed: #showInfoForClassLib: Claus Gittinger <cg@exept.de> parents: 2842 diff changeset	955	entry := '(stub for: ' , binRev.
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	956	].
2860 5788b9c7c19b changed: #showInfoForClassLib: Claus Gittinger <cg@exept.de> parents: 2842 diff changeset	957	(rev := cls revision) ~= binRev ifTrue:[
5788b9c7c19b changed: #showInfoForClassLib: Claus Gittinger <cg@exept.de> parents: 2842 diff changeset	958	entry := entry , ' / src: ' , (rev printString)
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	959	].
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	960	entry := entry , ')'.
2616 01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	961	versionString := entry
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	962	] ifFalse:[
2616 01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	963	cls revision notNil ifTrue:[
01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	964	versionString := '(overloaded by: ' , cls revision , ')'
01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	965	]
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	966	].
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	967	revisionInfo := cls revisionInfo.
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	968	revisionInfo notNil ifTrue:[
2788 5ea743a4ac48 changed: Stefan Vogel <sv@exept.de> parents: 2787 diff changeset	969	dateString := revisionInfo at:#date.
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	970	].
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	971	].
2616 01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	972	listEntry version:versionString.
2788 5ea743a4ac48 changed: Stefan Vogel <sv@exept.de> parents: 2787 diff changeset	973	listEntry date:dateString.
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	974	].
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	975
2253 a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	976	classInfoShown := rows.
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	977
2183 517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	978	self infoTable1ListHolder value:rows.
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	979	self table1VisibleHolder value:true.
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	980	self table2VisibleHolder value:false.
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	981
2860 5788b9c7c19b changed: #showInfoForClassLib: Claus Gittinger <cg@exept.de> parents: 2842 diff changeset	982	"Modified: / 29-09-2011 / 15:40:42 / cg"
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	983	!
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	984
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	985	showInfoForNonClassLib:sel
2773 a3e5bbb440f4 added: #unloadSelectedModuleRemoveConnectedObjects: Stefan Vogel <sv@exept.de> parents: 2763 diff changeset	986	"selected a method, cObject or unknown"
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	987
2787 21778700b5a4 Fix stc compilation bug (method var and inlined block var with same name) Stefan Vogel <sv@exept.de> parents: 2778 diff changeset	988	\|module fileName list newEntry\|
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	989
2253 a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	990	sel isNil ifTrue:[
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	991	self table1VisibleHolder value:false.
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	992	self table2VisibleHolder value:false.
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	993	^ self.
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	994	].
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	995
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	996	module := objectHandles at:sel.
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	997	fileName := module pathName.
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	998
2739 8efd89a9863d changed: Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	999	self canUnloadSelectedDLL value:true.
8efd89a9863d changed: Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	1000
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1001	module isMethodHandle ifTrue:[
2787 21778700b5a4 Fix stc compilation bug (method var and inlined block var with same name) Stefan Vogel <sv@exept.de> parents: 2778 diff changeset	1002	\|method nm entries\|
2773 a3e5bbb440f4 added: #unloadSelectedModuleRemoveConnectedObjects: Stefan Vogel <sv@exept.de> parents: 2763 diff changeset	1003
a3e5bbb440f4 added: #unloadSelectedModuleRemoveConnectedObjects: Stefan Vogel <sv@exept.de> parents: 2763 diff changeset	1004	self canUnloadSelectedModule value:self readOnly not.
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1005
2183 517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	1006	self middleLabelHolder value:'Compiled Method:'.
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1007
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1008	(method := module method) isNil ifTrue:[
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1009	nm := ' removed '.
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1010	] ifFalse:[
2619 09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	1011	self canBrowseSelectedModule value:true.
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1012	"/ menu := PopUpMenu
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1013	"/ labels:#('Inspect' 'Browse')
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1014	"/ selectors:#(inspect browse).
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1015	"/ menu actionAt:#inspect put:[ method inspect ].
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1016	"/ menu actionAt:#browse put:[ \|who\|
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1017	"/ who := method who.
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1018	"/ UserPreferences systemBrowserClass
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1019	"/ openInClass:(who methodClass)
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1020	"/ selector:(who methodSelector)
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1021	"/ ].
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1022	"/ listView1 middleButtonMenu:menu.
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1023
2658 c284507a1279 changed: #showInfoForNonClassLib: Claus Gittinger <cg@exept.de> parents: 2624 diff changeset	1024	nm := (method whoString) colorizeAllWith:Color blue.
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1025	].
2773 a3e5bbb440f4 added: #unloadSelectedModuleRemoveConnectedObjects: Stefan Vogel <sv@exept.de> parents: 2763 diff changeset	1026	entries := OrderedCollection new.
2787 21778700b5a4 Fix stc compilation bug (method var and inlined block var with same name) Stefan Vogel <sv@exept.de> parents: 2778 diff changeset	1027	newEntry := InfoRow new.
21778700b5a4 Fix stc compilation bug (method var and inlined block var with same name) Stefan Vogel <sv@exept.de> parents: 2778 diff changeset	1028	newEntry name:'Compiled method'; value:nm.
21778700b5a4 Fix stc compilation bug (method var and inlined block var with same name) Stefan Vogel <sv@exept.de> parents: 2778 diff changeset	1029	entries add:newEntry.
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1030
2787 21778700b5a4 Fix stc compilation bug (method var and inlined block var with same name) Stefan Vogel <sv@exept.de> parents: 2778 diff changeset	1031	newEntry := InfoRow new.
21778700b5a4 Fix stc compilation bug (method var and inlined block var with same name) Stefan Vogel <sv@exept.de> parents: 2778 diff changeset	1032	newEntry name:'Path'; value:fileName.
21778700b5a4 Fix stc compilation bug (method var and inlined block var with same name) Stefan Vogel <sv@exept.de> parents: 2778 diff changeset	1033	entries add:newEntry.
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1034
2773 a3e5bbb440f4 added: #unloadSelectedModuleRemoveConnectedObjects: Stefan Vogel <sv@exept.de> parents: 2763 diff changeset	1035	(method notNil and:[method code notNil]) ifTrue:[
2787 21778700b5a4 Fix stc compilation bug (method var and inlined block var with same name) Stefan Vogel <sv@exept.de> parents: 2778 diff changeset	1036	newEntry := InfoRow new.
21778700b5a4 Fix stc compilation bug (method var and inlined block var with same name) Stefan Vogel <sv@exept.de> parents: 2778 diff changeset	1037	newEntry name:'Address'; value:('(16r) ' , (method code address hexPrintString leftPaddedTo:8 with:$0)).
21778700b5a4 Fix stc compilation bug (method var and inlined block var with same name) Stefan Vogel <sv@exept.de> parents: 2778 diff changeset	1038	entries add:newEntry.
2773 a3e5bbb440f4 added: #unloadSelectedModuleRemoveConnectedObjects: Stefan Vogel <sv@exept.de> parents: 2763 diff changeset	1039	].
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1040
2773 a3e5bbb440f4 added: #unloadSelectedModuleRemoveConnectedObjects: Stefan Vogel <sv@exept.de> parents: 2763 diff changeset	1041	self infoTable2ListHolder value:entries.
2183 517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	1042	self table1VisibleHolder value:false.
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	1043	self table2VisibleHolder value:true.
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1044	^ self.
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1045	].
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1046
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1047	(module isFunctionObjectHandle
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1048	and:[module functions notEmpty]) ifTrue:[
2183 517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	1049	self middleLabelHolder value:'Functions:'.
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1050
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1051	"/ menu := PopUpMenu
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1052	"/ labels:#('Inspect')
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1053	"/ selectors:#(inspect).
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1054	"/ menu actionAt:#inspect put:[ module functions inspect ].
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1055	"/ listView1 middleButtonMenu:menu.
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1056	"/
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1057	list := (module functions select:[:f \| f notNil])
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1058	collect:[:f \| \|entry\|
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1059	entry := InfoRow new.
2658 c284507a1279 changed: #showInfoForNonClassLib: Claus Gittinger <cg@exept.de> parents: 2624 diff changeset	1060	entry name:(f name colorizeAllWith:Color blue).
2183 517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	1061	entry value:('address: (16r) ' , (f code address hexPrintString leftPaddedTo:8 with:$0)).
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1062	entry
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1063	].
2183 517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	1064	self infoTable2ListHolder value:list.
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	1065	self table1VisibleHolder value:false.
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	1066	self table2VisibleHolder value:true.
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1067	^ self.
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1068	].
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1069
2787 21778700b5a4 Fix stc compilation bug (method var and inlined block var with same name) Stefan Vogel <sv@exept.de> parents: 2778 diff changeset	1070	newEntry := InfoRow new.
21778700b5a4 Fix stc compilation bug (method var and inlined block var with same name) Stefan Vogel <sv@exept.de> parents: 2778 diff changeset	1071	newEntry name:'Unknown'.
21778700b5a4 Fix stc compilation bug (method var and inlined block var with same name) Stefan Vogel <sv@exept.de> parents: 2778 diff changeset	1072	self infoTable2ListHolder value:(Array with:newEntry).
2183 517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	1073	self table1VisibleHolder value:false.
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	1074	self table2VisibleHolder value:true.
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1075
2183 517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	1076	"Modified: / 05-10-2007 / 13:01:33 / cg"
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1077	!
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1078
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1079	showInfoForVM
2788 5ea743a4ac48 changed: Stefan Vogel <sv@exept.de> parents: 2787 diff changeset	1080	"show file versions of vm info in lower view."
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1081
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1082	\|l\|
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1083
2619 09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	1084	self canBrowseSelectedModule value:false.
2788 5ea743a4ac48 changed: Stefan Vogel <sv@exept.de> parents: 2787 diff changeset	1085	self middleLabelHolder value:'VM Components:'.
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1086
2788 5ea743a4ac48 changed: Stefan Vogel <sv@exept.de> parents: 2787 diff changeset	1087	l := ObjectMemory getVMIdentificationStrings
5ea743a4ac48 changed: Stefan Vogel <sv@exept.de> parents: 2787 diff changeset	1088	select:[:entry \| (entry includesString:'$Header')
5ea743a4ac48 changed: Stefan Vogel <sv@exept.de> parents: 2787 diff changeset	1089	and:[entry includesString:',v']]
5ea743a4ac48 changed: Stefan Vogel <sv@exept.de> parents: 2787 diff changeset	1090	thenCollect:[:entry \|
5ea743a4ac48 changed: Stefan Vogel <sv@exept.de> parents: 2787 diff changeset	1091	\|i1 i2 file revision date listEntry\|
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1092
2788 5ea743a4ac48 changed: Stefan Vogel <sv@exept.de> parents: 2787 diff changeset	1093	listEntry := InfoRow new.
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1094
2788 5ea743a4ac48 changed: Stefan Vogel <sv@exept.de> parents: 2787 diff changeset	1095	i1 := entry indexOfSubCollection:'librun'.
5ea743a4ac48 changed: Stefan Vogel <sv@exept.de> parents: 2787 diff changeset	1096	i1 ~~ 0 ifTrue:[
5ea743a4ac48 changed: Stefan Vogel <sv@exept.de> parents: 2787 diff changeset	1097	i2 := entry indexOfSubCollection:',v' startingAt:i1.
5ea743a4ac48 changed: Stefan Vogel <sv@exept.de> parents: 2787 diff changeset	1098	i2 ~~ 0 ifTrue:[
5ea743a4ac48 changed: Stefan Vogel <sv@exept.de> parents: 2787 diff changeset	1099	file := entry copyFrom:i1+7 to:(i2-1).
5ea743a4ac48 changed: Stefan Vogel <sv@exept.de> parents: 2787 diff changeset	1100	listEntry name:file.
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1101
2788 5ea743a4ac48 changed: Stefan Vogel <sv@exept.de> parents: 2787 diff changeset	1102	i1 := i2+3.
5ea743a4ac48 changed: Stefan Vogel <sv@exept.de> parents: 2787 diff changeset	1103	i2 := entry indexOfSeparatorStartingAt:i1.
5ea743a4ac48 changed: Stefan Vogel <sv@exept.de> parents: 2787 diff changeset	1104	revision := entry copyFrom:i1 to:(i2-1).
5ea743a4ac48 changed: Stefan Vogel <sv@exept.de> parents: 2787 diff changeset	1105	listEntry version:revision.
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1106
2788 5ea743a4ac48 changed: Stefan Vogel <sv@exept.de> parents: 2787 diff changeset	1107	i1 := i2+1.
5ea743a4ac48 changed: Stefan Vogel <sv@exept.de> parents: 2787 diff changeset	1108	i2 := entry indexOfSeparatorStartingAt:i1.
5ea743a4ac48 changed: Stefan Vogel <sv@exept.de> parents: 2787 diff changeset	1109	date := entry copyFrom:i1 to:(i2-1).
5ea743a4ac48 changed: Stefan Vogel <sv@exept.de> parents: 2787 diff changeset	1110	listEntry date:date.
5ea743a4ac48 changed: Stefan Vogel <sv@exept.de> parents: 2787 diff changeset	1111	].
5ea743a4ac48 changed: Stefan Vogel <sv@exept.de> parents: 2787 diff changeset	1112	].
5ea743a4ac48 changed: Stefan Vogel <sv@exept.de> parents: 2787 diff changeset	1113	listEntry.
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1114	].
2253 a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	1115
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	1116	vmInfoShown := l.
2183 517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	1117	self infoTable1ListHolder value:l.
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	1118	self table1VisibleHolder value:true.
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	1119	self table2VisibleHolder value:false.
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1120
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1121	"/ readOnly ifFalse:[
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1122	"/ unloadButton disable.
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1123	"/ unloadAndRemoveButton disable.
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1124	"/ ]
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1125
2183 517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	1126	"Modified: / 05-10-2007 / 12:53:44 / cg"
2402 5db801ca0e35 item selection index fixed. Claus Gittinger <cg@exept.de> parents: 2343 diff changeset	1127	!
5db801ca0e35 item selection index fixed. Claus Gittinger <cg@exept.de> parents: 2343 diff changeset	1128
5db801ca0e35 item selection index fixed. Claus Gittinger <cg@exept.de> parents: 2343 diff changeset	1129	shownClassNamesFor:info
5db801ca0e35 item selection index fixed. Claus Gittinger <cg@exept.de> parents: 2343 diff changeset	1130	"/ selected a package; fill bottom list with class-info
5db801ca0e35 item selection index fixed. Claus Gittinger <cg@exept.de> parents: 2343 diff changeset	1131
5db801ca0e35 item selection index fixed. Claus Gittinger <cg@exept.de> parents: 2343 diff changeset	1132	\|classNames\|
5db801ca0e35 item selection index fixed. Claus Gittinger <cg@exept.de> parents: 2343 diff changeset	1133
5db801ca0e35 item selection index fixed. Claus Gittinger <cg@exept.de> parents: 2343 diff changeset	1134	classNames := info classNames asSortedCollection.
5db801ca0e35 item selection index fixed. Claus Gittinger <cg@exept.de> parents: 2343 diff changeset	1135	^ classNames
5db801ca0e35 item selection index fixed. Claus Gittinger <cg@exept.de> parents: 2343 diff changeset	1136	select:[:cName \|
5db801ca0e35 item selection index fixed. Claus Gittinger <cg@exept.de> parents: 2343 diff changeset	1137	\|cls\|
5db801ca0e35 item selection index fixed. Claus Gittinger <cg@exept.de> parents: 2343 diff changeset	1138
5db801ca0e35 item selection index fixed. Claus Gittinger <cg@exept.de> parents: 2343 diff changeset	1139	cls := Smalltalk classNamed:cName.
5db801ca0e35 item selection index fixed. Claus Gittinger <cg@exept.de> parents: 2343 diff changeset	1140	cls isNil ifTrue:[
5db801ca0e35 item selection index fixed. Claus Gittinger <cg@exept.de> parents: 2343 diff changeset	1141	true "a removed class"
5db801ca0e35 item selection index fixed. Claus Gittinger <cg@exept.de> parents: 2343 diff changeset	1142	] ifFalse:[
5db801ca0e35 item selection index fixed. Claus Gittinger <cg@exept.de> parents: 2343 diff changeset	1143	cls isPrivate not
5db801ca0e35 item selection index fixed. Claus Gittinger <cg@exept.de> parents: 2343 diff changeset	1144	].
5db801ca0e35 item selection index fixed. Claus Gittinger <cg@exept.de> parents: 2343 diff changeset	1145	].
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1146	! !
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1147
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1148	!ObjectModuleInformation methodsFor:'initialization'!
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1149
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1150	postBuildWith:aBuilder
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1151	\|canDoIt\|
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1152
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1153	super postBuildWith:aBuilder.
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1154
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1155	canDoIt := ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles].
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1156	self showBuiltIn value:canDoIt.
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1157	self showCObjects value:canDoIt.
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1158	self showClassLibs value:canDoIt.
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1159	self showMethods value:canDoIt.
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1160	self showOthers value:canDoIt.
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1161
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1162	self updateModuleList
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1163
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1164	"Created: / 05-10-2007 / 10:50:27 / cg"
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1165	! !
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1166
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1167	!ObjectModuleInformation methodsFor:'menu actions'!
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1168
2253 a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	1169	browseClass
2620 fccbd77a9409 added: #selectedObjectHandle Claus Gittinger <cg@exept.de> parents: 2619 diff changeset	1170	\|info classNames selectedClassName selectedClass\|
2253 a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	1171
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	1172	info := self selectedModuleInfo.
2402 5db801ca0e35 item selection index fixed. Claus Gittinger <cg@exept.de> parents: 2343 diff changeset	1173	classNames := (self shownClassNamesFor:info) asSortedCollection.
2253 a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	1174	selectedClassName := classNames at:(self selectedInfoIndex).
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	1175	selectedClass := Smalltalk classNamed:selectedClassName.
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	1176
2402 5db801ca0e35 item selection index fixed. Claus Gittinger <cg@exept.de> parents: 2343 diff changeset	1177	selectedClass notNil ifTrue:[
5db801ca0e35 item selection index fixed. Claus Gittinger <cg@exept.de> parents: 2343 diff changeset	1178	Smalltalk browseInClass:selectedClass.
5db801ca0e35 item selection index fixed. Claus Gittinger <cg@exept.de> parents: 2343 diff changeset	1179	^ self.
5db801ca0e35 item selection index fixed. Claus Gittinger <cg@exept.de> parents: 2343 diff changeset	1180	].
5db801ca0e35 item selection index fixed. Claus Gittinger <cg@exept.de> parents: 2343 diff changeset	1181
5db801ca0e35 item selection index fixed. Claus Gittinger <cg@exept.de> parents: 2343 diff changeset	1182	"/ clicked on an extensions-module ?
2618 441ede629ea8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	1183	(self isExtensionName:selectedClassName) ifTrue:[
441ede629ea8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	1184	self browseModuleExtensions.
2616 01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	1185	^ self.
2402 5db801ca0e35 item selection index fixed. Claus Gittinger <cg@exept.de> parents: 2343 diff changeset	1186	].
2618 441ede629ea8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	1187
441ede629ea8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	1188	self breakPoint:#cg.
2253 a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	1189	!
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	1190
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	1191	browseModule
2620 fccbd77a9409 added: #selectedObjectHandle Claus Gittinger <cg@exept.de> parents: 2619 diff changeset	1192	\|moduleInfoOrHandle classes method\|
2253 a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	1193
2620 fccbd77a9409 added: #selectedObjectHandle Claus Gittinger <cg@exept.de> parents: 2619 diff changeset	1194	moduleInfoOrHandle := self selectedObjectHandle.
fccbd77a9409 added: #selectedObjectHandle Claus Gittinger <cg@exept.de> parents: 2619 diff changeset	1195	"/ what a hack
fccbd77a9409 added: #selectedObjectHandle Claus Gittinger <cg@exept.de> parents: 2619 diff changeset	1196	(moduleInfoOrHandle isKindOf: ObjectMemory::BinaryModuleDescriptor) ifTrue:[
fccbd77a9409 added: #selectedObjectHandle Claus Gittinger <cg@exept.de> parents: 2619 diff changeset	1197	classes := moduleInfoOrHandle classNames collect:[:nm \| Smalltalk classNamed:nm].
2619 09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	1198	UserPreferences systemBrowserClass
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	1199	browseClasses:classes
2620 fccbd77a9409 added: #selectedObjectHandle Claus Gittinger <cg@exept.de> parents: 2619 diff changeset	1200	label:(resources string:'Classes in %1' with:moduleInfoOrHandle libraryName)
fccbd77a9409 added: #selectedObjectHandle Claus Gittinger <cg@exept.de> parents: 2619 diff changeset	1201	] ifFalse:[
fccbd77a9409 added: #selectedObjectHandle Claus Gittinger <cg@exept.de> parents: 2619 diff changeset	1202	moduleInfoOrHandle isMethodHandle ifTrue:[
fccbd77a9409 added: #selectedObjectHandle Claus Gittinger <cg@exept.de> parents: 2619 diff changeset	1203	method := moduleInfoOrHandle method.
fccbd77a9409 added: #selectedObjectHandle Claus Gittinger <cg@exept.de> parents: 2619 diff changeset	1204	(method notNil and:[method mclass notNil]) ifFalse:[
fccbd77a9409 added: #selectedObjectHandle Claus Gittinger <cg@exept.de> parents: 2619 diff changeset	1205	Dialog information:'The method has been redefined/removed'.
fccbd77a9409 added: #selectedObjectHandle Claus Gittinger <cg@exept.de> parents: 2619 diff changeset	1206	^ self.
fccbd77a9409 added: #selectedObjectHandle Claus Gittinger <cg@exept.de> parents: 2619 diff changeset	1207	].
fccbd77a9409 added: #selectedObjectHandle Claus Gittinger <cg@exept.de> parents: 2619 diff changeset	1208	UserPreferences systemBrowserClass
fccbd77a9409 added: #selectedObjectHandle Claus Gittinger <cg@exept.de> parents: 2619 diff changeset	1209	openInMethod:method
fccbd77a9409 added: #selectedObjectHandle Claus Gittinger <cg@exept.de> parents: 2619 diff changeset	1210	]
fccbd77a9409 added: #selectedObjectHandle Claus Gittinger <cg@exept.de> parents: 2619 diff changeset	1211	].
2253 a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	1212	!
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	1213
2618 441ede629ea8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	1214	browseModuleExtensions
2620 fccbd77a9409 added: #selectedObjectHandle Claus Gittinger <cg@exept.de> parents: 2619 diff changeset	1215	\|info name packageID methods\|
2618 441ede629ea8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	1216
2620 fccbd77a9409 added: #selectedObjectHandle Claus Gittinger <cg@exept.de> parents: 2619 diff changeset	1217	info := self selectedModuleInfo.
2618 441ede629ea8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	1218
2620 fccbd77a9409 added: #selectedObjectHandle Claus Gittinger <cg@exept.de> parents: 2619 diff changeset	1219	name := info classNames detect:[:nm \| self isExtensionName:nm].
2618 441ede629ea8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	1220	packageID := (name copyWithoutLast:('_extensions' size)) asSymbol.
441ede629ea8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	1221	methods := Smalltalk allExtensionsForPackage:packageID.
441ede629ea8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	1222	(UserPreferences browserClass) browseMethods:methods title:('Extensions for ',packageID).
441ede629ea8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	1223	!
441ede629ea8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2617 diff changeset	1224
2763 c36ead4db5bc added: Claus Gittinger <cg@exept.de> parents: 2739 diff changeset	1225	browseModulesProjectDefinition
c36ead4db5bc added: Claus Gittinger <cg@exept.de> parents: 2739 diff changeset	1226	\|projectDefinitionClass\|
c36ead4db5bc added: Claus Gittinger <cg@exept.de> parents: 2739 diff changeset	1227
c36ead4db5bc added: Claus Gittinger <cg@exept.de> parents: 2739 diff changeset	1228	projectDefinitionClass := self projectDefinitionClassOfSelectedModule.
c36ead4db5bc added: Claus Gittinger <cg@exept.de> parents: 2739 diff changeset	1229	projectDefinitionClass notNil ifTrue:[
c36ead4db5bc added: Claus Gittinger <cg@exept.de> parents: 2739 diff changeset	1230	(UserPreferences browserClass) openInClass:projectDefinitionClass class
c36ead4db5bc added: Claus Gittinger <cg@exept.de> parents: 2739 diff changeset	1231	].
c36ead4db5bc added: Claus Gittinger <cg@exept.de> parents: 2739 diff changeset	1232	!
c36ead4db5bc added: Claus Gittinger <cg@exept.de> parents: 2739 diff changeset	1233
2253 a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	1234	copyClassOrVMNameList
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	1235	\|text\|
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	1236
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	1237	text := ((classInfoShown ? vmInfoShown)collect:[:eachRow \| eachRow infoString]) asStringCollection asString.
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	1238	self window setClipboardText:text.
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	1239	!
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	1240
2623 6e7e1b2b961f added: #findClass Claus Gittinger <cg@exept.de> parents: 2620 diff changeset	1241	findClass
6e7e1b2b961f added: #findClass Claus Gittinger <cg@exept.de> parents: 2620 diff changeset	1242	\|class moduleIndex classNamesShown classIndex\|
6e7e1b2b961f added: #findClass Claus Gittinger <cg@exept.de> parents: 2620 diff changeset	1243
6e7e1b2b961f added: #findClass Claus Gittinger <cg@exept.de> parents: 2620 diff changeset	1244	class := Dialog requestClass:'Classname (Tab for completion):'.
6e7e1b2b961f added: #findClass Claus Gittinger <cg@exept.de> parents: 2620 diff changeset	1245	class isEmptyOrNil ifTrue:[^ self].
6e7e1b2b961f added: #findClass Claus Gittinger <cg@exept.de> parents: 2620 diff changeset	1246
6e7e1b2b961f added: #findClass Claus Gittinger <cg@exept.de> parents: 2620 diff changeset	1247	moduleIndex := allModules findFirst:[:module \| module isSymbol not and:[module classNames includes:class name]].
6e7e1b2b961f added: #findClass Claus Gittinger <cg@exept.de> parents: 2620 diff changeset	1248	moduleIndex == 0 ifTrue:[
6e7e1b2b961f added: #findClass Claus Gittinger <cg@exept.de> parents: 2620 diff changeset	1249	Dialog information:'Class is not contained in a loaded or builtIn package.'.
6e7e1b2b961f added: #findClass Claus Gittinger <cg@exept.de> parents: 2620 diff changeset	1250	^ self
6e7e1b2b961f added: #findClass Claus Gittinger <cg@exept.de> parents: 2620 diff changeset	1251	].
6e7e1b2b961f added: #findClass Claus Gittinger <cg@exept.de> parents: 2620 diff changeset	1252	self selectedModuleIndexHolder value:moduleIndex.
6e7e1b2b961f added: #findClass Claus Gittinger <cg@exept.de> parents: 2620 diff changeset	1253
6e7e1b2b961f added: #findClass Claus Gittinger <cg@exept.de> parents: 2620 diff changeset	1254	classNamesShown := self shownClassNamesFor:(self selectedModuleInfo).
6e7e1b2b961f added: #findClass Claus Gittinger <cg@exept.de> parents: 2620 diff changeset	1255	classIndex := classNamesShown indexOf:class name.
6e7e1b2b961f added: #findClass Claus Gittinger <cg@exept.de> parents: 2620 diff changeset	1256	self selectedInfoIndexHolder value:classIndex.
6e7e1b2b961f added: #findClass Claus Gittinger <cg@exept.de> parents: 2620 diff changeset	1257
6e7e1b2b961f added: #findClass Claus Gittinger <cg@exept.de> parents: 2620 diff changeset	1258	"/ module := allModules at:moduleIndex.
6e7e1b2b961f added: #findClass Claus Gittinger <cg@exept.de> parents: 2620 diff changeset	1259	"/ info := self selectedModuleInfo.
6e7e1b2b961f added: #findClass Claus Gittinger <cg@exept.de> parents: 2620 diff changeset	1260	"/ classNames := (self shownClassNamesFor:info) asSortedCollection.
6e7e1b2b961f added: #findClass Claus Gittinger <cg@exept.de> parents: 2620 diff changeset	1261	"/ selectedClassName := classNames at:(self selectedInfoIndex).
6e7e1b2b961f added: #findClass Claus Gittinger <cg@exept.de> parents: 2620 diff changeset	1262	"/ selectedClass := Smalltalk classNamed:selectedClassName.
6e7e1b2b961f added: #findClass Claus Gittinger <cg@exept.de> parents: 2620 diff changeset	1263	"/
6e7e1b2b961f added: #findClass Claus Gittinger <cg@exept.de> parents: 2620 diff changeset	1264	"/ selectedClass notNil ifTrue:[
6e7e1b2b961f added: #findClass Claus Gittinger <cg@exept.de> parents: 2620 diff changeset	1265	"/ Smalltalk browseInClass:selectedClass.
6e7e1b2b961f added: #findClass Claus Gittinger <cg@exept.de> parents: 2620 diff changeset	1266	"/ ^ self.
6e7e1b2b961f added: #findClass Claus Gittinger <cg@exept.de> parents: 2620 diff changeset	1267	"/ ].
6e7e1b2b961f added: #findClass Claus Gittinger <cg@exept.de> parents: 2620 diff changeset	1268	"/
6e7e1b2b961f added: #findClass Claus Gittinger <cg@exept.de> parents: 2620 diff changeset	1269	"/ "/ clicked on an extensions-module ?
6e7e1b2b961f added: #findClass Claus Gittinger <cg@exept.de> parents: 2620 diff changeset	1270	"/ (self isExtensionName:selectedClassName) ifTrue:[
6e7e1b2b961f added: #findClass Claus Gittinger <cg@exept.de> parents: 2620 diff changeset	1271	"/ self browseModuleExtensions.
6e7e1b2b961f added: #findClass Claus Gittinger <cg@exept.de> parents: 2620 diff changeset	1272	"/ ^ self.
6e7e1b2b961f added: #findClass Claus Gittinger <cg@exept.de> parents: 2620 diff changeset	1273	"/ ].
6e7e1b2b961f added: #findClass Claus Gittinger <cg@exept.de> parents: 2620 diff changeset	1274	"/
6e7e1b2b961f added: #findClass Claus Gittinger <cg@exept.de> parents: 2620 diff changeset	1275	"/ self breakPoint:#cg.
6e7e1b2b961f added: #findClass Claus Gittinger <cg@exept.de> parents: 2620 diff changeset	1276	!
6e7e1b2b961f added: #findClass Claus Gittinger <cg@exept.de> parents: 2620 diff changeset	1277
2842 ed699545a9e7 added: #inspectSelectedObject Stefan Vogel <sv@exept.de> parents: 2788 diff changeset	1278	inspectSelectedObject
ed699545a9e7 added: #inspectSelectedObject Stefan Vogel <sv@exept.de> parents: 2788 diff changeset	1279	self selectedObjectHandle inspect.
ed699545a9e7 added: #inspectSelectedObject Stefan Vogel <sv@exept.de> parents: 2788 diff changeset	1280	!
ed699545a9e7 added: #inspectSelectedObject Stefan Vogel <sv@exept.de> parents: 2788 diff changeset	1281
2619 09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	1282	loadPackage
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	1283	\|package ok\|
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	1284
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	1285	package := Dialog request:'Name of Package (module:directory)'.
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	1286	package isEmptyOrNil ifTrue:[^ self].
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	1287	self withWaitCursorDo:[
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	1288	ok := Smalltalk loadPackage:package.
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	1289	].
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	1290	ok ifFalse:[
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	1291	Dialog information:'Package not loaded'
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	1292	].
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	1293	self updateModuleList
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	1294	!
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	1295
2403 11c5c82a852c changed #menuUpdateModuleList Claus Gittinger <cg@exept.de> parents: 2402 diff changeset	1296	menuUpdateModuleList
11c5c82a852c changed #menuUpdateModuleList Claus Gittinger <cg@exept.de> parents: 2402 diff changeset	1297	self updateModuleList
11c5c82a852c changed #menuUpdateModuleList Claus Gittinger <cg@exept.de> parents: 2402 diff changeset	1298
11c5c82a852c changed #menuUpdateModuleList Claus Gittinger <cg@exept.de> parents: 2402 diff changeset	1299	"Modified: / 05-10-2007 / 13:11:45 / cg"
11c5c82a852c changed #menuUpdateModuleList Claus Gittinger <cg@exept.de> parents: 2402 diff changeset	1300	!
11c5c82a852c changed #menuUpdateModuleList Claus Gittinger <cg@exept.de> parents: 2402 diff changeset	1301
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1302	openDocumentation
2184 1ffb97ee0a55 * empty log message * Claus Gittinger <cg@exept.de> parents: 2183 diff changeset	1303	self openHTMLDocument: 'tools/misc/TOP.html#MODULEINFO'
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1304
2184 1ffb97ee0a55 * empty log message * Claus Gittinger <cg@exept.de> parents: 2183 diff changeset	1305	"Modified: / 05-10-2007 / 13:11:45 / cg"
2253 a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	1306	!
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	1307
2619 09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	1308	selectedModulesProjectDefinitionClass
2788 5ea743a4ac48 changed: Stefan Vogel <sv@exept.de> parents: 2787 diff changeset	1309	"try to figure out, what the definitionClass is inside that module.
5ea743a4ac48 changed: Stefan Vogel <sv@exept.de> parents: 2787 diff changeset	1310	in the future, we should always find one there, however, old libs or
5ea743a4ac48 changed: Stefan Vogel <sv@exept.de> parents: 2787 diff changeset	1311	special libraries (hand built) might be without a projectDefinition."
5ea743a4ac48 changed: Stefan Vogel <sv@exept.de> parents: 2787 diff changeset	1312
5ea743a4ac48 changed: Stefan Vogel <sv@exept.de> parents: 2787 diff changeset	1313	\|info classNames definitionClasses libraryName\|
2619 09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	1314
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	1315	info := self selectedModuleInfo.
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	1316	classNames := (self shownClassNamesFor:info) asSortedCollection.
2788 5ea743a4ac48 changed: Stefan Vogel <sv@exept.de> parents: 2787 diff changeset	1317	definitionClasses := classNames ? #()
5ea743a4ac48 changed: Stefan Vogel <sv@exept.de> parents: 2787 diff changeset	1318	collect:[:nm \| Smalltalk classNamed:nm]
5ea743a4ac48 changed: Stefan Vogel <sv@exept.de> parents: 2787 diff changeset	1319	thenSelect:[:cls \| cls isProjectDefinition].
5ea743a4ac48 changed: Stefan Vogel <sv@exept.de> parents: 2787 diff changeset	1320
2619 09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	1321	definitionClasses size == 1 ifTrue:[
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	1322	^ definitionClasses first
2788 5ea743a4ac48 changed: Stefan Vogel <sv@exept.de> parents: 2787 diff changeset	1323	] ifFalse:[
5ea743a4ac48 changed: Stefan Vogel <sv@exept.de> parents: 2787 diff changeset	1324	"/ 0 or more definition classes - fall back - some heuristics...
5ea743a4ac48 changed: Stefan Vogel <sv@exept.de> parents: 2787 diff changeset	1325	libraryName := info libraryName. "maybe something like 'libstx_libbasic'"
5ea743a4ac48 changed: Stefan Vogel <sv@exept.de> parents: 2787 diff changeset	1326	(libraryName notNil and:[ libraryName startsWith:'lib' ]) ifTrue:[
5ea743a4ac48 changed: Stefan Vogel <sv@exept.de> parents: 2787 diff changeset	1327	^ Smalltalk classNamed:(libraryName copyFrom:4).
5ea743a4ac48 changed: Stefan Vogel <sv@exept.de> parents: 2787 diff changeset	1328	].
2619 09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	1329	].
2788 5ea743a4ac48 changed: Stefan Vogel <sv@exept.de> parents: 2787 diff changeset	1330
2619 09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	1331	^ nil
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	1332	!
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	1333
2254 06ada9ab1a8a * empty log message * Claus Gittinger <cg@exept.de> parents: 2253 diff changeset	1334	unloadSelectedModule
2773 a3e5bbb440f4 added: #unloadSelectedModuleRemoveConnectedObjects: Stefan Vogel <sv@exept.de> parents: 2763 diff changeset	1335	self unloadSelectedModuleRemoveConnectedObjects:false
2253 a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	1336	!
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	1337
2254 06ada9ab1a8a * empty log message * Claus Gittinger <cg@exept.de> parents: 2253 diff changeset	1338	unloadSelectedModuleAndRemoveClasses
2773 a3e5bbb440f4 added: #unloadSelectedModuleRemoveConnectedObjects: Stefan Vogel <sv@exept.de> parents: 2763 diff changeset	1339	self unloadSelectedModuleRemoveConnectedObjects:true
2253 a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	1340	!
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	1341
2773 a3e5bbb440f4 added: #unloadSelectedModuleRemoveConnectedObjects: Stefan Vogel <sv@exept.de> parents: 2763 diff changeset	1342	unloadSelectedModuleRemoveConnectedObjects:doRemoveClasses
a3e5bbb440f4 added: #unloadSelectedModuleRemoveConnectedObjects: Stefan Vogel <sv@exept.de> parents: 2763 diff changeset	1343	\|module handle\|
2739 8efd89a9863d changed: Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	1344
8efd89a9863d changed: Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	1345	module := allModules at:self selectedModuleIndex ifAbsent:nil.
8efd89a9863d changed: Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	1346	module notNil ifTrue:[
8efd89a9863d changed: Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	1347	(Dialog
8efd89a9863d changed: Claus Gittinger <cg@exept.de> parents: 2658 diff changeset	1348	confirm:'This is a possibly dangerous operation, as the DLL is unloaded without caring for
2619 09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	1349	proper package-deinstallation procedures. Please use this only in repair situations and when the
2616 01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	1350	regular unloadPackage operation fails.
01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	1351
2773 a3e5bbb440f4 added: #unloadSelectedModuleRemoveConnectedObjects: Stefan Vogel <sv@exept.de> parents: 2763 diff changeset	1352	Continue ?')
a3e5bbb440f4 added: #unloadSelectedModuleRemoveConnectedObjects: Stefan Vogel <sv@exept.de> parents: 2763 diff changeset	1353	ifFalse:[ ^ self ].
2616 01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	1354	].
2778 6d59e67bcd8a Fix dll unloading Stefan Vogel <sv@exept.de> parents: 2773 diff changeset	1355	handle := module handle.
2773 a3e5bbb440f4 added: #unloadSelectedModuleRemoveConnectedObjects: Stefan Vogel <sv@exept.de> parents: 2763 diff changeset	1356	handle notNil ifTrue:[
a3e5bbb440f4 added: #unloadSelectedModuleRemoveConnectedObjects: Stefan Vogel <sv@exept.de> parents: 2763 diff changeset	1357	self
a3e5bbb440f4 added: #unloadSelectedModuleRemoveConnectedObjects: Stefan Vogel <sv@exept.de> parents: 2763 diff changeset	1358	withWaitCursorDo:[
a3e5bbb440f4 added: #unloadSelectedModuleRemoveConnectedObjects: Stefan Vogel <sv@exept.de> parents: 2763 diff changeset	1359	self selectedModuleIndexHolder value:nil.
a3e5bbb440f4 added: #unloadSelectedModuleRemoveConnectedObjects: Stefan Vogel <sv@exept.de> parents: 2763 diff changeset	1360	doRemoveClasses ifTrue:[
a3e5bbb440f4 added: #unloadSelectedModuleRemoveConnectedObjects: Stefan Vogel <sv@exept.de> parents: 2763 diff changeset	1361	handle removeConnectedObjects.
a3e5bbb440f4 added: #unloadSelectedModuleRemoveConnectedObjects: Stefan Vogel <sv@exept.de> parents: 2763 diff changeset	1362	].
a3e5bbb440f4 added: #unloadSelectedModuleRemoveConnectedObjects: Stefan Vogel <sv@exept.de> parents: 2763 diff changeset	1363	handle unload.
a3e5bbb440f4 added: #unloadSelectedModuleRemoveConnectedObjects: Stefan Vogel <sv@exept.de> parents: 2763 diff changeset	1364	self updateModuleList.
a3e5bbb440f4 added: #unloadSelectedModuleRemoveConnectedObjects: Stefan Vogel <sv@exept.de> parents: 2763 diff changeset	1365	].
2253 a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	1366	]
2619 09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	1367	!
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	1368
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	1369	unloadSelectedModulesPackage
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	1370	\|definitionClass\|
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	1371
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	1372	definitionClass := self selectedModulesProjectDefinitionClass.
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	1373	definitionClass isNil ifTrue:[^ self].
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	1374
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	1375	(Dialog
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	1376	confirm:(resources stringWithCRs:'About to unload the package\\ %1\\Continue' with:definitionClass package allBold))
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	1377	ifFalse:[
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	1378	^ self
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	1379	].
09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	1380	Smalltalk unloadPackage:definitionClass package.
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1381	! !
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1382
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1383	!ObjectModuleInformation methodsFor:'private'!
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1384
2183 517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	1385	filterChanged
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	1386	self updateModuleList
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	1387
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	1388	"Created: / 05-10-2007 / 12:43:36 / cg"
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	1389	!
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	1390
2763 c36ead4db5bc added: Claus Gittinger <cg@exept.de> parents: 2739 diff changeset	1391	projectDefinitionClassOfSelectedModule
c36ead4db5bc added: Claus Gittinger <cg@exept.de> parents: 2739 diff changeset	1392	\|info packageID projectDefinitionClass\|
c36ead4db5bc added: Claus Gittinger <cg@exept.de> parents: 2739 diff changeset	1393
c36ead4db5bc added: Claus Gittinger <cg@exept.de> parents: 2739 diff changeset	1394	info := self selectedModuleInfo.
c36ead4db5bc added: Claus Gittinger <cg@exept.de> parents: 2739 diff changeset	1395	info isNil ifTrue:[^ nil].
c36ead4db5bc added: Claus Gittinger <cg@exept.de> parents: 2739 diff changeset	1396
c36ead4db5bc added: Claus Gittinger <cg@exept.de> parents: 2739 diff changeset	1397	info classNames
c36ead4db5bc added: Claus Gittinger <cg@exept.de> parents: 2739 diff changeset	1398	detect:[:nm \|
c36ead4db5bc added: Claus Gittinger <cg@exept.de> parents: 2739 diff changeset	1399	\|cls\|
c36ead4db5bc added: Claus Gittinger <cg@exept.de> parents: 2739 diff changeset	1400
c36ead4db5bc added: Claus Gittinger <cg@exept.de> parents: 2739 diff changeset	1401	cls := Smalltalk at:nm.
c36ead4db5bc added: Claus Gittinger <cg@exept.de> parents: 2739 diff changeset	1402	cls notNil ifTrue:[
c36ead4db5bc added: Claus Gittinger <cg@exept.de> parents: 2739 diff changeset	1403	packageID := cls package.
c36ead4db5bc added: Claus Gittinger <cg@exept.de> parents: 2739 diff changeset	1404	true
c36ead4db5bc added: Claus Gittinger <cg@exept.de> parents: 2739 diff changeset	1405	] ifFalse:[
c36ead4db5bc added: Claus Gittinger <cg@exept.de> parents: 2739 diff changeset	1406	false
c36ead4db5bc added: Claus Gittinger <cg@exept.de> parents: 2739 diff changeset	1407	]
c36ead4db5bc added: Claus Gittinger <cg@exept.de> parents: 2739 diff changeset	1408	]
c36ead4db5bc added: Claus Gittinger <cg@exept.de> parents: 2739 diff changeset	1409	ifNone:[^ nil].
c36ead4db5bc added: Claus Gittinger <cg@exept.de> parents: 2739 diff changeset	1410
c36ead4db5bc added: Claus Gittinger <cg@exept.de> parents: 2739 diff changeset	1411	projectDefinitionClass := packageID asPackageId projectDefinitionClass.
c36ead4db5bc added: Claus Gittinger <cg@exept.de> parents: 2739 diff changeset	1412	^ projectDefinitionClass
c36ead4db5bc added: Claus Gittinger <cg@exept.de> parents: 2739 diff changeset	1413	!
c36ead4db5bc added: Claus Gittinger <cg@exept.de> parents: 2739 diff changeset	1414
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1415	updateModuleList
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1416	\|showClassLibs showBuiltIn showMethods showCObjects showOthers
2620 fccbd77a9409 added: #selectedObjectHandle Claus Gittinger <cg@exept.de> parents: 2619 diff changeset	1417	listOfModuleNames allObjects handles methodObjects \|
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1418
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1419	showClassLibs := self showClassLibs value.
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1420	showBuiltIn := self showBuiltIn value.
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1421	showMethods := self showMethods value.
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1422	showCObjects := self showCObjects value.
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1423	showOthers := self showOthers value.
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1424
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1425	listOfModuleNames := OrderedCollection new.
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1426	handles := OrderedCollection new.
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1427
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1428	allObjects := ObjectFileLoader loadedObjectHandles.
2620 fccbd77a9409 added: #selectedObjectHandle Claus Gittinger <cg@exept.de> parents: 2619 diff changeset	1429	methodObjects := (allObjects select:[:h \| h isMethodHandle]) asArray.
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1430
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1431	(showClassLibs or:[showBuiltIn]) ifTrue:[
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1432	\|moduleNames\|
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1433
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1434	allModules := ObjectMemory binaryModuleInfo asOrderedCollection.
2620 fccbd77a9409 added: #selectedObjectHandle Claus Gittinger <cg@exept.de> parents: 2619 diff changeset	1435	allModules := allModules select:
fccbd77a9409 added: #selectedObjectHandle Claus Gittinger <cg@exept.de> parents: 2619 diff changeset	1436	[:i \|
fccbd77a9409 added: #selectedObjectHandle Claus Gittinger <cg@exept.de> parents: 2619 diff changeset	1437	\|wantToSee\|
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1438
2620 fccbd77a9409 added: #selectedObjectHandle Claus Gittinger <cg@exept.de> parents: 2619 diff changeset	1439	wantToSee := false.
fccbd77a9409 added: #selectedObjectHandle Claus Gittinger <cg@exept.de> parents: 2619 diff changeset	1440	i dynamic ifTrue:[
fccbd77a9409 added: #selectedObjectHandle Claus Gittinger <cg@exept.de> parents: 2619 diff changeset	1441	showClassLibs ifTrue:[
fccbd77a9409 added: #selectedObjectHandle Claus Gittinger <cg@exept.de> parents: 2619 diff changeset	1442	i isSingleMethod ifFalse:[
fccbd77a9409 added: #selectedObjectHandle Claus Gittinger <cg@exept.de> parents: 2619 diff changeset	1443	wantToSee := true
fccbd77a9409 added: #selectedObjectHandle Claus Gittinger <cg@exept.de> parents: 2619 diff changeset	1444	].
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1445	].
2620 fccbd77a9409 added: #selectedObjectHandle Claus Gittinger <cg@exept.de> parents: 2619 diff changeset	1446	] ifFalse:[
fccbd77a9409 added: #selectedObjectHandle Claus Gittinger <cg@exept.de> parents: 2619 diff changeset	1447	showBuiltIn ifTrue:[
fccbd77a9409 added: #selectedObjectHandle Claus Gittinger <cg@exept.de> parents: 2619 diff changeset	1448	wantToSee := true
fccbd77a9409 added: #selectedObjectHandle Claus Gittinger <cg@exept.de> parents: 2619 diff changeset	1449	].
fccbd77a9409 added: #selectedObjectHandle Claus Gittinger <cg@exept.de> parents: 2619 diff changeset	1450	].
fccbd77a9409 added: #selectedObjectHandle Claus Gittinger <cg@exept.de> parents: 2619 diff changeset	1451	wantToSee
fccbd77a9409 added: #selectedObjectHandle Claus Gittinger <cg@exept.de> parents: 2619 diff changeset	1452	].
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1453
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1454	"/ sorting by reverse id brings newest ones to the top (a side effect)
2623 6e7e1b2b961f added: #findClass Claus Gittinger <cg@exept.de> parents: 2620 diff changeset	1455	allModules sort:[:a :b \| (a name) < (b name)].
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1456	moduleNames := allModules collect:[:entry \| entry name].
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1457	listOfModuleNames addAll:moduleNames.
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1458	handles addAll:allModules.
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1459	].
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1460
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1461	showMethods ifTrue:[
2620 fccbd77a9409 added: #selectedObjectHandle Claus Gittinger <cg@exept.de> parents: 2619 diff changeset	1462	\|methodNames\|
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1463
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1464	methodNames := methodObjects collect:[:mH \| mH method isNil ifTrue:[
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1465	'compiled method - removed' " , ' (in ' , mH pathName , ')' "
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1466	] ifFalse:[
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1467	'compiled method ' , mH method whoString " , ' (in ' , mH pathName , ')' "
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1468	].
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1469	].
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1470	listOfModuleNames addAll:methodNames.
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1471	handles addAll:methodObjects.
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1472	].
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1473
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1474	showCObjects ifTrue:[
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1475	\|cObjects cObjectNames\|
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1476
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1477	cObjects := (allObjects select:[:h \| h isFunctionObjectHandle]) asArray.
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1478	cObjectNames := cObjects collect:[:entry \| entry pathName].
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1479	listOfModuleNames addAll:cObjectNames.
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1480	handles addAll:cObjects.
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1481	].
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1482
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1483	showOthers ifTrue:[
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1484	\|otherObjects otherObjectNames\|
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1485
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1486	otherObjects := (allObjects select:[:h \| (h isFunctionObjectHandle
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1487	or:[h isMethodHandle
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1488	or:[h isClassLibHandle]]) not]) asArray.
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1489	otherObjectNames := otherObjects collect:[:entry \| entry pathName].
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1490	listOfModuleNames addAll:otherObjectNames.
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1491	handles addAll:otherObjects.
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1492	].
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1493
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1494	showBuiltIn ifTrue:[
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1495	listOfModuleNames addFirst:'VM'.
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1496	handles addFirst:#VM.
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1497	allModules addFirst:#VM.
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1498	].
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1499
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1500	self listOfModuleNames contents:listOfModuleNames.
2183 517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	1501	objectHandles := handles.
2619 09ab6a49e5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	1502	self selectedModuleIndexChanged.
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1503
2183 517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	1504	"Modified: / 05-10-2007 / 12:45:37 / cg"
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1505	! !
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1506
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1507	!ObjectModuleInformation::InfoRow methodsFor:'accessing'!
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1508
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1509	date
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1510	^ date
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1511	!
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1512
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1513	date:something
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1514	date := something.
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1515	!
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1516
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1517	name
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1518	^ name
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1519	!
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1520
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1521	name:something
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1522	name := something.
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1523	!
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1524
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1525	name:nameArg version:versionArg date:dateArg
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1526	name := nameArg.
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1527	version := versionArg.
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1528	date := dateArg.
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1529	!
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1530
2183 517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	1531	value
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	1532	^ value
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	1533	!
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	1534
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	1535	value:something
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	1536	value := something.
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	1537	!
517b70cb2de7 * empty log message * Claus Gittinger <cg@exept.de> parents: 2181 diff changeset	1538
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1539	version
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1540	^ version
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1541	!
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1542
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1543	version:something
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1544	version := something.
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1545	! !
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1546
2253 a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	1547	!ObjectModuleInformation::InfoRow methodsFor:'info'!
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	1548
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	1549	infoString
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	1550	^ name , ' ', (version ? '-') , ' ', (date ? '-') printString
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	1551	! !
a282d11e1ec4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	1552
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1553	!ObjectModuleInformation class methodsFor:'documentation'!
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1554
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1555	version
93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1556	^ '$Header$'
2616 01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	1557	!
01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	1558
01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	1559	version_CVS
01e597429c47 preps for package unloading Claus Gittinger <cg@exept.de> parents: 2403 diff changeset	1560	^ '$Header$'
2181 93db2a1edbe6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1561	! !
2957 299bc0925dab class: Tools::ObjectModuleInformation Claus Gittinger <cg@exept.de> parents: 2860 diff changeset	1562

author	Claus Gittinger <cg@exept.de>
	Mon, 11 Mar 2013 19:39:52 +0100
changeset 2968	ceb6bb9078db
parent 2957	299bc0925dab
child 2977	2f7cc2452dd7
permissions	-rw-r--r--