hg/stx-libtool: CodeGeneratorTool.st@9a2003a4fef3 (annotated)

5141 ffd2a0198999 * empty log message * Claus Gittinger <cg@exept.de> parents: 5124 diff changeset	1	"
ffd2a0198999 * empty log message * Claus Gittinger <cg@exept.de> parents: 5124 diff changeset	2	COPYRIGHT (c) 2002 by eXept Software AG
ffd2a0198999 * empty log message * Claus Gittinger <cg@exept.de> parents: 5124 diff changeset	3	All Rights Reserved
ffd2a0198999 * empty log message * Claus Gittinger <cg@exept.de> parents: 5124 diff changeset	4
ffd2a0198999 * empty log message * Claus Gittinger <cg@exept.de> parents: 5124 diff changeset	5	This software is furnished under a license and may be used
ffd2a0198999 * empty log message * Claus Gittinger <cg@exept.de> parents: 5124 diff changeset	6	only in accordance with the terms of that license and with the
ffd2a0198999 * empty log message * Claus Gittinger <cg@exept.de> parents: 5124 diff changeset	7	inclusion of the above copyright notice. This software may not
ffd2a0198999 * empty log message * Claus Gittinger <cg@exept.de> parents: 5124 diff changeset	8	be provided or otherwise made available to, or used by, any
ffd2a0198999 * empty log message * Claus Gittinger <cg@exept.de> parents: 5124 diff changeset	9	other person. No title to or ownership of the software is
ffd2a0198999 * empty log message * Claus Gittinger <cg@exept.de> parents: 5124 diff changeset	10	hereby transferred.
ffd2a0198999 * empty log message * Claus Gittinger <cg@exept.de> parents: 5124 diff changeset	11	"
3712 293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	12	"{ Package: 'stx:libtool' }"
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	13
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	14	Object subclass:#CodeGeneratorTool
8572 beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	15	instanceVariableNames:'compositeChangeCollector compositeChangeNesting userPreferences
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	16	generateComments'
8258 77eecb901a6a copyrights Claus Gittinger <cg@exept.de> parents: 7973 diff changeset	17	classVariableNames:'GenerateCommentsForGetters GenerateCommentsForSetters
77eecb901a6a copyrights Claus Gittinger <cg@exept.de> parents: 7973 diff changeset	18	CopyrightTemplate'
3712 293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	19	poolDictionaries:''
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	20	category:'Interface-Browsers'
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	21	!
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	22
3719 d7f6eb94a693 * empty log message * Claus Gittinger <cg@exept.de> parents: 3716 diff changeset	23	!CodeGeneratorTool class methodsFor:'documentation'!
d7f6eb94a693 * empty log message * Claus Gittinger <cg@exept.de> parents: 3716 diff changeset	24
5141 ffd2a0198999 * empty log message * Claus Gittinger <cg@exept.de> parents: 5124 diff changeset	25	copyright
ffd2a0198999 * empty log message * Claus Gittinger <cg@exept.de> parents: 5124 diff changeset	26	"
ffd2a0198999 * empty log message * Claus Gittinger <cg@exept.de> parents: 5124 diff changeset	27	COPYRIGHT (c) 2002 by eXept Software AG
ffd2a0198999 * empty log message * Claus Gittinger <cg@exept.de> parents: 5124 diff changeset	28	All Rights Reserved
ffd2a0198999 * empty log message * Claus Gittinger <cg@exept.de> parents: 5124 diff changeset	29
ffd2a0198999 * empty log message * Claus Gittinger <cg@exept.de> parents: 5124 diff changeset	30	This software is furnished under a license and may be used
ffd2a0198999 * empty log message * Claus Gittinger <cg@exept.de> parents: 5124 diff changeset	31	only in accordance with the terms of that license and with the
ffd2a0198999 * empty log message * Claus Gittinger <cg@exept.de> parents: 5124 diff changeset	32	inclusion of the above copyright notice. This software may not
ffd2a0198999 * empty log message * Claus Gittinger <cg@exept.de> parents: 5124 diff changeset	33	be provided or otherwise made available to, or used by, any
ffd2a0198999 * empty log message * Claus Gittinger <cg@exept.de> parents: 5124 diff changeset	34	other person. No title to or ownership of the software is
ffd2a0198999 * empty log message * Claus Gittinger <cg@exept.de> parents: 5124 diff changeset	35	hereby transferred.
ffd2a0198999 * empty log message * Claus Gittinger <cg@exept.de> parents: 5124 diff changeset	36	"
ffd2a0198999 * empty log message * Claus Gittinger <cg@exept.de> parents: 5124 diff changeset	37	!
ffd2a0198999 * empty log message * Claus Gittinger <cg@exept.de> parents: 5124 diff changeset	38
3719 d7f6eb94a693 * empty log message * Claus Gittinger <cg@exept.de> parents: 3716 diff changeset	39	documentation
d7f6eb94a693 * empty log message * Claus Gittinger <cg@exept.de> parents: 3716 diff changeset	40	"
5013 0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	41	This utility class contains various code generation facilites;
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	42	these were extracted from the old and newBrowser.
6791 6559c9ebb561 Keep method argument names when generating required methods Stefan Vogel <sv@exept.de> parents: 6718 diff changeset	43	There is probably more to come...
3719 d7f6eb94a693 * empty log message * Claus Gittinger <cg@exept.de> parents: 3716 diff changeset	44
d7f6eb94a693 * empty log message * Claus Gittinger <cg@exept.de> parents: 3716 diff changeset	45	[author:]
d7f6eb94a693 * empty log message * Claus Gittinger <cg@exept.de> parents: 3716 diff changeset	46	Claus Gittiner
d7f6eb94a693 * empty log message * Claus Gittinger <cg@exept.de> parents: 3716 diff changeset	47	"
d7f6eb94a693 * empty log message * Claus Gittinger <cg@exept.de> parents: 3716 diff changeset	48	! !
3712 293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	49
8572 beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	50	!CodeGeneratorTool class methodsFor:'instance creation'!
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	51
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	52	new
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	53	^ self basicNew initialize.
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	54	! !
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	55
3712 293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	56	!CodeGeneratorTool class methodsFor:'code generation'!
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	57
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	58	createAccessMethodsFor:aCollectionOfVarNames in:aClass withChange:withChange asValueHolder:asValueHolder readersOnly:readersOnly writersOnly:writersOnly
5013 0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	59	"create accessors in aClass"
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	60
5758 8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	61	^ self new
6313 e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	62	createAccessMethodsFor:aCollectionOfVarNames
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	63	in:aClass
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	64	withChange:withChange
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	65	asValueHolder:asValueHolder
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	66	readersOnly:readersOnly
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	67	writersOnly:writersOnly
4444 6b077945517c generate instvar accessors with lazy-init Claus Gittinger <cg@exept.de> parents: 4351 diff changeset	68	!
6b077945517c generate instvar accessors with lazy-init Claus Gittinger <cg@exept.de> parents: 4351 diff changeset	69
3712 293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	70	createApplicationCodeFor:aClass
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	71	"create an empty application framework"
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	72
5758 8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	73	^ self new createApplicationCodeFor:aClass
3712 293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	74	!
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	75
3804 d2bc07d678f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3800 diff changeset	76	createClassResponsibleProtocolFor:aClass
d2bc07d678f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3800 diff changeset	77	"create stubs for the required protocol"
d2bc07d678f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3800 diff changeset	78
5758 8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	79	^ self new createClassResponsibleProtocolFor:aClass
3804 d2bc07d678f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3800 diff changeset	80	!
d2bc07d678f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3800 diff changeset	81
5124 487a63f34ac0 * empty log message * Claus Gittinger <cg@exept.de> parents: 5013 diff changeset	82	createClassTypeTestMethodsIn:aClass forClasses:subClasses
5013 0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	83	"create a #isXXX test methods (I'm tired of typing)"
4351 cc4739c4797b create test methods Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	84
5758 8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	85	^ self new createClassTypeTestMethodsIn:aClass forClasses:subClasses
4351 cc4739c4797b create test methods Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	86	!
cc4739c4797b create test methods Claus Gittinger <cg@exept.de> parents: 4108 diff changeset	87
3712 293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	88	createDocumentationMethodsFor:aClass
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	89	"create empty documentation methods"
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	90
5758 8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	91	^ self new createDocumentationMethodsFor:aClass
3712 293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	92	!
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	93
6313 e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	94	createEnumTypeCodeFor:aClass
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	95	^ self new createEnumTypeCodeFor:aClass
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	96	!
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	97
6718 d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	98	createInitializedInstanceCreationMethodsIn:aClass
5013 0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	99	"create a #new and #initialize methods (I'm tired of typing)"
3712 293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	100
6718 d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	101	^ self new createInitializedInstanceCreationMethodsIn:aClass
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	102	!
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	103
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	104	createParametrizedInstanceCreationMethodsNamed:selector in:aClass
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	105	"create a #selector instance creation method (I'm tired of typing)"
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	106
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	107	^ self new createParametrizedInstanceCreationMethodsNamed:selector in:aClass
3712 293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	108	!
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	109
8344 efda36a55d02 changed #createRedefinedInstanceCreationMethodsIn: Claus Gittinger <cg@exept.de> parents: 8258 diff changeset	110	createRedefinedInstanceCreationMethodsIn:aClass
efda36a55d02 changed #createRedefinedInstanceCreationMethodsIn: Claus Gittinger <cg@exept.de> parents: 8258 diff changeset	111	"create a redefined #new method"
efda36a55d02 changed #createRedefinedInstanceCreationMethodsIn: Claus Gittinger <cg@exept.de> parents: 8258 diff changeset	112
efda36a55d02 changed #createRedefinedInstanceCreationMethodsIn: Claus Gittinger <cg@exept.de> parents: 8258 diff changeset	113	^ self new createRedefinedInstanceCreationMethodsIn:aClass
efda36a55d02 changed #createRedefinedInstanceCreationMethodsIn: Claus Gittinger <cg@exept.de> parents: 8258 diff changeset	114	!
efda36a55d02 changed #createRedefinedInstanceCreationMethodsIn: Claus Gittinger <cg@exept.de> parents: 8258 diff changeset	115
9049 9a2003a4fef3 added: #createStartupCodeFor:forStartOf: Claus Gittinger <cg@exept.de> parents: 9044 diff changeset	116	createStartupCodeFor:aClass forStartOf:anApplicationClass
9a2003a4fef3 added: #createStartupCodeFor:forStartOf: Claus Gittinger <cg@exept.de> parents: 9044 diff changeset	117	"create standAloneStartup code"
9a2003a4fef3 added: #createStartupCodeFor:forStartOf: Claus Gittinger <cg@exept.de> parents: 9044 diff changeset	118
9a2003a4fef3 added: #createStartupCodeFor:forStartOf: Claus Gittinger <cg@exept.de> parents: 9044 diff changeset	119	^ self new createStartupCodeFor:aClass forStartOf:anApplicationClass
9a2003a4fef3 added: #createStartupCodeFor:forStartOf: Claus Gittinger <cg@exept.de> parents: 9044 diff changeset	120	!
9a2003a4fef3 added: #createStartupCodeFor:forStartOf: Claus Gittinger <cg@exept.de> parents: 9044 diff changeset	121
3712 293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	122	createTestCaseSampleCodeFor:aClass
4590 2447e35a81d4 testCase stub code Claus Gittinger <cg@exept.de> parents: 4512 diff changeset	123	"create an (almost) empty testCase class"
3712 293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	124
5758 8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	125	^ self new createTestCaseSampleCodeFor:aClass
3712 293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	126	!
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	127
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	128	createVisitorMethodsIn:visitedClass andVisitorClass:visitorClass
5013 0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	129	"create acceptVisitor: in visitedClass and acceptXXX in visitorClass. (I'm tired of typing)"
3712 293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	130
5758 8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	131	^ self new createVisitorMethodsIn:visitedClass andVisitorClass:visitorClass
3712 293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	132	!
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	133
6050 300b21c10c71 * empty log message * ca parents: 5953 diff changeset	134	createWebApplicationCodeFor:aClass
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	135	"create an empty webApplication framework"
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	136
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	137	^ self new createWebApplicationCodeFor:aClass
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	138	!
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	139
7973 7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	140	createWebServiceCodeFor:aClass
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	141	"create an empty webService framework"
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	142
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	143	^ self new createWebServiceCodeFor:aClass
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	144	!
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	145
8572 beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	146	createWidgetCodeFor:aClass
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	147	"create usually required widget code (redraw, model update, event handling)"
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	148
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	149	^ self new createWidgetCodeFor:aClass
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	150	!
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	151
3712 293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	152	initialMenuSpecMethodSourceForApplications
5013 0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	153	"return a menuSpec with typical stuff in it"
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	154
3712 293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	155	^
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	156	'mainMenu
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	157	"This resource specification was automatically generated by the CodeGeneratorTool."
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	158
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	159	"Do not manually edit this!! If it is corrupted,
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	160	the MenuEditor may not be able to read the specification."
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	161
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	162	"
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	163	MenuEditor new openOnClass:%1 andSelector:#mainMenu
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	164	"
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	165
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	166	<resource: #menu>
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	167
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	168	^ #(#Menu
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	169	#(
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	170	#(#MenuItem
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	171	#label: ''File''
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	172	#translateLabel: true
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	173	#submenu:
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	174	#(#Menu
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	175	#(
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	176	#(#MenuItem
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	177	#label: ''New''
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	178	#translateLabel: true
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	179	#value: #menuNew
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	180	)
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	181	#(#MenuItem
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	182	#label: ''-''
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	183	)
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	184	#(#MenuItem
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	185	#label: ''Open...''
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	186	#translateLabel: true
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	187	#value: #menuOpen
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	188	)
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	189	#(#MenuItem
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	190	#label: ''-''
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	191	)
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	192	#(#MenuItem
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	193	#label: ''Save''
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	194	#translateLabel: true
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	195	#value: #menuSave
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	196	)
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	197	#(#MenuItem
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	198	#label: ''Save As...''
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	199	#translateLabel: true
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	200	#value: #menuSaveAs
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	201	)
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	202	#(#MenuItem
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	203	#label: ''-''
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	204	)
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	205	#(#MenuItem
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	206	#label: ''Exit''
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	207	#translateLabel: true
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	208	#value: #closeRequest
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	209	)
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	210	) nil
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	211	nil
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	212	)
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	213	)
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	214	#(#MenuItem
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	215	#label: ''Help''
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	216	#translateLabel: true
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	217	#startGroup: #right
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	218	#submenu:
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	219	#(#Menu
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	220	#(
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	221	#(#MenuItem
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	222	#label: ''Documentation''
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	223	#translateLabel: true
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	224	#value: #openDocumentation
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	225	)
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	226	#(#MenuItem
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	227	#label: ''-''
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	228	)
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	229	#(#MenuItem
6643 abd4749a00ae * empty log message * Claus Gittinger <cg@exept.de> parents: 6350 diff changeset	230	#label: ''About this Application...''
3712 293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	231	#translateLabel: true
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	232	#value: #openAboutThisApplication
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	233	)
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	234	) nil
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	235	nil
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	236	)
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	237	)
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	238	) nil
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	239	nil
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	240	)
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	241	'.
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	242	!
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	243
7973 7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	244	initialPageMenuSpec
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	245	"return a menuSpec with typical stuff in it"
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	246
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	247	"This resource specification was automatically generated by the CodeGeneratorTool."
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	248
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	249	"Do not manually edit this!! If it is corrupted,
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	250	the MenuEditor may not be able to read the specification."
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	251
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	252	"
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	253	MenuEditor new openOnClass:%1 andSelector:#mainMenu
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	254	"
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	255
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	256	<resource: #menu>
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	257
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	258	^ #(#Menu
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	259	#(
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	260	#(#MenuItem
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	261	#label: 'AAA'
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	262	#translateLabel: true
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	263	#submenu:
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	264	#(#Menu
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	265	#(
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	266	#(#MenuItem
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	267	#label: 'New'
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	268	#translateLabel: true
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	269	#value: #menuNew
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	270	)
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	271	#(#MenuItem
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	272	#label: '-'
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	273	)
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	274	#(#MenuItem
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	275	#label: 'Open...'
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	276	#translateLabel: true
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	277	#value: #menuOpen
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	278	)
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	279	#(#MenuItem
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	280	#label: '-'
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	281	)
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	282	#(#MenuItem
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	283	#label: 'Save'
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	284	#translateLabel: true
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	285	#value: #menuSave
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	286	)
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	287	#(#MenuItem
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	288	#label: 'Save As...'
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	289	#translateLabel: true
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	290	#value: #menuSaveAs
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	291	)
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	292	#(#MenuItem
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	293	#label: '-'
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	294	)
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	295	#(#MenuItem
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	296	#label: 'Exit'
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	297	#translateLabel: true
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	298	#value: #closeRequest
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	299	)
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	300	) nil
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	301	nil
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	302	)
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	303	)
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	304	#(#MenuItem
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	305	#label: 'Help'
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	306	#translateLabel: true
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	307	#startGroup: #right
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	308	#submenu:
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	309	#(#Menu
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	310	#(
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	311	#(#MenuItem
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	312	#label: 'Documentation'
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	313	#translateLabel: true
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	314	#value: #openDocumentation
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	315	)
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	316	#(#MenuItem
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	317	#label: '-'
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	318	)
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	319	#(#MenuItem
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	320	#label: 'About this Application...'
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	321	#translateLabel: true
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	322	#value: #openAboutThisApplication
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	323	)
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	324	) nil
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	325	nil
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	326	)
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	327	)
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	328	) nil
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	329	nil
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	330	)
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	331	!
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	332
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	333	initialPageMenuSpecMethodSourceForWebApplications
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	334	"return a menuSpec with typical stuff in it"
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	335
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	336	^
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	337	'mainMenu
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	338	"This resource specification was automatically generated by the CodeGeneratorTool."
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	339
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	340	"Do not manually edit this!! If it is corrupted,
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	341	the MenuEditor may not be able to read the specification."
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	342
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	343	"
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	344	MenuEditor new openOnClass:%1 andSelector:#mainMenu
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	345	"
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	346
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	347	<resource: #menu>
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	348
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	349	^ ',(self initialPageMenuSpec decodeAsLiteralArray literalArrayEncoding storeString),'
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	350	'.
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	351
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	352	"
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	353	self initialPageMenuSpecMethodSourceForWebApplications
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	354	"
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	355	!
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	356
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	357	initialPageSpecMethodSourceForWebApplications
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	358	"return an empty pageSpec"
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	359
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	360	^
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	361	'pageSpec
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	362	"This resource specification was automatically generated by the CodeGeneratorTool."
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	363
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	364	"Do not manually edit this!! If it is corrupted,
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	365	the UIPainter may not be able to read the specification."
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	366
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	367	"
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	368	UIPainter new openOnClass:%1 andSelector:#windowSpec
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	369	"
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	370
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	371	<resource: #canvas>
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	372
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	373	^ #(#FullSpec
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	374	#window:
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	375	#(#WindowSpec
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	376	#name: ''%1''
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	377	#layout: #(#LayoutFrame 204 0 162 0 503 0 461 0)
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	378	#label: ''%1''
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	379	#min: #(#Point 10 10)
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	380	#max: #(#Point 1024 768)
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	381	#bounds: #(#Rectangle 204 162 504 462)
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	382	#menu: #pageMenu
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	383	#usePreferredExtent: false
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	384	)
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	385	#component:
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	386	#(#SpecCollection
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	387	#collection: #()
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	388	)
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	389	)
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	390	'.
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	391	!
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	392
3712 293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	393	initialWindowSpecMethodSourceForApplications
5013 0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	394	"return an empty windowSpec with an initial menubar in it"
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	395
3712 293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	396	^
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	397	'windowSpec
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	398	"This resource specification was automatically generated by the CodeGeneratorTool."
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	399
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	400	"Do not manually edit this!! If it is corrupted,
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	401	the UIPainter may not be able to read the specification."
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	402
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	403	"
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	404	UIPainter new openOnClass:%1 andSelector:#windowSpec
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	405	"
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	406
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	407	<resource: #canvas>
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	408
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	409	^ #(#FullSpec
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	410	#window:
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	411	#(#WindowSpec
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	412	#name: ''%1''
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	413	#layout: #(#LayoutFrame 204 0 162 0 503 0 461 0)
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	414	#label: ''%1''
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	415	#min: #(#Point 10 10)
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	416	#max: #(#Point 1024 768)
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	417	#bounds: #(#Rectangle 204 162 504 462)
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	418	#menu: #mainMenu
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	419	#usePreferredExtent: false
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	420	)
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	421	#component:
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	422	#(#SpecCollection
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	423	#collection: #()
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	424	)
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	425	)
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	426	'.
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	427	!
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	428
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	429	initialWindowSpecMethodSourceForDialogs
5013 0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	430	"return an empty windowSpec for dialogs"
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	431
3712 293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	432	^
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	433	'windowSpec
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	434	"This resource specification was automatically generated by the CodeGeneratorTool."
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	435
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	436	"Do not manually edit this!! If it is corrupted,
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	437	the UIPainter may not be able to read the specification."
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	438
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	439	"
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	440	UIPainter new openOnClass:%1 andSelector:#windowSpec
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	441	"
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	442
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	443	<resource: #canvas>
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	444
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	445	^
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	446
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	447	#(#FullSpec
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	448	#window:
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	449	#(#WindowSpec
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	450	#name: ''%1''
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	451	#layout: #(#LayoutFrame 221 0 118 0 520 0 417 0)
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	452	#level: 0
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	453	#label: ''%1''
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	454	#min: #(#Point 10 10)
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	455	#max: #(#Point 1024 768)
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	456	#bounds: #(#Rectangle 221 118 521 418)
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	457	#usePreferredExtent: false
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	458	)
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	459	#component:
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	460	#(#SpecCollection
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	461	#collection:
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	462	#(
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	463	#(#HorizontalPanelViewSpec
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	464	#name: ''buttonPanel''
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	465	#layout: #(#LayoutFrame 0 0.0 -45 1 0 1.0 0 1.0)
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	466	#component:
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	467	#(#SpecCollection
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	468	#collection:
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	469	#(
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	470	#(#ActionButtonSpec
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	471	#name: ''cancelButton''
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	472	#label: ''Cancel''
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	473	#tabable: true
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	474	#translateLabel: true
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	475	#model: #cancel
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	476	#extent: #(#Point 125 22)
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	477	)
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	478	#(#ActionButtonSpec
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	479	#name: ''okButton''
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	480	#label: ''OK''
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	481	#tabable: true
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	482	#translateLabel: true
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	483	#isDefault: true
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	484	#model: #accept
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	485	#extent: #(#Point 125 22)
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	486	)
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	487	)
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	488	)
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	489	#reverseOrderIfOKAtLeft: true
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	490	#horizontalLayout: #spreadSpaceMax
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	491	#verticalLayout: #center
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	492	#horizontalSpace: 3
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	493	#verticalSpace: 3
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	494	)
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	495	)
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	496	)
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	497	)
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	498	'.
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	499	! !
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	500
5013 0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	501	!CodeGeneratorTool class methodsFor:'code generation-basic'!
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	502
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	503	createAccessMethodsFor:aCollectionOfVarNames in:aClass withChange:withChange asValueHolder:asValueHolder readersOnly:readersOnly writersOnly:writersOnly lazyInitialization:lazyInitialization
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	504	"workhorse for creating access methods for instvars."
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	505
5758 8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	506	^ self new
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	507	createAccessMethodsFor:aCollectionOfVarNames in:aClass withChange:withChange asValueHolder:asValueHolder readersOnly:readersOnly writersOnly:writersOnly lazyInitialization:lazyInitialization
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	508	! !
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	509
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	510	!CodeGeneratorTool class methodsFor:'code generation-individual methods'!
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	511
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	512	createAcceptVisitorMethod:selector in:aClass
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	513	"create an acceptVisitor: method
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	514	(I'm tired of typing)"
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	515
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	516	^ self new createAcceptVisitorMethod:selector in:aClass
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	517	!
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	518
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	519	createAcceptVisitorMethodIn:aClass
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	520	"create an acceptVisitor: method
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	521	(I'm tired of typing)"
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	522
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	523	^ self new createAcceptVisitorMethodIn:aClass
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	524	!
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	525
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	526	createCopyrightMethodFor:aClass
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	527	"add copyright method containing your/your companies
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	528	copyright template but only if not already present.
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	529	this is only added, if specified in the
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	530	COPYRIGHT_TEMPLATE_FILE resources."
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	531
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	532	^ self new createCopyrightMethodFor:aClass
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	533	!
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	534
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	535	createDocumentationMethodFor:aClass
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	536	"add documentation method containing doc template
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	537	but only if not already present."
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	538
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	539	^ self new createDocumentationMethodFor:aClass
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	540	!
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	541
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	542	createExamplesMethodFor:aClass
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	543	"add examples method containing examples template
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	544	but only if not already present."
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	545
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	546	^ self new createExamplesMethodFor:aClass
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	547	!
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	548
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	549	createImageSpecMethodFor:anImage comment:comment in:aClass selector:sel
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	550	^ self new createImageSpecMethodFor:anImage comment:comment in:aClass selector:sel
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	551	!
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	552
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	553	createInitialHistoryMethodFor:aClass
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	554	"add history method containing created-entry
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	555	but only if not already present."
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	556
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	557	^ self new createInitialHistoryMethodFor:aClass
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	558	!
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	559
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	560	createInstanceCreationMethodWithSetupFor:selector category:category in:aMetaClass
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	561	"add an inst-creation method"
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	562
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	563	^ self new createInstanceCreationMethodWithSetupFor:selector category:category in:aMetaClass
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	564	!
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	565
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	566	createMultiSetterMethodFor:aCollectionOfVarNames in:aClass
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	567	"create a multi-setter method for instvars."
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	568
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	569	^ self new createMultiSetterMethodFor:aCollectionOfVarNames in:aClass
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	570	!
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	571
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	572	createSubclassResponsibilityMethodFor:aSelector category:cat in:aClass
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	573	"add a subclassResponsibility method;
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	574	but only if not already present."
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	575
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	576	^ self new createSubclassResponsibilityMethodFor:aSelector category:cat in:aClass
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	577	!
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	578
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	579	createUpdateMethodIn:aClass
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	580	"create an update:with:from:-method
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	581	(I'm tired of typing)"
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	582
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	583	^ self new createUpdateMethodIn:aClass
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	584	!
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	585
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	586	createVersionMethodFor:aClass
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	587	"add version method containing RCS template
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	588	but only if not already present and its not a private class."
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	589
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	590	^ self new createVersionMethodFor:aClass
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	591	! !
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	592
7973 7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	593	!CodeGeneratorTool class methodsFor:'code generation-menus'!
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	594
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	595	createActionMethodFor:aSelector in:aClass category:aCategory redefine:redefine
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	596	\|alreadyInSuperclass method code\|
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	597
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	598	(aClass includesSelector:aSelector) ifTrue:[
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	599	^ nil
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	600	].
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	601
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	602	alreadyInSuperclass := aClass superclass canUnderstand:aSelector.
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	603	(alreadyInSuperclass and:[redefine not]) ifTrue:[
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	604	^ nil
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	605	].
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	606
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	607	method := self methodNameTemplateFor:aSelector.
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	608
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	609	code := '%1
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	610	"automatically generated by UIEditor ..."
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	611
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	612	"*** the code below performs no action"
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	613	"*** (except for some feedback on the Transcript)"
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	614	"*** Please change as required and accept in the browser."
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	615	"*** (and replace this comment by something more useful ;-)"
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	616
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	617	"action to be added ..."
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	618
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	619	Transcript showCR:self class name, '': action for #%2 ...''.
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	620	' bindWith:method with:aSelector.
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	621
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	622	alreadyInSuperclass ifTrue:[
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	623	code := code, (('\ super %1\' bindWith:method) withCRs).
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	624	].
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	625	self compile:code forClass:aClass inCategory:(aCategory ? 'actions').
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	626	^ code
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	627	!
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	628
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	629	createAspectMethodFor:aSelector in:aClass category:aCategory redefine:redefine
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	630	\|alreadyInSuperclass method code text\|
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	631
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	632	(aClass includesSelector:aSelector) ifTrue:[
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	633	^ nil
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	634	].
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	635
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	636	alreadyInSuperclass := aClass superclass canUnderstand:aSelector.
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	637	(alreadyInSuperclass and:[redefine not]) ifTrue:[
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	638	^ nil
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	639	].
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	640
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	641	method := self methodNameTemplateFor:aSelector.
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	642
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	643	code := '%1
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	644	"automatically generated by UIEditor ..."
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	645
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	646	"*** the code below creates a default model when invoked"
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	647	"*** (which may not be the one you wanted)"
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	648	"*** Please change as required and accept in the browser."
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	649	"*** (and replace this comment by something more useful ;-)"
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	650
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	651	"aspect to be added ..."
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	652
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	653	Transcript showCR:self class name, '': aspect for #%2 ...''.
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	654
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	655	' bindWith:method with:aSelector.
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	656
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	657	alreadyInSuperclass ifTrue:[
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	658	text := ' ^ super %1\' bindWith:method.
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	659	] ifFalse:[
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	660	text := ' ^ builder valueAspectFor:#''%1'' initialValue:true\' bindWith:aSelector.
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	661	].
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	662	code := code, (text withCRs).
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	663	self compile:code forClass:aClass inCategory:(aCategory ? 'actions').
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	664	^ code
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	665	! !
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	666
5758 8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	667	!CodeGeneratorTool class methodsFor:'compilation'!
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	668
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	669	compile:theCode forClass:aClass inCategory:cat
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	670	"install some code for a class.
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	671	If refactory browser stuff is avaliable the refactory tools are used to support undo"
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	672
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	673	^ self new compile:theCode forClass:aClass inCategory:cat
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	674	! !
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	675
8258 77eecb901a6a copyrights Claus Gittinger <cg@exept.de> parents: 7973 diff changeset	676	!CodeGeneratorTool class methodsFor:'defaults'!
77eecb901a6a copyrights Claus Gittinger <cg@exept.de> parents: 7973 diff changeset	677
77eecb901a6a copyrights Claus Gittinger <cg@exept.de> parents: 7973 diff changeset	678	copyrightTemplate
77eecb901a6a copyrights Claus Gittinger <cg@exept.de> parents: 7973 diff changeset	679	"return the contents of COPYRIGHT_TEMPLATE_FILE resources
77eecb901a6a copyrights Claus Gittinger <cg@exept.de> parents: 7973 diff changeset	680	or a standard template"
77eecb901a6a copyrights Claus Gittinger <cg@exept.de> parents: 7973 diff changeset	681
77eecb901a6a copyrights Claus Gittinger <cg@exept.de> parents: 7973 diff changeset	682	\|fn\|
77eecb901a6a copyrights Claus Gittinger <cg@exept.de> parents: 7973 diff changeset	683
77eecb901a6a copyrights Claus Gittinger <cg@exept.de> parents: 7973 diff changeset	684	CopyrightTemplate notNil ifTrue:[^ CopyrightTemplate].
77eecb901a6a copyrights Claus Gittinger <cg@exept.de> parents: 7973 diff changeset	685
77eecb901a6a copyrights Claus Gittinger <cg@exept.de> parents: 7973 diff changeset	686	fn := SystemBrowser classResources at:#'COPYRIGHT_TEMPLATE_FILE' default:nil.
77eecb901a6a copyrights Claus Gittinger <cg@exept.de> parents: 7973 diff changeset	687	fn notNil ifTrue:[
77eecb901a6a copyrights Claus Gittinger <cg@exept.de> parents: 7973 diff changeset	688	fn := fn asFilename.
77eecb901a6a copyrights Claus Gittinger <cg@exept.de> parents: 7973 diff changeset	689	fn exists ifTrue:[
8488 bb2810d17bd9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8344 diff changeset	690	^ fn contentsAsString.
8258 77eecb901a6a copyrights Claus Gittinger <cg@exept.de> parents: 7973 diff changeset	691	].
77eecb901a6a copyrights Claus Gittinger <cg@exept.de> parents: 7973 diff changeset	692	].
77eecb901a6a copyrights Claus Gittinger <cg@exept.de> parents: 7973 diff changeset	693	^ ' COPYRIGHT (c) %1 by >>yourCompany<<
77eecb901a6a copyrights Claus Gittinger <cg@exept.de> parents: 7973 diff changeset	694	All Rights Reserved
77eecb901a6a copyrights Claus Gittinger <cg@exept.de> parents: 7973 diff changeset	695
77eecb901a6a copyrights Claus Gittinger <cg@exept.de> parents: 7973 diff changeset	696	This software is furnished under a license and may be used
77eecb901a6a copyrights Claus Gittinger <cg@exept.de> parents: 7973 diff changeset	697	only in accordance with the terms of that license and with the
77eecb901a6a copyrights Claus Gittinger <cg@exept.de> parents: 7973 diff changeset	698	inclusion of the above copyright notice. This software may not
77eecb901a6a copyrights Claus Gittinger <cg@exept.de> parents: 7973 diff changeset	699	be provided or otherwise made available to, or used by, any
77eecb901a6a copyrights Claus Gittinger <cg@exept.de> parents: 7973 diff changeset	700	other person. No title to or ownership of the software is
77eecb901a6a copyrights Claus Gittinger <cg@exept.de> parents: 7973 diff changeset	701	hereby transferred.
77eecb901a6a copyrights Claus Gittinger <cg@exept.de> parents: 7973 diff changeset	702	'.
77eecb901a6a copyrights Claus Gittinger <cg@exept.de> parents: 7973 diff changeset	703	!
77eecb901a6a copyrights Claus Gittinger <cg@exept.de> parents: 7973 diff changeset	704
77eecb901a6a copyrights Claus Gittinger <cg@exept.de> parents: 7973 diff changeset	705	copyrightTemplate:aString
8488 bb2810d17bd9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8344 diff changeset	706	"set the COPYRIGHT_TEMPLATE_FILE"
bb2810d17bd9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8344 diff changeset	707
8258 77eecb901a6a copyrights Claus Gittinger <cg@exept.de> parents: 7973 diff changeset	708	CopyrightTemplate := aString.
77eecb901a6a copyrights Claus Gittinger <cg@exept.de> parents: 7973 diff changeset	709	! !
77eecb901a6a copyrights Claus Gittinger <cg@exept.de> parents: 7973 diff changeset	710
5758 8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	711	!CodeGeneratorTool class methodsFor:'private'!
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	712
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	713	canUseRefactoringSupport
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	714	"check if refactory browser stuff is avaliable"
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	715
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	716	^ RefactoryChangeManager notNil
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	717	and:[RefactoryChangeManager isLoaded
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	718	and:[UserPreferences current useRefactoringSupport]]
7973 7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	719	!
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	720
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	721	methodNameTemplateFor:aSelector
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	722	\|numArgs method\|
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	723
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	724	numArgs := aSelector numArgs.
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	725	numArgs == 1 ifTrue:[
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	726	method := aSelector, 'anArgument'.
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	727	] ifFalse:[
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	728	numArgs == 0 ifTrue:[
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	729	method := aSelector
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	730	] ifFalse:[
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	731	method := ''.
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	732	aSelector keywords keysAndValuesDo:[:i :key\|
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	733	method := method, key, 'arg', i printString, ' '.
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	734	].
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	735	]
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	736	].
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	737	^ method
5758 8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	738	! !
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	739
9022 676088a17690 added: #missingRequiredProtocolFor: Claus Gittinger <cg@exept.de> parents: 8987 diff changeset	740	!CodeGeneratorTool class methodsFor:'utilities'!
676088a17690 added: #missingRequiredProtocolFor: Claus Gittinger <cg@exept.de> parents: 8987 diff changeset	741
676088a17690 added: #missingRequiredProtocolFor: Claus Gittinger <cg@exept.de> parents: 8987 diff changeset	742	missingRequiredProtocolFor:aClass
676088a17690 added: #missingRequiredProtocolFor: Claus Gittinger <cg@exept.de> parents: 8987 diff changeset	743	"return the missing required protocol;
676088a17690 added: #missingRequiredProtocolFor: Claus Gittinger <cg@exept.de> parents: 8987 diff changeset	744	that is the set of selectors which send #subclassResponsibility in a superclass and
676088a17690 added: #missingRequiredProtocolFor: Claus Gittinger <cg@exept.de> parents: 8987 diff changeset	745	have no implementation in aClass or in any class between aClass and that superclass"
676088a17690 added: #missingRequiredProtocolFor: Claus Gittinger <cg@exept.de> parents: 8987 diff changeset	746
676088a17690 added: #missingRequiredProtocolFor: Claus Gittinger <cg@exept.de> parents: 8987 diff changeset	747	\|requiredSelectors implementedSelectors\|
676088a17690 added: #missingRequiredProtocolFor: Claus Gittinger <cg@exept.de> parents: 8987 diff changeset	748
676088a17690 added: #missingRequiredProtocolFor: Claus Gittinger <cg@exept.de> parents: 8987 diff changeset	749	requiredSelectors := IdentitySet new.
676088a17690 added: #missingRequiredProtocolFor: Claus Gittinger <cg@exept.de> parents: 8987 diff changeset	750	implementedSelectors := IdentitySet withAll:(aClass methodDictionary keys).
676088a17690 added: #missingRequiredProtocolFor: Claus Gittinger <cg@exept.de> parents: 8987 diff changeset	751
676088a17690 added: #missingRequiredProtocolFor: Claus Gittinger <cg@exept.de> parents: 8987 diff changeset	752	aClass allSuperclassesDo:[:eachSuperClass \|
676088a17690 added: #missingRequiredProtocolFor: Claus Gittinger <cg@exept.de> parents: 8987 diff changeset	753	eachSuperClass methodDictionary keysAndValuesDo:[:eachSelector :eachMethod \|
676088a17690 added: #missingRequiredProtocolFor: Claus Gittinger <cg@exept.de> parents: 8987 diff changeset	754	((eachMethod sends:#subclassResponsibility) or:[eachMethod sends:#subclassResponsibility:]) ifTrue:[
676088a17690 added: #missingRequiredProtocolFor: Claus Gittinger <cg@exept.de> parents: 8987 diff changeset	755	(implementedSelectors includes:eachSelector) ifFalse:[
676088a17690 added: #missingRequiredProtocolFor: Claus Gittinger <cg@exept.de> parents: 8987 diff changeset	756	requiredSelectors add:eachSelector.
676088a17690 added: #missingRequiredProtocolFor: Claus Gittinger <cg@exept.de> parents: 8987 diff changeset	757	]
676088a17690 added: #missingRequiredProtocolFor: Claus Gittinger <cg@exept.de> parents: 8987 diff changeset	758	] ifFalse:[
676088a17690 added: #missingRequiredProtocolFor: Claus Gittinger <cg@exept.de> parents: 8987 diff changeset	759	(requiredSelectors includes:eachSelector) ifFalse:[
676088a17690 added: #missingRequiredProtocolFor: Claus Gittinger <cg@exept.de> parents: 8987 diff changeset	760	implementedSelectors add:eachSelector.
676088a17690 added: #missingRequiredProtocolFor: Claus Gittinger <cg@exept.de> parents: 8987 diff changeset	761	].
676088a17690 added: #missingRequiredProtocolFor: Claus Gittinger <cg@exept.de> parents: 8987 diff changeset	762	].
676088a17690 added: #missingRequiredProtocolFor: Claus Gittinger <cg@exept.de> parents: 8987 diff changeset	763	]
676088a17690 added: #missingRequiredProtocolFor: Claus Gittinger <cg@exept.de> parents: 8987 diff changeset	764	].
676088a17690 added: #missingRequiredProtocolFor: Claus Gittinger <cg@exept.de> parents: 8987 diff changeset	765	^ requiredSelectors
676088a17690 added: #missingRequiredProtocolFor: Claus Gittinger <cg@exept.de> parents: 8987 diff changeset	766	! !
676088a17690 added: #missingRequiredProtocolFor: Claus Gittinger <cg@exept.de> parents: 8987 diff changeset	767
5759 b6cea74440db * empty log message * Claus Gittinger <cg@exept.de> parents: 5758 diff changeset	768	!CodeGeneratorTool methodsFor:'buld changes'!
b6cea74440db * empty log message * Claus Gittinger <cg@exept.de> parents: 5758 diff changeset	769
5763 8cce359fd150 add valueHolder Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	770	addChange:aChange
8cce359fd150 add valueHolder Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	771	compositeChangeCollector addChange:aChange
8cce359fd150 add valueHolder Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	772	!
8cce359fd150 add valueHolder Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	773
5759 b6cea74440db * empty log message * Claus Gittinger <cg@exept.de> parents: 5758 diff changeset	774	executeCollectedChangesNamed:name
b6cea74440db * empty log message * Claus Gittinger <cg@exept.de> parents: 5758 diff changeset	775	compositeChangeCollector notNil ifTrue:[
b6cea74440db * empty log message * Claus Gittinger <cg@exept.de> parents: 5758 diff changeset	776	compositeChangeNesting := compositeChangeNesting - 1.
b6cea74440db * empty log message * Claus Gittinger <cg@exept.de> parents: 5758 diff changeset	777	compositeChangeNesting == 0 ifTrue:[
b6cea74440db * empty log message * Claus Gittinger <cg@exept.de> parents: 5758 diff changeset	778	compositeChangeCollector name:name.
b6cea74440db * empty log message * Claus Gittinger <cg@exept.de> parents: 5758 diff changeset	779	compositeChangeCollector changesSize == 0 ifTrue:[
b6cea74440db * empty log message * Claus Gittinger <cg@exept.de> parents: 5758 diff changeset	780	self information:'Nothing generated.'.
b6cea74440db * empty log message * Claus Gittinger <cg@exept.de> parents: 5758 diff changeset	781	] ifFalse:[
7037 ec9705009031 * empty log message * Claus Gittinger <cg@exept.de> parents: 6993 diff changeset	782	RefactoryChangeManager performChange:compositeChangeCollector.
5759 b6cea74440db * empty log message * Claus Gittinger <cg@exept.de> parents: 5758 diff changeset	783	].
b6cea74440db * empty log message * Claus Gittinger <cg@exept.de> parents: 5758 diff changeset	784	compositeChangeCollector := nil.
b6cea74440db * empty log message * Claus Gittinger <cg@exept.de> parents: 5758 diff changeset	785	]
b6cea74440db * empty log message * Claus Gittinger <cg@exept.de> parents: 5758 diff changeset	786	]
b6cea74440db * empty log message * Claus Gittinger <cg@exept.de> parents: 5758 diff changeset	787	!
b6cea74440db * empty log message * Claus Gittinger <cg@exept.de> parents: 5758 diff changeset	788
b6cea74440db * empty log message * Claus Gittinger <cg@exept.de> parents: 5758 diff changeset	789	startCollectChanges
b6cea74440db * empty log message * Claus Gittinger <cg@exept.de> parents: 5758 diff changeset	790	(self canUseRefactoringSupport) ifTrue:[
b6cea74440db * empty log message * Claus Gittinger <cg@exept.de> parents: 5758 diff changeset	791	compositeChangeCollector isNil ifTrue:[
b6cea74440db * empty log message * Claus Gittinger <cg@exept.de> parents: 5758 diff changeset	792	compositeChangeCollector := CompositeRefactoryChange new.
b6cea74440db * empty log message * Claus Gittinger <cg@exept.de> parents: 5758 diff changeset	793	compositeChangeNesting := 0.
b6cea74440db * empty log message * Claus Gittinger <cg@exept.de> parents: 5758 diff changeset	794	].
b6cea74440db * empty log message * Claus Gittinger <cg@exept.de> parents: 5758 diff changeset	795	compositeChangeNesting := compositeChangeNesting + 1.
b6cea74440db * empty log message * Claus Gittinger <cg@exept.de> parents: 5758 diff changeset	796	]
b6cea74440db * empty log message * Claus Gittinger <cg@exept.de> parents: 5758 diff changeset	797	! !
b6cea74440db * empty log message * Claus Gittinger <cg@exept.de> parents: 5758 diff changeset	798
5758 8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	799	!CodeGeneratorTool methodsFor:'code generation'!
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	800
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	801	createAccessMethodsFor:aCollectionOfVarNames in:aClass withChange:withChange asValueHolder:asValueHolder readersOnly:readersOnly writersOnly:writersOnly
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	802	"create accessors in aClass"
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	803
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	804	self
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	805	createAccessMethodsFor:aCollectionOfVarNames
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	806	in:aClass
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	807	withChange:withChange
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	808	asValueHolder:asValueHolder
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	809	readersOnly:readersOnly
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	810	writersOnly:writersOnly
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	811	lazyInitialization:false
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	812	!
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	813
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	814	createApplicationCodeFor:aClass
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	815	"create an empty application framework"
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	816
7480 33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	817	\|nonMetaClass metaClass className txt isDialog
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	818	categoryForMenuActionsMethods compileMenuAction compileTemplateAction\|
5758 8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	819
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	820	self startCollectChanges.
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	821
8572 beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	822	categoryForMenuActionsMethods := userPreferences categoryForMenuActionsMethods.
5758 8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	823
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	824	nonMetaClass := aClass theNonMetaclass.
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	825	metaClass := aClass theMetaclass.
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	826	className := nonMetaClass name.
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	827
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	828	isDialog := (nonMetaClass isSubclassOf:SimpleDialog).
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	829
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	830	"/ add a windowSpec method for an empty applicationWindow,
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	831	"/ with a menuPanel.
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	832
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	833	(metaClass includesSelector:#windowSpec) ifFalse:[
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	834	isDialog ifTrue:[
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	835	txt := self class initialWindowSpecMethodSourceForDialogs.
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	836	] ifFalse:[
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	837	txt := self class initialWindowSpecMethodSourceForApplications.
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	838	].
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	839	self
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	840	compile:(txt bindWith:className)
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	841	forClass:metaClass
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	842	inCategory:'interface specs'.
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	843	].
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	844
7480 33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	845	compileTemplateAction :=
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	846	[:selector :category \|
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	847	(nonMetaClass includesSelector:selector) ifFalse:[
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	848	\|codeTemplateSelector\|
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	849
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	850	codeTemplateSelector := ('codeFor_',(selector upTo:$:)) asSymbol.
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	851	txt := self perform:codeTemplateSelector.
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	852	self
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	853	compile:txt
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	854	forClass:nonMetaClass
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	855	inCategory:(category = '*' ifTrue:categoryForMenuActionsMethods ifFalse:category).
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	856	]
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	857	].
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	858
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	859	#(
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	860	#'postBuildWith:' 'initialization & release'
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	861	#'postOpenWith:' 'initialization & release'
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	862	) pairWiseDo:compileTemplateAction.
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	863
5758 8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	864	isDialog ifFalse:[
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	865	"/ add a topMenu method
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	866
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	867	(metaClass includesSelector:#mainMenu) ifFalse:[
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	868	txt := self class initialMenuSpecMethodSourceForApplications.
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	869	self
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	870	compile:(txt bindWith:className)
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	871	forClass:metaClass
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	872	inCategory:'menu specs'.
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	873	].
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	874
7480 33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	875	#(
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	876	#'hasUnsavedChanges' 'private queries'
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	877	#'closeRequest' 'initialization & release'
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	878	#'closeDownViews' 'initialization & release'
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	879	#'menuSaveAs' '*'
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	880	#'menuNew' '*'
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	881	#'menuOpen' '*'
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	882	#'menuSave' '*'
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	883	#'doSaveAs' '*'
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	884	#'openDocumentation' '*'
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	885	#'openAboutThisApplication' '*'
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	886	) pairWiseDo:compileTemplateAction.
5758 8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	887	].
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	888
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	889	isDialog ifTrue:[
7480 33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	890	#(
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	891	#'closeAccept' 'user actions'
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	892	) pairWiseDo:compileTemplateAction.
5758 8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	893	].
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	894
6050 300b21c10c71 * empty log message * ca parents: 5953 diff changeset	895	self executeCollectedChangesNamed:('Add Application Code for ' , className).
5758 8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	896
7480 33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	897	"Modified: / 27-10-2006 / 10:21:58 / cg"
5758 8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	898	!
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	899
8987 6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	900	createClassInitializeMethodIn:aClass
6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	901	"create a #initialize method on the class side (I'm tired of typing)"
6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	902
6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	903	\|nonMetaClass metaClass className code initializer bindings\|
6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	904
6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	905	nonMetaClass := aClass theNonMetaclass.
6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	906	metaClass := aClass theMetaclass.
6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	907	className := nonMetaClass name.
6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	908
6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	909	self startCollectChanges.
6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	910
6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	911	(metaClass includesSelector:#'initialize') ifFalse:[
6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	912	'initialize
6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	913	"Invoked at system start or when the class is dynamically loaded."
6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	914
6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	915	"/ please change as required (and remove this comment)
6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	916	'.
6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	917	bindings := Dictionary new.
6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	918	bindings at:'INIT_CLASSINSTVARS' put:(
6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	919	String streamContents:[:s \|
6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	920	metaClass instVarNames do:[:eachClassInstVar \|
6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	921	initializer := 'nil'. "/ need more intelligence here (try to guess class from messages sent to it) ...
6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	922	s nextPutLine:(' "/ %1 := %2.' bindWith:eachClassInstVar with:initializer).
6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	923	]
6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	924	]).
6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	925
6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	926	bindings at:'INIT_CLASSVARS' put:(
6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	927	String streamContents:[:s \|
6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	928	nonMetaClass classVarNames do:[:eachClassVar \|
6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	929	initializer := 'nil'. "/ need more intelligence here (try to guess class from messages sent to it) ...
6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	930	s nextPutLine:(' "/ %1 := %2.' bindWith:eachClassVar with:initializer).
6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	931	]
6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	932	]).
6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	933
6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	934	code := (self codeFor_classInitialize) expandPlaceholdersWith:bindings.
6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	935
6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	936	self
6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	937	compile:code
6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	938	forClass:metaClass
6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	939	inCategory:'initialization'.
6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	940	].
6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	941
6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	942	self executeCollectedChangesNamed:('Add Class Initializer to ' , className).
6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	943	!
6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	944
5758 8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	945	createClassResponsibleProtocolFor:aClass
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	946	"create stubs for the required protocol"
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	947
6050 300b21c10c71 * empty log message * ca parents: 5953 diff changeset	948	\|nonMetaClass metaClass className\|
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	949
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	950	nonMetaClass := aClass theNonMetaclass.
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	951	metaClass := aClass theMetaclass.
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	952	className := nonMetaClass name.
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	953
5758 8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	954	self startCollectChanges.
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	955
6050 300b21c10c71 * empty log message * ca parents: 5953 diff changeset	956	self privCreateClassResponsibleProtocolFor:nonMetaClass.
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	957	self privCreateClassResponsibleProtocolFor:metaClass.
5758 8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	958
6050 300b21c10c71 * empty log message * ca parents: 5953 diff changeset	959	self executeCollectedChangesNamed:('Add Required Protocol to ' , className).
5758 8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	960	!
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	961
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	962	createClassTypeTestMethodsIn:aClass forClasses:subClasses
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	963	"create a #isXXX test methods (I'm tired of typing)"
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	964
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	965	\| code\|
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	966
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	967	self startCollectChanges.
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	968
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	969	subClasses do:[:eachSubClass \|
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	970	\|nm selector\|
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	971
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	972	nm := eachSubClass nameWithoutPrefix.
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	973	selector := 'is' , nm.
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	974	(aClass includesSelector:selector) ifFalse:[
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	975	code := (selector , '\ ^ false') withCRs.
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	976	self
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	977	compile:code
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	978	forClass:aClass
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	979	inCategory:'testing'.
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	980	].
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	981	(eachSubClass includesSelector:selector) ifFalse:[
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	982	code := (selector , '\ ^ true') withCRs.
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	983	self
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	984	compile:code
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	985	forClass:eachSubClass
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	986	inCategory:'testing'.
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	987	].
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	988	].
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	989
5759 b6cea74440db * empty log message * Claus Gittinger <cg@exept.de> parents: 5758 diff changeset	990	self executeCollectedChangesNamed:'Add ClassType Tests'
5758 8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	991	!
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	992
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	993	createDocumentationMethodsFor:aClass
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	994	"create empty documentation methods"
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	995
6050 300b21c10c71 * empty log message * ca parents: 5953 diff changeset	996	\|nonMetaClass metaClass className\|
5758 8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	997
6050 300b21c10c71 * empty log message * ca parents: 5953 diff changeset	998	nonMetaClass := aClass theNonMetaclass.
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	999	metaClass := aClass theMetaclass.
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1000	className := nonMetaClass name.
5758 8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1001
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1002	self startCollectChanges.
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1003
8890 69b74f5776fb changed: fm parents: 8773 diff changeset	1004	"/ self createVersionMethodFor:metaClass.
6050 300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1005	self createCopyrightMethodFor:metaClass.
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1006	self createDocumentationMethodFor:metaClass.
8572 beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1007	self createExamplesMethodFor:metaClass.
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1008	"/ self createInitialHistoryMethodFor:metaClass.
5758 8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1009
6050 300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1010	self executeCollectedChangesNamed:('Add Documentation to ' , className).
5758 8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1011	!
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1012
6313 e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1013	createEnumTypeCodeFor:aClass
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1014	\|nonMetaClass metaClass className enumValues code initCode runValue maxValue\|
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1015
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1016	self startCollectChanges.
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1017
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1018	nonMetaClass := aClass theNonMetaclass.
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1019	metaClass := aClass theMetaclass.
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1020	className := nonMetaClass name.
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1021
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1022	enumValues := nonMetaClass classVarNames.
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1023	enumValues do:[:eachVariableName \|
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1024	self
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1025	createAccessMethodsFor:(Array with:eachVariableName)
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1026	in:metaClass
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1027	withChange:false
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1028	asValueHolder:false
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1029	readersOnly:true
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1030	writersOnly:false
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1031	].
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1032
8572 beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1033	maxValue := enumValues
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1034	inject:0
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1035	into:[:maxSoFar :eachVariableName \|
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1036	\|oldVal val\|
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1037	oldVal := nonMetaClass classVarAt:eachVariableName.
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1038	oldVal notNil ifTrue:[ val := oldVal numericValue ].
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1039	(val ? maxSoFar) max:maxSoFar
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1040	].
6313 e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1041
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1042	initCode := WriteStream on: String new.
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1043	initCode nextPutLine:'initialize'.
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1044	runValue := maxValue + 1.
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1045	enumValues keysAndValuesDo:[:idx :eachVariableName \|
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1046	\|oldValue thisValue\|
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1047
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1048	oldValue := nonMetaClass classVarAt:eachVariableName.
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1049	oldValue notNil ifTrue:[
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1050	thisValue := oldValue numericValue.
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1051	] ifFalse:[
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1052	thisValue := runValue.
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1053	runValue := runValue + 1.
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1054	].
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1055	initCode
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1056	nextPutAll:' ';
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1057	nextPutAll:eachVariableName;
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1058	nextPutAll:' := self basicNew'.
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1059	(aClass canUnderstand:#'setNumericValue:') ifTrue:[
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1060	initCode nextPutAll:' setNumericValue: ',thisValue printString.
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1061	].
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1062	(aClass canUnderstand:#'setCssClassString:') ifTrue:[
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1063	initCode nextPutAll:('; setCssClassString: ''' , nonMetaClass nameWithoutPrefix asLowercaseFirst , eachVariableName , '''').
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1064	].
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1065	(aClass canUnderstand:#'setName:') ifTrue:[
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1066	initCode nextPutAll:('; setName: ''' , eachVariableName asLowercaseFirst , '''').
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1067	].
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1068	initCode nextPutLine:'.'.
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1069	].
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1070	initCode cr.
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1071	initCode nextPutLine:' "'.
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1072	initCode nextPutLine:' ',className, ' initialize'.
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1073	initCode nextPutLine:' "'.
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1074
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1075	self
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1076	compile:(initCode contents)
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1077	forClass:metaClass
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1078	inCategory:'class initialization'.
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1079
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1080
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1081	code := 'allStateNames\ ^ #( ' ,
6341 200c762ce0ed * empty log message * Claus Gittinger <cg@exept.de> parents: 6313 diff changeset	1082	((enumValues collect:[:each \| '#''',each asLowercaseFirst,'''']) asStringWith:' ') , ')',
6313 e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1083	'\\ "\' ,
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1084	' ',className, ' allStateNames\' ,
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1085	' "\'.
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1086	self
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1087	compile:code withCRs
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1088	forClass:metaClass
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1089	inCategory:'queries'.
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1090
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1091	self executeCollectedChangesNamed:('Generate EnumType Code for ' , className).
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1092
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1093	aClass initialize.
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1094
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1095	"Modified: / 1.2.1998 / 16:10:03 / cg"
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1096	!
e73b5d2d07f9 enumType generator Claus Gittinger <cg@exept.de> parents: 6159 diff changeset	1097
8572 beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1098	createExamplesMethodForViewClass:aClass
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1099	"create an examples method"
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1100
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1101	\|nonMetaClass metaClass className code\|
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1102
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1103	nonMetaClass := aClass theNonMetaclass.
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1104	metaClass := aClass theMetaclass.
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1105	className := nonMetaClass name.
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1106
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1107	self startCollectChanges.
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1108
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1109	(metaClass includesSelector:#examples) ifFalse:[
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1110	code :=
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1111	'examples
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1112	"
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1113	Notice that everything between [exBegin] and [exEnd] is extracted by the html-doc generator
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1114	to create nicely formatted and clickable executable examples in the generated html-doc.
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1115	(see the browsers class-documentation menu items for more)
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1116
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1117	trying the widget as standAlone view:
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1118	[exBegin]
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1119	%1 new open
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1120	[exEnd]
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1121
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1122	embedded in another view:
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1123	[exBegin]
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1124	\|top v\|
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1125
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1126	top := StandardSystemView new.
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1127	top extent:300@300.
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1128	v := %1 new.
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1129	v origin:10@10 corner:150@150.
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1130	top add:v.
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1131	top open
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1132	[exEnd]
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1133	"
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1134	' bindWith:className.
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1135
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1136	self
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1137	compile:code
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1138	forClass:metaClass
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1139	inCategory:'documentation'.
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1140	].
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1141
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1142	self executeCollectedChangesNamed:('Add Example to ' , className).
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1143	!
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1144
6718 d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1145	createInitializedInstanceCreationMethodsIn:aClass
5758 8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1146	"create a #new and #initialize methods (I'm tired of typing)"
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1147
6050 300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1148	\|nonMetaClass metaClass className code initializer m\|
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1149
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1150	nonMetaClass := aClass theNonMetaclass.
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1151	metaClass := aClass theMetaclass.
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1152	className := nonMetaClass name.
5758 8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1153
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1154	self startCollectChanges.
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1155
6050 300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1156	(nonMetaClass includesSelector:#'initialize') ifFalse:[
5758 8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1157	code :=
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1158	'initialize
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1159	"Invoked when a new instance is created."
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1160
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1161	"/ please change as required (and remove this comment)
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1162	'.
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1163
6718 d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1164	nonMetaClass instVarNames do:[:eachInstVar \|
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1165	initializer := 'nil'. "/ need more intelligence here (try to guess class from messages sent to it) ...
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1166	code := code , (' "/ ' , eachInstVar , ' := ' , initializer , '.' , Character cr).
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1167	].
5758 8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1168
6718 d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1169	m := nonMetaClass responseTo:#initialize.
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1170	(m notNil and:[m messagesSent size == 0]) ifTrue:[
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1171	"/ inherits an empty initialize.
5758 8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1172
6718 d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1173	code := code , '
5758 8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1174	"/ super initialize. -- commented since inherited method does nothing
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1175	'.
6718 d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1176	] ifFalse:[
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1177	code := code , '
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1178	super initialize.
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1179	'.
5758 8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1180	].
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1181
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1182	self
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1183	compile:code
6050 300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1184	forClass:nonMetaClass
5758 8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1185	inCategory:'initialization'.
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1186	].
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1187
6050 300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1188	(metaClass includesSelector:#'new') ifFalse:[
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1189	m := metaClass responseTo:#new.
6718 d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1190	(m isNil
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1191	or:[ (m sends:#initialize) not
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1192	or:[ \|answer\|
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1193	(Dialog
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1194	confirmWithCancel:'The inherited #new method already seems to invoke #initialize. Redefine ?'
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1195	onCancel:[^ self]) ]]) ifTrue:[
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1196	code :=
5758 8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1197	'new
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1198	^ self basicNew initialize.
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1199	'.
6718 d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1200	self
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1201	compile:code
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1202	forClass:metaClass
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1203	inCategory:'instance creation'.
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1204	].
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1205	].
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1206
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1207	self executeCollectedChangesNamed:('Add Initialized Instance Creation to ' , className).
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1208
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1209	"Created: / 11.10.2001 / 22:18:55 / cg"
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1210	!
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1211
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1212	createParametrizedInstanceCreationMethodsNamed:selector in:aClass
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1213	"create a #selector instance creation method (I'm tired of typing)"
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1214
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1215	\|nonMetaClass metaClass className code initializer m dfn\|
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1216
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1217	dfn := Method methodDefinitionTemplateForSelector:selector.
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1218
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1219	nonMetaClass := aClass theNonMetaclass.
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1220	metaClass := aClass theMetaclass.
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1221	className := nonMetaClass name.
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1222
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1223	self startCollectChanges.
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1224
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1225	(nonMetaClass includesSelector:selector asSymbol) ifFalse:[
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1226	code :=
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1227	'initialize',dfn asUppercaseFirst,'
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1228	"Invoked when a new instance is created for arg."
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1229
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1230	"/ please change as required (and remove these comments)
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1231	"/ do something with arg here (instVar-foo := arg)
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1232	'.
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1233	nonMetaClass instVarNames do:[:eachInstVar \|
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1234	initializer := 'nil'. "/ need more intelligence here (try to guess class from messages sent to it) ...
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1235	code := code , (' "/ ' , eachInstVar , ' := ' , initializer , '.' , Character cr).
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1236	].
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1237
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1238	m := nonMetaClass responseTo:#initialize.
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1239	(m notNil and:[ m messagesSent size == 0 ]) ifTrue:[
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1240	"/ inherits an empty initialize.
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1241
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1242	code := code , '
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1243	"/ super initialize. -- commented since inherited method does nothing
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1244	'.
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1245	] ifFalse:[
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1246	code := code , '
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1247	super initialize.
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1248	'.
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1249	].
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1250
5758 8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1251	self
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1252	compile:code
6718 d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1253	forClass:nonMetaClass
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1254	inCategory:'initialization'.
5758 8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1255	].
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1256
6718 d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1257	(metaClass includesSelector:selector) ifFalse:[
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1258	m := metaClass responseTo:selector.
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1259	(m isNil
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1260	or:[ (Dialog confirmWithCancel:'The ',selector,'- method is already inherited. Redefine ?' onCancel:[^ self]) ])
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1261	ifTrue:[
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1262	code :=
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1263	dfn,'
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1264	"Create & return a new instance for arg."
5758 8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1265
6718 d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1266	^ self basicNew initialize',dfn asUppercaseFirst,'
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1267	'.
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1268	self
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1269	compile:code
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1270	forClass:metaClass
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1271	inCategory:'instance creation'.
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1272	].
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1273	].
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1274
d6e9cae51834 more generators; Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	1275	self executeCollectedChangesNamed:('Add Parametrized Instance Creation to ' , className).
5758 8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1276	!
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1277
7470 12c6eb575d88 pool code generation Claus Gittinger <cg@exept.de> parents: 7085 diff changeset	1278	createPoolInitializationCodeFor:aClass
12c6eb575d88 pool code generation Claus Gittinger <cg@exept.de> parents: 7085 diff changeset	1279	\|nonMetaClass metaClass className poolVars code initCode runValue maxValue\|
12c6eb575d88 pool code generation Claus Gittinger <cg@exept.de> parents: 7085 diff changeset	1280
12c6eb575d88 pool code generation Claus Gittinger <cg@exept.de> parents: 7085 diff changeset	1281	self startCollectChanges.
12c6eb575d88 pool code generation Claus Gittinger <cg@exept.de> parents: 7085 diff changeset	1282
12c6eb575d88 pool code generation Claus Gittinger <cg@exept.de> parents: 7085 diff changeset	1283	nonMetaClass := aClass theNonMetaclass.
12c6eb575d88 pool code generation Claus Gittinger <cg@exept.de> parents: 7085 diff changeset	1284	metaClass := aClass theMetaclass.
12c6eb575d88 pool code generation Claus Gittinger <cg@exept.de> parents: 7085 diff changeset	1285	className := nonMetaClass name.
12c6eb575d88 pool code generation Claus Gittinger <cg@exept.de> parents: 7085 diff changeset	1286
12c6eb575d88 pool code generation Claus Gittinger <cg@exept.de> parents: 7085 diff changeset	1287	poolVars := nonMetaClass classVarNames.
12c6eb575d88 pool code generation Claus Gittinger <cg@exept.de> parents: 7085 diff changeset	1288
12c6eb575d88 pool code generation Claus Gittinger <cg@exept.de> parents: 7085 diff changeset	1289	initCode := WriteStream on: String new.
12c6eb575d88 pool code generation Claus Gittinger <cg@exept.de> parents: 7085 diff changeset	1290	initCode nextPutLine:'initialize'.
12c6eb575d88 pool code generation Claus Gittinger <cg@exept.de> parents: 7085 diff changeset	1291
12c6eb575d88 pool code generation Claus Gittinger <cg@exept.de> parents: 7085 diff changeset	1292	poolVars do:[:eachVariableName \|
12c6eb575d88 pool code generation Claus Gittinger <cg@exept.de> parents: 7085 diff changeset	1293	\|oldValue thisValue\|
12c6eb575d88 pool code generation Claus Gittinger <cg@exept.de> parents: 7085 diff changeset	1294
12c6eb575d88 pool code generation Claus Gittinger <cg@exept.de> parents: 7085 diff changeset	1295	oldValue := nonMetaClass classVarAt:eachVariableName.
12c6eb575d88 pool code generation Claus Gittinger <cg@exept.de> parents: 7085 diff changeset	1296	oldValue notNil ifTrue:[
12c6eb575d88 pool code generation Claus Gittinger <cg@exept.de> parents: 7085 diff changeset	1297	thisValue := oldValue.
12c6eb575d88 pool code generation Claus Gittinger <cg@exept.de> parents: 7085 diff changeset	1298	] ifFalse:[
12c6eb575d88 pool code generation Claus Gittinger <cg@exept.de> parents: 7085 diff changeset	1299	thisValue := nil.
12c6eb575d88 pool code generation Claus Gittinger <cg@exept.de> parents: 7085 diff changeset	1300	].
12c6eb575d88 pool code generation Claus Gittinger <cg@exept.de> parents: 7085 diff changeset	1301	initCode
12c6eb575d88 pool code generation Claus Gittinger <cg@exept.de> parents: 7085 diff changeset	1302	nextPutAll:' ';
12c6eb575d88 pool code generation Claus Gittinger <cg@exept.de> parents: 7085 diff changeset	1303	nextPutAll:eachVariableName;
12c6eb575d88 pool code generation Claus Gittinger <cg@exept.de> parents: 7085 diff changeset	1304	nextPutAll:' := ';
12c6eb575d88 pool code generation Claus Gittinger <cg@exept.de> parents: 7085 diff changeset	1305	nextPutAll:thisValue storeString;
12c6eb575d88 pool code generation Claus Gittinger <cg@exept.de> parents: 7085 diff changeset	1306	nextPutLine:'.'.
12c6eb575d88 pool code generation Claus Gittinger <cg@exept.de> parents: 7085 diff changeset	1307	].
12c6eb575d88 pool code generation Claus Gittinger <cg@exept.de> parents: 7085 diff changeset	1308	initCode cr.
12c6eb575d88 pool code generation Claus Gittinger <cg@exept.de> parents: 7085 diff changeset	1309	initCode nextPutLine:' "'.
12c6eb575d88 pool code generation Claus Gittinger <cg@exept.de> parents: 7085 diff changeset	1310	initCode nextPutLine:' ',className, ' initialize'.
12c6eb575d88 pool code generation Claus Gittinger <cg@exept.de> parents: 7085 diff changeset	1311	initCode nextPutLine:' "'.
12c6eb575d88 pool code generation Claus Gittinger <cg@exept.de> parents: 7085 diff changeset	1312
12c6eb575d88 pool code generation Claus Gittinger <cg@exept.de> parents: 7085 diff changeset	1313	self
12c6eb575d88 pool code generation Claus Gittinger <cg@exept.de> parents: 7085 diff changeset	1314	compile:(initCode contents)
12c6eb575d88 pool code generation Claus Gittinger <cg@exept.de> parents: 7085 diff changeset	1315	forClass:metaClass
12c6eb575d88 pool code generation Claus Gittinger <cg@exept.de> parents: 7085 diff changeset	1316	inCategory:'class initialization'.
12c6eb575d88 pool code generation Claus Gittinger <cg@exept.de> parents: 7085 diff changeset	1317
12c6eb575d88 pool code generation Claus Gittinger <cg@exept.de> parents: 7085 diff changeset	1318	self executeCollectedChangesNamed:('Generate Pool Initialization Code for ' , className).
12c6eb575d88 pool code generation Claus Gittinger <cg@exept.de> parents: 7085 diff changeset	1319
12c6eb575d88 pool code generation Claus Gittinger <cg@exept.de> parents: 7085 diff changeset	1320	aClass initialize.
12c6eb575d88 pool code generation Claus Gittinger <cg@exept.de> parents: 7085 diff changeset	1321
12c6eb575d88 pool code generation Claus Gittinger <cg@exept.de> parents: 7085 diff changeset	1322	"Created: / 25-10-2006 / 09:28:40 / cg"
12c6eb575d88 pool code generation Claus Gittinger <cg@exept.de> parents: 7085 diff changeset	1323	!
12c6eb575d88 pool code generation Claus Gittinger <cg@exept.de> parents: 7085 diff changeset	1324
8344 efda36a55d02 changed #createRedefinedInstanceCreationMethodsIn: Claus Gittinger <cg@exept.de> parents: 8258 diff changeset	1325	createRedefinedInstanceCreationMethodsIn:aClass
efda36a55d02 changed #createRedefinedInstanceCreationMethodsIn: Claus Gittinger <cg@exept.de> parents: 8258 diff changeset	1326	"create a redefined #new methods"
efda36a55d02 changed #createRedefinedInstanceCreationMethodsIn: Claus Gittinger <cg@exept.de> parents: 8258 diff changeset	1327
efda36a55d02 changed #createRedefinedInstanceCreationMethodsIn: Claus Gittinger <cg@exept.de> parents: 8258 diff changeset	1328	\|nonMetaClass metaClass className code\|
efda36a55d02 changed #createRedefinedInstanceCreationMethodsIn: Claus Gittinger <cg@exept.de> parents: 8258 diff changeset	1329
efda36a55d02 changed #createRedefinedInstanceCreationMethodsIn: Claus Gittinger <cg@exept.de> parents: 8258 diff changeset	1330	nonMetaClass := aClass theNonMetaclass.
efda36a55d02 changed #createRedefinedInstanceCreationMethodsIn: Claus Gittinger <cg@exept.de> parents: 8258 diff changeset	1331	metaClass := aClass theMetaclass.
efda36a55d02 changed #createRedefinedInstanceCreationMethodsIn: Claus Gittinger <cg@exept.de> parents: 8258 diff changeset	1332	className := nonMetaClass name.
efda36a55d02 changed #createRedefinedInstanceCreationMethodsIn: Claus Gittinger <cg@exept.de> parents: 8258 diff changeset	1333
efda36a55d02 changed #createRedefinedInstanceCreationMethodsIn: Claus Gittinger <cg@exept.de> parents: 8258 diff changeset	1334	self startCollectChanges.
efda36a55d02 changed #createRedefinedInstanceCreationMethodsIn: Claus Gittinger <cg@exept.de> parents: 8258 diff changeset	1335
efda36a55d02 changed #createRedefinedInstanceCreationMethodsIn: Claus Gittinger <cg@exept.de> parents: 8258 diff changeset	1336	(metaClass includesSelector:#'new') ifFalse:[
efda36a55d02 changed #createRedefinedInstanceCreationMethodsIn: Claus Gittinger <cg@exept.de> parents: 8258 diff changeset	1337	code :=
efda36a55d02 changed #createRedefinedInstanceCreationMethodsIn: Claus Gittinger <cg@exept.de> parents: 8258 diff changeset	1338	'new
efda36a55d02 changed #createRedefinedInstanceCreationMethodsIn: Claus Gittinger <cg@exept.de> parents: 8258 diff changeset	1339	^ super new.
efda36a55d02 changed #createRedefinedInstanceCreationMethodsIn: Claus Gittinger <cg@exept.de> parents: 8258 diff changeset	1340	'.
efda36a55d02 changed #createRedefinedInstanceCreationMethodsIn: Claus Gittinger <cg@exept.de> parents: 8258 diff changeset	1341	self
efda36a55d02 changed #createRedefinedInstanceCreationMethodsIn: Claus Gittinger <cg@exept.de> parents: 8258 diff changeset	1342	compile:code
efda36a55d02 changed #createRedefinedInstanceCreationMethodsIn: Claus Gittinger <cg@exept.de> parents: 8258 diff changeset	1343	forClass:metaClass
efda36a55d02 changed #createRedefinedInstanceCreationMethodsIn: Claus Gittinger <cg@exept.de> parents: 8258 diff changeset	1344	inCategory:'redefined instance creation'.
efda36a55d02 changed #createRedefinedInstanceCreationMethodsIn: Claus Gittinger <cg@exept.de> parents: 8258 diff changeset	1345	].
efda36a55d02 changed #createRedefinedInstanceCreationMethodsIn: Claus Gittinger <cg@exept.de> parents: 8258 diff changeset	1346	(metaClass includesSelector:#'new:') ifFalse:[
efda36a55d02 changed #createRedefinedInstanceCreationMethodsIn: Claus Gittinger <cg@exept.de> parents: 8258 diff changeset	1347	code :=
efda36a55d02 changed #createRedefinedInstanceCreationMethodsIn: Claus Gittinger <cg@exept.de> parents: 8258 diff changeset	1348	'new:n
efda36a55d02 changed #createRedefinedInstanceCreationMethodsIn: Claus Gittinger <cg@exept.de> parents: 8258 diff changeset	1349	^ super new:n.
efda36a55d02 changed #createRedefinedInstanceCreationMethodsIn: Claus Gittinger <cg@exept.de> parents: 8258 diff changeset	1350	'.
efda36a55d02 changed #createRedefinedInstanceCreationMethodsIn: Claus Gittinger <cg@exept.de> parents: 8258 diff changeset	1351	self
efda36a55d02 changed #createRedefinedInstanceCreationMethodsIn: Claus Gittinger <cg@exept.de> parents: 8258 diff changeset	1352	compile:code
efda36a55d02 changed #createRedefinedInstanceCreationMethodsIn: Claus Gittinger <cg@exept.de> parents: 8258 diff changeset	1353	forClass:metaClass
efda36a55d02 changed #createRedefinedInstanceCreationMethodsIn: Claus Gittinger <cg@exept.de> parents: 8258 diff changeset	1354	inCategory:'redefined instance creation'.
efda36a55d02 changed #createRedefinedInstanceCreationMethodsIn: Claus Gittinger <cg@exept.de> parents: 8258 diff changeset	1355	].
efda36a55d02 changed #createRedefinedInstanceCreationMethodsIn: Claus Gittinger <cg@exept.de> parents: 8258 diff changeset	1356
efda36a55d02 changed #createRedefinedInstanceCreationMethodsIn: Claus Gittinger <cg@exept.de> parents: 8258 diff changeset	1357	self executeCollectedChangesNamed:('Redefined Instance Creation to ' , className).
efda36a55d02 changed #createRedefinedInstanceCreationMethodsIn: Claus Gittinger <cg@exept.de> parents: 8258 diff changeset	1358	!
efda36a55d02 changed #createRedefinedInstanceCreationMethodsIn: Claus Gittinger <cg@exept.de> parents: 8258 diff changeset	1359
5953 bf6cdc968a53 * empty log message * ca parents: 5817 diff changeset	1360	createStandardPrintOnMethodIn:aClass
bf6cdc968a53 * empty log message * ca parents: 5817 diff changeset	1361	"create a #printOn: method (I'm tired of typing)"
bf6cdc968a53 * empty log message * ca parents: 5817 diff changeset	1362
6050 300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1363	\|code nonMetaClass\|
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1364
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1365	nonMetaClass := aClass theNonMetaclass.
5953 bf6cdc968a53 * empty log message * ca parents: 5817 diff changeset	1366
bf6cdc968a53 * empty log message * ca parents: 5817 diff changeset	1367	self startCollectChanges.
bf6cdc968a53 * empty log message * ca parents: 5817 diff changeset	1368
6050 300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1369	(nonMetaClass includesSelector:#'printOn:') ifFalse:[
5953 bf6cdc968a53 * empty log message * ca parents: 5817 diff changeset	1370	code :=
bf6cdc968a53 * empty log message * ca parents: 5817 diff changeset	1371	'printOn:aStream
bf6cdc968a53 * empty log message * ca parents: 5817 diff changeset	1372	"append a printed representation if the receiver to the argument, aStream"
bf6cdc968a53 * empty log message * ca parents: 5817 diff changeset	1373
bf6cdc968a53 * empty log message * ca parents: 5817 diff changeset	1374	super printOn:aStream.
bf6cdc968a53 * empty log message * ca parents: 5817 diff changeset	1375	'.
6050 300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1376	nonMetaClass instVarNames do:[:eachInstVarName \|
5953 bf6cdc968a53 * empty log message * ca parents: 5817 diff changeset	1377	code := code , ' '.
bf6cdc968a53 * empty log message * ca parents: 5817 diff changeset	1378	code := code , 'aStream nextPutAll:'''.
bf6cdc968a53 * empty log message * ca parents: 5817 diff changeset	1379	code := code , eachInstVarName.
bf6cdc968a53 * empty log message * ca parents: 5817 diff changeset	1380	code := code , ': ''.' , Character cr.
bf6cdc968a53 * empty log message * ca parents: 5817 diff changeset	1381	code := code , ' '.
bf6cdc968a53 * empty log message * ca parents: 5817 diff changeset	1382	code := code , eachInstVarName.
bf6cdc968a53 * empty log message * ca parents: 5817 diff changeset	1383	code := code , ' printOn:aStream.' , Character cr.
bf6cdc968a53 * empty log message * ca parents: 5817 diff changeset	1384
bf6cdc968a53 * empty log message * ca parents: 5817 diff changeset	1385	].
bf6cdc968a53 * empty log message * ca parents: 5817 diff changeset	1386
bf6cdc968a53 * empty log message * ca parents: 5817 diff changeset	1387	self
bf6cdc968a53 * empty log message * ca parents: 5817 diff changeset	1388	compile:code
6050 300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1389	forClass:nonMetaClass
5953 bf6cdc968a53 * empty log message * ca parents: 5817 diff changeset	1390	inCategory:'printing & storing'.
bf6cdc968a53 * empty log message * ca parents: 5817 diff changeset	1391	].
bf6cdc968a53 * empty log message * ca parents: 5817 diff changeset	1392
bf6cdc968a53 * empty log message * ca parents: 5817 diff changeset	1393
6050 300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1394	self executeCollectedChangesNamed:('Add #printOn: to ' , nonMetaClass name).
5953 bf6cdc968a53 * empty log message * ca parents: 5817 diff changeset	1395
bf6cdc968a53 * empty log message * ca parents: 5817 diff changeset	1396	"Created: / 11.10.2001 / 22:18:55 / cg"
bf6cdc968a53 * empty log message * ca parents: 5817 diff changeset	1397	!
bf6cdc968a53 * empty log message * ca parents: 5817 diff changeset	1398
9049 9a2003a4fef3 added: #createStartupCodeFor:forStartOf: Claus Gittinger <cg@exept.de> parents: 9044 diff changeset	1399	createStartupCodeFor:aClass forStartOf:anApplicationClass
9a2003a4fef3 added: #createStartupCodeFor:forStartOf: Claus Gittinger <cg@exept.de> parents: 9044 diff changeset	1400	"create startup code (main)"
9a2003a4fef3 added: #createStartupCodeFor:forStartOf: Claus Gittinger <cg@exept.de> parents: 9044 diff changeset	1401
9a2003a4fef3 added: #createStartupCodeFor:forStartOf: Claus Gittinger <cg@exept.de> parents: 9044 diff changeset	1402	\|nonMetaClass metaClass className txt\|
9a2003a4fef3 added: #createStartupCodeFor:forStartOf: Claus Gittinger <cg@exept.de> parents: 9044 diff changeset	1403
9a2003a4fef3 added: #createStartupCodeFor:forStartOf: Claus Gittinger <cg@exept.de> parents: 9044 diff changeset	1404	self startCollectChanges.
9a2003a4fef3 added: #createStartupCodeFor:forStartOf: Claus Gittinger <cg@exept.de> parents: 9044 diff changeset	1405
9a2003a4fef3 added: #createStartupCodeFor:forStartOf: Claus Gittinger <cg@exept.de> parents: 9044 diff changeset	1406	nonMetaClass := aClass theNonMetaclass.
9a2003a4fef3 added: #createStartupCodeFor:forStartOf: Claus Gittinger <cg@exept.de> parents: 9044 diff changeset	1407	metaClass := aClass theMetaclass.
9a2003a4fef3 added: #createStartupCodeFor:forStartOf: Claus Gittinger <cg@exept.de> parents: 9044 diff changeset	1408	className := nonMetaClass name.
9a2003a4fef3 added: #createStartupCodeFor:forStartOf: Claus Gittinger <cg@exept.de> parents: 9044 diff changeset	1409
9a2003a4fef3 added: #createStartupCodeFor:forStartOf: Claus Gittinger <cg@exept.de> parents: 9044 diff changeset	1410	(metaClass includesSelector:#main:) ifFalse:[
9a2003a4fef3 added: #createStartupCodeFor:forStartOf: Claus Gittinger <cg@exept.de> parents: 9044 diff changeset	1411	txt :=
9a2003a4fef3 added: #createStartupCodeFor:forStartOf: Claus Gittinger <cg@exept.de> parents: 9044 diff changeset	1412	'main:argv
9a2003a4fef3 added: #createStartupCodeFor:forStartOf: Claus Gittinger <cg@exept.de> parents: 9044 diff changeset	1413	self verboseInfo:''starting %1''.
9a2003a4fef3 added: #createStartupCodeFor:forStartOf: Claus Gittinger <cg@exept.de> parents: 9044 diff changeset	1414
9a2003a4fef3 added: #createStartupCodeFor:forStartOf: Claus Gittinger <cg@exept.de> parents: 9044 diff changeset	1415	%1 open.
9a2003a4fef3 added: #createStartupCodeFor:forStartOf: Claus Gittinger <cg@exept.de> parents: 9044 diff changeset	1416	'.
9a2003a4fef3 added: #createStartupCodeFor:forStartOf: Claus Gittinger <cg@exept.de> parents: 9044 diff changeset	1417
9a2003a4fef3 added: #createStartupCodeFor:forStartOf: Claus Gittinger <cg@exept.de> parents: 9044 diff changeset	1418	self
9a2003a4fef3 added: #createStartupCodeFor:forStartOf: Claus Gittinger <cg@exept.de> parents: 9044 diff changeset	1419	compile:(txt bindWith:anApplicationClass name)
9a2003a4fef3 added: #createStartupCodeFor:forStartOf: Claus Gittinger <cg@exept.de> parents: 9044 diff changeset	1420	forClass:metaClass
9a2003a4fef3 added: #createStartupCodeFor:forStartOf: Claus Gittinger <cg@exept.de> parents: 9044 diff changeset	1421	inCategory:'startup'.
9a2003a4fef3 added: #createStartupCodeFor:forStartOf: Claus Gittinger <cg@exept.de> parents: 9044 diff changeset	1422	].
9a2003a4fef3 added: #createStartupCodeFor:forStartOf: Claus Gittinger <cg@exept.de> parents: 9044 diff changeset	1423	self executeCollectedChangesNamed:('Add Startup Code to ' , className).
9a2003a4fef3 added: #createStartupCodeFor:forStartOf: Claus Gittinger <cg@exept.de> parents: 9044 diff changeset	1424	!
9a2003a4fef3 added: #createStartupCodeFor:forStartOf: Claus Gittinger <cg@exept.de> parents: 9044 diff changeset	1425
5758 8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1426	createTestCaseSampleCodeFor:aClass
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1427	"create an (almost) empty testCase class"
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1428
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1429	\|nonMetaClass metaClass\|
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1430
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1431	nonMetaClass := aClass theNonMetaclass.
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1432	metaClass := aClass theMetaclass.
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1433	"/ className := nonMetaClass name.
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1434
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1435	( nonMetaClass includesSelector:#test1 ) ifFalse:[
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1436	self
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1437	compile:
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1438	'test1
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1439	"This is a demonstration testCase - it is meant to be removed eventually.
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1440	This testCase will PASS.
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1441	Double click on the TestCase class or open a TestRunner to see me checking...
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1442	- please add more methods like this..."
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1443
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1444	\|o\|
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1445
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1446	o := Array new:2.
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1447	self assert: ( o size == 2 ).
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1448	self should: [ o at:0 ] raise:Error.
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1449	self shouldnt: [ o at:1 ] raise:Error.
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1450
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1451	"
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1452	self run:#test1
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1453	self new test1
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1454	"
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1455	'
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1456	forClass:nonMetaClass
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1457	inCategory:'tests'.
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1458	].
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1459
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1460	( nonMetaClass includesSelector:#test2 ) ifFalse:[
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1461	self
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1462	compile:
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1463	'test2
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1464	"This is a demonstration testCase - it is meant to be removed eventually..
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1465	This testCase WILL FAIL.
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1466	Double click on the TestCase class or open a TestRunner to see me checking...
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1467	- please add more methods like this..."
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1468
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1469	\|o\|
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1470
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1471	o := Array new:2.
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1472	self assert: ( o size == 3 ).
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1473
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1474	"
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1475	self run:#test2
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1476	self new test2
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1477	"
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1478	'
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1479	forClass:nonMetaClass
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1480	inCategory:'tests'.
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1481	].
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1482
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1483	( nonMetaClass includesSelector:#test3 ) ifFalse:[
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1484	self
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1485	compile:
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1486	'test3
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1487	"This is a demonstration testCase - it is meant to be removed eventually..
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1488	This testCase WILL generate an ERROR.
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1489	Double click on the TestCase class or open a TestRunner to see me checking...
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1490	- please add more methods like this..."
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1491
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1492	\|o\|
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1493
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1494	o := Array new:2.
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1495	self assert: ( o foo ).
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1496
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1497	"
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1498	self run:#test3
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1499	self new test3
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1500	"
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1501	'
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1502	forClass:nonMetaClass
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1503	inCategory:'tests'.
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1504	].
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1505
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1506	( nonMetaClass includesSelector:#setUp ) ifFalse:[
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1507	self
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1508	compile:
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1509	'setUp
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1510	"common setup - invoked before testing."
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1511
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1512	super setUp
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1513	'
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1514	forClass:nonMetaClass
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1515	inCategory:'initialize / release'.
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1516	].
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1517
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1518	( nonMetaClass includesSelector:#tearDown ) ifFalse:[
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1519	self
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1520	compile:
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1521	'tearDown
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1522	"common cleanup - invoked after testing."
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1523
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1524	super tearDown
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1525	'
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1526	forClass:nonMetaClass
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1527	inCategory:'initialize / release'.
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1528	]
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1529	!
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1530
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1531	createVisitorMethodsIn:visitedClass andVisitorClass:visitorClass
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1532	"create acceptVisitor: in visitedClass and acceptXXX in visitorClass. (I'm tired of typing)"
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1533
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1534	\|sel\|
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1535
6921 821413de0099 leftover halt. Claus Gittinger <cg@exept.de> parents: 6839 diff changeset	1536	self assert:( visitedClass isMeta not ).
821413de0099 leftover halt. Claus Gittinger <cg@exept.de> parents: 6839 diff changeset	1537	self assert:( visitorClass isMeta not ).
5758 8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1538
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1539	self startCollectChanges.
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1540
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1541	sel := ('visit' , visitedClass nameWithoutPrefix , ':').
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1542	self createAcceptVisitorMethod:sel in:visitedClass.
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1543
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1544	(visitorClass includesSelector:sel) ifFalse:[
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1545	self
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1546	compile:
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1547	(('%1anObject
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1548	"dispatched back from the visited %2-object (visitor pattern)"
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1549
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1550	"fall back to general object-case - please change as required"
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1551
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1552	^ self visitObject:anObject
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1553	') bindWith:sel with:visitedClass nameWithoutPrefix asLowercaseFirst)
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1554	forClass:visitorClass
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1555	inCategory:'visiting'.
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1556	].
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1557
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1558	(visitorClass includesSelector:#'visitObject:') ifFalse:[
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1559	self
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1560	compile:
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1561	('visitObject:anObject
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1562	"dispatched back from the visited objects (visitor pattern)"
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1563
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1564	"general fallBack - please change as required"
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1565
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1566	self halt:''not yet implemented''
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1567	')
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1568	forClass:visitorClass
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1569	inCategory:'visiting'.
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1570	].
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1571
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1572	(visitorClass includesSelector:#'visit:') ifFalse:[
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1573	self
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1574	compile:
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1575	('visit:anObject
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1576	"visit anObject (visitor pattern).
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1577	The object should call back one of my visitXXXX methods."
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1578
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1579	^ anObject acceptVisitor:self
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1580	')
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1581	forClass:visitorClass
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1582	inCategory:'visiting'.
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1583	].
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1584
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1585	self executeCollectedChangesNamed:('Add Visitor Pattern').
6050 300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1586	!
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1587
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1588	createWebApplicationCodeFor:aClass
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1589	"create an empty webApplication framework"
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1590
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1591	\|nonMetaClass metaClass className txt\|
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1592
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1593	self startCollectChanges.
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1594
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1595	nonMetaClass := aClass theNonMetaclass.
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1596	metaClass := aClass theMetaclass.
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1597	className := nonMetaClass name.
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1598
7973 7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	1599	(metaClass includesSelector:#pageSpec) ifFalse:[
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	1600	txt := self class initialPageSpecMethodSourceForWebApplications.
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	1601	self
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	1602	compile:(txt bindWith:className)
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	1603	forClass:metaClass
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	1604	inCategory:'page specs'.
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	1605	].
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	1606
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	1607	self executeCollectedChangesNamed:('Add WebApplication Code for ' , className).
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	1608
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	1609	"Modified: / 1.2.1998 / 16:10:03 / cg"
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	1610	!
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	1611
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	1612	createWebServiceCodeFor:aClass
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	1613	"create an empty webService framework"
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	1614
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	1615	\|nonMetaClass metaClass className txt\|
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	1616
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	1617	self startCollectChanges.
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	1618
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	1619	nonMetaClass := aClass theNonMetaclass.
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	1620	metaClass := aClass theMetaclass.
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	1621	className := nonMetaClass name.
7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	1622
6050 300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1623	(nonMetaClass includesSelector:#process:) ifFalse:[
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1624	txt :=
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1625	'process:aRequest
7973 7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	1626	"This is the web services main processing method.
6050 300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1627	It will be invoked for every incoming webBrowser-request.
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1628	The argument, aRequest contains the parameters (url, fields, parameters etc.)."
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1629
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1630	\|response\|
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1631
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1632	response := aRequest response.
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1633	response nextPutLine:''<HTML>''.
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1634	response nextPutLine:'' <HEAD>''.
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1635	response nextPutLine:'' <TITLE>Hello</TITLE>''.
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1636	response nextPutLine:'' </HEAD>''.
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1637	response nextPutLine:'' <BODY>''.
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1638	response nextPutLine:'' <H1>Hello World !!</H1>''.
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1639	response nextPutLine:'' </BODY>''.
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1640	response nextPutLine:''</HTML>''.
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1641	'.
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1642	self
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1643	compile:txt
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1644	forClass:nonMetaClass
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1645	inCategory:'response generation'.
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1646	].
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1647
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1648	(metaClass includesSelector:#linkName) ifFalse:[
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1649	txt :=
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1650	'linkName
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1651	"return the default linkName path (with slash)."
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1652
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1653	^ ''/NewService''
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1654	'.
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1655	self
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1656	compile:txt
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1657	forClass:metaClass
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1658	inCategory:'defaults'.
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1659	].
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1660
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1661	(metaClass includesSelector:#settingsApplicationClass) ifFalse:[
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1662	txt :=
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1663	'settingsApplicationClass
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1664	"a SettingsApplication class - or nil (used in the settings dialog if non-nil)."
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1665
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1666	^ nil
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1667	'.
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1668	self
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1669	compile:txt
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1670	forClass:metaClass
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1671	inCategory:'defaults'.
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1672	].
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1673
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1674
7973 7fb67608aa3e * empty log message * Claus Gittinger <cg@exept.de> parents: 7967 diff changeset	1675	self executeCollectedChangesNamed:('Add WebService Code for ' , className).
6050 300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1676
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1677	"Modified: / 1.2.1998 / 16:10:03 / cg"
8572 beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1678	!
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1679
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1680	createWidgetCodeFor:aClass
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1681	"create usually required widget code (redraw, model update, event handling)"
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1682
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1683	\|nonMetaClass metaClass className compileTemplateAction\|
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1684
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1685	self startCollectChanges.
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1686
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1687	nonMetaClass := aClass theNonMetaclass.
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1688	metaClass := aClass theMetaclass.
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1689	className := nonMetaClass name.
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1690
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1691	compileTemplateAction :=
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1692	[:selector :templateSelector :category \|
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1693	(nonMetaClass includesSelector:selector) ifFalse:[
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1694	\|txt\|
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1695
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1696	txt := self perform:templateSelector.
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1697	self
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1698	compile:txt
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1699	forClass:nonMetaClass
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1700	inCategory:category.
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1701	]
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1702	].
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1703
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1704	#(
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1705	#'initialize' #code_forWidget_initialize 'initialization & release'
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1706	#'update:with:from:' #code_forWidget_update 'change & update'
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1707	#'redrawX:y:width:height:' #code_forWidget_redraw 'drawing'
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1708	#'buttonPress:x:y:' #code_forWidget_buttonPress 'event handling'
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1709	#'keyPress:x:y:' #code_forWidget_keyPress 'event handling'
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1710	#'sizeChanged:' #code_forWidget_sizeChanged 'event handling'
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1711	) inGroupsOf:3 do:compileTemplateAction.
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1712
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1713	self executeCollectedChangesNamed:('Add Widget Code for ' , className).
5758 8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1714	! !
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1715
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1716	!CodeGeneratorTool methodsFor:'code generation-basic'!
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1717
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1718	createAccessMethodsFor:aCollectionOfVarNames in:aClass withChange:withChange asValueHolder:asValueHolder readersOnly:readersOnly writersOnly:writersOnly lazyInitialization:lazyInitialization
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1719	"workhorse for creating access methods for instvars."
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1720
8572 beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1721	\|classesClassVars generateCommentsForSetters generateCommentsForGetters\|
5758 8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1722
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1723	self startCollectChanges.
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1724
8572 beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1725	generateCommentsForSetters := userPreferences generateCommentsForSetters.
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1726	generateCommentsForGetters := userPreferences generateCommentsForGetters.
5013 0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1727
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1728	classesClassVars := aClass theNonMetaclass allClassVarNames.
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1729
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1730	aCollectionOfVarNames do:[:name \|
8773 a722c4bb21a7 changed: #createAccessMethodsFor:in:withChange:asValueHolder:readersOnly:writersOnly:lazyInitialization: Claus Gittinger <cg@exept.de> parents: 8574 diff changeset	1731	\|source varType methodName defaultMethodName argName\|
5013 0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1732
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1733	varType := (classesClassVars includes:name)
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1734	ifTrue:['static']
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1735	ifFalse:[
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1736	(aClass isMeta ifTrue:['classInstVar'] ifFalse:['instance'])].
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1737
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1738	methodName := name.
6643 abd4749a00ae * empty log message * Claus Gittinger <cg@exept.de> parents: 6350 diff changeset	1739	name isUppercaseFirst ifTrue:[
5013 0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1740	methodName := methodName asLowercaseFirst.
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1741	].
8773 a722c4bb21a7 changed: #createAccessMethodsFor:in:withChange:asValueHolder:readersOnly:writersOnly:lazyInitialization: Claus Gittinger <cg@exept.de> parents: 8574 diff changeset	1742	argName := 'something'.
5013 0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1743
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1744	"/ the GETTER
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1745	writersOnly ifFalse:[
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1746	lazyInitialization ifTrue:[
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1747	defaultMethodName := 'default' , name asUppercaseFirst.
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1748	].
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1749
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1750	"check, if method is not already present"
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1751	(aClass includesSelector:(methodName asSymbol)) ifFalse:[
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1752	asValueHolder ifTrue:[
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1753	source := methodName , '\'.
5758 8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1754	generateComments ifTrue:[
5013 0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1755	source := source , ' "return/create the ''%2'' value holder (automatically generated)"\\'.
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1756	].
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1757	source := source , ' %2 isNil ifTrue:[\'.
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1758	lazyInitialization ifTrue:[
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1759	source := source
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1760	, ' %2 := self class %3 asValue.\'.
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1761	] ifFalse:[
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1762	source := source
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1763	, ' %2 := ValueHolder new.\'.
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1764	].
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1765
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1766	withChange ifTrue:[
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1767	source := source
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1768	, ' %2 addDependent:self.\'.
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1769	].
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1770	source := source
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1771	, ' ].\'
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1772	, ' ^ %2'.
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1773	] ifFalse:[
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1774	source := methodName , '\'.
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1775	lazyInitialization ifTrue:[
5758 8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1776	generateCommentsForGetters ifTrue:[
5013 0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1777	source := source , ' "return the %1 instance variable ''%2'' with lazy instance creation (automatically generated)"\\'.
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1778	].
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1779	source := source
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1780	, ' %2 isNil ifTrue:[\'
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1781	, ' %2 := self class %3.\'
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1782	, ' ].\'
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1783	, ' ^ %2'.
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1784	] ifFalse:[
5758 8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1785	generateCommentsForGetters ifTrue:[
5013 0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1786	source := source , ' "return the %1 instance variable ''%2'' (automatically generated)"\\'.
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1787	].
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1788	source := source
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1789	, ' ^ %2'.
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1790	].
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1791	].
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1792	source := (source bindWith:varType with:name with:defaultMethodName) withCRs.
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1793	self compile:source forClass:aClass inCategory:(asValueHolder ifTrue:['aspects'] ifFalse:['accessing']).
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1794	] ifTrue:[
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1795	Transcript showCR:'method ''', methodName , ''' already present'
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1796	].
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1797
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1798	"/ default for lazy on class side
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1799	lazyInitialization ifTrue:[
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1800	(aClass class includesSelector:(defaultMethodName asSymbol)) ifFalse:[
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1801	source := defaultMethodName , '\'.
5758 8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1802	generateComments ifTrue:[
5013 0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1803	source := source , ' "default value for the ''%2'' instance variable (automatically generated)"\\'.
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1804	].
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1805	source := source
6839 c25218305e50 Send #shouldImplement instead of #halt:. Stefan Vogel <sv@exept.de> parents: 6791 diff changeset	1806	, ' self shouldImplement.\'
5013 0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1807	, ' ^ nil.'.
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1808	source := (source bindWith:varType with:name) withCRs.
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1809	self compile:source forClass:aClass class inCategory:'defaults'.
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1810	].
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1811	].
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1812	].
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1813
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1814	"/ the SETTER
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1815	readersOnly ifFalse:[
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1816	(aClass includesSelector:((methodName , ':') asSymbol)) ifFalse:[
8773 a722c4bb21a7 changed: #createAccessMethodsFor:in:withChange:asValueHolder:readersOnly:writersOnly:lazyInitialization: Claus Gittinger <cg@exept.de> parents: 8574 diff changeset	1817	((methodName size > 2) and:[ (methodName startsWith:'is') and:[ (methodName at:3) isUppercase ]])
a722c4bb21a7 changed: #createAccessMethodsFor:in:withChange:asValueHolder:readersOnly:writersOnly:lazyInitialization: Claus Gittinger <cg@exept.de> parents: 8574 diff changeset	1818	ifTrue:[
a722c4bb21a7 changed: #createAccessMethodsFor:in:withChange:asValueHolder:readersOnly:writersOnly:lazyInitialization: Claus Gittinger <cg@exept.de> parents: 8574 diff changeset	1819	argName := 'aBoolean'
a722c4bb21a7 changed: #createAccessMethodsFor:in:withChange:asValueHolder:readersOnly:writersOnly:lazyInitialization: Claus Gittinger <cg@exept.de> parents: 8574 diff changeset	1820	].
5013 0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1821	asValueHolder ifTrue:[
8773 a722c4bb21a7 changed: #createAccessMethodsFor:in:withChange:asValueHolder:readersOnly:writersOnly:lazyInitialization: Claus Gittinger <cg@exept.de> parents: 8574 diff changeset	1822	source := methodName , ':%3\'. "/ argName
5758 8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1823	generateComments ifTrue:[
5013 0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1824	source := source , ' "set the ''%2'' value holder' , ' (automatically generated)"\\'.
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1825	].
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1826	withChange ifTrue:[
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1827	source := source
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1828	, ' \|oldValue newValue\|\\'
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1829	, ' %2 notNil ifTrue:[\'
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1830	, ' oldValue := %2 value.\'
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1831	, ' %2 removeDependent:self.\'
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1832	, ' ].\'
8773 a722c4bb21a7 changed: #createAccessMethodsFor:in:withChange:asValueHolder:readersOnly:writersOnly:lazyInitialization: Claus Gittinger <cg@exept.de> parents: 8574 diff changeset	1833	, ' %2 := %3.\' "/ argName
5013 0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1834	, ' %2 notNil ifTrue:[\'
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1835	, ' %2 addDependent:self.\'
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1836	, ' ].\'
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1837	, ' newValue := %2 value.\'
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1838	, ' oldValue ~~ newValue ifTrue:[\'
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1839	, ' self update:#value with:newValue from:%2.\'
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1840	, ' ].\'
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1841	] ifFalse:[
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1842	source := source
8773 a722c4bb21a7 changed: #createAccessMethodsFor:in:withChange:asValueHolder:readersOnly:writersOnly:lazyInitialization: Claus Gittinger <cg@exept.de> parents: 8574 diff changeset	1843	, ' %2 := %3.'. "/ argName
5013 0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1844	].
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1845	] ifFalse:[
8773 a722c4bb21a7 changed: #createAccessMethodsFor:in:withChange:asValueHolder:readersOnly:writersOnly:lazyInitialization: Claus Gittinger <cg@exept.de> parents: 8574 diff changeset	1846	source := methodName , ':%3\'. "/ argName
5013 0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1847	withChange ifTrue:[
5758 8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1848	generateComments ifTrue:[
5013 0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1849	source := source , ' "set the value of the %1 variable ''%2'''.
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1850	source := source , ' and send a change notification (automatically generated)"\\'.
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1851	].
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1852	source := source
8773 a722c4bb21a7 changed: #createAccessMethodsFor:in:withChange:asValueHolder:readersOnly:writersOnly:lazyInitialization: Claus Gittinger <cg@exept.de> parents: 8574 diff changeset	1853	, ' (%2 ~~ %3) ifTrue:[\'
a722c4bb21a7 changed: #createAccessMethodsFor:in:withChange:asValueHolder:readersOnly:writersOnly:lazyInitialization: Claus Gittinger <cg@exept.de> parents: 8574 diff changeset	1854	, ' %2 := %3.\' "/ argName
5013 0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1855	, ' self changed:#%2.\'
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1856	, ' ].\'.
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1857	] ifFalse:[
5758 8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1858	generateCommentsForSetters ifTrue:[
5013 0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1859	source := source , ' "set the value of the %1 variable ''%2'''.
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1860	source := source , ' (automatically generated)"\\'.
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1861	].
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1862	source := source
8773 a722c4bb21a7 changed: #createAccessMethodsFor:in:withChange:asValueHolder:readersOnly:writersOnly:lazyInitialization: Claus Gittinger <cg@exept.de> parents: 8574 diff changeset	1863	, ' %2 := %3.'. "/ argName
5013 0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1864	].
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1865	].
8773 a722c4bb21a7 changed: #createAccessMethodsFor:in:withChange:asValueHolder:readersOnly:writersOnly:lazyInitialization: Claus Gittinger <cg@exept.de> parents: 8574 diff changeset	1866	source := (source bindWith:varType with:name with:argName) withCRs.
5013 0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1867	self
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1868	compile:source
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1869	forClass:aClass
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1870	inCategory:(asValueHolder ifTrue:['aspects'] ifFalse:['accessing']).
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1871	] ifTrue:[
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1872	Transcript showCR:'method ''', methodName , ':'' already present'
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1873	].
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	1874	].
5758 8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1875	].
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1876
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	1877	self executeCollectedChangesNamed:('Add Accessors').
5763 8cce359fd150 add valueHolder Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	1878	!
8cce359fd150 add valueHolder Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	1879
7615 d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1880	createCollectionAccessMethodsFor:aCollectionOfVarNames in:aClass withChange:withChange
8572 beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1881	\|classesClassVars\|
7615 d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1882
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1883	self startCollectChanges.
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1884
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1885	classesClassVars := aClass theNonMetaclass allClassVarNames.
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1886
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1887	aCollectionOfVarNames do:[:name \|
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1888	\|source varType methodNameBase methodName defaultMethodName\|
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1889
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1890	varType := (classesClassVars includes:name)
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1891	ifTrue:['static']
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1892	ifFalse:[
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1893	(aClass isMeta ifTrue:['classInstVar'] ifFalse:['instance'])].
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1894
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1895	methodNameBase := name asUppercaseFirst.
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1896	(methodNameBase endsWith:'s') ifTrue:[
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1897	methodNameBase := methodNameBase copyWithoutLast:1.
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1898	].
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1899	methodName := 'add' , methodNameBase, ':'.
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1900
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1901	"check, if method is not already present"
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1902	(aClass includesSelector:(methodName asSymbol)) ifFalse:[
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1903	source := methodName , 'a%1\'.
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1904	generateComments ifTrue:[
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1905	source := source , ' "add a ',methodNameBase,'"\\'.
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1906	].
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1907	source := source , ' %2 isNil ifTrue:[\'.
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1908	source := source
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1909	, ' %2 := OrderedCollection new.\'.
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1910	source := source
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1911	, ' ].\'
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1912	, ' %2 add: a%1'.
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1913	source := (source bindWith:methodNameBase with:name) withCRs.
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1914	self compile:source forClass:aClass inCategory:'accessing'.
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1915	] ifTrue:[
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1916	Transcript showCR:'method ''', methodName , ''' already present'
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1917	].
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1918
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1919	methodName := 'remove' , methodNameBase, ':'.
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1920
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1921	"check, if method is not already present"
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1922	(aClass includesSelector:(methodName asSymbol)) ifFalse:[
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1923	source := methodName , 'a%1\'.
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1924	generateComments ifTrue:[
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1925	source := source , ' "remove a ',methodNameBase,'"\\'.
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1926	].
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1927	source := source
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1928	, ' %2 remove: a%1'.
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1929	source := (source bindWith:methodNameBase with:name) withCRs.
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1930	self compile:source forClass:aClass inCategory:'accessing'.
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1931	] ifTrue:[
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1932	Transcript showCR:'method ''', methodName , ''' already present'
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1933	].
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1934	].
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1935
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1936	self
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1937	createAccessMethodsFor:aCollectionOfVarNames
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1938	in:aClass
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1939	withChange:withChange
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1940	asValueHolder:false
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1941	readersOnly:true
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1942	writersOnly:false
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1943	lazyInitialization:false.
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1944
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1945	self executeCollectedChangesNamed:('Add Collection Access').
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1946
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1947	"Created: / 04-02-2007 / 15:52:31 / cg"
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1948	!
d059ea04b8f7 * empty log message * Claus Gittinger <cg@exept.de> parents: 7545 diff changeset	1949
5763 8cce359fd150 add valueHolder Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	1950	createValueHoldersFor:aCollectionOfVarNames in:aClass lazyInitialization:lazyInitialization
8cce359fd150 add valueHolder Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	1951	"workhorse for creating access methods for instvars."
8cce359fd150 add valueHolder Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	1952
8572 beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1953	\|nonMetaClass metaClass classesClassVars generateCommentsForSetters generateCommentsForGetters\|
6050 300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1954
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1955	nonMetaClass := aClass theNonMetaclass.
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1956	metaClass := aClass theMetaclass.
5763 8cce359fd150 add valueHolder Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	1957
8cce359fd150 add valueHolder Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	1958	self startCollectChanges.
8cce359fd150 add valueHolder Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	1959
8572 beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1960	generateCommentsForSetters := userPreferences generateCommentsForSetters.
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	1961	generateCommentsForGetters := userPreferences generateCommentsForGetters.
5763 8cce359fd150 add valueHolder Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	1962
6050 300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1963	classesClassVars := nonMetaClass allClassVarNames.
5763 8cce359fd150 add valueHolder Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	1964
8cce359fd150 add valueHolder Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	1965	aCollectionOfVarNames do:[:name \|
8cce359fd150 add valueHolder Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	1966	\|source varType methodName holderMethodName defaultMethodName\|
8cce359fd150 add valueHolder Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	1967
8cce359fd150 add valueHolder Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	1968	holderMethodName := name.
6643 abd4749a00ae * empty log message * Claus Gittinger <cg@exept.de> parents: 6350 diff changeset	1969	name isUppercaseFirst ifTrue:[
5763 8cce359fd150 add valueHolder Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	1970	holderMethodName := holderMethodName asLowercaseFirst.
8cce359fd150 add valueHolder Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	1971	].
8cce359fd150 add valueHolder Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	1972	(holderMethodName endsWith:'Holder') ifTrue:[
8cce359fd150 add valueHolder Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	1973	methodName := holderMethodName copyWithoutLast:6.
8cce359fd150 add valueHolder Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	1974	] ifFalse:[
8cce359fd150 add valueHolder Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	1975	methodName := holderMethodName.
8cce359fd150 add valueHolder Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	1976	holderMethodName := methodName , 'Holder'.
8cce359fd150 add valueHolder Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	1977	].
8cce359fd150 add valueHolder Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	1978
8cce359fd150 add valueHolder Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	1979	methodName notNil ifTrue:[
6050 300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1980	(metaClass includesSelector:(methodName asSymbol)) ifFalse:[
5763 8cce359fd150 add valueHolder Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	1981	source := '%1\'.
8cce359fd150 add valueHolder Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	1982	generateComments ifTrue:[
8cce359fd150 add valueHolder Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	1983	source := source , ' "return the value in ''%2''"\\'.
8cce359fd150 add valueHolder Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	1984	].
8cce359fd150 add valueHolder Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	1985	source := source , ' ^ self %2 value'.
8cce359fd150 add valueHolder Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	1986	source := (source bindWith:methodName with:holderMethodName) withCRs.
6050 300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1987	self compile:source forClass:nonMetaClass inCategory:('accessing').
5763 8cce359fd150 add valueHolder Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	1988	] ifTrue:[
8cce359fd150 add valueHolder Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	1989	Transcript showCR:'method ''', methodName , ''' already present'
8cce359fd150 add valueHolder Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	1990	].
8cce359fd150 add valueHolder Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	1991
6050 300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1992	(metaClass includesSelector:((methodName , ':') asSymbol)) ifFalse:[
5763 8cce359fd150 add valueHolder Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	1993	source := '%1: newValue\'.
8cce359fd150 add valueHolder Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	1994	generateComments ifTrue:[
8cce359fd150 add valueHolder Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	1995	source := source , ' "set the value in ''%2''"\\'.
8cce359fd150 add valueHolder Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	1996	].
8cce359fd150 add valueHolder Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	1997	source := source , ' self %2 value: newValue'.
8cce359fd150 add valueHolder Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	1998	source := (source bindWith:methodName with:holderMethodName) withCRs.
6050 300b21c10c71 * empty log message * ca parents: 5953 diff changeset	1999	self compile:source forClass:nonMetaClass inCategory:('accessing').
5763 8cce359fd150 add valueHolder Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	2000	] ifTrue:[
8cce359fd150 add valueHolder Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	2001	Transcript showCR:'method ''', methodName , ':'' already present'
8cce359fd150 add valueHolder Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	2002	].
8cce359fd150 add valueHolder Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	2003	].
6050 300b21c10c71 * empty log message * ca parents: 5953 diff changeset	2004	(metaClass includesSelector:(holderMethodName asSymbol)) ifFalse:[
5763 8cce359fd150 add valueHolder Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	2005	source := '%1\'.
8cce359fd150 add valueHolder Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	2006	generateComments ifTrue:[
8cce359fd150 add valueHolder Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	2007	source := source , ' "return/create the valueHolder ''%1''"\\'.
8cce359fd150 add valueHolder Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	2008	].
8cce359fd150 add valueHolder Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	2009	source := source , ' %1 isNil ifTrue:[\'.
8cce359fd150 add valueHolder Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	2010	source := source , ' %1 := ValueHolder with:nil "defaultValue here".\'.
8cce359fd150 add valueHolder Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	2011	source := source , ' ].\'.
8cce359fd150 add valueHolder Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	2012	source := source , ' ^ %1\'.
8cce359fd150 add valueHolder Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	2013	source := (source bindWith:holderMethodName) withCRs.
6050 300b21c10c71 * empty log message * ca parents: 5953 diff changeset	2014	self compile:source forClass:nonMetaClass inCategory:('accessing').
5763 8cce359fd150 add valueHolder Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	2015	] ifTrue:[
8cce359fd150 add valueHolder Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	2016	Transcript showCR:'method ''', methodName , ''' already present'
8cce359fd150 add valueHolder Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	2017	].
8cce359fd150 add valueHolder Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	2018	].
8cce359fd150 add valueHolder Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	2019
8cce359fd150 add valueHolder Claus Gittinger <cg@exept.de> parents: 5759 diff changeset	2020	self executeCollectedChangesNamed:('Add ValueHolder').
5013 0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	2021	! !
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	2022
5758 8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	2023	!CodeGeneratorTool methodsFor:'code generation-individual methods'!
3712 293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2024
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2025	createAcceptVisitorMethod:selector in:aClass
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2026	"create an acceptVisitor: method
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2027	(I'm tired of typing)"
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2028
6921 821413de0099 leftover halt. Claus Gittinger <cg@exept.de> parents: 6839 diff changeset	2029	self assert:( aClass isMeta not ).
3712 293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2030
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2031	(aClass includesSelector:#'acceptVisitor:') ifFalse:[
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2032	self
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2033	compile:
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2034	(('acceptVisitor:aVisitor
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2035	"Double dispatch back to the visitor, passing my type encoded in
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2036	the selector (visitor pattern)"
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2037
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2038	"stub code automatically generated - please change if required"
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2039
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2040	^ aVisitor %1self
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2041	') bindWith:selector)
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2042	forClass:aClass
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2043	inCategory:'visiting'.
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2044	]
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2045	!
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2046
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2047	createAcceptVisitorMethodIn:aClass
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2048	"create an acceptVisitor: method
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2049	(I'm tired of typing)"
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2050
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2051	self
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2052	createAcceptVisitorMethod:('visit' , aClass nameWithoutPrefix , ':') asSymbol
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2053	in:aClass
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2054	!
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2055
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2056	createCopyrightMethodFor:aClass
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2057	"add copyright method containing your/your companies
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2058	copyright template but only if not already present.
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2059	this is only added, if specified in the
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2060	COPYRIGHT_TEMPLATE_FILE resources."
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2061
8258 77eecb901a6a copyrights Claus Gittinger <cg@exept.de> parents: 7973 diff changeset	2062	\|fn copyRightText\|
3712 293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2063
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2064	(aClass includesSelector:#copyright) ifFalse:[
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2065	fn := SystemBrowser classResources at:#'COPYRIGHT_TEMPLATE_FILE' default:nil.
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2066	fn notNil ifTrue:[
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2067	fn := fn asFilename.
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2068	fn exists ifTrue:[
8488 bb2810d17bd9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8344 diff changeset	2069	copyRightText := fn contentsAsString.
8258 77eecb901a6a copyrights Claus Gittinger <cg@exept.de> parents: 7973 diff changeset	2070	self createCopyrightMethodFor:copyRightText for:aClass
3712 293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2071	]
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2072	].
8258 77eecb901a6a copyrights Claus Gittinger <cg@exept.de> parents: 7973 diff changeset	2073	].
77eecb901a6a copyrights Claus Gittinger <cg@exept.de> parents: 7973 diff changeset	2074	!
77eecb901a6a copyrights Claus Gittinger <cg@exept.de> parents: 7973 diff changeset	2075
77eecb901a6a copyrights Claus Gittinger <cg@exept.de> parents: 7973 diff changeset	2076	createCopyrightMethodFor:copyRightText for:aClass
77eecb901a6a copyrights Claus Gittinger <cg@exept.de> parents: 7973 diff changeset	2077	"add copyright method containing text,
77eecb901a6a copyrights Claus Gittinger <cg@exept.de> parents: 7973 diff changeset	2078	but only if not already present."
77eecb901a6a copyrights Claus Gittinger <cg@exept.de> parents: 7973 diff changeset	2079
77eecb901a6a copyrights Claus Gittinger <cg@exept.de> parents: 7973 diff changeset	2080	\|txt\|
77eecb901a6a copyrights Claus Gittinger <cg@exept.de> parents: 7973 diff changeset	2081
77eecb901a6a copyrights Claus Gittinger <cg@exept.de> parents: 7973 diff changeset	2082	(aClass includesSelector:#copyright) ifFalse:[
77eecb901a6a copyrights Claus Gittinger <cg@exept.de> parents: 7973 diff changeset	2083	copyRightText notNil ifTrue:[
77eecb901a6a copyrights Claus Gittinger <cg@exept.de> parents: 7973 diff changeset	2084	txt := copyRightText bindWith:(Date today year).
3712 293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2085	self compile:
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2086	'copyright
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2087	"
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2088	' , txt , '
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2089	"
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2090	' forClass:aClass
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2091	inCategory:'documentation'.
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2092	]
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2093	].
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2094	!
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2095
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2096	createDocumentationMethodFor:aClass
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2097	"add documentation method containing doc template
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2098	but only if not already present."
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2099
6050 300b21c10c71 * empty log message * ca parents: 5953 diff changeset	2100	\|metaClass nonMetaClass userName loginName hostName emailAddress code existingComment\|
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	2101
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	2102	metaClass := aClass theMetaclass.
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	2103	nonMetaClass := aClass theNonMetaclass.
3712 293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2104
6050 300b21c10c71 * empty log message * ca parents: 5953 diff changeset	2105	(metaClass includesSelector:#documentation) ifFalse:[
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	2106	existingComment := nonMetaClass comment.
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	2107	existingComment isEmptyOrNil ifTrue:[
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	2108	(nonMetaClass isSubclassOf:HTTPService) ifTrue:[
6159 2707b35f964c * empty log message * Claus Gittinger <cg@exept.de> parents: 6050 diff changeset	2109	existingComment := ' [start Server with:]
7545 df2fc5dbee78 changed #createDocumentationMethodFor: Claus Gittinger <cg@exept.de> parents: 7480 diff changeset	2110	HTTPServer startServerOnPort:8080
6159 2707b35f964c * empty log message * Claus Gittinger <cg@exept.de> parents: 6050 diff changeset	2111
2707b35f964c * empty log message * Claus Gittinger <cg@exept.de> parents: 6050 diff changeset	2112	[start with:]
6050 300b21c10c71 * empty log message * ca parents: 5953 diff changeset	2113	(self new)
7545 df2fc5dbee78 changed #createDocumentationMethodFor: Claus Gittinger <cg@exept.de> parents: 7480 diff changeset	2114	registerServiceOn:(HTTPServer runningServerOnPort:8080)'.
6050 300b21c10c71 * empty log message * ca parents: 5953 diff changeset	2115	].
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	2116	].
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	2117
3712 293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2118	userName := OperatingSystem getFullUserName.
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2119	loginName := OperatingSystem getLoginName.
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2120	hostName := OperatingSystem getHostName.
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2121	emailAddress := loginName , '@' , hostName.
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2122
5756 66261b5c4659 * empty log message * ca parents: 5494 diff changeset	2123	"/ ugly; should ask the class for that
6350 421d6bb17db5 * empty log message * Claus Gittinger <cg@exept.de> parents: 6349 diff changeset	2124	metaClass isJavaScriptMetaclass ifTrue:[
5756 66261b5c4659 * empty log message * ca parents: 5494 diff changeset	2125	code :=
66261b5c4659 * empty log message * ca parents: 5494 diff changeset	2126	'function documentation() {
66261b5c4659 * empty log message * ca parents: 5494 diff changeset	2127	/*
6050 300b21c10c71 * empty log message * ca parents: 5953 diff changeset	2128	' , (existingComment ? ' documentation to be added.') , '
5756 66261b5c4659 * empty log message * ca parents: 5494 diff changeset	2129
66261b5c4659 * empty log message * ca parents: 5494 diff changeset	2130	[author:]
66261b5c4659 * empty log message * ca parents: 5494 diff changeset	2131	' , userName
66261b5c4659 * empty log message * ca parents: 5494 diff changeset	2132	, ' (' , emailAddress , ')' , '
66261b5c4659 * empty log message * ca parents: 5494 diff changeset	2133
66261b5c4659 * empty log message * ca parents: 5494 diff changeset	2134	[instance variables:]
66261b5c4659 * empty log message * ca parents: 5494 diff changeset	2135
66261b5c4659 * empty log message * ca parents: 5494 diff changeset	2136	[class variables:]
66261b5c4659 * empty log message * ca parents: 5494 diff changeset	2137
66261b5c4659 * empty log message * ca parents: 5494 diff changeset	2138	[see also:]
66261b5c4659 * empty log message * ca parents: 5494 diff changeset	2139
66261b5c4659 * empty log message * ca parents: 5494 diff changeset	2140	*/
66261b5c4659 * empty log message * ca parents: 5494 diff changeset	2141	}
66261b5c4659 * empty log message * ca parents: 5494 diff changeset	2142	'
66261b5c4659 * empty log message * ca parents: 5494 diff changeset	2143	] ifFalse:[
66261b5c4659 * empty log message * ca parents: 5494 diff changeset	2144	code:=
3712 293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2145	'documentation
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2146	"
6050 300b21c10c71 * empty log message * ca parents: 5953 diff changeset	2147	' , (existingComment ? ' documentation to be added.') , '
3712 293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2148
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2149	[author:]
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2150	' , userName
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2151	, ' (' , emailAddress , ')' , '
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2152
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2153	[instance variables:]
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2154
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2155	[class variables:]
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2156
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2157	[see also:]
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2158
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2159	"
5756 66261b5c4659 * empty log message * ca parents: 5494 diff changeset	2160	'
66261b5c4659 * empty log message * ca parents: 5494 diff changeset	2161	].
66261b5c4659 * empty log message * ca parents: 5494 diff changeset	2162
66261b5c4659 * empty log message * ca parents: 5494 diff changeset	2163	self
66261b5c4659 * empty log message * ca parents: 5494 diff changeset	2164	compile:code
6050 300b21c10c71 * empty log message * ca parents: 5953 diff changeset	2165	forClass:metaClass
5756 66261b5c4659 * empty log message * ca parents: 5494 diff changeset	2166	inCategory:'documentation'.
3712 293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2167	].
7545 df2fc5dbee78 changed #createDocumentationMethodFor: Claus Gittinger <cg@exept.de> parents: 7480 diff changeset	2168
df2fc5dbee78 changed #createDocumentationMethodFor: Claus Gittinger <cg@exept.de> parents: 7480 diff changeset	2169	"Modified: / 24-11-2006 / 15:54:27 / cg"
3712 293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2170	!
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2171
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2172	createExamplesMethodFor:aClass
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2173	"add examples method containing examples template
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2174	but only if not already present."
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2175
6050 300b21c10c71 * empty log message * ca parents: 5953 diff changeset	2176	\|nonMetaclass fragment\|
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	2177
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	2178	nonMetaclass := aClass theNonMetaclass.
8572 beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2179
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2180	(nonMetaclass isSubclassOf:View) ifTrue:[
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2181	self createExamplesMethodForViewClass:aClass.
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2182	^ self
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2183	].
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2184
6050 300b21c10c71 * empty log message * ca parents: 5953 diff changeset	2185	(nonMetaclass isSubclassOf:ApplicationModel) ifFalse:[
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	2186	^ self
300b21c10c71 * empty log message * ca parents: 5953 diff changeset	2187	].
3712 293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2188
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2189	(aClass includesSelector:#examples) ifFalse:[
6050 300b21c10c71 * empty log message * ca parents: 5953 diff changeset	2190	(nonMetaclass isSubclassOf:ApplicationModel) ifTrue:[
3712 293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2191	fragment := ' Starting the application:
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2192	[exBegin]
6050 300b21c10c71 * empty log message * ca parents: 5953 diff changeset	2193	' , nonMetaclass name , ' open
3712 293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2194
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2195	[exEnd]
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2196	'
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2197	] ifFalse:[
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2198	fragment := ''
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2199	].
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2200
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2201	self
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2202	compile:
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2203	'examples
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2204	"
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2205	' , fragment , '
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2206	more examples to be added:
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2207	[exBegin]
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2208	... add code fragment for
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2209	... executable example here ...
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2210	[exEnd]
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2211	"
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2212	'
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2213	forClass:aClass
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2214	inCategory:'documentation'.
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2215	].
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2216	!
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2217
3822 4e9f2f69875f code generation for icons moved from ImageEditor Claus Gittinger <cg@exept.de> parents: 3804 diff changeset	2218	createImageSpecMethodFor:anImage comment:comment in:aClass selector:sel
4e9f2f69875f code generation for icons moved from ImageEditor Claus Gittinger <cg@exept.de> parents: 3804 diff changeset	2219	\|imageStoreStream mthd imageKey category\|
4e9f2f69875f code generation for icons moved from ImageEditor Claus Gittinger <cg@exept.de> parents: 3804 diff changeset	2220
4e9f2f69875f code generation for icons moved from ImageEditor Claus Gittinger <cg@exept.de> parents: 3804 diff changeset	2221	anImage storeOn: (imageStoreStream := WriteStream on: '').
4e9f2f69875f code generation for icons moved from ImageEditor Claus Gittinger <cg@exept.de> parents: 3804 diff changeset	2222
4e9f2f69875f code generation for icons moved from ImageEditor Claus Gittinger <cg@exept.de> parents: 3804 diff changeset	2223	"/ if that method already exists, do not overwrite the category
4e9f2f69875f code generation for icons moved from ImageEditor Claus Gittinger <cg@exept.de> parents: 3804 diff changeset	2224	category := 'image specs'.
4e9f2f69875f code generation for icons moved from ImageEditor Claus Gittinger <cg@exept.de> parents: 3804 diff changeset	2225	(mthd := aClass compiledMethodAt:sel) notNil ifTrue:[
4e9f2f69875f code generation for icons moved from ImageEditor Claus Gittinger <cg@exept.de> parents: 3804 diff changeset	2226	category := mthd category.
4e9f2f69875f code generation for icons moved from ImageEditor Claus Gittinger <cg@exept.de> parents: 3804 diff changeset	2227	].
4e9f2f69875f code generation for icons moved from ImageEditor Claus Gittinger <cg@exept.de> parents: 3804 diff changeset	2228
4e9f2f69875f code generation for icons moved from ImageEditor Claus Gittinger <cg@exept.de> parents: 3804 diff changeset	2229	imageKey := (aClass name, ' ', sel) asSymbol.
4e9f2f69875f code generation for icons moved from ImageEditor Claus Gittinger <cg@exept.de> parents: 3804 diff changeset	2230	Icon constantNamed: imageKey put:nil.
4e9f2f69875f code generation for icons moved from ImageEditor Claus Gittinger <cg@exept.de> parents: 3804 diff changeset	2231	aClass
4e9f2f69875f code generation for icons moved from ImageEditor Claus Gittinger <cg@exept.de> parents: 3804 diff changeset	2232	compile: ((sel,
4e9f2f69875f code generation for icons moved from ImageEditor Claus Gittinger <cg@exept.de> parents: 3804 diff changeset	2233	'\', comment,
4e9f2f69875f code generation for icons moved from ImageEditor Claus Gittinger <cg@exept.de> parents: 3804 diff changeset	2234	'\\' ,
4e9f2f69875f code generation for icons moved from ImageEditor Claus Gittinger <cg@exept.de> parents: 3804 diff changeset	2235	' "\',
4e9f2f69875f code generation for icons moved from ImageEditor Claus Gittinger <cg@exept.de> parents: 3804 diff changeset	2236	' self ' , sel , ' inspect\',
3823 1ed101fe88a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3822 diff changeset	2237	' ImageEditor openOnClass:self andSelector:#', sel, '\',
3822 4e9f2f69875f code generation for icons moved from ImageEditor Claus Gittinger <cg@exept.de> parents: 3804 diff changeset	2238	' Icon flushCachedIcons',
4e9f2f69875f code generation for icons moved from ImageEditor Claus Gittinger <cg@exept.de> parents: 3804 diff changeset	2239	'\ "',
4e9f2f69875f code generation for icons moved from ImageEditor Claus Gittinger <cg@exept.de> parents: 3804 diff changeset	2240	'\\',
4e9f2f69875f code generation for icons moved from ImageEditor Claus Gittinger <cg@exept.de> parents: 3804 diff changeset	2241	' <resource: #image>',
4e9f2f69875f code generation for icons moved from ImageEditor Claus Gittinger <cg@exept.de> parents: 3804 diff changeset	2242	'\\',
4e9f2f69875f code generation for icons moved from ImageEditor Claus Gittinger <cg@exept.de> parents: 3804 diff changeset	2243	' ^Icon\') withCRs,
7967 2560906ca552 use string-key in constantNamed:-icon caching Claus Gittinger <cg@exept.de> parents: 7615 diff changeset	2244	' constantNamed:''', imageKey, '''\' withCRs,
3822 4e9f2f69875f code generation for icons moved from ImageEditor Claus Gittinger <cg@exept.de> parents: 3804 diff changeset	2245	' ifAbsentPut:[', imageStoreStream contents, ']')
4e9f2f69875f code generation for icons moved from ImageEditor Claus Gittinger <cg@exept.de> parents: 3804 diff changeset	2246	classified: category.
4e9f2f69875f code generation for icons moved from ImageEditor Claus Gittinger <cg@exept.de> parents: 3804 diff changeset	2247	!
4e9f2f69875f code generation for icons moved from ImageEditor Claus Gittinger <cg@exept.de> parents: 3804 diff changeset	2248
3712 293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2249	createInitialHistoryMethodFor:aClass
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2250	"add history method containing created-entry
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2251	but only if not already present."
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2252
5758 8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	2253	\|code\|
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	2254
3712 293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2255	(aClass includesSelector:#history) ifFalse:[
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2256	HistoryManager notNil ifTrue:[
5758 8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	2257	code := HistoryManager codeForInitialHistoryMethodIn:aClass.
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	2258	self
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	2259	compile:code
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	2260	forClass:aClass
8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	2261	inCategory:'documentation'.
3712 293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2262	].
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2263	].
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2264	!
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2265
4512 117fa43d16eb * empty log message * Claus Gittinger <cg@exept.de> parents: 4444 diff changeset	2266	createInstanceCreationMethodWithSetupFor:selector category:category in:aMetaClass
117fa43d16eb * empty log message * Claus Gittinger <cg@exept.de> parents: 4444 diff changeset	2267	"add an inst-creation method"
117fa43d16eb * empty log message * Claus Gittinger <cg@exept.de> parents: 4444 diff changeset	2268
117fa43d16eb * empty log message * Claus Gittinger <cg@exept.de> parents: 4444 diff changeset	2269	\|template\|
117fa43d16eb * empty log message * Claus Gittinger <cg@exept.de> parents: 4444 diff changeset	2270
117fa43d16eb * empty log message * Claus Gittinger <cg@exept.de> parents: 4444 diff changeset	2271	(aMetaClass includesSelector:selector) ifFalse:[
117fa43d16eb * empty log message * Claus Gittinger <cg@exept.de> parents: 4444 diff changeset	2272	template := Parser methodSpecificationForSelector:selector.
117fa43d16eb * empty log message * Claus Gittinger <cg@exept.de> parents: 4444 diff changeset	2273	self
117fa43d16eb * empty log message * Claus Gittinger <cg@exept.de> parents: 4444 diff changeset	2274	compile:
117fa43d16eb * empty log message * Claus Gittinger <cg@exept.de> parents: 4444 diff changeset	2275	template , '
117fa43d16eb * empty log message * Claus Gittinger <cg@exept.de> parents: 4444 diff changeset	2276	^ self new ' , template , '
117fa43d16eb * empty log message * Claus Gittinger <cg@exept.de> parents: 4444 diff changeset	2277	'
117fa43d16eb * empty log message * Claus Gittinger <cg@exept.de> parents: 4444 diff changeset	2278	forClass:aMetaClass
117fa43d16eb * empty log message * Claus Gittinger <cg@exept.de> parents: 4444 diff changeset	2279	inCategory:category.
117fa43d16eb * empty log message * Claus Gittinger <cg@exept.de> parents: 4444 diff changeset	2280	].
117fa43d16eb * empty log message * Claus Gittinger <cg@exept.de> parents: 4444 diff changeset	2281	!
117fa43d16eb * empty log message * Claus Gittinger <cg@exept.de> parents: 4444 diff changeset	2282
3712 293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2283	createMultiSetterMethodFor:aCollectionOfVarNames in:aClass
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2284	"create a multi-setter method for instvars."
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2285
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2286	\|source\|
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2287
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2288	source := ''.
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2289	aCollectionOfVarNames do:[:eachVar \|
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2290	source := source , (eachVar , ':' , eachVar , 'Arg ').
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2291	].
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2292	source := source , Character cr.
8572 beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2293	(userPreferences generateCommentsForSetters) ifTrue:[
6993 22233dd2489d * empty log message * Claus Gittinger <cg@exept.de> parents: 6992 diff changeset	2294	source := source , (' "set instance variables"' , Character cr , Character cr).
6992 93d4212a20d5 no comment in multi-setter Claus Gittinger <cg@exept.de> parents: 6972 diff changeset	2295	].
3712 293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2296	aCollectionOfVarNames do:[:eachVar \|
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2297	source := source , (' ' , eachVar , ' := ' , eachVar , 'Arg.' , Character cr).
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2298	].
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2299	self compile:source forClass:aClass inCategory:'accessing'.
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2300	!
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2301
3800 a5c75c369855 added generateSubclassResponsibility Claus Gittinger <cg@exept.de> parents: 3719 diff changeset	2302	createSubclassResponsibilityMethodFor:aSelector category:cat in:aClass
a5c75c369855 added generateSubclassResponsibility Claus Gittinger <cg@exept.de> parents: 3719 diff changeset	2303	"add a subclassResponsibility method;
a5c75c369855 added generateSubclassResponsibility Claus Gittinger <cg@exept.de> parents: 3719 diff changeset	2304	but only if not already present."
a5c75c369855 added generateSubclassResponsibility Claus Gittinger <cg@exept.de> parents: 3719 diff changeset	2305
a5c75c369855 added generateSubclassResponsibility Claus Gittinger <cg@exept.de> parents: 3719 diff changeset	2306	(aClass includesSelector:aSelector) ifFalse:[
a5c75c369855 added generateSubclassResponsibility Claus Gittinger <cg@exept.de> parents: 3719 diff changeset	2307
a5c75c369855 added generateSubclassResponsibility Claus Gittinger <cg@exept.de> parents: 3719 diff changeset	2308	self compile:
a5c75c369855 added generateSubclassResponsibility Claus Gittinger <cg@exept.de> parents: 3719 diff changeset	2309	(Method methodDefinitionTemplateForSelector:aSelector) ,
a5c75c369855 added generateSubclassResponsibility Claus Gittinger <cg@exept.de> parents: 3719 diff changeset	2310	'
a5c75c369855 added generateSubclassResponsibility Claus Gittinger <cg@exept.de> parents: 3719 diff changeset	2311	"raise an error: must be redefined in concrete subclass(es)"
a5c75c369855 added generateSubclassResponsibility Claus Gittinger <cg@exept.de> parents: 3719 diff changeset	2312
a5c75c369855 added generateSubclassResponsibility Claus Gittinger <cg@exept.de> parents: 3719 diff changeset	2313	^ self subclassResponsibility
a5c75c369855 added generateSubclassResponsibility Claus Gittinger <cg@exept.de> parents: 3719 diff changeset	2314	'
a5c75c369855 added generateSubclassResponsibility Claus Gittinger <cg@exept.de> parents: 3719 diff changeset	2315	forClass:aClass
a5c75c369855 added generateSubclassResponsibility Claus Gittinger <cg@exept.de> parents: 3719 diff changeset	2316	inCategory:cat.
a5c75c369855 added generateSubclassResponsibility Claus Gittinger <cg@exept.de> parents: 3719 diff changeset	2317	].
a5c75c369855 added generateSubclassResponsibility Claus Gittinger <cg@exept.de> parents: 3719 diff changeset	2318	!
a5c75c369855 added generateSubclassResponsibility Claus Gittinger <cg@exept.de> parents: 3719 diff changeset	2319
3712 293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2320	createUpdateMethodIn:aClass
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2321	"create an update:with:from:-method
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2322	(I'm tired of typing)"
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2323
8572 beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2324	\|code\|
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2325
3712 293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2326	(aClass includesSelector:#'update:with:from:') ifFalse:[
8572 beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2327	generateComments ifFalse:[
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2328	code :=
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2329	'update:something with:aParameter from:changedObject
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2330	super update:something with:aParameter from:changedObject
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2331	'
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2332	] ifTrue:[
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2333	code :=
3712 293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2334	'update:something with:aParameter from:changedObject
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2335	"Invoked when an object that I depend upon sends a change notification."
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2336
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2337	"stub code automatically generated - please change as required"
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2338
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2339	"/ changedObject == someOfMyValueHolders ifTrue:[
4926 f0ab6bb01771 checkin from browser Claus Gittinger <cg@exept.de> parents: 4908 diff changeset	2340	"/ self doSomethingApropriate.
f0ab6bb01771 checkin from browser Claus Gittinger <cg@exept.de> parents: 4908 diff changeset	2341	"/ ^ self.
3712 293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2342	"/ ].
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2343	super update:something with:aParameter from:changedObject
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2344	'
8572 beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2345	].
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2346
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2347	self
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2348	compile:code
3712 293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2349	forClass:aClass
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2350	inCategory:'change & update'.
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2351	]
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2352	!
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2353
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2354	createVersionMethodFor:aClass
8890 69b74f5776fb changed: fm parents: 8773 diff changeset	2355	<resource: #obsolete>
3712 293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2356	"add version method containing RCS template
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2357	but only if not already present and its not a private class."
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2358
5756 66261b5c4659 * empty log message * ca parents: 5494 diff changeset	2359	\|code\|
66261b5c4659 * empty log message * ca parents: 5494 diff changeset	2360
8890 69b74f5776fb changed: fm parents: 8773 diff changeset	2361	self obsoleteMethodWarning.
69b74f5776fb changed: fm parents: 8773 diff changeset	2362
3712 293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2363	aClass isPrivate ifFalse:[
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2364	(aClass includesSelector:#version) ifFalse:[
5756 66261b5c4659 * empty log message * ca parents: 5494 diff changeset	2365	"/ ugly; should ask the class for that
66261b5c4659 * empty log message * ca parents: 5494 diff changeset	2366	aClass isJavaScriptClass ifTrue:[
66261b5c4659 * empty log message * ca parents: 5494 diff changeset	2367	code:= ('function version() {\ return ("$' , 'Header$");\}') withCRs
66261b5c4659 * empty log message * ca parents: 5494 diff changeset	2368	] ifFalse:[
66261b5c4659 * empty log message * ca parents: 5494 diff changeset	2369	code:= ('version\ ^ ''$' , 'Header$''') withCRs
66261b5c4659 * empty log message * ca parents: 5494 diff changeset	2370	].
66261b5c4659 * empty log message * ca parents: 5494 diff changeset	2371	self
66261b5c4659 * empty log message * ca parents: 5494 diff changeset	2372	compile:code
66261b5c4659 * empty log message * ca parents: 5494 diff changeset	2373	forClass:aClass
66261b5c4659 * empty log message * ca parents: 5494 diff changeset	2374	inCategory:'documentation'.
3712 293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2375	]
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2376	].
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2377	! !
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2378
7480 33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2379	!CodeGeneratorTool methodsFor:'code templates'!
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2380
8987 6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	2381	codeFor_classInitialize
6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	2382	generateComments ifFalse:[
6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	2383	^
6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	2384	'initialize
6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	2385	%(INIT_CLASSINSTVARS)
6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	2386	%(INIT_CLASSVARS)
6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	2387	'.
6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	2388	].
6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	2389
6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	2390	^
6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	2391	'initialize
6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	2392	"Invoked at system start or when the class is dynamically loaded."
6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	2393
6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	2394	"/ please change as required (and remove this comment)
6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	2395	%(INIT_CLASSINSTVARS)
6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	2396	%(INIT_CLASSVARS)
6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	2397	'.
6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	2398	!
6ac672f5991f added: Claus Gittinger <cg@exept.de> parents: 8890 diff changeset	2399
7480 33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2400	codeFor_closeAccept
8572 beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2401	generateComments ifFalse:[
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2402	^
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2403	'closeAccept
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2404	^ super closeAccept
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2405	'.
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2406	].
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2407
7480 33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2408	^
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2409	'closeAccept
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2410	"This is a hook method generated by the Browser.
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2411	It will be invoked when your dialog-window is closed with OK."
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2412
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2413	"/ add any actions as required here ...
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2414	Transcript showCR:''dialog accepted''.
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2415
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2416	"/ do not remove the one below (otherwise, the dialog will not close itself)...
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2417	^ super closeAccept
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2418	'.
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2419
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2420	"Created: / 27-10-2006 / 10:03:31 / cg"
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2421	!
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2422
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2423	codeFor_closeDownViews
8572 beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2424	generateComments ifFalse:[
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2425	^
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2426	'closeDownViews
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2427	^ super closeDownViews
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2428	'.
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2429	].
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2430
7480 33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2431	^
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2432	'closeDownViews
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2433	"This is a hook method generated by the Browser.
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2434	It will be invoked when your app/dialog-window is really closed.
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2435	See also #closeDownViews, which is invoked before and may suppress the close
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2436	or ask the user for confirmation."
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2437
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2438	"/ change the code below as required ...
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2439	"/ This should cleanup any leftover resources
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2440	"/ (for example, temporary files)
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2441	"/ super closeRequest will initiate the closeDown
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2442
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2443	"/ add your code here
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2444
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2445	"/ do not remove the one below ...
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2446	^ super closeDownViews
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2447	'.
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2448
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2449	"Created: / 27-10-2006 / 10:01:32 / cg"
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2450	!
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2451
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2452	codeFor_closeRequest
8572 beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2453	generateComments ifFalse:[
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2454	^
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2455	'closeRequest
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2456	self hasUnsavedChanges ifTrue:[
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2457	(self confirm:(resources string:''Close without saving ?'')) ifFalse:[
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2458	^ self
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2459	]
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2460	].
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2461	^ super closeRequest
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2462	'.
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2463	].
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2464
7480 33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2465	^
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2466	'closeRequest
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2467	"This is a hook method generated by the Browser.
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2468	It will be invoked when your app/dialog-window is about to be
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2469	closed (this method has a chance to suppress the close).
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2470	See also #closeDownViews, which is invoked when the close is really done."
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2471
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2472	"/ change the code below as required ...
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2473	"/ Closing can be suppressed, by simply returning.
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2474	"/ The ''super closeRequest'' at the end will initiate the real closeDown
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2475
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2476	self hasUnsavedChanges ifTrue:[
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2477	(self confirm:(resources string:''Close without saving ?'')) ifFalse:[
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2478	^ self
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2479	]
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2480	].
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2481
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2482	^ super closeRequest
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2483	'.
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2484
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2485	"Created: / 27-10-2006 / 10:01:06 / cg"
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2486	!
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2487
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2488	codeFor_doSaveAs
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2489	^ self codeFor_emptyMenuActionCodeFor:#doSaveAs menuItem:'save/saveAs'
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2490
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2491	"Created: / 27-10-2006 / 10:22:06 / cg"
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2492	!
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2493
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2494	codeFor_emptyMenuActionCodeFor:selector menuItem:item
8572 beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2495	generateComments ifFalse:[
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2496	^
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2497	selector,'
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2498	self warn:''no action for ''''',item,''''' defined.''.
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2499	'.
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2500	].
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2501
7480 33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2502	^
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2503	selector,'
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2504	"This method was generated by the Browser.
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2505	It will be invoked when the menu-item ''',item,''' is selected."
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2506
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2507	"/ change below and add any actions as required here ...
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2508	self warn:''no action for ''''',item,''''' defined.''.
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2509	'.
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2510
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2511	"Created: / 27-10-2006 / 10:16:43 / cg"
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2512	!
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2513
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2514	codeFor_hasUnsavedChanges
8572 beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2515	generateComments ifFalse:[
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2516	^
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2517	'hasUnsavedChanges
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2518	^ false.
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2519	'.
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2520	].
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2521
7480 33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2522	^
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2523	'hasUnsavedChanges
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2524	"Return true, if any unsaved changes are present
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2525	(i.e. the contents needs to be saved or else will be lost)"
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2526
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2527	"/ add real code as required (or remove the halt and always return false)...
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2528	self halt:''check this code''.
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2529	^ false.
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2530	'.
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2531
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2532	"Created: / 27-10-2006 / 10:00:36 / cg"
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2533	!
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2534
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2535	codeFor_menuNew
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2536	^ self codeFor_emptyMenuActionCodeFor:#menuNew menuItem:'new'
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2537
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2538	"Created: / 27-10-2006 / 10:17:08 / cg"
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2539	!
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2540
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2541	codeFor_menuOpen
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2542	^ self codeFor_emptyMenuActionCodeFor:#menuOpen menuItem:'open'
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2543
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2544	"Created: / 27-10-2006 / 10:17:18 / cg"
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2545	!
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2546
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2547	codeFor_menuSave
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2548	^ self codeFor_emptyMenuActionCodeFor:#menuSave menuItem:'save'
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2549
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2550	"Created: / 27-10-2006 / 10:17:25 / cg"
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2551	!
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2552
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2553	codeFor_menuSaveAs
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2554	^
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2555	'menuSaveAs
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2556	"This method was generated by the Browser.
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2557	It will be invoked when the menu-item ''saveAs'' is selected."
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2558
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2559	"/ change below as required... (see examples in Dialog class for more options)
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2560	Dialog
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2561	requestSaveFileName:(resources string:''Save'')
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2562	default:''foo.txt''
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2563	fromDirectory:nil
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2564	action:[:fileName \| self doSaveAs:fileName]
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2565	appendAction:nil.
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2566	'.
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2567
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2568	"Created: / 27-10-2006 / 10:01:57 / cg"
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2569	!
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2570
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2571	codeFor_openAboutThisApplication
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2572	^
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2573	'openAboutThisApplication
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2574	"This method was generated by the Browser.
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2575	It will be invoked when the menu-item ''help-about'' is selected."
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2576
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2577	"/ could open a customized aboutBox here ...
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2578	super openAboutThisApplication
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2579	'.
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2580
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2581	"Created: / 27-10-2006 / 10:03:13 / cg"
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2582	!
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2583
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2584	codeFor_openDocumentation
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2585	^
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2586	'openDocumentation
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2587	"This method was generated by the Browser.
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2588	It will be invoked when the menu-item ''help-documentation'' is selected."
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2589
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2590	"/ change below as required ...
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2591
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2592	"/ to open an HTML viewer on some document (under ''doc/online/<language>/'' ):
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2593	HTMLDocumentView openFullOnDocumentationFile:''TOP.html''.
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2594
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2595	"/ add application-specific help files under the ''doc/online/<language>/help/appName''
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2596	"/ directory, and open a viewer with:
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2597	"/ HTMLDocumentView openFullOnDocumentationFile:''help/<MyApplication>/TOP.html''.
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2598	'.
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2599
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2600	"Created: / 27-10-2006 / 10:02:55 / cg"
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2601	!
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2602
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2603	codeFor_postBuildWith
8572 beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2604	generateComments ifFalse:[
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2605	^
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2606	'postBuildWith:aBuilder
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2607	^ super postBuildWith:aBuilder
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2608	'.
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2609	].
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2610
7480 33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2611	^
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2612	'postBuildWith:aBuilder
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2613	"This is a hook method generated by the Browser.
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2614	It will be invoked during the initialization of your app/dialog,
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2615	after all of the visual components have been built,
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2616	but BEFORE the top window is made visible.
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2617	Add any app-specific actions here (reading files, setting up values etc.)
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2618	See also #postOpenWith:, which is invoked after opening."
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2619
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2620	"/ add any code here ...
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2621
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2622	^ super postBuildWith:aBuilder
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2623	'.
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2624
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2625	"Created: / 27-10-2006 / 09:59:33 / cg"
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2626	!
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2627
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2628	codeFor_postOpenWith
8572 beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2629	generateComments ifFalse:[
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2630	^
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2631	'postOpenWith:aBuilder
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2632	^ super postOpenWith:aBuilder
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2633	'.
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2634	].
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2635
7480 33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2636	^
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2637	'postOpenWith:aBuilder
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2638	"This is a hook method generated by the Browser.
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2639	It will be invoked right after the applications window has been opened.
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2640	Add any app-specific actions here (starting background processes etc.).
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2641	See also #postBuildWith:, which is invoked before opening."
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2642
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2643	"/ add any code here ...
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2644
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2645	^ super postOpenWith:aBuilder
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2646	'.
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2647
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2648	"Created: / 27-10-2006 / 09:59:56 / cg"
8572 beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2649	!
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2650
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2651	code_forWidget_buttonPress
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2652	generateComments ifFalse:[
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2653	^
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2654	'buttonPress:button x:x y:y
8574 8b570032f547 initial widget code Claus Gittinger <cg@exept.de> parents: 8573 diff changeset	2655	Transcript show:''button: ''; showCR:button.
8572 beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2656	super buttonPress:button x:x y:y
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2657	'
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2658	].
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2659
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2660	^
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2661	'buttonPress:button x:x y:y
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2662	"called when a mouse-button is pressed. button is the button-nr (1 for left-button).
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2663	x/y are the mouse position at the time of the click.
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2664	There are also corresponding buttonRelease and buttonMotion methods which could be
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2665	redefined...."
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2666
8574 8b570032f547 initial widget code Claus Gittinger <cg@exept.de> parents: 8573 diff changeset	2667	Transcript show:''button: ''; showCR:button.
8572 beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2668	"/ super-code handles middleButtonMenu, if it was assigned (with middleButtonmenu:)
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2669	super buttonPress:button x:x y:y
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2670	'
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2671	!
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2672
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2673	code_forWidget_initialize
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2674	^
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2675	'initialize
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2676	super initialize "/ to initialize inherited state
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2677
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2678	"/ add code to initialize private variables,
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2679	"/ and sub-components as required.
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2680	'
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2681	!
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2682
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2683	code_forWidget_keyPress
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2684	generateComments ifFalse:[
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2685	^
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2686	'keyPress:key x:x y:y
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2687	"/ key == #Copy ifTrue:[
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2688	"/ ].
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2689	"/ key == #Cut ifTrue:[
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2690	"/ ].
8574 8b570032f547 initial widget code Claus Gittinger <cg@exept.de> parents: 8573 diff changeset	2691	Transcript show:''key: ''; showCR:key.
8572 beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2692	super keyPress:key x:x y:y
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2693	'
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2694	].
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2695	^
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2696	'keyPress:key x:x y:y
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2697	"called when a keyboard-key was pressed. key is either a character (for ordinary keys)
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2698	or a symbol, such as #Copy, #Cut or #Paste.
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2699	x/y are the mouse position at the time of the key-press.
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2700	There is also a corresponding keyRelease method which could be redefined...."
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2701
8574 8b570032f547 initial widget code Claus Gittinger <cg@exept.de> parents: 8573 diff changeset	2702	Transcript show:''key: ''; showCR:key.
8572 beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2703	super keyPress:key x:x y:y
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2704	'
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2705	!
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2706
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2707	code_forWidget_redraw
8573 aa3caf4e83c7 initial widget code Claus Gittinger <cg@exept.de> parents: 8572 diff changeset	2708	\|sel comment code\|
aa3caf4e83c7 initial widget code Claus Gittinger <cg@exept.de> parents: 8572 diff changeset	2709
aa3caf4e83c7 initial widget code Claus Gittinger <cg@exept.de> parents: 8572 diff changeset	2710	sel := 'redrawX:x y:y width:w height:h'.
8572 beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2711	generateComments ifFalse:[
8573 aa3caf4e83c7 initial widget code Claus Gittinger <cg@exept.de> parents: 8572 diff changeset	2712	comment := ''.
aa3caf4e83c7 initial widget code Claus Gittinger <cg@exept.de> parents: 8572 diff changeset	2713	] ifTrue:[
aa3caf4e83c7 initial widget code Claus Gittinger <cg@exept.de> parents: 8572 diff changeset	2714	comment := '
8572 beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2715	"called to redraw a part of the widgets area. x/y define the origin, w/h the size of
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2716	that area. The clipping region has already been set by the caller, so even if the code
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2717	below draws outside the redraw-area, it will not affect what is on the screen.
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2718	Therefore, the example below can fill the rectangle in the redraw area, but still draw
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2719	the cross in the outside regions."
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2720
8573 aa3caf4e83c7 initial widget code Claus Gittinger <cg@exept.de> parents: 8572 diff changeset	2721	'.
aa3caf4e83c7 initial widget code Claus Gittinger <cg@exept.de> parents: 8572 diff changeset	2722	].
aa3caf4e83c7 initial widget code Claus Gittinger <cg@exept.de> parents: 8572 diff changeset	2723
aa3caf4e83c7 initial widget code Claus Gittinger <cg@exept.de> parents: 8572 diff changeset	2724	code := '
8572 beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2725	self paint:Color red.
8573 aa3caf4e83c7 initial widget code Claus Gittinger <cg@exept.de> parents: 8572 diff changeset	2726	self fillRectangleX:x y:y width:w height:h.
8572 beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2727
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2728	self paint:Color yellow.
8573 aa3caf4e83c7 initial widget code Claus Gittinger <cg@exept.de> parents: 8572 diff changeset	2729	self displayLineFrom:0@0 to:(width@height).
aa3caf4e83c7 initial widget code Claus Gittinger <cg@exept.de> parents: 8572 diff changeset	2730	self displayLineFrom:width@0 to:(0@height).
aa3caf4e83c7 initial widget code Claus Gittinger <cg@exept.de> parents: 8572 diff changeset	2731	'.
aa3caf4e83c7 initial widget code Claus Gittinger <cg@exept.de> parents: 8572 diff changeset	2732
aa3caf4e83c7 initial widget code Claus Gittinger <cg@exept.de> parents: 8572 diff changeset	2733	^ sel,comment,code
8572 beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2734	!
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2735
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2736	code_forWidget_sizeChanged
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2737	generateComments ifFalse:[
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2738	^
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2739	'sizeChanged:how
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2740	self invalidate.
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2741	super sizeChanged:how.
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2742	'
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2743	].
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2744
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2745	^
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2746	'sizeChanged:how
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2747	"Invoked whenever the size of the view changes.
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2748	Here, we force a full redraw, which might not be needed all the time"
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2749
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2750	self invalidate.
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2751	super sizeChanged:how.
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2752	'
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2753	!
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2754
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2755	code_forWidget_update
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2756	generateComments ifFalse:[
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2757	^
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2758	'update:something with:aParameter from:changedObject
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2759	changedObject == model ifTrue:[
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2760	self invalidate.
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2761	^ self
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2762	].
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2763	super update:something with:aParameter from:changedObject
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2764	'
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2765	].
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2766
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2767	^
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2768	'update:something with:aParameter from:changedObject
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2769	"Invoked when an object that I depend upon sends a change notification."
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2770
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2771	"stub code automatically generated - please change as required"
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2772
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2773	changedObject == model ifTrue:[
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2774	self invalidate.
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2775	^ self
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2776	].
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2777	super update:something with:aParameter from:changedObject
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2778	'
7480 33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2779	! !
33930379ab27 code cleanup; more application code generation Claus Gittinger <cg@exept.de> parents: 7470 diff changeset	2780
6938 6cf52649971c * empty log message * Claus Gittinger <cg@exept.de> parents: 6937 diff changeset	2781	!CodeGeneratorTool methodsFor:'compilation'!
6cf52649971c * empty log message * Claus Gittinger <cg@exept.de> parents: 6937 diff changeset	2782
6cf52649971c * empty log message * Claus Gittinger <cg@exept.de> parents: 6937 diff changeset	2783	compile:theCode forClass:aClass inCategory:cat
6cf52649971c * empty log message * Claus Gittinger <cg@exept.de> parents: 6937 diff changeset	2784	"install some code for a class.
6cf52649971c * empty log message * Claus Gittinger <cg@exept.de> parents: 6937 diff changeset	2785	If refactory browser stuff is avaliable the refactory tools are used to support undo"
6cf52649971c * empty log message * Claus Gittinger <cg@exept.de> parents: 6937 diff changeset	2786
7037 ec9705009031 * empty log message * Claus Gittinger <cg@exept.de> parents: 6993 diff changeset	2787	self
ec9705009031 * empty log message * Claus Gittinger <cg@exept.de> parents: 6993 diff changeset	2788	compile:theCode forClass:aClass inCategory:cat
ec9705009031 * empty log message * Claus Gittinger <cg@exept.de> parents: 6993 diff changeset	2789	skipIfSame:true
ec9705009031 * empty log message * Claus Gittinger <cg@exept.de> parents: 6993 diff changeset	2790	!
6938 6cf52649971c * empty log message * Claus Gittinger <cg@exept.de> parents: 6937 diff changeset	2791
7037 ec9705009031 * empty log message * Claus Gittinger <cg@exept.de> parents: 6993 diff changeset	2792	compile:theCode forClass:aClass inCategory:cat skipIfSame:skipIfSame
ec9705009031 * empty log message * Claus Gittinger <cg@exept.de> parents: 6993 diff changeset	2793	"install some code for a class.
ec9705009031 * empty log message * Claus Gittinger <cg@exept.de> parents: 6993 diff changeset	2794	If refactory browser stuff is avaliable the refactory tools are used to support undo"
ec9705009031 * empty log message * Claus Gittinger <cg@exept.de> parents: 6993 diff changeset	2795
ec9705009031 * empty log message * Claus Gittinger <cg@exept.de> parents: 6993 diff changeset	2796	\|change compiler selector oldMthd isSame\|
6938 6cf52649971c * empty log message * Claus Gittinger <cg@exept.de> parents: 6937 diff changeset	2797
7037 ec9705009031 * empty log message * Claus Gittinger <cg@exept.de> parents: 6993 diff changeset	2798	isSame := false.
ec9705009031 * empty log message * Claus Gittinger <cg@exept.de> parents: 6993 diff changeset	2799	skipIfSame ifTrue:[
ec9705009031 * empty log message * Claus Gittinger <cg@exept.de> parents: 6993 diff changeset	2800	compiler := aClass compilerClass new.
ec9705009031 * empty log message * Claus Gittinger <cg@exept.de> parents: 6993 diff changeset	2801	compiler parseMethod:theCode in:aClass ignoreErrors:true ignoreWarnings:true.
ec9705009031 * empty log message * Claus Gittinger <cg@exept.de> parents: 6993 diff changeset	2802
ec9705009031 * empty log message * Claus Gittinger <cg@exept.de> parents: 6993 diff changeset	2803	selector := compiler selector.
ec9705009031 * empty log message * Claus Gittinger <cg@exept.de> parents: 6993 diff changeset	2804	selector notNil ifTrue:[
ec9705009031 * empty log message * Claus Gittinger <cg@exept.de> parents: 6993 diff changeset	2805	oldMthd := aClass compiledMethodAt:selector.
ec9705009031 * empty log message * Claus Gittinger <cg@exept.de> parents: 6993 diff changeset	2806	isSame := (oldMthd notNil and:[oldMthd source = theCode]).
ec9705009031 * empty log message * Claus Gittinger <cg@exept.de> parents: 6993 diff changeset	2807	isSame ifTrue:[ ^ self ].
6938 6cf52649971c * empty log message * Claus Gittinger <cg@exept.de> parents: 6937 diff changeset	2808	].
6cf52649971c * empty log message * Claus Gittinger <cg@exept.de> parents: 6937 diff changeset	2809	].
6cf52649971c * empty log message * Claus Gittinger <cg@exept.de> parents: 6937 diff changeset	2810
6cf52649971c * empty log message * Claus Gittinger <cg@exept.de> parents: 6937 diff changeset	2811	self canUseRefactoringSupport ifFalse:[
6cf52649971c * empty log message * Claus Gittinger <cg@exept.de> parents: 6937 diff changeset	2812	"/ compile immediately
6cf52649971c * empty log message * Claus Gittinger <cg@exept.de> parents: 6937 diff changeset	2813	aClass compile:theCode classified:cat.
6cf52649971c * empty log message * Claus Gittinger <cg@exept.de> parents: 6937 diff changeset	2814	^ self.
6cf52649971c * empty log message * Claus Gittinger <cg@exept.de> parents: 6937 diff changeset	2815	].
6cf52649971c * empty log message * Claus Gittinger <cg@exept.de> parents: 6937 diff changeset	2816
6cf52649971c * empty log message * Claus Gittinger <cg@exept.de> parents: 6937 diff changeset	2817	change := InteractiveAddMethodChange compile:(theCode asString) in:aClass classified:cat.
6cf52649971c * empty log message * Claus Gittinger <cg@exept.de> parents: 6937 diff changeset	2818
6cf52649971c * empty log message * Claus Gittinger <cg@exept.de> parents: 6937 diff changeset	2819	"/ if collecting, add to changes (to be executed as one change at the end,
6cf52649971c * empty log message * Claus Gittinger <cg@exept.de> parents: 6937 diff changeset	2820	"/ in order to have only one change in the undo-list (instead of many)
6cf52649971c * empty log message * Claus Gittinger <cg@exept.de> parents: 6937 diff changeset	2821	compositeChangeCollector notNil ifTrue:[
6cf52649971c * empty log message * Claus Gittinger <cg@exept.de> parents: 6937 diff changeset	2822	compositeChangeCollector addChange:change
6cf52649971c * empty log message * Claus Gittinger <cg@exept.de> parents: 6937 diff changeset	2823	] ifFalse:[
7037 ec9705009031 * empty log message * Claus Gittinger <cg@exept.de> parents: 6993 diff changeset	2824	RefactoryChangeManager performChange:change.
6938 6cf52649971c * empty log message * Claus Gittinger <cg@exept.de> parents: 6937 diff changeset	2825	]
6cf52649971c * empty log message * Claus Gittinger <cg@exept.de> parents: 6937 diff changeset	2826
6cf52649971c * empty log message * Claus Gittinger <cg@exept.de> parents: 6937 diff changeset	2827	"Modified: / 21-08-2006 / 18:39:06 / cg"
6cf52649971c * empty log message * Claus Gittinger <cg@exept.de> parents: 6937 diff changeset	2828	! !
3712 293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2829
8572 beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2830	!CodeGeneratorTool methodsFor:'initialization'!
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2831
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2832	initialize
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2833	userPreferences := UserPreferences current.
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2834	generateComments := userPreferences generateComments.
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2835	! !
beebdd1ee40e initial widget code Claus Gittinger <cg@exept.de> parents: 8488 diff changeset	2836
5758 8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	2837	!CodeGeneratorTool methodsFor:'private'!
4108 19af32811dfd Generate minimal protocol classes for metaclass. Stefan Vogel <sv@exept.de> parents: 3823 diff changeset	2838
5013 0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	2839	canUseRefactoringSupport
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	2840	"check if refactory browser stuff is avaliable"
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	2841
5758 8f88193a4a93 collect changes Claus Gittinger <cg@exept.de> parents: 5756 diff changeset	2842	^ self class canUseRefactoringSupport
5013 0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	2843	!
0f2c39fc6e8c comments; allow for comments to be suppressed Claus Gittinger <cg@exept.de> parents: 4926 diff changeset	2844
9027 f2edc1bca4de added: #codeFor_shouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9025 diff changeset	2845	codeFor_shouldImplementFor:selector inClass:aClass
9044 5da7b7815f56 comment/format in: #codeFor_shouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9028 diff changeset	2846	"used in the 'generate required protocol' to generate a shouldImplement-sending
5da7b7815f56 comment/format in: #codeFor_shouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9028 diff changeset	2847	method for each subclassClassresponsibility method above aClass."
5da7b7815f56 comment/format in: #codeFor_shouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9028 diff changeset	2848
9025 124489bab860 added: #codeForShouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9022 diff changeset	2849	\|mthd comment implClass methodBodyStream searcher errorMessageString\|
124489bab860 added: #codeForShouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9022 diff changeset	2850
9028 56eb45cb11f3 changed: #codeFor_shouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9027 diff changeset	2851	(aClass notNil
56eb45cb11f3 changed: #codeFor_shouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9027 diff changeset	2852	and:[ aClass superclass notNil ]) ifTrue:[
56eb45cb11f3 changed: #codeFor_shouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9027 diff changeset	2853	implClass := aClass superclass whichClassImplements:selector.
56eb45cb11f3 changed: #codeFor_shouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9027 diff changeset	2854	].
9025 124489bab860 added: #codeForShouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9022 diff changeset	2855	implClass isNil ifTrue:[
9028 56eb45cb11f3 changed: #codeFor_shouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9027 diff changeset	2856	^ ((Method methodDefinitionTemplateForSelector:selector),'\ ^ self shouldImplement\') withCRs
9025 124489bab860 added: #codeForShouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9022 diff changeset	2857	].
124489bab860 added: #codeForShouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9022 diff changeset	2858
124489bab860 added: #codeForShouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9022 diff changeset	2859	mthd := implClass compiledMethodAt:selector.
124489bab860 added: #codeForShouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9022 diff changeset	2860
124489bab860 added: #codeForShouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9022 diff changeset	2861	methodBodyStream := '' writeStream.
124489bab860 added: #codeForShouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9022 diff changeset	2862	methodBodyStream
124489bab860 added: #codeForShouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9022 diff changeset	2863	nextPutAll:mthd methodDefinitionTemplate; cr;
124489bab860 added: #codeForShouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9022 diff changeset	2864	nextPutAll:' "'.
124489bab860 added: #codeForShouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9022 diff changeset	2865
124489bab860 added: #codeForShouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9022 diff changeset	2866	"/ include the comment of the subclassResponsibility-sending method
9044 5da7b7815f56 comment/format in: #codeFor_shouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9028 diff changeset	2867
9025 124489bab860 added: #codeForShouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9022 diff changeset	2868	comment := mthd methodComment.
124489bab860 added: #codeForShouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9022 diff changeset	2869	comment isEmptyOrNil ifTrue:[
124489bab860 added: #codeForShouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9022 diff changeset	2870	methodBodyStream
9028 56eb45cb11f3 changed: #codeFor_shouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9027 diff changeset	2871	nextPutAll:('superclass <1s> says that I am responsible to implement this method'
9025 124489bab860 added: #codeForShouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9022 diff changeset	2872	expandMacrosWith:implClass name)
124489bab860 added: #codeForShouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9022 diff changeset	2873	] ifFalse:[
9044 5da7b7815f56 comment/format in: #codeFor_shouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9028 diff changeset	2874	comment
5da7b7815f56 comment/format in: #codeFor_shouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9028 diff changeset	2875	asStringCollection do:[:eachLine\|
5da7b7815f56 comment/format in: #codeFor_shouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9028 diff changeset	2876	methodBodyStream nextPutAll:eachLine.
5da7b7815f56 comment/format in: #codeFor_shouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9028 diff changeset	2877	] separatedBy:[
5da7b7815f56 comment/format in: #codeFor_shouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9028 diff changeset	2878	methodBodyStream cr; nextPutAll:' '.
5da7b7815f56 comment/format in: #codeFor_shouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9028 diff changeset	2879	].
9025 124489bab860 added: #codeForShouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9022 diff changeset	2880	].
124489bab860 added: #codeForShouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9022 diff changeset	2881	methodBodyStream
124489bab860 added: #codeForShouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9022 diff changeset	2882	nextPut:$"; cr; cr.
124489bab860 added: #codeForShouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9022 diff changeset	2883
124489bab860 added: #codeForShouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9022 diff changeset	2884	"/ include the argument of the subclassResponsibility:-sending method
124489bab860 added: #codeForShouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9022 diff changeset	2885	self canUseRefactoringSupport ifTrue:[
124489bab860 added: #codeForShouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9022 diff changeset	2886	(mthd sends:#subclassResponsibility:) ifTrue:[
124489bab860 added: #codeForShouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9022 diff changeset	2887	searcher := ParseTreeSearcher new.
124489bab860 added: #codeForShouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9022 diff changeset	2888	searcher
124489bab860 added: #codeForShouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9022 diff changeset	2889	matches: 'self subclassResponsibility: `''.*'''
124489bab860 added: #codeForShouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9022 diff changeset	2890	do:[:node :answer \|
124489bab860 added: #codeForShouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9022 diff changeset	2891	errorMessageString := node arguments first value.
124489bab860 added: #codeForShouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9022 diff changeset	2892	true.
124489bab860 added: #codeForShouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9022 diff changeset	2893	].
124489bab860 added: #codeForShouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9022 diff changeset	2894	searcher executeTree: (mthd parseTree) initialAnswer: false.
124489bab860 added: #codeForShouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9022 diff changeset	2895	].
124489bab860 added: #codeForShouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9022 diff changeset	2896	].
124489bab860 added: #codeForShouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9022 diff changeset	2897	errorMessageString notEmptyOrNil ifTrue:[
124489bab860 added: #codeForShouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9022 diff changeset	2898	methodBodyStream
124489bab860 added: #codeForShouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9022 diff changeset	2899	nextPutAll:' ^ self shouldImplement:';
124489bab860 added: #codeForShouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9022 diff changeset	2900	nextPutLine:(errorMessageString storeString)
124489bab860 added: #codeForShouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9022 diff changeset	2901	] ifFalse:[
124489bab860 added: #codeForShouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9022 diff changeset	2902	methodBodyStream
124489bab860 added: #codeForShouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9022 diff changeset	2903	nextPutLine:' ^ self shouldImplement'.
124489bab860 added: #codeForShouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9022 diff changeset	2904	].
124489bab860 added: #codeForShouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9022 diff changeset	2905
124489bab860 added: #codeForShouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9022 diff changeset	2906	^ methodBodyStream contents
124489bab860 added: #codeForShouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9022 diff changeset	2907	!
124489bab860 added: #codeForShouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9022 diff changeset	2908
4108 19af32811dfd Generate minimal protocol classes for metaclass. Stefan Vogel <sv@exept.de> parents: 3823 diff changeset	2909	privCreateClassResponsibleProtocolFor:aClass
6791 6559c9ebb561 Keep method argument names when generating required methods Stefan Vogel <sv@exept.de> parents: 6718 diff changeset	2910	"create stubs for the required protocol.
6559c9ebb561 Keep method argument names when generating required methods Stefan Vogel <sv@exept.de> parents: 6718 diff changeset	2911	aClass may be a a MetaClass or a non-MetaClass"
4108 19af32811dfd Generate minimal protocol classes for metaclass. Stefan Vogel <sv@exept.de> parents: 3823 diff changeset	2912
9022 676088a17690 added: #missingRequiredProtocolFor: Claus Gittinger <cg@exept.de> parents: 8987 diff changeset	2913	\|requiredProtocol\|
676088a17690 added: #missingRequiredProtocolFor: Claus Gittinger <cg@exept.de> parents: 8987 diff changeset	2914
676088a17690 added: #missingRequiredProtocolFor: Claus Gittinger <cg@exept.de> parents: 8987 diff changeset	2915	requiredProtocol := self class missingRequiredProtocolFor:aClass.
676088a17690 added: #missingRequiredProtocolFor: Claus Gittinger <cg@exept.de> parents: 8987 diff changeset	2916	requiredProtocol do:[:eachSelector \|
9025 124489bab860 added: #codeForShouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9022 diff changeset	2917	\|code implClass\|
9022 676088a17690 added: #missingRequiredProtocolFor: Claus Gittinger <cg@exept.de> parents: 8987 diff changeset	2918
676088a17690 added: #missingRequiredProtocolFor: Claus Gittinger <cg@exept.de> parents: 8987 diff changeset	2919	implClass := aClass whichClassImplements:eachSelector.
676088a17690 added: #missingRequiredProtocolFor: Claus Gittinger <cg@exept.de> parents: 8987 diff changeset	2920	implClass == Object ifFalse:[
9027 f2edc1bca4de added: #codeFor_shouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9025 diff changeset	2921	code := self codeFor_shouldImplementFor:eachSelector inClass:aClass.
9022 676088a17690 added: #missingRequiredProtocolFor: Claus Gittinger <cg@exept.de> parents: 8987 diff changeset	2922
676088a17690 added: #missingRequiredProtocolFor: Claus Gittinger <cg@exept.de> parents: 8987 diff changeset	2923	self
9025 124489bab860 added: #codeForShouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9022 diff changeset	2924	compile:code
9022 676088a17690 added: #missingRequiredProtocolFor: Claus Gittinger <cg@exept.de> parents: 8987 diff changeset	2925	forClass:aClass
9025 124489bab860 added: #codeForShouldImplementFor:inClass: Claus Gittinger <cg@exept.de> parents: 9022 diff changeset	2926	inCategory:(implClass compiledMethodAt:eachSelector) category.
9022 676088a17690 added: #missingRequiredProtocolFor: Claus Gittinger <cg@exept.de> parents: 8987 diff changeset	2927	]
4108 19af32811dfd Generate minimal protocol classes for metaclass. Stefan Vogel <sv@exept.de> parents: 3823 diff changeset	2928	].
19af32811dfd Generate minimal protocol classes for metaclass. Stefan Vogel <sv@exept.de> parents: 3823 diff changeset	2929	! !
19af32811dfd Generate minimal protocol classes for metaclass. Stefan Vogel <sv@exept.de> parents: 3823 diff changeset	2930
3712 293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2931	!CodeGeneratorTool class methodsFor:'documentation'!
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2932
293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2933	version
9049 9a2003a4fef3 added: #createStartupCodeFor:forStartOf: Claus Gittinger <cg@exept.de> parents: 9044 diff changeset	2934	^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.70 2009-10-22 17:04:48 cg Exp $'
8890 69b74f5776fb changed: fm parents: 8773 diff changeset	2935	!
69b74f5776fb changed: fm parents: 8773 diff changeset	2936
69b74f5776fb changed: fm parents: 8773 diff changeset	2937	version_CVS
9049 9a2003a4fef3 added: #createStartupCodeFor:forStartOf: Claus Gittinger <cg@exept.de> parents: 9044 diff changeset	2938	^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.70 2009-10-22 17:04:48 cg Exp $'
3712 293c44b3c910 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2939	! !

author	Claus Gittinger <cg@exept.de>
	Thu, 22 Oct 2009 19:04:48 +0200
changeset 9049	9a2003a4fef3
parent 9044	5da7b7815f56
child 9053	9e09bbdb81a3
permissions	-rw-r--r--