hg/stx-libview2: ToolApplicationModel.st@5b8c4cf62cb5 (annotated)

756 4dba5a8797ec * empty log message * tz parents: 753 diff changeset	1	"
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	2	COPYRIGHT (c) 1997 by eXept Software AG / Thomas Zwick
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	3	All Rights Reserved
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	4
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	5	This software is furnished under a license and may be used
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	6	only in accordance with the terms of that license and with the
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	7	inclusion of the above copyright notice. This software may not
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	8	be provided or otherwise made available to, or used by, any
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	9	other person. No title to or ownership of the software is
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	10	hereby transferred.
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	11	"
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	12
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	13
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	14
753 9c837d99f109 intitial checkin tz parents: diff changeset	15	ApplicationModel subclass:#ToolApplicationModel
782 5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	16	instanceVariableNames:'timeBlock'
753 9c837d99f109 intitial checkin tz parents: diff changeset	17	classVariableNames:''
9c837d99f109 intitial checkin tz parents: diff changeset	18	poolDictionaries:''
9c837d99f109 intitial checkin tz parents: diff changeset	19	category:'Interface-Advanced-Tools'
9c837d99f109 intitial checkin tz parents: diff changeset	20	!
9c837d99f109 intitial checkin tz parents: diff changeset	21
782 5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	22	ToolApplicationModel class instanceVariableNames:'history clipboard showHelp'
753 9c837d99f109 intitial checkin tz parents: diff changeset	23
9c837d99f109 intitial checkin tz parents: diff changeset	24	"
9c837d99f109 intitial checkin tz parents: diff changeset	25	The following class instance variables are inherited by this class:
9c837d99f109 intitial checkin tz parents: diff changeset	26
9c837d99f109 intitial checkin tz parents: diff changeset	27	ApplicationModel - ClassResources
9c837d99f109 intitial checkin tz parents: diff changeset	28	Model -
9c837d99f109 intitial checkin tz parents: diff changeset	29	Object -
9c837d99f109 intitial checkin tz parents: diff changeset	30	"
9c837d99f109 intitial checkin tz parents: diff changeset	31	!
9c837d99f109 intitial checkin tz parents: diff changeset	32
9c837d99f109 intitial checkin tz parents: diff changeset	33	!ToolApplicationModel class methodsFor:'documentation'!
9c837d99f109 intitial checkin tz parents: diff changeset	34
756 4dba5a8797ec * empty log message * tz parents: 753 diff changeset	35	copyright
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	36	"
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	37	COPYRIGHT (c) 1997 by eXept Software AG / Thomas Zwick
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	38	All Rights Reserved
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	39
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	40	This software is furnished under a license and may be used
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	41	only in accordance with the terms of that license and with the
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	42	inclusion of the above copyright notice. This software may not
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	43	be provided or otherwise made available to, or used by, any
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	44	other person. No title to or ownership of the software is
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	45	hereby transferred.
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	46	"
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	47
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	48
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	49	!
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	50
753 9c837d99f109 intitial checkin tz parents: diff changeset	51	documentation
9c837d99f109 intitial checkin tz parents: diff changeset	52	"
9c837d99f109 intitial checkin tz parents: diff changeset	53	Standard framework for tools; provides hooks for history management,
782 5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	54	showing help texts, about menu, help menu etc.
753 9c837d99f109 intitial checkin tz parents: diff changeset	55	See concrete subclasses for examples.
9c837d99f109 intitial checkin tz parents: diff changeset	56
9c837d99f109 intitial checkin tz parents: diff changeset	57	[author:]
9c837d99f109 intitial checkin tz parents: diff changeset	58	Thomas Zwick
9c837d99f109 intitial checkin tz parents: diff changeset	59	"
756 4dba5a8797ec * empty log message * tz parents: 753 diff changeset	60	!
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	61
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	62	history
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	63	"Created: / 10.1.1998 / 11:01:21 / tz"
753 9c837d99f109 intitial checkin tz parents: diff changeset	64	! !
9c837d99f109 intitial checkin tz parents: diff changeset	65
9c837d99f109 intitial checkin tz parents: diff changeset	66	!ToolApplicationModel class methodsFor:'accessing'!
9c837d99f109 intitial checkin tz parents: diff changeset	67
9c837d99f109 intitial checkin tz parents: diff changeset	68	author
9c837d99f109 intitial checkin tz parents: diff changeset	69
9c837d99f109 intitial checkin tz parents: diff changeset	70	^((((self class withAllSuperclasses detect: [:metacls\| metacls implements:#documentation]))
9c837d99f109 intitial checkin tz parents: diff changeset	71	compiledMethodAt: #documentation) source readStream upToAll: '[author:]'; nextLine; nextLine) trimBlanks
9c837d99f109 intitial checkin tz parents: diff changeset	72
9c837d99f109 intitial checkin tz parents: diff changeset	73	!
9c837d99f109 intitial checkin tz parents: diff changeset	74
9c837d99f109 intitial checkin tz parents: diff changeset	75	label
9c837d99f109 intitial checkin tz parents: diff changeset	76
9c837d99f109 intitial checkin tz parents: diff changeset	77	\|label\|
9c837d99f109 intitial checkin tz parents: diff changeset	78	label := ''.
9c837d99f109 intitial checkin tz parents: diff changeset	79	self name do:
9c837d99f109 intitial checkin tz parents: diff changeset	80	[:c\|
9c837d99f109 intitial checkin tz parents: diff changeset	81	c isUppercase ifTrue: [label := label, $ ].
9c837d99f109 intitial checkin tz parents: diff changeset	82	label := label, c
9c837d99f109 intitial checkin tz parents: diff changeset	83	].
9c837d99f109 intitial checkin tz parents: diff changeset	84	^label trimBlanks
782 5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	85	!
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	86
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	87	showHelp
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	88
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	89	^showHelp ? (showHelp := true)
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	90	!
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	91
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	92	showHelp: aBoolean
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	93
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	94	^showHelp := aBoolean
753 9c837d99f109 intitial checkin tz parents: diff changeset	95	! !
9c837d99f109 intitial checkin tz parents: diff changeset	96
756 4dba5a8797ec * empty log message * tz parents: 753 diff changeset	97	!ToolApplicationModel class methodsFor:'clipboard'!
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	98
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	99	clipboard
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	100
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	101	^clipboard
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	102	!
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	103
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	104	clipboard: anEditObject
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	105
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	106	clipboard := anEditObject
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	107	! !
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	108
762 2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	109	!ToolApplicationModel class methodsFor:'help specs'!
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	110
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	111	helpSpec
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	112	"return a dictionary filled with helpKey -> helptext associations.
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	113	These are used by the activeHelp tool."
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	114
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	115	"
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	116	UIHelpTool openOnClass:ToolApplicationModel
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	117	"
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	118
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	119	^ super helpSpec addPairsFrom:#(
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	120
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	121	#aboutSTX
763 251e824cb638 grammar changes tz parents: 762 diff changeset	122	'Opens an InfoBox about running ST/X.'
762 2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	123
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	124	#aboutThisAppliaction
763 251e824cb638 grammar changes tz parents: 762 diff changeset	125	'Opens an InfoBox about release and author of current application.'
762 2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	126
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	127	#fileExit
763 251e824cb638 grammar changes tz parents: 762 diff changeset	128	'Exits current application.'
762 2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	129
782 5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	130	#editCut
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	131	'Cuts selected item and place it to the clipboard.'
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	132
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	133	#editCopy
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	134	'Copies selected item to the clipboard.'
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	135
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	136	#editPaste
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	137	'Pastes contents of the clipboard.'
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	138
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	139	#editUndo
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	140	'Reverses the last action.'
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	141
762 2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	142	#helpClassDocumentation
763 251e824cb638 grammar changes tz parents: 762 diff changeset	143	'Opens a HTML-browser with a class documentation for current application.'
762 2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	144
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	145	#helpProgrammersGuide
763 251e824cb638 grammar changes tz parents: 762 diff changeset	146	'Opens a HTML-browser with a programmers guide.'
762 2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	147
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	148	#helpShowHelp
763 251e824cb638 grammar changes tz parents: 762 diff changeset	149	'Toggles on/off displaying help texts.'
762 2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	150
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	151	#helpTutorial
763 251e824cb638 grammar changes tz parents: 762 diff changeset	152	'Opens a HTML-browser with a tutorial for beginners.'
762 2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	153
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	154	)
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	155	! !
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	156
753 9c837d99f109 intitial checkin tz parents: diff changeset	157	!ToolApplicationModel class methodsFor:'history'!
9c837d99f109 intitial checkin tz parents: diff changeset	158
9c837d99f109 intitial checkin tz parents: diff changeset	159	getHistory
9c837d99f109 intitial checkin tz parents: diff changeset	160
761 cc0404f8aec6 #getHistory changed because here #? doesn't work correctly tz parents: 760 diff changeset	161	history isNil ifTrue: [history := OrderedCollection new].
cc0404f8aec6 #getHistory changed because here #? doesn't work correctly tz parents: 760 diff changeset	162	^history
753 9c837d99f109 intitial checkin tz parents: diff changeset	163
9c837d99f109 intitial checkin tz parents: diff changeset	164	!
9c837d99f109 intitial checkin tz parents: diff changeset	165
9c837d99f109 intitial checkin tz parents: diff changeset	166	historyMaxSize
9c837d99f109 intitial checkin tz parents: diff changeset	167
9c837d99f109 intitial checkin tz parents: diff changeset	168	^10
9c837d99f109 intitial checkin tz parents: diff changeset	169
9c837d99f109 intitial checkin tz parents: diff changeset	170	! !
9c837d99f109 intitial checkin tz parents: diff changeset	171
9c837d99f109 intitial checkin tz parents: diff changeset	172	!ToolApplicationModel class methodsFor:'interface specs'!
9c837d99f109 intitial checkin tz parents: diff changeset	173
9c837d99f109 intitial checkin tz parents: diff changeset	174	menuAbout
9c837d99f109 intitial checkin tz parents: diff changeset	175	"this window spec was automatically generated by the ST/X MenuEditor"
9c837d99f109 intitial checkin tz parents: diff changeset	176
9c837d99f109 intitial checkin tz parents: diff changeset	177	"do not manually edit this - the builder may not be able to
9c837d99f109 intitial checkin tz parents: diff changeset	178	handle the specification if its corrupted."
9c837d99f109 intitial checkin tz parents: diff changeset	179
9c837d99f109 intitial checkin tz parents: diff changeset	180	"
9c837d99f109 intitial checkin tz parents: diff changeset	181	MenuEditor new openOnClass:ToolApplicationModel andSelector:#menuAbout
9c837d99f109 intitial checkin tz parents: diff changeset	182	(Menu new fromLiteralArrayEncoding:(ToolApplicationModel menuAbout)) startUp
9c837d99f109 intitial checkin tz parents: diff changeset	183	"
9c837d99f109 intitial checkin tz parents: diff changeset	184
9c837d99f109 intitial checkin tz parents: diff changeset	185	<resource: #menu>
9c837d99f109 intitial checkin tz parents: diff changeset	186
9c837d99f109 intitial checkin tz parents: diff changeset	187	^
9c837d99f109 intitial checkin tz parents: diff changeset	188
9c837d99f109 intitial checkin tz parents: diff changeset	189	#(#Menu
9c837d99f109 intitial checkin tz parents: diff changeset	190
9c837d99f109 intitial checkin tz parents: diff changeset	191	#(
9c837d99f109 intitial checkin tz parents: diff changeset	192	#(#MenuItem
9c837d99f109 intitial checkin tz parents: diff changeset	193	#'label:' 'About Smalltalk/X...'
9c837d99f109 intitial checkin tz parents: diff changeset	194	#'value:' #openAbout
762 2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	195	#'activeHelpKey:' #aboutSTX
753 9c837d99f109 intitial checkin tz parents: diff changeset	196	)
9c837d99f109 intitial checkin tz parents: diff changeset	197	#(#MenuItem
9c837d99f109 intitial checkin tz parents: diff changeset	198	#'label:' '-'
9c837d99f109 intitial checkin tz parents: diff changeset	199	)
9c837d99f109 intitial checkin tz parents: diff changeset	200	#(#MenuItem
9c837d99f109 intitial checkin tz parents: diff changeset	201	#'label:' 'About This Application...'
9c837d99f109 intitial checkin tz parents: diff changeset	202	#'value:' #openAboutThisApplication
762 2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	203	#'activeHelpKey:' #aboutThisAppliaction
753 9c837d99f109 intitial checkin tz parents: diff changeset	204	)
9c837d99f109 intitial checkin tz parents: diff changeset	205	) nil
9c837d99f109 intitial checkin tz parents: diff changeset	206	nil
9c837d99f109 intitial checkin tz parents: diff changeset	207	)
9c837d99f109 intitial checkin tz parents: diff changeset	208	!
9c837d99f109 intitial checkin tz parents: diff changeset	209
9c837d99f109 intitial checkin tz parents: diff changeset	210	menuHelp
9c837d99f109 intitial checkin tz parents: diff changeset	211	"this window spec was automatically generated by the ST/X MenuEditor"
9c837d99f109 intitial checkin tz parents: diff changeset	212
9c837d99f109 intitial checkin tz parents: diff changeset	213	"do not manually edit this - the builder may not be able to
9c837d99f109 intitial checkin tz parents: diff changeset	214	handle the specification if its corrupted."
9c837d99f109 intitial checkin tz parents: diff changeset	215
9c837d99f109 intitial checkin tz parents: diff changeset	216	"
9c837d99f109 intitial checkin tz parents: diff changeset	217	MenuEditor new openOnClass:ToolApplicationModel andSelector:#menuHelp
9c837d99f109 intitial checkin tz parents: diff changeset	218	(Menu new fromLiteralArrayEncoding:(ToolApplicationModel menuHelp)) startUp
9c837d99f109 intitial checkin tz parents: diff changeset	219	"
9c837d99f109 intitial checkin tz parents: diff changeset	220
9c837d99f109 intitial checkin tz parents: diff changeset	221	<resource: #menu>
9c837d99f109 intitial checkin tz parents: diff changeset	222
9c837d99f109 intitial checkin tz parents: diff changeset	223	^
9c837d99f109 intitial checkin tz parents: diff changeset	224
9c837d99f109 intitial checkin tz parents: diff changeset	225	#(#Menu
9c837d99f109 intitial checkin tz parents: diff changeset	226
9c837d99f109 intitial checkin tz parents: diff changeset	227	#(
9c837d99f109 intitial checkin tz parents: diff changeset	228	#(#MenuItem
9c837d99f109 intitial checkin tz parents: diff changeset	229	#'label:' 'Tutorial'
9c837d99f109 intitial checkin tz parents: diff changeset	230	#'value:' #openTutorial
762 2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	231	#'activeHelpKey:' #helpTutorial
753 9c837d99f109 intitial checkin tz parents: diff changeset	232	)
9c837d99f109 intitial checkin tz parents: diff changeset	233	#(#MenuItem
9c837d99f109 intitial checkin tz parents: diff changeset	234	#'label:' 'Programmer''s Guide'
9c837d99f109 intitial checkin tz parents: diff changeset	235	#'value:' #openProgrammersGuide
762 2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	236	#'activeHelpKey:' #helpProgrammersGuide
753 9c837d99f109 intitial checkin tz parents: diff changeset	237	)
9c837d99f109 intitial checkin tz parents: diff changeset	238	#(#MenuItem
9c837d99f109 intitial checkin tz parents: diff changeset	239	#'label:' '-'
9c837d99f109 intitial checkin tz parents: diff changeset	240	)
9c837d99f109 intitial checkin tz parents: diff changeset	241	#(#MenuItem
9c837d99f109 intitial checkin tz parents: diff changeset	242	#'label:' 'Class Documentation'
9c837d99f109 intitial checkin tz parents: diff changeset	243	#'value:' #openClassDocumentation
762 2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	244	#'activeHelpKey:' #helpClassDocumentation
753 9c837d99f109 intitial checkin tz parents: diff changeset	245	)
9c837d99f109 intitial checkin tz parents: diff changeset	246	#(#MenuItem
9c837d99f109 intitial checkin tz parents: diff changeset	247	#'label:' '-'
9c837d99f109 intitial checkin tz parents: diff changeset	248	)
9c837d99f109 intitial checkin tz parents: diff changeset	249	#(#MenuItem
762 2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	250	#'label:' 'Show Help'
782 5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	251	#'value:' #'showHelp:'
762 2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	252	#'activeHelpKey:' #helpShowHelp
782 5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	253	#'indication:' #showHelp
753 9c837d99f109 intitial checkin tz parents: diff changeset	254	)
9c837d99f109 intitial checkin tz parents: diff changeset	255	) nil
9c837d99f109 intitial checkin tz parents: diff changeset	256	nil
9c837d99f109 intitial checkin tz parents: diff changeset	257	)
9c837d99f109 intitial checkin tz parents: diff changeset	258	!
9c837d99f109 intitial checkin tz parents: diff changeset	259
9c837d99f109 intitial checkin tz parents: diff changeset	260	menuSettings
9c837d99f109 intitial checkin tz parents: diff changeset	261	"this window spec was automatically generated by the ST/X MenuEditor"
9c837d99f109 intitial checkin tz parents: diff changeset	262
9c837d99f109 intitial checkin tz parents: diff changeset	263	"do not manually edit this - the builder may not be able to
9c837d99f109 intitial checkin tz parents: diff changeset	264	handle the specification if its corrupted."
9c837d99f109 intitial checkin tz parents: diff changeset	265
9c837d99f109 intitial checkin tz parents: diff changeset	266	"
9c837d99f109 intitial checkin tz parents: diff changeset	267	MenuEditor new openOnClass:ToolApplicationModel andSelector:#menuSettings
9c837d99f109 intitial checkin tz parents: diff changeset	268	(Menu new fromLiteralArrayEncoding:(ToolApplicationModel menuSettings)) startUp
9c837d99f109 intitial checkin tz parents: diff changeset	269	"
9c837d99f109 intitial checkin tz parents: diff changeset	270
9c837d99f109 intitial checkin tz parents: diff changeset	271	<resource: #menu>
9c837d99f109 intitial checkin tz parents: diff changeset	272
9c837d99f109 intitial checkin tz parents: diff changeset	273	^
9c837d99f109 intitial checkin tz parents: diff changeset	274
9c837d99f109 intitial checkin tz parents: diff changeset	275	#(#Menu
9c837d99f109 intitial checkin tz parents: diff changeset	276
9c837d99f109 intitial checkin tz parents: diff changeset	277	#(
9c837d99f109 intitial checkin tz parents: diff changeset	278	#(#MenuItem
9c837d99f109 intitial checkin tz parents: diff changeset	279	#'label:' 'Language'
9c837d99f109 intitial checkin tz parents: diff changeset	280	#'value:' #languageSetting
9c837d99f109 intitial checkin tz parents: diff changeset	281	)
9c837d99f109 intitial checkin tz parents: diff changeset	282	) nil
9c837d99f109 intitial checkin tz parents: diff changeset	283	nil
9c837d99f109 intitial checkin tz parents: diff changeset	284	)
758 f979af2fbb90 commit button spec added tz parents: 756 diff changeset	285	!
f979af2fbb90 commit button spec added tz parents: 756 diff changeset	286
f979af2fbb90 commit button spec added tz parents: 756 diff changeset	287	windowSpecForCommit
f979af2fbb90 commit button spec added tz parents: 756 diff changeset	288	"this window spec was automatically generated by the ST/X UIPainter"
f979af2fbb90 commit button spec added tz parents: 756 diff changeset	289
f979af2fbb90 commit button spec added tz parents: 756 diff changeset	290	"do not manually edit this - the painter/builder may not be able to
f979af2fbb90 commit button spec added tz parents: 756 diff changeset	291	handle the specification if its corrupted."
f979af2fbb90 commit button spec added tz parents: 756 diff changeset	292
f979af2fbb90 commit button spec added tz parents: 756 diff changeset	293	"
f979af2fbb90 commit button spec added tz parents: 756 diff changeset	294	UIPainter new openOnClass:ToolApplicationModel andSelector:#windowSpecForCommit
f979af2fbb90 commit button spec added tz parents: 756 diff changeset	295	ToolApplicationModel new openInterface:#windowSpecForCommit
f979af2fbb90 commit button spec added tz parents: 756 diff changeset	296	"
f979af2fbb90 commit button spec added tz parents: 756 diff changeset	297
f979af2fbb90 commit button spec added tz parents: 756 diff changeset	298	<resource: #canvas>
f979af2fbb90 commit button spec added tz parents: 756 diff changeset	299
f979af2fbb90 commit button spec added tz parents: 756 diff changeset	300	^
f979af2fbb90 commit button spec added tz parents: 756 diff changeset	301
f979af2fbb90 commit button spec added tz parents: 756 diff changeset	302	#(#FullSpec
f979af2fbb90 commit button spec added tz parents: 756 diff changeset	303	#'window:'
f979af2fbb90 commit button spec added tz parents: 756 diff changeset	304	#(#WindowSpec
f979af2fbb90 commit button spec added tz parents: 756 diff changeset	305	#'name:' 'unnamed canvas'
769 0fdaa6ecea6a commit buttons tabable tz parents: 768 diff changeset	306	#'layout:' #(#LayoutFrame 325 0 361 0 624 0 420 0)
758 f979af2fbb90 commit button spec added tz parents: 756 diff changeset	307	#'label:' 'unnamed canvas'
f979af2fbb90 commit button spec added tz parents: 756 diff changeset	308	#'min:' #(#Point 100 22)
f979af2fbb90 commit button spec added tz parents: 756 diff changeset	309	#'max:' #(#Point 1152 900)
769 0fdaa6ecea6a commit buttons tabable tz parents: 768 diff changeset	310	#'bounds:' #(#Rectangle 325 361 625 421)
758 f979af2fbb90 commit button spec added tz parents: 756 diff changeset	311	#'usePreferredExtent:' false
f979af2fbb90 commit button spec added tz parents: 756 diff changeset	312	)
f979af2fbb90 commit button spec added tz parents: 756 diff changeset	313	#'component:'
f979af2fbb90 commit button spec added tz parents: 756 diff changeset	314	#(#SpecCollection
f979af2fbb90 commit button spec added tz parents: 756 diff changeset	315	#'collection:'
f979af2fbb90 commit button spec added tz parents: 756 diff changeset	316	#(
f979af2fbb90 commit button spec added tz parents: 756 diff changeset	317	#(#ActionButtonSpec
f979af2fbb90 commit button spec added tz parents: 756 diff changeset	318	#'name:' 'cancelButton'
f979af2fbb90 commit button spec added tz parents: 756 diff changeset	319	#'layout:' #(#LayoutFrame 5 0 0 0 -2 0.5 0 1)
f979af2fbb90 commit button spec added tz parents: 756 diff changeset	320	#'label:' 'Cancel'
769 0fdaa6ecea6a commit buttons tabable tz parents: 768 diff changeset	321	#'tabable:' true
758 f979af2fbb90 commit button spec added tz parents: 756 diff changeset	322	#'model:' #cancel
f979af2fbb90 commit button spec added tz parents: 756 diff changeset	323	#'enableChannel:' #valueOfEnablingCommitButtons
f979af2fbb90 commit button spec added tz parents: 756 diff changeset	324	)
f979af2fbb90 commit button spec added tz parents: 756 diff changeset	325	#(#ActionButtonSpec
f979af2fbb90 commit button spec added tz parents: 756 diff changeset	326	#'name:' 'okButton'
f979af2fbb90 commit button spec added tz parents: 756 diff changeset	327	#'layout:' #(#LayoutFrame 2 0.5 0 0.0 -5 1 0 1.0)
f979af2fbb90 commit button spec added tz parents: 756 diff changeset	328	#'label:' 'OK'
769 0fdaa6ecea6a commit buttons tabable tz parents: 768 diff changeset	329	#'tabable:' true
758 f979af2fbb90 commit button spec added tz parents: 756 diff changeset	330	#'model:' #accept
f979af2fbb90 commit button spec added tz parents: 756 diff changeset	331	#'enableChannel:' #valueOfEnablingCommitButtons
f979af2fbb90 commit button spec added tz parents: 756 diff changeset	332	)
f979af2fbb90 commit button spec added tz parents: 756 diff changeset	333	)
f979af2fbb90 commit button spec added tz parents: 756 diff changeset	334	)
f979af2fbb90 commit button spec added tz parents: 756 diff changeset	335	)
760 26cf45040420 #preferredExtent cleaned tz parents: 758 diff changeset	336	!
26cf45040420 #preferredExtent cleaned tz parents: 758 diff changeset	337
26cf45040420 #preferredExtent cleaned tz parents: 758 diff changeset	338	windowSpecForCommitWithoutChannels
26cf45040420 #preferredExtent cleaned tz parents: 758 diff changeset	339	"this window spec was automatically generated by the ST/X UIPainter"
26cf45040420 #preferredExtent cleaned tz parents: 758 diff changeset	340
26cf45040420 #preferredExtent cleaned tz parents: 758 diff changeset	341	"do not manually edit this - the painter/builder may not be able to
26cf45040420 #preferredExtent cleaned tz parents: 758 diff changeset	342	handle the specification if its corrupted."
26cf45040420 #preferredExtent cleaned tz parents: 758 diff changeset	343
26cf45040420 #preferredExtent cleaned tz parents: 758 diff changeset	344	"
26cf45040420 #preferredExtent cleaned tz parents: 758 diff changeset	345	UIPainter new openOnClass:ToolApplicationModel andSelector:#windowSpecForCommitWithoutChannels
26cf45040420 #preferredExtent cleaned tz parents: 758 diff changeset	346	ToolApplicationModel new openInterface:#windowSpecForCommitWithoutChannels
26cf45040420 #preferredExtent cleaned tz parents: 758 diff changeset	347	"
26cf45040420 #preferredExtent cleaned tz parents: 758 diff changeset	348
26cf45040420 #preferredExtent cleaned tz parents: 758 diff changeset	349	<resource: #canvas>
26cf45040420 #preferredExtent cleaned tz parents: 758 diff changeset	350
26cf45040420 #preferredExtent cleaned tz parents: 758 diff changeset	351	^
26cf45040420 #preferredExtent cleaned tz parents: 758 diff changeset	352
26cf45040420 #preferredExtent cleaned tz parents: 758 diff changeset	353	#(#FullSpec
26cf45040420 #preferredExtent cleaned tz parents: 758 diff changeset	354	#'window:'
26cf45040420 #preferredExtent cleaned tz parents: 758 diff changeset	355	#(#WindowSpec
26cf45040420 #preferredExtent cleaned tz parents: 758 diff changeset	356	#'name:' 'unnamed canvas'
769 0fdaa6ecea6a commit buttons tabable tz parents: 768 diff changeset	357	#'layout:' #(#LayoutFrame 418 0 386 0 717 0 445 0)
760 26cf45040420 #preferredExtent cleaned tz parents: 758 diff changeset	358	#'label:' 'unnamed canvas'
26cf45040420 #preferredExtent cleaned tz parents: 758 diff changeset	359	#'min:' #(#Point 100 22)
26cf45040420 #preferredExtent cleaned tz parents: 758 diff changeset	360	#'max:' #(#Point 1152 900)
769 0fdaa6ecea6a commit buttons tabable tz parents: 768 diff changeset	361	#'bounds:' #(#Rectangle 418 386 718 446)
760 26cf45040420 #preferredExtent cleaned tz parents: 758 diff changeset	362	#'usePreferredExtent:' false
26cf45040420 #preferredExtent cleaned tz parents: 758 diff changeset	363	)
26cf45040420 #preferredExtent cleaned tz parents: 758 diff changeset	364	#'component:'
26cf45040420 #preferredExtent cleaned tz parents: 758 diff changeset	365	#(#SpecCollection
26cf45040420 #preferredExtent cleaned tz parents: 758 diff changeset	366	#'collection:'
26cf45040420 #preferredExtent cleaned tz parents: 758 diff changeset	367	#(
26cf45040420 #preferredExtent cleaned tz parents: 758 diff changeset	368	#(#ActionButtonSpec
26cf45040420 #preferredExtent cleaned tz parents: 758 diff changeset	369	#'name:' 'cancelButton'
26cf45040420 #preferredExtent cleaned tz parents: 758 diff changeset	370	#'layout:' #(#LayoutFrame 5 0 0 0 -2 0.5 0 1)
26cf45040420 #preferredExtent cleaned tz parents: 758 diff changeset	371	#'label:' 'Cancel'
769 0fdaa6ecea6a commit buttons tabable tz parents: 768 diff changeset	372	#'tabable:' true
760 26cf45040420 #preferredExtent cleaned tz parents: 758 diff changeset	373	#'model:' #cancel
26cf45040420 #preferredExtent cleaned tz parents: 758 diff changeset	374	)
26cf45040420 #preferredExtent cleaned tz parents: 758 diff changeset	375	#(#ActionButtonSpec
26cf45040420 #preferredExtent cleaned tz parents: 758 diff changeset	376	#'name:' 'okButton'
26cf45040420 #preferredExtent cleaned tz parents: 758 diff changeset	377	#'layout:' #(#LayoutFrame 2 0.5 0 0.0 -5 1 0 1.0)
26cf45040420 #preferredExtent cleaned tz parents: 758 diff changeset	378	#'label:' 'OK'
769 0fdaa6ecea6a commit buttons tabable tz parents: 768 diff changeset	379	#'tabable:' true
760 26cf45040420 #preferredExtent cleaned tz parents: 758 diff changeset	380	#'model:' #accept
26cf45040420 #preferredExtent cleaned tz parents: 758 diff changeset	381	)
26cf45040420 #preferredExtent cleaned tz parents: 758 diff changeset	382	)
26cf45040420 #preferredExtent cleaned tz parents: 758 diff changeset	383	)
26cf45040420 #preferredExtent cleaned tz parents: 758 diff changeset	384	)
776 b533fbcadb8c window spec for info bar added tz parents: 772 diff changeset	385	!
b533fbcadb8c window spec for info bar added tz parents: 772 diff changeset	386
b533fbcadb8c window spec for info bar added tz parents: 772 diff changeset	387	windowSpecForInfoBar
b533fbcadb8c window spec for info bar added tz parents: 772 diff changeset	388	"this window spec was automatically generated by the ST/X UIPainter"
b533fbcadb8c window spec for info bar added tz parents: 772 diff changeset	389
b533fbcadb8c window spec for info bar added tz parents: 772 diff changeset	390	"do not manually edit this - the painter/builder may not be able to
b533fbcadb8c window spec for info bar added tz parents: 772 diff changeset	391	handle the specification if its corrupted."
b533fbcadb8c window spec for info bar added tz parents: 772 diff changeset	392
b533fbcadb8c window spec for info bar added tz parents: 772 diff changeset	393	"
b533fbcadb8c window spec for info bar added tz parents: 772 diff changeset	394	UIPainter new openOnClass:ToolApplicationModel andSelector:#windowSpecForInfoBar
b533fbcadb8c window spec for info bar added tz parents: 772 diff changeset	395	ToolApplicationModel new openInterface:#windowSpecForInfoBar
b533fbcadb8c window spec for info bar added tz parents: 772 diff changeset	396	"
b533fbcadb8c window spec for info bar added tz parents: 772 diff changeset	397
b533fbcadb8c window spec for info bar added tz parents: 772 diff changeset	398	<resource: #canvas>
b533fbcadb8c window spec for info bar added tz parents: 772 diff changeset	399
b533fbcadb8c window spec for info bar added tz parents: 772 diff changeset	400	^
b533fbcadb8c window spec for info bar added tz parents: 772 diff changeset	401
b533fbcadb8c window spec for info bar added tz parents: 772 diff changeset	402	#(#FullSpec
b533fbcadb8c window spec for info bar added tz parents: 772 diff changeset	403	#'window:'
b533fbcadb8c window spec for info bar added tz parents: 772 diff changeset	404	#(#WindowSpec
b533fbcadb8c window spec for info bar added tz parents: 772 diff changeset	405	#'name:' 'Image Editor'
b533fbcadb8c window spec for info bar added tz parents: 772 diff changeset	406	#'layout:' #(#LayoutFrame 173 0 418 0 672 0 763 0)
b533fbcadb8c window spec for info bar added tz parents: 772 diff changeset	407	#'label:' 'Image Editor'
b533fbcadb8c window spec for info bar added tz parents: 772 diff changeset	408	#'min:' #(#Point 400 320)
b533fbcadb8c window spec for info bar added tz parents: 772 diff changeset	409	#'max:' #(#Point 1152 900)
b533fbcadb8c window spec for info bar added tz parents: 772 diff changeset	410	#'bounds:' #(#Rectangle 173 418 673 764)
b533fbcadb8c window spec for info bar added tz parents: 772 diff changeset	411	#'menu:' #menu
b533fbcadb8c window spec for info bar added tz parents: 772 diff changeset	412	#'usePreferredExtent:' false
b533fbcadb8c window spec for info bar added tz parents: 772 diff changeset	413	)
b533fbcadb8c window spec for info bar added tz parents: 772 diff changeset	414	#'component:'
b533fbcadb8c window spec for info bar added tz parents: 772 diff changeset	415	#(#SpecCollection
b533fbcadb8c window spec for info bar added tz parents: 772 diff changeset	416	#'collection:'
b533fbcadb8c window spec for info bar added tz parents: 772 diff changeset	417	#(
b533fbcadb8c window spec for info bar added tz parents: 772 diff changeset	418	#(#LabelSpec
b533fbcadb8c window spec for info bar added tz parents: 772 diff changeset	419	#'name:' 'infoLabel'
b533fbcadb8c window spec for info bar added tz parents: 772 diff changeset	420	#'layout:' #(#LayoutFrame 0 0 0 0.0 -80 1 0 1.0)
b533fbcadb8c window spec for info bar added tz parents: 772 diff changeset	421	#'labelChannel:' #valueOfInfoLabel
b533fbcadb8c window spec for info bar added tz parents: 772 diff changeset	422	#'level:' 1
b533fbcadb8c window spec for info bar added tz parents: 772 diff changeset	423	#'adjust:' #left
b533fbcadb8c window spec for info bar added tz parents: 772 diff changeset	424	)
b533fbcadb8c window spec for info bar added tz parents: 772 diff changeset	425	#(#LabelSpec
b533fbcadb8c window spec for info bar added tz parents: 772 diff changeset	426	#'name:' 'timeLabel'
b533fbcadb8c window spec for info bar added tz parents: 772 diff changeset	427	#'layout:' #(#LayoutFrame -80 1 0 0.0 0 1.0 0 1.0)
b533fbcadb8c window spec for info bar added tz parents: 772 diff changeset	428	#'labelChannel:' #valueOfTimeLabel
b533fbcadb8c window spec for info bar added tz parents: 772 diff changeset	429	#'level:' 1
b533fbcadb8c window spec for info bar added tz parents: 772 diff changeset	430	#'adjust:' #right
b533fbcadb8c window spec for info bar added tz parents: 772 diff changeset	431	)
b533fbcadb8c window spec for info bar added tz parents: 772 diff changeset	432	)
b533fbcadb8c window spec for info bar added tz parents: 772 diff changeset	433	)
b533fbcadb8c window spec for info bar added tz parents: 772 diff changeset	434	)
753 9c837d99f109 intitial checkin tz parents: diff changeset	435	! !
9c837d99f109 intitial checkin tz parents: diff changeset	436
9c837d99f109 intitial checkin tz parents: diff changeset	437	!ToolApplicationModel class methodsFor:'resources'!
9c837d99f109 intitial checkin tz parents: diff changeset	438
9c837d99f109 intitial checkin tz parents: diff changeset	439	downIcon
778 251895a3f266 new icon method format applied tz parents: 776 diff changeset	440	"Generated by the Image Editor"
251895a3f266 new icon method format applied tz parents: 776 diff changeset	441	"
251895a3f266 new icon method format applied tz parents: 776 diff changeset	442	ImageEditor openOnClass:self andSelector:#downIcon
251895a3f266 new icon method format applied tz parents: 776 diff changeset	443	"
753 9c837d99f109 intitial checkin tz parents: diff changeset	444
9c837d99f109 intitial checkin tz parents: diff changeset	445	<resource: #image>
778 251895a3f266 new icon method format applied tz parents: 776 diff changeset	446
251895a3f266 new icon method format applied tz parents: 776 diff changeset	447	^Icon
251895a3f266 new icon method format applied tz parents: 776 diff changeset	448	constantNamed:#'ToolApplicationModel downIcon'
251895a3f266 new icon method format applied tz parents: 776 diff changeset	449	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'UUT@AUUPUUT%UUPUUT%UUPUUT%UUPUUT%UUPUUT%UUPUUT%UUPUUT%UUPUUT%UUPUUT%UUPUUT%UUPUUT%UUPUUT%UUPUUT%UUPUUT%UUPUT@$AUPUT%UPUUUUPUUZ)UUPUUV%UUPUUUUUUPUUUYUUUP'); colorMap:((OrderedCollection new add:(Color white); add:(Color black); add:(Color red:0.0 green:49.9962 blue:0.0); add:(Color red:100.0 green:0.0 blue:0.0); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@O0@@O0@@O0@@O0@@O0@@O0@@O0@@O0@@O0@@O0@@O0@@O0@@O0@@O0@@O0@A?>@A?>@@?<@@_8@@O0@@G @@C@@'); yourself); yourself]!
753 9c837d99f109 intitial checkin tz parents: diff changeset	450
9c837d99f109 intitial checkin tz parents: diff changeset	451	downLeftIcon
778 251895a3f266 new icon method format applied tz parents: 776 diff changeset	452	"Generated by the Image Editor"
251895a3f266 new icon method format applied tz parents: 776 diff changeset	453	"
251895a3f266 new icon method format applied tz parents: 776 diff changeset	454	ImageEditor openOnClass:self andSelector:#downLeftIcon
251895a3f266 new icon method format applied tz parents: 776 diff changeset	455	"
753 9c837d99f109 intitial checkin tz parents: diff changeset	456
9c837d99f109 intitial checkin tz parents: diff changeset	457	<resource: #image>
778 251895a3f266 new icon method format applied tz parents: 776 diff changeset	458
251895a3f266 new icon method format applied tz parents: 776 diff changeset	459	^Icon
251895a3f266 new icon method format applied tz parents: 776 diff changeset	460	constantNamed:#'ToolApplicationModel downLeftIcon'
251895a3f266 new icon method format applied tz parents: 776 diff changeset	461	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'UUUUUUUPUUUUU@@PUUUUUJ)PUUUUUJ)PUUUUUJ)PUUUUUJ)PUUUUUJ)PUUUUUJ)PUUUUUJ)PUUUUUJ)PUUAUUJ)PUT%UUJ)PUR%UUJ)PUJ$@@J)PT***)PR*)PV*)PU***)PUZ%UUUUPUV%UUUUPUU%UUUUPUUUUUUUP'); colorMap:((OrderedCollection new add:(Color white); add:(Color black); add:(Color red:0.0 green:49.9962 blue:0.0); add:(Color red:100.0 green:0.0 blue:0.0); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@G8@@G8@@G8@@G8@@G8@@G8@@G8@@G8@@G8@0G8A0G8C0G8G??8O??8_??8_??8O??8G??8C0@@A0@@@0@@'); yourself); yourself]!
753 9c837d99f109 intitial checkin tz parents: diff changeset	462
9c837d99f109 intitial checkin tz parents: diff changeset	463	downRightIcon
778 251895a3f266 new icon method format applied tz parents: 776 diff changeset	464	"Generated by the Image Editor"
251895a3f266 new icon method format applied tz parents: 776 diff changeset	465	"
251895a3f266 new icon method format applied tz parents: 776 diff changeset	466	ImageEditor openOnClass:self andSelector:#downRightIcon
251895a3f266 new icon method format applied tz parents: 776 diff changeset	467	"
753 9c837d99f109 intitial checkin tz parents: diff changeset	468
9c837d99f109 intitial checkin tz parents: diff changeset	469	<resource: #image>
778 251895a3f266 new icon method format applied tz parents: 776 diff changeset	470
251895a3f266 new icon method format applied tz parents: 776 diff changeset	471	^Icon
251895a3f266 new icon method format applied tz parents: 776 diff changeset	472	constantNamed:#'ToolApplicationModel downRightIcon'
251895a3f266 new icon method format applied tz parents: 776 diff changeset	473	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'UUUUUUUPP@EUUUUPRUUUUUPRUUUUUPRUUUUUPRUUUUUPRUUUUUPRUUUUUPRUUUUUPRUUUUUPRUUTEUPRUUT!!UPRUUT(UPRP@@EPR**!!PR*(PR*)PR**%PQUUUUUPUUUUT)UPUUUUT%UPUUUUTUUP'); colorMap:((OrderedCollection new add:(Color white); add:(Color black); add:(Color red:0.0 green:49.9962 blue:0.0); add:(Color red:100.0 green:0.0 blue:0.0); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@_ @@_ @@_ @@_ @@_ @@_ @@_ @@_ @@_ @@_ L@_ N@_ O@_?? _??0_??8_??8_??0_?? @@O@@@N@@@L@'); yourself); yourself]!
753 9c837d99f109 intitial checkin tz parents: diff changeset	474
9c837d99f109 intitial checkin tz parents: diff changeset	475	fileOutIcon
778 251895a3f266 new icon method format applied tz parents: 776 diff changeset	476	"Generated by the Image Editor"
251895a3f266 new icon method format applied tz parents: 776 diff changeset	477	"
251895a3f266 new icon method format applied tz parents: 776 diff changeset	478	ImageEditor openOnClass:self andSelector:#fileOutIcon
251895a3f266 new icon method format applied tz parents: 776 diff changeset	479	"
753 9c837d99f109 intitial checkin tz parents: diff changeset	480
9c837d99f109 intitial checkin tz parents: diff changeset	481	<resource: #image>
9c837d99f109 intitial checkin tz parents: diff changeset	482
778 251895a3f266 new icon method format applied tz parents: 776 diff changeset	483	^Icon
251895a3f266 new icon method format applied tz parents: 776 diff changeset	484	constantNamed:#'ToolApplicationModel fileOutIcon'
251895a3f266 new icon method format applied tz parents: 776 diff changeset	485	ifAbsentPut:[(Depth2Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@B@@@@@@@B @@@@@@*(@@@@@BB @@@@@BB@@@@@@B@@@@@@@B@@@@@@@B@@@@@@@B@@@@@@@B@@@@@@@@@@@@@@@@@@@@@@@@@@@@D@@AQDEADQAAADDADQA@AD@ADQAAQDEADQAAADDADQAAA@@@PAAAAEE@@DA'); colorMap:((OrderedCollection new add:(Color black); add:(Color white); add:(Color red:0.0 green:49.9962 blue:0.0); add:(Color red:100.0 green:0.0 blue:0.0); yourself)); mask:((Depth1Image new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@A@A.A%BDG2ADI%@$I@SDH@@@H@@@H@@@H@@@H@@@@@@@@@@@Z&KW_7_;[6_;[6_;_7_;[6_;[6L+I[@Q'); yourself); yourself]!
753 9c837d99f109 intitial checkin tz parents: diff changeset	486
9c837d99f109 intitial checkin tz parents: diff changeset	487	icon
9c837d99f109 intitial checkin tz parents: diff changeset	488
772 6164c303afde enlarged (for cg) and redesigned (for all) icons tz parents: 769 diff changeset	489	^self stxIcon
753 9c837d99f109 intitial checkin tz parents: diff changeset	490	!
9c837d99f109 intitial checkin tz parents: diff changeset	491
9c837d99f109 intitial checkin tz parents: diff changeset	492	leftDownIcon
778 251895a3f266 new icon method format applied tz parents: 776 diff changeset	493	"Generated by the Image Editor"
251895a3f266 new icon method format applied tz parents: 776 diff changeset	494	"
251895a3f266 new icon method format applied tz parents: 776 diff changeset	495	ImageEditor openOnClass:self andSelector:#leftDownIcon
251895a3f266 new icon method format applied tz parents: 776 diff changeset	496	"
753 9c837d99f109 intitial checkin tz parents: diff changeset	497
9c837d99f109 intitial checkin tz parents: diff changeset	498	<resource: #image>
778 251895a3f266 new icon method format applied tz parents: 776 diff changeset	499
251895a3f266 new icon method format applied tz parents: 776 diff changeset	500	^Icon
251895a3f266 new icon method format applied tz parents: 776 diff changeset	501	constantNamed:#'ToolApplicationModel leftDownIcon'
251895a3f266 new icon method format applied tz parents: 776 diff changeset	502	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'UUUUUUUPU@@@@@@PUJ**)PUJ)PUJ)PUJ*)PUJ)UUUUPUJ)UUUUPUJ)UUUUPUJ)UUUUPUJ)UUUUPUJ)UUUUPUJ)UUUUPUJ)UUUUP@J@UUUPJ)UUUPR%UUUPT**UUUUPUJ)UUUUPUR%UUUUPUTUUUUUPUUUUUUUP'); colorMap:((OrderedCollection new add:(Color white); add:(Color black); add:(Color red:0.0 green:49.9962 blue:0.0); add:(Color red:100.0 green:0.0 blue:0.0); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@G??8G??8G??8G??8G??8G??8G8@@G8@@G8@@G8@@G8@@G8@@G8@@??@@??@@_>@@O<@@G8@@C0@@A @@@@@@'); yourself); yourself]!
753 9c837d99f109 intitial checkin tz parents: diff changeset	503
778 251895a3f266 new icon method format applied tz parents: 776 diff changeset	504	leftIcon
251895a3f266 new icon method format applied tz parents: 776 diff changeset	505	"Generated by the Image Editor"
251895a3f266 new icon method format applied tz parents: 776 diff changeset	506	"
251895a3f266 new icon method format applied tz parents: 776 diff changeset	507	ImageEditor openOnClass:self andSelector:#leftIcon
251895a3f266 new icon method format applied tz parents: 776 diff changeset	508	"
753 9c837d99f109 intitial checkin tz parents: diff changeset	509
9c837d99f109 intitial checkin tz parents: diff changeset	510	<resource: #image>
9c837d99f109 intitial checkin tz parents: diff changeset	511
778 251895a3f266 new icon method format applied tz parents: 776 diff changeset	512	^Icon
251895a3f266 new icon method format applied tz parents: 776 diff changeset	513	constantNamed:#'ToolApplicationModel leftIcon'
251895a3f266 new icon method format applied tz parents: 776 diff changeset	514	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'UUUUUUUPUUUUUUUPUUUUUUUPUUUUUUUPUUUUUUUPUTUUUUUPURUUUUUPUJUUUUUPTP@@@@PR***PJ**PZ**PV***PUUUUUUPUZUUUUUPUVUUUUUPUUUUUUUPUUUUUUUPUUUUUUUPUUUUUUUPUUUUUUUPUUUUUUUP'); colorMap:((OrderedCollection new add:(Color white); add:(Color black); add:(Color red:0.0 green:49.9962 blue:0.0); add:(Color red:100.0 green:0.0 blue:0.0); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@A @@C @@G @@O??<_??<???<???<_??<O??<G @@C @@A @@@@@@@@@@@@@@@@@@@@@@'); yourself); yourself]!
753 9c837d99f109 intitial checkin tz parents: diff changeset	515
778 251895a3f266 new icon method format applied tz parents: 776 diff changeset	516	leftUpIcon
251895a3f266 new icon method format applied tz parents: 776 diff changeset	517	"Generated by the Image Editor"
251895a3f266 new icon method format applied tz parents: 776 diff changeset	518	"
251895a3f266 new icon method format applied tz parents: 776 diff changeset	519	ImageEditor openOnClass:self andSelector:#leftUpIcon
251895a3f266 new icon method format applied tz parents: 776 diff changeset	520	"
753 9c837d99f109 intitial checkin tz parents: diff changeset	521
9c837d99f109 intitial checkin tz parents: diff changeset	522	<resource: #image>
772 6164c303afde enlarged (for cg) and redesigned (for all) icons tz parents: 769 diff changeset	523
778 251895a3f266 new icon method format applied tz parents: 776 diff changeset	524	^Icon
251895a3f266 new icon method format applied tz parents: 776 diff changeset	525	constantNamed:#'ToolApplicationModel leftUpIcon'
251895a3f266 new icon method format applied tz parents: 776 diff changeset	526	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'UUUUUUUPUTUUUUUPUR%UUUUPUJ)UUUUPTUUUUPR%UUUPJ)UUUP%Z)UUUUPUJ)UUUUPUJ)UUUUPUJ)UUUUPUJ)UUUUPUJ)UUUUPUJ)UUUUPUJ)UUUUPUJ)@@@@PUJ)PUJ)PUJ)PUJ**)PUEUUUUUPUUUUUUUP'); colorMap:((OrderedCollection new add:(Color white); add:(Color black); add:(Color red:0.0 green:49.9962 blue:0.0); add:(Color red:100.0 green:0.0 blue:0.0); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@A @@C0@@G8@@O<@@_>@@??@@??@@G8@@G8@@G8@@G8@@G8@@G8@@G8@@G??8G??8G??8G??8G??8G??8@@@@'); yourself); yourself]!
772 6164c303afde enlarged (for cg) and redesigned (for all) icons tz parents: 769 diff changeset	527
778 251895a3f266 new icon method format applied tz parents: 776 diff changeset	528	loadIcon
251895a3f266 new icon method format applied tz parents: 776 diff changeset	529	"Generated by the Image Editor"
251895a3f266 new icon method format applied tz parents: 776 diff changeset	530	"
251895a3f266 new icon method format applied tz parents: 776 diff changeset	531	ImageEditor openOnClass:self andSelector:#loadIcon
251895a3f266 new icon method format applied tz parents: 776 diff changeset	532	"
753 9c837d99f109 intitial checkin tz parents: diff changeset	533
9c837d99f109 intitial checkin tz parents: diff changeset	534	<resource: #image>
778 251895a3f266 new icon method format applied tz parents: 776 diff changeset	535
251895a3f266 new icon method format applied tz parents: 776 diff changeset	536	^Icon
251895a3f266 new icon method format applied tz parents: 776 diff changeset	537	constantNamed:#'ToolApplicationModel loadIcon'
251895a3f266 new icon method format applied tz parents: 776 diff changeset	538	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'UUUUUUUPUUUUU?UPUUUUW5PU???>/PU:**)PUUUUUUZPP@@@@@EPS?????&PS?????%PS?????&PS?????%PT?????9PT?????9PT?????9PT?????9PT?????9PT?????9PUO????>PUO????>PUO????>PU:***PUUUUUUUP'); colorMap:(((Array new:4) at:1 put:((Color white)); at:2 put:((Color black)); at:3 put:((Color grey:49.9962)); at:4 put:((Color grey:66.9978)); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@G@@@O G??8O??<O??<_??<???<???<???<???<???<_??<_??<_??<_??<_??<_??<O??<O??<O??<O??<O??<'); yourself); yourself]!
753 9c837d99f109 intitial checkin tz parents: diff changeset	539
778 251895a3f266 new icon method format applied tz parents: 776 diff changeset	540	newIcon
251895a3f266 new icon method format applied tz parents: 776 diff changeset	541	"Generated by the Image Editor"
251895a3f266 new icon method format applied tz parents: 776 diff changeset	542	"
251895a3f266 new icon method format applied tz parents: 776 diff changeset	543	ImageEditor openOnClass:self andSelector:#newIcon
251895a3f266 new icon method format applied tz parents: 776 diff changeset	544	"
756 4dba5a8797ec * empty log message * tz parents: 753 diff changeset	545
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	546	<resource: #image>
778 251895a3f266 new icon method format applied tz parents: 776 diff changeset	547
251895a3f266 new icon method format applied tz parents: 776 diff changeset	548	^Icon
251895a3f266 new icon method format applied tz parents: 776 diff changeset	549	constantNamed:#'ToolApplicationModel newIcon'
251895a3f266 new icon method format applied tz parents: 776 diff changeset	550	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@AUUUUP@@A????2@@A????2 @A????0@@A?????8@A?????8@A?????8@A?????8@A?????8@A?????8@A?????8@A?????8@A?????8@A?????8@A?????8@A?????8@A?????8@A?????8@A?????8@C*****(@@@@@@@@@'); colorMap:(((Array new:4) at:1 put:((Color black)); at:2 put:((Color white)); at:3 put:((Color grey:49.9962)); at:4 put:((Color grey:66.9978)); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'_?>@_??@_?? _??0_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8'); yourself); yourself]!
756 4dba5a8797ec * empty log message * tz parents: 753 diff changeset	551
778 251895a3f266 new icon method format applied tz parents: 776 diff changeset	552	removeIcon
251895a3f266 new icon method format applied tz parents: 776 diff changeset	553	"Generated by the Image Editor"
251895a3f266 new icon method format applied tz parents: 776 diff changeset	554	"
251895a3f266 new icon method format applied tz parents: 776 diff changeset	555	ImageEditor openOnClass:self andSelector:#removeIcon
251895a3f266 new icon method format applied tz parents: 776 diff changeset	556	"
753 9c837d99f109 intitial checkin tz parents: diff changeset	557
9c837d99f109 intitial checkin tz parents: diff changeset	558	<resource: #image>
772 6164c303afde enlarged (for cg) and redesigned (for all) icons tz parents: 769 diff changeset	559
778 251895a3f266 new icon method format applied tz parents: 776 diff changeset	560	^Icon
251895a3f266 new icon method format applied tz parents: 776 diff changeset	561	constantNamed:#'ToolApplicationModel removeIcon'
251895a3f266 new icon method format applied tz parents: 776 diff changeset	562	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@BUUUUP@@B/???2@@B+???2 @A???0@@A:/??8@A>+?>+8@A??:/8@A?:/?8@A?>+?8@A??/?8@A??/?8@A?>+?8@A?:/?8@A??:/8@A>+?>+8@A:/??8@A???:(@B+???>(@B/????(@B*****(@@@@@@@@@'); colorMap:(((Array new:4) at:1 put:((Color black)); at:2 put:((Color white)); at:3 put:((Color grey:49.9962)); at:4 put:((Color grey:66.9978)); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'_?>@_??@_?? _??0_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8'); yourself); yourself]!
772 6164c303afde enlarged (for cg) and redesigned (for all) icons tz parents: 769 diff changeset	563
778 251895a3f266 new icon method format applied tz parents: 776 diff changeset	564	reviseAllButtonIcon
251895a3f266 new icon method format applied tz parents: 776 diff changeset	565	"Generated by the Image Editor"
251895a3f266 new icon method format applied tz parents: 776 diff changeset	566	"
251895a3f266 new icon method format applied tz parents: 776 diff changeset	567	ImageEditor openOnClass:self andSelector:#reviseAllButtonIcon
251895a3f266 new icon method format applied tz parents: 776 diff changeset	568	"
753 9c837d99f109 intitial checkin tz parents: diff changeset	569
9c837d99f109 intitial checkin tz parents: diff changeset	570	<resource: #image>
9c837d99f109 intitial checkin tz parents: diff changeset	571
778 251895a3f266 new icon method format applied tz parents: 776 diff changeset	572	^Icon
251895a3f266 new icon method format applied tz parents: 776 diff changeset	573	constantNamed:#'ToolApplicationModel reviseAllButtonIcon'
251895a3f266 new icon method format applied tz parents: 776 diff changeset	574	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'EUUU@@@@UVUY@@@@UY?6@@@@UW0=@@@@UWO=AUUPUWO-@@@@UW>=AUUPEY?6A@@P@BUXUUTP@A @P@DP@IPEUUDP@F@D@ADP@%@DEADP@X@DPQDPBT@DPADPA @DDADPEP@DAADPFP@D@QEPAP@DPQD@@P@DEAT@@@@D@A@@@@@EUU@@'); colorMap:(((Array new:4) at:1 put:((Color white)); at:2 put:((Color black)); at:3 put:((Color grey:49.9962)); at:4 put:((Color grey:66.9978)); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@A>@@C?@@C?@@C?@@C?@@C?O<C?O<A>?<A ?<CC?<CC?<FC?<FC?<LC?<LC?<XC?<HC?<@C?0@C?0@C?@@C?@'); yourself); yourself]!
762 2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	575
778 251895a3f266 new icon method format applied tz parents: 776 diff changeset	576	rightIcon
251895a3f266 new icon method format applied tz parents: 776 diff changeset	577	"Generated by the Image Editor"
251895a3f266 new icon method format applied tz parents: 776 diff changeset	578	"
251895a3f266 new icon method format applied tz parents: 776 diff changeset	579	ImageEditor openOnClass:self andSelector:#rightIcon
251895a3f266 new icon method format applied tz parents: 776 diff changeset	580	"
753 9c837d99f109 intitial checkin tz parents: diff changeset	581
9c837d99f109 intitial checkin tz parents: diff changeset	582	<resource: #image>
778 251895a3f266 new icon method format applied tz parents: 776 diff changeset	583
251895a3f266 new icon method format applied tz parents: 776 diff changeset	584	^Icon
251895a3f266 new icon method format applied tz parents: 776 diff changeset	585	constantNamed:#'ToolApplicationModel rightIcon'
251895a3f266 new icon method format applied tz parents: 776 diff changeset	586	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'UUUUUUUPUUUUUUUPUUUUUUUPUUUUUUUPUUUUUUUPUUUUUEUPUUUUUIUPUUUUUJUP@@@@@J%PJ***)PJ**PJ**PJ***)PEUUUUZ%PUUUUUJUPUUUUUIUPUUUUUEUPUUUUUUUPUUUUUUUPUUUUUUUPUUUUUUUPUUUUUUUP'); colorMap:((OrderedCollection new add:(Color white); add:(Color black); add:(Color red:0.0 green:49.9962 blue:0.0); add:(Color red:100.0 green:0.0 blue:0.0); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@F@@@G@@@G ???0???8???<???<???8???0@@G @@G@@@F@@@@@@@@@@@@@@@@@@@@@'); yourself); yourself]!
753 9c837d99f109 intitial checkin tz parents: diff changeset	587
778 251895a3f266 new icon method format applied tz parents: 776 diff changeset	588	saveIcon
251895a3f266 new icon method format applied tz parents: 776 diff changeset	589	"Generated by the Image Editor"
251895a3f266 new icon method format applied tz parents: 776 diff changeset	590	"
251895a3f266 new icon method format applied tz parents: 776 diff changeset	591	ImageEditor openOnClass:self andSelector:#saveIcon
251895a3f266 new icon method format applied tz parents: 776 diff changeset	592	"
753 9c837d99f109 intitial checkin tz parents: diff changeset	593
9c837d99f109 intitial checkin tz parents: diff changeset	594	<resource: #image>
778 251895a3f266 new icon method format applied tz parents: 776 diff changeset	595
251895a3f266 new icon method format applied tz parents: 776 diff changeset	596	^Icon
251895a3f266 new icon method format applied tz parents: 776 diff changeset	597	constantNamed:#'ToolApplicationModel saveIcon'
779 fef14d43d5e1 "self halt" forgotten tz parents: 778 diff changeset	598	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'AL3L3L@PM3L3L0?PML3L3L=PM3L3L0=PML3L3L?PM3L3L0?PML3L3L?PM3L3L0?PML3L3L?PM3L3L0?PML3L3L?PM@@@@@?PO??????PO??????PO??????PO=UUUU?PO=???[?PO=5O?Z?PO=6O?Z?PO=6O?Z?PO=0O?Z?P5U***U5P'); colorMap:(((Array new:4) at:1 put:((Color white)); at:2 put:((Color black)); at:3 put:((Color grey:49.9962)); at:4 put:((Color grey:66.9978)); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???8'); yourself); yourself]
778 251895a3f266 new icon method format applied tz parents: 776 diff changeset	599	!
753 9c837d99f109 intitial checkin tz parents: diff changeset	600
778 251895a3f266 new icon method format applied tz parents: 776 diff changeset	601	searchIcon
251895a3f266 new icon method format applied tz parents: 776 diff changeset	602	"Generated by the Image Editor"
251895a3f266 new icon method format applied tz parents: 776 diff changeset	603	"
251895a3f266 new icon method format applied tz parents: 776 diff changeset	604	ImageEditor openOnClass:self andSelector:#searchIcon
251895a3f266 new icon method format applied tz parents: 776 diff changeset	605	"
753 9c837d99f109 intitial checkin tz parents: diff changeset	606
9c837d99f109 intitial checkin tz parents: diff changeset	607	<resource: #image>
762 2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	608
778 251895a3f266 new icon method format applied tz parents: 776 diff changeset	609	^Icon
251895a3f266 new icon method format applied tz parents: 776 diff changeset	610	constantNamed:#'ToolApplicationModel searchIcon'
251895a3f266 new icon method format applied tz parents: 776 diff changeset	611	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@CV@MZ(@@@@@@@@@CV@MZ(@CV@MZ(@CV@MZ(@CV@MZ(@CV@MZ(@CV@MZ(@CVJMZ(@CV(@AZ(@CV(6!!Z(@CV(@AZ(@CV@MZ(@@@@@@@@@@MZ 5Z@@@@@@@@@@@A(@A(@@@@@@@@@@@M@M*@@@@@@@@@@'); colorMap:((OrderedCollection new add:(Color black); add:(Color grey:74.5083); add:(Color grey:49.9962); add:(Color white); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@_<?8_<?8_<?8_<?8_<?8_<?8_<?8_<?8_??8_??8_??8_??8_??8_??8_??8G?? G?? C8_@C8_@G<? G<? '); yourself); yourself]!
762 2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	612
782 5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	613	startIcon
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	614	"Generated by the Image Editor"
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	615	"
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	616	ImageEditor openOnClass:self andSelector:#startIcon
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	617	"
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	618
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	619	<resource: #image>
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	620
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	621	^Icon
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	622	constantNamed:#'ToolApplicationModel startIcon'
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	623	ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@N8@@@@@@@@@@@@N<^@@@@@@@@@@@@;.;.;.;.@@@@@@C/G @@@@8^@@@@@N<^@@@@@A@@@@@@;18@@@@@D@@@@@C.;.;.; @P@@@@@N<^@@@@@@@@@@@@;18@@@C!!G.@@@@C/G @@@@G>@@@@@N;.;.; @_8@@@@@;18@@@@A? @@@@C/G @@@@G>@@@@@N<^@@@@@_8@@@@@;.;.;.@A? @@@@C/G @@@@G>@@@@@N<^@@@@@_8@@@@@;18@@@@@@@@@@@C.; @@@@DQ@@@@C ; 8@@@A&X@@@C 8@8N@@@"H"@@@b'); colorMap:((OrderedCollection new add:(Color black); add:(Color white); add:(Color red:100.0 green:0.0 blue:0.0); add:(Color red:0.0 green:100.0 blue:0.0); add:(Color red:0.0 green:0.0 blue:100.0); add:(Color red:0.0 green:100.0 blue:100.0); add:(Color red:100.0 green:100.0 blue:0.0); add:(Color red:100.0 green:0.0 blue:100.0); add:(Color red:49.9962 green:0.0 blue:0.0); add:(Color red:0.0 green:49.9962 blue:0.0); add:(Color red:0.0 green:0.0 blue:49.9962); add:(Color red:0.0 green:49.9962 blue:49.9962); add:(Color red:49.9962 green:49.9962 blue:0.0); add:(Color red:49.9962 green:0.0 blue:49.9962); add:(Color grey:49.9962); add:(Color grey:66.9978); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@C@D@G D@G?<@G N@G N@G N@G?.@G N@G _@G _@G?_@G _@G _@G _@G?_@G ? G!!?0G!!?0G!!.PKQNPT(_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a'); yourself); yourself]
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	624	!
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	625
778 251895a3f266 new icon method format applied tz parents: 776 diff changeset	626	stxIcon
251895a3f266 new icon method format applied tz parents: 776 diff changeset	627	"Generated by the Image Editor"
251895a3f266 new icon method format applied tz parents: 776 diff changeset	628	"
251895a3f266 new icon method format applied tz parents: 776 diff changeset	629	ImageEditor openOnClass:self andSelector:#stxIcon
251895a3f266 new icon method format applied tz parents: 776 diff changeset	630	"
772 6164c303afde enlarged (for cg) and redesigned (for all) icons tz parents: 769 diff changeset	631
6164c303afde enlarged (for cg) and redesigned (for all) icons tz parents: 769 diff changeset	632	<resource: #image>
753 9c837d99f109 intitial checkin tz parents: diff changeset	633
778 251895a3f266 new icon method format applied tz parents: 776 diff changeset	634	^Icon
251895a3f266 new icon method format applied tz parents: 776 diff changeset	635	constantNamed:#'ToolApplicationModel stxIcon'
251895a3f266 new icon method format applied tz parents: 776 diff changeset	636	ifAbsentPut:[(Depth2Image new) width: 19; height: 19; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@L@@@@@@@@@@@@@@@T@@D@@AP@APP@AP@@@@@E@E@@@@EA@@@@@TT@C@@@U@@@@@AP@@@@@U@@@@@EA@@L@APA@@@@T@D@@@U@@@@@AT@@D@0@@@@@A@@@@@@@b'); colorMap:((OrderedCollection new add:(Color grey:9.41024); add:(Color red:0.0 green:80.7828 blue:18.8205); add:(Color black); add:(Color white); yourself)); yourself]!
753 9c837d99f109 intitial checkin tz parents: diff changeset	637
9c837d99f109 intitial checkin tz parents: diff changeset	638	upIcon
778 251895a3f266 new icon method format applied tz parents: 776 diff changeset	639	"Generated by the Image Editor"
251895a3f266 new icon method format applied tz parents: 776 diff changeset	640	"
251895a3f266 new icon method format applied tz parents: 776 diff changeset	641	ImageEditor openOnClass:self andSelector:#upIcon
251895a3f266 new icon method format applied tz parents: 776 diff changeset	642	"
753 9c837d99f109 intitial checkin tz parents: diff changeset	643
9c837d99f109 intitial checkin tz parents: diff changeset	644	<resource: #image>
778 251895a3f266 new icon method format applied tz parents: 776 diff changeset	645
251895a3f266 new icon method format applied tz parents: 776 diff changeset	646	^Icon
251895a3f266 new icon method format applied tz parents: 776 diff changeset	647	constantNamed:#'ToolApplicationModel upIcon'
251895a3f266 new icon method format applied tz parents: 776 diff changeset	648	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'UUUQUUUPUUUJUUUPUUT%UUPUUR)UUPUUJUUPUT%UPUTV%UUPUUT%UUPUUT%UUPUUT%UUPUUT%UUPUUT%UUPUUT%UUPUUT%UUPUUT%UUPUUT%UUPUUT%UUPUUT%UUPUUT%UUPUUT%UUPUUT%UUPUUTUUUUP'); colorMap:((OrderedCollection new add:(Color white); add:(Color black); add:(Color red:0.0 green:49.9962 blue:0.0); add:(Color red:100.0 green:0.0 blue:0.0); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@C@@@G @@O0@@_8@@?<@A?>@A?>@@O0@@O0@@O0@@O0@@O0@@O0@@O0@@O0@@O0@@O0@@O0@@O0@@O0@@O0@@O0@'); yourself); yourself]!
753 9c837d99f109 intitial checkin tz parents: diff changeset	649
9c837d99f109 intitial checkin tz parents: diff changeset	650	upRightIcon
778 251895a3f266 new icon method format applied tz parents: 776 diff changeset	651	"Generated by the Image Editor"
251895a3f266 new icon method format applied tz parents: 776 diff changeset	652	"
251895a3f266 new icon method format applied tz parents: 776 diff changeset	653	ImageEditor openOnClass:self andSelector:#upRightIcon
251895a3f266 new icon method format applied tz parents: 776 diff changeset	654	"
753 9c837d99f109 intitial checkin tz parents: diff changeset	655
9c837d99f109 intitial checkin tz parents: diff changeset	656	<resource: #image>
778 251895a3f266 new icon method format applied tz parents: 776 diff changeset	657
251895a3f266 new icon method format applied tz parents: 776 diff changeset	658	^Icon
251895a3f266 new icon method format applied tz parents: 776 diff changeset	659	constantNamed:#'ToolApplicationModel upRightIcon'
251895a3f266 new icon method format applied tz parents: 776 diff changeset	660	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'UUUUTUUPUUUUT%UPUUUUT)UPP@@@@UPR**%PR*)PR*)PR**%PRUUUUPRUUT)UPRUUT%UPRUUTUUPRUUUUUPRUUUUUPRUUUUUPRUUUUUPRUUUUUPRUUUUUPRUUUUUPRUUUUUPQUUUUUUPUUUUUUUP'); colorMap:((OrderedCollection new add:(Color white); add:(Color black); add:(Color red:0.0 green:49.9962 blue:0.0); add:(Color red:100.0 green:0.0 blue:0.0); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@L@@@N@@@O@_?? _??0_??8_??8_??0_?? _ O@_ N@_ L@_ @@_ @@_ @@_ @@_ @@_ @@_ @@_ @@_ @@@@@@'); yourself); yourself]! !
753 9c837d99f109 intitial checkin tz parents: diff changeset	661
782 5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	662	!ToolApplicationModel class methodsFor:'startup / release'!
753 9c837d99f109 intitial checkin tz parents: diff changeset	663
782 5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	664	preSnapshot
753 9c837d99f109 intitial checkin tz parents: diff changeset	665
782 5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	666	clipboard := nil
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	667
753 9c837d99f109 intitial checkin tz parents: diff changeset	668	!
9c837d99f109 intitial checkin tz parents: diff changeset	669
782 5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	670	uninitialize
760 26cf45040420 #preferredExtent cleaned tz parents: 758 diff changeset	671
782 5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	672	showHelp := history := clipboard := nil
753 9c837d99f109 intitial checkin tz parents: diff changeset	673	! !
9c837d99f109 intitial checkin tz parents: diff changeset	674
782 5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	675	!ToolApplicationModel methodsFor:'aspects'!
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	676
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	677	valueOfEnablingCommitButtons
753 9c837d99f109 intitial checkin tz parents: diff changeset	678
782 5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	679	\|holder\|
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	680	(holder := builder bindingAt:#valueOfEnablingCommitButtons) isNil ifTrue:[
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	681	builder aspectAt:#valueOfEnablingCommitButtons put:(holder := false asValue).
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	682	].
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	683	^ holder
753 9c837d99f109 intitial checkin tz parents: diff changeset	684
782 5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	685	!
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	686
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	687	valueOfHavingClipboard
753 9c837d99f109 intitial checkin tz parents: diff changeset	688
782 5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	689	\|holder\|
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	690	(holder := builder bindingAt:#valueOfHavingClipboard) isNil ifTrue:[
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	691	builder aspectAt:#valueOfHavingClipboard put:(holder := self class clipboard notNil asValue).
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	692	].
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	693	^ holder
753 9c837d99f109 intitial checkin tz parents: diff changeset	694
782 5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	695	!
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	696
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	697	valueOfInfoLabel
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	698
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	699	\|holder\|
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	700	(holder := builder bindingAt:#valueOfInfoLabel) isNil ifTrue:[
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	701	builder aspectAt:#valueOfInfoLabel put:(holder := ValueHolder new).
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	702	].
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	703	^ holder
753 9c837d99f109 intitial checkin tz parents: diff changeset	704
782 5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	705	!
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	706
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	707	valueOfTimeLabel
753 9c837d99f109 intitial checkin tz parents: diff changeset	708
782 5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	709	\|holder\|
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	710	(holder := builder bindingAt:#valueOfTimeLabel) isNil ifTrue:[
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	711	builder aspectAt:#valueOfTimeLabel put:(holder := ValueHolder new).
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	712	].
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	713	^ holder
753 9c837d99f109 intitial checkin tz parents: diff changeset	714
9c837d99f109 intitial checkin tz parents: diff changeset	715	! !
9c837d99f109 intitial checkin tz parents: diff changeset	716
782 5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	717	!ToolApplicationModel methodsFor:'clipboard'!
753 9c837d99f109 intitial checkin tz parents: diff changeset	718
782 5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	719	clipboard: anEditObject
753 9c837d99f109 intitial checkin tz parents: diff changeset	720
782 5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	721	self class clipboard: anEditObject.
753 9c837d99f109 intitial checkin tz parents: diff changeset	722
782 5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	723	self valueOfHavingClipboard value: anEditObject notNil
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	724	! !
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	725
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	726	!ToolApplicationModel methodsFor:'help'!
753 9c837d99f109 intitial checkin tz parents: diff changeset	727
762 2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	728	defaultInfoLabel
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	729
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	730	^''
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	731	!
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	732
753 9c837d99f109 intitial checkin tz parents: diff changeset	733	openAbout
9c837d99f109 intitial checkin tz parents: diff changeset	734	"show an about box"
9c837d99f109 intitial checkin tz parents: diff changeset	735
9c837d99f109 intitial checkin tz parents: diff changeset	736	\|box\|
9c837d99f109 intitial checkin tz parents: diff changeset	737
9c837d99f109 intitial checkin tz parents: diff changeset	738	box := AboutBox new.
9c837d99f109 intitial checkin tz parents: diff changeset	739	box autoHideAfter:10 with:[].
9c837d99f109 intitial checkin tz parents: diff changeset	740	box showAtCenter
9c837d99f109 intitial checkin tz parents: diff changeset	741
9c837d99f109 intitial checkin tz parents: diff changeset	742	!
9c837d99f109 intitial checkin tz parents: diff changeset	743
9c837d99f109 intitial checkin tz parents: diff changeset	744	openAboutThisApplication
9c837d99f109 intitial checkin tz parents: diff changeset	745	"show an about this application box"
9c837d99f109 intitial checkin tz parents: diff changeset	746
9c837d99f109 intitial checkin tz parents: diff changeset	747	\|rev box\|
9c837d99f109 intitial checkin tz parents: diff changeset	748	rev := ''.
9c837d99f109 intitial checkin tz parents: diff changeset	749	self class revision notNil ifTrue: [rev := ' (rev: ', self class revision printString, ')'].
9c837d99f109 intitial checkin tz parents: diff changeset	750	box := AboutBox title:
9c837d99f109 intitial checkin tz parents: diff changeset	751	'\The application\\' withCRs,
9c837d99f109 intitial checkin tz parents: diff changeset	752	(Text string: self class label emphasis: #bold), rev,
9c837d99f109 intitial checkin tz parents: diff changeset	753	'\\has been designed and implemented by \' withCRs,self class author,', eXept Software AG, Germany. \\' withCRs.
9c837d99f109 intitial checkin tz parents: diff changeset	754
9c837d99f109 intitial checkin tz parents: diff changeset	755	box label:'About This Application'.
9c837d99f109 intitial checkin tz parents: diff changeset	756	box autoHideAfter:10 with:[].
9c837d99f109 intitial checkin tz parents: diff changeset	757	box showAtCenter.
9c837d99f109 intitial checkin tz parents: diff changeset	758	!
9c837d99f109 intitial checkin tz parents: diff changeset	759
9c837d99f109 intitial checkin tz parents: diff changeset	760	openClassDocumentation
9c837d99f109 intitial checkin tz parents: diff changeset	761
9c837d99f109 intitial checkin tz parents: diff changeset	762	Autoload autoloadFailedSignal handle:[:ex \|
9c837d99f109 intitial checkin tz parents: diff changeset	763	self warn:'autoload failed.
9c837d99f109 intitial checkin tz parents: diff changeset	764
9c837d99f109 intitial checkin tz parents: diff changeset	765	Check your source directory and/or
9c837d99f109 intitial checkin tz parents: diff changeset	766	the abbreviation file for the classes (correct) shortened name.'.
9c837d99f109 intitial checkin tz parents: diff changeset	767	ex return.
9c837d99f109 intitial checkin tz parents: diff changeset	768	] do:[
9c837d99f109 intitial checkin tz parents: diff changeset	769	\|text v\|
9c837d99f109 intitial checkin tz parents: diff changeset	770
9c837d99f109 intitial checkin tz parents: diff changeset	771	text := self class htmlDocumentation.
9c837d99f109 intitial checkin tz parents: diff changeset	772	text notNil ifTrue:[
9c837d99f109 intitial checkin tz parents: diff changeset	773	v := HTMLDocumentView
9c837d99f109 intitial checkin tz parents: diff changeset	774	openFullOnText:text
9c837d99f109 intitial checkin tz parents: diff changeset	775	inDirectory:(Smalltalk getSystemFileName:'doc/online/english/classDoc').
9c837d99f109 intitial checkin tz parents: diff changeset	776	v nameSpaceForExecution: self class nameSpace.
9c837d99f109 intitial checkin tz parents: diff changeset	777	]
9c837d99f109 intitial checkin tz parents: diff changeset	778	]
9c837d99f109 intitial checkin tz parents: diff changeset	779
9c837d99f109 intitial checkin tz parents: diff changeset	780
9c837d99f109 intitial checkin tz parents: diff changeset	781	!
9c837d99f109 intitial checkin tz parents: diff changeset	782
9c837d99f109 intitial checkin tz parents: diff changeset	783	openProgrammersGuide
9c837d99f109 intitial checkin tz parents: diff changeset	784
9c837d99f109 intitial checkin tz parents: diff changeset	785	\|dir\|
9c837d99f109 intitial checkin tz parents: diff changeset	786	((dir := Smalltalk getSystemFileName: 'doc/online/english/programming/TOP.html') asFilename exists)
9c837d99f109 intitial checkin tz parents: diff changeset	787	ifTrue:
9c837d99f109 intitial checkin tz parents: diff changeset	788	[
9c837d99f109 intitial checkin tz parents: diff changeset	789	^HTMLDocumentView openFullOnFile: dir
9c837d99f109 intitial checkin tz parents: diff changeset	790	]
9c837d99f109 intitial checkin tz parents: diff changeset	791	!
9c837d99f109 intitial checkin tz parents: diff changeset	792
9c837d99f109 intitial checkin tz parents: diff changeset	793	openTutorial
9c837d99f109 intitial checkin tz parents: diff changeset	794
9c837d99f109 intitial checkin tz parents: diff changeset	795	\|dir\|
9c837d99f109 intitial checkin tz parents: diff changeset	796	((dir := Smalltalk getSystemFileName: 'doc/online/english/getstart/tutorial.html') asFilename exists)
9c837d99f109 intitial checkin tz parents: diff changeset	797	ifTrue:
9c837d99f109 intitial checkin tz parents: diff changeset	798	[
9c837d99f109 intitial checkin tz parents: diff changeset	799	^HTMLDocumentView openFullOnFile: dir
9c837d99f109 intitial checkin tz parents: diff changeset	800	]
762 2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	801	!
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	802
782 5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	803	showHelp
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	804	"Answer whether showing help is turned on/off"
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	805
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	806	^self class showHelp
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	807	!
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	808
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	809	showHelp: aValue
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	810	"toggle showing help"
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	811
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	812	(self class showHelp: aValue)
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	813	ifTrue: [ActiveHelp startFor: self]
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	814	ifFalse: [ActiveHelp stopFor: self. self valueOfInfoLabel value: self defaultInfoLabel]
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	815	!
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	816
762 2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	817	showHelp:aHelpText for:view
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	818	"display aHelpText in the info label or if present detour to masterApplication."
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	819
782 5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	820	self showHelp ifFalse: [^true].
762 2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	821	self masterApplication notNil
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	822	ifTrue:
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	823	[
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	824	^masterApplication showHelp: aHelpText for:view
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	825	]
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	826	ifFalse:
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	827	[
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	828	aHelpText isNil
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	829	ifTrue: [self valueOfInfoLabel value: self defaultInfoLabel]
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	830	ifFalse: [self valueOfInfoLabel value: (aHelpText asString printString upTo: Character cr)].
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	831
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	832	^true
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	833	]
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	834	! !
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	835
753 9c837d99f109 intitial checkin tz parents: diff changeset	836	!ToolApplicationModel methodsFor:'history'!
9c837d99f109 intitial checkin tz parents: diff changeset	837
9c837d99f109 intitial checkin tz parents: diff changeset	838	addToHistory: aHistoryEntry
9c837d99f109 intitial checkin tz parents: diff changeset	839
782 5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	840	aHistoryEntry key size = 0 ifTrue: [^nil].
753 9c837d99f109 intitial checkin tz parents: diff changeset	841	self history remove: (self history detect: [:histEntry\| histEntry key = aHistoryEntry key] ifNone: nil) ifAbsent: nil.
9c837d99f109 intitial checkin tz parents: diff changeset	842	self history addFirst: aHistoryEntry.
9c837d99f109 intitial checkin tz parents: diff changeset	843	[self history size > self class historyMaxSize] whileTrue: [self history removeLast]
9c837d99f109 intitial checkin tz parents: diff changeset	844	!
9c837d99f109 intitial checkin tz parents: diff changeset	845
9c837d99f109 intitial checkin tz parents: diff changeset	846	emptyHistory
9c837d99f109 intitial checkin tz parents: diff changeset	847
9c837d99f109 intitial checkin tz parents: diff changeset	848	^self history removeAll
9c837d99f109 intitial checkin tz parents: diff changeset	849	!
9c837d99f109 intitial checkin tz parents: diff changeset	850
9c837d99f109 intitial checkin tz parents: diff changeset	851	history
9c837d99f109 intitial checkin tz parents: diff changeset	852
9c837d99f109 intitial checkin tz parents: diff changeset	853	^self class getHistory
9c837d99f109 intitial checkin tz parents: diff changeset	854	!
9c837d99f109 intitial checkin tz parents: diff changeset	855
9c837d99f109 intitial checkin tz parents: diff changeset	856	menuHistory
9c837d99f109 intitial checkin tz parents: diff changeset	857
9c837d99f109 intitial checkin tz parents: diff changeset	858	\|menu a\|
9c837d99f109 intitial checkin tz parents: diff changeset	859	menu := Menu new receiver: self.
9c837d99f109 intitial checkin tz parents: diff changeset	860	(self history collect: [:histEntry\| histEntry value]) asSet asOrderedCollection do:
9c837d99f109 intitial checkin tz parents: diff changeset	861	[:historyEntryType\|
9c837d99f109 intitial checkin tz parents: diff changeset	862	menu addItemGroup: ((a := self history select: [:histEntry\| histEntry value = historyEntryType]) collect: [:histEntry\| MenuItem new label: histEntry key printString; value: histEntry value; argument: histEntry key]).
9c837d99f109 intitial checkin tz parents: diff changeset	863	].
9c837d99f109 intitial checkin tz parents: diff changeset	864	menu addItem: (MenuItem new label: 'Empty History'; value: #emptyHistory).
9c837d99f109 intitial checkin tz parents: diff changeset	865
9c837d99f109 intitial checkin tz parents: diff changeset	866	^menu
9c837d99f109 intitial checkin tz parents: diff changeset	867	!
9c837d99f109 intitial checkin tz parents: diff changeset	868
9c837d99f109 intitial checkin tz parents: diff changeset	869	removeFromHistory: aHistoryEntry
9c837d99f109 intitial checkin tz parents: diff changeset	870
9c837d99f109 intitial checkin tz parents: diff changeset	871	self history remove: (self history detect: [:histEntry\| histEntry key = aHistoryEntry key] ifNone: nil) ifAbsent: nil.
9c837d99f109 intitial checkin tz parents: diff changeset	872	[self history size > self class historyMaxSize] whileTrue: [self history removeLast]
9c837d99f109 intitial checkin tz parents: diff changeset	873	! !
9c837d99f109 intitial checkin tz parents: diff changeset	874
782 5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	875	!ToolApplicationModel methodsFor:'queries'!
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	876
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	877	preferredExtent
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	878	"preferred extent of my window; top/main menu and top toolbar (named by 'menuToolbarView')
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	879	will be considered"
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	880
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	881	\|window menu menuToolbarView preferredExtentOfWindow\|
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	882
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	883	window := self builder window.
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	884	menu := window subViews first.
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	885	menuToolbarView := builder componentAt: #menuToolbarView.
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	886
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	887	preferredExtentOfWindow := window extent.
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	888	menu class = MenuPanel ifTrue: [preferredExtentOfWindow := preferredExtentOfWindow max: menu preferredExtent].
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	889	menuToolbarView notNil ifTrue: [preferredExtentOfWindow := preferredExtentOfWindow max: menuToolbarView preferredExtent].
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	890
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	891	^window minExtent max: (preferredExtentOfWindow min: window maxExtent)
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	892	! !
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	893
753 9c837d99f109 intitial checkin tz parents: diff changeset	894	!ToolApplicationModel methodsFor:'startup / release'!
9c837d99f109 intitial checkin tz parents: diff changeset	895
9c837d99f109 intitial checkin tz parents: diff changeset	896	close
9c837d99f109 intitial checkin tz parents: diff changeset	897
756 4dba5a8797ec * empty log message * tz parents: 753 diff changeset	898	self uninitialize.
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	899
753 9c837d99f109 intitial checkin tz parents: diff changeset	900	super close
9c837d99f109 intitial checkin tz parents: diff changeset	901	!
9c837d99f109 intitial checkin tz parents: diff changeset	902
9c837d99f109 intitial checkin tz parents: diff changeset	903	closeRequest
9c837d99f109 intitial checkin tz parents: diff changeset	904
756 4dba5a8797ec * empty log message * tz parents: 753 diff changeset	905	self uninitialize.
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	906
753 9c837d99f109 intitial checkin tz parents: diff changeset	907	super closeRequest
9c837d99f109 intitial checkin tz parents: diff changeset	908	!
9c837d99f109 intitial checkin tz parents: diff changeset	909
9c837d99f109 intitial checkin tz parents: diff changeset	910	initialize
9c837d99f109 intitial checkin tz parents: diff changeset	911
782 5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	912	super initialize.
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	913
753 9c837d99f109 intitial checkin tz parents: diff changeset	914	timeBlock := nil.
9c837d99f109 intitial checkin tz parents: diff changeset	915	timeBlock := [self showTime].
9c837d99f109 intitial checkin tz parents: diff changeset	916	self showTime
9c837d99f109 intitial checkin tz parents: diff changeset	917	!
9c837d99f109 intitial checkin tz parents: diff changeset	918
9c837d99f109 intitial checkin tz parents: diff changeset	919	open
9c837d99f109 intitial checkin tz parents: diff changeset	920
9c837d99f109 intitial checkin tz parents: diff changeset	921	super open.
756 4dba5a8797ec * empty log message * tz parents: 753 diff changeset	922
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	923	self class allInstances size = 1
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	924	ifTrue:
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	925	[
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	926	self class classResources: nil.
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	927	self clipboard: nil
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	928	].
753 9c837d99f109 intitial checkin tz parents: diff changeset	929	builder window label: self class label
9c837d99f109 intitial checkin tz parents: diff changeset	930
9c837d99f109 intitial checkin tz parents: diff changeset	931	!
9c837d99f109 intitial checkin tz parents: diff changeset	932
9c837d99f109 intitial checkin tz parents: diff changeset	933	openInterface
9c837d99f109 intitial checkin tz parents: diff changeset	934
9c837d99f109 intitial checkin tz parents: diff changeset	935	super openInterface.
9c837d99f109 intitial checkin tz parents: diff changeset	936
782 5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	937	self showHelp: self showHelp.
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	938	self valueOfInfoLabel value: self defaultInfoLabel.
753 9c837d99f109 intitial checkin tz parents: diff changeset	939	self builder window extent: self preferredExtent
9c837d99f109 intitial checkin tz parents: diff changeset	940	!
9c837d99f109 intitial checkin tz parents: diff changeset	941
9c837d99f109 intitial checkin tz parents: diff changeset	942	reOpen
9c837d99f109 intitial checkin tz parents: diff changeset	943
9c837d99f109 intitial checkin tz parents: diff changeset	944	self close.
9c837d99f109 intitial checkin tz parents: diff changeset	945
9c837d99f109 intitial checkin tz parents: diff changeset	946	self class open
9c837d99f109 intitial checkin tz parents: diff changeset	947	!
9c837d99f109 intitial checkin tz parents: diff changeset	948
760 26cf45040420 #preferredExtent cleaned tz parents: 758 diff changeset	949	removeAllTemporalViews
26cf45040420 #preferredExtent cleaned tz parents: 758 diff changeset	950
26cf45040420 #preferredExtent cleaned tz parents: 758 diff changeset	951	self builder namedComponents keys copy do:
26cf45040420 #preferredExtent cleaned tz parents: 758 diff changeset	952	[:comp\|
26cf45040420 #preferredExtent cleaned tz parents: 758 diff changeset	953	(comp includesString: '_Temporal') ifTrue: [self builder namedComponents removeKey: comp]
26cf45040420 #preferredExtent cleaned tz parents: 758 diff changeset	954	]
26cf45040420 #preferredExtent cleaned tz parents: 758 diff changeset	955	!
26cf45040420 #preferredExtent cleaned tz parents: 758 diff changeset	956
753 9c837d99f109 intitial checkin tz parents: diff changeset	957	restarted
9c837d99f109 intitial checkin tz parents: diff changeset	958
9c837d99f109 intitial checkin tz parents: diff changeset	959	self initialize
756 4dba5a8797ec * empty log message * tz parents: 753 diff changeset	960	!
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	961
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	962	uninitialize
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	963
782 5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	964	self showHelp ifTrue: [ActiveHelp stopFor: self].
756 4dba5a8797ec * empty log message * tz parents: 753 diff changeset	965	Processor removeTimedBlock:timeBlock.
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	966	timeBlock := nil.
753 9c837d99f109 intitial checkin tz parents: diff changeset	967	! !
9c837d99f109 intitial checkin tz parents: diff changeset	968
9c837d99f109 intitial checkin tz parents: diff changeset	969	!ToolApplicationModel methodsFor:'window events'!
9c837d99f109 intitial checkin tz parents: diff changeset	970
9c837d99f109 intitial checkin tz parents: diff changeset	971	showTime
9c837d99f109 intitial checkin tz parents: diff changeset	972
9c837d99f109 intitial checkin tz parents: diff changeset	973	\|hours minutes suffix\|
9c837d99f109 intitial checkin tz parents: diff changeset	974	suffix := ' am '.
9c837d99f109 intitial checkin tz parents: diff changeset	975	(hours := Time now hours) > 12 ifTrue: [hours := hours - 12].
9c837d99f109 intitial checkin tz parents: diff changeset	976	Time now hours >= 12 ifTrue: [suffix := ' pm '].
9c837d99f109 intitial checkin tz parents: diff changeset	977	(minutes := Time now minutes printString) size = 1 ifTrue: [minutes := '0', minutes printString].
9c837d99f109 intitial checkin tz parents: diff changeset	978	self valueOfTimeLabel value: hours printString, ':', minutes, suffix.
9c837d99f109 intitial checkin tz parents: diff changeset	979	Processor addTimedBlock: timeBlock afterSeconds: 1
9c837d99f109 intitial checkin tz parents: diff changeset	980
9c837d99f109 intitial checkin tz parents: diff changeset	981	! !
9c837d99f109 intitial checkin tz parents: diff changeset	982
9c837d99f109 intitial checkin tz parents: diff changeset	983	!ToolApplicationModel class methodsFor:'documentation'!
9c837d99f109 intitial checkin tz parents: diff changeset	984
9c837d99f109 intitial checkin tz parents: diff changeset	985	version
782 5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	986	^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.19 1998-01-28 13:56:34 tz Exp $'
753 9c837d99f109 intitial checkin tz parents: diff changeset	987	! !

author	tz
	Wed, 28 Jan 1998 14:56:34 +0100
changeset 782	5b8c4cf62cb5
parent 779	fef14d43d5e1
child 783	4e1545900244
permissions	-rw-r--r--