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

756 4dba5a8797ec * empty log message * tz parents: 753 diff changeset	1	"
784 b08b05900f30 copyright changed tz parents: 783 diff changeset	2	COPYRIGHT (c) 1997 by eXept Software AG
756 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:''
834 ac1655bd31bb class category changed tz parents: 833 diff changeset	19	category:'Interface-Framework'
753 9c837d99f109 intitial checkin tz parents: diff changeset	20	!
9c837d99f109 intitial checkin tz parents: diff changeset	21
850 cdf5ecf904e2 some obselete icons removed tz parents: 846 diff changeset	22	ToolApplicationModel class instanceVariableNames:'history clipboard settings 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	"
784 b08b05900f30 copyright changed tz parents: 783 diff changeset	37	COPYRIGHT (c) 1997 by eXept Software AG
756 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	"
869 b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	53	Framework class for tool applications.
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	54	Provides hooks for history management,
782 5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	55	showing help texts, about menu, help menu etc.
753 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	"
9c837d99f109 intitial checkin tz parents: diff changeset	60	! !
9c837d99f109 intitial checkin tz parents: diff changeset	61
9c837d99f109 intitial checkin tz parents: diff changeset	62	!ToolApplicationModel class methodsFor:'accessing'!
9c837d99f109 intitial checkin tz parents: diff changeset	63
800 b98050cf7a43 better author extraction. Claus Gittinger <cg@exept.de> parents: 799 diff changeset	64	authorLinesForAboutBox
b98050cf7a43 better author extraction. Claus Gittinger <cg@exept.de> parents: 799 diff changeset	65	"extract the author(s) from the documentation method."
b98050cf7a43 better author extraction. Claus Gittinger <cg@exept.de> parents: 799 diff changeset	66
b98050cf7a43 better author extraction. Claus Gittinger <cg@exept.de> parents: 799 diff changeset	67	\|firstClassWithDocumentation src s line lines\|
753 9c837d99f109 intitial checkin tz parents: diff changeset	68
800 b98050cf7a43 better author extraction. Claus Gittinger <cg@exept.de> parents: 799 diff changeset	69	firstClassWithDocumentation := self class withAllSuperclasses detect:[:metacls\| metacls implements:#documentation].
b98050cf7a43 better author extraction. Claus Gittinger <cg@exept.de> parents: 799 diff changeset	70	firstClassWithDocumentation notNil ifTrue:[
b98050cf7a43 better author extraction. Claus Gittinger <cg@exept.de> parents: 799 diff changeset	71	(firstClassWithDocumentation inheritsFrom:ToolApplicationModel class) ifTrue:[
b98050cf7a43 better author extraction. Claus Gittinger <cg@exept.de> parents: 799 diff changeset	72	src := (firstClassWithDocumentation compiledMethodAt:#documentation) source.
b98050cf7a43 better author extraction. Claus Gittinger <cg@exept.de> parents: 799 diff changeset	73	src notNil ifTrue:[
b98050cf7a43 better author extraction. Claus Gittinger <cg@exept.de> parents: 799 diff changeset	74	s := src readStream.
b98050cf7a43 better author extraction. Claus Gittinger <cg@exept.de> parents: 799 diff changeset	75	s upToAll:'[author:]'.
b98050cf7a43 better author extraction. Claus Gittinger <cg@exept.de> parents: 799 diff changeset	76	s nextLine. "/ skip to end
b98050cf7a43 better author extraction. Claus Gittinger <cg@exept.de> parents: 799 diff changeset	77	line := s nextLine. "/ line after [author:]
b98050cf7a43 better author extraction. Claus Gittinger <cg@exept.de> parents: 799 diff changeset	78	lines := OrderedCollection new.
b98050cf7a43 better author extraction. Claus Gittinger <cg@exept.de> parents: 799 diff changeset	79	[line notNil and:[line notEmpty]] whileTrue:[
b98050cf7a43 better author extraction. Claus Gittinger <cg@exept.de> parents: 799 diff changeset	80	line := line trimBlanks.
b98050cf7a43 better author extraction. Claus Gittinger <cg@exept.de> parents: 799 diff changeset	81	line size > 1 ifTrue:[
b98050cf7a43 better author extraction. Claus Gittinger <cg@exept.de> parents: 799 diff changeset	82	lines add:line trimBlanks.
b98050cf7a43 better author extraction. Claus Gittinger <cg@exept.de> parents: 799 diff changeset	83	line := s nextLine.
b98050cf7a43 better author extraction. Claus Gittinger <cg@exept.de> parents: 799 diff changeset	84	] ifFalse:[
b98050cf7a43 better author extraction. Claus Gittinger <cg@exept.de> parents: 799 diff changeset	85	line := nil
b98050cf7a43 better author extraction. Claus Gittinger <cg@exept.de> parents: 799 diff changeset	86	]
b98050cf7a43 better author extraction. Claus Gittinger <cg@exept.de> parents: 799 diff changeset	87	].
b98050cf7a43 better author extraction. Claus Gittinger <cg@exept.de> parents: 799 diff changeset	88	^ lines.
b98050cf7a43 better author extraction. Claus Gittinger <cg@exept.de> parents: 799 diff changeset	89	]
b98050cf7a43 better author extraction. Claus Gittinger <cg@exept.de> parents: 799 diff changeset	90	]
b98050cf7a43 better author extraction. Claus Gittinger <cg@exept.de> parents: 799 diff changeset	91	].
b98050cf7a43 better author extraction. Claus Gittinger <cg@exept.de> parents: 799 diff changeset	92	^ #('unnown')
b98050cf7a43 better author extraction. Claus Gittinger <cg@exept.de> parents: 799 diff changeset	93
b98050cf7a43 better author extraction. Claus Gittinger <cg@exept.de> parents: 799 diff changeset	94	"Created: / 1.2.1998 / 15:41:43 / cg"
b98050cf7a43 better author extraction. Claus Gittinger <cg@exept.de> parents: 799 diff changeset	95	"Modified: / 1.2.1998 / 15:59:10 / cg"
753 9c837d99f109 intitial checkin tz parents: diff changeset	96	!
9c837d99f109 intitial checkin tz parents: diff changeset	97
9c837d99f109 intitial checkin tz parents: diff changeset	98	label
9c837d99f109 intitial checkin tz parents: diff changeset	99
9c837d99f109 intitial checkin tz parents: diff changeset	100	\|label\|
9c837d99f109 intitial checkin tz parents: diff changeset	101	label := ''.
9c837d99f109 intitial checkin tz parents: diff changeset	102	self name do:
9c837d99f109 intitial checkin tz parents: diff changeset	103	[:c\|
9c837d99f109 intitial checkin tz parents: diff changeset	104	c isUppercase ifTrue: [label := label, $ ].
9c837d99f109 intitial checkin tz parents: diff changeset	105	label := label, c
9c837d99f109 intitial checkin tz parents: diff changeset	106	].
9c837d99f109 intitial checkin tz parents: diff changeset	107	^label trimBlanks
782 5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	108	!
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	109
850 cdf5ecf904e2 some obselete icons removed tz parents: 846 diff changeset	110	settings
cdf5ecf904e2 some obselete icons removed tz parents: 846 diff changeset	111
cdf5ecf904e2 some obselete icons removed tz parents: 846 diff changeset	112	^settings ? (settings := IdentityDictionary new)
cdf5ecf904e2 some obselete icons removed tz parents: 846 diff changeset	113	!
cdf5ecf904e2 some obselete icons removed tz parents: 846 diff changeset	114
782 5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	115	showHelp
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	116
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	117	^showHelp ? (showHelp := true)
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	118	!
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	119
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	120	showHelp: aBoolean
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	121
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	122	^showHelp := aBoolean
753 9c837d99f109 intitial checkin tz parents: diff changeset	123	! !
9c837d99f109 intitial checkin tz parents: diff changeset	124
756 4dba5a8797ec * empty log message * tz parents: 753 diff changeset	125	!ToolApplicationModel class methodsFor:'clipboard'!
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	126
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	127	clipboard
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	128
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	129	^clipboard
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	130	!
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	131
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	132	clipboard: anEditObject
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	133
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	134	clipboard := anEditObject
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	135	! !
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	136
762 2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	137	!ToolApplicationModel class methodsFor:'help specs'!
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	138
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	139	helpSpec
869 b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	140	"This resource specification was automatically generated
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	141	by the UIHelpTool of ST/X."
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	142
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	143	"Do not manually edit this!! If it is corrupted,
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	144	the UIHelpTool may not be able to read the specification."
762 2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	145
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	146	"
869 b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	147	UIHelpTool openOnClass:ToolApplicationModel
762 2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	148	"
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	149
869 b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	150	<resource: #help>
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	151
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	152	^super helpSpec addPairsFrom:#(
762 2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	153
823 d812eae12888 help texts added tz parents: 822 diff changeset	154	#about
834 ac1655bd31bb class category changed tz parents: 833 diff changeset	155	'About functions.'
823 d812eae12888 help texts added tz parents: 822 diff changeset	156
762 2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	157	#aboutSTX
763 251e824cb638 grammar changes tz parents: 762 diff changeset	158	'Opens an InfoBox about running ST/X.'
762 2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	159
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	160	#aboutThisAppliaction
763 251e824cb638 grammar changes tz parents: 762 diff changeset	161	'Opens an InfoBox about release and author of current application.'
762 2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	162
823 d812eae12888 help texts added tz parents: 822 diff changeset	163	#add
834 ac1655bd31bb class category changed tz parents: 833 diff changeset	164	'Add functions.'
823 d812eae12888 help texts added tz parents: 822 diff changeset	165
d812eae12888 help texts added tz parents: 822 diff changeset	166	#commitCancel
851 08dc6d32f0cd cache format for the image methods modifying the images tz parents: 850 diff changeset	167	'Cancels last edit action.'
823 d812eae12888 help texts added tz parents: 822 diff changeset	168
d812eae12888 help texts added tz parents: 822 diff changeset	169	#commitOK
851 08dc6d32f0cd cache format for the image methods modifying the images tz parents: 850 diff changeset	170	'Accepts last edit action.'
823 d812eae12888 help texts added tz parents: 822 diff changeset	171
d812eae12888 help texts added tz parents: 822 diff changeset	172	#edit
834 ac1655bd31bb class category changed tz parents: 833 diff changeset	173	'Edit functions.'
823 d812eae12888 help texts added tz parents: 822 diff changeset	174
d812eae12888 help texts added tz parents: 822 diff changeset	175	#editCopy
853 19f2d0152fcb time clock only for the launcher tz parents: 851 diff changeset	176	'Copies the selected item(s) to the clipboard.'
762 2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	177
782 5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	178	#editCut
853 19f2d0152fcb time clock only for the launcher tz parents: 851 diff changeset	179	'Cuts the selected item(s) and places it to the clipboard.'
19f2d0152fcb time clock only for the launcher tz parents: 851 diff changeset	180
19f2d0152fcb time clock only for the launcher tz parents: 851 diff changeset	181	#editDelete
19f2d0152fcb time clock only for the launcher tz parents: 851 diff changeset	182	'Deletes the selected item(s).'
782 5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	183
823 d812eae12888 help texts added tz parents: 822 diff changeset	184	#editMoveDown
834 ac1655bd31bb class category changed tz parents: 833 diff changeset	185	'Moves the selected item one step down.'
823 d812eae12888 help texts added tz parents: 822 diff changeset	186
d812eae12888 help texts added tz parents: 822 diff changeset	187	#editMoveIn
834 ac1655bd31bb class category changed tz parents: 833 diff changeset	188	'Moves the selected item into next item as child item.'
823 d812eae12888 help texts added tz parents: 822 diff changeset	189
d812eae12888 help texts added tz parents: 822 diff changeset	190	#editMoveOut
834 ac1655bd31bb class category changed tz parents: 833 diff changeset	191	'Moves the selected item out of parent item.'
823 d812eae12888 help texts added tz parents: 822 diff changeset	192
d812eae12888 help texts added tz parents: 822 diff changeset	193	#editMoveUp
834 ac1655bd31bb class category changed tz parents: 833 diff changeset	194	'Moves the selected item one step up.'
782 5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	195
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	196	#editPaste
834 ac1655bd31bb class category changed tz parents: 833 diff changeset	197	'Pastes the contents of the clipboard.'
782 5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	198
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	199	#editUndo
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	200	'Reverses the last action.'
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	201
823 d812eae12888 help texts added tz parents: 822 diff changeset	202	#file
834 ac1655bd31bb class category changed tz parents: 833 diff changeset	203	'File functions.'
805 d4c4ee3bb474 now, help menu is very rudimentarily tz parents: 804 diff changeset	204
823 d812eae12888 help texts added tz parents: 822 diff changeset	205	#fileBrowseClass
d812eae12888 help texts added tz parents: 822 diff changeset	206	'Opens a System Browser on current class and selector.'
805 d4c4ee3bb474 now, help menu is very rudimentarily tz parents: 804 diff changeset	207
823 d812eae12888 help texts added tz parents: 822 diff changeset	208	#fileDefineClass
d812eae12888 help texts added tz parents: 822 diff changeset	209	'Opens a dialog to define current class.'
805 d4c4ee3bb474 now, help menu is very rudimentarily tz parents: 804 diff changeset	210
d4c4ee3bb474 now, help menu is very rudimentarily tz parents: 804 diff changeset	211	#fileDefineClassAndSelector
d4c4ee3bb474 now, help menu is very rudimentarily tz parents: 804 diff changeset	212	'Opens a dialog to define current class and selector.'
d4c4ee3bb474 now, help menu is very rudimentarily tz parents: 804 diff changeset	213
823 d812eae12888 help texts added tz parents: 822 diff changeset	214	#fileExit
d812eae12888 help texts added tz parents: 822 diff changeset	215	'Exits current application.'
d812eae12888 help texts added tz parents: 822 diff changeset	216
d812eae12888 help texts added tz parents: 822 diff changeset	217	#help
834 ac1655bd31bb class category changed tz parents: 833 diff changeset	218	'Help functions.'
823 d812eae12888 help texts added tz parents: 822 diff changeset	219
d812eae12888 help texts added tz parents: 822 diff changeset	220	#helpShowHelp
d812eae12888 help texts added tz parents: 822 diff changeset	221	'Turns on/off displaying help texts.'
d812eae12888 help texts added tz parents: 822 diff changeset	222
d812eae12888 help texts added tz parents: 822 diff changeset	223	#helpTutorial
846 b03f747c0ad6 some changes for the help menu tz parents: 844 diff changeset	224	'Opens a HTML-Browser on the documentation file of the current application.'
823 d812eae12888 help texts added tz parents: 822 diff changeset	225
d812eae12888 help texts added tz parents: 822 diff changeset	226	#history
834 ac1655bd31bb class category changed tz parents: 833 diff changeset	227	'History functions.'
803 f6ca4eb5da39 help texts for the history added tz parents: 802 diff changeset	228
f6ca4eb5da39 help texts for the history added tz parents: 802 diff changeset	229	#historyEmptyMenu
f6ca4eb5da39 help texts for the history added tz parents: 802 diff changeset	230	'Deletes all items of the history.'
f6ca4eb5da39 help texts for the history added tz parents: 802 diff changeset	231
823 d812eae12888 help texts added tz parents: 822 diff changeset	232	#historyMenuItem
d812eae12888 help texts added tz parents: 822 diff changeset	233	'Evaluates the text of the menu item for loading.'
762 2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	234
823 d812eae12888 help texts added tz parents: 822 diff changeset	235	#test
834 ac1655bd31bb class category changed tz parents: 833 diff changeset	236	'Test functions.'
762 2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	237
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	238	)
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	239	! !
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	240
753 9c837d99f109 intitial checkin tz parents: diff changeset	241	!ToolApplicationModel class methodsFor:'history'!
9c837d99f109 intitial checkin tz parents: diff changeset	242
9c837d99f109 intitial checkin tz parents: diff changeset	243	getHistory
9c837d99f109 intitial checkin tz parents: diff changeset	244
761 cc0404f8aec6 #getHistory changed because here #? doesn't work correctly tz parents: 760 diff changeset	245	history isNil ifTrue: [history := OrderedCollection new].
cc0404f8aec6 #getHistory changed because here #? doesn't work correctly tz parents: 760 diff changeset	246	^history
753 9c837d99f109 intitial checkin tz parents: diff changeset	247
9c837d99f109 intitial checkin tz parents: diff changeset	248	!
9c837d99f109 intitial checkin tz parents: diff changeset	249
9c837d99f109 intitial checkin tz parents: diff changeset	250	historyMaxSize
9c837d99f109 intitial checkin tz parents: diff changeset	251
9c837d99f109 intitial checkin tz parents: diff changeset	252	^10
9c837d99f109 intitial checkin tz parents: diff changeset	253
9c837d99f109 intitial checkin tz parents: diff changeset	254	! !
9c837d99f109 intitial checkin tz parents: diff changeset	255
869 b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	256	!ToolApplicationModel class methodsFor:'image specs'!
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	257
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	258	copyIcon
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	259	"This resource specification was automatically generated
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	260	by the ImageEditor of ST/X."
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	261
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	262	"Do not manually edit this!! If it is corrupted,
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	263	the ImageEditor may not be able to read the specification."
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	264
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	265	"
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	266	ImageEditor openOnClass:self andSelector:#copyIcon
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	267	"
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	268
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	269	<resource: #image>
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	270
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	271	^Icon
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	272	constantNamed:#'ToolApplicationModel copyIcon'
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	273	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@AUUUW@@@A???>@@@A???>O@@A???>@@@A???>@@@@@@?>@EUUU\?>@G???8?>@G???8?>@G???8?>@G???8?>@G???8?>IG???8?>@G???8MG???8@@@G???8@@KG???8@@@G???8@@@G???8@@HN*(@@@@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 127 127 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@_?<@_?<@_?<@_?<@_?<@_?<???<???<???<???<???<???<???<???<???<???<??8@??8@??8@??8@??8@??8@') ; yourself); yourself]!
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	274
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	275	cutIcon
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	276	"This resource specification was automatically generated
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	277	by the ImageEditor of ST/X."
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	278
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	279	"Do not manually edit this!! If it is corrupted,
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	280	the ImageEditor may not be able to read the specification."
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	281
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	282	"
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	283	ImageEditor openOnClass:self andSelector:#cutIcon
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	284	"
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	285
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	286	<resource: #image>
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	287
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	288	^Icon
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	289	constantNamed:#'ToolApplicationModel cutIcon'
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	290	ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@DQDQDP0AL@@L@@@SL3L3CBL @B0@@AL3L3LL0B@@3@@@D3L3L0KB@@KB@@@SL3L3LL0@CL@@@AL3L3L0KB@,H@@@D3L3L3LL0L0@@@@SL3L3L0K@0 @@@AL3L3L3LL3@@@@@D3L3L3L03L@@@@@SL3L3L0CL0@@@@AL3L3L3@,CB@@@@D3L3L3@L0L0@@@@2H"H H"0 KBH @@@@@@KL3@@L3LH@@@@@CBCB@@K@K@@@@@@L@LH@@,@L@@@@@@0@0 @B0@0@@@@@CBC@@@C@K@@@@@@@3@@@@@3@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 127 127 127 170 170 170 255 0 0 0 255 0 0 0 255 0 255 255 255 255 0 255 0 255 127 0 0 0 127 0 0 0 127 0 127 127 127 127 0 127 0 127]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'_?<@_=\P_=<0_=,0_=50_>5 _>; _?[@_?[@_?.@_?.@_?N@_?[@_>[@_;;8_75<@F1,@D1$@D1$@F ,@C@X@@@@') ; yourself); yourself]!
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	291
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	292	deleteIcon
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	293	"This resource specification was automatically generated
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	294	by the ImageEditor of ST/X."
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	295
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	296	"Do not manually edit this!! If it is corrupted,
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	297	the ImageEditor may not be able to read the specification."
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	298
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	299	"
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	300	ImageEditor openOnClass:self andSelector:#deleteIcon
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	301	"
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	302
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	303	<resource: #image>
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	304
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	305	^Icon
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	306	constantNamed:#'ToolApplicationModel deleteIcon'
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	307	ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@DQDQDQDQL@@@@@@SL3L3L3L @@@@@AL3L3L3L2@@@@@@D3L3L3L3H@@@H@@SL3L3L3L @@H@@AL3L3L3L2@@@@@@D3L3L3L3@@@@@@@SL3L3L0@ @@@ @AL3L3L3@@@@@@@@D3L3L3L@D@@@H@@SL3L3L0@QL3H @AL3L3L3@A@3LB@@D3L3L3L@DC@0H@@2H"H"H @PLC@ @@@@@@@@@A@0LB@@@@@@@@@@DC@0H@@@@@@@@@@PLC@ @@@@@@@@@A@0LB@@@@@@@@@@DS@2H@@@@@@@@@HAL3HB@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 127 127 127 170 170 170 255 0 0 0 255 0 0 0 255 0 255 255 255 255 0 255 0 255 127 0 0 0 127 0 0 0 127 0 127 127 127 127 0 127 0 127]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'_?<@_?<@_?<P_?<P_?<X_?<X_?<H_?0H_?O<_?XL_?_<_?_<_?_<_?_<_?_<_?_<@@_<@@_<@@_<@@_<@@_<@@G0') ; yourself); yourself]!
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	308
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	309	desktopIcon
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	310
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	311	^Icon
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	312	constantNamed:#'ToolApplicationModel desktopIcon'
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	313	ifAbsentPut:
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	314	[
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	315	\|desktopIcon\|
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	316	desktopIcon := self stxIcon.
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	317	desktopIcon magnifiedBy: Display preferredIconSize/desktopIcon extent
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	318	]
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	319
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	320
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	321
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	322
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	323	!
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	324
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	325	downIcon
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	326	"This resource specification was automatically generated
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	327	by the ImageEditor of ST/X."
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	328
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	329	"Do not manually edit this!! If it is corrupted,
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	330	the ImageEditor may not be able to read the specification."
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	331
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	332	"
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	333	ImageEditor openOnClass:self andSelector:#downIcon
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	334	"
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	335
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	336	<resource: #image>
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	337
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	338	^Icon
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	339	constantNamed:#'ToolApplicationModel downIcon'
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	340	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') ; colorMapFromArray:#[255 255 255 0 0 0 0 127 0 255 0 0]; 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]!
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	341
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	342	downRightIcon
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	343	"This resource specification was automatically generated
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	344	by the ImageEditor of ST/X."
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	345
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	346	"Do not manually edit this!! If it is corrupted,
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	347	the ImageEditor may not be able to read the specification."
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	348
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	349	"
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	350	ImageEditor openOnClass:self andSelector:#downRightIcon
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	351	"
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	352
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	353	<resource: #image>
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	354
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	355	^Icon
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	356	constantNamed:#'ToolApplicationModel downRightIcon'
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	357	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') ; colorMapFromArray:#[255 255 255 0 0 0 0 127 0 255 0 0]; 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]!
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	358
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	359	helpIcon
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	360	"This resource specification was automatically generated
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	361	by the ImageEditor of ST/X."
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	362
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	363	"Do not manually edit this!! If it is corrupted,
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	364	the ImageEditor may not be able to read the specification."
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	365
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	366	"
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	367	ImageEditor openOnClass:self andSelector:#helpIcon
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	368	"
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	369
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	370	<resource: #image>
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	371
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	372	^Icon
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	373	constantNamed:#'ToolApplicationModel helpIcon'
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	374	ifAbsentPut:[(Depth1Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@O0A@_8@@?<@@8\C@8\A@@\@@@8@@A8@@C0@@G @@G@@@G@@@G@C@@@@@@@@@G@@@G@@@G@@@@@@@@@@') ; colorMapFromArray:#[0 0 0 127 0 127]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@O0@@_8@@?<@@8\@@8\@@@\@@@8@@A8@@C0@@G @@G@@@G@@@G@@@@@@@@@@@G@@@G@@@G@@@@@@@@@@') ; yourself); yourself]!
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	375
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	376	leftDownIcon
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	377	"This resource specification was automatically generated
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	378	by the ImageEditor of ST/X."
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	379
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	380	"Do not manually edit this!! If it is corrupted,
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	381	the ImageEditor may not be able to read the specification."
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	382
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	383	"
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	384	ImageEditor openOnClass:self andSelector:#leftDownIcon
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	385	"
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	386
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	387	<resource: #image>
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	388
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	389	^Icon
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	390	constantNamed:#'ToolApplicationModel leftDownIcon'
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	391	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') ; colorMapFromArray:#[255 255 255 0 0 0 0 127 0 255 0 0]; 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]!
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	392
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	393	leftIcon
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	394	"This resource specification was automatically generated
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	395	by the ImageEditor of ST/X."
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	396
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	397	"Do not manually edit this!! If it is corrupted,
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	398	the ImageEditor may not be able to read the specification."
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	399
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	400	"
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	401	ImageEditor openOnClass:self andSelector:#leftIcon
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	402	"
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	403
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	404	<resource: #image>
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	405
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	406	^Icon
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	407	constantNamed:#'ToolApplicationModel leftIcon'
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	408	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'UUUUUUUPUUUUUUUPUUUUUUUPUUUUUUUPUUUUUUUPUTUUUUUPURUUUUUPUJUUUUUPTP@@@@PR***PJ**PZ**PV***PUUUUUUPUZUUUUUPUVUUUUUPUUUUUUUPUUUUUUUPUUUUUUUPUUUUUUUPUUUUUUUPUUUUUUUP') ; colorMapFromArray:#[255 255 255 0 0 0 0 127 0 255 0 0]; 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]!
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	409
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	410	loadIcon
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	411	"This resource specification was automatically generated
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	412	by the ImageEditor of ST/X."
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	413
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	414	"Do not manually edit this!! If it is corrupted,
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	415	the ImageEditor may not be able to read the specification."
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	416
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	417	"
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	418	ImageEditor openOnClass:self andSelector:#loadIcon
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	419	"
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	420
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	421	<resource: #image>
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	422
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	423	^Icon
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	424	constantNamed:#'ToolApplicationModel loadIcon'
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	425	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') ; colorMapFromArray:#[255 255 255 0 0 0 127 127 127 170 170 170]; 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]!
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	426
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	427	menuIcon
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	428
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	429	^Icon
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	430	constantNamed:#'ToolApplicationModel menuIcon'
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	431	ifAbsentPut:
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	432	[
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	433	\|menuIcon\|
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	434	menuIcon := self stxIcon.
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	435	menuIcon magnifiedBy: MenuPanel defaultFont height/menuIcon height
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	436	]
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	437	!
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	438
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	439	newIcon
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	440	"This resource specification was automatically generated
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	441	by the ImageEditor of ST/X."
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	442
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	443	"Do not manually edit this!! If it is corrupted,
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	444	the ImageEditor may not be able to read the specification."
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	445
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	446	"
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	447	ImageEditor openOnClass:self andSelector:#newIcon
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	448	"
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	449
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	450	<resource: #image>
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	451
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	452	^Icon
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	453	constantNamed:#'ToolApplicationModel newIcon'
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	454	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*****(@@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 127 127 127 170 170 170]; 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]!
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	455
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	456	pasteIcon
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	457	"This resource specification was automatically generated
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	458	by the ImageEditor of ST/X."
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	459
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	460	"Do not manually edit this!! If it is corrupted,
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	461	the ImageEditor may not be able to read the specification."
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	462
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	463	"
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	464	ImageEditor openOnClass:self andSelector:#pasteIcon
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	465	"
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	466
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	467	<resource: #image>
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	468
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	469	^Icon
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	470	constantNamed:#'ToolApplicationModel pasteIcon'
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	471	ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@KLH@@@@@@@@@@@CL3@@@@@@@@@@@CBH"0@@@@@@@@QD,3L3BDQ@@@@@ADQDQDQDQD@@@@@DQDQDQDQDP@@@@@@@@@@DQDQ@ADQDQDQDS@QDQD@D3L3L3L3HADQDP@SL3L3L3L DQDQ@AL3L3L3L2@QDQD@D3L3L3L3HADQDP@SL3L3L3L DQDQ@AL3L3L3L2@QDQD@D3L3L3L3HADQDP@SL3L3L3L DQDQ@AL3L3L3L2@QDQD@D3L3L3L3HADQDP@SL3L3L3L DQDQ@AL3L3L3L2@@@@@@L"H"H"H"H@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 127 127 127 170 170 170 255 0 0 0 255 0 0 0 255 0 255 255 255 255 0 255 0 255 127 0 0 0 127 0 0 0 127 0 127 127 127 127 0 127 0 127]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@<@@@<@@??<@??<@??<@??<???<???<???<???<???<???<???<???<???<???<???<???<???<???<??8@??8@') ; yourself); yourself]!
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	472
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	473	rightIcon
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	474	"This resource specification was automatically generated
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	475	by the ImageEditor of ST/X."
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	476
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	477	"Do not manually edit this!! If it is corrupted,
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	478	the ImageEditor may not be able to read the specification."
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	479
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	480	"
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	481	ImageEditor openOnClass:self andSelector:#rightIcon
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	482	"
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	483
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	484	<resource: #image>
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	485
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	486	^Icon
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	487	constantNamed:#'ToolApplicationModel rightIcon'
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	488	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'UUUUUUUPUUUUUUUPUUUUUUUPUUUUUUUPUUUUUUUPUUUUUEUPUUUUUIUPUUUUUJUP@@@@@J%PJ***)PJ**PJ**PJ***)PEUUUUZ%PUUUUUJUPUUUUUIUPUUUUUEUPUUUUUUUPUUUUUUUPUUUUUUUPUUUUUUUPUUUUUUUP') ; colorMapFromArray:#[255 255 255 0 0 0 0 127 0 255 0 0]; 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]!
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	489
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	490	saveIcon
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	491	"This resource specification was automatically generated
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	492	by the ImageEditor of ST/X."
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	493
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	494	"Do not manually edit this!! If it is corrupted,
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	495	the ImageEditor may not be able to read the specification."
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	496
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	497	"
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	498	ImageEditor openOnClass:self andSelector:#saveIcon
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	499	"
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	500
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	501	<resource: #image>
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	502
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	503	^Icon
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	504	constantNamed:#'ToolApplicationModel saveIcon'
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	505	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') ; colorMapFromArray:#[255 255 255 0 0 0 127 127 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???8') ; yourself); yourself]!
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	506
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	507	startIcon
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	508	"This resource specification was automatically generated
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	509	by the ImageEditor of ST/X."
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	510
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	511	"Do not manually edit this!! If it is corrupted,
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	512	the ImageEditor may not be able to read the specification."
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	513
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	514	"
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	515	ImageEditor openOnClass:self andSelector:#startIcon
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	516	"
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	517
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	518	<resource: #image>
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	519
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	520	^Icon
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	521	constantNamed:#'ToolApplicationModel startIcon'
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	522	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') ; colorMapFromArray:#[0 0 0 255 255 255 255 0 0 0 255 0 0 0 255 0 255 255 255 255 0 255 0 255 127 0 0 0 127 0 0 0 127 0 127 127 127 127 0 127 0 127 127 127 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@AC@DAG DAG?<@G N@G N@G N@G?.@G N@G _@G _@G?_@G _@G _@G _@G?_@G ? G!!?0G!!?0G!!.PKQNPT(_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; yourself); yourself]!
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	523
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	524	stxIcon
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	525	"This resource specification was automatically generated
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	526	by the ImageEditor of ST/X."
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	527
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	528	"Do not manually edit this!! If it is corrupted,
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	529	the ImageEditor may not be able to read the specification."
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	530
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	531	"
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	532	ImageEditor openOnClass:self andSelector:#stxIcon
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	533	"
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	534
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	535	<resource: #image>
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	536
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	537	^Icon
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	538	constantNamed:#'ToolApplicationModel stxIcon'
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	539	ifAbsentPut:[(Depth2Image new) width: 48; height: 48; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@U@@@@@@@AP@@@@@AUP@@@@@@E@@@@@@AUP@@@@@@T@@@@@@AUP@@@@@EP@@@@@@AUP@@@@@DP@@@@@@AUD@@@@AU@@@@@@@@UT@@@@@T@@@@@@@@UT@@@@QP@@@@@@@@EU@@@@U@@@@@@@@@AU@@@AD@@@@@@@@@ATP@@UP@@@@@@@@@AUP@@Q@@@@@@@@@@@UT@AD@@@@@@@@@@@AQ@DP@@@@@@@@@@@EU@Q@@@@@@@@@@@@ATQT@@@@@@@@@@@@AUTP@@@@@@@@@@@@@EPP@@@@@@@@@@@@@QU@@@@@@@@@@@@@@EU@@@@@@@@@@@@@@UT@@@@@@@@@@@@@AUE@@@@@@@@@@@@@EUU@@@@@@@@@@@@@UPEP@@@@@@@@@@@AUPAT@@@@@@@@@@@EE@AU@@@@@@@@@@AET@@E@@@@@@@@@@AUP@@EP@@@@@@@@@UU@@@AP@@@@@@@@AUP@@@AT@@@@@@@@EUP@@@@T@@@@@@@AUU@@@@@E@@@@@@@EUT@@@@@DP@@@@@@UUP@@@@@AP@@@@@@UUP@@@@@@T@@@@@@UU@@@@@@@E@@@@@@ET@@@@@@@A@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[25 25 25 0 204 51 0 0 0 255 255 255]; yourself]!
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	540
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	541	upIcon
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	542	"This resource specification was automatically generated
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	543	by the ImageEditor of ST/X."
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	544
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	545	"Do not manually edit this!! If it is corrupted,
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	546	the ImageEditor may not be able to read the specification."
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	547
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	548	"
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	549	ImageEditor openOnClass:self andSelector:#upIcon
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	550	"
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	551
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	552	<resource: #image>
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	553
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	554	^Icon
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	555	constantNamed:#'ToolApplicationModel upIcon'
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	556	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'UUUQUUUPUUUJUUUPUUT%UUPUUR)UUPUUJUUPUT%UPUTV%UUPUUT%UUPUUT%UUP_UT%UUP_UT%UUP_5T%UUPWUT%UUPWWT%UUPWUT%UUPUUT%UUPUUT%UUPUUT%UUPUUT%UUPUUT%UUPUUT%UUPUUTUUUUP') ; colorMapFromArray:#[255 255 255 0 0 0 0 127 0 255 0 0]; 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]! !
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	557
753 9c837d99f109 intitial checkin tz parents: diff changeset	558	!ToolApplicationModel class methodsFor:'interface specs'!
9c837d99f109 intitial checkin tz parents: diff changeset	559
797 bacf790c536d info bar subspec changed tz parents: 792 diff changeset	560	windowSpecForCommit
869 b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	561	"This resource specification was automatically generated
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	562	by the UIPainter of ST/X."
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	563
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	564	"Do not manually edit this!! If it is corrupted,
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	565	the UIPainter may not be able to read the specification."
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	566
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	567	"
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	568	UIPainter new openOnClass:ToolApplicationModel andSelector:#windowSpecForCommit
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	569	ToolApplicationModel new openInterface:#windowSpecForCommit
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	570	"
797 bacf790c536d info bar subspec changed tz parents: 792 diff changeset	571
bacf790c536d info bar subspec changed tz parents: 792 diff changeset	572	<resource: #canvas>
bacf790c536d info bar subspec changed tz parents: 792 diff changeset	573
bacf790c536d info bar subspec changed tz parents: 792 diff changeset	574	^
859 5d6a438f84d0 docu call changed tz parents: 858 diff changeset	575
797 bacf790c536d info bar subspec changed tz parents: 792 diff changeset	576	#(#FullSpec
859 5d6a438f84d0 docu call changed tz parents: 858 diff changeset	577	#window:
797 bacf790c536d info bar subspec changed tz parents: 792 diff changeset	578	#(#WindowSpec
859 5d6a438f84d0 docu call changed tz parents: 858 diff changeset	579	#name: 'Commit Buttons'
869 b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	580	#layout: #(#LayoutFrame 344 0 371 0 643 0 430 0)
859 5d6a438f84d0 docu call changed tz parents: 858 diff changeset	581	#label: 'Commit Buttons'
5d6a438f84d0 docu call changed tz parents: 858 diff changeset	582	#min: #(#Point 100 22)
5d6a438f84d0 docu call changed tz parents: 858 diff changeset	583	#max: #(#Point 1152 900)
869 b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	584	#bounds: #(#Rectangle 344 371 644 431)
859 5d6a438f84d0 docu call changed tz parents: 858 diff changeset	585	#usePreferredExtent: false
797 bacf790c536d info bar subspec changed tz parents: 792 diff changeset	586	)
859 5d6a438f84d0 docu call changed tz parents: 858 diff changeset	587	#component:
797 bacf790c536d info bar subspec changed tz parents: 792 diff changeset	588	#(#SpecCollection
859 5d6a438f84d0 docu call changed tz parents: 858 diff changeset	589	#collection:
797 bacf790c536d info bar subspec changed tz parents: 792 diff changeset	590	#(
bacf790c536d info bar subspec changed tz parents: 792 diff changeset	591	#(#ActionButtonSpec
859 5d6a438f84d0 docu call changed tz parents: 858 diff changeset	592	#name: 'cancelButton'
5d6a438f84d0 docu call changed tz parents: 858 diff changeset	593	#layout: #(#LayoutFrame 5 0 0 0 -2 0.5 0 1)
5d6a438f84d0 docu call changed tz parents: 858 diff changeset	594	#activeHelpKey: #commitCancel
5d6a438f84d0 docu call changed tz parents: 858 diff changeset	595	#label: 'Cancel'
5d6a438f84d0 docu call changed tz parents: 858 diff changeset	596	#tabable: true
5d6a438f84d0 docu call changed tz parents: 858 diff changeset	597	#model: #cancel
5d6a438f84d0 docu call changed tz parents: 858 diff changeset	598	#enableChannel: #valueOfEnablingCommitButtons
797 bacf790c536d info bar subspec changed tz parents: 792 diff changeset	599	)
bacf790c536d info bar subspec changed tz parents: 792 diff changeset	600	#(#ActionButtonSpec
859 5d6a438f84d0 docu call changed tz parents: 858 diff changeset	601	#name: 'okButton'
5d6a438f84d0 docu call changed tz parents: 858 diff changeset	602	#layout: #(#LayoutFrame 2 0.5 0 0.0 -5 1 0 1.0)
5d6a438f84d0 docu call changed tz parents: 858 diff changeset	603	#activeHelpKey: #commitOK
5d6a438f84d0 docu call changed tz parents: 858 diff changeset	604	#label: 'OK'
5d6a438f84d0 docu call changed tz parents: 858 diff changeset	605	#tabable: true
5d6a438f84d0 docu call changed tz parents: 858 diff changeset	606	#model: #accept
5d6a438f84d0 docu call changed tz parents: 858 diff changeset	607	#enableChannel: #valueOfEnablingCommitButtons
797 bacf790c536d info bar subspec changed tz parents: 792 diff changeset	608	)
bacf790c536d info bar subspec changed tz parents: 792 diff changeset	609	)
bacf790c536d info bar subspec changed tz parents: 792 diff changeset	610	)
bacf790c536d info bar subspec changed tz parents: 792 diff changeset	611	)
bacf790c536d info bar subspec changed tz parents: 792 diff changeset	612	!
bacf790c536d info bar subspec changed tz parents: 792 diff changeset	613
bacf790c536d info bar subspec changed tz parents: 792 diff changeset	614	windowSpecForCommitWithoutChannels
869 b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	615	"This resource specification was automatically generated
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	616	by the UIPainter of ST/X."
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	617
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	618	"Do not manually edit this!! If it is corrupted,
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	619	the UIPainter may not be able to read the specification."
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	620
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	621	"
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	622	UIPainter new openOnClass:ToolApplicationModel andSelector:#windowSpecForCommitWithoutChannels
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	623	ToolApplicationModel new openInterface:#windowSpecForCommitWithoutChannels
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	624	"
797 bacf790c536d info bar subspec changed tz parents: 792 diff changeset	625
bacf790c536d info bar subspec changed tz parents: 792 diff changeset	626	<resource: #canvas>
bacf790c536d info bar subspec changed tz parents: 792 diff changeset	627
bacf790c536d info bar subspec changed tz parents: 792 diff changeset	628	^
859 5d6a438f84d0 docu call changed tz parents: 858 diff changeset	629
797 bacf790c536d info bar subspec changed tz parents: 792 diff changeset	630	#(#FullSpec
859 5d6a438f84d0 docu call changed tz parents: 858 diff changeset	631	#window:
797 bacf790c536d info bar subspec changed tz parents: 792 diff changeset	632	#(#WindowSpec
859 5d6a438f84d0 docu call changed tz parents: 858 diff changeset	633	#name: 'Commit Buttons Without Channels'
869 b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	634	#layout: #(#LayoutFrame 500 0 326 0 799 0 385 0)
859 5d6a438f84d0 docu call changed tz parents: 858 diff changeset	635	#label: 'Commit Buttons Without Channels'
5d6a438f84d0 docu call changed tz parents: 858 diff changeset	636	#min: #(#Point 100 22)
5d6a438f84d0 docu call changed tz parents: 858 diff changeset	637	#max: #(#Point 1152 900)
869 b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	638	#bounds: #(#Rectangle 500 326 800 386)
859 5d6a438f84d0 docu call changed tz parents: 858 diff changeset	639	#usePreferredExtent: false
797 bacf790c536d info bar subspec changed tz parents: 792 diff changeset	640	)
859 5d6a438f84d0 docu call changed tz parents: 858 diff changeset	641	#component:
797 bacf790c536d info bar subspec changed tz parents: 792 diff changeset	642	#(#SpecCollection
859 5d6a438f84d0 docu call changed tz parents: 858 diff changeset	643	#collection:
797 bacf790c536d info bar subspec changed tz parents: 792 diff changeset	644	#(
bacf790c536d info bar subspec changed tz parents: 792 diff changeset	645	#(#ActionButtonSpec
859 5d6a438f84d0 docu call changed tz parents: 858 diff changeset	646	#name: 'cancelButton'
5d6a438f84d0 docu call changed tz parents: 858 diff changeset	647	#layout: #(#LayoutFrame 5 0 0 0 -2 0.5 0 1)
5d6a438f84d0 docu call changed tz parents: 858 diff changeset	648	#activeHelpKey: #commitCancel
5d6a438f84d0 docu call changed tz parents: 858 diff changeset	649	#label: 'Cancel'
5d6a438f84d0 docu call changed tz parents: 858 diff changeset	650	#tabable: true
5d6a438f84d0 docu call changed tz parents: 858 diff changeset	651	#model: #cancel
797 bacf790c536d info bar subspec changed tz parents: 792 diff changeset	652	)
bacf790c536d info bar subspec changed tz parents: 792 diff changeset	653	#(#ActionButtonSpec
859 5d6a438f84d0 docu call changed tz parents: 858 diff changeset	654	#name: 'okButton'
5d6a438f84d0 docu call changed tz parents: 858 diff changeset	655	#layout: #(#LayoutFrame 2 0.5 0 0.0 -5 1 0 1.0)
5d6a438f84d0 docu call changed tz parents: 858 diff changeset	656	#activeHelpKey: #commitOK
5d6a438f84d0 docu call changed tz parents: 858 diff changeset	657	#label: 'OK'
5d6a438f84d0 docu call changed tz parents: 858 diff changeset	658	#tabable: true
5d6a438f84d0 docu call changed tz parents: 858 diff changeset	659	#model: #accept
797 bacf790c536d info bar subspec changed tz parents: 792 diff changeset	660	)
bacf790c536d info bar subspec changed tz parents: 792 diff changeset	661	)
bacf790c536d info bar subspec changed tz parents: 792 diff changeset	662	)
bacf790c536d info bar subspec changed tz parents: 792 diff changeset	663	)
bacf790c536d info bar subspec changed tz parents: 792 diff changeset	664	!
bacf790c536d info bar subspec changed tz parents: 792 diff changeset	665
bacf790c536d info bar subspec changed tz parents: 792 diff changeset	666	windowSpecForInfoBar
869 b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	667	"This resource specification was automatically generated
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	668	by the UIPainter of ST/X."
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	669
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	670	"Do not manually edit this!! If it is corrupted,
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	671	the UIPainter may not be able to read the specification."
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	672
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	673	"
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	674	UIPainter new openOnClass:ToolApplicationModel andSelector:#windowSpecForInfoBar
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	675	ToolApplicationModel new openInterface:#windowSpecForInfoBar
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	676	"
797 bacf790c536d info bar subspec changed tz parents: 792 diff changeset	677
bacf790c536d info bar subspec changed tz parents: 792 diff changeset	678	<resource: #canvas>
bacf790c536d info bar subspec changed tz parents: 792 diff changeset	679
bacf790c536d info bar subspec changed tz parents: 792 diff changeset	680	^
859 5d6a438f84d0 docu call changed tz parents: 858 diff changeset	681
797 bacf790c536d info bar subspec changed tz parents: 792 diff changeset	682	#(#FullSpec
859 5d6a438f84d0 docu call changed tz parents: 858 diff changeset	683	#window:
797 bacf790c536d info bar subspec changed tz parents: 792 diff changeset	684	#(#WindowSpec
859 5d6a438f84d0 docu call changed tz parents: 858 diff changeset	685	#name: 'Info Bar'
869 b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	686	#layout: #(#LayoutFrame 233 0 218 0 732 0 563 0)
859 5d6a438f84d0 docu call changed tz parents: 858 diff changeset	687	#label: 'Info Bar'
5d6a438f84d0 docu call changed tz parents: 858 diff changeset	688	#min: #(#Point 400 320)
5d6a438f84d0 docu call changed tz parents: 858 diff changeset	689	#max: #(#Point 1152 900)
869 b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	690	#bounds: #(#Rectangle 233 218 733 564)
859 5d6a438f84d0 docu call changed tz parents: 858 diff changeset	691	#menu: #menu
5d6a438f84d0 docu call changed tz parents: 858 diff changeset	692	#usePreferredExtent: false
797 bacf790c536d info bar subspec changed tz parents: 792 diff changeset	693	)
859 5d6a438f84d0 docu call changed tz parents: 858 diff changeset	694	#component:
797 bacf790c536d info bar subspec changed tz parents: 792 diff changeset	695	#(#SpecCollection
859 5d6a438f84d0 docu call changed tz parents: 858 diff changeset	696	#collection:
797 bacf790c536d info bar subspec changed tz parents: 792 diff changeset	697	#(
820 d01d777e2bb3 info bars redesigned tz parents: 805 diff changeset	698	#(#ViewSpec
859 5d6a438f84d0 docu call changed tz parents: 858 diff changeset	699	#name: 'view'
5d6a438f84d0 docu call changed tz parents: 858 diff changeset	700	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
5d6a438f84d0 docu call changed tz parents: 858 diff changeset	701	#component:
820 d01d777e2bb3 info bars redesigned tz parents: 805 diff changeset	702	#(#SpecCollection
859 5d6a438f84d0 docu call changed tz parents: 858 diff changeset	703	#collection:
820 d01d777e2bb3 info bars redesigned tz parents: 805 diff changeset	704	#(
d01d777e2bb3 info bars redesigned tz parents: 805 diff changeset	705	#(#LabelSpec
859 5d6a438f84d0 docu call changed tz parents: 858 diff changeset	706	#name: 'infoLabel'
5d6a438f84d0 docu call changed tz parents: 858 diff changeset	707	#layout: #(#LayoutFrame 2 0.0 1 0.0 -1 1.0 -1 1.0)
5d6a438f84d0 docu call changed tz parents: 858 diff changeset	708	#labelChannel: #valueOfInfoLabel
5d6a438f84d0 docu call changed tz parents: 858 diff changeset	709	#level: -1
5d6a438f84d0 docu call changed tz parents: 858 diff changeset	710	#adjust: #left
869 b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	711	#resizeForLabel: false
820 d01d777e2bb3 info bars redesigned tz parents: 805 diff changeset	712	)
d01d777e2bb3 info bars redesigned tz parents: 805 diff changeset	713	)
d01d777e2bb3 info bars redesigned tz parents: 805 diff changeset	714	)
797 bacf790c536d info bar subspec changed tz parents: 792 diff changeset	715	)
bacf790c536d info bar subspec changed tz parents: 792 diff changeset	716	)
bacf790c536d info bar subspec changed tz parents: 792 diff changeset	717	)
bacf790c536d info bar subspec changed tz parents: 792 diff changeset	718	)
bacf790c536d info bar subspec changed tz parents: 792 diff changeset	719	!
bacf790c536d info bar subspec changed tz parents: 792 diff changeset	720
bacf790c536d info bar subspec changed tz parents: 792 diff changeset	721	windowSpecForInfoBarWithClock
869 b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	722	"This resource specification was automatically generated
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	723	by the UIPainter of ST/X."
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	724
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	725	"Do not manually edit this!! If it is corrupted,
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	726	the UIPainter may not be able to read the specification."
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	727
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	728	"
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	729	UIPainter new openOnClass:ToolApplicationModel andSelector:#windowSpecForInfoBarWithClock
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	730	ToolApplicationModel new openInterface:#windowSpecForInfoBarWithClock
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	731	"
797 bacf790c536d info bar subspec changed tz parents: 792 diff changeset	732
bacf790c536d info bar subspec changed tz parents: 792 diff changeset	733	<resource: #canvas>
bacf790c536d info bar subspec changed tz parents: 792 diff changeset	734
bacf790c536d info bar subspec changed tz parents: 792 diff changeset	735	^
859 5d6a438f84d0 docu call changed tz parents: 858 diff changeset	736
797 bacf790c536d info bar subspec changed tz parents: 792 diff changeset	737	#(#FullSpec
859 5d6a438f84d0 docu call changed tz parents: 858 diff changeset	738	#window:
797 bacf790c536d info bar subspec changed tz parents: 792 diff changeset	739	#(#WindowSpec
859 5d6a438f84d0 docu call changed tz parents: 858 diff changeset	740	#name: 'Info Bar'
869 b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	741	#layout: #(#LayoutFrame 431 0 352 0 930 0 697 0)
859 5d6a438f84d0 docu call changed tz parents: 858 diff changeset	742	#label: 'Info Bar'
5d6a438f84d0 docu call changed tz parents: 858 diff changeset	743	#min: #(#Point 400 320)
5d6a438f84d0 docu call changed tz parents: 858 diff changeset	744	#max: #(#Point 1152 900)
869 b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	745	#bounds: #(#Rectangle 431 352 931 698)
859 5d6a438f84d0 docu call changed tz parents: 858 diff changeset	746	#menu: #menu
5d6a438f84d0 docu call changed tz parents: 858 diff changeset	747	#usePreferredExtent: false
797 bacf790c536d info bar subspec changed tz parents: 792 diff changeset	748	)
859 5d6a438f84d0 docu call changed tz parents: 858 diff changeset	749	#component:
797 bacf790c536d info bar subspec changed tz parents: 792 diff changeset	750	#(#SpecCollection
859 5d6a438f84d0 docu call changed tz parents: 858 diff changeset	751	#collection:
797 bacf790c536d info bar subspec changed tz parents: 792 diff changeset	752	#(
820 d01d777e2bb3 info bars redesigned tz parents: 805 diff changeset	753	#(#ViewSpec
859 5d6a438f84d0 docu call changed tz parents: 858 diff changeset	754	#name: 'view'
5d6a438f84d0 docu call changed tz parents: 858 diff changeset	755	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
5d6a438f84d0 docu call changed tz parents: 858 diff changeset	756	#component:
820 d01d777e2bb3 info bars redesigned tz parents: 805 diff changeset	757	#(#SpecCollection
859 5d6a438f84d0 docu call changed tz parents: 858 diff changeset	758	#collection:
820 d01d777e2bb3 info bars redesigned tz parents: 805 diff changeset	759	#(
d01d777e2bb3 info bars redesigned tz parents: 805 diff changeset	760	#(#LabelSpec
859 5d6a438f84d0 docu call changed tz parents: 858 diff changeset	761	#name: 'infoLabel'
5d6a438f84d0 docu call changed tz parents: 858 diff changeset	762	#layout: #(#LayoutFrame 2 0 1 0.0 -81 1 -1 1.0)
5d6a438f84d0 docu call changed tz parents: 858 diff changeset	763	#labelChannel: #valueOfInfoLabel
5d6a438f84d0 docu call changed tz parents: 858 diff changeset	764	#level: -1
5d6a438f84d0 docu call changed tz parents: 858 diff changeset	765	#adjust: #left
820 d01d777e2bb3 info bars redesigned tz parents: 805 diff changeset	766	)
d01d777e2bb3 info bars redesigned tz parents: 805 diff changeset	767	#(#LabelSpec
859 5d6a438f84d0 docu call changed tz parents: 858 diff changeset	768	#name: 'timeLabel'
5d6a438f84d0 docu call changed tz parents: 858 diff changeset	769	#layout: #(#LayoutFrame -79 1 1 0.0 -1 1.0 -1 1.0)
5d6a438f84d0 docu call changed tz parents: 858 diff changeset	770	#labelChannel: #valueOfTimeLabel
5d6a438f84d0 docu call changed tz parents: 858 diff changeset	771	#level: -1
5d6a438f84d0 docu call changed tz parents: 858 diff changeset	772	#adjust: #right
820 d01d777e2bb3 info bars redesigned tz parents: 805 diff changeset	773	)
d01d777e2bb3 info bars redesigned tz parents: 805 diff changeset	774	)
d01d777e2bb3 info bars redesigned tz parents: 805 diff changeset	775	)
797 bacf790c536d info bar subspec changed tz parents: 792 diff changeset	776	)
bacf790c536d info bar subspec changed tz parents: 792 diff changeset	777	)
bacf790c536d info bar subspec changed tz parents: 792 diff changeset	778	)
bacf790c536d info bar subspec changed tz parents: 792 diff changeset	779	)
bacf790c536d info bar subspec changed tz parents: 792 diff changeset	780	! !
bacf790c536d info bar subspec changed tz parents: 792 diff changeset	781
bacf790c536d info bar subspec changed tz parents: 792 diff changeset	782	!ToolApplicationModel class methodsFor:'menu specs'!
bacf790c536d info bar subspec changed tz parents: 792 diff changeset	783
753 9c837d99f109 intitial checkin tz parents: diff changeset	784	menuAbout
869 b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	785	"This resource specification was automatically generated
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	786	by the MenuEditor of ST/X."
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	787
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	788	"Do not manually edit this!! If it is corrupted,
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	789	the MenuEditor may not be able to read the specification."
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	790
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	791	"
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	792	MenuEditor new openOnClass:ToolApplicationModel andSelector:#menuAbout
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	793	(Menu new fromLiteralArrayEncoding:(ToolApplicationModel menuAbout)) startUp
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	794	"
753 9c837d99f109 intitial checkin tz parents: diff changeset	795
9c837d99f109 intitial checkin tz parents: diff changeset	796	<resource: #menu>
9c837d99f109 intitial checkin tz parents: diff changeset	797
9c837d99f109 intitial checkin tz parents: diff changeset	798	^
859 5d6a438f84d0 docu call changed tz parents: 858 diff changeset	799
753 9c837d99f109 intitial checkin tz parents: diff changeset	800	#(#Menu
9c837d99f109 intitial checkin tz parents: diff changeset	801
9c837d99f109 intitial checkin tz parents: diff changeset	802	#(
9c837d99f109 intitial checkin tz parents: diff changeset	803	#(#MenuItem
859 5d6a438f84d0 docu call changed tz parents: 858 diff changeset	804	#label: 'About Smalltalk/X...'
5d6a438f84d0 docu call changed tz parents: 858 diff changeset	805	#translateLabel: true
5d6a438f84d0 docu call changed tz parents: 858 diff changeset	806	#value: #openAbout
5d6a438f84d0 docu call changed tz parents: 858 diff changeset	807	#activeHelpKey: #aboutSTX
753 9c837d99f109 intitial checkin tz parents: diff changeset	808	)
9c837d99f109 intitial checkin tz parents: diff changeset	809	#(#MenuItem
859 5d6a438f84d0 docu call changed tz parents: 858 diff changeset	810	#label: '-'
753 9c837d99f109 intitial checkin tz parents: diff changeset	811	)
9c837d99f109 intitial checkin tz parents: diff changeset	812	#(#MenuItem
859 5d6a438f84d0 docu call changed tz parents: 858 diff changeset	813	#label: 'About This Application...'
5d6a438f84d0 docu call changed tz parents: 858 diff changeset	814	#translateLabel: true
5d6a438f84d0 docu call changed tz parents: 858 diff changeset	815	#value: #openAboutThisApplication
5d6a438f84d0 docu call changed tz parents: 858 diff changeset	816	#activeHelpKey: #aboutThisAppliaction
753 9c837d99f109 intitial checkin tz parents: diff changeset	817	)
9c837d99f109 intitial checkin tz parents: diff changeset	818	) nil
9c837d99f109 intitial checkin tz parents: diff changeset	819	nil
9c837d99f109 intitial checkin tz parents: diff changeset	820	)
9c837d99f109 intitial checkin tz parents: diff changeset	821	!
9c837d99f109 intitial checkin tz parents: diff changeset	822
869 b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	823	menuFont
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	824	"This resource specification was automatically generated
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	825	by the MenuEditor of ST/X."
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	826
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	827	"Do not manually edit this!! If it is corrupted,
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	828	the MenuEditor may not be able to read the specification."
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	829
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	830	"
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	831	MenuEditor new openOnClass:ToolApplicationModel andSelector:#menuFont
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	832	(Menu new fromLiteralArrayEncoding:(ToolApplicationModel menuFont)) startUp
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	833	"
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	834
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	835	<resource: #menu>
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	836
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	837	^
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	838
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	839	#(#Menu
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	840
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	841	#(
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	842	#(#MenuItem
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	843	#label: 'Label Font...'
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	844	#value: #chooseFont:
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	845	#argument: 'Label Font'
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	846	)
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	847	#(#MenuItem
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	848	#label: 'Button Font...'
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	849	#value: #chooseFont:
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	850	#argument: 'Button Font'
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	851	)
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	852	#(#MenuItem
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	853	#label: 'Edit Font...'
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	854	#value: #chooseFont:
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	855	#argument: 'Edit Font'
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	856	)
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	857	#(#MenuItem
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	858	#label: 'List Font...'
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	859	#value: #chooseFont:
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	860	#argument: 'List Font'
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	861	)
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	862	#(#MenuItem
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	863	#label: 'Tree List Font...'
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	864	#value: #chooseFont:
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	865	#argument: 'Tree List Font'
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	866	)
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	867	#(#MenuItem
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	868	#label: '-'
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	869	)
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	870	#(#MenuItem
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	871	#label: 'Reset Fonts'
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	872	#value: #resetFonts
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	873	)
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	874	) nil
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	875	nil
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	876	)
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	877	!
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	878
753 9c837d99f109 intitial checkin tz parents: diff changeset	879	menuHelp
869 b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	880	"This resource specification was automatically generated
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	881	by the MenuEditor of ST/X."
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	882
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	883	"Do not manually edit this!! If it is corrupted,
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	884	the MenuEditor may not be able to read the specification."
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	885
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	886	"
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	887	MenuEditor new openOnClass:ToolApplicationModel andSelector:#menuHelp
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	888	(Menu new fromLiteralArrayEncoding:(ToolApplicationModel menuHelp)) startUp
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	889	"
753 9c837d99f109 intitial checkin tz parents: diff changeset	890
9c837d99f109 intitial checkin tz parents: diff changeset	891	<resource: #menu>
9c837d99f109 intitial checkin tz parents: diff changeset	892
9c837d99f109 intitial checkin tz parents: diff changeset	893	^
859 5d6a438f84d0 docu call changed tz parents: 858 diff changeset	894
753 9c837d99f109 intitial checkin tz parents: diff changeset	895	#(#Menu
9c837d99f109 intitial checkin tz parents: diff changeset	896
9c837d99f109 intitial checkin tz parents: diff changeset	897	#(
9c837d99f109 intitial checkin tz parents: diff changeset	898	#(#MenuItem
859 5d6a438f84d0 docu call changed tz parents: 858 diff changeset	899	#label: 'Open Documentation'
5d6a438f84d0 docu call changed tz parents: 858 diff changeset	900	#translateLabel: true
5d6a438f84d0 docu call changed tz parents: 858 diff changeset	901	#value: #openDocumentation
5d6a438f84d0 docu call changed tz parents: 858 diff changeset	902	#activeHelpKey: #helpTutorial
5d6a438f84d0 docu call changed tz parents: 858 diff changeset	903	#enabled: #valueOfHavingTutorial
753 9c837d99f109 intitial checkin tz parents: diff changeset	904	)
9c837d99f109 intitial checkin tz parents: diff changeset	905	#(#MenuItem
859 5d6a438f84d0 docu call changed tz parents: 858 diff changeset	906	#label: '-'
753 9c837d99f109 intitial checkin tz parents: diff changeset	907	)
9c837d99f109 intitial checkin tz parents: diff changeset	908	#(#MenuItem
859 5d6a438f84d0 docu call changed tz parents: 858 diff changeset	909	#label: 'Show Help Texts'
5d6a438f84d0 docu call changed tz parents: 858 diff changeset	910	#translateLabel: true
5d6a438f84d0 docu call changed tz parents: 858 diff changeset	911	#activeHelpKey: #helpShowHelp
5d6a438f84d0 docu call changed tz parents: 858 diff changeset	912	#indication: #showHelp:
753 9c837d99f109 intitial checkin tz parents: diff changeset	913	)
9c837d99f109 intitial checkin tz parents: diff changeset	914	) nil
9c837d99f109 intitial checkin tz parents: diff changeset	915	nil
9c837d99f109 intitial checkin tz parents: diff changeset	916	)
9c837d99f109 intitial checkin tz parents: diff changeset	917	! !
9c837d99f109 intitial checkin tz parents: diff changeset	918
782 5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	919	!ToolApplicationModel class methodsFor:'startup / release'!
753 9c837d99f109 intitial checkin tz parents: diff changeset	920
782 5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	921	preSnapshot
753 9c837d99f109 intitial checkin tz parents: diff changeset	922
782 5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	923	clipboard := nil
753 9c837d99f109 intitial checkin tz parents: diff changeset	924	!
9c837d99f109 intitial checkin tz parents: diff changeset	925
782 5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	926	uninitialize
760 26cf45040420 #preferredExtent cleaned tz parents: 758 diff changeset	927
869 b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	928	settings := showHelp := history := clipboard := nil
753 9c837d99f109 intitial checkin tz parents: diff changeset	929	! !
9c837d99f109 intitial checkin tz parents: diff changeset	930
782 5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	931	!ToolApplicationModel methodsFor:'aspects'!
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	932
822 374400d57e0b some useful aspects added tz parents: 821 diff changeset	933	valueOfCanCopy
374400d57e0b some useful aspects added tz parents: 821 diff changeset	934
374400d57e0b some useful aspects added tz parents: 821 diff changeset	935	\|holder\|
374400d57e0b some useful aspects added tz parents: 821 diff changeset	936	(holder := builder bindingAt:#valueOfCanCopy) isNil ifTrue:[
374400d57e0b some useful aspects added tz parents: 821 diff changeset	937	builder aspectAt:#valueOfCanCopy put:(holder := false asValue).
374400d57e0b some useful aspects added tz parents: 821 diff changeset	938	].
374400d57e0b some useful aspects added tz parents: 821 diff changeset	939	^ holder
374400d57e0b some useful aspects added tz parents: 821 diff changeset	940
374400d57e0b some useful aspects added tz parents: 821 diff changeset	941	!
374400d57e0b some useful aspects added tz parents: 821 diff changeset	942
374400d57e0b some useful aspects added tz parents: 821 diff changeset	943	valueOfCanCut
374400d57e0b some useful aspects added tz parents: 821 diff changeset	944
374400d57e0b some useful aspects added tz parents: 821 diff changeset	945	\|holder\|
374400d57e0b some useful aspects added tz parents: 821 diff changeset	946	(holder := builder bindingAt:#valueOfCanCut) isNil ifTrue:[
374400d57e0b some useful aspects added tz parents: 821 diff changeset	947	builder aspectAt:#valueOfCanCut put:(holder := false asValue).
374400d57e0b some useful aspects added tz parents: 821 diff changeset	948	].
374400d57e0b some useful aspects added tz parents: 821 diff changeset	949	^ holder
374400d57e0b some useful aspects added tz parents: 821 diff changeset	950
374400d57e0b some useful aspects added tz parents: 821 diff changeset	951	!
374400d57e0b some useful aspects added tz parents: 821 diff changeset	952
374400d57e0b some useful aspects added tz parents: 821 diff changeset	953	valueOfCanPaste
374400d57e0b some useful aspects added tz parents: 821 diff changeset	954
374400d57e0b some useful aspects added tz parents: 821 diff changeset	955	\|holder\|
374400d57e0b some useful aspects added tz parents: 821 diff changeset	956	(holder := builder bindingAt:#valueOfCanPaste) isNil ifTrue:[
374400d57e0b some useful aspects added tz parents: 821 diff changeset	957	builder aspectAt:#valueOfCanPaste put:(holder := false asValue).
374400d57e0b some useful aspects added tz parents: 821 diff changeset	958	].
869 b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	959	holder value: self class clipboard notNil.
822 374400d57e0b some useful aspects added tz parents: 821 diff changeset	960	^ holder
374400d57e0b some useful aspects added tz parents: 821 diff changeset	961
374400d57e0b some useful aspects added tz parents: 821 diff changeset	962	!
374400d57e0b some useful aspects added tz parents: 821 diff changeset	963
374400d57e0b some useful aspects added tz parents: 821 diff changeset	964	valueOfCanUndo
374400d57e0b some useful aspects added tz parents: 821 diff changeset	965
374400d57e0b some useful aspects added tz parents: 821 diff changeset	966	\|holder\|
374400d57e0b some useful aspects added tz parents: 821 diff changeset	967	(holder := builder bindingAt:#valueOfCanUndo) isNil ifTrue:[
374400d57e0b some useful aspects added tz parents: 821 diff changeset	968	builder aspectAt:#valueOfCanUndo put:(holder := false asValue).
374400d57e0b some useful aspects added tz parents: 821 diff changeset	969	].
374400d57e0b some useful aspects added tz parents: 821 diff changeset	970	^ holder
374400d57e0b some useful aspects added tz parents: 821 diff changeset	971
374400d57e0b some useful aspects added tz parents: 821 diff changeset	972	!
374400d57e0b some useful aspects added tz parents: 821 diff changeset	973
782 5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	974	valueOfEnablingCommitButtons
753 9c837d99f109 intitial checkin tz parents: diff changeset	975
782 5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	976	\|holder\|
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	977	(holder := builder bindingAt:#valueOfEnablingCommitButtons) isNil ifTrue:[
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	978	builder aspectAt:#valueOfEnablingCommitButtons put:(holder := false asValue).
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	979	].
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	980	^ holder
753 9c837d99f109 intitial checkin tz parents: diff changeset	981
782 5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	982	!
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	983
858 a36ca9158a69 show help bug fixed tz parents: 853 diff changeset	984	valueOfHavingDocumentation
803 f6ca4eb5da39 help texts for the history added tz parents: 802 diff changeset	985
f6ca4eb5da39 help texts for the history added tz parents: 802 diff changeset	986	\|holder\|
858 a36ca9158a69 show help bug fixed tz parents: 853 diff changeset	987	(holder := builder bindingAt:#valueOfHavingDocumentation) isNil ifTrue:[
a36ca9158a69 show help bug fixed tz parents: 853 diff changeset	988	builder aspectAt:#valueOfHavingDocumentation put:(holder := (self class implements: #openDocumentation) asValue).
803 f6ca4eb5da39 help texts for the history added tz parents: 802 diff changeset	989	].
f6ca4eb5da39 help texts for the history added tz parents: 802 diff changeset	990	^ holder
f6ca4eb5da39 help texts for the history added tz parents: 802 diff changeset	991
f6ca4eb5da39 help texts for the history added tz parents: 802 diff changeset	992	!
f6ca4eb5da39 help texts for the history added tz parents: 802 diff changeset	993
858 a36ca9158a69 show help bug fixed tz parents: 853 diff changeset	994	valueOfHavingExamples
a36ca9158a69 show help bug fixed tz parents: 853 diff changeset	995
a36ca9158a69 show help bug fixed tz parents: 853 diff changeset	996	\|holder\|
a36ca9158a69 show help bug fixed tz parents: 853 diff changeset	997	(holder := builder bindingAt:#valueOfHavingExamples) isNil ifTrue:[
a36ca9158a69 show help bug fixed tz parents: 853 diff changeset	998	builder aspectAt:#valueOfHavingExamples put:(holder := (self class implements: #openExamples) asValue).
a36ca9158a69 show help bug fixed tz parents: 853 diff changeset	999	].
a36ca9158a69 show help bug fixed tz parents: 853 diff changeset	1000	^ holder
a36ca9158a69 show help bug fixed tz parents: 853 diff changeset	1001
a36ca9158a69 show help bug fixed tz parents: 853 diff changeset	1002	!
a36ca9158a69 show help bug fixed tz parents: 853 diff changeset	1003
a36ca9158a69 show help bug fixed tz parents: 853 diff changeset	1004	valueOfHavingTutorial
a36ca9158a69 show help bug fixed tz parents: 853 diff changeset	1005
a36ca9158a69 show help bug fixed tz parents: 853 diff changeset	1006	^self valueOfHavingDocumentation
a36ca9158a69 show help bug fixed tz parents: 853 diff changeset	1007
a36ca9158a69 show help bug fixed tz parents: 853 diff changeset	1008	!
a36ca9158a69 show help bug fixed tz parents: 853 diff changeset	1009
782 5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	1010	valueOfInfoLabel
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	1011
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	1012	\|holder\|
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	1013	(holder := builder bindingAt:#valueOfInfoLabel) isNil ifTrue:[
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	1014	builder aspectAt:#valueOfInfoLabel put:(holder := ValueHolder new).
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	1015	].
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	1016	^ holder
753 9c837d99f109 intitial checkin tz parents: diff changeset	1017
782 5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	1018	!
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	1019
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	1020	valueOfTimeLabel
753 9c837d99f109 intitial checkin tz parents: diff changeset	1021
782 5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	1022	\|holder\|
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	1023	(holder := builder bindingAt:#valueOfTimeLabel) isNil ifTrue:[
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	1024	builder aspectAt:#valueOfTimeLabel put:(holder := ValueHolder new).
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	1025	].
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	1026	^ holder
753 9c837d99f109 intitial checkin tz parents: diff changeset	1027
9c837d99f109 intitial checkin tz parents: diff changeset	1028	! !
9c837d99f109 intitial checkin tz parents: diff changeset	1029
782 5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	1030	!ToolApplicationModel methodsFor:'clipboard'!
753 9c837d99f109 intitial checkin tz parents: diff changeset	1031
838 d2588cca5a15 some obselete texts removed tz parents: 834 diff changeset	1032	clipboard
d2588cca5a15 some obselete texts removed tz parents: 834 diff changeset	1033
d2588cca5a15 some obselete texts removed tz parents: 834 diff changeset	1034	^self class clipboard
d2588cca5a15 some obselete texts removed tz parents: 834 diff changeset	1035	!
d2588cca5a15 some obselete texts removed tz parents: 834 diff changeset	1036
782 5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	1037	clipboard: anEditObject
753 9c837d99f109 intitial checkin tz parents: diff changeset	1038
782 5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	1039	self class clipboard: anEditObject.
753 9c837d99f109 intitial checkin tz parents: diff changeset	1040
869 b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1041	self valueOfCanPaste value: anEditObject notNil
782 5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	1042	! !
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	1043
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	1044	!ToolApplicationModel methodsFor:'help'!
753 9c837d99f109 intitial checkin tz parents: diff changeset	1045
762 2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	1046	defaultInfoLabel
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	1047
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	1048	^''
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	1049	!
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	1050
753 9c837d99f109 intitial checkin tz parents: diff changeset	1051	openAbout
9c837d99f109 intitial checkin tz parents: diff changeset	1052	"show an about box"
9c837d99f109 intitial checkin tz parents: diff changeset	1053
9c837d99f109 intitial checkin tz parents: diff changeset	1054	\|box\|
9c837d99f109 intitial checkin tz parents: diff changeset	1055
9c837d99f109 intitial checkin tz parents: diff changeset	1056	box := AboutBox new.
9c837d99f109 intitial checkin tz parents: diff changeset	1057	box autoHideAfter:10 with:[].
9c837d99f109 intitial checkin tz parents: diff changeset	1058	box showAtCenter
9c837d99f109 intitial checkin tz parents: diff changeset	1059
9c837d99f109 intitial checkin tz parents: diff changeset	1060	!
9c837d99f109 intitial checkin tz parents: diff changeset	1061
9c837d99f109 intitial checkin tz parents: diff changeset	1062	openAboutThisApplication
9c837d99f109 intitial checkin tz parents: diff changeset	1063	"show an about this application box"
9c837d99f109 intitial checkin tz parents: diff changeset	1064
9c837d99f109 intitial checkin tz parents: diff changeset	1065	\|rev box\|
9c837d99f109 intitial checkin tz parents: diff changeset	1066	rev := ''.
9c837d99f109 intitial checkin tz parents: diff changeset	1067	self class revision notNil ifTrue: [rev := ' (rev: ', self class revision printString, ')'].
9c837d99f109 intitial checkin tz parents: diff changeset	1068	box := AboutBox title:
800 b98050cf7a43 better author extraction. Claus Gittinger <cg@exept.de> parents: 799 diff changeset	1069	'\The application\\' withCRs
850 cdf5ecf904e2 some obselete icons removed tz parents: 846 diff changeset	1070	, self class name asBoldText, rev
cdf5ecf904e2 some obselete icons removed tz parents: 846 diff changeset	1071	, '\\has been designed and implemented by: \' withCRs
cdf5ecf904e2 some obselete icons removed tz parents: 846 diff changeset	1072	, ((self class authorLinesForAboutBox collect:[:l \| '- ' , l]) asStringWith:$\) withCRs
800 b98050cf7a43 better author extraction. Claus Gittinger <cg@exept.de> parents: 799 diff changeset	1073	, '\\' withCRs.
753 9c837d99f109 intitial checkin tz parents: diff changeset	1074
9c837d99f109 intitial checkin tz parents: diff changeset	1075	box label:'About This Application'.
9c837d99f109 intitial checkin tz parents: diff changeset	1076	box autoHideAfter:10 with:[].
9c837d99f109 intitial checkin tz parents: diff changeset	1077	box showAtCenter.
9c837d99f109 intitial checkin tz parents: diff changeset	1078	!
9c837d99f109 intitial checkin tz parents: diff changeset	1079
858 a36ca9158a69 show help bug fixed tz parents: 853 diff changeset	1080	openHTMLDocument: aHTMLFilename
a36ca9158a69 show help bug fixed tz parents: 853 diff changeset	1081
a36ca9158a69 show help bug fixed tz parents: 853 diff changeset	1082	HTMLDocumentView openFullOnDocumentationFile: aHTMLFilename
a36ca9158a69 show help bug fixed tz parents: 853 diff changeset	1083	!
a36ca9158a69 show help bug fixed tz parents: 853 diff changeset	1084
803 f6ca4eb5da39 help texts for the history added tz parents: 802 diff changeset	1085	openTutorial: aHTMLFilename
753 9c837d99f109 intitial checkin tz parents: diff changeset	1086
858 a36ca9158a69 show help bug fixed tz parents: 853 diff changeset	1087	self openHTMLDocument: aHTMLFilename
762 2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	1088	!
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	1089
782 5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	1090	showHelp
869 b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1091	"answer whether showing help is turned on/off"
782 5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	1092
783 4e1545900244 show help corrections tz parents: 782 diff changeset	1093	\|currentActiveHelp\|
858 a36ca9158a69 show help bug fixed tz parents: 853 diff changeset	1094
783 4e1545900244 show help corrections tz parents: 782 diff changeset	1095	currentActiveHelp := ActiveHelp currentHelpListener.
4e1545900244 show help corrections tz parents: 782 diff changeset	1096
4e1545900244 show help corrections tz parents: 782 diff changeset	1097	^self class showHelp
858 a36ca9158a69 show help bug fixed tz parents: 853 diff changeset	1098	and: [currentActiveHelp notNil and: [masterApplication notNil
a36ca9158a69 show help bug fixed tz parents: 853 diff changeset	1099	ifFalse: [currentActiveHelp interestedIn: self window]
a36ca9158a69 show help bug fixed tz parents: 853 diff changeset	1100	ifTrue: [currentActiveHelp interestedIn: masterApplication window]]]
782 5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	1101	!
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	1102
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	1103	showHelp: aValue
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	1104	"toggle showing help"
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	1105
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	1106	(self class showHelp: aValue)
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	1107	ifTrue: [ActiveHelp startFor: self]
822 374400d57e0b some useful aspects added tz parents: 821 diff changeset	1108	ifFalse: [ActiveHelp stopFor: self. self updateInfoLabel]
782 5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	1109	!
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	1110
762 2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	1111	showHelp:aHelpText for:view
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	1112	"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	1113
782 5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	1114	self showHelp ifFalse: [^true].
762 2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	1115	self masterApplication notNil
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	1116	ifTrue:
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	1117	[
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	1118	^masterApplication showHelp: aHelpText for:view
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	1119	]
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	1120	ifFalse:
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	1121	[
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	1122	aHelpText isNil
822 374400d57e0b some useful aspects added tz parents: 821 diff changeset	1123	ifTrue: [self updateInfoLabel]
869 b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1124	ifFalse: [self valueOfInfoLabel value: (aHelpText asString printString readStream through: $.)].
762 2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	1125
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	1126	^true
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	1127	]
822 374400d57e0b some useful aspects added tz parents: 821 diff changeset	1128	!
374400d57e0b some useful aspects added tz parents: 821 diff changeset	1129
374400d57e0b some useful aspects added tz parents: 821 diff changeset	1130	updateInfoLabel
374400d57e0b some useful aspects added tz parents: 821 diff changeset	1131
374400d57e0b some useful aspects added tz parents: 821 diff changeset	1132	self valueOfInfoLabel value: self defaultInfoLabel
762 2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	1133	! !
2c25cc1b363e detour help texts into bottomed info label tz parents: 761 diff changeset	1134
753 9c837d99f109 intitial checkin tz parents: diff changeset	1135	!ToolApplicationModel methodsFor:'history'!
9c837d99f109 intitial checkin tz parents: diff changeset	1136
9c837d99f109 intitial checkin tz parents: diff changeset	1137	addToHistory: aHistoryEntry
9c837d99f109 intitial checkin tz parents: diff changeset	1138
782 5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	1139	aHistoryEntry key size = 0 ifTrue: [^nil].
753 9c837d99f109 intitial checkin tz parents: diff changeset	1140	self history remove: (self history detect: [:histEntry\| histEntry key = aHistoryEntry key] ifNone: nil) ifAbsent: nil.
9c837d99f109 intitial checkin tz parents: diff changeset	1141	self history addFirst: aHistoryEntry.
9c837d99f109 intitial checkin tz parents: diff changeset	1142	[self history size > self class historyMaxSize] whileTrue: [self history removeLast]
9c837d99f109 intitial checkin tz parents: diff changeset	1143	!
9c837d99f109 intitial checkin tz parents: diff changeset	1144
9c837d99f109 intitial checkin tz parents: diff changeset	1145	emptyHistory
9c837d99f109 intitial checkin tz parents: diff changeset	1146
9c837d99f109 intitial checkin tz parents: diff changeset	1147	^self history removeAll
9c837d99f109 intitial checkin tz parents: diff changeset	1148	!
9c837d99f109 intitial checkin tz parents: diff changeset	1149
9c837d99f109 intitial checkin tz parents: diff changeset	1150	history
9c837d99f109 intitial checkin tz parents: diff changeset	1151
9c837d99f109 intitial checkin tz parents: diff changeset	1152	^self class getHistory
9c837d99f109 intitial checkin tz parents: diff changeset	1153	!
9c837d99f109 intitial checkin tz parents: diff changeset	1154
844 5d9915ac0be6 checkin from browser tz parents: 838 diff changeset	1155	historyEntries
5d9915ac0be6 checkin from browser tz parents: 838 diff changeset	1156
5d9915ac0be6 checkin from browser tz parents: 838 diff changeset	1157	^self history collect: [:asso\| asso key]
5d9915ac0be6 checkin from browser tz parents: 838 diff changeset	1158	!
5d9915ac0be6 checkin from browser tz parents: 838 diff changeset	1159
753 9c837d99f109 intitial checkin tz parents: diff changeset	1160	menuHistory
9c837d99f109 intitial checkin tz parents: diff changeset	1161
9c837d99f109 intitial checkin tz parents: diff changeset	1162	\|menu a\|
9c837d99f109 intitial checkin tz parents: diff changeset	1163	menu := Menu new receiver: self.
9c837d99f109 intitial checkin tz parents: diff changeset	1164	(self history collect: [:histEntry\| histEntry value]) asSet asOrderedCollection do:
9c837d99f109 intitial checkin tz parents: diff changeset	1165	[:historyEntryType\|
803 f6ca4eb5da39 help texts for the history added tz parents: 802 diff changeset	1166	menu addItemGroup: ((a := self history select: [:histEntry\| histEntry value = historyEntryType]) collect: [:histEntry\| MenuItem new label: histEntry key printString; value: histEntry value; argument: histEntry key; activeHelpKey: #historyMenuItem]).
753 9c837d99f109 intitial checkin tz parents: diff changeset	1167	].
803 f6ca4eb5da39 help texts for the history added tz parents: 802 diff changeset	1168	menu addItem: (MenuItem new label: 'Empty History'; value: #emptyHistory; activeHelpKey: #historyEmptyMenu).
753 9c837d99f109 intitial checkin tz parents: diff changeset	1169
9c837d99f109 intitial checkin tz parents: diff changeset	1170	^menu
9c837d99f109 intitial checkin tz parents: diff changeset	1171	!
9c837d99f109 intitial checkin tz parents: diff changeset	1172
9c837d99f109 intitial checkin tz parents: diff changeset	1173	removeFromHistory: aHistoryEntry
9c837d99f109 intitial checkin tz parents: diff changeset	1174
9c837d99f109 intitial checkin tz parents: diff changeset	1175	self history remove: (self history detect: [:histEntry\| histEntry key = aHistoryEntry key] ifNone: nil) ifAbsent: nil.
9c837d99f109 intitial checkin tz parents: diff changeset	1176	[self history size > self class historyMaxSize] whileTrue: [self history removeLast]
9c837d99f109 intitial checkin tz parents: diff changeset	1177	! !
9c837d99f109 intitial checkin tz parents: diff changeset	1178
782 5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	1179	!ToolApplicationModel methodsFor:'queries'!
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	1180
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	1181	preferredExtent
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	1182	"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	1183	will be considered"
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	1184
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	1185	\|window menu menuToolbarView preferredExtentOfWindow\|
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	1186
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	1187	window := self builder window.
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	1188	menu := window subViews first.
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	1189	menuToolbarView := builder componentAt: #menuToolbarView.
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	1190
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	1191	preferredExtentOfWindow := window extent.
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	1192	menu class = MenuPanel ifTrue: [preferredExtentOfWindow := preferredExtentOfWindow max: menu preferredExtent].
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	1193	menuToolbarView notNil ifTrue: [preferredExtentOfWindow := preferredExtentOfWindow max: menuToolbarView preferredExtent].
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	1194
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	1195	^window minExtent max: (preferredExtentOfWindow min: window maxExtent)
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	1196	! !
5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	1197
869 b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1198	!ToolApplicationModel methodsFor:'settings'!
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1199
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1200	chooseFont: viewFont
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1201	"choose a font for viewFont and put it into the settings dictionary;
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1202	finally update all my views"
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1203
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1204	\|defaultFont font\|
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1205
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1206	viewFont = 'Label Font' ifTrue: [defaultFont := Label defaultFont].
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1207	viewFont = 'Button Font' ifTrue: [defaultFont := Button defaultFont].
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1208	viewFont = 'Edit Font' ifTrue: [defaultFont := TextView defaultFont].
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1209	viewFont = 'List Font' ifTrue: [defaultFont := ListView defaultFont].
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1210	viewFont = 'Tree List Font' ifTrue: [defaultFont := SelectionInTreeView defaultFont].
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1211
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1212	(font := FontPanel
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1213	fontFromUserInitial: (self class settings at: viewFont asSymbol ifAbsent: nil) ? defaultFont
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1214	title: 'Choose ', viewFont) notNil
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1215	ifTrue:
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1216	[
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1217	self class settings at: viewFont asSymbol put: (font on: device).
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1218	self updateFonts
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1219	].
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1220	^font
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1221	!
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1222
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1223	resetFonts
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1224	"set the fonts in the settings to nil and set the views to its default font"
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1225
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1226	(self class settings)
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1227	removeKey: #'Label Font' ifAbsent: nil;
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1228	removeKey: #'Button Font' ifAbsent: nil;
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1229	removeKey: #'Edit Font' ifAbsent: nil;
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1230	removeKey: #'List Font' ifAbsent: nil;
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1231	removeKey: #'Tree List Font' ifAbsent: nil.
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1232
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1233	builder namedComponents do:
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1234	[:aView\|
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1235	aView allSubViewsDo:
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1236	[:aSubView\|
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1237	aSubView font: aSubView class defaultFont.
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1238	aSubView realize
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1239	]
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1240	]
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1241
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1242	!
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1243
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1244	updateFonts
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1245	"take defined fonts from the settings and set them to the corresponding views"
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1246
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1247	\|labelFont buttonFont editFont listFont treeListFont\|
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1248
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1249	labelFont := self class settings at: #'Label Font' ifAbsent: nil.
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1250	buttonFont := self class settings at: #'Button Font' ifAbsent: nil.
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1251	editFont := self class settings at: #'Edit Font' ifAbsent: nil.
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1252	listFont := self class settings at: #'List Font' ifAbsent: nil.
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1253	treeListFont := self class settings at: #'Tree List Font' ifAbsent: nil.
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1254
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1255	builder namedComponents do:
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1256	[:aView\|
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1257	aView allSubViewsDo:
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1258	[:aSubView\|
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1259	(labelFont notNil and: [aSubView font ~= labelFont and: [(aSubView class == Label) or: [(aSubView isKindOf: Toggle) or: [aSubView class = FramedBox or: [aSubView class == NoteBookView]]]]])
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1260	ifTrue: [aSubView font: labelFont. aSubView realize].
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1261	(buttonFont notNil and: [aSubView font ~= buttonFont and: [aSubView class == Button or: [aSubView class == PopUpList]]])
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1262	ifTrue: [aSubView sizeFixed: true. aSubView font: buttonFont. aSubView realize].
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1263	(editFont notNil and: [aSubView font ~= editFont and: [aSubView isKindOf: TextView]])
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1264	ifTrue: [aSubView font: editFont. aSubView realize].
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1265	(listFont notNil and: [aSubView font ~= listFont and: [aSubView class = SelectionInListView or: [aSubView class = DataSetView]]])
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1266	ifTrue: [aSubView font: listFont. aSubView realize].
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1267	(treeListFont notNil and: [aSubView font ~= treeListFont and: [aSubView isKindOf: SelectionInTreeView]])
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1268	ifTrue: [aSubView font: treeListFont. aSubView realize].
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1269	]
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1270	]
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1271	! !
b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1272
753 9c837d99f109 intitial checkin tz parents: diff changeset	1273	!ToolApplicationModel methodsFor:'startup / release'!
9c837d99f109 intitial checkin tz parents: diff changeset	1274
833 24bef35c26d5 * empty log message * tz parents: 826 diff changeset	1275	allButOpenInterface:aSymbol
24bef35c26d5 * empty log message * tz parents: 826 diff changeset	1276
24bef35c26d5 * empty log message * tz parents: 826 diff changeset	1277	super allButOpenInterface:aSymbol.
24bef35c26d5 * empty log message * tz parents: 826 diff changeset	1278
24bef35c26d5 * empty log message * tz parents: 826 diff changeset	1279	builder window extent: self preferredExtent.
24bef35c26d5 * empty log message * tz parents: 826 diff changeset	1280	builder window label: self class label.
24bef35c26d5 * empty log message * tz parents: 826 diff changeset	1281
24bef35c26d5 * empty log message * tz parents: 826 diff changeset	1282	^builder
24bef35c26d5 * empty log message * tz parents: 826 diff changeset	1283	!
24bef35c26d5 * empty log message * tz parents: 826 diff changeset	1284
753 9c837d99f109 intitial checkin tz parents: diff changeset	1285	close
9c837d99f109 intitial checkin tz parents: diff changeset	1286
756 4dba5a8797ec * empty log message * tz parents: 753 diff changeset	1287	self uninitialize.
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	1288
753 9c837d99f109 intitial checkin tz parents: diff changeset	1289	super close
9c837d99f109 intitial checkin tz parents: diff changeset	1290	!
9c837d99f109 intitial checkin tz parents: diff changeset	1291
9c837d99f109 intitial checkin tz parents: diff changeset	1292	closeRequest
9c837d99f109 intitial checkin tz parents: diff changeset	1293
756 4dba5a8797ec * empty log message * tz parents: 753 diff changeset	1294	self uninitialize.
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	1295
753 9c837d99f109 intitial checkin tz parents: diff changeset	1296	super closeRequest
9c837d99f109 intitial checkin tz parents: diff changeset	1297	!
9c837d99f109 intitial checkin tz parents: diff changeset	1298
790 648fac120039 time clock runs now correctly tz parents: 784 diff changeset	1299	postOpenWith:aBuilder
648fac120039 time clock runs now correctly tz parents: 784 diff changeset	1300
648fac120039 time clock runs now correctly tz parents: 784 diff changeset	1301	super postOpenWith:aBuilder.
648fac120039 time clock runs now correctly tz parents: 784 diff changeset	1302
791 a3269fe103eb * empty log message * tz parents: 790 diff changeset	1303	self class showHelp ifTrue: [ActiveHelp startFor: self].
822 374400d57e0b some useful aspects added tz parents: 821 diff changeset	1304	self updateInfoLabel.
869 b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1305	self updateFonts
790 648fac120039 time clock runs now correctly tz parents: 784 diff changeset	1306	!
648fac120039 time clock runs now correctly tz parents: 784 diff changeset	1307
753 9c837d99f109 intitial checkin tz parents: diff changeset	1308	reOpen
9c837d99f109 intitial checkin tz parents: diff changeset	1309
9c837d99f109 intitial checkin tz parents: diff changeset	1310	self close.
9c837d99f109 intitial checkin tz parents: diff changeset	1311
9c837d99f109 intitial checkin tz parents: diff changeset	1312	self class open
9c837d99f109 intitial checkin tz parents: diff changeset	1313	!
9c837d99f109 intitial checkin tz parents: diff changeset	1314
760 26cf45040420 #preferredExtent cleaned tz parents: 758 diff changeset	1315	removeAllTemporalViews
26cf45040420 #preferredExtent cleaned tz parents: 758 diff changeset	1316
26cf45040420 #preferredExtent cleaned tz parents: 758 diff changeset	1317	self builder namedComponents keys copy do:
26cf45040420 #preferredExtent cleaned tz parents: 758 diff changeset	1318	[:comp\|
26cf45040420 #preferredExtent cleaned tz parents: 758 diff changeset	1319	(comp includesString: '_Temporal') ifTrue: [self builder namedComponents removeKey: comp]
26cf45040420 #preferredExtent cleaned tz parents: 758 diff changeset	1320	]
26cf45040420 #preferredExtent cleaned tz parents: 758 diff changeset	1321	!
26cf45040420 #preferredExtent cleaned tz parents: 758 diff changeset	1322
853 19f2d0152fcb time clock only for the launcher tz parents: 851 diff changeset	1323	startClockOnTimedBlock: aBlock
19f2d0152fcb time clock only for the launcher tz parents: 851 diff changeset	1324
19f2d0152fcb time clock only for the launcher tz parents: 851 diff changeset	1325	timeBlock := aBlock.
19f2d0152fcb time clock only for the launcher tz parents: 851 diff changeset	1326	aBlock value.
19f2d0152fcb time clock only for the launcher tz parents: 851 diff changeset	1327
19f2d0152fcb time clock only for the launcher tz parents: 851 diff changeset	1328	!
19f2d0152fcb time clock only for the launcher tz parents: 851 diff changeset	1329
756 4dba5a8797ec * empty log message * tz parents: 753 diff changeset	1330	uninitialize
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	1331
782 5b8c4cf62cb5 activeHelp changed as instClassVar + some other cleans tz parents: 779 diff changeset	1332	self showHelp ifTrue: [ActiveHelp stopFor: self].
756 4dba5a8797ec * empty log message * tz parents: 753 diff changeset	1333	Processor removeTimedBlock:timeBlock.
4dba5a8797ec * empty log message * tz parents: 753 diff changeset	1334	timeBlock := nil.
753 9c837d99f109 intitial checkin tz parents: diff changeset	1335	! !
9c837d99f109 intitial checkin tz parents: diff changeset	1336
9c837d99f109 intitial checkin tz parents: diff changeset	1337	!ToolApplicationModel class methodsFor:'documentation'!
9c837d99f109 intitial checkin tz parents: diff changeset	1338
9c837d99f109 intitial checkin tz parents: diff changeset	1339	version
869 b1815e3116c6 font can be chosen for the views tz parents: 859 diff changeset	1340	^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.47 1998-03-20 16:01:40 tz Exp $'
753 9c837d99f109 intitial checkin tz parents: diff changeset	1341	! !

author	tz
	Fri, 20 Mar 1998 17:01:40 +0100
changeset 869	b1815e3116c6
parent 859	5d6a438f84d0
child 871	5d3b1dd9bac5
permissions	-rw-r--r--